diff options
| author | Ankit Raj | 2017-06-21 10:26:59 +0530 |
|---|---|---|
| committer | Ankit Raj | 2017-06-21 10:26:59 +0530 |
| commit | 958577cac90a99124cd673fde1926781d966d91f (patch) | |
| tree | 134d9fe7f5b97a647cb055bb7b4c21820a749f49 /tests/unit_tests/double | |
| download | Scilab2C_fossee_old-958577cac90a99124cd673fde1926781d966d91f.tar.gz Scilab2C_fossee_old-958577cac90a99124cd673fde1926781d966d91f.tar.bz2 Scilab2C_fossee_old-958577cac90a99124cd673fde1926781d966d91f.zip | |
Updated Scilab2C
Diffstat (limited to 'tests/unit_tests/double')
244 files changed, 95726 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_Convol.sci b/tests/unit_tests/double/test_Convol.sci new file mode 100644 index 0000000..a7b1cc0 --- /dev/null +++ b/tests/unit_tests/double/test_Convol.sci @@ -0,0 +1,124 @@ +function test_Convol() + + + disp(convol(4,4.5)); //d0d0Convold0 + disp(convol(%i + 3 ,2*%i + 4)); // z0z0Convolz0 + + + a = [1 2 3 4 5 %e %pi]; + b = [1 7 8 5 1 6 ]; + + disp(convol(a,b)); + disp(convol(b,b)); // d2d2Convold2 + + + disp(convol(4,a)); //d0d2Convold2 + disp(convol(a,4)); // d2d0Convold2 + + + c = [1 2 3 4 5 %e %pi] * %i; + d = [1 7 8 5 1 6 ] * %i; + + disp(convol(c,d)); + disp(convol(d,d)); // z2z2Convolz2 + + + disp(convol(%i + 3 ,c)); // z0z2Convolz2 + disp(convol(d ,2*%i + 4)); // z2z0Convolz2 + +// with 2 outputs + + +// [zz yy] = convol(4,4.5); //d0d0Convold0d0 +// disp( zz ); + //disp( yy ); + +// [xx ww ] = convol(%i + 3 ,2*%i + 4); // z0z0Convolz0z0 +// disp( xx); +// disp( ww ); + +// [vv uu] =convol(a,b); +// disp( vv); // d2d2Convold2d2 +// disp( uu ); + + +// [tt ss] = convol(4,a); //d0d2Convold2d2 +// disp( tt); +// disp( ss ); + + + +// [rr qq] = convol(a,4); // d2d0Convold2d2 +// disp( rr ); +// disp( qq ); + + + +// with 2 outputs + +// [pp oo] =convol(c,d); +// disp( pp); // z2z2Convolz2z2 +// disp( oo ); + + +// [mm nn] = convol(4,c); //z0z2Convolz2z2 +// disp( mm); +// disp( nn ); + + + +// [ll kk] = convol(c,4); // z2z0Convolz2z2 +// disp( ll ); + //disp( kk); + + +// three input i + +// with 2 outputs + + + //[zzz yyy] = convol(4,4.5,18); //d0d0d0Convold0d0 + //disp( zzz ); + //disp( yyy ); + + //[xxx www ] = convol(%i + 3 ,2*%i + 4,%i); // z0z0z0Convolz0z0 + //disp( xxx); + //disp( www ); + +// bbis = [4 7 9 10]; + + //[vvv uuu] =convol(a,b,bbis); +// disp( vvv); // d2d2d2Convold2d2 +// disp( uuu ); +// + + //[ttt sss] = convol(4,a, 8); //d0d2d0Convold2d0 + //disp( ttt); + //disp( sss ); + +// with 2 outputs +//dbis = [10 13 14] *%i; +// [ppp ooo] =convol(c,d, dbis); +// disp( ppp); // z2z2z2Convolz2z2 +// disp( ooo ); + + +// [mmm nnn] = convol(4 * %i ,c , %i); //z0z2z0Convolz2z0 +// disp( mmm); +// disp( nnn); + +//mixed up + +// disp(convol(a,c)); //d2z2Convolz2 +// disp(convol(c,a)); // z2d2Convolz2 +// disp(convol(4,c)); //d0z2Convolz2 +// disp(convol(%i + 3 ,a)); // z0d2Convolz2 + +// disp(convol(a, %i)); //d2z0Convolz2 +// disp(convol(c , 4)); // z2d0Convolz2 + + + + + +endfunction diff --git a/tests/unit_tests/double/test_Convol.sci.dia.ref b/tests/unit_tests/double/test_Convol.sci.dia.ref new file mode 100644 index 0000000..0c98d23 --- /dev/null +++ b/tests/unit_tests/double/test_Convol.sci.dia.ref @@ -0,0 +1,2919 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Convol.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 18. + + 10. + 10.i + + + column 1 to 7 + + 1. 9. 25. 46. 68. 92.718282 97.169565 + + column 8 to 12 + + 90.737403 67.72415 48.426245 19.451284 18.849556 + + + column 1 to 9 + + 1. 14. 65. 122. 136. 106. 125. 106. 61. + + column 10 to 11 + + 12. 36. + + 4. 8. 12. 16. 20. 10.873127 12.566371 + + 4. 8. 12. 16. 20. 10.873127 12.566371 + + + column 1 to 7 + + - 1. - 9. - 25. - 46. - 68. - 92.718282 - 97.169565 + + column 8 to 12 + + - 90.737403 - 67.72415 - 48.426245 - 19.451284 - 18.849556 + + + column 1 to 9 + + - 1. - 14. - 65. - 122. - 136. - 106. - 125. - 106. - 61. + + column 10 to 11 + + - 12. - 36. + + + column 1 to 5 + + - 1. + 3.i - 2. + 6.i - 3. + 9.i - 4. + 12.i - 5. + 15.i + + column 6 to 7 + + - 2.7182818 + 8.1548455i - 3.1415927 + 9.424778i + + + column 1 to 5 + + - 2. + 4.i - 14. + 28.i - 16. + 32.i - 10. + 20.i - 2. + 4.i + + column 6 + + - 12. + 24.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Convol" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Convol/test_Convol_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Convol/test_Convol_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(4,4.5)); //d0d0Convold0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(%i + 3 ,2*%i + 4)); // z0z0Convolz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 4 5 %e %pi]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 7 8 5 1 6 ]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(a,b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(b,b)); // d2d2Convold2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(4,a)); //d0d2Convold2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(a,4)); // d2d0Convold2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [1 2 3 4 5 %e %pi] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [1 7 8 5 1 6 ] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(c,d)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(d,d)); // z2z2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(%i + 3 ,c)); // z0z2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(convol(d ,2*%i + 4)); // z2z0Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with 2 outputs + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [zz yy] = convol(4,4.5); //d0d0Convold0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( zz ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( yy ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [xx ww ] = convol(%i + 3 ,2*%i + 4); // z0z0Convolz0z0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( xx); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( ww ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [vv uu] =convol(a,b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( vv); // d2d2Convold2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( uu ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [tt ss] = convol(4,a); //d0d2Convold2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( tt); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( ss ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [rr qq] = convol(a,4); // d2d0Convold2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( rr ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( qq ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with 2 outputs + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [pp oo] =convol(c,d); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( pp); // z2z2Convolz2z2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( oo ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [mm nn] = convol(4,c); //z0z2Convolz2z2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( mm); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( nn ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [ll kk] = convol(c,4); // z2z0Convolz2z2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( ll ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( kk); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // three input i + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with 2 outputs + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //[zzz yyy] = convol(4,4.5,18); //d0d0d0Convold0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( zzz ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( yyy ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //[xxx www ] = convol(%i + 3 ,2*%i + 4,%i); // z0z0z0Conv + olz0z0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( xxx); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( www ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // bbis = [4 7 9 10]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //[vvv uuu] =convol(a,b,bbis); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( vvv); // d2d2d2Convold2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( uuu ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //[ttt sss] = convol(4,a, 8); //d0d2d0Convold2d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( ttt); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp( sss ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with 2 outputs + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //dbis = [10 13 14] *%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [ppp ooo] =convol(c,d, dbis); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( ppp); // z2z2z2Convolz2z2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( ooo ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // [mmm nnn] = convol(4 * %i ,c , %i); //z0z2z0Convolz2z0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( mmm); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp( nnn); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //mixed up + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(a,c)); //d2z2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(c,a)); // z2d2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(4,c)); //d0z2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(%i + 3 ,a)); // z0d2Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(a, %i)); //d2z0Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(convol(c , 4)); // z2d0Convolz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Convol() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp8[1 * 4]; ! +! ! +! int ____temp8Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp9[1 * 5]; ! +! ! +! int ____temp9Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp10[1 * 6]; ! +! ! +! int ____temp10Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double a[1 * 7]; ! +! ! +! int __aSize[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[1 * 3]; ! +! ! +! int ____temp12Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp13[1 * 4]; ! +! ! +! int ____temp13Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp14[1 * 5]; ! +! ! +! int ____temp14Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double b[1 * 6]; ! +! ! +! int __bSize[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp15[1 * 12]; ! +! ! +! int ____temp15Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp16[1 * 11]; ! +! ! +! int ____temp16Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp17[1 * 7]; ! +! ! +! int ____temp17Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp18[1 * 7]; ! +! ! +! int ____temp18Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 4]; ! +! ! +! int ____temp21Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp22[1 * 5]; ! +! ! +! int ____temp22Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp23[1 * 6]; ! +! ! +! int ____temp23Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp24[1 * 7]; ! +! ! +! int ____temp24Size[2] = {1, 7};; ! +! ! +! ! +! ! +! doubleComplex c[1 * 7]; ! +! ! +! int __cSize[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp25[1 * 2]; ! +! ! +! int ____temp25Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp26[1 * 3]; ! +! ! +! int ____temp26Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp27[1 * 4]; ! +! ! +! int ____temp27Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp28[1 * 5]; ! +! ! +! int ____temp28Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp29[1 * 6]; ! +! ! +! int ____temp29Size[2] = {1, 6};; ! +! ! +! ! +! ! +! doubleComplex d[1 * 6]; ! +! ! +! int __dSize[2] = {1, 6};; ! +! ! +! ! +! ! +! doubleComplex __temp30[1 * 12]; ! +! ! +! int ____temp30Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp31[1 * 11]; ! +! ! +! int ____temp31Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp32; ! +! ! +! ! +! ! +! doubleComplex __temp33[1 * 7]; ! +! ! +! int ____temp33Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp34; ! +! ! +! ! +! ! +! doubleComplex __temp35; ! +! ! +! ! +! ! +! doubleComplex __temp36[1 * 6]; ! +! ! +! int ____temp36Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(4,4.5)); //d0d0Convold0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0convold0(4,4.5); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(%i + 3 ,2*%i + 4)); // z0z0Convolz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),3); ! +! ! +! __temp3 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp4 = z0d0OpPlusz0(__temp3,4); ! +! ! +! __temp5 = z0z0convolz0(__temp2,__temp4); ! +! ! +! ans2 = z0dispd0(__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 4 5 %e %pi]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,3,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,4,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,5,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,SCI2C_E,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,SCI2C_PI,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 7 8 5 1 6 ]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,7,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,8,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,5,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,1,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,6,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(a,b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2convold2(a, __aSize,b, __bSize,__temp15); ! +! ! +! ans3 = d2dispd0(__temp15, ____temp15Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(b,b)); // d2d2Convold2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2convold2(b, __bSize,b, __bSize,__temp16); ! +! ! +! ans4 = d2dispd0(__temp16, ____temp16Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(4,a)); //d0d2Convold2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2convold2(4,a, __aSize,__temp17); ! +! ! +! ans5 = d2dispd0(__temp17, ____temp17Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(a,4)); // d2d0Convold2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0convold2(a, __aSize,4,__temp18); ! +! ! +! ans6 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [1 2 3 4 5 %e %pi] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,3,__temp20); ! +! ! +! d2d0OpRcd2(__temp20, ____temp20Size,4,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,5,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,SCI2C_E,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,SCI2C_PI,__temp24); ! +! ! +! d2z0OpStarz2(__temp24, ____temp24Size,DoubleComplex(0,1),c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [1 7 8 5 1 6 ] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,7,__temp25); ! +! ! +! d2d0OpRcd2(__temp25, ____temp25Size,8,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,5,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,1,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,6,__temp29); ! +! ! +! d2z0OpStarz2(__temp29, ____temp29Size,DoubleComplex(0,1),d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(c,d)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2convolz2(c, __cSize,d, __dSize,__temp30); ! +! ! +! ans7 = z2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(d,d)); // z2z2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2convolz2(d, __dSize,d, __dSize,__temp31); ! +! ! +! ans8 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(%i + 3 ,c)); // z0z2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp32 = z0d0OpPlusz0(DoubleComplex(0,1),3); ! +! ! +! z0z2convolz2(__temp32,c, __cSize,__temp33); ! +! ! +! ans9 = z2dispd0(__temp33, ____temp33Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(convol(d ,2*%i + 4)); // z2z0Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp34 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp35 = z0d0OpPlusz0(__temp34,4); ! +! ! +! z2z0convolz2(d, __dSize,__temp35,__temp36); ! +! ! +! ans10 = z2dispd0(__temp36, ____temp36Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with 2 outputs ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [zz yy] = convol(4,4.5); //d0d0Convold0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( zz ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( yy ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [xx ww ] = convol(%i + 3 ,2*%i + 4); // z0z0Convolz0z0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( xx); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( ww ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [vv uu] =convol(a,b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( vv); // d2d2Convold2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( uu ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [tt ss] = convol(4,a); //d0d2Convold2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( tt); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( ss ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [rr qq] = convol(a,4); // d2d0Convold2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( rr ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( qq ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with 2 outputs ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [pp oo] =convol(c,d); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( pp); // z2z2Convolz2z2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( oo ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [mm nn] = convol(4,c); //z0z2Convolz2z2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( mm); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( nn ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [ll kk] = convol(c,4); // z2z0Convolz2z2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( ll ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( kk); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // three input i ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with 2 outputs ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //[zzz yyy] = convol(4,4.5,18); //d0d0d0Convold0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( zzz ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( yyy ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //[xxx www ] = convol(%i + 3 ,2*%i + 4,%i); // z0z0z0Conv! +! olz0z0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( xxx); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( www ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // bbis = [4 7 9 10]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //[vvv uuu] =convol(a,b,bbis); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( vvv); // d2d2d2Convold2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( uuu ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //[ttt sss] = convol(4,a, 8); //d0d2d0Convold2d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( ttt); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp( sss ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with 2 outputs ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //dbis = [10 13 14] *%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [ppp ooo] =convol(c,d, dbis); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( ppp); // z2z2z2Convolz2z2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( ooo ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // [mmm nnn] = convol(4 * %i ,c , %i); //z0z2z0Convolz2z0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( mmm); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp( nnn); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //mixed up ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(a,c)); //d2z2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(c,a)); // z2d2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(4,c)); //d0z2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(%i + 3 ,a)); // z0d2Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(a, %i)); //d2z0Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(convol(c , 4)); // z2d0Convolz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Convol.sci.tst b/tests/unit_tests/double/test_Convol.sci.tst new file mode 100644 index 0000000..13377a5 --- /dev/null +++ b/tests/unit_tests/double/test_Convol.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Convol.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Det.sci b/tests/unit_tests/double/test_Det.sci new file mode 100644 index 0000000..cf92315 --- /dev/null +++ b/tests/unit_tests/double/test_Det.sci @@ -0,0 +1,15 @@ +function test_Det() + + a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(det(a)); + + b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(det(b)); + + + disp(det(5)); + + disp(det(%i)); +endfunction + + diff --git a/tests/unit_tests/double/test_Det.sci.dia.ref b/tests/unit_tests/double/test_Det.sci.dia.ref new file mode 100644 index 0000000..cedddf6 --- /dev/null +++ b/tests/unit_tests/double/test_Det.sci.dia.ref @@ -0,0 +1,670 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Det.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + - 28.128316 + + 28.128316i + + 5. + + i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Det" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Det/test_Det_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Det/test_Det_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(det(a)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(det(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(det(5)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(det(%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Det() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[2 * 3]; ! +! ! +! int ____temp5Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[3 * 3]; ! +! ! +! int __aSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp8; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[1 * 3]; ! +! ! +! int ____temp12Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp13[2 * 3]; ! +! ! +! int ____temp13Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[3 * 3]; ! +! ! +! int ____temp16Size[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex b[3 * 3]; ! +! ! +! int __bSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3; 4 %pi 5; 4.5 -3 2]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,SCI2C_PI,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,5,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,__temp5)! +! ; ! +! ! +! d0d0OpRcd2(4.5,-3,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,2,__temp7); ! +! ! +! d2d2OpCcd2(__temp5, ____temp5Size,__temp7, ____temp7Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(det(a)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = d2detd0(a, __aSize); ! +! ! +! ans1 = d0dispd0(__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,3,__temp10); ! +! ! +! d0d0OpRcd2(4,SCI2C_PI,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,5,__temp12); ! +! ! +! d2d2OpCcd2(__temp10, ____temp10Size,__temp12, ____temp12Size,__te! +! mp13); ! +! ! +! d0d0OpRcd2(4.5,-3,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,2,__temp15); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp15, ____temp15Size,__te! +! mp16); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp16, ____temp16Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(det(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = z2detz0(b, __bSize); ! +! ! +! ans2 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(det(5)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0detd0(5); ! +! ! +! ans3 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(det(%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0detz0(DoubleComplex(0,1)); ! +! ! +! ans4 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Det.sci.tst b/tests/unit_tests/double/test_Det.sci.tst new file mode 100644 index 0000000..c61543d --- /dev/null +++ b/tests/unit_tests/double/test_Det.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Det.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Disp.sci b/tests/unit_tests/double/test_Disp.sci new file mode 100644 index 0000000..fd50ed3 --- /dev/null +++ b/tests/unit_tests/double/test_Disp.sci @@ -0,0 +1,13 @@ +function test_Disp () + + disp(4.5); + disp(4+3*%i); + disp("a"); + + disp([1 2 3 4 5 ; 6 7 8 9 10]); + disp(%i*[1 2 3 4 5 ; 6 7 8 9 10]); + disp("plop"); + + +endfunction + diff --git a/tests/unit_tests/double/test_Disp.sci.dia.ref b/tests/unit_tests/double/test_Disp.sci.dia.ref new file mode 100644 index 0000000..e186bb9 --- /dev/null +++ b/tests/unit_tests/double/test_Disp.sci.dia.ref @@ -0,0 +1,686 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Disp.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 4.5 + + 4. + 3.i + + a + + 1. 2. 3. 4. 5. + 6. 7. 8. 9. 10. + + i 2.i 3.i 4.i 5.i + 6.i 7.i 8.i 9.i 10.i + + plop + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Disp" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Disp/test_Disp_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Disp/test_Disp_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4.5); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+3*%i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("a"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp([1 2 3 4 5 ; 6 7 8 9 10]); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(%i*[1 2 3 4 5 ; 6 7 8 9 10]); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("plop"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Disp () ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! char __temp3[1*2] = {"a"}; ! +! ! +! int ____temp3Size[2] = {1,2}; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[1 * 5]; ! +! ! +! int ____temp7Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[1 * 5]; ! +! ! +! int ____temp11Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp12[2 * 5]; ! +! ! +! int ____temp12Size[2] = {2, 5};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 3]; ! +! ! +! int ____temp14Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp15[1 * 4]; ! +! ! +! int ____temp15Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp16[1 * 5]; ! +! ! +! int ____temp16Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp19[1 * 4]; ! +! ! +! int ____temp19Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp20[1 * 5]; ! +! ! +! int ____temp20Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp21[2 * 5]; ! +! ! +! int ____temp21Size[2] = {2, 5};; ! +! ! +! ! +! ! +! doubleComplex __temp22[2 * 5]; ! +! ! +! int ____temp22Size[2] = {2, 5};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp23[1*5] = {"plop"}; ! +! ! +! int ____temp23Size[2] = {1,5}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4.5); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0dispd0(4.5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+3*%i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp2 = d0z0OpPlusz0(4,__temp1); ! +! ! +! ans2 = z0dispd0(__temp2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("a"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = g2dispd0(__temp3, ____temp3Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp([1 2 3 4 5 ; 6 7 8 9 10]); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,3,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,4,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,5,__temp7); ! +! ! +! d0d0OpRcd2(6,7,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,8,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,9,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,10,__temp11); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp11, ____temp11Size,__temp! +! 12); ! +! ! +! ans4 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(%i*[1 2 3 4 5 ; 6 7 8 9 10]); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,3,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,4,__temp15); ! +! ! +! d2d0OpRcd2(__temp15, ____temp15Size,5,__temp16); ! +! ! +! d0d0OpRcd2(6,7,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,8,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,9,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,10,__temp20); ! +! ! +! d2d2OpCcd2(__temp16, ____temp16Size,__temp20, ____temp20Size,__te! +! mp21); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp21, ____temp21Size,__temp22)! +! ; ! +! ! +! ans5 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("plop"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Disp.sci.tst b/tests/unit_tests/double/test_Disp.sci.tst new file mode 100644 index 0000000..6e5bd33 --- /dev/null +++ b/tests/unit_tests/double/test_Disp.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Disp.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Expm.sci b/tests/unit_tests/double/test_Expm.sci new file mode 100644 index 0000000..a0a1b13 --- /dev/null +++ b/tests/unit_tests/double/test_Expm.sci @@ -0,0 +1,9 @@ +function test_Expm() + b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]; + c = b*%i ; + + disp(expm(b)); + disp(expm(c)); + + +endfunction diff --git a/tests/unit_tests/double/test_Expm.sci.dia.ref b/tests/unit_tests/double/test_Expm.sci.dia.ref new file mode 100644 index 0000000..c093cd7 --- /dev/null +++ b/tests/unit_tests/double/test_Expm.sci.dia.ref @@ -0,0 +1,583 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Expm.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.0D+14 * + + 3.5232353 3.9897442 4.4562531 4.922762 + 8.1403247 9.2181789 10.296033 11.373887 + 12.757414 14.446614 16.135813 17.825012 + 17.374503 19.675048 21.975593 24.276138 + + + column 1 to 2 + + - 0.0723612 - 0.5749056i - 0.5876033 - 0.3357227i + - 0.5347368 - 0.3508537i 0.6385973 - 0.2744886i + 0.0028876 - 0.1268019i - 0.1352022 - 0.2132544i + 0.5405119 + 0.0972500i 0.0909984 - 0.1520203i + + column 3 to 4 + + - 0.1028454 - 0.0965399i 0.3819125 + 0.1426430i + - 0.1880687 - 0.1981234i - 0.0147346 - 0.1217582i + 0.7267081 - 0.2997069i - 0.4113816 - 0.3861595i + - 0.3585152 - 0.4012905i 0.1919713 - 0.6505607i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Expm" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Expm/test_Expm_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Expm/test_Expm_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = b*%i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(expm(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(expm(c)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Expm() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double b[4 * 4]; ! +! ! +! int __bSize[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex c[4 * 4]; ! +! ! +! int __cSize[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp15[4 * 4]; ! +! ! +! int ____temp15Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = b*%i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpStarz2(b, __bSize,DoubleComplex(0,1),c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(expm(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2expmd2(b, __bSize,__temp15); ! +! ! +! ans1 = d2dispd0(__temp15, ____temp15Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(expm(c)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2expmz2(c, __cSize,__temp16); ! +! ! +! ans2 = z2dispd0(__temp16, ____temp16Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Expm.sci.tst b/tests/unit_tests/double/test_Expm.sci.tst new file mode 100644 index 0000000..bfb51c2 --- /dev/null +++ b/tests/unit_tests/double/test_Expm.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Expm.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_FFTShift.sci b/tests/unit_tests/double/test_FFTShift.sci new file mode 100644 index 0000000..bc325ac --- /dev/null +++ b/tests/unit_tests/double/test_FFTShift.sci @@ -0,0 +1,37 @@ +function test_FFTShift() + + disp(fftshift(5.3));// d0*d0 + disp(fftshift(5.3*%i));// z0*z0 + disp(fftshift(5.3 + 5.6*%i ));// z0*z0 + + + a = fft ([10 1 15 3.5 ]); + disp(fftshift(a)); + + b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]; + disp(fftshift(b)); + disp(fftshift(b , 1)); + disp(fftshift(b , 2)); + //disp(fftshift(b , "all")); + + + c = [10 1 15 3.5 ]*%i; + disp(fftshift(c)); + + d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + disp(fftshift(b)); + disp(fftshift(b , 1)); + disp(fftshift(b , 2)); + //disp(fftshift(b , "all")); + + + e = c + [10 1 15 3.5 ]*%i; + disp(fftshift(e)); + + f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + disp(fftshift(f)); + disp(fftshift(f , 1)); + disp(fftshift(f , 2)); + //disp(fftshift(f , "all")); + +endfunction diff --git a/tests/unit_tests/double/test_FFTShift.sci.dia.ref b/tests/unit_tests/double/test_FFTShift.sci.dia.ref new file mode 100644 index 0000000..ecb4c0f --- /dev/null +++ b/tests/unit_tests/double/test_FFTShift.sci.dia.ref @@ -0,0 +1,1669 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_FFTShift.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 5.3 + + 5.3i + + 5.3 + 5.6i + + 20.5 - 5. - 2.5i 29.5 - 5. + 2.5i + + 9.3 1. 48.5 3. + 2. 6. 14. 15. + 6. 4. 1. 2. + + 48.5 3. 9.3 1. + 14. 15. 2. 6. + 1. 2. 6. 4. + + 2. 6. 14. 15. + 6. 4. 1. 2. + 9.3 1. 48.5 3. + + 15.i 3.5i 10.i i + + 9.3 1. 48.5 3. + 2. 6. 14. 15. + 6. 4. 1. 2. + + 48.5 3. 9.3 1. + 14. 15. 2. 6. + 1. 2. 6. 4. + + 2. 6. 14. 15. + 6. 4. 1. 2. + 9.3 1. 48.5 3. + + 30.i 7.i 20.i 2.i + + 9.3 + 9.3i 1. + i 43.5 + 48.5i 1. + 3.i + 7. + 2.i 6. + 6.i 18. + 14.i 15. + 15.i + 6. + 6.i 4. + 4.i 1. + i 5. + 2.i + + 43.5 + 48.5i 1. + 3.i 9.3 + 9.3i 1. + i + 18. + 14.i 15. + 15.i 7. + 2.i 6. + 6.i + 1. + i 5. + 2.i 6. + 6.i 4. + 4.i + + 7. + 2.i 6. + 6.i 18. + 14.i 15. + 15.i + 6. + 6.i 4. + 4.i 1. + i 5. + 2.i + 9.3 + 9.3i 1. + i 43.5 + 48.5i 1. + 3.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_FFTShift" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_FFTShift/test_FFTShift_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_FFTShift/test_FFTShift_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(5.3));// d0*d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(5.3*%i));// z0*z0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(5.3 + 5.6*%i ));// z0*z0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = fft ([10 1 15 3.5 ]); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(a)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b , 1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b , 2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(fftshift(b , "all")); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [10 1 15 3.5 ]*%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(c)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b , 1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(b , 2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(fftshift(b , "all")); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = c + [10 1 15 3.5 ]*%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 + ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(f)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(f , 1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fftshift(f , 2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(fftshift(f , "all")); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_FFTShift() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[1 * 4]; ! +! ! +! int ____temp9Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[1 * 3]; ! +! ! +! int ____temp12Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp13[1 * 4]; ! +! ! +! int ____temp13Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[1 * 4]; ! +! ! +! int ____temp16Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp17[2 * 4]; ! +! ! +! int ____temp17Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp20[1 * 4]; ! +! ! +! int ____temp20Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double b[3 * 4]; ! +! ! +! int __bSize[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp21[3 * 4]; ! +! ! +! int ____temp21Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[3 * 4]; ! +! ! +! int ____temp22Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[3 * 4]; ! +! ! +! int ____temp23Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 4]; ! +! ! +! int ____temp26Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex c[1 * 4]; ! +! ! +! int __cSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp27[1 * 4]; ! +! ! +! int ____temp27Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp30[1 * 4]; ! +! ! +! int ____temp30Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp31[1 * 2]; ! +! ! +! int ____temp31Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp32[1 * 3]; ! +! ! +! int ____temp32Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp33[1 * 4]; ! +! ! +! int ____temp33Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp34[2 * 4]; ! +! ! +! int ____temp34Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp35[1 * 2]; ! +! ! +! int ____temp35Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 3]; ! +! ! +! int ____temp36Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp37[1 * 4]; ! +! ! +! int ____temp37Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp38[3 * 4]; ! +! ! +! int ____temp38Size[2] = {3, 4};; ! +! ! +! ! +! ! +! doubleComplex d[3 * 4]; ! +! ! +! int __dSize[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp39[3 * 4]; ! +! ! +! int ____temp39Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp40[3 * 4]; ! +! ! +! int ____temp40Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp41[3 * 4]; ! +! ! +! int ____temp41Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp42[1 * 2]; ! +! ! +! int ____temp42Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp43[1 * 3]; ! +! ! +! int ____temp43Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp44[1 * 4]; ! +! ! +! int ____temp44Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp45[1 * 4]; ! +! ! +! int ____temp45Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex e[1 * 4]; ! +! ! +! int __eSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp46[1 * 4]; ! +! ! +! int ____temp46Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp47[1 * 2]; ! +! ! +! int ____temp47Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp48[1 * 3]; ! +! ! +! int ____temp48Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp49[1 * 4]; ! +! ! +! int ____temp49Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp50[1 * 2]; ! +! ! +! int ____temp50Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp51[1 * 3]; ! +! ! +! int ____temp51Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp52[1 * 4]; ! +! ! +! int ____temp52Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp53[2 * 4]; ! +! ! +! int ____temp53Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp56[1 * 4]; ! +! ! +! int ____temp56Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp57[3 * 4]; ! +! ! +! int ____temp57Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp58[1 * 2]; ! +! ! +! int ____temp58Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp59[1 * 3]; ! +! ! +! int ____temp59Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp60[1 * 4]; ! +! ! +! int ____temp60Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp61[1 * 2]; ! +! ! +! int ____temp61Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp62[1 * 3]; ! +! ! +! int ____temp62Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp63[1 * 4]; ! +! ! +! int ____temp63Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp64[2 * 4]; ! +! ! +! int ____temp64Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp65[1 * 2]; ! +! ! +! int ____temp65Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp66[1 * 3]; ! +! ! +! int ____temp66Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp67[1 * 4]; ! +! ! +! int ____temp67Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp68[3 * 4]; ! +! ! +! int ____temp68Size[2] = {3, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp69[3 * 4]; ! +! ! +! int ____temp69Size[2] = {3, 4};; ! +! ! +! ! +! ! +! doubleComplex f[3 * 4]; ! +! ! +! int __fSize[2] = {3, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp70[3 * 4]; ! +! ! +! int ____temp70Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp71[3 * 4]; ! +! ! +! int ____temp71Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp72[3 * 4]; ! +! ! +! int ____temp72Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(5.3));// d0*d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0fftshiftd0(5.3); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(5.3*%i));// z0*z0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = d0z0OpStarz0(5.3,DoubleComplex(0,1)); ! +! ! +! __temp3 = z0fftshiftz0(__temp2); ! +! ! +! ans2 = z0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(5.3 + 5.6*%i ));// z0*z0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp4 = d0z0OpStarz0(5.6,DoubleComplex(0,1)); ! +! ! +! __temp5 = d0z0OpPlusz0(5.3,__temp4); ! +! ! +! __temp6 = z0fftshiftz0(__temp5); ! +! ! +! ans3 = z0dispd0(__temp6); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = fft ([10 1 15 3.5 ]); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,15,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,3.5,__temp9); ! +! ! +! d2fftd2(__temp9, ____temp9Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(a)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftshiftd2(a, __aSize,__temp10); ! +! ! +! ans4 = d2dispd0(__temp10, ____temp10Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(14,15,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,2,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,6,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,6,__temp15); ! +! ! +! d2d0OpRcd2(__temp15, ____temp15Size,4,__temp16); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp16, ____temp16Size,__te! +! mp17); ! +! ! +! d0d0OpRcd2(48.5,3,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,9.3,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,1,__temp20); ! +! ! +! d2d2OpCcd2(__temp17, ____temp17Size,__temp20, ____temp20Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftshiftd2(b, __bSize,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b , 1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftshiftd2(b, __bSize,1,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b , 2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftshiftd2(b, __bSize,2,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(fftshift(b , "all")); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [10 1 15 3.5 ]*%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,15,__temp25); ! +! ! +! d2d0OpRcd2(__temp25, ____temp25Size,3.5,__temp26); ! +! ! +! d2z0OpStarz2(__temp26, ____temp26Size,DoubleComplex(0,1),c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(c)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftshiftz2(c, __cSize,__temp27); ! +! ! +! ans8 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [ 14 15 2 6 ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(14,15,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,2,__temp29); ! +! ! +! d2d0OpRcd2(__temp29, ____temp29Size,6,__temp30); ! +! ! +! d0d0OpRcd2(1,2,__temp31); ! +! ! +! d2d0OpRcd2(__temp31, ____temp31Size,6,__temp32); ! +! ! +! d2d0OpRcd2(__temp32, ____temp32Size,4,__temp33); ! +! ! +! d2d2OpCcd2(__temp30, ____temp30Size,__temp33, ____temp33Size,__te! +! mp34); ! +! ! +! d0d0OpRcd2(48.5,3,__temp35); ! +! ! +! d2d0OpRcd2(__temp35, ____temp35Size,9.3,__temp36); ! +! ! +! d2d0OpRcd2(__temp36, ____temp36Size,1,__temp37); ! +! ! +! d2d2OpCcd2(__temp34, ____temp34Size,__temp37, ____temp37Size,__te! +! mp38); ! +! ! +! d2z0OpStarz2(__temp38, ____temp38Size,DoubleComplex(0,1),d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftshiftd2(b, __bSize,__temp39); ! +! ! +! ans9 = d2dispd0(__temp39, ____temp39Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b , 1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftshiftd2(b, __bSize,1,__temp40); ! +! ! +! ans10 = d2dispd0(__temp40, ____temp40Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(b , 2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftshiftd2(b, __bSize,2,__temp41); ! +! ! +! ans11 = d2dispd0(__temp41, ____temp41Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(fftshift(b , "all")); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = c + [10 1 15 3.5 ]*%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp42); ! +! ! +! d2d0OpRcd2(__temp42, ____temp42Size,15,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,3.5,__temp44); ! +! ! +! d2z0OpStarz2(__temp44, ____temp44Size,DoubleComplex(0,1),__temp45)! +! ; ! +! ! +! z2z2OpPlusz2(c, __cSize,__temp45, ____temp45Size,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftshiftz2(e, __eSize,__temp46); ! +! ! +! ans12 = z2dispd0(__temp46, ____temp46Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = [ 18 15 7 6 ; 1 5 6 4 ; 43.5 1 9.3 1 ] + [ 14 15 2 6 ! +! ; 1 2 6 4 ; 48.5 3 9.3 1 ]*%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(18,15,__temp47); ! +! ! +! d2d0OpRcd2(__temp47, ____temp47Size,7,__temp48); ! +! ! +! d2d0OpRcd2(__temp48, ____temp48Size,6,__temp49); ! +! ! +! d0d0OpRcd2(1,5,__temp50); ! +! ! +! d2d0OpRcd2(__temp50, ____temp50Size,6,__temp51); ! +! ! +! d2d0OpRcd2(__temp51, ____temp51Size,4,__temp52); ! +! ! +! d2d2OpCcd2(__temp49, ____temp49Size,__temp52, ____temp52Size,__te! +! mp53); ! +! ! +! d0d0OpRcd2(43.5,1,__temp54); ! +! ! +! d2d0OpRcd2(__temp54, ____temp54Size,9.3,__temp55); ! +! ! +! d2d0OpRcd2(__temp55, ____temp55Size,1,__temp56); ! +! ! +! d2d2OpCcd2(__temp53, ____temp53Size,__temp56, ____temp56Size,__te! +! mp57); ! +! ! +! d0d0OpRcd2(14,15,__temp58); ! +! ! +! d2d0OpRcd2(__temp58, ____temp58Size,2,__temp59); ! +! ! +! d2d0OpRcd2(__temp59, ____temp59Size,6,__temp60); ! +! ! +! d0d0OpRcd2(1,2,__temp61); ! +! ! +! d2d0OpRcd2(__temp61, ____temp61Size,6,__temp62); ! +! ! +! d2d0OpRcd2(__temp62, ____temp62Size,4,__temp63); ! +! ! +! d2d2OpCcd2(__temp60, ____temp60Size,__temp63, ____temp63Size,__te! +! mp64); ! +! ! +! d0d0OpRcd2(48.5,3,__temp65); ! +! ! +! d2d0OpRcd2(__temp65, ____temp65Size,9.3,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,1,__temp67); ! +! ! +! d2d2OpCcd2(__temp64, ____temp64Size,__temp67, ____temp67Size,__te! +! mp68); ! +! ! +! d2z0OpStarz2(__temp68, ____temp68Size,DoubleComplex(0,1),__temp69)! +! ; ! +! ! +! d2z2OpPlusz2(__temp57, ____temp57Size,__temp69, ____temp69Size,f)! +! ; ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(f)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftshiftz2(f, __fSize,__temp70); ! +! ! +! ans13 = z2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(f , 1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftshiftz2(f, __fSize,1,__temp71); ! +! ! +! ans14 = z2dispd0(__temp71, ____temp71Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fftshift(f , 2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftshiftz2(f, __fSize,2,__temp72); ! +! ! +! ans15 = z2dispd0(__temp72, ____temp72Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(fftshift(f , "all")); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_FFTShift.sci.tst b/tests/unit_tests/double/test_FFTShift.sci.tst new file mode 100644 index 0000000..e4f1fae --- /dev/null +++ b/tests/unit_tests/double/test_FFTShift.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_FFTShift.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Fft.sci b/tests/unit_tests/double/test_Fft.sci new file mode 100644 index 0000000..e44183a --- /dev/null +++ b/tests/unit_tests/double/test_Fft.sci @@ -0,0 +1,172 @@ +function test_Fft() + +disp(fft(4.4)) +disp(fft(%i + 3.4)) + + +// one input + a = [10 1 15 3.5 ]; //d2Fftz2 + disp(fft(a)); + disp(""); + b = [25 3.6]; // d2Fftd2 + disp(fft(b)); + disp(""); + c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(c)); + disp(""); + // pure imaginary + d = [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(fft(d)); + disp(""); + e = [25 3.6]*%i; // z2Fftd2 + disp(fft(e)); + disp(""); + f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(f)); + disp(""); + // full complex + + g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(fft(g)); + disp(""); + h = b + [25 3.6]*%i; // z2Fftd2 + disp(fft(h)); + disp(""); + j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(fft(j)); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// two output +// call ifft + disp(fft(a,1)); + disp(""); + disp(fft(b,1)); + disp(""); + disp(fft(c,1)); + disp(""); + disp(fft(d,1)); + disp(""); + disp(fft(e,1)); + disp(""); + disp(fft(f,1)); + disp(""); + // full complex + disp(fft(g,1)); + disp(""); + disp(fft(h,1)); + disp(""); + disp(fft(j,1)); + disp(""); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// + disp(fft(a,-1)); + disp(""); + disp(fft(b,-1)); + disp(""); + disp(fft(c,-1)); + disp(""); + disp(fft(d,-1)); + disp(""); + disp(fft(e,-1)); + disp(""); + disp(fft(f,-1)); + disp(""); + // full complex + disp(fft(g,-1)); + disp(""); + disp(fft(h,-1)); + disp(""); + disp(fft(j,-1)); + disp(""); + + +// ******************** +// MATRIX +// ******************** +// one input + aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + disp(fft(aa)); + disp(""); + bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + disp(fft(bb)); + disp(""); + cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + disp(fft(cc)); + disp(""); + // pure imaginary + dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + disp(fft(dd)); + disp(""); + ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + disp(fft(ee)); + disp(""); + ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + + disp(fft(ff)); + disp(""); + // full complex + + gg = aa + dd; //z2Fftz2 + disp(fft(gg)); + disp(""); + hh = bb + ee; // z2Fftd2 + disp(fft(hh)); + disp(""); + jj= cc + ff + disp(fft(jj)); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// two output +// call ifft + disp(fft(aa,1)); + disp(""); + disp(fft(bb,1)); + disp(""); + disp(fft(cc,1)); + disp(""); + disp(fft(dd,1)); + disp(""); + disp(fft(ee,1)); + disp(""); + disp(fft(ff,1)); + disp(""); + // full complex + disp(fft(gg,1)); + disp(""); + disp(fft(hh,1)); + disp(""); + disp(fft(jj,1)); + disp(""); + disp(""); + disp("*******************"); + disp("*******************"); + disp(""); +// + disp(fft(aa,-1)); + disp(""); + disp(fft(bb,-1)); + disp(""); + disp(fft(cc,-1)); + disp(""); + disp(fft(dd,-1)); + disp(""); + disp(fft(ee,-1)); + disp(""); + disp(fft(ff,-1)); + disp(""); + // full complex + disp(fft(gg,-1)); + disp(""); + disp(fft(hh,-1)); + disp(""); + disp(fft(jj,-1)); + disp(""); + +endfunction diff --git a/tests/unit_tests/double/test_Fft.sci.dia.ref b/tests/unit_tests/double/test_Fft.sci.dia.ref new file mode 100644 index 0000000..448fc66 --- /dev/null +++ b/tests/unit_tests/double/test_Fft.sci.dia.ref @@ -0,0 +1,7610 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Fft.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 4.4 + + 3.4 + i + + 29.5 - 5. + 2.5i 20.5 - 5. - 2.5i + + + + 28.6 21.4 + + + + + column 1 to 3 + + 46956.66 37649.155 + 25942.95i 16159.453 + 43157.112i + + column 4 to 5 + + - 10147.782 + 44450.191i - 33654.98 + 30098.399i + + column 6 to 7 + + - 44774.991 + 7152.5438i - 40436.917 - 19350.167i + + column 8 to 9 + + - 23240.79 - 39351.935i 2481.4511 - 45156.176i + + column 10 to 11 + + 28842.369 - 36297.202i 43749.702 - 13985.054i + + column 12 to 13 + + 43749.702 + 13985.054i 28842.369 + 36297.202i + + column 14 to 15 + + 2481.4511 + 45156.176i - 23240.79 + 39351.935i + + column 16 to 17 + + - 40436.917 + 19350.167i - 44774.991 - 7152.5438i + + column 18 to 19 + + - 33654.98 - 30098.399i - 10147.782 - 44450.191i + + column 20 to 21 + + 16159.453 - 43157.112i 37649.155 - 25942.95i + + + + 29.5i - 2.5 - 5.i 20.5i 2.5 - 5.i + + + + 28.6i 21.4i + + + + + column 1 to 3 + + 46956.66i - 25942.95 + 37649.155i - 43157.112 + 16159.453i + + column 4 to 5 + + - 44450.191 - 10147.782i - 30098.399 - 33654.98i + + column 6 to 7 + + - 7152.5438 - 44774.991i 19350.167 - 40436.917i + + column 8 to 9 + + 39351.935 - 23240.79i 45156.176 + 2481.4511i + + column 10 to 11 + + 36297.202 + 28842.369i 13985.054 + 43749.702i + + column 12 to 13 + + - 13985.054 + 43749.702i - 36297.202 + 28842.369i + + column 14 to 15 + + - 45156.176 + 2481.4511i - 39351.935 - 23240.79i + + column 16 to 17 + + - 19350.167 - 40436.917i 7152.5438 - 44774.991i + + column 18 to 19 + + 30098.399 - 33654.98i 44450.191 - 10147.782i + + column 20 to 21 + + 43157.112 + 16159.453i 25942.95 + 37649.155i + + + + 29.5 + 29.5i - 7.5 - 2.5i 20.5 + 20.5i - 2.5 - 7.5i + + + + 28.6 + 28.6i 21.4 + 21.4i + + + + + column 1 to 2 + + 46956.66 + 46956.66i 11706.205 + 63592.105i + + column 3 to 4 + + - 26997.659 + 59316.565i - 54597.974 + 34302.409i + + column 5 to 6 + + - 63753.379 - 3556.5812i - 51927.535 - 37622.447i + + column 7 to 8 + + - 21086.749 - 59787.084i 16111.145 - 62592.725i + + column 9 to 10 + + 47637.627 - 42674.724i 65139.571 - 7454.8327i + + column 11 to 12 + + 57734.756 + 29764.648i 29764.648 + 57734.756i + + column 13 to 14 + + - 7454.8327 + 65139.571i - 42674.724 + 47637.627i + + column 15 to 16 + + - 62592.725 + 16111.145i - 59787.084 - 21086.749i + + column 17 to 18 + + - 37622.447 - 51927.535i - 3556.5812 - 63753.379i + + column 19 to 20 + + 34302.409 - 54597.974i 59316.565 - 26997.659i + + column 21 + + 63592.105 + 11706.205i + + + + ******************* + + ******************* + + + + 7.375 - 1.25 - 0.625i 5.125 - 1.25 + 0.625i + + + + 14.3 10.7 + + + + + column 1 to 3 + + 2236.0314 1792.8169 - 1235.3786i 769.49776 - 2055.1006i + + column 4 to 5 + + - 483.22773 - 2116.6758i - 1602.6181 - 1433.2571i + + column 6 to 7 + + - 2132.1424 - 340.59732i - 1925.5675 + 921.43654i + + column 8 to 9 + + - 1106.7043 + 1873.9016i 118.16434 + 2150.2941i + + column 10 to 11 + + 1373.4461 + 1728.4382i 2083.3191 + 665.95496i + + column 12 to 13 + + 2083.3191 - 665.95496i 1373.4461 - 1728.4382i + + column 14 to 15 + + 118.16434 - 2150.2941i - 1106.7043 - 1873.9016i + + column 16 to 17 + + - 1925.5675 - 921.43654i - 2132.1424 + 340.59732i + + column 18 to 19 + + - 1602.6181 + 1433.2571i - 483.22773 + 2116.6758i + + column 20 to 21 + + 769.49776 + 2055.1006i 1792.8169 + 1235.3786i + + + + 7.375i 0.625 - 1.25i 5.125i - 0.625 - 1.25i + + + + 14.3i 10.7i + + + + + column 1 to 3 + + 2236.0314i 1235.3786 + 1792.8169i 2055.1006 + 769.49776i + + column 4 to 5 + + 2116.6758 - 483.22773i 1433.2571 - 1602.6181i + + column 6 to 7 + + 340.59732 - 2132.1424i - 921.43654 - 1925.5675i + + column 8 to 9 + + - 1873.9016 - 1106.7043i - 2150.2941 + 118.16434i + + column 10 to 11 + + - 1728.4382 + 1373.4461i - 665.95496 + 2083.3191i + + column 12 to 13 + + 665.95496 + 2083.3191i 1728.4382 + 1373.4461i + + column 14 to 15 + + 2150.2941 + 118.16434i 1873.9016 - 1106.7043i + + column 16 to 17 + + 921.43654 - 1925.5675i - 340.59732 - 2132.1424i + + column 18 to 19 + + - 1433.2571 - 1602.6181i - 2116.6758 - 483.22773i + + column 20 to 21 + + - 2055.1006 + 769.49776i - 1235.3786 + 1792.8169i + + + + + column 1 to 3 + + 7.375 + 7.375i - 0.625 - 1.875i 5.125 + 5.125i + + column 4 + + - 1.875 - 0.625i + + + + 14.3 + 14.3i 10.7 + 10.7i + + + + + column 1 to 2 + + 2236.0314 + 2236.0314i 3028.1955 + 557.43835i + + column 3 to 4 + + 2824.5983 - 1285.6028i 1633.448 - 2599.9035i + + column 5 to 6 + + - 169.36101 - 3035.8752i - 1791.5451 - 2472.7397i + + column 7 to 8 + + - 2847.004 - 1004.1309i - 2980.6059 + 767.19736i + + column 9 to 10 + + - 2032.1297 + 2268.4584i - 354.99203 + 3101.8843i + + column 11 to 12 + + 1417.3642 + 2749.2741i 2749.2741 + 1417.3642i + + column 13 to 14 + + 3101.8843 - 354.99203i 2268.4584 - 2032.1297i + + column 15 to 16 + + 767.19736 - 2980.6059i - 1004.1309 - 2847.004i + + column 17 to 18 + + - 2472.7397 - 1791.5451i - 3035.8752 - 169.36101i + + column 19 to 20 + + - 2599.9035 + 1633.448i - 1285.6028 + 2824.5983i + + column 21 + + 557.43835 + 3028.1955i + + + + + + ******************* + + ******************* + + + + 29.5 - 5. + 2.5i 20.5 - 5. - 2.5i + + + + 28.6 21.4 + + + + + column 1 to 3 + + 46956.66 37649.155 + 25942.95i 16159.453 + 43157.112i + + column 4 to 5 + + - 10147.782 + 44450.191i - 33654.98 + 30098.399i + + column 6 to 7 + + - 44774.991 + 7152.5438i - 40436.917 - 19350.167i + + column 8 to 9 + + - 23240.79 - 39351.935i 2481.4511 - 45156.176i + + column 10 to 11 + + 28842.369 - 36297.202i 43749.702 - 13985.054i + + column 12 to 13 + + 43749.702 + 13985.054i 28842.369 + 36297.202i + + column 14 to 15 + + 2481.4511 + 45156.176i - 23240.79 + 39351.935i + + column 16 to 17 + + - 40436.917 + 19350.167i - 44774.991 - 7152.5438i + + column 18 to 19 + + - 33654.98 - 30098.399i - 10147.782 - 44450.191i + + column 20 to 21 + + 16159.453 - 43157.112i 37649.155 - 25942.95i + + + + 29.5i - 2.5 - 5.i 20.5i 2.5 - 5.i + + + + 28.6i 21.4i + + + + + column 1 to 3 + + 46956.66i - 25942.95 + 37649.155i - 43157.112 + 16159.453i + + column 4 to 5 + + - 44450.191 - 10147.782i - 30098.399 - 33654.98i + + column 6 to 7 + + - 7152.5438 - 44774.991i 19350.167 - 40436.917i + + column 8 to 9 + + 39351.935 - 23240.79i 45156.176 + 2481.4511i + + column 10 to 11 + + 36297.202 + 28842.369i 13985.054 + 43749.702i + + column 12 to 13 + + - 13985.054 + 43749.702i - 36297.202 + 28842.369i + + column 14 to 15 + + - 45156.176 + 2481.4511i - 39351.935 - 23240.79i + + column 16 to 17 + + - 19350.167 - 40436.917i 7152.5438 - 44774.991i + + column 18 to 19 + + 30098.399 - 33654.98i 44450.191 - 10147.782i + + column 20 to 21 + + 43157.112 + 16159.453i 25942.95 + 37649.155i + + + + 29.5 + 29.5i - 7.5 - 2.5i 20.5 + 20.5i - 2.5 - 7.5i + + + + 28.6 + 28.6i 21.4 + 21.4i + + + + + column 1 to 2 + + 46956.66 + 46956.66i 11706.205 + 63592.105i + + column 3 to 4 + + - 26997.659 + 59316.565i - 54597.974 + 34302.409i + + column 5 to 6 + + - 63753.379 - 3556.5812i - 51927.535 - 37622.447i + + column 7 to 8 + + - 21086.749 - 59787.084i 16111.145 - 62592.725i + + column 9 to 10 + + 47637.627 - 42674.724i 65139.571 - 7454.8327i + + column 11 to 12 + + 57734.756 + 29764.648i 29764.648 + 57734.756i + + column 13 to 14 + + - 7454.8327 + 65139.571i - 42674.724 + 47637.627i + + column 15 to 16 + + - 62592.725 + 16111.145i - 59787.084 - 21086.749i + + column 17 to 18 + + - 37622.447 - 51927.535i - 3556.5812 - 63753.379i + + column 19 to 20 + + 34302.409 - 54597.974i 59316.565 - 26997.659i + + column 21 + + 63592.105 + 11706.205i + + + + 52.5 - 9. + 5.5i 25.5 - 9. - 5.5i + 6.5 - 1. - 0.5i 15.5 - 1. + 0.5i + + + + 35.8 22.2 + 21.4 20.6 + + + + + column 1 to 3 + + 113488.56 91298.041 + 63197.662i 40252.729 + 103897.63i + - 19575.24 - 15999.73 - 11311.762i - 7933.8229 - 17583.403i + + column 4 to 5 + + - 24798.095 + 108809.32i - 81891.1 + 73933.22i + 4502.5298 - 19908.937i 14581.14 - 13736.422i + + column 6 to 7 + + - 109154.53 + 17344.19i - 99678.848 - 47906.484i + 19604.55 - 3039.1025i 18805.015 + 9206.1497i + + column 8 to 9 + + - 55618.56 - 96028.292i 6651.8052 - 110263.77i + 9136.98 + 17324.423i - 1688.903 + 19951.423i + + column 10 to 11 + + 70200.163 - 88119.902i 106319.62 - 32925.274i + - 12515.425 + 15525.498i - 18820.214 + 4955.1655i + + column 12 to 13 + + 106319.62 + 32925.274i 70200.163 + 88119.902i + - 18820.214 - 4955.1655i - 12515.425 - 15525.498i + + column 14 to 15 + + 6651.8052 + 110263.77i - 55618.56 + 96028.292i + - 1688.903 - 19951.423i 9136.98 - 17324.423i + + column 16 to 17 + + - 99678.848 + 47906.484i - 109154.53 - 17344.19i + 18805.015 - 9206.1497i 19604.55 + 3039.1025i + + column 18 to 19 + + - 81891.1 - 73933.22i - 24798.095 - 108809.32i + 14581.14 + 13736.422i 4502.5298 + 19908.937i + + column 20 to 21 + + 40252.729 - 103897.63i 91298.041 - 63197.662i + - 7933.8229 + 17583.403i - 15999.73 + 11311.762i + + + + 51.5i 2.5 - 6.i 20.5i - 2.5 - 6.i + 7.5i - 7.5 - 4.i 20.5i 7.5 - 4.i + + + + 38.5i 19.5i + 18.7i 23.3i + + + + + column 1 to 3 + + 113488.56i - 63197.662 + 91298.041i - 103897.63 + 40252.729i + - 19575.24i 11311.762 - 15999.73i 17583.403 - 7933.8229i + + column 4 to 5 + + - 108809.32 - 24798.095i - 73933.22 - 81891.1i + 19908.937 + 4502.5298i 13736.422 + 14581.14i + + column 6 to 7 + + - 17344.19 - 109154.53i 47906.484 - 99678.848i + 3039.1025 + 19604.55i - 9206.1497 + 18805.015i + + column 8 to 9 + + 96028.292 - 55618.56i 110263.77 + 6651.8052i + - 17324.423 + 9136.98i - 19951.423 - 1688.903i + + column 10 to 11 + + 88119.902 + 70200.163i 32925.274 + 106319.62i + - 15525.498 - 12515.425i - 4955.1655 - 18820.214i + + column 12 to 13 + + - 32925.274 + 106319.62i - 88119.902 + 70200.163i + 4955.1655 - 18820.214i 15525.498 - 12515.425i + + column 14 to 15 + + - 110263.77 + 6651.8052i - 96028.292 - 55618.56i + 19951.423 - 1688.903i 17324.423 + 9136.98i + + column 16 to 17 + + - 47906.484 - 99678.848i 17344.19 - 109154.53i + 9206.1497 + 18805.015i - 3039.1025 + 19604.55i + + column 18 to 19 + + 73933.22 - 81891.1i 108809.32 - 24798.095i + - 13736.422 + 14581.14i - 19908.937 + 4502.5298i + + column 20 to 21 + + 103897.63 + 40252.729i 63197.662 + 91298.041i + - 17583.403 - 7933.8229i - 11311.762 - 15999.73i + + + + 52.5 + 51.5i - 6.5 - 0.5i 25.5 + 20.5i - 11.5 - 11.5i + 6.5 + 7.5i - 8.5 - 4.5i 15.5 + 20.5i 6.5 - 3.5i + + + + 35.8 + 38.5i 22.2 + 19.5i + 21.4 + 18.7i 20.6 + 23.3i + + + + + column 1 to 2 + + 113488.56 + 113488.56i 28100.379 + 154495.7i + - 19575.24 - 19575.24i - 4687.9679 - 27311.493i + + column 3 to 4 + + - 63644.897 + 144150.35i - 133607.41 + 84011.224i + 9649.5797 - 25517.226i 24411.466 - 15406.407i + + column 5 to 6 + + - 155824.32 - 7957.8803i - 126498.72 - 91810.342i + 28317.561 + 844.71798i 22643.653 + 16565.448i + + column 7 to 8 + + - 51772.364 - 147585.33i 40409.732 - 151646.85i + 9598.8654 + 28011.165i - 8187.4425 + 26461.403i + + column 9 to 10 + + 116915.58 - 103611.97i 158320.06 - 17919.739i + - 21640.326 + 18262.52i - 28040.923 + 3010.0734i + + column 11 to 12 + + 139244.89 + 73394.344i 73394.344 + 139244.89i + - 23775.379 - 13865.048i - 13865.048 - 23775.379i + + column 13 to 14 + + - 17919.739 + 158320.06i - 103611.97 + 116915.58i + 3010.0734 - 28040.923i 18262.52 - 21640.326i + + column 15 to 16 + + - 151646.85 + 40409.732i - 147585.33 - 51772.364i + 26461.403 - 8187.4425i 28011.165 + 9598.8654i + + column 17 to 18 + + - 91810.342 - 126498.72i - 7957.8803 - 155824.32i + 16565.448 + 22643.653i 844.71798 + 28317.561i + + column 19 to 20 + + 84011.224 - 133607.41i 144150.35 - 63644.897i + - 15406.407 + 24411.466i - 25517.226 + 9649.5797i + + column 21 + + 154495.7 + 28100.379i + - 27311.493 - 4687.9679i + + + + ******************* + + ******************* + + + + 6.5625 - 1.125 - 0.6875i 3.1875 - 1.125 + 0.6875i + 0.8125 - 0.125 + 0.0625i 1.9375 - 0.125 - 0.0625i + + + + 8.95 5.55 + 5.35 5.15 + + + + + column 1 to 3 + + 2702.1086 2173.7629 - 1504.7062i 958.3983 - 2473.753i + - 466.07714 - 380.94596 + 269.32767i - 188.90055 + 418.65244i + + column 4 to 5 + + - 590.43082 - 2590.6981i - 1949.7881 - 1760.3148i + 107.20309 + 474.0223i 347.16999 + 327.05766i + + column 6 to 7 + + - 2598.9174 - 412.95691i - 2373.3059 + 1140.6306i + 466.775 + 72.359584i 447.73845 - 219.19404i + + column 8 to 9 + + - 1324.2514 + 2286.3879i 158.37631 + 2625.3279i + 217.54714 - 412.48625i - 40.211977 - 475.03387i + + column 10 to 11 + + 1671.4325 + 2098.0929i 2531.4195 + 783.93509i + - 297.98631 - 369.65472i - 448.10032 - 117.98013i + + column 12 to 13 + + 2531.4195 - 783.93509i 1671.4325 - 2098.0929i + - 448.10032 + 117.98013i - 297.98631 + 369.65472i + + column 14 to 15 + + 158.37631 - 2625.3279i - 1324.2514 - 2286.3879i + - 40.211977 + 475.03387i 217.54714 + 412.48625i + + column 16 to 17 + + - 2373.3059 - 1140.6306i - 2598.9174 + 412.95691i + 447.73845 + 219.19404i 466.775 - 72.359584i + + column 18 to 19 + + - 1949.7881 + 1760.3148i - 590.43082 + 2590.6981i + 347.16999 - 327.05766i 107.20309 - 474.0223i + + column 20 to 21 + + 958.3983 + 2473.753i 2173.7629 + 1504.7062i + - 188.90055 - 418.65244i - 380.94596 - 269.32767i + + + + 6.4375i - 0.3125 - 0.75i 2.5625i 0.3125 - 0.75i + 0.9375i 0.9375 - 0.5i 2.5625i - 0.9375 - 0.5i + + + + 9.625i 4.875i + 4.675i 5.825i + + + + + column 1 to 3 + + 2702.1086i 1504.7062 + 2173.7629i 2473.753 + 958.3983i + - 466.07714i - 269.32767 - 380.94596i - 418.65244 - 188.90055i + + column 4 to 5 + + 2590.6981 - 590.43082i 1760.3148 - 1949.7881i + - 474.0223 + 107.20309i - 327.05766 + 347.16999i + + column 6 to 7 + + 412.95691 - 2598.9174i - 1140.6306 - 2373.3059i + - 72.359584 + 466.775i 219.19404 + 447.73845i + + column 8 to 9 + + - 2286.3879 - 1324.2514i - 2625.3279 + 158.37631i + 412.48625 + 217.54714i 475.03387 - 40.211977i + + column 10 to 11 + + - 2098.0929 + 1671.4325i - 783.93509 + 2531.4195i + 369.65472 - 297.98631i 117.98013 - 448.10032i + + column 12 to 13 + + 783.93509 + 2531.4195i 2098.0929 + 1671.4325i + - 117.98013 - 448.10032i - 369.65472 - 297.98631i + + column 14 to 15 + + 2625.3279 + 158.37631i 2286.3879 - 1324.2514i + - 475.03387 - 40.211977i - 412.48625 + 217.54714i + + column 16 to 17 + + 1140.6306 - 2373.3059i - 412.95691 - 2598.9174i + - 219.19404 + 447.73845i 72.359584 + 466.775i + + column 18 to 19 + + - 1760.3148 - 1949.7881i - 2590.6981 - 590.43082i + 327.05766 + 347.16999i 474.0223 + 107.20309i + + column 20 to 21 + + - 2473.753 + 958.3983i - 1504.7062 + 2173.7629i + 418.65244 - 188.90055i 269.32767 - 380.94596i + + + + + column 1 to 3 + + 6.5625 + 6.4375i - 1.4375 - 1.4375i 3.1875 + 2.5625i + 0.8125 + 0.9375i 0.8125 - 0.4375i 1.9375 + 2.5625i + + column 4 + + - 0.8125 - 0.0625i + - 1.0625 - 0.5625i + + + + 8.95 + 9.625i 5.55 + 4.875i + 5.35 + 4.675i 5.15 + 5.825i + + + + + column 1 to 2 + + 2702.1086 + 2702.1086i 3678.4691 + 669.05664i + - 466.07714 - 466.07714i - 650.27363 - 111.61828i + + column 3 to 4 + + 3432.1513 - 1515.3547i 2000.2672 - 3181.1289i + - 607.55299 + 229.7519i - 366.81921 + 581.22539i + + column 5 to 6 + + - 189.47334 - 3710.1029i - 2185.9605 - 3011.8743i + 20.112333 + 674.22765i 394.41542 + 539.13459i + + column 7 to 8 + + - 3513.9365 - 1232.6753i - 3610.6393 + 962.13647i + 666.93249 + 228.54441i 630.03339 - 194.93911i + + column 9 to 10 + + - 2466.9516 + 2783.7043i - 426.66045 + 3769.5253i + 434.8219 - 515.24585i 71.668414 - 667.64102i + + column 11 to 12 + + 1747.4844 + 3315.3546i 3315.3546 + 1747.4844i + - 330.12019 - 566.08045i - 566.08045 - 330.12019i + + column 13 to 14 + + 3769.5253 - 426.66045i 2783.7043 - 2466.9516i + - 667.64102 + 71.668414i - 515.24585 + 434.8219i + + column 15 to 16 + + 962.13647 - 3610.6393i - 1232.6753 - 3513.9365i + - 194.93911 + 630.03339i 228.54441 + 666.93249i + + column 17 to 18 + + - 3011.8743 - 2185.9605i - 3710.1029 - 189.47334i + 539.13459 + 394.41542i 674.22765 + 20.112333i + + column 19 to 20 + + - 3181.1289 + 2000.2672i - 1515.3547 + 3432.1513i + 581.22539 - 366.81921i 229.7519 - 607.55299i + + column 21 + + 669.05664 + 3678.4691i + - 111.61828 - 650.27363i + + + + + + ******************* + + ******************* + + + + 52.5 - 9. + 5.5i 25.5 - 9. - 5.5i + 6.5 - 1. - 0.5i 15.5 - 1. + 0.5i + + + + 35.8 22.2 + 21.4 20.6 + + + + + column 1 to 3 + + 113488.56 91298.041 + 63197.662i 40252.729 + 103897.63i + - 19575.24 - 15999.73 - 11311.762i - 7933.8229 - 17583.403i + + column 4 to 5 + + - 24798.095 + 108809.32i - 81891.1 + 73933.22i + 4502.5298 - 19908.937i 14581.14 - 13736.422i + + column 6 to 7 + + - 109154.53 + 17344.19i - 99678.848 - 47906.484i + 19604.55 - 3039.1025i 18805.015 + 9206.1497i + + column 8 to 9 + + - 55618.56 - 96028.292i 6651.8052 - 110263.77i + 9136.98 + 17324.423i - 1688.903 + 19951.423i + + column 10 to 11 + + 70200.163 - 88119.902i 106319.62 - 32925.274i + - 12515.425 + 15525.498i - 18820.214 + 4955.1655i + + column 12 to 13 + + 106319.62 + 32925.274i 70200.163 + 88119.902i + - 18820.214 - 4955.1655i - 12515.425 - 15525.498i + + column 14 to 15 + + 6651.8052 + 110263.77i - 55618.56 + 96028.292i + - 1688.903 - 19951.423i 9136.98 - 17324.423i + + column 16 to 17 + + - 99678.848 + 47906.484i - 109154.53 - 17344.19i + 18805.015 - 9206.1497i 19604.55 + 3039.1025i + + column 18 to 19 + + - 81891.1 - 73933.22i - 24798.095 - 108809.32i + 14581.14 + 13736.422i 4502.5298 + 19908.937i + + column 20 to 21 + + 40252.729 - 103897.63i 91298.041 - 63197.662i + - 7933.8229 + 17583.403i - 15999.73 + 11311.762i + + + + 51.5i 2.5 - 6.i 20.5i - 2.5 - 6.i + 7.5i - 7.5 - 4.i 20.5i 7.5 - 4.i + + + + 38.5i 19.5i + 18.7i 23.3i + + + + + column 1 to 3 + + 113488.56i - 63197.662 + 91298.041i - 103897.63 + 40252.729i + - 19575.24i 11311.762 - 15999.73i 17583.403 - 7933.8229i + + column 4 to 5 + + - 108809.32 - 24798.095i - 73933.22 - 81891.1i + 19908.937 + 4502.5298i 13736.422 + 14581.14i + + column 6 to 7 + + - 17344.19 - 109154.53i 47906.484 - 99678.848i + 3039.1025 + 19604.55i - 9206.1497 + 18805.015i + + column 8 to 9 + + 96028.292 - 55618.56i 110263.77 + 6651.8052i + - 17324.423 + 9136.98i - 19951.423 - 1688.903i + + column 10 to 11 + + 88119.902 + 70200.163i 32925.274 + 106319.62i + - 15525.498 - 12515.425i - 4955.1655 - 18820.214i + + column 12 to 13 + + - 32925.274 + 106319.62i - 88119.902 + 70200.163i + 4955.1655 - 18820.214i 15525.498 - 12515.425i + + column 14 to 15 + + - 110263.77 + 6651.8052i - 96028.292 - 55618.56i + 19951.423 - 1688.903i 17324.423 + 9136.98i + + column 16 to 17 + + - 47906.484 - 99678.848i 17344.19 - 109154.53i + 9206.1497 + 18805.015i - 3039.1025 + 19604.55i + + column 18 to 19 + + 73933.22 - 81891.1i 108809.32 - 24798.095i + - 13736.422 + 14581.14i - 19908.937 + 4502.5298i + + column 20 to 21 + + 103897.63 + 40252.729i 63197.662 + 91298.041i + - 17583.403 - 7933.8229i - 11311.762 - 15999.73i + + + + 52.5 + 51.5i - 6.5 - 0.5i 25.5 + 20.5i - 11.5 - 11.5i + 6.5 + 7.5i - 8.5 - 4.5i 15.5 + 20.5i 6.5 - 3.5i + + + + 35.8 + 38.5i 22.2 + 19.5i + 21.4 + 18.7i 20.6 + 23.3i + + + + + column 1 to 2 + + 113488.56 + 113488.56i 28100.379 + 154495.7i + - 19575.24 - 19575.24i - 4687.9679 - 27311.493i + + column 3 to 4 + + - 63644.897 + 144150.35i - 133607.41 + 84011.224i + 9649.5797 - 25517.226i 24411.466 - 15406.407i + + column 5 to 6 + + - 155824.32 - 7957.8803i - 126498.72 - 91810.342i + 28317.561 + 844.71798i 22643.653 + 16565.448i + + column 7 to 8 + + - 51772.364 - 147585.33i 40409.732 - 151646.85i + 9598.8654 + 28011.165i - 8187.4425 + 26461.403i + + column 9 to 10 + + 116915.58 - 103611.97i 158320.06 - 17919.739i + - 21640.326 + 18262.52i - 28040.923 + 3010.0734i + + column 11 to 12 + + 139244.89 + 73394.344i 73394.344 + 139244.89i + - 23775.379 - 13865.048i - 13865.048 - 23775.379i + + column 13 to 14 + + - 17919.739 + 158320.06i - 103611.97 + 116915.58i + 3010.0734 - 28040.923i 18262.52 - 21640.326i + + column 15 to 16 + + - 151646.85 + 40409.732i - 147585.33 - 51772.364i + 26461.403 - 8187.4425i 28011.165 + 9598.8654i + + column 17 to 18 + + - 91810.342 - 126498.72i - 7957.8803 - 155824.32i + 16565.448 + 22643.653i 844.71798 + 28317.561i + + column 19 to 20 + + 84011.224 - 133607.41i 144150.35 - 63644.897i + - 15406.407 + 24411.466i - 25517.226 + 9649.5797i + + column 21 + + 154495.7 + 28100.379i + - 27311.493 - 4687.9679i + + + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Fft" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Fft/test_Fft_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Fft/test_Fft_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(4.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(%i + 3.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(a)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [25 3.6]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456 + 56 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(c)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(d)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(f)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(g)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(h)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2. + 36 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(j)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // two output + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // call ifft + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(a,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(b,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(c,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(d,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(e,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(f,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(g,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(h,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(j,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(a,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(b,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(c,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(d,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(e,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(f,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(g,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(h,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(j,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // MATRIX + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(aa)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(bb)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45 + 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554 + 6 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(cc)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(dd)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ee)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 + 65546 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ff)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: gg = aa + dd; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(gg)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: hh = bb + ee; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(hh)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: jj= cc + ff + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(jj)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // two output + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // call ifft + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(aa,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(bb,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(cc,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(dd,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ee,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ff,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(gg,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(hh,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(jj,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(aa,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(bb,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(cc,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(dd,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ee,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(ff,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(gg,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(hh,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(fft(jj,-1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(""); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Fft() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! char __temp7[1*1] = {""}; ! +! ! +! int ____temp7Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double b[1 * 2]; ! +! ! +! int __bSize[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp9[1*1] = {""}; ! +! ! +! int ____temp9Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 4]; ! +! ! +! int ____temp12Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp13[1 * 5]; ! +! ! +! int ____temp13Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp14[1 * 6]; ! +! ! +! int ____temp14Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp15[1 * 7]; ! +! ! +! int ____temp15Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp16[1 * 8]; ! +! ! +! int ____temp16Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp17[1 * 9]; ! +! ! +! int ____temp17Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp18[1 * 10]; ! +! ! +! int ____temp18Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp19[1 * 11]; ! +! ! +! int ____temp19Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp20[1 * 12]; ! +! ! +! int ____temp20Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp21[1 * 13]; ! +! ! +! int ____temp21Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp22[1 * 14]; ! +! ! +! int ____temp22Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp23[1 * 15]; ! +! ! +! int ____temp23Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp24[1 * 16]; ! +! ! +! int ____temp24Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp25[1 * 17]; ! +! ! +! int ____temp25Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp26[1 * 18]; ! +! ! +! int ____temp26Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp27[1 * 19]; ! +! ! +! int ____temp27Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp28[1 * 20]; ! +! ! +! int ____temp28Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double c[1 * 21]; ! +! ! +! int __cSize[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp29[1 * 21]; ! +! ! +! int ____temp29Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! char __temp30[1*1] = {""}; ! +! ! +! int ____temp30Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp31[1 * 2]; ! +! ! +! int ____temp31Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp32[1 * 3]; ! +! ! +! int ____temp32Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp33[1 * 4]; ! +! ! +! int ____temp33Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex d[1 * 4]; ! +! ! +! int __dSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp34[1 * 4]; ! +! ! +! int ____temp34Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! char __temp35[1*1] = {""}; ! +! ! +! int ____temp35Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex e[1 * 2]; ! +! ! +! int __eSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! char __temp38[1*1] = {""}; ! +! ! +! int ____temp38Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[1 * 3]; ! +! ! +! int ____temp40Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp41[1 * 4]; ! +! ! +! int ____temp41Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp42[1 * 5]; ! +! ! +! int ____temp42Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp43[1 * 6]; ! +! ! +! int ____temp43Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp44[1 * 7]; ! +! ! +! int ____temp44Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp45[1 * 8]; ! +! ! +! int ____temp45Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp46[1 * 9]; ! +! ! +! int ____temp46Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp47[1 * 10]; ! +! ! +! int ____temp47Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp48[1 * 11]; ! +! ! +! int ____temp48Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp49[1 * 12]; ! +! ! +! int ____temp49Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp50[1 * 13]; ! +! ! +! int ____temp50Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp51[1 * 14]; ! +! ! +! int ____temp51Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp52[1 * 15]; ! +! ! +! int ____temp52Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp53[1 * 16]; ! +! ! +! int ____temp53Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp54[1 * 17]; ! +! ! +! int ____temp54Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp55[1 * 18]; ! +! ! +! int ____temp55Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp56[1 * 19]; ! +! ! +! int ____temp56Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp57[1 * 20]; ! +! ! +! int ____temp57Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp58[1 * 21]; ! +! ! +! int ____temp58Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex f[1 * 21]; ! +! ! +! int __fSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp59[1 * 21]; ! +! ! +! int ____temp59Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! char __temp60[1*1] = {""}; ! +! ! +! int ____temp60Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp61[1 * 2]; ! +! ! +! int ____temp61Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp62[1 * 3]; ! +! ! +! int ____temp62Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp63[1 * 4]; ! +! ! +! int ____temp63Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 4]; ! +! ! +! int ____temp64Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex g[1 * 4]; ! +! ! +! int __gSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 4]; ! +! ! +! int ____temp65Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! char __temp66[1*1] = {""}; ! +! ! +! int ____temp66Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp67[1 * 2]; ! +! ! +! int ____temp67Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp68[1 * 2]; ! +! ! +! int ____temp68Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex h[1 * 2]; ! +! ! +! int __hSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp69[1 * 2]; ! +! ! +! int ____temp69Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! char __temp70[1*1] = {""}; ! +! ! +! int ____temp70Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp72[1 * 3]; ! +! ! +! int ____temp72Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp73[1 * 4]; ! +! ! +! int ____temp73Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp74[1 * 5]; ! +! ! +! int ____temp74Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp75[1 * 6]; ! +! ! +! int ____temp75Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp76[1 * 7]; ! +! ! +! int ____temp76Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp77[1 * 8]; ! +! ! +! int ____temp77Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp78[1 * 9]; ! +! ! +! int ____temp78Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp79[1 * 10]; ! +! ! +! int ____temp79Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp80[1 * 11]; ! +! ! +! int ____temp80Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp81[1 * 12]; ! +! ! +! int ____temp81Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp82[1 * 13]; ! +! ! +! int ____temp82Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp83[1 * 14]; ! +! ! +! int ____temp83Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp84[1 * 15]; ! +! ! +! int ____temp84Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp85[1 * 16]; ! +! ! +! int ____temp85Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp86[1 * 17]; ! +! ! +! int ____temp86Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp87[1 * 18]; ! +! ! +! int ____temp87Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp88[1 * 19]; ! +! ! +! int ____temp88Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp89[1 * 20]; ! +! ! +! int ____temp89Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp90[1 * 21]; ! +! ! +! int ____temp90Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp91[1 * 21]; ! +! ! +! int ____temp91Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex j[1 * 21]; ! +! ! +! int __jSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp92[1 * 21]; ! +! ! +! int ____temp92Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! char __temp93[1*1] = {""}; ! +! ! +! int ____temp93Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! char __temp94[1*20] = {"*******************"}; ! +! ! +! int ____temp94Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! char __temp95[1*20] = {"*******************"}; ! +! ! +! int ____temp95Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! char __temp96[1*1] = {""}; ! +! ! +! int ____temp96Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! double __temp97[1 * 4]; ! +! ! +! int ____temp97Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! char __temp98[1*1] = {""}; ! +! ! +! int ____temp98Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! double __temp99[1 * 2]; ! +! ! +! int ____temp99Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! char __temp100[1*1] = {""}; ! +! ! +! int ____temp100Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! double __temp101[1 * 21]; ! +! ! +! int ____temp101Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! char __temp102[1*1] = {""}; ! +! ! +! int ____temp102Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! doubleComplex __temp103[1 * 4]; ! +! ! +! int ____temp103Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! char __temp104[1*1] = {""}; ! +! ! +! int ____temp104Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! doubleComplex __temp105[1 * 2]; ! +! ! +! int ____temp105Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! char __temp106[1*1] = {""}; ! +! ! +! int ____temp106Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! doubleComplex __temp107[1 * 21]; ! +! ! +! int ____temp107Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans34; ! +! ! +! ! +! ! +! char __temp108[1*1] = {""}; ! +! ! +! int ____temp108Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans35; ! +! ! +! ! +! ! +! doubleComplex __temp109[1 * 4]; ! +! ! +! int ____temp109Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans36; ! +! ! +! ! +! ! +! char __temp110[1*1] = {""}; ! +! ! +! int ____temp110Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans37; ! +! ! +! ! +! ! +! doubleComplex __temp111[1 * 2]; ! +! ! +! int ____temp111Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans38; ! +! ! +! ! +! ! +! char __temp112[1*1] = {""}; ! +! ! +! int ____temp112Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans39; ! +! ! +! ! +! ! +! doubleComplex __temp113[1 * 21]; ! +! ! +! int ____temp113Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans40; ! +! ! +! ! +! ! +! char __temp114[1*1] = {""}; ! +! ! +! int ____temp114Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans41; ! +! ! +! ! +! ! +! char __temp115[1*1] = {""}; ! +! ! +! int ____temp115Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans42; ! +! ! +! ! +! ! +! char __temp116[1*20] = {"*******************"}; ! +! ! +! int ____temp116Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans43; ! +! ! +! ! +! ! +! char __temp117[1*20] = {"*******************"}; ! +! ! +! int ____temp117Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans44; ! +! ! +! ! +! ! +! char __temp118[1*1] = {""}; ! +! ! +! int ____temp118Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans45; ! +! ! +! ! +! ! +! double __temp119[1 * 4]; ! +! ! +! int ____temp119Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans46; ! +! ! +! ! +! ! +! char __temp120[1*1] = {""}; ! +! ! +! int ____temp120Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans47; ! +! ! +! ! +! ! +! double __temp121[1 * 2]; ! +! ! +! int ____temp121Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans48; ! +! ! +! ! +! ! +! char __temp122[1*1] = {""}; ! +! ! +! int ____temp122Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans49; ! +! ! +! ! +! ! +! double __temp123[1 * 21]; ! +! ! +! int ____temp123Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans50; ! +! ! +! ! +! ! +! char __temp124[1*1] = {""}; ! +! ! +! int ____temp124Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans51; ! +! ! +! ! +! ! +! doubleComplex __temp125[1 * 4]; ! +! ! +! int ____temp125Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans52; ! +! ! +! ! +! ! +! char __temp126[1*1] = {""}; ! +! ! +! int ____temp126Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans53; ! +! ! +! ! +! ! +! doubleComplex __temp127[1 * 2]; ! +! ! +! int ____temp127Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans54; ! +! ! +! ! +! ! +! char __temp128[1*1] = {""}; ! +! ! +! int ____temp128Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans55; ! +! ! +! ! +! ! +! doubleComplex __temp129[1 * 21]; ! +! ! +! int ____temp129Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans56; ! +! ! +! ! +! ! +! char __temp130[1*1] = {""}; ! +! ! +! int ____temp130Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans57; ! +! ! +! ! +! ! +! doubleComplex __temp131[1 * 4]; ! +! ! +! int ____temp131Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans58; ! +! ! +! ! +! ! +! char __temp132[1*1] = {""}; ! +! ! +! int ____temp132Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans59; ! +! ! +! ! +! ! +! doubleComplex __temp133[1 * 2]; ! +! ! +! int ____temp133Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans60; ! +! ! +! ! +! ! +! char __temp134[1*1] = {""}; ! +! ! +! int ____temp134Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans61; ! +! ! +! ! +! ! +! doubleComplex __temp135[1 * 21]; ! +! ! +! int ____temp135Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans62; ! +! ! +! ! +! ! +! char __temp136[1*1] = {""}; ! +! ! +! int ____temp136Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans63; ! +! ! +! ! +! ! +! double __temp137[1 * 2]; ! +! ! +! int ____temp137Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp138[1 * 3]; ! +! ! +! int ____temp138Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp139[1 * 4]; ! +! ! +! int ____temp139Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp140[1 * 2]; ! +! ! +! int ____temp140Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp141[1 * 3]; ! +! ! +! int ____temp141Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp142[1 * 4]; ! +! ! +! int ____temp142Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double aa[2 * 4]; ! +! ! +! int __aaSize[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp143[2 * 4]; ! +! ! +! int ____temp143Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans64; ! +! ! +! ! +! ! +! char __temp144[1*1] = {""}; ! +! ! +! int ____temp144Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans65; ! +! ! +! ! +! ! +! double __temp145[1 * 2]; ! +! ! +! int ____temp145Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp146[1 * 2]; ! +! ! +! int ____temp146Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double bb[2 * 2]; ! +! ! +! int __bbSize[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp147[2 * 2]; ! +! ! +! int ____temp147Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans66; ! +! ! +! ! +! ! +! char __temp148[1*1] = {""}; ! +! ! +! int ____temp148Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans67; ! +! ! +! ! +! ! +! double __temp149[1 * 2]; ! +! ! +! int ____temp149Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp150[1 * 3]; ! +! ! +! int ____temp150Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp151[1 * 4]; ! +! ! +! int ____temp151Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp152[1 * 5]; ! +! ! +! int ____temp152Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp153[1 * 6]; ! +! ! +! int ____temp153Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp154[1 * 7]; ! +! ! +! int ____temp154Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp155[1 * 8]; ! +! ! +! int ____temp155Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp156[1 * 9]; ! +! ! +! int ____temp156Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp157[1 * 10]; ! +! ! +! int ____temp157Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp158[1 * 11]; ! +! ! +! int ____temp158Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp159[1 * 12]; ! +! ! +! int ____temp159Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp160[1 * 13]; ! +! ! +! int ____temp160Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp161[1 * 14]; ! +! ! +! int ____temp161Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp162[1 * 15]; ! +! ! +! int ____temp162Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp163[1 * 16]; ! +! ! +! int ____temp163Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp164[1 * 17]; ! +! ! +! int ____temp164Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp165[1 * 18]; ! +! ! +! int ____temp165Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp166[1 * 19]; ! +! ! +! int ____temp166Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp167[1 * 20]; ! +! ! +! int ____temp167Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp168[1 * 21]; ! +! ! +! int ____temp168Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp169[1 * 2]; ! +! ! +! int ____temp169Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp170[1 * 3]; ! +! ! +! int ____temp170Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp171[1 * 4]; ! +! ! +! int ____temp171Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp172[1 * 5]; ! +! ! +! int ____temp172Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp173[1 * 6]; ! +! ! +! int ____temp173Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp174[1 * 7]; ! +! ! +! int ____temp174Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp175[1 * 8]; ! +! ! +! int ____temp175Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp176[1 * 9]; ! +! ! +! int ____temp176Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp177[1 * 10]; ! +! ! +! int ____temp177Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp178[1 * 11]; ! +! ! +! int ____temp178Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp179[1 * 12]; ! +! ! +! int ____temp179Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp180[1 * 13]; ! +! ! +! int ____temp180Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp181[1 * 14]; ! +! ! +! int ____temp181Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp182[1 * 15]; ! +! ! +! int ____temp182Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp183[1 * 16]; ! +! ! +! int ____temp183Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp184[1 * 17]; ! +! ! +! int ____temp184Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp185[1 * 18]; ! +! ! +! int ____temp185Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp186[1 * 19]; ! +! ! +! int ____temp186Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp187[1 * 20]; ! +! ! +! int ____temp187Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp188[1 * 21]; ! +! ! +! int ____temp188Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double cc[2 * 21]; ! +! ! +! int __ccSize[2] = {2, 21};; ! +! ! +! ! +! ! +! double __temp189[2 * 21]; ! +! ! +! int ____temp189Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans68; ! +! ! +! ! +! ! +! char __temp190[1*1] = {""}; ! +! ! +! int ____temp190Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans69; ! +! ! +! ! +! ! +! double __temp191[1 * 2]; ! +! ! +! int ____temp191Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp192[1 * 3]; ! +! ! +! int ____temp192Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp193[1 * 4]; ! +! ! +! int ____temp193Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp194[1 * 2]; ! +! ! +! int ____temp194Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp195[1 * 3]; ! +! ! +! int ____temp195Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp196[1 * 4]; ! +! ! +! int ____temp196Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp197[2 * 4]; ! +! ! +! int ____temp197Size[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex dd[2 * 4]; ! +! ! +! int __ddSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp198[2 * 4]; ! +! ! +! int ____temp198Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans70; ! +! ! +! ! +! ! +! char __temp199[1*1] = {""}; ! +! ! +! int ____temp199Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans71; ! +! ! +! ! +! ! +! double __temp200[1 * 2]; ! +! ! +! int ____temp200Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp201[1 * 2]; ! +! ! +! int ____temp201Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp202[2 * 2]; ! +! ! +! int ____temp202Size[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex ee[2 * 2]; ! +! ! +! int __eeSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp203[2 * 2]; ! +! ! +! int ____temp203Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans72; ! +! ! +! ! +! ! +! char __temp204[1*1] = {""}; ! +! ! +! int ____temp204Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans73; ! +! ! +! ! +! ! +! double __temp205[1 * 2]; ! +! ! +! int ____temp205Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp206[1 * 3]; ! +! ! +! int ____temp206Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp207[1 * 4]; ! +! ! +! int ____temp207Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp208[1 * 5]; ! +! ! +! int ____temp208Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp209[1 * 6]; ! +! ! +! int ____temp209Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp210[1 * 7]; ! +! ! +! int ____temp210Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp211[1 * 8]; ! +! ! +! int ____temp211Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp212[1 * 9]; ! +! ! +! int ____temp212Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp213[1 * 10]; ! +! ! +! int ____temp213Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp214[1 * 11]; ! +! ! +! int ____temp214Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp215[1 * 12]; ! +! ! +! int ____temp215Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp216[1 * 13]; ! +! ! +! int ____temp216Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp217[1 * 14]; ! +! ! +! int ____temp217Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp218[1 * 15]; ! +! ! +! int ____temp218Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp219[1 * 16]; ! +! ! +! int ____temp219Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp220[1 * 17]; ! +! ! +! int ____temp220Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp221[1 * 18]; ! +! ! +! int ____temp221Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp222[1 * 19]; ! +! ! +! int ____temp222Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp223[1 * 20]; ! +! ! +! int ____temp223Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp224[1 * 21]; ! +! ! +! int ____temp224Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp225[1 * 2]; ! +! ! +! int ____temp225Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp226[1 * 3]; ! +! ! +! int ____temp226Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp227[1 * 4]; ! +! ! +! int ____temp227Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp228[1 * 5]; ! +! ! +! int ____temp228Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp229[1 * 6]; ! +! ! +! int ____temp229Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp230[1 * 7]; ! +! ! +! int ____temp230Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp231[1 * 8]; ! +! ! +! int ____temp231Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp232[1 * 9]; ! +! ! +! int ____temp232Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp233[1 * 10]; ! +! ! +! int ____temp233Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp234[1 * 11]; ! +! ! +! int ____temp234Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp235[1 * 12]; ! +! ! +! int ____temp235Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp236[1 * 13]; ! +! ! +! int ____temp236Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp237[1 * 14]; ! +! ! +! int ____temp237Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp238[1 * 15]; ! +! ! +! int ____temp238Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp239[1 * 16]; ! +! ! +! int ____temp239Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp240[1 * 17]; ! +! ! +! int ____temp240Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp241[1 * 18]; ! +! ! +! int ____temp241Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp242[1 * 19]; ! +! ! +! int ____temp242Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp243[1 * 20]; ! +! ! +! int ____temp243Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp244[1 * 21]; ! +! ! +! int ____temp244Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp245[2 * 21]; ! +! ! +! int ____temp245Size[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex ff[2 * 21]; ! +! ! +! int __ffSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp246[2 * 21]; ! +! ! +! int ____temp246Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans74; ! +! ! +! ! +! ! +! char __temp247[1*1] = {""}; ! +! ! +! int ____temp247Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans75; ! +! ! +! ! +! ! +! doubleComplex gg[2 * 4]; ! +! ! +! int __ggSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp248[2 * 4]; ! +! ! +! int ____temp248Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans76; ! +! ! +! ! +! ! +! char __temp249[1*1] = {""}; ! +! ! +! int ____temp249Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans77; ! +! ! +! ! +! ! +! doubleComplex hh[2 * 2]; ! +! ! +! int __hhSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp250[2 * 2]; ! +! ! +! int ____temp250Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans78; ! +! ! +! ! +! ! +! char __temp251[1*1] = {""}; ! +! ! +! int ____temp251Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans79; ! +! ! +! ! +! ! +! doubleComplex jj[2 * 21]; ! +! ! +! int __jjSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp252[2 * 21]; ! +! ! +! int ____temp252Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans80; ! +! ! +! ! +! ! +! char __temp253[1*1] = {""}; ! +! ! +! int ____temp253Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans81; ! +! ! +! ! +! ! +! char __temp254[1*20] = {"*******************"}; ! +! ! +! int ____temp254Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans82; ! +! ! +! ! +! ! +! char __temp255[1*20] = {"*******************"}; ! +! ! +! int ____temp255Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans83; ! +! ! +! ! +! ! +! char __temp256[1*1] = {""}; ! +! ! +! int ____temp256Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans84; ! +! ! +! ! +! ! +! double __temp257[2 * 4]; ! +! ! +! int ____temp257Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans85; ! +! ! +! ! +! ! +! char __temp258[1*1] = {""}; ! +! ! +! int ____temp258Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans86; ! +! ! +! ! +! ! +! double __temp259[2 * 2]; ! +! ! +! int ____temp259Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans87; ! +! ! +! ! +! ! +! char __temp260[1*1] = {""}; ! +! ! +! int ____temp260Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans88; ! +! ! +! ! +! ! +! double __temp261[2 * 21]; ! +! ! +! int ____temp261Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans89; ! +! ! +! ! +! ! +! char __temp262[1*1] = {""}; ! +! ! +! int ____temp262Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans90; ! +! ! +! ! +! ! +! doubleComplex __temp263[2 * 4]; ! +! ! +! int ____temp263Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans91; ! +! ! +! ! +! ! +! char __temp264[1*1] = {""}; ! +! ! +! int ____temp264Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans92; ! +! ! +! ! +! ! +! doubleComplex __temp265[2 * 2]; ! +! ! +! int ____temp265Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans93; ! +! ! +! ! +! ! +! char __temp266[1*1] = {""}; ! +! ! +! int ____temp266Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans94; ! +! ! +! ! +! ! +! doubleComplex __temp267[2 * 21]; ! +! ! +! int ____temp267Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans95; ! +! ! +! ! +! ! +! char __temp268[1*1] = {""}; ! +! ! +! int ____temp268Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans96; ! +! ! +! ! +! ! +! doubleComplex __temp269[2 * 4]; ! +! ! +! int ____temp269Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans97; ! +! ! +! ! +! ! +! char __temp270[1*1] = {""}; ! +! ! +! int ____temp270Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans98; ! +! ! +! ! +! ! +! doubleComplex __temp271[2 * 2]; ! +! ! +! int ____temp271Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans99; ! +! ! +! ! +! ! +! char __temp272[1*1] = {""}; ! +! ! +! int ____temp272Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans100; ! +! ! +! ! +! ! +! doubleComplex __temp273[2 * 21]; ! +! ! +! int ____temp273Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans101; ! +! ! +! ! +! ! +! char __temp274[1*1] = {""}; ! +! ! +! int ____temp274Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans102; ! +! ! +! ! +! ! +! char __temp275[1*1] = {""}; ! +! ! +! int ____temp275Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans103; ! +! ! +! ! +! ! +! char __temp276[1*20] = {"*******************"}; ! +! ! +! int ____temp276Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans104; ! +! ! +! ! +! ! +! char __temp277[1*20] = {"*******************"}; ! +! ! +! int ____temp277Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans105; ! +! ! +! ! +! ! +! char __temp278[1*1] = {""}; ! +! ! +! int ____temp278Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans106; ! +! ! +! ! +! ! +! double __temp279[2 * 4]; ! +! ! +! int ____temp279Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans107; ! +! ! +! ! +! ! +! char __temp280[1*1] = {""}; ! +! ! +! int ____temp280Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans108; ! +! ! +! ! +! ! +! double __temp281[2 * 2]; ! +! ! +! int ____temp281Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans109; ! +! ! +! ! +! ! +! char __temp282[1*1] = {""}; ! +! ! +! int ____temp282Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans110; ! +! ! +! ! +! ! +! double __temp283[2 * 21]; ! +! ! +! int ____temp283Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans111; ! +! ! +! ! +! ! +! char __temp284[1*1] = {""}; ! +! ! +! int ____temp284Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans112; ! +! ! +! ! +! ! +! doubleComplex __temp285[2 * 4]; ! +! ! +! int ____temp285Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans113; ! +! ! +! ! +! ! +! char __temp286[1*1] = {""}; ! +! ! +! int ____temp286Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans114; ! +! ! +! ! +! ! +! doubleComplex __temp287[2 * 2]; ! +! ! +! int ____temp287Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans115; ! +! ! +! ! +! ! +! char __temp288[1*1] = {""}; ! +! ! +! int ____temp288Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans116; ! +! ! +! ! +! ! +! doubleComplex __temp289[2 * 21]; ! +! ! +! int ____temp289Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans117; ! +! ! +! ! +! ! +! char __temp290[1*1] = {""}; ! +! ! +! int ____temp290Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans118; ! +! ! +! ! +! ! +! doubleComplex __temp291[2 * 4]; ! +! ! +! int ____temp291Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans119; ! +! ! +! ! +! ! +! char __temp292[1*1] = {""}; ! +! ! +! int ____temp292Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans120; ! +! ! +! ! +! ! +! doubleComplex __temp293[2 * 2]; ! +! ! +! int ____temp293Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans121; ! +! ! +! ! +! ! +! char __temp294[1*1] = {""}; ! +! ! +! int ____temp294Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans122; ! +! ! +! ! +! ! +! doubleComplex __temp295[2 * 21]; ! +! ! +! int ____temp295Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans123; ! +! ! +! ! +! ! +! char __temp296[1*1] = {""}; ! +! ! +! int ____temp296Size[2] = {1,1}; ! +! ! +! ! +! ! +! double ans124; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(4.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0fftd0(4.4); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(%i + 3.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),3.4); ! +! ! +! __temp3 = z0fftz0(__temp2); ! +! ! +! ans2 = z0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,15,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,3.5,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(a)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(a, __aSize,__temp6); ! +! ! +! ans3 = d2dispd0(__temp6, ____temp6Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = g2dispd0(__temp7, ____temp7Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [25 3.6]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(b, __bSize,__temp8); ! +! ! +! ans5 = d2dispd0(__temp8, ____temp8Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp9, ____temp9Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456! +! 56 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,5,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,6,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,3,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,8,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,9,__temp15); ! +! ! +! d2d0OpRcd2(__temp15, ____temp15Size,445,__temp16); ! +! ! +! d2d0OpRcd2(__temp16, ____temp16Size,1,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,2,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,3,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,0,__temp20); ! +! ! +! d2d0OpRcd2(__temp20, ____temp20Size,125,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,5,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,41,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,4,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,5,__temp25); ! +! ! +! d2d0OpRcd2(__temp25, ____temp25Size,552,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,2.36,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,45656,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,72.3,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(c)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(c, __cSize,__temp29); ! +! ! +! ans7 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = g2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp31); ! +! ! +! d2d0OpRcd2(__temp31, ____temp31Size,15,__temp32); ! +! ! +! d2d0OpRcd2(__temp32, ____temp32Size,3.5,__temp33); ! +! ! +! d2z0OpStarz2(__temp33, ____temp33Size,DoubleComplex(0,1),d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(d)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(d, __dSize,__temp34); ! +! ! +! ans9 = z2dispd0(__temp34, ____temp34Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = g2dispd0(__temp35, ____temp35Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp36); ! +! ! +! d2z0OpStarz2(__temp36, ____temp36Size,DoubleComplex(0,1),e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(e, __eSize,__temp37); ! +! ! +! ans11 = z2dispd0(__temp37, ____temp37Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = g2dispd0(__temp38, ____temp38Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 ! +! 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,5,__temp40); ! +! ! +! d2d0OpRcd2(__temp40, ____temp40Size,6,__temp41); ! +! ! +! d2d0OpRcd2(__temp41, ____temp41Size,3,__temp42); ! +! ! +! d2d0OpRcd2(__temp42, ____temp42Size,8,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,9,__temp44); ! +! ! +! d2d0OpRcd2(__temp44, ____temp44Size,445,__temp45); ! +! ! +! d2d0OpRcd2(__temp45, ____temp45Size,1,__temp46); ! +! ! +! d2d0OpRcd2(__temp46, ____temp46Size,2,__temp47); ! +! ! +! d2d0OpRcd2(__temp47, ____temp47Size,3,__temp48); ! +! ! +! d2d0OpRcd2(__temp48, ____temp48Size,0,__temp49); ! +! ! +! d2d0OpRcd2(__temp49, ____temp49Size,125,__temp50); ! +! ! +! d2d0OpRcd2(__temp50, ____temp50Size,5,__temp51); ! +! ! +! d2d0OpRcd2(__temp51, ____temp51Size,41,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,4,__temp53); ! +! ! +! d2d0OpRcd2(__temp53, ____temp53Size,5,__temp54); ! +! ! +! d2d0OpRcd2(__temp54, ____temp54Size,552,__temp55); ! +! ! +! d2d0OpRcd2(__temp55, ____temp55Size,2.36,__temp56); ! +! ! +! d2d0OpRcd2(__temp56, ____temp56Size,45656,__temp57); ! +! ! +! d2d0OpRcd2(__temp57, ____temp57Size,72.3,__temp58); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp58, ____temp58Size,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(f)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(f, __fSize,__temp59); ! +! ! +! ans13 = z2dispd0(__temp59, ____temp59Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = g2dispd0(__temp60, ____temp60Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp61); ! +! ! +! d2d0OpRcd2(__temp61, ____temp61Size,15,__temp62); ! +! ! +! d2d0OpRcd2(__temp62, ____temp62Size,3.5,__temp63); ! +! ! +! d2z0OpStarz2(__temp63, ____temp63Size,DoubleComplex(0,1),__temp64)! +! ; ! +! ! +! d2z2OpPlusz2(a, __aSize,__temp64, ____temp64Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(g)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(g, __gSize,__temp65); ! +! ! +! ans15 = z2dispd0(__temp65, ____temp65Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = g2dispd0(__temp66, ____temp66Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp67); ! +! ! +! d2z0OpStarz2(__temp67, ____temp67Size,DoubleComplex(0,1),__temp68)! +! ; ! +! ! +! d2z2OpPlusz2(b, __bSize,__temp68, ____temp68Size,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(h)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(h, __hSize,__temp69); ! +! ! +! ans17 = z2dispd0(__temp69, ____temp69Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = g2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.! +! 36 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,5,__temp72); ! +! ! +! d2d0OpRcd2(__temp72, ____temp72Size,6,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,3,__temp74); ! +! ! +! d2d0OpRcd2(__temp74, ____temp74Size,8,__temp75); ! +! ! +! d2d0OpRcd2(__temp75, ____temp75Size,9,__temp76); ! +! ! +! d2d0OpRcd2(__temp76, ____temp76Size,445,__temp77); ! +! ! +! d2d0OpRcd2(__temp77, ____temp77Size,1,__temp78); ! +! ! +! d2d0OpRcd2(__temp78, ____temp78Size,2,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,3,__temp80); ! +! ! +! d2d0OpRcd2(__temp80, ____temp80Size,0,__temp81); ! +! ! +! d2d0OpRcd2(__temp81, ____temp81Size,125,__temp82); ! +! ! +! d2d0OpRcd2(__temp82, ____temp82Size,5,__temp83); ! +! ! +! d2d0OpRcd2(__temp83, ____temp83Size,41,__temp84); ! +! ! +! d2d0OpRcd2(__temp84, ____temp84Size,4,__temp85); ! +! ! +! d2d0OpRcd2(__temp85, ____temp85Size,5,__temp86); ! +! ! +! d2d0OpRcd2(__temp86, ____temp86Size,552,__temp87); ! +! ! +! d2d0OpRcd2(__temp87, ____temp87Size,2.36,__temp88); ! +! ! +! d2d0OpRcd2(__temp88, ____temp88Size,45656,__temp89); ! +! ! +! d2d0OpRcd2(__temp89, ____temp89Size,72.3,__temp90); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp90, ____temp90Size,__temp91)! +! ; ! +! ! +! d2z2OpPlusz2(c, __cSize,__temp91, ____temp91Size,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(j)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(j, __jSize,__temp92); ! +! ! +! ans19 = z2dispd0(__temp92, ____temp92Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = g2dispd0(__temp93, ____temp93Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans21 = g2dispd0(__temp94, ____temp94Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = g2dispd0(__temp95, ____temp95Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans23 = g2dispd0(__temp96, ____temp96Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // two output ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // call ifft ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(a,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(a, __aSize,1,__temp97); ! +! ! +! ans24 = d2dispd0(__temp97, ____temp97Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = g2dispd0(__temp98, ____temp98Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(b,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(b, __bSize,1,__temp99); ! +! ! +! ans26 = d2dispd0(__temp99, ____temp99Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = g2dispd0(__temp100, ____temp100Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(c,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(c, __cSize,1,__temp101); ! +! ! +! ans28 = d2dispd0(__temp101, ____temp101Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans29 = g2dispd0(__temp102, ____temp102Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(d,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(d, __dSize,1,__temp103); ! +! ! +! ans30 = z2dispd0(__temp103, ____temp103Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans31 = g2dispd0(__temp104, ____temp104Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(e,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(e, __eSize,1,__temp105); ! +! ! +! ans32 = z2dispd0(__temp105, ____temp105Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans33 = g2dispd0(__temp106, ____temp106Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(f,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(f, __fSize,1,__temp107); ! +! ! +! ans34 = z2dispd0(__temp107, ____temp107Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans35 = g2dispd0(__temp108, ____temp108Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(g,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(g, __gSize,1,__temp109); ! +! ! +! ans36 = z2dispd0(__temp109, ____temp109Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans37 = g2dispd0(__temp110, ____temp110Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(h,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(h, __hSize,1,__temp111); ! +! ! +! ans38 = z2dispd0(__temp111, ____temp111Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans39 = g2dispd0(__temp112, ____temp112Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(j,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(j, __jSize,1,__temp113); ! +! ! +! ans40 = z2dispd0(__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans41 = g2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans42 = g2dispd0(__temp115, ____temp115Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans43 = g2dispd0(__temp116, ____temp116Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans44 = g2dispd0(__temp117, ____temp117Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans45 = g2dispd0(__temp118, ____temp118Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(a,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(a, __aSize,-1,__temp119); ! +! ! +! ans46 = d2dispd0(__temp119, ____temp119Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(b,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans47 = g2dispd0(__temp120, ____temp120Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(b, __bSize,-1,__temp121); ! +! ! +! ans48 = d2dispd0(__temp121, ____temp121Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(c,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans49 = g2dispd0(__temp122, ____temp122Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(c, __cSize,-1,__temp123); ! +! ! +! ans50 = d2dispd0(__temp123, ____temp123Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(d,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans51 = g2dispd0(__temp124, ____temp124Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(d, __dSize,-1,__temp125); ! +! ! +! ans52 = z2dispd0(__temp125, ____temp125Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(e,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans53 = g2dispd0(__temp126, ____temp126Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(e, __eSize,-1,__temp127); ! +! ! +! ans54 = z2dispd0(__temp127, ____temp127Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(f,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans55 = g2dispd0(__temp128, ____temp128Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(f, __fSize,-1,__temp129); ! +! ! +! ans56 = z2dispd0(__temp129, ____temp129Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans57 = g2dispd0(__temp130, ____temp130Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(g,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(g, __gSize,-1,__temp131); ! +! ! +! ans58 = z2dispd0(__temp131, ____temp131Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(h,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans59 = g2dispd0(__temp132, ____temp132Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(h, __hSize,-1,__temp133); ! +! ! +! ans60 = z2dispd0(__temp133, ____temp133Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(j,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans61 = g2dispd0(__temp134, ____temp134Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(j, __jSize,-1,__temp135); ! +! ! +! ans62 = z2dispd0(__temp135, ____temp135Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans63 = g2dispd0(__temp136, ____temp136Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // MATRIX ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(aa)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp137); ! +! ! +! d2d0OpRcd2(__temp137, ____temp137Size,15,__temp138); ! +! ! +! d2d0OpRcd2(__temp138, ____temp138Size,3.5,__temp139); ! +! ! +! d0d0OpRcd2(5,3,__temp140); ! +! ! +! d2d0OpRcd2(__temp140, ____temp140Size,9,__temp141); ! +! ! +! d2d0OpRcd2(__temp141, ____temp141Size,6,__temp142); ! +! ! +! d2d2OpCcd2(__temp139, ____temp139Size,__temp142, ____temp142Size,! +! aa); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(aa, __aaSize,__temp143); ! +! ! +! ans64 = d2dispd0(__temp143, ____temp143Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans65 = g2dispd0(__temp144, ____temp144Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(bb)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp145); ! +! ! +! d0d0OpRcd2(4,3.2,__temp146); ! +! ! +! d2d2OpCcd2(__temp145, ____temp145Size,__temp146, ____temp146Size,! +! bb); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(bb, __bbSize,__temp147); ! +! ! +! ans66 = d2dispd0(__temp147, ____temp147Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45! +! 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554! +! 6 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans67 = g2dispd0(__temp148, ____temp148Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(cc)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp149); ! +! ! +! d2d0OpRcd2(__temp149, ____temp149Size,5,__temp150); ! +! ! +! d2d0OpRcd2(__temp150, ____temp150Size,6,__temp151); ! +! ! +! d2d0OpRcd2(__temp151, ____temp151Size,3,__temp152); ! +! ! +! d2d0OpRcd2(__temp152, ____temp152Size,8,__temp153); ! +! ! +! d2d0OpRcd2(__temp153, ____temp153Size,9,__temp154); ! +! ! +! d2d0OpRcd2(__temp154, ____temp154Size,445,__temp155); ! +! ! +! d2d0OpRcd2(__temp155, ____temp155Size,1,__temp156); ! +! ! +! d2d0OpRcd2(__temp156, ____temp156Size,2,__temp157); ! +! ! +! d2d0OpRcd2(__temp157, ____temp157Size,3,__temp158); ! +! ! +! d2d0OpRcd2(__temp158, ____temp158Size,0,__temp159); ! +! ! +! d2d0OpRcd2(__temp159, ____temp159Size,125,__temp160); ! +! ! +! d2d0OpRcd2(__temp160, ____temp160Size,5,__temp161); ! +! ! +! d2d0OpRcd2(__temp161, ____temp161Size,41,__temp162); ! +! ! +! d2d0OpRcd2(__temp162, ____temp162Size,4,__temp163); ! +! ! +! d2d0OpRcd2(__temp163, ____temp163Size,5,__temp164); ! +! ! +! d2d0OpRcd2(__temp164, ____temp164Size,552,__temp165); ! +! ! +! d2d0OpRcd2(__temp165, ____temp165Size,2.36,__temp166); ! +! ! +! d2d0OpRcd2(__temp166, ____temp166Size,45656,__temp167); ! +! ! +! d2d0OpRcd2(__temp167, ____temp167Size,72.3,__temp168); ! +! ! +! d0d0OpRcd2(21,8,__temp169); ! +! ! +! d2d0OpRcd2(__temp169, ____temp169Size,2,__temp170); ! +! ! +! d2d0OpRcd2(__temp170, ____temp170Size,5,__temp171); ! +! ! +! d2d0OpRcd2(__temp171, ____temp171Size,6,__temp172); ! +! ! +! d2d0OpRcd2(__temp172, ____temp172Size,3,__temp173); ! +! ! +! d2d0OpRcd2(__temp173, ____temp173Size,4,__temp174); ! +! ! +! d2d0OpRcd2(__temp174, ____temp174Size,123,__temp175); ! +! ! +! d2d0OpRcd2(__temp175, ____temp175Size,5,__temp176); ! +! ! +! d2d0OpRcd2(__temp176, ____temp176Size,6,__temp177); ! +! ! +! d2d0OpRcd2(__temp177, ____temp177Size,0,__temp178); ! +! ! +! d2d0OpRcd2(__temp178, ____temp178Size,5,__temp179); ! +! ! +! d2d0OpRcd2(__temp179, ____temp179Size,548,__temp180); ! +! ! +! d2d0OpRcd2(__temp180, ____temp180Size,7,__temp181); ! +! ! +! d2d0OpRcd2(__temp181, ____temp181Size,65,__temp182); ! +! ! +! d2d0OpRcd2(__temp182, ____temp182Size,4,__temp183); ! +! ! +! d2d0OpRcd2(__temp183, ____temp183Size,2,__temp184); ! +! ! +! d2d0OpRcd2(__temp184, ____temp184Size,166,__temp185); ! +! ! +! d2d0OpRcd2(__temp185, ____temp185Size,4.12,__temp186); ! +! ! +! d2d0OpRcd2(__temp186, ____temp186Size,65546,__temp187); ! +! ! +! d2d0OpRcd2(__temp187, ____temp187Size,1.78,__temp188); ! +! ! +! d2d2OpCcd2(__temp168, ____temp168Size,__temp188, ____temp188Size,! +! cc); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fftd2(cc, __ccSize,__temp189); ! +! ! +! ans68 = d2dispd0(__temp189, ____temp189Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans69 = g2dispd0(__temp190, ____temp190Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(dd)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp191); ! +! ! +! d2d0OpRcd2(__temp191, ____temp191Size,15,__temp192); ! +! ! +! d2d0OpRcd2(__temp192, ____temp192Size,3.5,__temp193); ! +! ! +! d0d0OpRcd2(5,8,__temp194); ! +! ! +! d2d0OpRcd2(__temp194, ____temp194Size,6,__temp195); ! +! ! +! d2d0OpRcd2(__temp195, ____temp195Size,3,__temp196); ! +! ! +! d2d2OpCcd2(__temp193, ____temp193Size,__temp196, ____temp196Size,! +! __temp197); ! +! ! +! d2z0OpStarz2(__temp197, ____temp197Size,DoubleComplex(0,1),dd); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(dd, __ddSize,__temp198); ! +! ! +! ans70 = z2dispd0(__temp198, ____temp198Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans71 = g2dispd0(__temp199, ____temp199Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ee)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp200); ! +! ! +! d0d0OpRcd2(4,5.9,__temp201); ! +! ! +! d2d2OpCcd2(__temp200, ____temp200Size,__temp201, ____temp201Size,! +! __temp202); ! +! ! +! d2z0OpStarz2(__temp202, ____temp202Size,DoubleComplex(0,1),ee); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(ee, __eeSize,__temp203); ! +! ! +! ans72 = z2dispd0(__temp203, ____temp203Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36! +! 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 ! +! 65546 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans73 = g2dispd0(__temp204, ____temp204Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp205); ! +! ! +! d2d0OpRcd2(__temp205, ____temp205Size,5,__temp206); ! +! ! +! d2d0OpRcd2(__temp206, ____temp206Size,6,__temp207); ! +! ! +! d2d0OpRcd2(__temp207, ____temp207Size,3,__temp208); ! +! ! +! d2d0OpRcd2(__temp208, ____temp208Size,8,__temp209); ! +! ! +! d2d0OpRcd2(__temp209, ____temp209Size,9,__temp210); ! +! ! +! d2d0OpRcd2(__temp210, ____temp210Size,445,__temp211); ! +! ! +! d2d0OpRcd2(__temp211, ____temp211Size,1,__temp212); ! +! ! +! d2d0OpRcd2(__temp212, ____temp212Size,2,__temp213); ! +! ! +! d2d0OpRcd2(__temp213, ____temp213Size,3,__temp214); ! +! ! +! d2d0OpRcd2(__temp214, ____temp214Size,0,__temp215); ! +! ! +! d2d0OpRcd2(__temp215, ____temp215Size,125,__temp216); ! +! ! +! d2d0OpRcd2(__temp216, ____temp216Size,5,__temp217); ! +! ! +! d2d0OpRcd2(__temp217, ____temp217Size,41,__temp218); ! +! ! +! d2d0OpRcd2(__temp218, ____temp218Size,4,__temp219); ! +! ! +! d2d0OpRcd2(__temp219, ____temp219Size,5,__temp220); ! +! ! +! d2d0OpRcd2(__temp220, ____temp220Size,552,__temp221); ! +! ! +! d2d0OpRcd2(__temp221, ____temp221Size,2.36,__temp222); ! +! ! +! d2d0OpRcd2(__temp222, ____temp222Size,45656,__temp223); ! +! ! +! d2d0OpRcd2(__temp223, ____temp223Size,72.3,__temp224); ! +! ! +! d0d0OpRcd2(21,8,__temp225); ! +! ! +! d2d0OpRcd2(__temp225, ____temp225Size,2,__temp226); ! +! ! +! d2d0OpRcd2(__temp226, ____temp226Size,5,__temp227); ! +! ! +! d2d0OpRcd2(__temp227, ____temp227Size,6,__temp228); ! +! ! +! d2d0OpRcd2(__temp228, ____temp228Size,3,__temp229); ! +! ! +! d2d0OpRcd2(__temp229, ____temp229Size,4,__temp230); ! +! ! +! d2d0OpRcd2(__temp230, ____temp230Size,123,__temp231); ! +! ! +! d2d0OpRcd2(__temp231, ____temp231Size,5,__temp232); ! +! ! +! d2d0OpRcd2(__temp232, ____temp232Size,6,__temp233); ! +! ! +! d2d0OpRcd2(__temp233, ____temp233Size,0,__temp234); ! +! ! +! d2d0OpRcd2(__temp234, ____temp234Size,5,__temp235); ! +! ! +! d2d0OpRcd2(__temp235, ____temp235Size,548,__temp236); ! +! ! +! d2d0OpRcd2(__temp236, ____temp236Size,7,__temp237); ! +! ! +! d2d0OpRcd2(__temp237, ____temp237Size,65,__temp238); ! +! ! +! d2d0OpRcd2(__temp238, ____temp238Size,4,__temp239); ! +! ! +! d2d0OpRcd2(__temp239, ____temp239Size,2,__temp240); ! +! ! +! d2d0OpRcd2(__temp240, ____temp240Size,166,__temp241); ! +! ! +! d2d0OpRcd2(__temp241, ____temp241Size,4.12,__temp242); ! +! ! +! d2d0OpRcd2(__temp242, ____temp242Size,65546,__temp243); ! +! ! +! d2d0OpRcd2(__temp243, ____temp243Size,1.78,__temp244); ! +! ! +! d2d2OpCcd2(__temp224, ____temp224Size,__temp244, ____temp244Size,! +! __temp245); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp245, ____temp245Size,ff); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ff)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(ff, __ffSize,__temp246); ! +! ! +! ans74 = z2dispd0(__temp246, ____temp246Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans75 = g2dispd0(__temp247, ____temp247Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: gg = aa + dd; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(gg)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(aa, __aaSize,dd, __ddSize,gg); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(gg, __ggSize,__temp248); ! +! ! +! ans76 = z2dispd0(__temp248, ____temp248Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: hh = bb + ee; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans77 = g2dispd0(__temp249, ____temp249Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(hh)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(bb, __bbSize,ee, __eeSize,hh); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(hh, __hhSize,__temp250); ! +! ! +! ans78 = z2dispd0(__temp250, ____temp250Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: jj= cc + ff ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans79 = g2dispd0(__temp251, ____temp251Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(jj)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(cc, __ccSize,ff, __ffSize,jj); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fftz2(jj, __jjSize,__temp252); ! +! ! +! ans80 = z2dispd0(__temp252, ____temp252Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans81 = g2dispd0(__temp253, ____temp253Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans82 = g2dispd0(__temp254, ____temp254Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans83 = g2dispd0(__temp255, ____temp255Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // two output ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans84 = g2dispd0(__temp256, ____temp256Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // call ifft ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(aa,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(aa, __aaSize,1,__temp257); ! +! ! +! ans85 = d2dispd0(__temp257, ____temp257Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(bb,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans86 = g2dispd0(__temp258, ____temp258Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(bb, __bbSize,1,__temp259); ! +! ! +! ans87 = d2dispd0(__temp259, ____temp259Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(cc,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans88 = g2dispd0(__temp260, ____temp260Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(cc, __ccSize,1,__temp261); ! +! ! +! ans89 = d2dispd0(__temp261, ____temp261Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(dd,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans90 = g2dispd0(__temp262, ____temp262Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(dd, __ddSize,1,__temp263); ! +! ! +! ans91 = z2dispd0(__temp263, ____temp263Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ee,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans92 = g2dispd0(__temp264, ____temp264Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(ee, __eeSize,1,__temp265); ! +! ! +! ans93 = z2dispd0(__temp265, ____temp265Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ff,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans94 = g2dispd0(__temp266, ____temp266Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(ff, __ffSize,1,__temp267); ! +! ! +! ans95 = z2dispd0(__temp267, ____temp267Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans96 = g2dispd0(__temp268, ____temp268Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(gg,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(gg, __ggSize,1,__temp269); ! +! ! +! ans97 = z2dispd0(__temp269, ____temp269Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(hh,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans98 = g2dispd0(__temp270, ____temp270Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(hh, __hhSize,1,__temp271); ! +! ! +! ans99 = z2dispd0(__temp271, ____temp271Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(jj,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans100 = g2dispd0(__temp272, ____temp272Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(jj, __jjSize,1,__temp273); ! +! ! +! ans101 = z2dispd0(__temp273, ____temp273Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans102 = g2dispd0(__temp274, ____temp274Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans103 = g2dispd0(__temp275, ____temp275Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans104 = g2dispd0(__temp276, ____temp276Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans105 = g2dispd0(__temp277, ____temp277Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans106 = g2dispd0(__temp278, ____temp278Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(aa,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(bb,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(aa, __aaSize,-1,__temp279); ! +! ! +! ans107 = d2dispd0(__temp279, ____temp279Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans108 = g2dispd0(__temp280, ____temp280Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(cc,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(bb, __bbSize,-1,__temp281); ! +! ! +! ans109 = d2dispd0(__temp281, ____temp281Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans110 = g2dispd0(__temp282, ____temp282Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(dd,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0fftd2(cc, __ccSize,-1,__temp283); ! +! ! +! ans111 = d2dispd0(__temp283, ____temp283Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans112 = g2dispd0(__temp284, ____temp284Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ee,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(dd, __ddSize,-1,__temp285); ! +! ! +! ans113 = z2dispd0(__temp285, ____temp285Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans114 = g2dispd0(__temp286, ____temp286Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(ff,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(ee, __eeSize,-1,__temp287); ! +! ! +! ans115 = z2dispd0(__temp287, ____temp287Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans116 = g2dispd0(__temp288, ____temp288Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(ff, __ffSize,-1,__temp289); ! +! ! +! ans117 = z2dispd0(__temp289, ____temp289Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(gg,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans118 = g2dispd0(__temp290, ____temp290Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(hh,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(gg, __ggSize,-1,__temp291); ! +! ! +! ans119 = z2dispd0(__temp291, ____temp291Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans120 = g2dispd0(__temp292, ____temp292Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(fft(jj,-1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(hh, __hhSize,-1,__temp293); ! +! ! +! ans121 = z2dispd0(__temp293, ____temp293Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(""); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans122 = g2dispd0(__temp294, ____temp294Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0fftz2(jj, __jjSize,-1,__temp295); ! +! ! +! ans123 = z2dispd0(__temp295, ____temp295Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans124 = g2dispd0(__temp296, ____temp296Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Fft.sci.tst b/tests/unit_tests/double/test_Fft.sci.tst new file mode 100644 index 0000000..73956c4 --- /dev/null +++ b/tests/unit_tests/double/test_Fft.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Fft.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Find.sci b/tests/unit_tests/double/test_Find.sci new file mode 100644 index 0000000..0f5681f --- /dev/null +++ b/tests/unit_tests/double/test_Find.sci @@ -0,0 +1,31 @@ +function test_Find () + + disp (find( 1 == 3 )); // d0Findd0 + + a = [1 2 3; 4 5 6]; + b = [1 8 3; 9 5 6]; + disp (find( a == b )); // d2Findd2 + + [ z , j ] = find (1 == 3); // d0Findd0d0 + [ k , l ] = find (a == b); // d2Findd2d2 + + disp(z); + disp(j); + disp(k); + disp(l); + + disp ( find( 1 == 3 , 2 )); // d0d0Findd0 + + c = [1 2 3; 4 5 6]; + d = [1 8 3; 9 5 6]; + disp (find( c == d , 2 )); // d2d0Findd2 + + [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 + [ q , s ] = find (c == d , 2); // d2d0Findd2d2 + + disp(o); + disp(p); + disp(q); + disp(s); + +endfunction diff --git a/tests/unit_tests/double/test_Find.sci.dia.ref b/tests/unit_tests/double/test_Find.sci.dia.ref new file mode 100644 index 0000000..89d2001 --- /dev/null +++ b/tests/unit_tests/double/test_Find.sci.dia.ref @@ -0,0 +1,1187 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Find.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + [] + + 1. 4. 5. 6. + + [] + + [] + + 1. 2. 1. 2. + + 1. 2. 3. 3. + + [] + + 1. 4. + + [] + + [] + + 1. 2. + + 1. 2. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Find" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Find/test_Find_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Find/test_Find_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( 1 == 3 )); // d0Findd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 8 3; 9 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( a == b )); // d2Findd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ z , j ] = find (1 == 3); // d0Findd0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ k , l ] = find (a == b); // d2Findd2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(k); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(l); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ( find( 1 == 3 , 2 )); // d0d0Findd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [1 8 3; 9 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (find( c == d , 2 )); // d2d0Findd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: [ q , s ] = find (c == d , 2); // d2d0Findd2d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(o); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(q); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(s); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Find () ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double __temp2; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp11[2 * 3]; ! +! ! +! int ____temp11Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 6]; ! +! ! +! int ____temp12Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp13; ! +! ! +! ! +! ! +! double z; ! +! ! +! ! +! ! +! double j; ! +! ! +! ! +! ! +! double __temp14[2 * 3]; ! +! ! +! int ____temp14Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double k[1 * 1 * 6 * 6]; ! +! ! +! int __kSize[4] = {1, 1, 6, 6};; ! +! ! +! ! +! ! +! double l[1 * 1 * 6 * 6]; ! +! ! +! int __lSize[4] = {1, 1, 6, 6};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp15; ! +! ! +! ! +! ! +! double __temp16; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double c[2 * 3]; ! +! ! +! int __cSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 3]; ! +! ! +! int ____temp24Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double d[2 * 3]; ! +! ! +! int __dSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp25[2 * 3]; ! +! ! +! int ____temp25Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27; ! +! ! +! ! +! ! +! double o; ! +! ! +! ! +! ! +! double p; ! +! ! +! ! +! ! +! double __temp28[2 * 3]; ! +! ! +! int ____temp28Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double q[1 * 1 * 2 * 2]; ! +! ! +! int __qSize[4] = {1, 1, 2, 2};; ! +! ! +! ! +! ! +! double s[1 * 1 * 2 * 2]; ! +! ! +! int __sSize[4] = {1, 1, 2, 2};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( 1 == 3 )); // d0Findd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0OpLogEqd0(1,3); ! +! ! +! __temp2 = d0findd0(__temp1); ! +! ! +! ans1 = d0dispd0(__temp2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,3,__temp4); ! +! ! +! d0d0OpRcd2(4,5,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,6,__temp6); ! +! ! +! d2d2OpCcd2(__temp4, ____temp4Size,__temp6, ____temp6Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 8 3; 9 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,8,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,3,__temp8); ! +! ! +! d0d0OpRcd2(9,5,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,6,__temp10); ! +! ! +! d2d2OpCcd2(__temp8, ____temp8Size,__temp10, ____temp10Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( a == b )); // d2Findd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(a, __aSize,b, __bSize,__temp11); ! +! ! +! d2findd2(__temp11, ____temp11Size,__temp12); ! +! ! +! ans2 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ z , j ] = find (1 == 3); // d0Findd0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp13 = d0d0OpLogEqd0(1,3); ! +! ! +! z = d0findd0d0(__temp13,&j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ k , l ] = find (a == b); // d2Findd2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(a, __aSize,b, __bSize,__temp14); ! +! ! +! d2findd2d2(__temp14, ____temp14Size,k,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d0dispd0(z); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d0dispd0(j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(k); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = d2dispd0(k, __kSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(l); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = d2dispd0(l, __lSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ( find( 1 == 3 , 2 )); // d0d0Findd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = d0d0OpLogEqd0(1,3); ! +! ! +! __temp16 = d0d0findd0(__temp15,2); ! +! ! +! ans7 = d0dispd0(__temp16); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,3,__temp18); ! +! ! +! d0d0OpRcd2(4,5,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,6,__temp20); ! +! ! +! d2d2OpCcd2(__temp18, ____temp18Size,__temp20, ____temp20Size,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [1 8 3; 9 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,8,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,3,__temp22); ! +! ! +! d0d0OpRcd2(9,5,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,6,__temp24); ! +! ! +! d2d2OpCcd2(__temp22, ____temp22Size,__temp24, ____temp24Size,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (find( c == d , 2 )); // d2d0Findd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(c, __cSize,d, __dSize,__temp25); ! +! ! +! d2d0findd2(__temp25, ____temp25Size,2,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ o , p ] = find (1 == 3 , 2); // d0d0Findd0d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp27 = d0d0OpLogEqd0(1,3); ! +! ! +! o = d0d0findd0d0(__temp27,2,&p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: [ q , s ] = find (c == d , 2); // d2d0Findd2d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(c, __cSize,d, __dSize,__temp28); ! +! ! +! d2d0findd2d2(__temp28, ____temp28Size,2,q,s); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(o); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = d0dispd0(o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = d0dispd0(p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(q); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = d2dispd0(q, __qSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(s); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = d2dispd0(s, __sSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Find.sci.tst b/tests/unit_tests/double/test_Find.sci.tst new file mode 100644 index 0000000..c50721c --- /dev/null +++ b/tests/unit_tests/double/test_Find.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Find.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_IFFT.sci b/tests/unit_tests/double/test_IFFT.sci new file mode 100644 index 0000000..b49cf72 --- /dev/null +++ b/tests/unit_tests/double/test_IFFT.sci @@ -0,0 +1,89 @@ +function test_IFFT() + + +disp(ifft(2)); // d0IFFTd0 +disp(ifft(%i + 4)) // z0IFFTz0 + +disp(ifft([1 2])); // d2IFFTd2 +disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 +disp(ifft([1 2]*%i)); // z2IFFTz2 + +disp(ifft(4.4)) +disp(ifft(%i + 3.4)) + + +// one input + a = [10 1 15 3.5 ]; //d2Fftz2 + Abis = a + zeros(a)*%i ; + disp(ifft(Abis)); + disp("********1*******"); + b = [25 3.6]; // d2Fftd2 + disp(ifft(b)); + disp("********2*******"); + c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + cbis = c + zeros(c)*%i ; + disp(ifft(cbis)); + disp("********3*********"); + // pure imaginary + d = [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(ifft(d)); + disp("********4*********"); + e = [25 3.6]*%i; // z2Fftd2 + disp(ifft(e)); + disp("********5***********"); + f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(ifft(f)); + disp("********6***********"); + // full complex + + g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + disp(ifft(g)); + disp("********7***********"); + h = b + [25 3.6]*%i; // z2Fftd2 + disp(ifft(h)); + disp("********8***********"); + j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ] + disp(ifft(j)); + disp("********************"); + disp("*******************"); + disp("*******************"); + disp("********************"); + + +// ******************** +// MATRIX +// ******************** +// one input + aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + disp(ifft(aa)); + disp("********9***********"); + bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + disp(ifft(bb)); + disp("********10**********"); + cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + disp(ifft(cc)); + disp("********11**********"); + // pure imaginary + dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + disp(ifft(dd)); + disp("********12**********"); + ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + disp(ifft(ee)); + disp("********13**********"); + ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 65546 1.78 ] + + disp(ifft(ff)); + disp("********14**********"); + // full complex + + gg = aa + dd; //z2Fftz2 + disp(ifft(gg)); + disp("********15**********"); + hh = bb + ee; // z2Fftd2 + disp(ifft(hh)); + disp("********16**********"); + jj= cc + ff + disp(ifft(jj)); + + +endfunction diff --git a/tests/unit_tests/double/test_IFFT.sci.dia.ref b/tests/unit_tests/double/test_IFFT.sci.dia.ref new file mode 100644 index 0000000..b1023a1 --- /dev/null +++ b/tests/unit_tests/double/test_IFFT.sci.dia.ref @@ -0,0 +1,4472 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_IFFT.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 2. + + 4. + i + + 1.5 - 0.5 + + 0.6666667 0.1666667 - 1.4433757i 0.1666667 + 1.4433757i + + 1.5i - 0.5i + + 4.4 + + 3.4 + i + + 7.375 - 1.25 - 0.625i 5.125 - 1.25 + 0.625i + + ********1******* + + 14.3 10.7 + + ********2******* + + + column 1 to 3 + + 2236.0314 1792.8169 - 1235.3786i 769.49776 - 2055.1006i + + column 4 to 5 + + - 483.22773 - 2116.6758i - 1602.6181 - 1433.2571i + + column 6 to 7 + + - 2132.1424 - 340.59732i - 1925.5675 + 921.43654i + + column 8 to 9 + + - 1106.7043 + 1873.9016i 118.16434 + 2150.2941i + + column 10 to 11 + + 1373.4461 + 1728.4382i 2083.3191 + 665.95496i + + column 12 to 13 + + 2083.3191 - 665.95496i 1373.4461 - 1728.4382i + + column 14 to 15 + + 118.16434 - 2150.2941i - 1106.7043 - 1873.9016i + + column 16 to 17 + + - 1925.5675 - 921.43654i - 2132.1424 + 340.59732i + + column 18 to 19 + + - 1602.6181 + 1433.2571i - 483.22773 + 2116.6758i + + column 20 to 21 + + 769.49776 + 2055.1006i 1792.8169 + 1235.3786i + + ********3********* + + 7.375i 0.625 - 1.25i 5.125i - 0.625 - 1.25i + + ********4********* + + 14.3i 10.7i + + ********5*********** + + + column 1 to 3 + + 2236.0314i 1235.3786 + 1792.8169i 2055.1006 + 769.49776i + + column 4 to 5 + + 2116.6758 - 483.22773i 1433.2571 - 1602.6181i + + column 6 to 7 + + 340.59732 - 2132.1424i - 921.43654 - 1925.5675i + + column 8 to 9 + + - 1873.9016 - 1106.7043i - 2150.2941 + 118.16434i + + column 10 to 11 + + - 1728.4382 + 1373.4461i - 665.95496 + 2083.3191i + + column 12 to 13 + + 665.95496 + 2083.3191i 1728.4382 + 1373.4461i + + column 14 to 15 + + 2150.2941 + 118.16434i 1873.9016 - 1106.7043i + + column 16 to 17 + + 921.43654 - 1925.5675i - 340.59732 - 2132.1424i + + column 18 to 19 + + - 1433.2571 - 1602.6181i - 2116.6758 - 483.22773i + + column 20 to 21 + + - 2055.1006 + 769.49776i - 1235.3786 + 1792.8169i + + ********6*********** + + + column 1 to 3 + + 7.375 + 7.375i - 0.625 - 1.875i 5.125 + 5.125i + + column 4 + + - 1.875 - 0.625i + + ********7*********** + + 14.3 + 14.3i 10.7 + 10.7i + + ********8*********** + + + column 1 to 2 + + 2236.0314 + 2236.0314i 3028.1955 + 557.43835i + + column 3 to 4 + + 2824.5983 - 1285.6028i 1633.448 - 2599.9035i + + column 5 to 6 + + - 169.36101 - 3035.8752i - 1791.5451 - 2472.7397i + + column 7 to 8 + + - 2847.004 - 1004.1309i - 2980.6059 + 767.19736i + + column 9 to 10 + + - 2032.1297 + 2268.4584i - 354.99203 + 3101.8843i + + column 11 to 12 + + 1417.3642 + 2749.2741i 2749.2741 + 1417.3642i + + column 13 to 14 + + 3101.8843 - 354.99203i 2268.4584 - 2032.1297i + + column 15 to 16 + + 767.19736 - 2980.6059i - 1004.1309 - 2847.004i + + column 17 to 18 + + - 2472.7397 - 1791.5451i - 3035.8752 - 169.36101i + + column 19 to 20 + + - 2599.9035 + 1633.448i - 1285.6028 + 2824.5983i + + column 21 + + 557.43835 + 3028.1955i + + ******************** + + ******************* + + ******************* + + ******************** + + 6.5625 - 1.125 - 0.6875i 3.1875 - 1.125 + 0.6875i + 0.8125 - 0.125 + 0.0625i 1.9375 - 0.125 - 0.0625i + + ********9*********** + + 8.95 5.55 + 5.35 5.15 + + ********10********** + + + column 1 to 3 + + 2702.1086 2173.7629 - 1504.7062i 958.3983 - 2473.753i + - 466.07714 - 380.94596 + 269.32767i - 188.90055 + 418.65244i + + column 4 to 5 + + - 590.43082 - 2590.6981i - 1949.7881 - 1760.3148i + 107.20309 + 474.0223i 347.16999 + 327.05766i + + column 6 to 7 + + - 2598.9174 - 412.95691i - 2373.3059 + 1140.6306i + 466.775 + 72.359584i 447.73845 - 219.19404i + + column 8 to 9 + + - 1324.2514 + 2286.3879i 158.37631 + 2625.3279i + 217.54714 - 412.48625i - 40.211977 - 475.03387i + + column 10 to 11 + + 1671.4325 + 2098.0929i 2531.4195 + 783.93509i + - 297.98631 - 369.65472i - 448.10032 - 117.98013i + + column 12 to 13 + + 2531.4195 - 783.93509i 1671.4325 - 2098.0929i + - 448.10032 + 117.98013i - 297.98631 + 369.65472i + + column 14 to 15 + + 158.37631 - 2625.3279i - 1324.2514 - 2286.3879i + - 40.211977 + 475.03387i 217.54714 + 412.48625i + + column 16 to 17 + + - 2373.3059 - 1140.6306i - 2598.9174 + 412.95691i + 447.73845 + 219.19404i 466.775 - 72.359584i + + column 18 to 19 + + - 1949.7881 + 1760.3148i - 590.43082 + 2590.6981i + 347.16999 - 327.05766i 107.20309 - 474.0223i + + column 20 to 21 + + 958.3983 + 2473.753i 2173.7629 + 1504.7062i + - 188.90055 - 418.65244i - 380.94596 - 269.32767i + + ********11********** + + 6.4375i - 0.3125 - 0.75i 2.5625i 0.3125 - 0.75i + 0.9375i 0.9375 - 0.5i 2.5625i - 0.9375 - 0.5i + + ********12********** + + 9.625i 4.875i + 4.675i 5.825i + + ********13********** + + + column 1 to 3 + + 2702.1086i 1504.7062 + 2173.7629i 2473.753 + 958.3983i + - 466.07714i - 269.32767 - 380.94596i - 418.65244 - 188.90055i + + column 4 to 5 + + 2590.6981 - 590.43082i 1760.3148 - 1949.7881i + - 474.0223 + 107.20309i - 327.05766 + 347.16999i + + column 6 to 7 + + 412.95691 - 2598.9174i - 1140.6306 - 2373.3059i + - 72.359584 + 466.775i 219.19404 + 447.73845i + + column 8 to 9 + + - 2286.3879 - 1324.2514i - 2625.3279 + 158.37631i + 412.48625 + 217.54714i 475.03387 - 40.211977i + + column 10 to 11 + + - 2098.0929 + 1671.4325i - 783.93509 + 2531.4195i + 369.65472 - 297.98631i 117.98013 - 448.10032i + + column 12 to 13 + + 783.93509 + 2531.4195i 2098.0929 + 1671.4325i + - 117.98013 - 448.10032i - 369.65472 - 297.98631i + + column 14 to 15 + + 2625.3279 + 158.37631i 2286.3879 - 1324.2514i + - 475.03387 - 40.211977i - 412.48625 + 217.54714i + + column 16 to 17 + + 1140.6306 - 2373.3059i - 412.95691 - 2598.9174i + - 219.19404 + 447.73845i 72.359584 + 466.775i + + column 18 to 19 + + - 1760.3148 - 1949.7881i - 2590.6981 - 590.43082i + 327.05766 + 347.16999i 474.0223 + 107.20309i + + column 20 to 21 + + - 2473.753 + 958.3983i - 1504.7062 + 2173.7629i + 418.65244 - 188.90055i 269.32767 - 380.94596i + + ********14********** + + + column 1 to 3 + + 6.5625 + 6.4375i - 1.4375 - 1.4375i 3.1875 + 2.5625i + 0.8125 + 0.9375i 0.8125 - 0.4375i 1.9375 + 2.5625i + + column 4 + + - 0.8125 - 0.0625i + - 1.0625 - 0.5625i + + ********15********** + + 8.95 + 9.625i 5.55 + 4.875i + 5.35 + 4.675i 5.15 + 5.825i + + ********16********** + + + column 1 to 2 + + 2702.1086 + 2702.1086i 3678.4691 + 669.05664i + - 466.07714 - 466.07714i - 650.27363 - 111.61828i + + column 3 to 4 + + 3432.1513 - 1515.3547i 2000.2672 - 3181.1289i + - 607.55299 + 229.7519i - 366.81921 + 581.22539i + + column 5 to 6 + + - 189.47334 - 3710.1029i - 2185.9605 - 3011.8743i + 20.112333 + 674.22765i 394.41542 + 539.13459i + + column 7 to 8 + + - 3513.9365 - 1232.6753i - 3610.6393 + 962.13647i + 666.93249 + 228.54441i 630.03339 - 194.93911i + + column 9 to 10 + + - 2466.9516 + 2783.7043i - 426.66045 + 3769.5253i + 434.8219 - 515.24585i 71.668414 - 667.64102i + + column 11 to 12 + + 1747.4844 + 3315.3546i 3315.3546 + 1747.4844i + - 330.12019 - 566.08045i - 566.08045 - 330.12019i + + column 13 to 14 + + 3769.5253 - 426.66045i 2783.7043 - 2466.9516i + - 667.64102 + 71.668414i - 515.24585 + 434.8219i + + column 15 to 16 + + 962.13647 - 3610.6393i - 1232.6753 - 3513.9365i + - 194.93911 + 630.03339i 228.54441 + 666.93249i + + column 17 to 18 + + - 3011.8743 - 2185.9605i - 3710.1029 - 189.47334i + 539.13459 + 394.41542i 674.22765 + 20.112333i + + column 19 to 20 + + - 3181.1289 + 2000.2672i - 1515.3547 + 3432.1513i + 581.22539 - 366.81921i 229.7519 - 607.55299i + + column 21 + + 669.05664 + 3678.4691i + - 111.61828 - 650.27363i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_IFFT" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(2)); // d0IFFTd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(%i + 4)) // z0IFFTz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 2])); // d2IFFTd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(4.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(%i + 3.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: Abis = a + zeros(a)*%i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(Abis)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [25 3.6]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456 + 56 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cbis = c + zeros(c)*%i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(cbis)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********3*********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(d)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********4*********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********5***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(f)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********6***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(g)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********7***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(h)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********8***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2. + 36 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(j)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // MATRIX + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(aa)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********9***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(bb)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********10**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45 + 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554 + 6 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(cc)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********11**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(dd)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********12**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(ee)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********13**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 + 65546 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(ff)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********14**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: gg = aa + dd; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(gg)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********15**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: hh = bb + ee; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(hh)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********16**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: jj= cc + ff + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(jj)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_IFFT() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp15; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp16; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp20[1 * 4]; ! +! ! +! int ____temp20Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp21[1 * 4]; ! +! ! +! int ____temp21Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex Abis[1 * 4]; ! +! ! +! int __AbisSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp22[1 * 4]; ! +! ! +! int ____temp22Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! char __temp23[1*17] = {"********1*******"}; ! +! ! +! int ____temp23Size[2] = {1,17}; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double b[1 * 2]; ! +! ! +! int __bSize[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! char __temp25[1*17] = {"********2*******"}; ! +! ! +! int ____temp25Size[2] = {1,17}; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp28[1 * 4]; ! +! ! +! int ____temp28Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp29[1 * 5]; ! +! ! +! int ____temp29Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp30[1 * 6]; ! +! ! +! int ____temp30Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp31[1 * 7]; ! +! ! +! int ____temp31Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp32[1 * 8]; ! +! ! +! int ____temp32Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp33[1 * 9]; ! +! ! +! int ____temp33Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp34[1 * 10]; ! +! ! +! int ____temp34Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp35[1 * 11]; ! +! ! +! int ____temp35Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp36[1 * 12]; ! +! ! +! int ____temp36Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp37[1 * 13]; ! +! ! +! int ____temp37Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp38[1 * 14]; ! +! ! +! int ____temp38Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp39[1 * 15]; ! +! ! +! int ____temp39Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp40[1 * 16]; ! +! ! +! int ____temp40Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp41[1 * 17]; ! +! ! +! int ____temp41Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp42[1 * 18]; ! +! ! +! int ____temp42Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp43[1 * 19]; ! +! ! +! int ____temp43Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp44[1 * 20]; ! +! ! +! int ____temp44Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double c[1 * 21]; ! +! ! +! int __cSize[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp45[1 * 21]; ! +! ! +! int ____temp45Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp46[1 * 21]; ! +! ! +! int ____temp46Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex cbis[1 * 21]; ! +! ! +! int __cbisSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp47[1 * 21]; ! +! ! +! int ____temp47Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! char __temp48[1*19] = {"********3*********"}; ! +! ! +! int ____temp48Size[2] = {1,19}; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp49[1 * 2]; ! +! ! +! int ____temp49Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp50[1 * 3]; ! +! ! +! int ____temp50Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp51[1 * 4]; ! +! ! +! int ____temp51Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex d[1 * 4]; ! +! ! +! int __dSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp52[1 * 4]; ! +! ! +! int ____temp52Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! char __temp53[1*19] = {"********4*********"}; ! +! ! +! int ____temp53Size[2] = {1,19}; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex e[1 * 2]; ! +! ! +! int __eSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp55[1 * 2]; ! +! ! +! int ____temp55Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! char __temp56[1*21] = {"********5***********"}; ! +! ! +! int ____temp56Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! double __temp57[1 * 2]; ! +! ! +! int ____temp57Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp59[1 * 4]; ! +! ! +! int ____temp59Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp60[1 * 5]; ! +! ! +! int ____temp60Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp61[1 * 6]; ! +! ! +! int ____temp61Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp62[1 * 7]; ! +! ! +! int ____temp62Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp63[1 * 8]; ! +! ! +! int ____temp63Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp64[1 * 9]; ! +! ! +! int ____temp64Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp65[1 * 10]; ! +! ! +! int ____temp65Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp66[1 * 11]; ! +! ! +! int ____temp66Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp67[1 * 12]; ! +! ! +! int ____temp67Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp68[1 * 13]; ! +! ! +! int ____temp68Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp69[1 * 14]; ! +! ! +! int ____temp69Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp70[1 * 15]; ! +! ! +! int ____temp70Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp71[1 * 16]; ! +! ! +! int ____temp71Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp72[1 * 17]; ! +! ! +! int ____temp72Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp73[1 * 18]; ! +! ! +! int ____temp73Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp74[1 * 19]; ! +! ! +! int ____temp74Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp75[1 * 20]; ! +! ! +! int ____temp75Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp76[1 * 21]; ! +! ! +! int ____temp76Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex f[1 * 21]; ! +! ! +! int __fSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp77[1 * 21]; ! +! ! +! int ____temp77Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! char __temp78[1*21] = {"********6***********"}; ! +! ! +! int ____temp78Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp81[1 * 4]; ! +! ! +! int ____temp81Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp82[1 * 4]; ! +! ! +! int ____temp82Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex g[1 * 4]; ! +! ! +! int __gSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp83[1 * 4]; ! +! ! +! int ____temp83Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! char __temp84[1*21] = {"********7***********"}; ! +! ! +! int ____temp84Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp86[1 * 2]; ! +! ! +! int ____temp86Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex h[1 * 2]; ! +! ! +! int __hSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp87[1 * 2]; ! +! ! +! int ____temp87Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! char __temp88[1*21] = {"********8***********"}; ! +! ! +! int ____temp88Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp90[1 * 3]; ! +! ! +! int ____temp90Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp91[1 * 4]; ! +! ! +! int ____temp91Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp92[1 * 5]; ! +! ! +! int ____temp92Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp93[1 * 6]; ! +! ! +! int ____temp93Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp94[1 * 7]; ! +! ! +! int ____temp94Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp95[1 * 8]; ! +! ! +! int ____temp95Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp96[1 * 9]; ! +! ! +! int ____temp96Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp97[1 * 10]; ! +! ! +! int ____temp97Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp98[1 * 11]; ! +! ! +! int ____temp98Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp99[1 * 12]; ! +! ! +! int ____temp99Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp100[1 * 13]; ! +! ! +! int ____temp100Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp101[1 * 14]; ! +! ! +! int ____temp101Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp102[1 * 15]; ! +! ! +! int ____temp102Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp103[1 * 16]; ! +! ! +! int ____temp103Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp104[1 * 17]; ! +! ! +! int ____temp104Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp105[1 * 18]; ! +! ! +! int ____temp105Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp106[1 * 19]; ! +! ! +! int ____temp106Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp107[1 * 20]; ! +! ! +! int ____temp107Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp108[1 * 21]; ! +! ! +! int ____temp108Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp109[1 * 21]; ! +! ! +! int ____temp109Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex j[1 * 21]; ! +! ! +! int __jSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp110[1 * 21]; ! +! ! +! int ____temp110Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! char __temp111[1*21] = {"********************"}; ! +! ! +! int ____temp111Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! char __temp112[1*20] = {"*******************"}; ! +! ! +! int ____temp112Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! char __temp113[1*20] = {"*******************"}; ! +! ! +! int ____temp113Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! char __temp114[1*21] = {"********************"}; ! +! ! +! int ____temp114Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp116[1 * 3]; ! +! ! +! int ____temp116Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp117[1 * 4]; ! +! ! +! int ____temp117Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp118[1 * 2]; ! +! ! +! int ____temp118Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp119[1 * 3]; ! +! ! +! int ____temp119Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp120[1 * 4]; ! +! ! +! int ____temp120Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double aa[2 * 4]; ! +! ! +! int __aaSize[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp121[2 * 4]; ! +! ! +! int ____temp121Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! char __temp122[1*21] = {"********9***********"}; ! +! ! +! int ____temp122Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp123[1 * 2]; ! +! ! +! int ____temp123Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp124[1 * 2]; ! +! ! +! int ____temp124Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double bb[2 * 2]; ! +! ! +! int __bbSize[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp125[2 * 2]; ! +! ! +! int ____temp125Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! char __temp126[1*21] = {"********10**********"}; ! +! ! +! int ____temp126Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! double __temp127[1 * 2]; ! +! ! +! int ____temp127Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp128[1 * 3]; ! +! ! +! int ____temp128Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp129[1 * 4]; ! +! ! +! int ____temp129Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp130[1 * 5]; ! +! ! +! int ____temp130Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp131[1 * 6]; ! +! ! +! int ____temp131Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp132[1 * 7]; ! +! ! +! int ____temp132Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp133[1 * 8]; ! +! ! +! int ____temp133Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp134[1 * 9]; ! +! ! +! int ____temp134Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp135[1 * 10]; ! +! ! +! int ____temp135Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp136[1 * 11]; ! +! ! +! int ____temp136Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp137[1 * 12]; ! +! ! +! int ____temp137Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp138[1 * 13]; ! +! ! +! int ____temp138Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp139[1 * 14]; ! +! ! +! int ____temp139Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp140[1 * 15]; ! +! ! +! int ____temp140Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp141[1 * 16]; ! +! ! +! int ____temp141Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp142[1 * 17]; ! +! ! +! int ____temp142Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp143[1 * 18]; ! +! ! +! int ____temp143Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp144[1 * 19]; ! +! ! +! int ____temp144Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp145[1 * 20]; ! +! ! +! int ____temp145Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp146[1 * 21]; ! +! ! +! int ____temp146Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp147[1 * 2]; ! +! ! +! int ____temp147Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp148[1 * 3]; ! +! ! +! int ____temp148Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp149[1 * 4]; ! +! ! +! int ____temp149Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp150[1 * 5]; ! +! ! +! int ____temp150Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp151[1 * 6]; ! +! ! +! int ____temp151Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp152[1 * 7]; ! +! ! +! int ____temp152Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp153[1 * 8]; ! +! ! +! int ____temp153Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp154[1 * 9]; ! +! ! +! int ____temp154Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp155[1 * 10]; ! +! ! +! int ____temp155Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp156[1 * 11]; ! +! ! +! int ____temp156Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp157[1 * 12]; ! +! ! +! int ____temp157Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp158[1 * 13]; ! +! ! +! int ____temp158Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp159[1 * 14]; ! +! ! +! int ____temp159Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp160[1 * 15]; ! +! ! +! int ____temp160Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp161[1 * 16]; ! +! ! +! int ____temp161Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp162[1 * 17]; ! +! ! +! int ____temp162Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp163[1 * 18]; ! +! ! +! int ____temp163Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp164[1 * 19]; ! +! ! +! int ____temp164Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp165[1 * 20]; ! +! ! +! int ____temp165Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp166[1 * 21]; ! +! ! +! int ____temp166Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double cc[2 * 21]; ! +! ! +! int __ccSize[2] = {2, 21};; ! +! ! +! ! +! ! +! double __temp167[2 * 21]; ! +! ! +! int ____temp167Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! char __temp168[1*21] = {"********11**********"}; ! +! ! +! int ____temp168Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans34; ! +! ! +! ! +! ! +! double __temp169[1 * 2]; ! +! ! +! int ____temp169Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp170[1 * 3]; ! +! ! +! int ____temp170Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp171[1 * 4]; ! +! ! +! int ____temp171Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp172[1 * 2]; ! +! ! +! int ____temp172Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp173[1 * 3]; ! +! ! +! int ____temp173Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp174[1 * 4]; ! +! ! +! int ____temp174Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp175[2 * 4]; ! +! ! +! int ____temp175Size[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex dd[2 * 4]; ! +! ! +! int __ddSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp176[2 * 4]; ! +! ! +! int ____temp176Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans35; ! +! ! +! ! +! ! +! char __temp177[1*21] = {"********12**********"}; ! +! ! +! int ____temp177Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans36; ! +! ! +! ! +! ! +! double __temp178[1 * 2]; ! +! ! +! int ____temp178Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp179[1 * 2]; ! +! ! +! int ____temp179Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp180[2 * 2]; ! +! ! +! int ____temp180Size[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex ee[2 * 2]; ! +! ! +! int __eeSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp181[2 * 2]; ! +! ! +! int ____temp181Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans37; ! +! ! +! ! +! ! +! char __temp182[1*21] = {"********13**********"}; ! +! ! +! int ____temp182Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans38; ! +! ! +! ! +! ! +! double __temp183[1 * 2]; ! +! ! +! int ____temp183Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp184[1 * 3]; ! +! ! +! int ____temp184Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp185[1 * 4]; ! +! ! +! int ____temp185Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp186[1 * 5]; ! +! ! +! int ____temp186Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp187[1 * 6]; ! +! ! +! int ____temp187Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp188[1 * 7]; ! +! ! +! int ____temp188Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp189[1 * 8]; ! +! ! +! int ____temp189Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp190[1 * 9]; ! +! ! +! int ____temp190Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp191[1 * 10]; ! +! ! +! int ____temp191Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp192[1 * 11]; ! +! ! +! int ____temp192Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp193[1 * 12]; ! +! ! +! int ____temp193Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp194[1 * 13]; ! +! ! +! int ____temp194Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp195[1 * 14]; ! +! ! +! int ____temp195Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp196[1 * 15]; ! +! ! +! int ____temp196Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp197[1 * 16]; ! +! ! +! int ____temp197Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp198[1 * 17]; ! +! ! +! int ____temp198Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp199[1 * 18]; ! +! ! +! int ____temp199Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp200[1 * 19]; ! +! ! +! int ____temp200Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp201[1 * 20]; ! +! ! +! int ____temp201Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp202[1 * 21]; ! +! ! +! int ____temp202Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp203[1 * 2]; ! +! ! +! int ____temp203Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp204[1 * 3]; ! +! ! +! int ____temp204Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp205[1 * 4]; ! +! ! +! int ____temp205Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp206[1 * 5]; ! +! ! +! int ____temp206Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp207[1 * 6]; ! +! ! +! int ____temp207Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp208[1 * 7]; ! +! ! +! int ____temp208Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp209[1 * 8]; ! +! ! +! int ____temp209Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp210[1 * 9]; ! +! ! +! int ____temp210Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp211[1 * 10]; ! +! ! +! int ____temp211Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp212[1 * 11]; ! +! ! +! int ____temp212Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp213[1 * 12]; ! +! ! +! int ____temp213Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp214[1 * 13]; ! +! ! +! int ____temp214Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp215[1 * 14]; ! +! ! +! int ____temp215Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp216[1 * 15]; ! +! ! +! int ____temp216Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp217[1 * 16]; ! +! ! +! int ____temp217Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp218[1 * 17]; ! +! ! +! int ____temp218Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp219[1 * 18]; ! +! ! +! int ____temp219Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp220[1 * 19]; ! +! ! +! int ____temp220Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp221[1 * 20]; ! +! ! +! int ____temp221Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp222[1 * 21]; ! +! ! +! int ____temp222Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp223[2 * 21]; ! +! ! +! int ____temp223Size[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex ff[2 * 21]; ! +! ! +! int __ffSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp224[2 * 21]; ! +! ! +! int ____temp224Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans39; ! +! ! +! ! +! ! +! char __temp225[1*21] = {"********14**********"}; ! +! ! +! int ____temp225Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans40; ! +! ! +! ! +! ! +! doubleComplex gg[2 * 4]; ! +! ! +! int __ggSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp226[2 * 4]; ! +! ! +! int ____temp226Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans41; ! +! ! +! ! +! ! +! char __temp227[1*21] = {"********15**********"}; ! +! ! +! int ____temp227Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans42; ! +! ! +! ! +! ! +! doubleComplex hh[2 * 2]; ! +! ! +! int __hhSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp228[2 * 2]; ! +! ! +! int ____temp228Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans43; ! +! ! +! ! +! ! +! char __temp229[1*21] = {"********16**********"}; ! +! ! +! int ____temp229Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans44; ! +! ! +! ! +! ! +! doubleComplex jj[2 * 21]; ! +! ! +! int __jjSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp230[2 * 21]; ! +! ! +! int ____temp230Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans45; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(2)); // d0IFFTd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0ifftd0(2); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(%i + 4)) // z0IFFTz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),4); ! +! ! +! __temp3 = z0ifftz0(__temp2); ! +! ! +! ans2 = z0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 2])); // d2IFFTd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp4); ! +! ! +! d2ifftd2(__temp4, ____temp4Size,__temp5); ! +! ! +! ans3 = d2dispd0(__temp5, ____temp5Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,-2,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,3,__temp7); ! +! ! +! d0d0zerosd2(1,3,__temp8); ! +! ! +! d2z0OpStarz2(__temp8, ____temp8Size,DoubleComplex(0,1),__temp9); ! +! ! +! d2z2OpPlusz2(__temp7, ____temp7Size,__temp9, ____temp9Size,__temp! +! 10); ! +! ! +! z2ifftz2(__temp10, ____temp10Size,__temp11); ! +! ! +! ans4 = z2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp12); ! +! ! +! d2z0OpStarz2(__temp12, ____temp12Size,DoubleComplex(0,1),__temp13)! +! ; ! +! ! +! z2ifftz2(__temp13, ____temp13Size,__temp14); ! +! ! +! ans5 = z2dispd0(__temp14, ____temp14Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(4.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = d0ifftd0(4.4); ! +! ! +! ans6 = d0dispd0(__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(%i + 3.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp16 = z0d0OpPlusz0(DoubleComplex(0,1),3.4); ! +! ! +! __temp17 = z0ifftz0(__temp16); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,15,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,3.5,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: Abis = a + zeros(a)*%i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(a, __aSize,__temp20); ! +! ! +! d2z0OpStarz2(__temp20, ____temp20Size,DoubleComplex(0,1),__temp21)! +! ; ! +! ! +! d2z2OpPlusz2(a, __aSize,__temp21, ____temp21Size,Abis); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(Abis)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(Abis, __AbisSize,__temp22); ! +! ! +! ans8 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = g2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [25 3.6]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(b, __bSize,__temp24); ! +! ! +! ans10 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = g2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456! +! 56 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,5,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,6,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); ! +! ! +! d2d0OpRcd2(__temp29, ____temp29Size,8,__temp30); ! +! ! +! d2d0OpRcd2(__temp30, ____temp30Size,9,__temp31); ! +! ! +! d2d0OpRcd2(__temp31, ____temp31Size,445,__temp32); ! +! ! +! d2d0OpRcd2(__temp32, ____temp32Size,1,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,2,__temp34); ! +! ! +! d2d0OpRcd2(__temp34, ____temp34Size,3,__temp35); ! +! ! +! d2d0OpRcd2(__temp35, ____temp35Size,0,__temp36); ! +! ! +! d2d0OpRcd2(__temp36, ____temp36Size,125,__temp37); ! +! ! +! d2d0OpRcd2(__temp37, ____temp37Size,5,__temp38); ! +! ! +! d2d0OpRcd2(__temp38, ____temp38Size,41,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,4,__temp40); ! +! ! +! d2d0OpRcd2(__temp40, ____temp40Size,5,__temp41); ! +! ! +! d2d0OpRcd2(__temp41, ____temp41Size,552,__temp42); ! +! ! +! d2d0OpRcd2(__temp42, ____temp42Size,2.36,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,45656,__temp44); ! +! ! +! d2d0OpRcd2(__temp44, ____temp44Size,72.3,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cbis = c + zeros(c)*%i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(c, __cSize,__temp45); ! +! ! +! d2z0OpStarz2(__temp45, ____temp45Size,DoubleComplex(0,1),__temp46)! +! ; ! +! ! +! d2z2OpPlusz2(c, __cSize,__temp46, ____temp46Size,cbis); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(cbis)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(cbis, __cbisSize,__temp47); ! +! ! +! ans12 = z2dispd0(__temp47, ____temp47Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********3*********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = g2dispd0(__temp48, ____temp48Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp49); ! +! ! +! d2d0OpRcd2(__temp49, ____temp49Size,15,__temp50); ! +! ! +! d2d0OpRcd2(__temp50, ____temp50Size,3.5,__temp51); ! +! ! +! d2z0OpStarz2(__temp51, ____temp51Size,DoubleComplex(0,1),d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(d)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(d, __dSize,__temp52); ! +! ! +! ans14 = z2dispd0(__temp52, ____temp52Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********4*********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = g2dispd0(__temp53, ____temp53Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp54); ! +! ! +! d2z0OpStarz2(__temp54, ____temp54Size,DoubleComplex(0,1),e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(e, __eSize,__temp55); ! +! ! +! ans16 = z2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********5***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans17 = g2dispd0(__temp56, ____temp56Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 ! +! 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp57); ! +! ! +! d2d0OpRcd2(__temp57, ____temp57Size,5,__temp58); ! +! ! +! d2d0OpRcd2(__temp58, ____temp58Size,6,__temp59); ! +! ! +! d2d0OpRcd2(__temp59, ____temp59Size,3,__temp60); ! +! ! +! d2d0OpRcd2(__temp60, ____temp60Size,8,__temp61); ! +! ! +! d2d0OpRcd2(__temp61, ____temp61Size,9,__temp62); ! +! ! +! d2d0OpRcd2(__temp62, ____temp62Size,445,__temp63); ! +! ! +! d2d0OpRcd2(__temp63, ____temp63Size,1,__temp64); ! +! ! +! d2d0OpRcd2(__temp64, ____temp64Size,2,__temp65); ! +! ! +! d2d0OpRcd2(__temp65, ____temp65Size,3,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,0,__temp67); ! +! ! +! d2d0OpRcd2(__temp67, ____temp67Size,125,__temp68); ! +! ! +! d2d0OpRcd2(__temp68, ____temp68Size,5,__temp69); ! +! ! +! d2d0OpRcd2(__temp69, ____temp69Size,41,__temp70); ! +! ! +! d2d0OpRcd2(__temp70, ____temp70Size,4,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,5,__temp72); ! +! ! +! d2d0OpRcd2(__temp72, ____temp72Size,552,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,2.36,__temp74); ! +! ! +! d2d0OpRcd2(__temp74, ____temp74Size,45656,__temp75); ! +! ! +! d2d0OpRcd2(__temp75, ____temp75Size,72.3,__temp76); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp76, ____temp76Size,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(f)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(f, __fSize,__temp77); ! +! ! +! ans18 = z2dispd0(__temp77, ____temp77Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********6***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans19 = g2dispd0(__temp78, ____temp78Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,15,__temp80); ! +! ! +! d2d0OpRcd2(__temp80, ____temp80Size,3.5,__temp81); ! +! ! +! d2z0OpStarz2(__temp81, ____temp81Size,DoubleComplex(0,1),__temp82)! +! ; ! +! ! +! d2z2OpPlusz2(a, __aSize,__temp82, ____temp82Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(g)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(g, __gSize,__temp83); ! +! ! +! ans20 = z2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********7***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans21 = g2dispd0(__temp84, ____temp84Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp85); ! +! ! +! d2z0OpStarz2(__temp85, ____temp85Size,DoubleComplex(0,1),__temp86)! +! ; ! +! ! +! d2z2OpPlusz2(b, __bSize,__temp86, ____temp86Size,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(h)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(h, __hSize,__temp87); ! +! ! +! ans22 = z2dispd0(__temp87, ____temp87Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********8***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans23 = g2dispd0(__temp88, ____temp88Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.! +! 36 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp89); ! +! ! +! d2d0OpRcd2(__temp89, ____temp89Size,5,__temp90); ! +! ! +! d2d0OpRcd2(__temp90, ____temp90Size,6,__temp91); ! +! ! +! d2d0OpRcd2(__temp91, ____temp91Size,3,__temp92); ! +! ! +! d2d0OpRcd2(__temp92, ____temp92Size,8,__temp93); ! +! ! +! d2d0OpRcd2(__temp93, ____temp93Size,9,__temp94); ! +! ! +! d2d0OpRcd2(__temp94, ____temp94Size,445,__temp95); ! +! ! +! d2d0OpRcd2(__temp95, ____temp95Size,1,__temp96); ! +! ! +! d2d0OpRcd2(__temp96, ____temp96Size,2,__temp97); ! +! ! +! d2d0OpRcd2(__temp97, ____temp97Size,3,__temp98); ! +! ! +! d2d0OpRcd2(__temp98, ____temp98Size,0,__temp99); ! +! ! +! d2d0OpRcd2(__temp99, ____temp99Size,125,__temp100); ! +! ! +! d2d0OpRcd2(__temp100, ____temp100Size,5,__temp101); ! +! ! +! d2d0OpRcd2(__temp101, ____temp101Size,41,__temp102); ! +! ! +! d2d0OpRcd2(__temp102, ____temp102Size,4,__temp103); ! +! ! +! d2d0OpRcd2(__temp103, ____temp103Size,5,__temp104); ! +! ! +! d2d0OpRcd2(__temp104, ____temp104Size,552,__temp105); ! +! ! +! d2d0OpRcd2(__temp105, ____temp105Size,2.36,__temp106); ! +! ! +! d2d0OpRcd2(__temp106, ____temp106Size,45656,__temp107); ! +! ! +! d2d0OpRcd2(__temp107, ____temp107Size,72.3,__temp108); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp108, ____temp108Size,__temp1! +! 09); ! +! ! +! d2z2OpPlusz2(c, __cSize,__temp109, ____temp109Size,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(j)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(j, __jSize,__temp110); ! +! ! +! ans24 = z2dispd0(__temp110, ____temp110Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = g2dispd0(__temp111, ____temp111Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = g2dispd0(__temp112, ____temp112Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = g2dispd0(__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = g2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // MATRIX ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp115); ! +! ! +! d2d0OpRcd2(__temp115, ____temp115Size,15,__temp116); ! +! ! +! d2d0OpRcd2(__temp116, ____temp116Size,3.5,__temp117); ! +! ! +! d0d0OpRcd2(5,3,__temp118); ! +! ! +! d2d0OpRcd2(__temp118, ____temp118Size,9,__temp119); ! +! ! +! d2d0OpRcd2(__temp119, ____temp119Size,6,__temp120); ! +! ! +! d2d2OpCcd2(__temp117, ____temp117Size,__temp120, ____temp120Size,! +! aa); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(aa)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(aa, __aaSize,__temp121); ! +! ! +! ans29 = d2dispd0(__temp121, ____temp121Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********9***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = g2dispd0(__temp122, ____temp122Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp123); ! +! ! +! d0d0OpRcd2(4,3.2,__temp124); ! +! ! +! d2d2OpCcd2(__temp123, ____temp123Size,__temp124, ____temp124Size,! +! bb); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(bb)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(bb, __bbSize,__temp125); ! +! ! +! ans31 = d2dispd0(__temp125, ____temp125Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********10**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = g2dispd0(__temp126, ____temp126Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45! +! 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554! +! 6 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp127); ! +! ! +! d2d0OpRcd2(__temp127, ____temp127Size,5,__temp128); ! +! ! +! d2d0OpRcd2(__temp128, ____temp128Size,6,__temp129); ! +! ! +! d2d0OpRcd2(__temp129, ____temp129Size,3,__temp130); ! +! ! +! d2d0OpRcd2(__temp130, ____temp130Size,8,__temp131); ! +! ! +! d2d0OpRcd2(__temp131, ____temp131Size,9,__temp132); ! +! ! +! d2d0OpRcd2(__temp132, ____temp132Size,445,__temp133); ! +! ! +! d2d0OpRcd2(__temp133, ____temp133Size,1,__temp134); ! +! ! +! d2d0OpRcd2(__temp134, ____temp134Size,2,__temp135); ! +! ! +! d2d0OpRcd2(__temp135, ____temp135Size,3,__temp136); ! +! ! +! d2d0OpRcd2(__temp136, ____temp136Size,0,__temp137); ! +! ! +! d2d0OpRcd2(__temp137, ____temp137Size,125,__temp138); ! +! ! +! d2d0OpRcd2(__temp138, ____temp138Size,5,__temp139); ! +! ! +! d2d0OpRcd2(__temp139, ____temp139Size,41,__temp140); ! +! ! +! d2d0OpRcd2(__temp140, ____temp140Size,4,__temp141); ! +! ! +! d2d0OpRcd2(__temp141, ____temp141Size,5,__temp142); ! +! ! +! d2d0OpRcd2(__temp142, ____temp142Size,552,__temp143); ! +! ! +! d2d0OpRcd2(__temp143, ____temp143Size,2.36,__temp144); ! +! ! +! d2d0OpRcd2(__temp144, ____temp144Size,45656,__temp145); ! +! ! +! d2d0OpRcd2(__temp145, ____temp145Size,72.3,__temp146); ! +! ! +! d0d0OpRcd2(21,8,__temp147); ! +! ! +! d2d0OpRcd2(__temp147, ____temp147Size,2,__temp148); ! +! ! +! d2d0OpRcd2(__temp148, ____temp148Size,5,__temp149); ! +! ! +! d2d0OpRcd2(__temp149, ____temp149Size,6,__temp150); ! +! ! +! d2d0OpRcd2(__temp150, ____temp150Size,3,__temp151); ! +! ! +! d2d0OpRcd2(__temp151, ____temp151Size,4,__temp152); ! +! ! +! d2d0OpRcd2(__temp152, ____temp152Size,123,__temp153); ! +! ! +! d2d0OpRcd2(__temp153, ____temp153Size,5,__temp154); ! +! ! +! d2d0OpRcd2(__temp154, ____temp154Size,6,__temp155); ! +! ! +! d2d0OpRcd2(__temp155, ____temp155Size,0,__temp156); ! +! ! +! d2d0OpRcd2(__temp156, ____temp156Size,5,__temp157); ! +! ! +! d2d0OpRcd2(__temp157, ____temp157Size,548,__temp158); ! +! ! +! d2d0OpRcd2(__temp158, ____temp158Size,7,__temp159); ! +! ! +! d2d0OpRcd2(__temp159, ____temp159Size,65,__temp160); ! +! ! +! d2d0OpRcd2(__temp160, ____temp160Size,4,__temp161); ! +! ! +! d2d0OpRcd2(__temp161, ____temp161Size,2,__temp162); ! +! ! +! d2d0OpRcd2(__temp162, ____temp162Size,166,__temp163); ! +! ! +! d2d0OpRcd2(__temp163, ____temp163Size,4.12,__temp164); ! +! ! +! d2d0OpRcd2(__temp164, ____temp164Size,65546,__temp165); ! +! ! +! d2d0OpRcd2(__temp165, ____temp165Size,1.78,__temp166); ! +! ! +! d2d2OpCcd2(__temp146, ____temp146Size,__temp166, ____temp166Size,! +! cc); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(cc)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(cc, __ccSize,__temp167); ! +! ! +! ans33 = d2dispd0(__temp167, ____temp167Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********11**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans34 = g2dispd0(__temp168, ____temp168Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp169); ! +! ! +! d2d0OpRcd2(__temp169, ____temp169Size,15,__temp170); ! +! ! +! d2d0OpRcd2(__temp170, ____temp170Size,3.5,__temp171); ! +! ! +! d0d0OpRcd2(5,8,__temp172); ! +! ! +! d2d0OpRcd2(__temp172, ____temp172Size,6,__temp173); ! +! ! +! d2d0OpRcd2(__temp173, ____temp173Size,3,__temp174); ! +! ! +! d2d2OpCcd2(__temp171, ____temp171Size,__temp174, ____temp174Size,! +! __temp175); ! +! ! +! d2z0OpStarz2(__temp175, ____temp175Size,DoubleComplex(0,1),dd); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(dd)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(dd, __ddSize,__temp176); ! +! ! +! ans35 = z2dispd0(__temp176, ____temp176Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********12**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans36 = g2dispd0(__temp177, ____temp177Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp178); ! +! ! +! d0d0OpRcd2(4,5.9,__temp179); ! +! ! +! d2d2OpCcd2(__temp178, ____temp178Size,__temp179, ____temp179Size,! +! __temp180); ! +! ! +! d2z0OpStarz2(__temp180, ____temp180Size,DoubleComplex(0,1),ee); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(ee)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(ee, __eeSize,__temp181); ! +! ! +! ans37 = z2dispd0(__temp181, ____temp181Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********13**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans38 = g2dispd0(__temp182, ____temp182Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36! +! 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 ! +! 65546 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp183); ! +! ! +! d2d0OpRcd2(__temp183, ____temp183Size,5,__temp184); ! +! ! +! d2d0OpRcd2(__temp184, ____temp184Size,6,__temp185); ! +! ! +! d2d0OpRcd2(__temp185, ____temp185Size,3,__temp186); ! +! ! +! d2d0OpRcd2(__temp186, ____temp186Size,8,__temp187); ! +! ! +! d2d0OpRcd2(__temp187, ____temp187Size,9,__temp188); ! +! ! +! d2d0OpRcd2(__temp188, ____temp188Size,445,__temp189); ! +! ! +! d2d0OpRcd2(__temp189, ____temp189Size,1,__temp190); ! +! ! +! d2d0OpRcd2(__temp190, ____temp190Size,2,__temp191); ! +! ! +! d2d0OpRcd2(__temp191, ____temp191Size,3,__temp192); ! +! ! +! d2d0OpRcd2(__temp192, ____temp192Size,0,__temp193); ! +! ! +! d2d0OpRcd2(__temp193, ____temp193Size,125,__temp194); ! +! ! +! d2d0OpRcd2(__temp194, ____temp194Size,5,__temp195); ! +! ! +! d2d0OpRcd2(__temp195, ____temp195Size,41,__temp196); ! +! ! +! d2d0OpRcd2(__temp196, ____temp196Size,4,__temp197); ! +! ! +! d2d0OpRcd2(__temp197, ____temp197Size,5,__temp198); ! +! ! +! d2d0OpRcd2(__temp198, ____temp198Size,552,__temp199); ! +! ! +! d2d0OpRcd2(__temp199, ____temp199Size,2.36,__temp200); ! +! ! +! d2d0OpRcd2(__temp200, ____temp200Size,45656,__temp201); ! +! ! +! d2d0OpRcd2(__temp201, ____temp201Size,72.3,__temp202); ! +! ! +! d0d0OpRcd2(21,8,__temp203); ! +! ! +! d2d0OpRcd2(__temp203, ____temp203Size,2,__temp204); ! +! ! +! d2d0OpRcd2(__temp204, ____temp204Size,5,__temp205); ! +! ! +! d2d0OpRcd2(__temp205, ____temp205Size,6,__temp206); ! +! ! +! d2d0OpRcd2(__temp206, ____temp206Size,3,__temp207); ! +! ! +! d2d0OpRcd2(__temp207, ____temp207Size,4,__temp208); ! +! ! +! d2d0OpRcd2(__temp208, ____temp208Size,123,__temp209); ! +! ! +! d2d0OpRcd2(__temp209, ____temp209Size,5,__temp210); ! +! ! +! d2d0OpRcd2(__temp210, ____temp210Size,6,__temp211); ! +! ! +! d2d0OpRcd2(__temp211, ____temp211Size,0,__temp212); ! +! ! +! d2d0OpRcd2(__temp212, ____temp212Size,5,__temp213); ! +! ! +! d2d0OpRcd2(__temp213, ____temp213Size,548,__temp214); ! +! ! +! d2d0OpRcd2(__temp214, ____temp214Size,7,__temp215); ! +! ! +! d2d0OpRcd2(__temp215, ____temp215Size,65,__temp216); ! +! ! +! d2d0OpRcd2(__temp216, ____temp216Size,4,__temp217); ! +! ! +! d2d0OpRcd2(__temp217, ____temp217Size,2,__temp218); ! +! ! +! d2d0OpRcd2(__temp218, ____temp218Size,166,__temp219); ! +! ! +! d2d0OpRcd2(__temp219, ____temp219Size,4.12,__temp220); ! +! ! +! d2d0OpRcd2(__temp220, ____temp220Size,65546,__temp221); ! +! ! +! d2d0OpRcd2(__temp221, ____temp221Size,1.78,__temp222); ! +! ! +! d2d2OpCcd2(__temp202, ____temp202Size,__temp222, ____temp222Size,! +! __temp223); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp223, ____temp223Size,ff); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(ff)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(ff, __ffSize,__temp224); ! +! ! +! ans39 = z2dispd0(__temp224, ____temp224Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********14**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans40 = g2dispd0(__temp225, ____temp225Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: gg = aa + dd; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(aa, __aaSize,dd, __ddSize,gg); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(gg)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(gg, __ggSize,__temp226); ! +! ! +! ans41 = z2dispd0(__temp226, ____temp226Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********15**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans42 = g2dispd0(__temp227, ____temp227Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: hh = bb + ee; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(bb, __bbSize,ee, __eeSize,hh); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(hh)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(hh, __hhSize,__temp228); ! +! ! +! ans43 = z2dispd0(__temp228, ____temp228Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********16**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans44 = g2dispd0(__temp229, ____temp229Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: jj= cc + ff ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(cc, __ccSize,ff, __ffSize,jj); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(jj)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(jj, __jjSize,__temp230); ! +! ! +! ans45 = z2dispd0(__temp230, ____temp230Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_IFFT.sci.tst b/tests/unit_tests/double/test_IFFT.sci.tst new file mode 100644 index 0000000..2c2ed0e --- /dev/null +++ b/tests/unit_tests/double/test_IFFT.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_IFFT.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Length.sci b/tests/unit_tests/double/test_Length.sci new file mode 100644 index 0000000..75ecf26 --- /dev/null +++ b/tests/unit_tests/double/test_Length.sci @@ -0,0 +1,32 @@ +function test_Length() + disp(length(4)); + disp(length(2+3*%i)); + disp(length([1 2 3 ; 4 5 6])); + disp(length([1 2 3 ; 4 5 6]*%i)); + e = %pi ; + disp(length(e)); // d0Lengthd0 + + f = e * %i; + disp(length(f));// z0Lengthd0 + + a = [1 2 3 ; 4 5 6]; + disp(length(a));// d2Lengthd0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(length(b));// z2Lengthd0 + + + g = "pouet" ; + h = "a" ; + + disp(length(g)); // g0Lengthd0 + disp(length(h)); // g2Lengthd0 + + disp(length("pouet")); + disp(length("a")); + + + + + +endfunction diff --git a/tests/unit_tests/double/test_Length.sci.dia.ref b/tests/unit_tests/double/test_Length.sci.dia.ref new file mode 100644 index 0000000..091633b --- /dev/null +++ b/tests/unit_tests/double/test_Length.sci.dia.ref @@ -0,0 +1,1229 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Length.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 1. + + 6. + + 6. + + 1. + + 1. + + 6. + + 6. + + 5. + + 1. + + 5. + + 1. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Length" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Length/test_Length_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Length/test_Length_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(4)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(2+3*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length([1 2 3 ; 4 5 6])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length([1 2 3 ; 4 5 6]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(e)); // d0Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = e * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(f));// z0Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(a));// d2Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(b));// z2Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = "pouet" ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = "a" ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(g)); // g0Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length(h)); // g2Lengthd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length("pouet")); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(length("a")); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Length() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! double __temp4; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[1 * 3]; ! +! ! +! int ____temp12Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 3]; ! +! ! +! int ____temp14Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp15[2 * 3]; ! +! ! +! int ____temp15Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp16[2 * 3]; ! +! ! +! int ____temp16Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double e = 3.1415927; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp20[1 * 2]; ! +! ! +! int ____temp20Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp21[1 * 3]; ! +! ! +! int ____temp21Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp23[1 * 3]; ! +! ! +! int ____temp23Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp24; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp25[1 * 2]; ! +! ! +! int ____temp25Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp26[1 * 3]; ! +! ! +! int ____temp26Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 3]; ! +! ! +! int ____temp28Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp29[2 * 3]; ! +! ! +! int ____temp29Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp30; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! char __temp31[1*6] = {"pouet"}; ! +! ! +! int ____temp31Size[2] = {1,6}; ! +! ! +! ! +! ! +! char g[1*6] = {"pouet"}; ! +! ! +! int __gSize[2] = {1,6}; ! +! ! +! ! +! ! +! char __temp32[1*2] = {"a"}; ! +! ! +! int ____temp32Size[2] = {1,2}; ! +! ! +! ! +! ! +! char h[1*2] = {"a"}; ! +! ! +! int __hSize[2] = {1,2}; ! +! ! +! ! +! ! +! double __temp33; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp34; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! char __temp35[1*6] = {"pouet"}; ! +! ! +! int ____temp35Size[2] = {1,6}; ! +! ! +! ! +! ! +! double __temp36; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! char __temp37[1*2] = {"a"}; ! +! ! +! int ____temp37Size[2] = {1,2}; ! +! ! +! ! +! ! +! double __temp38; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(4)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0lengthd0(4); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(2+3*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp3 = d0z0OpPlusz0(2,__temp2); ! +! ! +! __temp4 = z0lengthd0(__temp3); ! +! ! +! ans2 = d0dispd0(__temp4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length([1 2 3 ; 4 5 6])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,3,__temp6); ! +! ! +! d0d0OpRcd2(4,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,6,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! __temp10 = d2lengthd0(__temp9, ____temp9Size); ! +! ! +! ans3 = d0dispd0(__temp10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length([1 2 3 ; 4 5 6]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,3,__temp12); ! +! ! +! d0d0OpRcd2(4,5,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,6,__temp14); ! +! ! +! d2d2OpCcd2(__temp12, ____temp12Size,__temp14, ____temp14Size,__te! +! mp15); ! +! ! +! d2z0OpStarz2(__temp15, ____temp15Size,DoubleComplex(0,1),__temp16)! +! ; ! +! ! +! __temp17 = z2lengthd0(__temp16, ____temp16Size); ! +! ! +! ans4 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(e)); // d0Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0lengthd0(e); ! +! ! +! ans5 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = e * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = d0z0OpStarz0(e,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(f));// z0Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0lengthd0(f); ! +! ! +! ans6 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp20); ! +! ! +! d2d0OpRcd2(__temp20, ____temp20Size,3,__temp21); ! +! ! +! d0d0OpRcd2(4,5,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,6,__temp23); ! +! ! +! d2d2OpCcd2(__temp21, ____temp21Size,__temp23, ____temp23Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(a));// d2Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp24 = d2lengthd0(a, __aSize); ! +! ! +! ans7 = d0dispd0(__temp24); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp25); ! +! ! +! d2d0OpRcd2(__temp25, ____temp25Size,3,__temp26); ! +! ! +! d0d0OpRcd2(4,5,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,6,__temp28); ! +! ! +! d2d2OpCcd2(__temp26, ____temp26Size,__temp28, ____temp28Size,__te! +! mp29); ! +! ! +! d2z0OpStarz2(__temp29, ____temp29Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(b));// z2Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z2lengthd0(b, __bSize); ! +! ! +! ans8 = d0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = "pouet" ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp31, ____temp31Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = "a" ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp32, ____temp32Size,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(g)); // g0Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp33 = g2lengthd0(g, __gSize); ! +! ! +! ans9 = d0dispd0(__temp33); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length(h)); // g2Lengthd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp34 = g2lengthd0(h, __hSize); ! +! ! +! ans10 = d0dispd0(__temp34); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length("pouet")); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp36 = g2lengthd0(__temp35, ____temp35Size); ! +! ! +! ans11 = d0dispd0(__temp36); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(length("a")); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp38 = g2lengthd0(__temp37, ____temp37Size); ! +! ! +! ans12 = d0dispd0(__temp38); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Length.sci.tst b/tests/unit_tests/double/test_Length.sci.tst new file mode 100644 index 0000000..68c15ba --- /dev/null +++ b/tests/unit_tests/double/test_Length.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Length.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Lev.sci b/tests/unit_tests/double/test_Lev.sci new file mode 100644 index 0000000..d3d0193 --- /dev/null +++ b/tests/unit_tests/double/test_Lev.sci @@ -0,0 +1,31 @@ +function test_Lev() + + a = [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(a)) ; + + [aa aaa] = lev(a); + disp(aa); + disp(aaa) + + [a1 aa1 aaa1] = lev (a); + disp(a1); + disp(aa1); + disp(aaa1); + +// complex + b =%i * [1 2 3 4 5 6 7 8 9 10] ; + + disp(lev(b)) ; + + [bb bbb] = lev(b); + disp(bb); + disp(bbb) + + [b1 bb1 bbb1] = lev (b); + disp(b1); + disp(bb1); + disp(bbb1); + + +endfunction diff --git a/tests/unit_tests/double/test_Lev.sci.tst b/tests/unit_tests/double/test_Lev.sci.tst new file mode 100644 index 0000000..70a7f41 --- /dev/null +++ b/tests/unit_tests/double/test_Lev.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Lev.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Meanf.sci b/tests/unit_tests/double/test_Meanf.sci new file mode 100644 index 0000000..139432c --- /dev/null +++ b/tests/unit_tests/double/test_Meanf.sci @@ -0,0 +1,48 @@ + +function test_Meanf() + + disp (meanf (4 , 5 )) ; + disp ("*******1*******"); + disp (meanf ([4 5 6], [1 2 3])); + disp ("*******2*******"); + disp (meanf (4 , 5*%i )) ; + disp ("*******3*******"); + disp (meanf ([4 5 6], [1 2 3]*%i)); + disp ("*******4*******"); + + + + disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + disp ("*******5*******"); + disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); +// complex + disp ("*******6*******"); + disp (meanf (4 +4*%i , 5 )) ; + disp ("*******7*******"); + disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); + disp ("*******8*******"); + disp (meanf (4 +4*%i , 5*%i )) ; + disp ("*******9*******"); + disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + disp ("******10*******"); + + + disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + disp ("******11*******"); + disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + disp ("******12*******"); + disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); + disp ("******13*******"); + disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + disp ("******14*******"); + + disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + disp ("******15*******"); + disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + disp ("******16*******"); +// + + +// + +endfunction diff --git a/tests/unit_tests/double/test_Meanf.sci.dia.ref b/tests/unit_tests/double/test_Meanf.sci.dia.ref new file mode 100644 index 0000000..51e9bc9 --- /dev/null +++ b/tests/unit_tests/double/test_Meanf.sci.dia.ref @@ -0,0 +1,2615 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Meanf.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 4. + + *******1******* + + 5.3333333 + + *******2******* + + 4. + + *******3******* + + 5.3333333 + + *******4******* + + 6.4 7.1428571 8. + + *******5******* + + 6.4 + 7.1428571 + 8. + + *******6******* + + 4. + 4.i + + *******7******* + + 4.6666667 + 2.6666667i + + *******8******* + + 4. + 4.i + + *******9******* + + 4.6666667 + 2.6666667i + + ******10******* + + 6.4i 7.1428571i 8.i + + ******11******* + + 6.4 + 7.1428571 + 8. + + ******12******* + + 6.4 7.3154362 - 0.1208054i 8.16 - 0.12i + + ******13******* + + 6.4i + 7.1428571i + 8.i + + ******14******* + + 6.4i 7.1428571i 8.i + + ******15******* + + 6.4i + 7.1428571i + 8.i + + ******16******* + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Meanf" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Meanf/test_Meanf_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Meanf/test_Meanf_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******3*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******4*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******5*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******6*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 +4*%i , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******7*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******8*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf (4 +4*%i , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******9*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******10*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******11*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******12*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; + 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******13*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******14*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******15*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******16*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: ! +! ! +! SCI2C: function test_Meanf() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! char __temp2[1*16] = {"*******1*******"}; ! +! ! +! int ____temp2Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! char __temp8[1*16] = {"*******2*******"}; ! +! ! +! int ____temp8Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp9; ! +! ! +! ! +! ! +! doubleComplex __temp10; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp11[1*16] = {"*******3*******"}; ! +! ! +! int ____temp11Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp16[1 * 3]; ! +! ! +! int ____temp16Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! char __temp18[1*16] = {"*******4*******"}; ! +! ! +! int ____temp18Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[2 * 3]; ! +! ! +! int ____temp23Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp28[2 * 3]; ! +! ! +! int ____temp28Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! char __temp30[1*16] = {"*******5*******"}; ! +! ! +! int ____temp30Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp31[1 * 2]; ! +! ! +! int ____temp31Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp32[1 * 2]; ! +! ! +! int ____temp32Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp33[2 * 2]; ! +! ! +! int ____temp33Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 2]; ! +! ! +! int ____temp34Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp35[3 * 2]; ! +! ! +! int ____temp35Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp38[2 * 2]; ! +! ! +! int ____temp38Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[3 * 2]; ! +! ! +! int ____temp40Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp41[3 * 1]; ! +! ! +! int ____temp41Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! char __temp42[1*16] = {"*******6*******"}; ! +! ! +! int ____temp42Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp43; ! +! ! +! ! +! ! +! doubleComplex __temp44; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! char __temp46[1*16] = {"*******7*******"}; ! +! ! +! int ____temp46Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp47; ! +! ! +! ! +! ! +! doubleComplex __temp48; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50[1 * 2]; ! +! ! +! int ____temp50Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp51[1 * 3]; ! +! ! +! int ____temp51Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp52[1 * 2]; ! +! ! +! int ____temp52Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 3]; ! +! ! +! int ____temp53Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp54; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! char __temp55[1*16] = {"*******8*******"}; ! +! ! +! int ____temp55Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! doubleComplex __temp57; ! +! ! +! ! +! ! +! doubleComplex __temp58; ! +! ! +! ! +! ! +! doubleComplex __temp59; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! char __temp60[1*16] = {"*******9*******"}; ! +! ! +! int ____temp60Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! doubleComplex __temp61; ! +! ! +! ! +! ! +! doubleComplex __temp62; ! +! ! +! ! +! ! +! doubleComplex __temp63; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 2]; ! +! ! +! int ____temp64Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 3]; ! +! ! +! int ____temp65Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp66[1 * 2]; ! +! ! +! int ____temp66Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp67[1 * 3]; ! +! ! +! int ____temp67Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp68[1 * 3]; ! +! ! +! int ____temp68Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp69; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! char __temp70[1*16] = {"******10*******"}; ! +! ! +! int ____temp70Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp72[1 * 3]; ! +! ! +! int ____temp72Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp73[1 * 2]; ! +! ! +! int ____temp73Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp74[1 * 3]; ! +! ! +! int ____temp74Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp75[2 * 3]; ! +! ! +! int ____temp75Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp76[2 * 3]; ! +! ! +! int ____temp76Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp77[1 * 2]; ! +! ! +! int ____temp77Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp78[1 * 3]; ! +! ! +! int ____temp78Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp81[2 * 3]; ! +! ! +! int ____temp81Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp82[1 * 3]; ! +! ! +! int ____temp82Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! char __temp83[1*16] = {"******11*******"}; ! +! ! +! int ____temp83Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! double __temp84[1 * 2]; ! +! ! +! int ____temp84Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp86[2 * 2]; ! +! ! +! int ____temp86Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp87[1 * 2]; ! +! ! +! int ____temp87Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp88[3 * 2]; ! +! ! +! int ____temp88Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp90[1 * 2]; ! +! ! +! int ____temp90Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp91[2 * 2]; ! +! ! +! int ____temp91Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp92[1 * 2]; ! +! ! +! int ____temp92Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp93[3 * 2]; ! +! ! +! int ____temp93Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp94[3 * 2]; ! +! ! +! int ____temp94Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp95[3 * 1]; ! +! ! +! int ____temp95Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! char __temp96[1*16] = {"******12*******"}; ! +! ! +! int ____temp96Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! double __temp97[1 * 2]; ! +! ! +! int ____temp97Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp98[1 * 3]; ! +! ! +! int ____temp98Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp99[1 * 2]; ! +! ! +! int ____temp99Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp100[1 * 3]; ! +! ! +! int ____temp100Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp101[2 * 3]; ! +! ! +! int ____temp101Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp102[1 * 2]; ! +! ! +! int ____temp102Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp103[1 * 3]; ! +! ! +! int ____temp103Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp104[1 * 2]; ! +! ! +! int ____temp104Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp105[1 * 3]; ! +! ! +! int ____temp105Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp106[2 * 3]; ! +! ! +! int ____temp106Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp107[1 * 2]; ! +! ! +! int ____temp107Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp108[1 * 3]; ! +! ! +! int ____temp108Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp109[1 * 2]; ! +! ! +! int ____temp109Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp110[1 * 3]; ! +! ! +! int ____temp110Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp111[2 * 3]; ! +! ! +! int ____temp111Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp112[2 * 3]; ! +! ! +! int ____temp112Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp113[2 * 3]; ! +! ! +! int ____temp113Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp114[1 * 3]; ! +! ! +! int ____temp114Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! char __temp115[1*16] = {"******13*******"}; ! +! ! +! int ____temp115Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! double __temp116[1 * 2]; ! +! ! +! int ____temp116Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp117[1 * 2]; ! +! ! +! int ____temp117Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp118[2 * 2]; ! +! ! +! int ____temp118Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp119[1 * 2]; ! +! ! +! int ____temp119Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp120[3 * 2]; ! +! ! +! int ____temp120Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp121[3 * 2]; ! +! ! +! int ____temp121Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp122[1 * 2]; ! +! ! +! int ____temp122Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp123[1 * 2]; ! +! ! +! int ____temp123Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp124[2 * 2]; ! +! ! +! int ____temp124Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp125[1 * 2]; ! +! ! +! int ____temp125Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp126[3 * 2]; ! +! ! +! int ____temp126Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp127[3 * 1]; ! +! ! +! int ____temp127Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! char __temp128[1*16] = {"******14*******"}; ! +! ! +! int ____temp128Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp129[1 * 2]; ! +! ! +! int ____temp129Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp130[1 * 3]; ! +! ! +! int ____temp130Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp131[1 * 2]; ! +! ! +! int ____temp131Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp132[1 * 3]; ! +! ! +! int ____temp132Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp133[2 * 3]; ! +! ! +! int ____temp133Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp134[2 * 3]; ! +! ! +! int ____temp134Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp135[1 * 2]; ! +! ! +! int ____temp135Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp136[1 * 3]; ! +! ! +! int ____temp136Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp137[1 * 2]; ! +! ! +! int ____temp137Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp138[1 * 3]; ! +! ! +! int ____temp138Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp139[2 * 3]; ! +! ! +! int ____temp139Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp140[2 * 3]; ! +! ! +! int ____temp140Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp141[1 * 3]; ! +! ! +! int ____temp141Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! char __temp142[1*16] = {"******15*******"}; ! +! ! +! int ____temp142Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp143[1 * 2]; ! +! ! +! int ____temp143Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp144[1 * 2]; ! +! ! +! int ____temp144Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp145[2 * 2]; ! +! ! +! int ____temp145Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp146[1 * 2]; ! +! ! +! int ____temp146Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp147[3 * 2]; ! +! ! +! int ____temp147Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp148[3 * 2]; ! +! ! +! int ____temp148Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp149[1 * 2]; ! +! ! +! int ____temp149Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp150[1 * 2]; ! +! ! +! int ____temp150Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp151[2 * 2]; ! +! ! +! int ____temp151Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp152[1 * 2]; ! +! ! +! int ____temp152Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp153[3 * 2]; ! +! ! +! int ____temp153Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp154[3 * 2]; ! +! ! +! int ____temp154Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp155[3 * 1]; ! +! ! +! int ____temp155Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! char __temp156[1*16] = {"******16*******"}; ! +! ! +! int ____temp156Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0meanfd0(4,5); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = g2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d0d0OpRcd2(1,2,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,3,__temp6); ! +! ! +! __temp7 = d2d2meanfd0(__temp4, ____temp4Size,__temp6, ____temp6Si! +! ze); ! +! ! +! ans3 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = g2dispd0(__temp8, ____temp8Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp9 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp10 = d0z0meanfz0(4,__temp9); ! +! ! +! ans5 = z0dispd0(__temp10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******3*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,6,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,3,__temp15); ! +! ! +! d2z0OpStarz2(__temp15, ____temp15Size,DoubleComplex(0,1),__temp16)! +! ; ! +! ! +! __temp17 = d2z2meanfz0(__temp13, ____temp13Size,__temp16, ____tem! +! p16Size); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******4*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = g2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,6,__temp20); ! +! ! +! d0d0OpRcd2(7,8,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,9,__temp22); ! +! ! +! d2d2OpCcd2(__temp20, ____temp20Size,__temp22, ____temp22Size,__te! +! mp23); ! +! ! +! d0d0OpRcd2(1,2,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,3,__temp25); ! +! ! +! d0d0OpRcd2(4,5,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,6,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,__te! +! mp28); ! +! ! +! d2d2d0meanfd2(__temp23, ____temp23Size,__temp28, ____temp28Size,1! +! ,__temp29); ! +! ! +! ans9 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******5*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = g2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp31); ! +! ! +! d0d0OpRcd2(5,8,__temp32); ! +! ! +! d2d2OpCcd2(__temp31, ____temp31Size,__temp32, ____temp32Size,__te! +! mp33); ! +! ! +! d0d0OpRcd2(6,9,__temp34); ! +! ! +! d2d2OpCcd2(__temp33, ____temp33Size,__temp34, ____temp34Size,__te! +! mp35); ! +! ! +! d0d0OpRcd2(1,4,__temp36); ! +! ! +! d0d0OpRcd2(2,5,__temp37); ! +! ! +! d2d2OpCcd2(__temp36, ____temp36Size,__temp37, ____temp37Size,__te! +! mp38); ! +! ! +! d0d0OpRcd2(3,6,__temp39); ! +! ! +! d2d2OpCcd2(__temp38, ____temp38Size,__temp39, ____temp39Size,__te! +! mp40); ! +! ! +! d2d2d0meanfd2(__temp35, ____temp35Size,__temp40, ____temp40Size,2! +! ,__temp41); ! +! ! +! ans11 = d2dispd0(__temp41, ____temp41Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******6*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = g2dispd0(__temp42, ____temp42Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 +4*%i , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp43 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp44 = d0z0OpPlusz0(4,__temp43); ! +! ! +! __temp45 = z0d0meanfz0(__temp44,5); ! +! ! +! ans13 = z0dispd0(__temp45); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******7*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = g2dispd0(__temp46, ____temp46Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp47 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp48 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp49 = d0z0OpPlusz0(5,__temp48); ! +! ! +! z0z0OpRcz2(__temp47,__temp49,__temp50); ! +! ! +! z2d0OpRcz2(__temp50, ____temp50Size,6,__temp51); ! +! ! +! d0d0OpRcd2(1,2,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,3,__temp53); ! +! ! +! __temp54 = z2d2meanfz0(__temp51, ____temp51Size,__temp53, ____tem! +! p53Size); ! +! ! +! ans15 = z0dispd0(__temp54); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******8*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = g2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf (4 +4*%i , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp57 = d0z0OpPlusz0(4,__temp56); ! +! ! +! __temp58 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp59 = z0z0meanfz0(__temp57,__temp58); ! +! ! +! ans17 = z0dispd0(__temp59); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******9*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = g2dispd0(__temp60, ____temp60Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp61 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp62 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp63 = d0z0OpPlusz0(5,__temp62); ! +! ! +! z0z0OpRcz2(__temp61,__temp63,__temp64); ! +! ! +! z2d0OpRcz2(__temp64, ____temp64Size,6,__temp65); ! +! ! +! d0d0OpRcd2(1,2,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,3,__temp67); ! +! ! +! d2z0OpStarz2(__temp67, ____temp67Size,DoubleComplex(0,1),__temp68)! +! ; ! +! ! +! __temp69 = z2z2meanfz0(__temp65, ____temp65Size,__temp68, ____tem! +! p68Size); ! +! ! +! ans19 = z0dispd0(__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******10*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = g2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,6,__temp72); ! +! ! +! d0d0OpRcd2(7,8,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,9,__temp74); ! +! ! +! d2d2OpCcd2(__temp72, ____temp72Size,__temp74, ____temp74Size,__te! +! mp75); ! +! ! +! d2z0OpStarz2(__temp75, ____temp75Size,DoubleComplex(0,1),__temp76)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp77); ! +! ! +! d2d0OpRcd2(__temp77, ____temp77Size,3,__temp78); ! +! ! +! d0d0OpRcd2(4,5,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,6,__temp80); ! +! ! +! d2d2OpCcd2(__temp78, ____temp78Size,__temp80, ____temp80Size,__te! +! mp81); ! +! ! +! z2d2d0meanfz2(__temp76, ____temp76Size,__temp81, ____temp81Size,1! +! ,__temp82); ! +! ! +! ans21 = z2dispd0(__temp82, ____temp82Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******11*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = g2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp84); ! +! ! +! d0d0OpRcd2(5,8,__temp85); ! +! ! +! d2d2OpCcd2(__temp84, ____temp84Size,__temp85, ____temp85Size,__te! +! mp86); ! +! ! +! d0d0OpRcd2(6,9,__temp87); ! +! ! +! d2d2OpCcd2(__temp86, ____temp86Size,__temp87, ____temp87Size,__te! +! mp88); ! +! ! +! d0d0OpRcd2(1,4,__temp89); ! +! ! +! d0d0OpRcd2(2,5,__temp90); ! +! ! +! d2d2OpCcd2(__temp89, ____temp89Size,__temp90, ____temp90Size,__te! +! mp91); ! +! ! +! d0d0OpRcd2(3,6,__temp92); ! +! ! +! d2d2OpCcd2(__temp91, ____temp91Size,__temp92, ____temp92Size,__te! +! mp93); ! +! ! +! d2z0OpStarz2(__temp93, ____temp93Size,DoubleComplex(0,1),__temp94)! +! ; ! +! ! +! d2z2d0meanfz2(__temp88, ____temp88Size,__temp94, ____temp94Size,2! +! ,__temp95); ! +! ! +! ans23 = z2dispd0(__temp95, ____temp95Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******12*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans24 = g2dispd0(__temp96, ____temp96Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; ! +! 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp97); ! +! ! +! d2d0OpRcd2(__temp97, ____temp97Size,6,__temp98); ! +! ! +! d0d0OpRcd2(7,8,__temp99); ! +! ! +! d2d0OpRcd2(__temp99, ____temp99Size,9,__temp100); ! +! ! +! d2d2OpCcd2(__temp98, ____temp98Size,__temp100, ____temp100Size,__! +! temp101); ! +! ! +! d0d0OpRcd2(1,2,__temp102); ! +! ! +! d2d0OpRcd2(__temp102, ____temp102Size,3,__temp103); ! +! ! +! d0d0OpRcd2(4,8,__temp104); ! +! ! +! d2d0OpRcd2(__temp104, ____temp104Size,9,__temp105); ! +! ! +! d2d2OpCcd2(__temp103, ____temp103Size,__temp105, ____temp105Size,! +! __temp106); ! +! ! +! d0d0OpRcd2(1,2,__temp107); ! +! ! +! d2d0OpRcd2(__temp107, ____temp107Size,3,__temp108); ! +! ! +! d0d0OpRcd2(4,5,__temp109); ! +! ! +! d2d0OpRcd2(__temp109, ____temp109Size,6,__temp110); ! +! ! +! d2d2OpCcd2(__temp108, ____temp108Size,__temp110, ____temp110Size,! +! __temp111); ! +! ! +! d2z0OpStarz2(__temp111, ____temp111Size,DoubleComplex(0,1),__temp1! +! 12); ! +! ! +! d2z2OpPlusz2(__temp106, ____temp106Size,__temp112, ____temp112Siz! +! e,__temp113); ! +! ! +! d2z2d0meanfz2(__temp101, ____temp101Size,__temp113, ____temp113Si! +! ze,1,__temp114); ! +! ! +! ans25 = z2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******13*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = g2dispd0(__temp115, ____temp115Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp116); ! +! ! +! d0d0OpRcd2(5,8,__temp117); ! +! ! +! d2d2OpCcd2(__temp116, ____temp116Size,__temp117, ____temp117Size,! +! __temp118); ! +! ! +! d0d0OpRcd2(6,9,__temp119); ! +! ! +! d2d2OpCcd2(__temp118, ____temp118Size,__temp119, ____temp119Size,! +! __temp120); ! +! ! +! d2z0OpStarz2(__temp120, ____temp120Size,DoubleComplex(0,1),__temp1! +! 21); ! +! ! +! d0d0OpRcd2(1,4,__temp122); ! +! ! +! d0d0OpRcd2(2,5,__temp123); ! +! ! +! d2d2OpCcd2(__temp122, ____temp122Size,__temp123, ____temp123Size,! +! __temp124); ! +! ! +! d0d0OpRcd2(3,6,__temp125); ! +! ! +! d2d2OpCcd2(__temp124, ____temp124Size,__temp125, ____temp125Size,! +! __temp126); ! +! ! +! z2d2d0meanfz2(__temp121, ____temp121Size,__temp126, ____temp126Si! +! ze,2,__temp127); ! +! ! +! ans27 = z2dispd0(__temp127, ____temp127Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******14*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = g2dispd0(__temp128, ____temp128Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp129); ! +! ! +! d2d0OpRcd2(__temp129, ____temp129Size,6,__temp130); ! +! ! +! d0d0OpRcd2(7,8,__temp131); ! +! ! +! d2d0OpRcd2(__temp131, ____temp131Size,9,__temp132); ! +! ! +! d2d2OpCcd2(__temp130, ____temp130Size,__temp132, ____temp132Size,! +! __temp133); ! +! ! +! d2z0OpStarz2(__temp133, ____temp133Size,DoubleComplex(0,1),__temp1! +! 34); ! +! ! +! d0d0OpRcd2(1,2,__temp135); ! +! ! +! d2d0OpRcd2(__temp135, ____temp135Size,3,__temp136); ! +! ! +! d0d0OpRcd2(4,5,__temp137); ! +! ! +! d2d0OpRcd2(__temp137, ____temp137Size,6,__temp138); ! +! ! +! d2d2OpCcd2(__temp136, ____temp136Size,__temp138, ____temp138Size,! +! __temp139); ! +! ! +! d2z0OpStarz2(__temp139, ____temp139Size,DoubleComplex(0,1),__temp1! +! 40); ! +! ! +! z2z2d0meanfz2(__temp134, ____temp134Size,__temp140, ____temp140Si! +! ze,1,__temp141); ! +! ! +! ans29 = z2dispd0(__temp141, ____temp141Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******15*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = g2dispd0(__temp142, ____temp142Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (meanf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp143); ! +! ! +! d0d0OpRcd2(5,8,__temp144); ! +! ! +! d2d2OpCcd2(__temp143, ____temp143Size,__temp144, ____temp144Size,! +! __temp145); ! +! ! +! d0d0OpRcd2(6,9,__temp146); ! +! ! +! d2d2OpCcd2(__temp145, ____temp145Size,__temp146, ____temp146Size,! +! __temp147); ! +! ! +! d2z0OpStarz2(__temp147, ____temp147Size,DoubleComplex(0,1),__temp1! +! 48); ! +! ! +! d0d0OpRcd2(1,4,__temp149); ! +! ! +! d0d0OpRcd2(2,5,__temp150); ! +! ! +! d2d2OpCcd2(__temp149, ____temp149Size,__temp150, ____temp150Size,! +! __temp151); ! +! ! +! d0d0OpRcd2(3,6,__temp152); ! +! ! +! d2d2OpCcd2(__temp151, ____temp151Size,__temp152, ____temp152Size,! +! __temp153); ! +! ! +! d2z0OpStarz2(__temp153, ____temp153Size,DoubleComplex(0,1),__temp1! +! 54); ! +! ! +! z2z2d0meanfz2(__temp148, ____temp148Size,__temp154, ____temp154Si! +! ze,2,__temp155); ! +! ! +! ans31 = z2dispd0(__temp155, ____temp155Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******16*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = g2dispd0(__temp156, ____temp156Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Meanf.sci.tst b/tests/unit_tests/double/test_Meanf.sci.tst new file mode 100644 index 0000000..8de8479 --- /dev/null +++ b/tests/unit_tests/double/test_Meanf.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Meanf.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpApex.sci b/tests/unit_tests/double/test_OpApex.sci new file mode 100644 index 0000000..40c00da --- /dev/null +++ b/tests/unit_tests/double/test_OpApex.sci @@ -0,0 +1,11 @@ +function test_OpApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0') + disp(d2') + disp(z0') + disp(z2') +endfunction diff --git a/tests/unit_tests/double/test_OpApex.sci.dia.ref b/tests/unit_tests/double/test_OpApex.sci.dia.ref new file mode 100644 index 0000000..384ddbc --- /dev/null +++ b/tests/unit_tests/double/test_OpApex.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpApex.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 1. 5. 9. 13. + 2. 6. 10. 14. + 3. 7. 11. 15. + 4. 8. 12. 16. + + 3.1415927 - 3.1415927i + + 1. - i 5. - 5.i 9. - 9.i 13. - 13.i + 2. - 2.i 6. - 6.i 10. - 10.i 14. - 14.i + 3. - 3.i 7. - 7.i 11. - 11.i 15. - 15.i + 4. - 4.i 8. - 8.i 12. - 12.i 16. - 16.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpApex" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpApex/test_OpApex_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpApex/test_OpApex_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpApex() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0OpApexd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2OpApexd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0OpApexz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2OpApexz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpApex.sci.tst b/tests/unit_tests/double/test_OpApex.sci.tst new file mode 100644 index 0000000..d115cc0 --- /dev/null +++ b/tests/unit_tests/double/test_OpApex.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpApex.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpCc.sci b/tests/unit_tests/double/test_OpCc.sci new file mode 100644 index 0000000..929c9c0 --- /dev/null +++ b/tests/unit_tests/double/test_OpCc.sci @@ -0,0 +1,46 @@ + + +function test_OpCc() + + a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 + b = [7 ; a];// d0d2OpCcs2 + c = [a ; 7];// d2d0OpCcs2 + d = [a ; b];// d2d2OpCcs2 + disp(a); + disp(b); + disp(c); + disp(d); + + e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 + f = [7 ; e];// z0z2OpCcz2 + g = [e ; 7];// z2z0OpCcz2 + h = [e ; f];// z2z2OpCcz2 + + disp(e); + disp(f); + disp(g); + disp(h); + + + i = [%i ; 4.5]; // z0d0OpCcz2 + j = [4.5 ; %i ]; // d0z0OpCcz2 + k = [4.5 ; i ]; // d0z2OpCcz2 + l = [i ; 4.5]; // z2d0OpCcz2 + + disp(i); + disp(j); + disp(k); + disp(l); + + m = [1 ; 4.5]; + n = [%i ; m ]; // z0d2OpCcz2 + o = [m ; %i ]; // d0z2OpCcz2 + p = [m ; n ]; // d2z2OpCcz2 + q = [n ; m ]; // z2d2OpCcz2 + + disp(n); + disp(o); + disp(p); + disp(q); + +endfunction diff --git a/tests/unit_tests/double/test_OpCc.sci.dia.ref b/tests/unit_tests/double/test_OpCc.sci.dia.ref new file mode 100644 index 0000000..f6f6b65 --- /dev/null +++ b/tests/unit_tests/double/test_OpCc.sci.dia.ref @@ -0,0 +1,1413 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpCc.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + 2. + 3. + 4. + + 7. + 1. + 2. + 3. + 4. + + 1. + 2. + 3. + 4. + 7. + + 1. + 2. + 3. + 4. + 7. + 1. + 2. + 3. + 4. + + i + 2.i + 3.i + 4.i + + 7. + i + 2.i + 3.i + 4.i + + i + 2.i + 3.i + 4.i + 7. + + i + 2.i + 3.i + 4.i + 7. + i + 2.i + 3.i + 4.i + + i + 4.5 + + 4.5 + i + + 4.5 + i + 4.5 + + i + 4.5 + 4.5 + + i + 1. + 4.5 + + 1. + 4.5 + i + + 1. + 4.5 + i + 1. + 4.5 + + i + 1. + 4.5 + 1. + 4.5 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpCc" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpCc/test_OpCc_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpCc/test_OpCc_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [7 ; a];// d0d2OpCcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [a ; 7];// d2d0OpCcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [a ; b];// d2d2OpCcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(c); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = [7 ; e];// z0z2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [e ; 7];// z2z0OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = [e ; f];// z2z2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(e); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(f); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(g); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(h); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: i = [%i ; 4.5]; // z0d0OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = [4.5 ; %i ]; // d0z0OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [4.5 ; i ]; // d0z2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [i ; 4.5]; // z2d0OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(k); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(l); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = [1 ; 4.5]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = [%i ; m ]; // z0d2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = [m ; %i ]; // d0z2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = [m ; n ]; // d2z2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [n ; m ]; // z2d2OpCcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(n); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(o); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(q); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: ! +! ! +! SCI2C: ! +! ! +! SCI2C: function test_OpCc() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[2 * 1]; ! +! ! +! int ____temp1Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp2[3 * 1]; ! +! ! +! int ____temp2Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double a[4 * 1]; ! +! ! +! int __aSize[2] = {4, 1};; ! +! ! +! ! +! ! +! double b[5 * 1]; ! +! ! +! int __bSize[2] = {5, 1};; ! +! ! +! ! +! ! +! double c[5 * 1]; ! +! ! +! int __cSize[2] = {5, 1};; ! +! ! +! ! +! ! +! double d[9 * 1]; ! +! ! +! int __dSize[2] = {9, 1};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5[2 * 1]; ! +! ! +! int ____temp5Size[2] = {2, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! doubleComplex __temp7[3 * 1]; ! +! ! +! int ____temp7Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! doubleComplex e[4 * 1]; ! +! ! +! int __eSize[2] = {4, 1};; ! +! ! +! ! +! ! +! doubleComplex f[5 * 1]; ! +! ! +! int __fSize[2] = {5, 1};; ! +! ! +! ! +! ! +! doubleComplex g[5 * 1]; ! +! ! +! int __gSize[2] = {5, 1};; ! +! ! +! ! +! ! +! doubleComplex h[9 * 1]; ! +! ! +! int __hSize[2] = {9, 1};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex i[2 * 1]; ! +! ! +! int __iSize[2] = {2, 1};; ! +! ! +! ! +! ! +! doubleComplex j[2 * 1]; ! +! ! +! int __jSize[2] = {2, 1};; ! +! ! +! ! +! ! +! doubleComplex k[3 * 1]; ! +! ! +! int __kSize[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex l[3 * 1]; ! +! ! +! int __lSize[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double m[2 * 1]; ! +! ! +! int __mSize[2] = {2, 1};; ! +! ! +! ! +! ! +! doubleComplex n[3 * 1]; ! +! ! +! int __nSize[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex o[3 * 1]; ! +! ! +! int __oSize[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex p[5 * 1]; ! +! ! +! int __pSize[2] = {5, 1};; ! +! ! +! ! +! ! +! doubleComplex q[5 * 1]; ! +! ! +! int __qSize[2] = {5, 1};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 ; 2 ; 3 ; 4]; // d0d0OpCcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(1,2,__temp1); ! +! ! +! d2d0OpCcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpCcd2(__temp2, ____temp2Size,4,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [7 ; a];// d0d2OpCcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpCcd2(7,a, __aSize,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [a ; 7];// d2d0OpCcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpCcd2(a, __aSize,7,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [a ; b];// d2d2OpCcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpCcd2(a, __aSize,b, __bSize,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = d2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(c); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(c, __cSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(d, __dSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [1*%i ; 2*%i ; 3*%i ; 4*%i ];// z0z0OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp3 = d0z0OpStarz0(1,DoubleComplex(0,1)); ! +! ! +! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpCcz2(__temp3,__temp4,__temp5); ! +! ! +! __temp6 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z2z0OpCcz2(__temp5, ____temp5Size,__temp6,__temp7); ! +! ! +! __temp8 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! z2z0OpCcz2(__temp7, ____temp7Size,__temp8,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = [7 ; e];// z0z2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpCcz2(7,e, __eSize,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [e ; 7];// z2z0OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpCcz2(e, __eSize,7,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = [e ; f];// z2z2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpCcz2(e, __eSize,f, __fSize,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(e); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = z2dispd0(e, __eSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(f); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = z2dispd0(f, __fSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(g); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = z2dispd0(g, __gSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(h); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = z2dispd0(h, __hSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: i = [%i ; 4.5]; // z0d0OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d0OpCcz2(DoubleComplex(0,1),4.5,i); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = [4.5 ; %i ]; // d0z0OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z0OpCcz2(4.5,DoubleComplex(0,1),j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [4.5 ; i ]; // d0z2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpCcz2(4.5,i, __iSize,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [i ; 4.5]; // z2d0OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpCcz2(i, __iSize,4.5,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = z2dispd0(i, __iSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = z2dispd0(j, __jSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(k); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = z2dispd0(k, __kSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(l); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = z2dispd0(l, __lSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = [1 ; 4.5]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(1,4.5,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = [%i ; m ]; // z0d2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpCcz2(DoubleComplex(0,1),m, __mSize,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = [m ; %i ]; // d0z2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpCcz2(m, __mSize,DoubleComplex(0,1),o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = [m ; n ]; // d2z2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpCcz2(m, __mSize,n, __nSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [n ; m ]; // z2d2OpCcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpCcz2(n, __nSize,m, __mSize,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(n); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = z2dispd0(n, __nSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(o); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = z2dispd0(o, __oSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = z2dispd0(p, __pSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(q); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = z2dispd0(q, __qSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpCc.sci.tst b/tests/unit_tests/double/test_OpCc.sci.tst new file mode 100644 index 0000000..1ad14e0 --- /dev/null +++ b/tests/unit_tests/double/test_OpCc.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpCc.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpColon.sci b/tests/unit_tests/double/test_OpColon.sci new file mode 100644 index 0000000..f3e03b4 --- /dev/null +++ b/tests/unit_tests/double/test_OpColon.sci @@ -0,0 +1,41 @@ +function test_OpColon() + + +// A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; +// B = A * %i ; +d = %i ; +a = %pi ; +b = %e ; +c = [7 8 5 ]; +disp(zeros ( a , %e )); + +disp(zeros ( %pi , %e)); +disp(zeros(c)); +disp(zeros ([4 5 6 ; 4 5 6]) ); + + disp(0:1:3); + disp(1:1); + disp(4+53*%i:0); +// + + disp(2:5); + disp(4+3*%i:8+%i); +// + + disp(1:5:1); + disp(%i:%i+1:2); +// + + disp(2:7:5); + disp(4+3*%i:4:8+%i); +//a =4 + 53 *%i : 0 ; +endfunction +//OUT(1).SZ(2)= FA_INT( +// FA_ADD( +// FA_DIV( +// FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REAL(IN(1).VAL, IN(3).TP)) +// ,FA_REAL(IN(2).VAL,IN(2).TP) +// ) +// ,''1'' +// ) +// ) diff --git a/tests/unit_tests/double/test_OpColon.sci.dia.ref b/tests/unit_tests/double/test_OpColon.sci.dia.ref new file mode 100644 index 0000000..9770ca7 --- /dev/null +++ b/tests/unit_tests/double/test_OpColon.sci.dia.ref @@ -0,0 +1,1249 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpColon.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. 0. + 0. 0. + 0. 0. + + 0. 0. + 0. 0. + 0. 0. + + 0. 0. 0. + + 0. 0. 0. + 0. 0. 0. + + 0. 1. 2. 3. + + 1. + + [] + + 2. 3. 4. 5. + + 4. 5. 6. 7. 8. + + 1. + + 0. 1. 2. + + 2. + + 4. 8. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpColon" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpColon/test_OpColon_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpColon/test_OpColon_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // B = A * %i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = %i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = %e ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [7 8 5 ]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ( a , %e )); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ( %pi , %e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(c)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros ([4 5 6 ; 4 5 6]) ); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(0:1:3); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(1:1); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+53*%i:0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(2:5); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+3*%i:8+%i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(1:5:1); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(%i:%i+1:2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(2:7:5); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(4+3*%i:4:8+%i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //a =4 + 53 *%i : 0 ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //OUT(1).SZ(2)= FA_INT( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_ADD( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_DIV( + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REA + L(IN(1).VAL, IN(3).TP)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ,FA_REAL(IN(2).VAL,IN + (2).TP) + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpColon() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! doubleComplex d = DoubleComplex(0,1); ! +! ! +! ! +! ! +! double a = 3.1415927; ! +! ! +! ! +! ! +! double b = 2.7182818; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double c[1 * 3]; ! +! ! +! int __cSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp2[3 * 2]; ! +! ! +! int ____temp2Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp3[3 * 2]; ! +! ! +! int ____temp3Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10[2 * 3]; ! +! ! +! int ____temp10Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp11[1 * 4]; ! +! ! +! int ____temp11Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp12; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp13; ! +! ! +! ! +! ! +! doubleComplex __temp14; ! +! ! +! ! +! ! +! double* __temp15 = NULL; ! +! ! +! int ____temp15Size[2]; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp16[1 * 4]; ! +! ! +! int ____temp16Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double* __temp20 = NULL; ! +! ! +! int ____temp20Size[2]; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double* __temp23 = NULL; ! +! ! +! int ____temp23Size[2]; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp24; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! doubleComplex __temp27; ! +! ! +! ! +! ! +! double* __temp28 = NULL; ! +! ! +! int ____temp28Size[2]; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // A = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // B = A * %i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = %i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d = z0OpEqualz0(DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = %e ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0OpEquald0(SCI2C_E); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [7 8 5 ]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,5,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ( a , %e )); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0zerosd2(a,SCI2C_E,__temp2); ! +! ! +! ans1 = d2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ( %pi , %e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0zerosd2(SCI2C_PI,SCI2C_E,__temp3); ! +! ! +! ans2 = d2dispd0(__temp3, ____temp3Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(c)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(c, __cSize,__temp4); ! +! ! +! ans3 = d2dispd0(__temp4, ____temp4Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros ([4 5 6 ; 4 5 6]) ); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,6,__temp6); ! +! ! +! d0d0OpRcd2(4,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,6,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! d2zerosd2(__temp9, ____temp9Size,__temp10); ! +! ! +! ans4 = d2dispd0(__temp10, ____temp10Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(0:1:3); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0d0OpColond2(0,1,3,__temp11); ! +! ! +! ans5 = d2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(1:1); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp12 = d0d0OpColond0(1,1); ! +! ! +! ans6 = d0dispd0(__temp12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+53*%i:0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp13 = d0z0OpStarz0(53,DoubleComplex(0,1)); ! +! ! +! __temp14 = d0z0OpPlusz0(4,__temp13); ! +! ! +! ____temp15Size[0]=1; ! +! ! +! ____temp15Size[1]=d0absd0(d0floord0(((0-z0reald0(__temp14))+1))); ! +! ! +! __temp15 = (double*) realloc(__temp15,(1)*(d0absd0(d0floord0(((0-z0! +! reald0(__temp14))+1))))*sizeof(double)); ! +! ! +! z0d0OpColond2(__temp14,0,__temp15); ! +! ! +! ans7 = d2dispd0(__temp15, ____temp15Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(2:5); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+3*%i:8+%i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpColond2(2,5,__temp16); ! +! ! +! ans8 = d2dispd0(__temp16, ____temp16Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp18 = d0z0OpPlusz0(4,__temp17); ! +! ! +! __temp19 = d0z0OpPlusz0(8,DoubleComplex(0,1)); ! +! ! +! ____temp20Size[0]=1; ! +! ! +! ____temp20Size[1]=d0absd0(d0floord0(((z0reald0(__temp19)-z0reald0(_! +! _temp18))+1))); ! +! ! +! __temp20 = (double*) realloc(__temp20,(1)*(d0absd0(d0floord0(((z0re! +! ald0(__temp19)-z0reald0(__temp18))+1))))*sizeof(double)); ! +! ! +! z0z0OpColond2(__temp18,__temp19,__temp20); ! +! ! +! ans9 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(1:5:1); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(%i:%i+1:2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0d0OpColond0(1,5,1); ! +! ! +! ans10 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0OpPlusz0(DoubleComplex(0,1),1); ! +! ! +! ____temp23Size[0]=1; ! +! ! +! ____temp23Size[1]=d0absd0(d0floord0(((2/z0reald0(__temp22))+1))); ! +! ! +! __temp23 = (double*) realloc(__temp23,(1)*(d0absd0(d0floord0(((2/z0! +! reald0(__temp22))+1))))*sizeof(double)); ! +! ! +! z0z0d0OpColond2(DoubleComplex(0,1),__temp22,2,__temp23); ! +! ! +! ans11 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(2:7:5); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(4+3*%i:4:8+%i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //a =4 + 53 *%i : 0 ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp24 = d0d0d0OpColond0(2,7,5); ! +! ! +! ans12 = d0dispd0(__temp24); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //OUT(1).SZ(2)= FA_INT( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp26 = d0z0OpPlusz0(4,__temp25); ! +! ! +! __temp27 = d0z0OpPlusz0(8,DoubleComplex(0,1)); ! +! ! +! ____temp28Size[0]=1; ! +! ! +! ____temp28Size[1]=d0absd0(d0floord0((((z0reald0(__temp27)-z0reald0(! +! __temp26))/4)+1))); ! +! ! +! __temp28 = (double*) realloc(__temp28,(1)*(d0absd0(d0floord0((((z0r! +! eald0(__temp27)-z0reald0(__temp26))/4)+1))))*sizeof(double)); ! +! ! +! z0d0z0OpColond2(__temp26,4,__temp27,__temp28); ! +! ! +! ans13 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_ADD( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_DIV( ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // FA_SUB(FA_REAL(IN(3).VAL,IN(3).TP),FA_REA! +! L(IN(1).VAL, IN(3).TP)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! free(__temp15); ! +! ! +! free(__temp20); ! +! ! +! free(__temp23); ! +! ! +! free(__temp28); ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ,FA_REAL(IN(2).VAL,IN! +! (2).TP) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpColon.sci.tst b/tests/unit_tests/double/test_OpColon.sci.tst new file mode 100644 index 0000000..a326591 --- /dev/null +++ b/tests/unit_tests/double/test_OpColon.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpColon.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpDotApex.sci b/tests/unit_tests/double/test_OpDotApex.sci new file mode 100644 index 0000000..8897489 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotApex.sci @@ -0,0 +1,11 @@ +function test_OpDotApex() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.') + disp(d2.') + disp(z0.') + disp(z2.') +endfunction diff --git a/tests/unit_tests/double/test_OpDotApex.sci.dia.ref b/tests/unit_tests/double/test_OpDotApex.sci.dia.ref new file mode 100644 index 0000000..d710d9d --- /dev/null +++ b/tests/unit_tests/double/test_OpDotApex.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotApex.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 1. 5. 9. 13. + 2. 6. 10. 14. + 3. 7. 11. 15. + 4. 8. 12. 16. + + 3.1415927 + 3.1415927i + + 1. + i 5. + 5.i 9. + 9.i 13. + 13.i + 2. + 2.i 6. + 6.i 10. + 10.i 14. + 14.i + 3. + 3.i 7. + 7.i 11. + 11.i 15. + 15.i + 4. + 4.i 8. + 8.i 12. + 12.i 16. + 16.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpDotApex" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotApex/test_OpDotApex_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotApex/test_OpDotApex_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.') + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotApex() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0OpDotApexd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2OpDotApexd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0OpDotApexz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.') ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2OpDotApexz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpDotApex.sci.tst b/tests/unit_tests/double/test_OpDotApex.sci.tst new file mode 100644 index 0000000..593f4a7 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotApex.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotApex.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpDotBackSlash.sci b/tests/unit_tests/double/test_OpDotBackSlash.sci new file mode 100644 index 0000000..a994a61 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotBackSlash.sci @@ -0,0 +1,30 @@ +function test_OpDotBackSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.\d0) + disp(z0.\z0) + disp(d2.\d0) + disp(z2.\z0) + + disp(d0.\d2) + disp(z0.\z2) + + disp(d2.\d2) + disp(z2.\z2) + + disp(d2.\z0) + disp(z2.\d0) + + disp(d0.\z2) + disp(z0.\d2) + + disp(d0.\z0) + disp(z0.\d0) + + disp(d2.\z2) + disp(z2.\d2) + +endfunction diff --git a/tests/unit_tests/double/test_OpDotBackSlash.sci.dia.ref b/tests/unit_tests/double/test_OpDotBackSlash.sci.dia.ref new file mode 100644 index 0000000..0bcc17b --- /dev/null +++ b/tests/unit_tests/double/test_OpDotBackSlash.sci.dia.ref @@ -0,0 +1,1261 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotBackSlash.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 1. + + 3.1415927 1.5707963 1.0471976 0.7853982 + 0.6283185 0.5235988 0.4487990 0.3926991 + 0.3490659 0.3141593 0.2855993 0.2617994 + 0.2416610 0.2243995 0.2094395 0.1963495 + + 3.1415927 1.5707963 1.0471976 0.7853982 + 0.6283185 0.5235988 0.4487990 0.3926991 + 0.3490659 0.3141593 0.2855993 0.2617994 + 0.2416610 0.2243995 0.2094395 0.1963495 + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + + column 1 to 2 + + 3.1415927 + 3.1415927i 1.5707963 + 1.5707963i + 0.6283185 + 0.6283185i 0.5235988 + 0.5235988i + 0.3490659 + 0.3490659i 0.3141593 + 0.3141593i + 0.2416610 + 0.2416610i 0.2243995 + 0.2243995i + + column 3 to 4 + + 1.0471976 + 1.0471976i 0.7853982 + 0.7853982i + 0.4487990 + 0.4487990i 0.3926991 + 0.3926991i + 0.2855993 + 0.2855993i 0.2617994 + 0.2617994i + 0.2094395 + 0.2094395i 0.1963495 + 0.1963495i + + + column 1 to 2 + + 1.5707963 - 1.5707963i 0.7853982 - 0.7853982i + 0.3141593 - 0.3141593i 0.2617994 - 0.2617994i + 0.1745329 - 0.1745329i 0.1570796 - 0.1570796i + 0.1208305 - 0.1208305i 0.1121997 - 0.1121997i + + column 3 to 4 + + 0.5235988 - 0.5235988i 0.3926991 - 0.3926991i + 0.2243995 - 0.2243995i 0.1963495 - 0.1963495i + 0.1427997 - 0.1427997i 0.1308997 - 0.1308997i + 0.1047198 - 0.1047198i 0.0981748 - 0.0981748i + + + column 1 to 2 + + 0.3183099 + 0.3183099i 0.6366198 + 0.6366198i + 1.5915494 + 1.5915494i 1.9098593 + 1.9098593i + 2.864789 + 2.864789i 3.1830989 + 3.1830989i + 4.1380285 + 4.1380285i 4.4563384 + 4.4563384i + + column 3 to 4 + + 0.9549297 + 0.9549297i 1.2732395 + 1.2732395i + 2.2281692 + 2.2281692i 2.5464791 + 2.5464791i + 3.5014087 + 3.5014087i 3.8197186 + 3.8197186i + 4.7746483 + 4.7746483i 5.0929582 + 5.0929582i + + + column 1 to 2 + + 0.1591549 - 0.1591549i 0.3183099 - 0.3183099i + 0.7957747 - 0.7957747i 0.9549297 - 0.9549297i + 1.4323945 - 1.4323945i 1.5915494 - 1.5915494i + 2.0690143 - 2.0690143i 2.2281692 - 2.2281692i + + column 3 to 4 + + 0.4774648 - 0.4774648i 0.6366198 - 0.6366198i + 1.1140846 - 1.1140846i 1.2732395 - 1.2732395i + 1.7507044 - 1.7507044i 1.9098593 - 1.9098593i + 2.3873241 - 2.3873241i 2.5464791 - 2.5464791i + + 1. + i + + 0.5 - 0.5i + + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpDotBackSlash" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotBackSlash/test_OpDotBackSlash_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotBackSlash/test_OpDotBackSlash_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.\d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.\z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.\d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.\z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.\d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.\z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.\d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.\z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.\z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.\d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.\z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.\d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.\z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.\d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.\z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.\d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotBackSlash() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp29; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.\d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpDotBackSlashd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.\z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpDotBackSlashz0(z0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.\d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpDotBackSlashd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.\z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpDotBackSlashz2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.\d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpDotBackSlashd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.\z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpDotBackSlashz2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.\d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpDotBackSlashd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.\z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpDotBackSlashz2(z2, __z2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.\z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpDotBackSlashz2(d2, __d2Size,z0,__temp25); ! +! ! +! ans9 = z2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.\d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpDotBackSlashz2(z2, __z2Size,d0,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.\z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpDotBackSlashz2(d0,z2, __z2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.\d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpDotBackSlashz2(z0,d2, __d2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.\z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp29 = d0z0OpDotBackSlashz0(d0,z0); ! +! ! +! ans13 = z0dispd0(__temp29); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.\d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z0d0OpDotBackSlashz0(z0,d0); ! +! ! +! ans14 = z0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.\z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpDotBackSlashz2(d2, __d2Size,z2, __z2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.\d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpDotBackSlashz2(z2, __z2Size,d2, __d2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpDotBackSlash.sci.tst b/tests/unit_tests/double/test_OpDotBackSlash.sci.tst new file mode 100644 index 0000000..338868c --- /dev/null +++ b/tests/unit_tests/double/test_OpDotBackSlash.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotBackSlash.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpDotHat.sci b/tests/unit_tests/double/test_OpDotHat.sci new file mode 100644 index 0000000..0a8af07 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotHat.sci @@ -0,0 +1,29 @@ +function test_OpDotHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.^d0) + disp(z0.^z0) + disp(d2.^d0) + disp(z2.^z0) + + disp(d0.^d2) + disp(z0.^z2) + + disp(d2.^d2) + disp(z2.^z2) + + disp(d2.^z0) + disp(z2.^d0) + + disp(d0.^z2) + disp(z0.^d2) + + disp(d0.^z0) + disp(z0.^d0) + + disp(d2.^z2) + disp(z2.^d2) +endfunction diff --git a/tests/unit_tests/double/test_OpDotHat.sci.dia.ref b/tests/unit_tests/double/test_OpDotHat.sci.dia.ref new file mode 100644 index 0000000..c23404a --- /dev/null +++ b/tests/unit_tests/double/test_OpDotHat.sci.dia.ref @@ -0,0 +1,1293 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotHat.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 36.46216 + + 5.9283225 + 7.016786i + + 1. 8.8249778 31.544281 77.880234 + 156.99255 278.37758 451.80787 687.29134 + 995.04164 1385.4557 1869.096 2456.676 + 3159.0482 3987.1945 4952.2169 6065.3308 + + + column 1 to 2 + + - 0.2305848 - 0.1014833i 1.8960812 - 1.1609458i + - 27.20192 + 28.711233i - 68.127844 + 16.643533i + - 128.15078 - 215.44779i - 71.255924 - 341.68558i + 461.54269 - 648.35545i 755.6226 - 661.84161i + + column 3 to 4 + + 5.9514188 + 5.2663201i - 1.1252863 + 19.587992i + - 110.43344 - 27.572522i - 136.3417 - 106.73041i + 44.117831 - 468.80814i 222.18104 - 577.65261i + 1093.3278 - 600.96383i 1459.8611 - 451.31942i + + 3.1415927 9.8696044 31.006277 97.409091 + 306.01968 961.38919 3020.2932 9488.531 + 29809.099 93648.047 294204.02 924269.18 + 2903677.3 9122171.2 28658146. 90032221. + + + column 1 to 2 + + - 1.3141052 + 1.541592i - 0.6496337 - 4.0516281i + 12.902191 - 31.573352i 31.718393 + 61.38062i + - 40.146534 + 572.8927i - 830.41006 - 814.73083i + - 2373.7017 - 9373.9919i 17570.165 + 8659.1315i + + column 3 to 4 + + 7.0996445 + 4.3227953i - 15.993666 + 5.2641479i + - 136.30518 - 31.763766i 228.08611 - 168.38605i + 2347.2287 - 209.51156i - 2761.524 + 3893.7893i + - 36437.892 + 15707.017i 23669.41 - 76813.037i + + 1. 4. 27. 256. + 3125. 46656. 823543. 16777216. + 3.874D+08 1.000D+10 2.853D+11 8.916D+12 + 3.029D+14 1.111D+16 4.379D+17 1.845D+19 + + + column 1 to 2 + + 0.2739573 + 0.5837008i - 1.4525046 - 0.8098895i + 145.23402 + 316.57634i 873.73919 - 3237.1528i + 876015.4 - 7412399.9i - 1.214D+08 + 26132892.i + - 5.981D+11 - 8.122D+11i - 1.952D+13 + 1.372D+13i + + column 3 to 4 + + 6.6423696 + 2.8756701i - 35.273382 - 26.719734i + - 34429.512 + 16460.776i 425100.32 + 265667.49i + 9.762D+08 + 2.066D+09i 3.852D+10 - 2.523D+10i + 3.008D+14 + 5.264D+14i 1.542D+16 - 5.784D+15i + + + column 1 to 2 + + 1. - 5.0322958 + 7.2495678i + 52.91841 - 147.80494i 220.90118 - 169.40114i + 810.07457 + 577.82962i 805.22086 + 1127.4338i + - 640.12268 + 3093.5139i - 1686.9732 + 3612.7332i + + column 3 to 4 + + - 30.042605 - 9.6168362i - 27.232232 - 72.963939i + 445.30044 - 76.40598i 665.99766 + 169.75421i + 589.32366 + 1773.758i 116.44495 + 2453.9147i + - 3011.2228 + 3931.5378i - 4582.1419 + 3973.9418i + + + column 1 to 2 + + - 2.3207356 + 1.8544984i - 20.48044 + 16.365907i + - 364.33818 + 291.14242i - 646.04074 + 516.25077i + - 2309.2285 + 1845.3031i - 3215.2764 + 2569.3254i + - 7331.3155 + 5858.4498i - 9253.224 + 7394.2457i + + column 3 to 4 + + - 73.205934 + 58.498818i - 180.73943 + 144.42877i + - 1048.5266 + 837.87697i - 1595.0214 + 1274.5807i + - 4337.6776 + 3466.2355i - 5701.2952 + 4555.9016i + - 11492.786 + 9183.8783i - 14076.029 + 11248.146i + + + column 1 to 2 + + 1.2983955 + 2.8607296i - 6.4979428 + 7.4287166i + 259.35216 - 162.43308i 801.41878 + 531.03401i + - 19043.607 - 22933.021i 40879.037 - 84254.74i + - 1967162.8 + 2135793.1i - 8664081.7 - 2854416.7i + + column 3 to 4 + + - 29.688449 - 8.9434449i - 12.96257 - 96.542751i + - 478.58617 + 2982.1345i - 9152.4746 + 2502.8844i + 294107.18 + 7547.8967i 360274.94 + 851161.26i + - 3083690.3 - 28491756.i 77503360. - 45815172.i + + + column 1 to 3 + + 3.1415927 + 3.1415927i 19.739209i - 62.012553 + 62.012553i + - 1224.0787 - 1224.0787i - 7691.1135i 24162.346 - 24162.346i + 476945.59 + 476945.59i 2996737.5i - 9414528.6 + 9414528.6i + - 1.858D+08 - 1.858D+08i - 1.168D+09i 3.668D+09 - 3.668D+09i + + column 4 + + - 389.63636 + 151816.5 + - 59153228. + 2.305D+10 + + - 32.757625 - 16.01334i + + - 84.61903 + 67.619016i + + + column 1 to 2 + + 1. 0.7338279 + 3.932111i + - 600.02537 + 3066.8542i - 11317.499 - 45262.529i + 2.330D+08 + 3.095D+08i - 5.108D+09 - 8.597D+09i + - 1.060D+14 + 2.837D+14i 8.113D+15 - 7.593D+15i + + column 3 to 4 + + - 26.679454 - 4.1480999i 189.39145 - 172.24075i + 406193.94 + 716400.42i - 10062654. - 13424529.i + 9.156D+10 + 2.702D+11i - 2.340D+11 - 8.913D+12i + - 4.273D+17 + 9.554D+16i 1.714D+19 + 6.827D+18i + + + column 1 to 3 + + 1. + i 8.i - 54. + 54.i + - 12500. - 12500.i - 373248.i 6588344. - 6588344.i + 6.199D+09 + 6.199D+09i 3.200D+11i - 9.130D+12 + 9.130D+12i + - 1.938D+16 - 1.938D+16i - 1.422D+18i 5.605D+19 - 5.605D+19i + + column 4 + + - 1024. + 2.684D+08 + - 5.706D+14 + 4.722D+21 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpDotHat" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotHat/test_OpDotHat_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotHat() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp29; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpDotHatd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpDotHatz0(z0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpDotHatd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpDotHatz2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpDotHatd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpDotHatz2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpDotHatd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpDotHatz2(z2, __z2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpDotHatz2(d2, __d2Size,z0,__temp25); ! +! ! +! ans9 = z2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpDotHatz2(z2, __z2Size,d0,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpDotHatz2(d0,z2, __z2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpDotHatz2(z0,d2, __d2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp29 = d0z0OpDotHatz0(d0,z0); ! +! ! +! ans13 = z0dispd0(__temp29); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z0d0OpDotHatz0(z0,d0); ! +! ! +! ans14 = z0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpDotHatz2(d2, __d2Size,z2, __z2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpDotHatz2(z2, __z2Size,d2, __d2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpDotHat.sci.tst b/tests/unit_tests/double/test_OpDotHat.sci.tst new file mode 100644 index 0000000..cc18580 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotHat.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotHat.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpDotSlash.sci b/tests/unit_tests/double/test_OpDotSlash.sci new file mode 100644 index 0000000..eef4806 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotSlash.sci @@ -0,0 +1,26 @@ +function test_OpDotSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0./d0) + disp(d0./z0) + disp(d0./d2) + disp(d0./z2) + + disp(d2./d0) + disp(d2./z0) + disp(d2./d2) + disp(d2./z2) + + disp(z0./d0) + disp(z0./z0) + disp(z0./d2) + disp(z0./z2) + + disp(z2./d0) + disp(z2./z0) + disp(z2./d2) + disp(z2./z2) +endfunction diff --git a/tests/unit_tests/double/test_OpDotSlash.sci.dia.ref b/tests/unit_tests/double/test_OpDotSlash.sci.dia.ref new file mode 100644 index 0000000..0e39516 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotSlash.sci.dia.ref @@ -0,0 +1,1189 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotSlash.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 0.5 - 0.5i + + 3.1415927 1.5707963 1.0471976 0.7853982 + 0.6283185 0.5235988 0.4487990 0.3926991 + 0.3490659 0.3141593 0.2855993 0.2617994 + 0.2416610 0.2243995 0.2094395 0.1963495 + + + column 1 to 2 + + 1.5707963 - 1.5707963i 0.7853982 - 0.7853982i + 0.3141593 - 0.3141593i 0.2617994 - 0.2617994i + 0.1745329 - 0.1745329i 0.1570796 - 0.1570796i + 0.1208305 - 0.1208305i 0.1121997 - 0.1121997i + + column 3 to 4 + + 0.5235988 - 0.5235988i 0.3926991 - 0.3926991i + 0.2243995 - 0.2243995i 0.1963495 - 0.1963495i + 0.1427997 - 0.1427997i 0.1308997 - 0.1308997i + 0.1047198 - 0.1047198i 0.0981748 - 0.0981748i + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 + + + column 1 to 2 + + 0.1591549 - 0.1591549i 0.3183099 - 0.3183099i + 0.7957747 - 0.7957747i 0.9549297 - 0.9549297i + 1.4323945 - 1.4323945i 1.5915494 - 1.5915494i + 2.0690143 - 2.0690143i 2.2281692 - 2.2281692i + + column 3 to 4 + + 0.4774648 - 0.4774648i 0.6366198 - 0.6366198i + 1.1140846 - 1.1140846i 1.2732395 - 1.2732395i + 1.7507044 - 1.7507044i 1.9098593 - 1.9098593i + 2.3873241 - 2.3873241i 2.5464791 - 2.5464791i + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i 0.5 - 0.5i + + 1. + i + + 1. + + + column 1 to 2 + + 3.1415927 + 3.1415927i 1.5707963 + 1.5707963i + 0.6283185 + 0.6283185i 0.5235988 + 0.5235988i + 0.3490659 + 0.3490659i 0.3141593 + 0.3141593i + 0.2416610 + 0.2416610i 0.2243995 + 0.2243995i + + column 3 to 4 + + 1.0471976 + 1.0471976i 0.7853982 + 0.7853982i + 0.4487990 + 0.4487990i 0.3926991 + 0.3926991i + 0.2855993 + 0.2855993i 0.2617994 + 0.2617994i + 0.2094395 + 0.2094395i 0.1963495 + 0.1963495i + + 3.1415927 1.5707963 1.0471976 0.7853982 + 0.6283185 0.5235988 0.4487990 0.3926991 + 0.3490659 0.3141593 0.2855993 0.2617994 + 0.2416610 0.2243995 0.2094395 0.1963495 + + + column 1 to 2 + + 0.3183099 + 0.3183099i 0.6366198 + 0.6366198i + 1.5915494 + 1.5915494i 1.9098593 + 1.9098593i + 2.864789 + 2.864789i 3.1830989 + 3.1830989i + 4.1380285 + 4.1380285i 4.4563384 + 4.4563384i + + column 3 to 4 + + 0.9549297 + 0.9549297i 1.2732395 + 1.2732395i + 2.2281692 + 2.2281692i 2.5464791 + 2.5464791i + 3.5014087 + 3.5014087i 3.8197186 + 3.8197186i + 4.7746483 + 4.7746483i 5.0929582 + 5.0929582i + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 + + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + 1. + i 1. + i 1. + i 1. + i + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpDotSlash" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotSlash/test_OpDotSlash_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotSlash/test_OpDotSlash_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0./d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0./z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0./d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0./z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2./d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2./z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2./d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2./z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0./d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0./z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0./d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0./z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2./d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2./z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2./d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2./z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotSlash() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0./d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpDotSlashd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0./z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0z0OpDotSlashz0(d0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0./d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpDotSlashd2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0./z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpDotSlashz2(d0,z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2./d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpDotSlashd2(d2, __d2Size,d0,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2./z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpDotSlashz2(d2, __d2Size,z0,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2./d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpDotSlashd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2./z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpDotSlashz2(d2, __d2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0./d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = z0d0OpDotSlashz0(z0,d0); ! +! ! +! ans9 = z0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0./z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0z0OpDotSlashz0(z0,z0); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0./d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpDotSlashz2(z0,d2, __d2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0./z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpDotSlashz2(z0,z2, __z2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2./d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpDotSlashz2(z2, __z2Size,d0,__temp29); ! +! ! +! ans13 = z2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2./z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpDotSlashz2(z2, __z2Size,z0,__temp30); ! +! ! +! ans14 = z2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2./d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpDotSlashz2(z2, __z2Size,d2, __d2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2./z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpDotSlashz2(z2, __z2Size,z2, __z2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpDotSlash.sci.tst b/tests/unit_tests/double/test_OpDotSlash.sci.tst new file mode 100644 index 0000000..d3cb92d --- /dev/null +++ b/tests/unit_tests/double/test_OpDotSlash.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotSlash.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpDotStar.sci b/tests/unit_tests/double/test_OpDotStar.sci new file mode 100644 index 0000000..3e17f50 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotStar.sci @@ -0,0 +1,26 @@ +function test_OpDotStar() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0.*d0) + disp(d0.*z0) + disp(d0.*d2) + disp(d0.*z2) + + disp(d2.*d0) + disp(d2.*z0) + disp(d2.*d2) + disp(d2.*z2) + + disp(z0.*d0) + disp(z0.*z0) + disp(z0.*d2) + disp(z0.*z2) + + disp(z2.*d0) + disp(z2.*z0) + disp(z2.*d2) + disp(z2.*z2) +endfunction diff --git a/tests/unit_tests/double/test_OpDotStar.sci.dia.ref b/tests/unit_tests/double/test_OpDotStar.sci.dia.ref new file mode 100644 index 0000000..f4787d9 --- /dev/null +++ b/tests/unit_tests/double/test_OpDotStar.sci.dia.ref @@ -0,0 +1,1189 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotStar.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 9.8696044 + + 9.8696044 + 9.8696044i + + 3.1415927 6.2831853 9.424778 12.566371 + 15.707963 18.849556 21.991149 25.132741 + 28.274334 31.415927 34.557519 37.699112 + 40.840704 43.982297 47.12389 50.265482 + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 3.1415927 6.2831853 9.424778 12.566371 + 15.707963 18.849556 21.991149 25.132741 + 28.274334 31.415927 34.557519 37.699112 + 40.840704 43.982297 47.12389 50.265482 + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 1. 4. 9. 16. + 25. 36. 49. 64. + 81. 100. 121. 144. + 169. 196. 225. 256. + + 1. + i 4. + 4.i 9. + 9.i 16. + 16.i + 25. + 25.i 36. + 36.i 49. + 49.i 64. + 64.i + 81. + 81.i 100. + 100.i 121. + 121.i 144. + 144.i + 169. + 169.i 196. + 196.i 225. + 225.i 256. + 256.i + + 9.8696044 + 9.8696044i + + 19.739209i + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 6.2831853i 12.566371i 18.849556i 25.132741i + 31.415927i 37.699112i 43.982297i 50.265482i + 56.548668i 62.831853i 69.115038i 75.398224i + 81.681409i 87.964594i 94.24778i 100.53096i + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 6.2831853i 12.566371i 18.849556i 25.132741i + 31.415927i 37.699112i 43.982297i 50.265482i + 56.548668i 62.831853i 69.115038i 75.398224i + 81.681409i 87.964594i 94.24778i 100.53096i + + 1. + i 4. + 4.i 9. + 9.i 16. + 16.i + 25. + 25.i 36. + 36.i 49. + 49.i 64. + 64.i + 81. + 81.i 100. + 100.i 121. + 121.i 144. + 144.i + 169. + 169.i 196. + 196.i 225. + 225.i 256. + 256.i + + 2.i 8.i 18.i 32.i + 50.i 72.i 98.i 128.i + 162.i 200.i 242.i 288.i + 338.i 392.i 450.i 512.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpDotStar" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotStar/test_OpDotStar_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpDotStar/test_OpDotStar_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0.*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2.*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0.*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2.*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpDotStar() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpDotStard0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0z0OpDotStarz0(d0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpDotStard2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0.*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpDotStarz2(d0,z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpDotStard2(d2, __d2Size,d0,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpDotStarz2(d2, __d2Size,z0,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpDotStard2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2.*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpDotStarz2(d2, __d2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = z0d0OpDotStarz0(z0,d0); ! +! ! +! ans9 = z0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0z0OpDotStarz0(z0,z0); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpDotStarz2(z0,d2, __d2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0.*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpDotStarz2(z0,z2, __z2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpDotStarz2(z2, __z2Size,d0,__temp29); ! +! ! +! ans13 = z2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpDotStarz2(z2, __z2Size,z0,__temp30); ! +! ! +! ans14 = z2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpDotStarz2(z2, __z2Size,d2, __d2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2.*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpDotStarz2(z2, __z2Size,z2, __z2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpDotStar.sci.tst b/tests/unit_tests/double/test_OpDotStar.sci.tst new file mode 100644 index 0000000..7f95e3b --- /dev/null +++ b/tests/unit_tests/double/test_OpDotStar.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpDotStar.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpEqual.sci b/tests/unit_tests/double/test_OpEqual.sci new file mode 100644 index 0000000..25adb3e --- /dev/null +++ b/tests/unit_tests/double/test_OpEqual.sci @@ -0,0 +1,24 @@ +function test_OpEqual() + + a = %pi; + disp(a); + + + b = %pi + %i; + disp(b); + + + c = "a"; + disp(c); + + + d =[ %pi 4 5]; + disp(d); + + e = [7 8 9]*%i; + disp(e); + + f = "plopilou" ; + disp(f); + +endfunction diff --git a/tests/unit_tests/double/test_OpEqual.sci.dia.ref b/tests/unit_tests/double/test_OpEqual.sci.dia.ref new file mode 100644 index 0000000..fc32667 --- /dev/null +++ b/tests/unit_tests/double/test_OpEqual.sci.dia.ref @@ -0,0 +1,801 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpEqual.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 3.1415927 + i + + a + + 3.1415927 4. 5. + + 7.i 8.i 9.i + + plopilou + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpEqual" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpEqual/test_OpEqual_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpEqual/test_OpEqual_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = %pi; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = %pi + %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = "a"; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(c); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d =[ %pi 4 5]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [7 8 9]*%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(e); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = "plopilou" ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(f); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpEqual() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double a = 3.1415927; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex b; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! char __temp1[1*2] = {"a"}; ! +! ! +! int ____temp1Size[2] = {1,2}; ! +! ! +! ! +! ! +! char c[1*2] = {"a"}; ! +! ! +! int __cSize[2] = {1,2}; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp2[1 * 2]; ! +! ! +! int ____temp2Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double d[1 * 3]; ! +! ! +! int __dSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex e[1 * 3]; ! +! ! +! int __eSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp5[1*9] = {"plopilou"}; ! +! ! +! int ____temp5Size[2] = {1,9}; ! +! ! +! ! +! ! +! char f[1*9] = {"plopilou"}; ! +! ! +! int __fSize[2] = {1,9}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = %pi; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0dispd0(a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = %pi + %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0z0OpPlusz0(SCI2C_PI,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = z0dispd0(b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = "a"; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp1, ____temp1Size,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(c); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = g2dispd0(c, __cSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d =[ %pi 4 5]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(SCI2C_PI,4,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,5,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(d, __dSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [7 8 9]*%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,9,__temp4); ! +! ! +! d2z0OpStarz2(__temp4, ____temp4Size,DoubleComplex(0,1),e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(e); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = z2dispd0(e, __eSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = "plopilou" ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp5, ____temp5Size,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(f); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(f, __fSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpEqual.sci.tst b/tests/unit_tests/double/test_OpEqual.sci.tst new file mode 100644 index 0000000..284d232 --- /dev/null +++ b/tests/unit_tests/double/test_OpEqual.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpEqual.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpExt.sci b/tests/unit_tests/double/test_OpExt.sci new file mode 100644 index 0000000..f49be76 --- /dev/null +++ b/tests/unit_tests/double/test_OpExt.sci @@ -0,0 +1,25 @@ +function test_OpExt () + + a = [1 2 3 ; 4 5 6]; + + + disp(a(2)); + disp(a([3 5])); + disp(a(2,3)); + disp(a(2,[2 3])); + disp(a ([1 2],1)); + disp(a ([1 2],[2 3])); + + + b = [1 2 3 ; 4 5 6] * %i; + + + disp(b(2)); + disp(b([3 5])); + disp(b(2,3)); + disp(b(2,[2 3])); + disp(b ([1 2],1)); + disp(b ([1 2],[2 3])); + + +endfunction diff --git a/tests/unit_tests/double/test_OpExt.sci.dia.ref b/tests/unit_tests/double/test_OpExt.sci.dia.ref new file mode 100644 index 0000000..06c4c44 --- /dev/null +++ b/tests/unit_tests/double/test_OpExt.sci.dia.ref @@ -0,0 +1,1052 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpExt.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 4. + + 2. + 3. + + 6. + + 5. 6. + + 1. + 4. + + 2. 3. + 5. 6. + + 4.i + + 2.i + 3.i + + 6.i + + 5.i 6.i + + i + 4.i + + 2.i 3.i + 5.i 6.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpExt" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpExt/test_OpExt_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpExt/test_OpExt_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a(2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a([3 5])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a(2,3)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a(2,[2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a ([1 2],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a ([1 2],[2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b(2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b([3 5])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b(2,3)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b(2,[2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b ([1 2],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b ([1 2],[2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpExt () ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp5; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[2 * 1]; ! +! ! +! int ____temp7Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp8; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[2 * 1]; ! +! ! +! int ____temp12Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[2 * 2]; ! +! ! +! int ____temp15Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp16[1 * 2]; ! +! ! +! int ____temp16Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp17[1 * 3]; ! +! ! +! int ____temp17Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp20[2 * 3]; ! +! ! +! int ____temp20Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp21; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp23[2 * 1]; ! +! ! +! int ____temp23Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp24; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp25[1 * 2]; ! +! ! +! int ____temp25Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp28[2 * 1]; ! +! ! +! int ____temp28Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp29[1 * 2]; ! +! ! +! int ____temp29Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp31[2 * 2]; ! +! ! +! int ____temp31Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a(2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp5 = d2d0OpExtd0(a, __aSize,2); ! +! ! +! ans1 = d0dispd0(__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a([3 5])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(3,5,__temp6); ! +! ! +! d2d2OpExtd2(a, __aSize,__temp6, ____temp6Size,__temp7); ! +! ! +! ans2 = d2dispd0(__temp7, ____temp7Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a(2,3)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = d2d0d0OpExtd0(a, __aSize,2,3); ! +! ! +! ans3 = d0dispd0(__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a(2,[2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp9); ! +! ! +! d2d0d2OpExtd2(a, __aSize,2,__temp9, ____temp9Size,__temp10); ! +! ! +! ans4 = d2dispd0(__temp10, ____temp10Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a ([1 2],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp11); ! +! ! +! d2d2d0OpExtd2(a, __aSize,__temp11, ____temp11Size,1,__temp12); ! +! ! +! ans5 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a ([1 2],[2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d0d0OpRcd2(2,3,__temp14); ! +! ! +! d2d2d2OpExtd2(a, __aSize,__temp13, ____temp13Size,__temp14, ____! +! temp14Size,__temp15); ! +! ! +! ans6 = d2dispd0(__temp15, ____temp15Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp16); ! +! ! +! d2d0OpRcd2(__temp16, ____temp16Size,3,__temp17); ! +! ! +! d0d0OpRcd2(4,5,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,6,__temp19); ! +! ! +! d2d2OpCcd2(__temp17, ____temp17Size,__temp19, ____temp19Size,__te! +! mp20); ! +! ! +! d2z0OpStarz2(__temp20, ____temp20Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b(2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = z2d0OpExtz0(b, __bSize,2); ! +! ! +! ans7 = z0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b([3 5])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(3,5,__temp22); ! +! ! +! z2d2OpExtz2(b, __bSize,__temp22, ____temp22Size,__temp23); ! +! ! +! ans8 = z2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b(2,3)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp24 = z2d0d0OpExtz0(b, __bSize,2,3); ! +! ! +! ans9 = z0dispd0(__temp24); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b(2,[2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp25); ! +! ! +! z2d0d2OpExtz2(b, __bSize,2,__temp25, ____temp25Size,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b ([1 2],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp27); ! +! ! +! z2d2d0OpExtz2(b, __bSize,__temp27, ____temp27Size,1,__temp28); ! +! ! +! ans11 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b ([1 2],[2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp29); ! +! ! +! d0d0OpRcd2(2,3,__temp30); ! +! ! +! z2d2d2OpExtz2(b, __bSize,__temp29, ____temp29Size,__temp30, ____! +! temp30Size,__temp31); ! +! ! +! ans12 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpExt.sci.tst b/tests/unit_tests/double/test_OpExt.sci.tst new file mode 100644 index 0000000..19c3b07 --- /dev/null +++ b/tests/unit_tests/double/test_OpExt.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpExt.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpHat.sci b/tests/unit_tests/double/test_OpHat.sci new file mode 100644 index 0000000..0f029ab --- /dev/null +++ b/tests/unit_tests/double/test_OpHat.sci @@ -0,0 +1,29 @@ +function test_OpHat() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0^d0) + disp(z0^z0) + disp(d2^d0) + disp(z2^z0) + + disp(d0^d2) + disp(z0^z2) + + //disp(d2^d2) // ! Not implemented in Scilab ! + //disp(z2^z2) // ! Not implemented in Scilab ! + + disp(d2^z0) + disp(z2^d0) + + disp(d0^z2) + disp(z0^d2) + + disp(d0^z0) + disp(z0^d0) + + //disp(d2^z2) // ! Not implemented in Scilab ! + //disp(z2^d2) // ! Not implemented in Scilab ! +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpHat.sci.dia.ref b/tests/unit_tests/double/test_OpHat.sci.dia.ref new file mode 100644 index 0000000..7945551 --- /dev/null +++ b/tests/unit_tests/double/test_OpHat.sci.dia.ref @@ -0,0 +1,1197 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpHat.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 36.46216 + + 5.9283225 + 7.016786i + + + column 1 to 2 + + 5224.1794 - 3.2901821i 5920.186 - 1.6870476i + 12083.561 - 1.2816291i 13685.202 - 0.6571580i + 18942.943 + 0.7269239i 21450.219 + 0.3727317i + 25802.325 + 2.7354768i 29215.235 + 1.4026214i + + column 3 to 4 + + 6616.1926 - 0.0839132i 7312.1992 + 1.5192213i + 15286.844 - 0.0326868i 16888.485 + 0.5917844i + 23957.495 + 0.0185395i 26464.77 - 0.3356526i + 32628.146 + 0.0697659i 36041.056 - 1.2630896i + + + column 1 to 2 + + - 29769.003 + 24471.882i - 15787.197 + 13175.111i + - 13217.507 + 11476.587i - 7985.8634 + 7333.5474i + 3333.9879 - 1518.7071i - 184.52977 + 1491.9834i + 19885.483 - 14514.002i 7616.8039 - 4349.5807i + + column 3 to 4 + + - 1805.3913 + 1878.3411i 12176.414 - 9418.4292i + - 2754.2193 + 3190.5075i 2477.4247 - 952.53243i + - 3703.0474 + 4502.6739i - 7221.5651 + 7513.3644i + - 4651.8755 + 5814.8403i - 16920.555 + 15979.261i + + 3.1415927 9.8696044 31.006277 97.409091 + 306.01968 961.38919 3020.2932 9488.531 + 29809.099 93648.047 294204.02 924269.18 + 2903677.3 9122171.2 28658146. 90032221. + + + column 1 to 2 + + - 1.3141052 + 1.541592i - 0.6496337 - 4.0516281i + 12.902191 - 31.573352i 31.718393 + 61.38062i + - 40.146534 + 572.8927i - 830.41006 - 814.73083i + - 2373.7017 - 9373.9919i 17570.165 + 8659.1315i + + column 3 to 4 + + 7.0996445 + 4.3227953i - 15.993666 + 5.2641479i + - 136.30518 - 31.763766i 228.08611 - 168.38605i + 2347.2287 - 209.51156i - 2761.524 + 3893.7893i + - 36437.892 + 15707.017i 23669.41 - 76813.037i + + + column 1 to 2 + + 1448.6594 - 5026.4901i 1640.475 - 5692.0437i + 3347.0813 - 11613.548i 3790.2657 - 13151.288i + 5245.5032 - 18200.605i 5940.0564 - 20610.533i + 7143.9251 - 24787.662i 8089.847 - 28069.778i + + column 3 to 4 + + 1832.2907 - 6357.5974i 2024.1063 - 7023.1511i + 4233.4501 - 14689.029i 4676.6345 - 16226.77i + 6634.6095 - 23020.461i 7329.1626 - 25430.39i + 9035.7689 - 31351.893i 9981.6908 - 34634.009i + + + column 1 to 2 + + - 12130.041 + 9680.5967i - 13742.315 + 10975.06i + - 28045.127 + 22405.971i - 31760.955 + 25377.661i + - 43960.214 + 35131.345i - 49779.595 + 39780.261i + - 59875.3 + 47856.719i - 67798.235 + 54182.862i + + column 3 to 4 + + - 15354.589 + 12269.524i - 16966.863 + 13563.987i + - 35476.782 + 28349.351i - 39192.61 + 31321.041i + - 55598.975 + 44429.178i - 61418.356 + 49078.095i + - 75721.169 + 60509.006i - 83644.103 + 66835.149i + + + column 1 to 2 + + 1.2983955 + 2.8607296i - 6.4979428 + 7.4287166i + 259.35216 - 162.43308i 801.41878 + 531.03401i + - 19043.607 - 22933.021i 40879.037 - 84254.74i + - 1967162.8 + 2135793.1i - 8664081.7 - 2854416.7i + + column 3 to 4 + + - 29.688449 - 8.9434449i - 12.96257 - 96.542751i + - 478.58617 + 2982.1345i - 9152.4746 + 2502.8844i + 294107.18 + 7547.8967i 360274.94 + 851161.26i + - 3083690.3 - 28491756.i 77503360. - 45815172.i + + + column 1 to 3 + + 3.1415927 + 3.1415927i 19.739209i - 62.012553 + 62.012553i + - 1224.0787 - 1224.0787i - 7691.1135i 24162.346 - 24162.346i + 476945.59 + 476945.59i 2996737.5i - 9414528.6 + 9414528.6i + - 1.858D+08 - 1.858D+08i - 1.168D+09i 3.668D+09 - 3.668D+09i + + column 4 + + - 389.63636 + 151816.5 + - 59153228. + 2.305D+10 + + - 32.757625 - 16.01334i + + - 84.61903 + 67.619016i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpHat" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpHat/test_OpHat_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpHat/test_OpHat_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2^d2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2^z2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2^z2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2^d2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpHat() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpHatd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpHatz0(z0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpHatd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpHatz2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpHatd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpHatz2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2^d2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2^z2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpHatz2(d2, __d2Size,z0,__temp23); ! +! ! +! ans7 = z2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpHatz2(z2, __z2Size,d0,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpHatz2(d0,z2, __z2Size,__temp25); ! +! ! +! ans9 = z2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpHatz2(z0,d2, __d2Size,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp27 = d0z0OpHatz0(d0,z0); ! +! ! +! ans11 = z0dispd0(__temp27); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp28 = z0d0OpHatz0(z0,d0); ! +! ! +! ans12 = z0dispd0(__temp28); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2^z2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2^d2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpHat.sci.tst b/tests/unit_tests/double/test_OpHat.sci.tst new file mode 100644 index 0000000..2cadee1 --- /dev/null +++ b/tests/unit_tests/double/test_OpHat.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpHat.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpIns.sci b/tests/unit_tests/double/test_OpIns.sci new file mode 100644 index 0000000..bb7691a --- /dev/null +++ b/tests/unit_tests/double/test_OpIns.sci @@ -0,0 +1,129 @@ +function test_OpIns() + //reals +a=[1 2 3; 4 5 6] + +a(3)=-2 +disp(a); + +a(3)=-4+%i +disp(a); + +a(1,3)=-12; +disp(a); + +a(1,3)=-5+%i; +disp(a); + +a([1,2],1)=-12; +disp(a); + +a([1,2],1)=-5+%i; +disp(a); + +a(2,[2,3])=-12; +disp(a); + +a(2,[2,3])=-5+%i; +disp(a); + +a([1 2],[1,2,3])=4; +disp(a); + +a([1 2],[1,2,3])=3+%i; +disp(a); + +a([1,3])=7; +disp(a); + +a([1,3])=2+%i; +disp(a); + +a([1,3])=[1,0]; +disp(a); + +a([1,3])=[3-%i,1+%i]; +disp(a); + +a(2,[1,3])=[-2,-7]; +disp(a); + +a(2,[1,3])=[-4+%i,-5+%i]; +disp(a); + +a([1,2],3)=[-9;-1]; +disp(a); + +a([1,2],3)=[-4+%i;-5+%i]; +disp(a); + +a([1,2],[2,3])=[-31 -45;-29 -51]; +disp(a); + +a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; +disp(a); + + +//complexes + +b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] + +b(3)=-2 +disp(b); + +b(3)=-4+%i +disp(b); + +b(1,3)=-12; +disp(b); + +b(1,3)=-5+%i; +disp(b); + +b([1,2],1)=-12; +disp(b); + +b([1,2],1)=-5+%i; +disp(b); + +b(2,[2,3])=-12; +disp(b); + +b(2,[2,3])=-5+%i; +disp(b); + +b([1 2],[1,2,3])=4; +disp(b); + +b([1 2],[1,2,3])=3+%i; +disp(b); + +b([1,3])=7; +disp(b); + +b([1,3])=2+%i; +disp(b); + +b([1,3])=[1,0]; +disp(b); + +b([1,3])=[3-%i,1+%i]; +disp(b); + +b(2,[1,3])=[-2,-7]; +disp(b); + +b(2,[1,3])=[-4+%i,-5+%i]; +disp(b); + +b([1,2],3)=[-9;-1]; +disp(b); + +b([1,2],3)=[-4+%i;-5+%i]; +disp(b); + +b([1,2],[2,3])=[-31 -45;-29 -51]; +disp(b); + +b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; +disp(b); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpIns.sci.dia.ref b/tests/unit_tests/double/test_OpIns.sci.dia.ref new file mode 100644 index 0000000..5b8afc4 --- /dev/null +++ b/tests/unit_tests/double/test_OpIns.sci.dia.ref @@ -0,0 +1,3885 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpIns.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. - 2. 3. + 4. 5. 6. + + 1. - 4. + i 3. + 4. 5. 6. + + 1. - 4. + i - 12. + 4. 5. 6. + + 1. - 4. + i - 5. + i + 4. 5. 6. + + - 12. - 4. + i - 5. + i + - 12. 5. 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i 5. 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 12. - 12. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 5. + i - 5. + i + + 4. 4. 4. + 4. 4. 4. + + 3. + i 3. + i 3. + i + 3. + i 3. + i 3. + i + + 7. 7. 3. + i + 3. + i 3. + i 3. + i + + 2. + i 2. + i 3. + i + 3. + i 3. + i 3. + i + + 1. 0 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + - 2. 3. + i - 7. + + 3. - i 1. + i 3. + i + - 4. + i 3. + i - 5. + i + + 3. - i 1. + i - 9. + - 4. + i 3. + i - 1. + + 3. - i 1. + i - 4. + i + - 4. + i 3. + i - 5. + i + + 3. - i - 31. - 45. + - 4. + i - 29. - 51. + + 3. - i - 4. + i - 5. + i + - 4. + i - 4. + i - 5. + i + + 1. - 3.i - 2. 3. + 2.i + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i 3. + 2.i + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i - 12. + 4. 5. + 4.i 6. + + 1. - 3.i - 4. + i - 5. + i + 4. 5. + 4.i 6. + + - 12. - 4. + i - 5. + i + - 12. 5. + 4.i 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i 5. + 4.i 6. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 12. - 12. + + - 5. + i - 4. + i - 5. + i + - 5. + i - 5. + i - 5. + i + + 4. 4. 4. + 4. 4. 4. + + 3. + i 3. + i 3. + i + 3. + i 3. + i 3. + i + + 7. 7. 3. + i + 3. + i 3. + i 3. + i + + 2. + i 2. + i 3. + i + 3. + i 3. + i 3. + i + + 1. 0 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + 3. + i 3. + i 3. + i + + 3. - i 1. + i 3. + i + - 2. 3. + i - 7. + + 3. - i 1. + i 3. + i + - 4. + i 3. + i - 5. + i + + 3. - i 1. + i - 9. + - 4. + i 3. + i - 1. + + 3. - i 1. + i - 4. + i + - 4. + i 3. + i - 5. + i + + 3. - i - 31. - 45. + - 4. + i - 29. - 51. + + 3. - i - 4. + i - 5. + i + - 4. + i - 4. + i - 5. + i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpIns" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpIns/test_OpIns_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: //reals + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a=[1 2 3; 4 5 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(3)=-2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(3)=-4+%i + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(1,3)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(1,3)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],1)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],1)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[2,3])=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[2,3])=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1 2],[1,2,3])=4; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1 2],[1,2,3])=3+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=7; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=2+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=[1,0]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,3])=[3-%i,1+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[1,3])=[-2,-7]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a(2,[1,3])=[-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],3)=[-9;-1]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],3)=[-4+%i;-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //complexes + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(3)=-2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(3)=-4+%i + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(1,3)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(1,3)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],1)=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],1)=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[2,3])=-12; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[2,3])=-5+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1 2],[1,2,3])=4; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1 2],[1,2,3])=3+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=7; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=2+%i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=[1,0]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,3])=[3-%i,1+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[1,3])=[-2,-7]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b(2,[1,3])=[-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],3)=[-9;-1]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],3)=[-4+%i;-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpIns() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp11; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp16; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp20[1 * 2]; ! +! ! +! int ____temp20Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp21; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp25; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! doubleComplex __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp29[1 * 2]; ! +! ! +! int ____temp29Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp31; ! +! ! +! ! +! ! +! doubleComplex __temp32; ! +! ! +! ! +! ! +! doubleComplex __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 2]; ! +! ! +! int ____temp34Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp35[2 * 1]; ! +! ! +! int ____temp35Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! doubleComplex __temp37; ! +! ! +! ! +! ! +! doubleComplex __temp38; ! +! ! +! ! +! ! +! doubleComplex __temp39[2 * 1]; ! +! ! +! int ____temp39Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp40[1 * 2]; ! +! ! +! int ____temp40Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp41[1 * 2]; ! +! ! +! int ____temp41Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp42[1 * 2]; ! +! ! +! int ____temp42Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp43[2 * 2]; ! +! ! +! int ____temp43Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp44[1 * 2]; ! +! ! +! int ____temp44Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp45[1 * 2]; ! +! ! +! int ____temp45Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! doubleComplex __temp46; ! +! ! +! ! +! ! +! doubleComplex __temp47; ! +! ! +! ! +! ! +! doubleComplex __temp48[1 * 2]; ! +! ! +! int ____temp48Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50; ! +! ! +! ! +! ! +! doubleComplex __temp51[1 * 2]; ! +! ! +! int ____temp51Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp52[2 * 2]; ! +! ! +! int ____temp52Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 2]; ! +! ! +! int ____temp53Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! doubleComplex __temp55; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! doubleComplex __temp57; ! +! ! +! ! +! ! +! doubleComplex __temp58[1 * 2]; ! +! ! +! int ____temp58Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp59; ! +! ! +! ! +! ! +! doubleComplex __temp60; ! +! ! +! ! +! ! +! doubleComplex __temp61[1 * 3]; ! +! ! +! int ____temp61Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp62; ! +! ! +! ! +! ! +! doubleComplex __temp63; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 2]; ! +! ! +! int ____temp64Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 3]; ! +! ! +! int ____temp65Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! doubleComplex __temp66; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! doubleComplex __temp67; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! double __temp68[1 * 2]; ! +! ! +! int ____temp68Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! doubleComplex __temp69; ! +! ! +! ! +! ! +! double __temp70[1 * 2]; ! +! ! +! int ____temp70Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! doubleComplex __temp72; ! +! ! +! ! +! ! +! double __temp73[1 * 2]; ! +! ! +! int ____temp73Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp74[1 * 2]; ! +! ! +! int ____temp74Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp75[1 * 2]; ! +! ! +! int ____temp75Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp76[1 * 3]; ! +! ! +! int ____temp76Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! doubleComplex __temp77; ! +! ! +! ! +! ! +! double __temp78[1 * 2]; ! +! ! +! int ____temp78Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp81[1 * 2]; ! +! ! +! int ____temp81Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! doubleComplex __temp82; ! +! ! +! ! +! ! +! double __temp83[1 * 2]; ! +! ! +! int ____temp83Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! double __temp84[1 * 2]; ! +! ! +! int ____temp84Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! doubleComplex __temp86; ! +! ! +! ! +! ! +! doubleComplex __temp87; ! +! ! +! ! +! ! +! doubleComplex __temp88[1 * 2]; ! +! ! +! int ____temp88Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans34; ! +! ! +! ! +! ! +! double __temp90[1 * 2]; ! +! ! +! int ____temp90Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp91[1 * 2]; ! +! ! +! int ____temp91Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans35; ! +! ! +! ! +! ! +! doubleComplex __temp92; ! +! ! +! ! +! ! +! doubleComplex __temp93; ! +! ! +! ! +! ! +! doubleComplex __temp94[1 * 2]; ! +! ! +! int ____temp94Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp95[1 * 2]; ! +! ! +! int ____temp95Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans36; ! +! ! +! ! +! ! +! double __temp96[2 * 1]; ! +! ! +! int ____temp96Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp97[1 * 2]; ! +! ! +! int ____temp97Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans37; ! +! ! +! ! +! ! +! doubleComplex __temp98; ! +! ! +! ! +! ! +! doubleComplex __temp99; ! +! ! +! ! +! ! +! doubleComplex __temp100[2 * 1]; ! +! ! +! int ____temp100Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double __temp101[1 * 2]; ! +! ! +! int ____temp101Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans38; ! +! ! +! ! +! ! +! double __temp102[1 * 2]; ! +! ! +! int ____temp102Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp103[1 * 2]; ! +! ! +! int ____temp103Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp104[2 * 2]; ! +! ! +! int ____temp104Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp105[1 * 2]; ! +! ! +! int ____temp105Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp106[1 * 2]; ! +! ! +! int ____temp106Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans39; ! +! ! +! ! +! ! +! doubleComplex __temp107; ! +! ! +! ! +! ! +! doubleComplex __temp108; ! +! ! +! ! +! ! +! doubleComplex __temp109[1 * 2]; ! +! ! +! int ____temp109Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp110; ! +! ! +! ! +! ! +! doubleComplex __temp111; ! +! ! +! ! +! ! +! doubleComplex __temp112[1 * 2]; ! +! ! +! int ____temp112Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp113[2 * 2]; ! +! ! +! int ____temp113Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp114[1 * 2]; ! +! ! +! int ____temp114Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans40; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //reals ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a=[1 2 3; 4 5 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(3)=-2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0d0OpIns(a, __aSize,3,-2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(3)=-4+%i ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp5 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! d2d0z0OpIns(a, __aSize,3,__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(1,3)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0d0d0OpIns(a, __aSize,1,3,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(1,3)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp6 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d2d0d0z0OpIns(a, __aSize,1,3,__temp6); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],1)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp7); ! +! ! +! d2d2d0d0OpIns(a, __aSize,__temp7, ____temp7Size,1,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],1)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp9); ! +! ! +! d2d2d0z0OpIns(a, __aSize,__temp9, ____temp9Size,1,__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[2,3])=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp10); ! +! ! +! d2d0d2d0OpIns(a, __aSize,2,__temp10, ____temp10Size,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[2,3])=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp11 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(2,3,__temp12); ! +! ! +! d2d0d2z0OpIns(a, __aSize,2,__temp12, ____temp12Size,__temp11); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1 2],[1,2,3])=4; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,3,__temp15); ! +! ! +! d2d2d2d0OpIns(a, __aSize,__temp13, ____temp13Size,__temp15, ____! +! temp15Size,4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1 2],[1,2,3])=3+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp16 = d0z0OpPlusz0(3,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp17); ! +! ! +! d0d0OpRcd2(1,2,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,3,__temp19); ! +! ! +! d2d2d2z0OpIns(a, __aSize,__temp17, ____temp17Size,__temp19, ____! +! temp19Size,__temp16); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=7; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,3,__temp20); ! +! ! +! d2d2d0OpIns(a, __aSize,__temp20, ____temp20Size,7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=2+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,3,__temp22); ! +! ! +! d2d2z0OpIns(a, __aSize,__temp22, ____temp22Size,__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=[1,0]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,0,__temp23); ! +! ! +! d0d0OpRcd2(1,3,__temp24); ! +! ! +! d2d2d2OpIns(a, __aSize,__temp24, ____temp24Size,__temp23, ____te! +! mp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,3])=[3-%i,1+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0z0OpMinusz0(3,DoubleComplex(0,1)); ! +! ! +! __temp26 = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp25,__temp26,__temp27); ! +! ! +! d0d0OpRcd2(1,3,__temp28); ! +! ! +! d2d2z2OpIns(a, __aSize,__temp28, ____temp28Size,__temp27, ____te! +! mp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[1,3])=[-2,-7]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-2,-7,__temp29); ! +! ! +! d0d0OpRcd2(1,3,__temp30); ! +! ! +! d2d0d2d2OpIns(a, __aSize,2,__temp30, ____temp30Size,__temp29, __! +! __temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a(2,[1,3])=[-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp31 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp32 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp31,__temp32,__temp33); ! +! ! +! d0d0OpRcd2(1,3,__temp34); ! +! ! +! d2d0d2z2OpIns(a, __aSize,2,__temp34, ____temp34Size,__temp33, __! +! __temp33Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],3)=[-9;-1]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(-9,-1,__temp35); ! +! ! +! d0d0OpRcd2(1,2,__temp36); ! +! ! +! d2d2d0d2OpIns(a, __aSize,__temp36, ____temp36Size,3,__temp35, __! +! __temp35Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans17 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],3)=[-4+%i;-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp37 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp38 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpCcz2(__temp37,__temp38,__temp39); ! +! ! +! d0d0OpRcd2(1,2,__temp40); ! +! ! +! d2d2d0z2OpIns(a, __aSize,__temp40, ____temp40Size,3,__temp39, __! +! __temp39Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],[2,3])=[-31 -45;-29 -51]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-31,-45,__temp41); ! +! ! +! d0d0OpRcd2(-29,-51,__temp42); ! +! ! +! d2d2OpCcd2(__temp41, ____temp41Size,__temp42, ____temp42Size,__te! +! mp43); ! +! ! +! d0d0OpRcd2(1,2,__temp44); ! +! ! +! d0d0OpRcd2(2,3,__temp45); ! +! ! +! d2d2d2d2OpIns(a, __aSize,__temp44, ____temp44Size,__temp45, ____! +! temp45Size,__temp43, ____temp43Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans19 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp46 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp47 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp46,__temp47,__temp48); ! +! ! +! __temp49 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp50 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp49,__temp50,__temp51); ! +! ! +! z2z2OpCcz2(__temp48, ____temp48Size,__temp51, ____temp51Size,__te! +! mp52); ! +! ! +! d0d0OpRcd2(1,2,__temp53); ! +! ! +! d0d0OpRcd2(2,3,__temp54); ! +! ! +! d2d2d2z2OpIns(a, __aSize,__temp53, ____temp53Size,__temp54, ____! +! temp54Size,__temp52, ____temp52Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //complexes ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b=[1-3*%i 2+%i 3+2*%i; 4 5+4*%i 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp55 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp56 = d0z0OpMinusz0(1,__temp55); ! +! ! +! __temp57 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp56,__temp57,__temp58); ! +! ! +! __temp59 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp60 = d0z0OpPlusz0(3,__temp59); ! +! ! +! z2z0OpRcz2(__temp58, ____temp58Size,__temp60,__temp61); ! +! ! +! __temp62 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp63 = d0z0OpPlusz0(5,__temp62); ! +! ! +! d0z0OpRcz2(4,__temp63,__temp64); ! +! ! +! z2d0OpRcz2(__temp64, ____temp64Size,6,__temp65); ! +! ! +! z2z2OpCcz2(__temp61, ____temp61Size,__temp65, ____temp65Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(3)=-2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0d0OpIns(b, __bSize,3,-2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans21 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(3)=-4+%i ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp66 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! z2d0z0OpIns(b, __bSize,3,__temp66); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(1,3)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0d0d0OpIns(b, __bSize,1,3,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans23 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(1,3)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp67 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z2d0d0z0OpIns(b, __bSize,1,3,__temp67); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans24 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],1)=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp68); ! +! ! +! z2d2d0d0OpIns(b, __bSize,__temp68, ____temp68Size,1,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],1)=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp69 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp70); ! +! ! +! z2d2d0z0OpIns(b, __bSize,__temp70, ____temp70Size,1,__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[2,3])=-12; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,3,__temp71); ! +! ! +! z2d0d2d0OpIns(b, __bSize,2,__temp71, ____temp71Size,-12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[2,3])=-5+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp72 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(2,3,__temp73); ! +! ! +! z2d0d2z0OpIns(b, __bSize,2,__temp73, ____temp73Size,__temp72); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1 2],[1,2,3])=4; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp74); ! +! ! +! d0d0OpRcd2(1,2,__temp75); ! +! ! +! d2d0OpRcd2(__temp75, ____temp75Size,3,__temp76); ! +! ! +! z2d2d2d0OpIns(b, __bSize,__temp74, ____temp74Size,__temp76, ____! +! temp76Size,4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans29 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1 2],[1,2,3])=3+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp77 = d0z0OpPlusz0(3,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,2,__temp78); ! +! ! +! d0d0OpRcd2(1,2,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,3,__temp80); ! +! ! +! z2d2d2z0OpIns(b, __bSize,__temp78, ____temp78Size,__temp80, ____! +! temp80Size,__temp77); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=7; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,3,__temp81); ! +! ! +! z2d2d0OpIns(b, __bSize,__temp81, ____temp81Size,7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans31 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=2+%i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp82 = d0z0OpPlusz0(2,DoubleComplex(0,1)); ! +! ! +! d0d0OpRcd2(1,3,__temp83); ! +! ! +! z2d2z0OpIns(b, __bSize,__temp83, ____temp83Size,__temp82); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=[1,0]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,0,__temp84); ! +! ! +! d0d0OpRcd2(1,3,__temp85); ! +! ! +! z2d2d2OpIns(b, __bSize,__temp85, ____temp85Size,__temp84, ____te! +! mp84Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans33 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,3])=[3-%i,1+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp86 = d0z0OpMinusz0(3,DoubleComplex(0,1)); ! +! ! +! __temp87 = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp86,__temp87,__temp88); ! +! ! +! d0d0OpRcd2(1,3,__temp89); ! +! ! +! z2d2z2OpIns(b, __bSize,__temp89, ____temp89Size,__temp88, ____te! +! mp88Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans34 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[1,3])=[-2,-7]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-2,-7,__temp90); ! +! ! +! d0d0OpRcd2(1,3,__temp91); ! +! ! +! z2d0d2d2OpIns(b, __bSize,2,__temp91, ____temp91Size,__temp90, __! +! __temp90Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans35 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b(2,[1,3])=[-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp92 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp93 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp92,__temp93,__temp94); ! +! ! +! d0d0OpRcd2(1,3,__temp95); ! +! ! +! z2d0d2z2OpIns(b, __bSize,2,__temp95, ____temp95Size,__temp94, __! +! __temp94Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans36 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],3)=[-9;-1]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpCcd2(-9,-1,__temp96); ! +! ! +! d0d0OpRcd2(1,2,__temp97); ! +! ! +! z2d2d0d2OpIns(b, __bSize,__temp97, ____temp97Size,3,__temp96, __! +! __temp96Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans37 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],3)=[-4+%i;-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp98 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp99 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpCcz2(__temp98,__temp99,__temp100); ! +! ! +! d0d0OpRcd2(1,2,__temp101); ! +! ! +! z2d2d0z2OpIns(b, __bSize,__temp101, ____temp101Size,3,__temp100, ! +! ____temp100Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans38 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],[2,3])=[-31 -45;-29 -51]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-31,-45,__temp102); ! +! ! +! d0d0OpRcd2(-29,-51,__temp103); ! +! ! +! d2d2OpCcd2(__temp102, ____temp102Size,__temp103, ____temp103Size,! +! __temp104); ! +! ! +! d0d0OpRcd2(1,2,__temp105); ! +! ! +! d0d0OpRcd2(2,3,__temp106); ! +! ! +! z2d2d2d2OpIns(b, __bSize,__temp105, ____temp105Size,__temp106, _! +! ___temp106Size,__temp104, ____temp104Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans39 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b([1,2],[2,3])=[-4+%i,-5+%i;-4+%i,-5+%i]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp107 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp108 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp107,__temp108,__temp109); ! +! ! +! __temp110 = d0z0OpPlusz0(-4,DoubleComplex(0,1)); ! +! ! +! __temp111 = d0z0OpPlusz0(-5,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp110,__temp111,__temp112); ! +! ! +! z2z2OpCcz2(__temp109, ____temp109Size,__temp112, ____temp112Size,! +! __temp113); ! +! ! +! d0d0OpRcd2(1,2,__temp114); ! +! ! +! d0d0OpRcd2(2,3,__temp115); ! +! ! +! z2d2d2z2OpIns(b, __bSize,__temp114, ____temp114Size,__temp115, _! +! ___temp115Size,__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans40 = z2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpIns.sci.tst b/tests/unit_tests/double/test_OpIns.sci.tst new file mode 100644 index 0000000..3eaa5ae --- /dev/null +++ b/tests/unit_tests/double/test_OpIns.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpIns.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogAnd.sci b/tests/unit_tests/double/test_OpLogAnd.sci new file mode 100644 index 0000000..e7648c6 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogAnd.sci @@ -0,0 +1,29 @@ +function test_OpLogAnd() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0&d0) + disp(z0&z0) + disp(d2&d0) + disp(z2&z0) + + disp(d0&d2) + disp(z0&z2) + + disp(d2&d2) + disp(z2&z2) + + disp(d2&z0) + disp(z2&d0) + + disp(d0&z2) + disp(z0&d2) + + disp(d0&z0) + disp(z0&d0) + + disp(d2&z2) + disp(z2&d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogAnd.sci.dia.ref b/tests/unit_tests/double/test_OpLogAnd.sci.dia.ref new file mode 100644 index 0000000..89e2952 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogAnd.sci.dia.ref @@ -0,0 +1,1203 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogAnd.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + T + + T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T + + T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogAnd" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogAnd/test_OpLogAnd_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogAnd/test_OpLogAnd_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0&d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0&z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2&d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2&z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0&d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0&z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2&d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2&z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2&z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2&d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0&z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0&d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0&z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0&d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2&z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2&d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogAnd() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp29; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp30; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0&d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogAndd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0&z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpLogAndd0(z0,z0); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2&d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogAndd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2&z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpLogAndd2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0&d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogAndd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0&z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpLogAndd2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2&d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogAndd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2&z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpLogAndd2(z2, __z2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2&z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpLogAndd2(d2, __d2Size,z0,__temp25); ! +! ! +! ans9 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2&d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpLogAndd2(z2, __z2Size,d0,__temp26); ! +! ! +! ans10 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0&z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpLogAndd2(d0,z2, __z2Size,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0&d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpLogAndd2(z0,d2, __d2Size,__temp28); ! +! ! +! ans12 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0&z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp29 = d0z0OpLogAndd0(d0,z0); ! +! ! +! ans13 = d0dispd0(__temp29); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0&d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z0d0OpLogAndd0(z0,d0); ! +! ! +! ans14 = d0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2&z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpLogAndd2(d2, __d2Size,z2, __z2Size,__temp31); ! +! ! +! ans15 = d2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2&d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpLogAndd2(z2, __z2Size,d2, __d2Size,__temp32); ! +! ! +! ans16 = d2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogAnd.sci.tst b/tests/unit_tests/double/test_OpLogAnd.sci.tst new file mode 100644 index 0000000..f74e410 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogAnd.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogAnd.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogEq.sci b/tests/unit_tests/double/test_OpLogEq.sci new file mode 100644 index 0000000..f42ecbe --- /dev/null +++ b/tests/unit_tests/double/test_OpLogEq.sci @@ -0,0 +1,33 @@ +function test_OpLogEq() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + g0 = 'A' + g2 = "foo" + + //disp(g0==g0) // ! Unable to manage this case ! + + disp(d0==d0) + disp(z0==z0) + disp(d2==d0) + disp(z2==z0) + + disp(d0==d2) + disp(z0==z2) + + disp(d2==d2) + disp(z2==z2) + + disp(d2==z0) + disp(z2==d0) + + disp(d0==z2) + disp(z0==d2) + + disp(d0==z0) + disp(z0==d0) + + disp(d2==z2) + disp(z2==d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogEq.sci.dia.ref b/tests/unit_tests/double/test_OpLogEq.sci.dia.ref new file mode 100644 index 0000000..6b7b1df --- /dev/null +++ b/tests/unit_tests/double/test_OpLogEq.sci.dia.ref @@ -0,0 +1,1303 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogEq.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + T + + T + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + F + + F + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogEq" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogEq/test_OpLogEq_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogEq/test_OpLogEq_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g0 = 'A' + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g2 = "foo" + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(g0==g0) // ! Unable to manage this case ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0==d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0==z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2==d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2==z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0==d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0==z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2==d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2==z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2==z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2==d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0==z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0==d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0==z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0==d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2==z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2==d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogEq() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! char __temp17[1*2] = {"A"}; ! +! ! +! int ____temp17Size[2] = {1,2}; ! +! ! +! ! +! ! +! char g0[1*2] = {"A"}; ! +! ! +! int __g0Size[2] = {1,2}; ! +! ! +! ! +! ! +! char __temp18[1*4] = {"foo"}; ! +! ! +! int ____temp18Size[2] = {1,4}; ! +! ! +! ! +! ! +! char g2[1*4] = {"foo"}; ! +! ! +! int __g2Size[2] = {1,4}; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp20; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp31; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp32; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp33[4 * 4]; ! +! ! +! int ____temp33Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp34[4 * 4]; ! +! ! +! int ____temp34Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g0 = 'A' ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp17, ____temp17Size,g0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g2 = "foo" ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp18, ____temp18Size,g2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(g0==g0) // ! Unable to manage this case ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0==d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0d0OpLogEqd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0==z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z0z0OpLogEqd0(z0,z0); ! +! ! +! ans2 = d0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2==d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogEqd2(d2, __d2Size,d0,__temp21); ! +! ! +! ans3 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2==z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpLogEqd2(z2, __z2Size,z0,__temp22); ! +! ! +! ans4 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0==d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogEqd2(d0,d2, __d2Size,__temp23); ! +! ! +! ans5 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0==z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpLogEqd2(z0,z2, __z2Size,__temp24); ! +! ! +! ans6 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2==d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogEqd2(d2, __d2Size,d2, __d2Size,__temp25); ! +! ! +! ans7 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2==z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpLogEqd2(z2, __z2Size,z2, __z2Size,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2==z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpLogEqd2(d2, __d2Size,z0,__temp27); ! +! ! +! ans9 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2==d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpLogEqd2(z2, __z2Size,d0,__temp28); ! +! ! +! ans10 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0==z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpLogEqd2(d0,z2, __z2Size,__temp29); ! +! ! +! ans11 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0==d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpLogEqd2(z0,d2, __d2Size,__temp30); ! +! ! +! ans12 = d2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0==z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp31 = d0z0OpLogEqd0(d0,z0); ! +! ! +! ans13 = d0dispd0(__temp31); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0==d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp32 = z0d0OpLogEqd0(z0,d0); ! +! ! +! ans14 = d0dispd0(__temp32); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2==z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpLogEqd2(d2, __d2Size,z2, __z2Size,__temp33); ! +! ! +! ans15 = d2dispd0(__temp33, ____temp33Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2==d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpLogEqd2(z2, __z2Size,d2, __d2Size,__temp34); ! +! ! +! ans16 = d2dispd0(__temp34, ____temp34Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogEq.sci.tst b/tests/unit_tests/double/test_OpLogEq.sci.tst new file mode 100644 index 0000000..ac0081f --- /dev/null +++ b/tests/unit_tests/double/test_OpLogEq.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogEq.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogGe.sci b/tests/unit_tests/double/test_OpLogGe.sci new file mode 100644 index 0000000..01c9b78 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGe.sci @@ -0,0 +1,29 @@ +function test_OpLogGe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>=d0) + //disp(z0>=z0) + disp(d2>=d0) + //disp(z2>=z0) + + disp(d0>=d2) + //disp(z0>=z2) + + disp(d2>=d2) + //disp(z2>=z2) + + //disp(d2>=z0) + //disp(z2>=d0) + + //disp(d0>=z2) + //disp(z0>=d2) + + //disp(d0>=z0) + //disp(z0>=d0) + + //disp(d2>=z2) + //disp(z2>=d2) + endfunction diff --git a/tests/unit_tests/double/test_OpLogGe.sci.dia.ref b/tests/unit_tests/double/test_OpLogGe.sci.dia.ref new file mode 100644 index 0000000..edc8bc3 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGe.sci.dia.ref @@ -0,0 +1,990 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogGe.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + T + + F F F T + T T T T + T T T T + T T T T + + T T T F + F F F F + F F F F + F F F F + + T T T T + T T T T + T T T T + T T T T + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogGe" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogGe/test_OpLogGe_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogGe/test_OpLogGe_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0>=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2>=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0>=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2>=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2>=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0>=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0>=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2>=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogGe() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0>=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogGed0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2>=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogGed2(d2, __d2Size,d0,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0>=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogGed2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2>=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogGed2(d2, __d2Size,d2, __d2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2>=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0>=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0>=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2>=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogGe.sci.tst b/tests/unit_tests/double/test_OpLogGe.sci.tst new file mode 100644 index 0000000..42d2cb3 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGe.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogGe.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogGt.sci b/tests/unit_tests/double/test_OpLogGt.sci new file mode 100644 index 0000000..168f090 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGt.sci @@ -0,0 +1,30 @@ +function test_OpLogGt() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0>d0) + //disp(z0>z0) + disp(d2>d0) + //disp(z2>z0) + + disp(d0>d2) + //disp(z0>z2) + + disp(d2>d2) + //disp(z2>z2) + + //disp(d2>z0) + //disp(z2>d0) + + //disp(d0>z2) + //disp(z0>d2) + + //disp(d0>z0) + //disp(z0>d0) + + //disp(d2>z2) + //disp(z2>d2) + +endfunction diff --git a/tests/unit_tests/double/test_OpLogGt.sci.dia.ref b/tests/unit_tests/double/test_OpLogGt.sci.dia.ref new file mode 100644 index 0000000..e156418 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGt.sci.dia.ref @@ -0,0 +1,1008 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogGt.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + F + + F F F T + T T T T + T T T T + T T T T + + T T T F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogGt" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogGt/test_OpLogGt_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogGt/test_OpLogGt_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogGt() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogGtd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogGtd2(d2, __d2Size,d0,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogGtd2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogGtd2(d2, __d2Size,d2, __d2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogGt.sci.tst b/tests/unit_tests/double/test_OpLogGt.sci.tst new file mode 100644 index 0000000..d6a45a6 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogGt.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogGt.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogLe.sci b/tests/unit_tests/double/test_OpLogLe.sci new file mode 100644 index 0000000..18bd3cf --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLe.sci @@ -0,0 +1,29 @@ +function test_OpLogLe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0<=d0) + //disp(z0<=z0) + disp(d2<=d0) + //disp(z2<=z0) + + disp(d0<=d2) + //disp(z0<=z2) + + disp(d2<=d2) + //disp(z2<=z2) + + //disp(d2<=z0) + //disp(z2<=d0) + + //disp(d0<=z2) + //disp(z0<=d2) + + //disp(d0<=z0) + //disp(z0<=d0) + + //disp(d2<=z2) + //disp(z2<=d2) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogLe.sci.dia.ref b/tests/unit_tests/double/test_OpLogLe.sci.dia.ref new file mode 100644 index 0000000..fb151a2 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLe.sci.dia.ref @@ -0,0 +1,990 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogLe.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + T + + T T T F + F F F F + F F F F + F F F F + + F F F T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogLe" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogLe/test_OpLogLe_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogLe/test_OpLogLe_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2<=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0<=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0<=z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<=d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2<=z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<=d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogLe() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogLed0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogLed2(d2, __d2Size,d0,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogLed2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogLed2(d2, __d2Size,d2, __d2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2<=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0<=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0<=z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<=d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2<=z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<=d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogLe.sci.tst b/tests/unit_tests/double/test_OpLogLe.sci.tst new file mode 100644 index 0000000..9c761e9 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLe.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogLe.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogLt.sci b/tests/unit_tests/double/test_OpLogLt.sci new file mode 100644 index 0000000..5e1a5e3 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLt.sci @@ -0,0 +1,29 @@ +function test_OpLogLt() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0<d0) + //disp(z0<z0) + disp(d2<d0) + //disp(z2<z0) + + disp(d0<d2) + //disp(z0<z2) + + disp(d2<d2) + //disp(z2<z2) + + //disp(d2<z0) + //disp(z2<d0) + + //disp(d0<z2) + //disp(z0<d2) + + //disp(d0<z0) + //disp(z0<d0) + + //disp(d2<z2) + //disp(z2<d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogLt.sci.dia.ref b/tests/unit_tests/double/test_OpLogLt.sci.dia.ref new file mode 100644 index 0000000..fda1467 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLt.sci.dia.ref @@ -0,0 +1,990 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogLt.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + F + + T T T F + F F F F + F F F F + F F F F + + F F F T + T T T T + T T T T + T T T T + + F F F F + F F F F + F F F F + F F F F + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogLt" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogLt/test_OpLogLt_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogLt/test_OpLogLt_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2<z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0<z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d0<z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z0<d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2<z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2<d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogLt() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogLtd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogLtd2(d2, __d2Size,d0,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogLtd2(d0,d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogLtd2(d2, __d2Size,d2, __d2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2<z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0<z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d0<z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z0<d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2<z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2<d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogLt.sci.tst b/tests/unit_tests/double/test_OpLogLt.sci.tst new file mode 100644 index 0000000..89cc9ee --- /dev/null +++ b/tests/unit_tests/double/test_OpLogLt.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogLt.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogNe.sci b/tests/unit_tests/double/test_OpLogNe.sci new file mode 100644 index 0000000..393e1ed --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNe.sci @@ -0,0 +1,33 @@ +function test_OpLogNe() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + g0 = 'A' + g2 = "foo" + + //disp(g0<>g0) + + disp(d0<>d0) + disp(z0<>z0) + disp(d2<>d0) + disp(z2<>z0) + + disp(d0<>d2) + disp(z0<>z2) + + disp(d2<>d2) + disp(z2<>z2) + + disp(d2<>z0) + disp(z2<>d0) + + disp(d0<>z2) + disp(z0<>d2) + + disp(d0<>z0) + disp(z0<>d0) + + disp(d2<>z2) + disp(z2<>d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogNe.sci.dia.ref b/tests/unit_tests/double/test_OpLogNe.sci.dia.ref new file mode 100644 index 0000000..d0ba8e2 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNe.sci.dia.ref @@ -0,0 +1,1303 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogNe.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + F + + F + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + F F F F + F F F F + F F F F + F F F F + + F F F F + F F F F + F F F F + F F F F + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T + + T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogNe" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNe/test_OpLogNe_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNe/test_OpLogNe_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g0 = 'A' + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g2 = "foo" + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(g0<>g0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0<>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2<>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0<>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2<>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2<>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0<>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0<>z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0<>d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2<>z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2<>d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogNe() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! char __temp17[1*2] = {"A"}; ! +! ! +! int ____temp17Size[2] = {1,2}; ! +! ! +! ! +! ! +! char g0[1*2] = {"A"}; ! +! ! +! int __g0Size[2] = {1,2}; ! +! ! +! ! +! ! +! char __temp18[1*4] = {"foo"}; ! +! ! +! int ____temp18Size[2] = {1,4}; ! +! ! +! ! +! ! +! char g2[1*4] = {"foo"}; ! +! ! +! int __g2Size[2] = {1,4}; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp20; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp31; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp32; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp33[4 * 4]; ! +! ! +! int ____temp33Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp34[4 * 4]; ! +! ! +! int ____temp34Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g0 = 'A' ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp17, ____temp17Size,g0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g2 = "foo" ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! g2OpEqualg2(__temp18, ____temp18Size,g2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(g0<>g0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0d0OpLogNed0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0<>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z0z0OpLogNed0(z0,z0); ! +! ! +! ans2 = d0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogNed2(d2, __d2Size,d0,__temp21); ! +! ! +! ans3 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2<>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpLogNed2(z2, __z2Size,z0,__temp22); ! +! ! +! ans4 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogNed2(d0,d2, __d2Size,__temp23); ! +! ! +! ans5 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0<>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpLogNed2(z0,z2, __z2Size,__temp24); ! +! ! +! ans6 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogNed2(d2, __d2Size,d2, __d2Size,__temp25); ! +! ! +! ans7 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2<>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpLogNed2(z2, __z2Size,z2, __z2Size,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpLogNed2(d2, __d2Size,z0,__temp27); ! +! ! +! ans9 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2<>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpLogNed2(z2, __z2Size,d0,__temp28); ! +! ! +! ans10 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpLogNed2(d0,z2, __z2Size,__temp29); ! +! ! +! ans11 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0<>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpLogNed2(z0,d2, __d2Size,__temp30); ! +! ! +! ans12 = d2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0<>z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp31 = d0z0OpLogNed0(d0,z0); ! +! ! +! ans13 = d0dispd0(__temp31); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0<>d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp32 = z0d0OpLogNed0(z0,d0); ! +! ! +! ans14 = d0dispd0(__temp32); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2<>z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpLogNed2(d2, __d2Size,z2, __z2Size,__temp33); ! +! ! +! ans15 = d2dispd0(__temp33, ____temp33Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2<>d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpLogNed2(z2, __z2Size,d2, __d2Size,__temp34); ! +! ! +! ans16 = d2dispd0(__temp34, ____temp34Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogNe.sci.tst b/tests/unit_tests/double/test_OpLogNe.sci.tst new file mode 100644 index 0000000..05bdfd2 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNe.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogNe.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogNot.sci b/tests/unit_tests/double/test_OpLogNot.sci new file mode 100644 index 0000000..70ef496 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNot.sci @@ -0,0 +1,23 @@ +function test_OpLogNot() +// test OpLogNot + + disp(~(-2)) + disp(~(0)) + disp(~(3)) + + disp(~(0-2*%i)) + disp(~(0+0*%i)) + disp(~(0+3*%i)) + disp(~(3-5*%i)) + disp(~(3+0*%i)) + disp(~(3+6*%i)) + + a=[-1 2 3; 0 -1 4; 2 -0 5]; + + disp(~(a)) + + b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0*%i] + + disp(~(b)) + +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogNot.sci.dia.ref b/tests/unit_tests/double/test_OpLogNot.sci.dia.ref new file mode 100644 index 0000000..4a8ab13 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNot.sci.dia.ref @@ -0,0 +1,1105 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogNot.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + F + + T + + F + + T + + T + + T + + F + + F + + F + + F F F + T F F + F T F + + T F F + T F F + T F F + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogNot" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogNot/test_OpLogNot_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: // test OpLogNot + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(-2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(3)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(0-2*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(0+0*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(0+3*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(3-5*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(3+0*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(3+6*%i)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a=[-1 2 3; 0 -1 4; 2 -0 5]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(a)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0 + *%i] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(~(b)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogNot() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp2; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp3; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp7; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! doubleComplex __temp9; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp10; ! +! ! +! ! +! ! +! doubleComplex __temp11; ! +! ! +! ! +! ! +! doubleComplex __temp12; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp13; ! +! ! +! ! +! ! +! doubleComplex __temp14; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp16; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! doubleComplex __temp21; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp23[1 * 3]; ! +! ! +! int ____temp23Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp26[2 * 3]; ! +! ! +! int ____temp26Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 3]; ! +! ! +! int ____temp28Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[3 * 3]; ! +! ! +! int __aSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp29[3 * 3]; ! +! ! +! int ____temp29Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp30; ! +! ! +! ! +! ! +! doubleComplex __temp31; ! +! ! +! ! +! ! +! doubleComplex __temp32; ! +! ! +! ! +! ! +! doubleComplex __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp34[1 * 3]; ! +! ! +! int ____temp34Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp35; ! +! ! +! ! +! ! +! doubleComplex __temp36; ! +! ! +! ! +! ! +! doubleComplex __temp37; ! +! ! +! ! +! ! +! doubleComplex __temp38; ! +! ! +! ! +! ! +! doubleComplex __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp40; ! +! ! +! ! +! ! +! doubleComplex __temp41[1 * 3]; ! +! ! +! int ____temp41Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp42[2 * 3]; ! +! ! +! int ____temp42Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp43; ! +! ! +! ! +! ! +! doubleComplex __temp44; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! doubleComplex __temp46; ! +! ! +! ! +! ! +! doubleComplex __temp47[1 * 2]; ! +! ! +! int ____temp47Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp48; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50[1 * 3]; ! +! ! +! int ____temp50Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex b[3 * 3]; ! +! ! +! int __bSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp51[3 * 3]; ! +! ! +! int ____temp51Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // test OpLogNot ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(-2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0OpLogNotd0(-2); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = d0OpLogNotd0(0); ! +! ! +! ans2 = d0dispd0(__temp2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(3)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp3 = d0OpLogNotd0(3); ! +! ! +! ans3 = d0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(0-2*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp5 = d0z0OpMinusz0(0,__temp4); ! +! ! +! __temp6 = z0OpLogNotz0(__temp5); ! +! ! +! ans4 = z0dispd0(__temp6); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(0+0*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp7 = d0z0OpStarz0(0,DoubleComplex(0,1)); ! +! ! +! __temp8 = d0z0OpPlusz0(0,__temp7); ! +! ! +! __temp9 = z0OpLogNotz0(__temp8); ! +! ! +! ans5 = z0dispd0(__temp9); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(0+3*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp10 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp11 = d0z0OpPlusz0(0,__temp10); ! +! ! +! __temp12 = z0OpLogNotz0(__temp11); ! +! ! +! ans6 = z0dispd0(__temp12); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(3-5*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp13 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp14 = d0z0OpMinusz0(3,__temp13); ! +! ! +! __temp15 = z0OpLogNotz0(__temp14); ! +! ! +! ans7 = z0dispd0(__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(3+0*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp16 = d0z0OpStarz0(0,DoubleComplex(0,1)); ! +! ! +! __temp17 = d0z0OpPlusz0(3,__temp16); ! +! ! +! __temp18 = z0OpLogNotz0(__temp17); ! +! ! +! ans8 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(3+6*%i)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp20 = d0z0OpPlusz0(3,__temp19); ! +! ! +! __temp21 = z0OpLogNotz0(__temp20); ! +! ! +! ans9 = z0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a=[-1 2 3; 0 -1 4; 2 -0 5]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(-1,2,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,3,__temp23); ! +! ! +! d0d0OpRcd2(0,-1,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,4,__temp25); ! +! ! +! d2d2OpCcd2(__temp23, ____temp23Size,__temp25, ____temp25Size,__te! +! mp26); ! +! ! +! d0d0OpRcd2(2,-0,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,5,__temp28); ! +! ! +! d2d2OpCcd2(__temp26, ____temp26Size,__temp28, ____temp28Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(a)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2OpLogNotd2(a, __aSize,__temp29); ! +! ! +! ans10 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b=[0+3*%i 2-%i 1 ; 0-2*%i 2+2*%i 1-%i; 0+0*%i 4+0*%i 5-0! +! *%i] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp31 = d0z0OpPlusz0(0,__temp30); ! +! ! +! __temp32 = d0z0OpMinusz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp31,__temp32,__temp33); ! +! ! +! z2d0OpRcz2(__temp33, ____temp33Size,1,__temp34); ! +! ! +! __temp35 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp36 = d0z0OpMinusz0(0,__temp35); ! +! ! +! __temp37 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! __temp38 = d0z0OpPlusz0(2,__temp37); ! +! ! +! z0z0OpRcz2(__temp36,__temp38,__temp39); ! +! ! +! __temp40 = d0z0OpMinusz0(1,DoubleComplex(0,1)); ! +! ! +! z2z0OpRcz2(__temp39, ____temp39Size,__temp40,__temp41); ! +! ! +! z2z2OpCcz2(__temp34, ____temp34Size,__temp41, ____temp41Size,__te! +! mp42); ! +! ! +! __temp43 = d0z0OpStarz0(0,DoubleComplex(0,1)); ! +! ! +! __temp44 = d0z0OpPlusz0(0,__temp43); ! +! ! +! __temp45 = d0z0OpStarz0(0,DoubleComplex(0,1)); ! +! ! +! __temp46 = d0z0OpPlusz0(4,__temp45); ! +! ! +! z0z0OpRcz2(__temp44,__temp46,__temp47); ! +! ! +! __temp48 = d0z0OpStarz0(0,DoubleComplex(0,1)); ! +! ! +! __temp49 = d0z0OpMinusz0(5,__temp48); ! +! ! +! z2z0OpRcz2(__temp47, ____temp47Size,__temp49,__temp50); ! +! ! +! z2z2OpCcz2(__temp42, ____temp42Size,__temp50, ____temp50Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(~(b)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2OpLogNotz2(b, __bSize,__temp51); ! +! ! +! ans11 = z2dispd0(__temp51, ____temp51Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogNot.sci.tst b/tests/unit_tests/double/test_OpLogNot.sci.tst new file mode 100644 index 0000000..55a2ec2 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogNot.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogNot.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpLogOr.sci b/tests/unit_tests/double/test_OpLogOr.sci new file mode 100644 index 0000000..18416b7 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogOr.sci @@ -0,0 +1,29 @@ +function test_OpLogOr() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0|d0) + disp(z0|z0) + disp(d2|d0) + disp(z2|z0) + + disp(d0|d2) + disp(z0|z2) + + disp(d2|d2) + disp(z2|z2) + + disp(d2|z0) + disp(z2|d0) + + disp(d0|z2) + disp(z0|d2) + + disp(d0|z0) + disp(z0|d0) + + disp(d2|z2) + disp(z2|d2) +endfunction diff --git a/tests/unit_tests/double/test_OpLogOr.sci.dia.ref b/tests/unit_tests/double/test_OpLogOr.sci.dia.ref new file mode 100644 index 0000000..4e9dfc5 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogOr.sci.dia.ref @@ -0,0 +1,1203 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogOr.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + T + + T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + T + + T + + T T T T + T T T T + T T T T + T T T T + + T T T T + T T T T + T T T T + T T T T + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpLogOr" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogOr/test_OpLogOr_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpLogOr/test_OpLogOr_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0|d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0|z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2|d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2|z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0|d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0|z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2|d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2|z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2|z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2|d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0|z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0|d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0|z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0|d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2|z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2|d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpLogOr() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp29; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp30; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0|d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpLogOrd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0|z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpLogOrd0(z0,z0); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2|d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpLogOrd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2|z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpLogOrd2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0|d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpLogOrd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0|z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpLogOrd2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2|d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpLogOrd2(d2, __d2Size,d2, __d2Size,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2|z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpLogOrd2(z2, __z2Size,z2, __z2Size,__temp24); ! +! ! +! ans8 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2|z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpLogOrd2(d2, __d2Size,z0,__temp25); ! +! ! +! ans9 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2|d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpLogOrd2(z2, __z2Size,d0,__temp26); ! +! ! +! ans10 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0|z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpLogOrd2(d0,z2, __z2Size,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0|d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpLogOrd2(z0,d2, __d2Size,__temp28); ! +! ! +! ans12 = d2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0|z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp29 = d0z0OpLogOrd0(d0,z0); ! +! ! +! ans13 = d0dispd0(__temp29); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0|d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp30 = z0d0OpLogOrd0(z0,d0); ! +! ! +! ans14 = d0dispd0(__temp30); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2|z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpLogOrd2(d2, __d2Size,z2, __z2Size,__temp31); ! +! ! +! ans15 = d2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2|d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpLogOrd2(z2, __z2Size,d2, __d2Size,__temp32); ! +! ! +! ans16 = d2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpLogOr.sci.tst b/tests/unit_tests/double/test_OpLogOr.sci.tst new file mode 100644 index 0000000..ce483b0 --- /dev/null +++ b/tests/unit_tests/double/test_OpLogOr.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpLogOr.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpMinus.sci b/tests/unit_tests/double/test_OpMinus.sci new file mode 100644 index 0000000..f196980 --- /dev/null +++ b/tests/unit_tests/double/test_OpMinus.sci @@ -0,0 +1,45 @@ +function test_OpMinus() + a = 1; + b = 2; + c = a - b; // d0d0OpMinusd0 + disp(c); + + d = 1 - %i; // d0z0OpMinusz0 + e = %i - 3; // z0d0OpMinusz0 + f = d - e; // z0z0OpMinusz0 + + disp(f); + + g = [1 2 3; 4 5 6]; + h = 10; + w = g - h; // d2d0OpMinusd2 + j = h - g; // d0d2OpMinusd2 + + disp(j); + + k = [9 8 7; 6 5 4; 3 2 1] + l = [1 2 3; 4 5 6; 7 8 9] + m = k - l // d2d2OpMinusd2 + + disp(m); + n = k - 2 * %i; //d2z0OpMinusz2 + o = 3 * %i - l; //z0d2OpMinusz2 + p = n - o; // z2z2OpMinusz2 + + disp(p); + q = [1 2 3 ; 4 5 6 ; 7 8 9] + r = %pi * %i; + s = q - r; // d2z0OpMinusz2 + t = r - q; // z0d2OpMinusz2 + + disp(s); + disp(t); + u = [1 2 3] - %i * [4 5 6] + v = [7 8 9] + x = u - v; // z2d2OpMinusz2 + y = v - u; // d2z2OpMinusz2 + + disp(x); + + disp(y); +endfunction diff --git a/tests/unit_tests/double/test_OpMinus.sci.dia.ref b/tests/unit_tests/double/test_OpMinus.sci.dia.ref new file mode 100644 index 0000000..16d5038 --- /dev/null +++ b/tests/unit_tests/double/test_OpMinus.sci.dia.ref @@ -0,0 +1,1573 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpMinus.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + - 1. + + 4. - 2.i + + 9. 8. 7. + 6. 5. 4. + + 8. 6. 4. + 2. 0. - 2. + - 4. - 6. - 8. + + 10. - 5.i 10. - 5.i 10. - 5.i + 10. - 5.i 10. - 5.i 10. - 5.i + 10. - 5.i 10. - 5.i 10. - 5.i + + 1. - 3.1415927i 2. - 3.1415927i 3. - 3.1415927i + 4. - 3.1415927i 5. - 3.1415927i 6. - 3.1415927i + 7. - 3.1415927i 8. - 3.1415927i 9. - 3.1415927i + + - 1. + 3.1415927i - 2. + 3.1415927i - 3. + 3.1415927i + - 4. + 3.1415927i - 5. + 3.1415927i - 6. + 3.1415927i + - 7. + 3.1415927i - 8. + 3.1415927i - 9. + 3.1415927i + + - 6. - 4.i - 6. - 5.i - 6. - 6.i + + 6. + 4.i 6. + 5.i 6. + 6.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpMinus" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpMinus/test_OpMinus_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpMinus/test_OpMinus_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = 1; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = 2; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = a - b; // d0d0OpMinusd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(c); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = 1 - %i; // d0z0OpMinusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %i - 3; // z0d0OpMinusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = d - e; // z0z0OpMinusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(f); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = 10; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: w = g - h; // d2d0OpMinusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = h - g; // d0d2OpMinusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [9 8 7; 6 5 4; 3 2 1] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [1 2 3; 4 5 6; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = k - l // d2d2OpMinusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(m); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = k - 2 * %i; //d2z0OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = 3 * %i - l; //z0d2OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = n - o; // z2z2OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: r = %pi * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: s = q - r; // d2z0OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: t = r - q; // z0d2OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(s); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(t); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: u = [1 2 3] - %i * [4 5 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: v = [7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: x = u - v; // z2d2OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: y = v - u; // d2z2OpMinusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(x); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(y); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpMinus() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double a = 1; ! +! ! +! ! +! ! +! double b = 2; ! +! ! +! ! +! ! +! double c; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex d; ! +! ! +! ! +! ! +! doubleComplex e; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double g[2 * 3]; ! +! ! +! int __gSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double h = 10; ! +! ! +! ! +! ! +! double w[2 * 3]; ! +! ! +! int __wSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double j[2 * 3]; ! +! ! +! int __jSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double k[3 * 3]; ! +! ! +! int __kSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[2 * 3]; ! +! ! +! int ____temp16Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double l[3 * 3]; ! +! ! +! int __lSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double m[3 * 3]; ! +! ! +! int __mSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! doubleComplex n[3 * 3]; ! +! ! +! int __nSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! doubleComplex o[3 * 3]; ! +! ! +! int __oSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex p[3 * 3]; ! +! ! +! int __pSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 3]; ! +! ! +! int ____temp24Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp25[2 * 3]; ! +! ! +! int ____temp25Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double q[3 * 3]; ! +! ! +! int __qSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex r; ! +! ! +! ! +! ! +! doubleComplex s[3 * 3]; ! +! ! +! int __sSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex t[3 * 3]; ! +! ! +! int __tSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp31[1 * 3]; ! +! ! +! int ____temp31Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp32[1 * 3]; ! +! ! +! int ____temp32Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex u[1 * 3]; ! +! ! +! int __uSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double v[1 * 3]; ! +! ! +! int __vSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex x[1 * 3]; ! +! ! +! int __xSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex y[1 * 3]; ! +! ! +! int __ySize[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = 1; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = 2; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0OpEquald0(2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = a - b; // d0d0OpMinusd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! c = d0d0OpMinusd0(a,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(c); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0dispd0(c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = 1 - %i; // d0z0OpMinusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d = d0z0OpMinusz0(1,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %i - 3; // z0d0OpMinusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = z0d0OpMinusz0(DoubleComplex(0,1),3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = d - e; // z0z0OpMinusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = z0z0OpMinusz0(d,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(f); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = z0dispd0(f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = 10; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! h = d0OpEquald0(10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: w = g - h; // d2d0OpMinusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpMinusd2(g, __gSize,h,w); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = h - g; // d0d2OpMinusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpMinusd2(h,g, __gSize,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(j, __jSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [9 8 7; 6 5 4; 3 2 1] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(9,8,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,7,__temp6); ! +! ! +! d0d0OpRcd2(6,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,4,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! d0d0OpRcd2(3,2,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,1,__temp11); ! +! ! +! d2d2OpCcd2(__temp9, ____temp9Size,__temp11, ____temp11Size,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [1 2 3; 4 5 6; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,3,__temp13); ! +! ! +! d0d0OpRcd2(4,5,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,6,__temp15); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp15, ____temp15Size,__te! +! mp16); ! +! ! +! d0d0OpRcd2(7,8,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,9,__temp18); ! +! ! +! d2d2OpCcd2(__temp16, ____temp16Size,__temp18, ____temp18Size,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = k - l // d2d2OpMinusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpMinusd2(k, __kSize,l, __lSize,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(m); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(m, __mSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = k - 2 * %i; //d2z0OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! d2z0OpMinusz2(k, __kSize,__temp19,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = 3 * %i - l; //z0d2OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z0d2OpMinusz2(__temp20,l, __lSize,o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = n - o; // z2z2OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpMinusz2(n, __nSize,o, __oSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = z2dispd0(p, __pSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,3,__temp22); ! +! ! +! d0d0OpRcd2(4,5,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,6,__temp24); ! +! ! +! d2d2OpCcd2(__temp22, ____temp22Size,__temp24, ____temp24Size,__te! +! mp25); ! +! ! +! d0d0OpRcd2(7,8,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,9,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: r = %pi * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! r = d0z0OpStarz0(SCI2C_PI,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: s = q - r; // d2z0OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpMinusz2(q, __qSize,r,s); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: t = r - q; // z0d2OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpMinusz2(r,q, __qSize,t); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(s); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = z2dispd0(s, __sSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(t); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = z2dispd0(t, __tSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: u = [1 2 3] - %i * [4 5 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); ! +! ! +! d0d0OpRcd2(4,5,__temp30); ! +! ! +! d2d0OpRcd2(__temp30, ____temp30Size,6,__temp31); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp31, ____temp31Size,__temp32)! +! ; ! +! ! +! d2z2OpMinusz2(__temp29, ____temp29Size,__temp32, ____temp32Size,u! +! ); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: v = [7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,9,v); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: x = u - v; // z2d2OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpMinusz2(u, __uSize,v, __vSize,x); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: y = v - u; // d2z2OpMinusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpMinusz2(v, __vSize,u, __uSize,y); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(x); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = z2dispd0(x, __xSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(y); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = z2dispd0(y, __ySize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpMinus.sci.tst b/tests/unit_tests/double/test_OpMinus.sci.tst new file mode 100644 index 0000000..324992e --- /dev/null +++ b/tests/unit_tests/double/test_OpMinus.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpMinus.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpPlus.sci b/tests/unit_tests/double/test_OpPlus.sci new file mode 100644 index 0000000..ccdba91 --- /dev/null +++ b/tests/unit_tests/double/test_OpPlus.sci @@ -0,0 +1,32 @@ +function test_OpPlus() + a = 1; + b = 2; + c = a + b; // d0d0OpPlusd0 + + d = 1 + %i; // d0z0OpPlusz0 + e = %i + 3; // z0d0OpPlusz0 + f = d + e; // z0z0OpPlusz0 + + g = [1 2 3; 4 5 6]; + h = 10; + w = g + h; // d2d0OpPlusd2 + j = h + g; // d0d2OpPlusd2 + + k = [9 8 7; 6 5 4; 3 2 1] + l = [1 2 3; 4 5 6; 7 8 9] + m = k + l // d2d2OpPlusd2 + + n = k + 2 * %i; //d2z0OpPlusz2 + o = 3 * %i + l; //z0d2OpPlusz2 + p = n + o; // z2z2OpPlusz2 + + q = [1 2 3 ; 4 5 6 ; 7 8 9] + r = 3 * %i; + s = q + r; // d2z0OpPlusz2 + t = r + q; // z0d2OpPlusz2 + + u = [1 2 3] + %i * [4 5 6] + v = [7 8 9] + x = u + v; // z2d2OpPlusz2 + y = v + u; // d2z2OpPlusz2 +endfunction diff --git a/tests/unit_tests/double/test_OpPlus.sci.dia.ref b/tests/unit_tests/double/test_OpPlus.sci.dia.ref new file mode 100644 index 0000000..f7447b8 --- /dev/null +++ b/tests/unit_tests/double/test_OpPlus.sci.dia.ref @@ -0,0 +1,1258 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpPlus.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpPlus" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpPlus/test_OpPlus_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = 1; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = 2; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = a + b; // d0d0OpPlusd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = 1 + %i; // d0z0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %i + 3; // z0d0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = d + e; // z0z0OpPlusz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [1 2 3; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = 10; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: w = g + h; // d2d0OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = h + g; // d0d2OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [9 8 7; 6 5 4; 3 2 1] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [1 2 3; 4 5 6; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = k + l // d2d2OpPlusd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = k + 2 * %i; //d2z0OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = 3 * %i + l; //z0d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = n + o; // z2z2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: r = 3 * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: s = q + r; // d2z0OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: t = r + q; // z0d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: u = [1 2 3] + %i * [4 5 6] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: v = [7 8 9] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: x = u + v; // z2d2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: y = v + u; // d2z2OpPlusz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpPlus() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double a = 1; ! +! ! +! ! +! ! +! double b = 2; ! +! ! +! ! +! ! +! double c; ! +! ! +! ! +! ! +! doubleComplex d; ! +! ! +! ! +! ! +! doubleComplex e; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double g[2 * 3]; ! +! ! +! int __gSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double h = 10; ! +! ! +! ! +! ! +! double w[2 * 3]; ! +! ! +! int __wSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double j[2 * 3]; ! +! ! +! int __jSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[2 * 3]; ! +! ! +! int ____temp9Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 2]; ! +! ! +! int ____temp10Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double k[3 * 3]; ! +! ! +! int __kSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[2 * 3]; ! +! ! +! int ____temp16Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp17[1 * 2]; ! +! ! +! int ____temp17Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp18[1 * 3]; ! +! ! +! int ____temp18Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double l[3 * 3]; ! +! ! +! int __lSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double m[3 * 3]; ! +! ! +! int __mSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! doubleComplex n[3 * 3]; ! +! ! +! int __nSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! doubleComplex o[3 * 3]; ! +! ! +! int __oSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex p[3 * 3]; ! +! ! +! int __pSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[1 * 2]; ! +! ! +! int ____temp23Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 3]; ! +! ! +! int ____temp24Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp25[2 * 3]; ! +! ! +! int ____temp25Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double q[3 * 3]; ! +! ! +! int __qSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex r; ! +! ! +! ! +! ! +! doubleComplex s[3 * 3]; ! +! ! +! int __sSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex t[3 * 3]; ! +! ! +! int __tSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp28[1 * 2]; ! +! ! +! int ____temp28Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp30[1 * 2]; ! +! ! +! int ____temp30Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp31[1 * 3]; ! +! ! +! int ____temp31Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp32[1 * 3]; ! +! ! +! int ____temp32Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex u[1 * 3]; ! +! ! +! int __uSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double v[1 * 3]; ! +! ! +! int __vSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex x[1 * 3]; ! +! ! +! int __xSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex y[1 * 3]; ! +! ! +! int __ySize[2] = {1, 3};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = 1; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! a = d0OpEquald0(1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = 2; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! b = d0OpEquald0(2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = a + b; // d0d0OpPlusd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! c = d0d0OpPlusd0(a,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = 1 + %i; // d0z0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d = d0z0OpPlusz0(1,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %i + 3; // z0d0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = z0d0OpPlusz0(DoubleComplex(0,1),3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = d + e; // z0z0OpPlusz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = z0z0OpPlusz0(d,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [1 2 3; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = 10; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! h = d0OpEquald0(10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: w = g + h; // d2d0OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpPlusd2(g, __gSize,h,w); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = h + g; // d0d2OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpPlusd2(h,g, __gSize,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [9 8 7; 6 5 4; 3 2 1] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(9,8,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,7,__temp6); ! +! ! +! d0d0OpRcd2(6,5,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,4,__temp8); ! +! ! +! d2d2OpCcd2(__temp6, ____temp6Size,__temp8, ____temp8Size,__temp9)! +! ; ! +! ! +! d0d0OpRcd2(3,2,__temp10); ! +! ! +! d2d0OpRcd2(__temp10, ____temp10Size,1,__temp11); ! +! ! +! d2d2OpCcd2(__temp9, ____temp9Size,__temp11, ____temp11Size,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [1 2 3; 4 5 6; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,3,__temp13); ! +! ! +! d0d0OpRcd2(4,5,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,6,__temp15); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp15, ____temp15Size,__te! +! mp16); ! +! ! +! d0d0OpRcd2(7,8,__temp17); ! +! ! +! d2d0OpRcd2(__temp17, ____temp17Size,9,__temp18); ! +! ! +! d2d2OpCcd2(__temp16, ____temp16Size,__temp18, ____temp18Size,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = k + l // d2d2OpPlusd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpPlusd2(k, __kSize,l, __lSize,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = k + 2 * %i; //d2z0OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! d2z0OpPlusz2(k, __kSize,__temp19,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = 3 * %i + l; //z0d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z0d2OpPlusz2(__temp20,l, __lSize,o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = n + o; // z2z2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpPlusz2(n, __nSize,o, __oSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [1 2 3 ; 4 5 6 ; 7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,3,__temp22); ! +! ! +! d0d0OpRcd2(4,5,__temp23); ! +! ! +! d2d0OpRcd2(__temp23, ____temp23Size,6,__temp24); ! +! ! +! d2d2OpCcd2(__temp22, ____temp22Size,__temp24, ____temp24Size,__te! +! mp25); ! +! ! +! d0d0OpRcd2(7,8,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,9,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: r = 3 * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! r = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: s = q + r; // d2z0OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpPlusz2(q, __qSize,r,s); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: t = r + q; // z0d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpPlusz2(r,q, __qSize,t); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: u = [1 2 3] + %i * [4 5 6] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); ! +! ! +! d0d0OpRcd2(4,5,__temp30); ! +! ! +! d2d0OpRcd2(__temp30, ____temp30Size,6,__temp31); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp31, ____temp31Size,__temp32)! +! ; ! +! ! +! d2z2OpPlusz2(__temp29, ____temp29Size,__temp32, ____temp32Size,u)! +! ; ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: v = [7 8 9] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(7,8,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,9,v); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: x = u + v; // z2d2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpPlusz2(u, __uSize,v, __vSize,x); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: y = v + u; // d2z2OpPlusz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(v, __vSize,u, __uSize,y); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpPlus.sci.tst b/tests/unit_tests/double/test_OpPlus.sci.tst new file mode 100644 index 0000000..cf0ddf3 --- /dev/null +++ b/tests/unit_tests/double/test_OpPlus.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpPlus.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpRc.sci b/tests/unit_tests/double/test_OpRc.sci new file mode 100644 index 0000000..5d264b7 --- /dev/null +++ b/tests/unit_tests/double/test_OpRc.sci @@ -0,0 +1,45 @@ + +function test_OpRc() + + a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 + b = [7 , a];// d0d2OpRcs2 + c = [a , 7];// d2d0OpRcs2 + d = [a , b];// d2d2OpRcs2 + disp(a); + disp(b); + disp(c); + disp(d); + + e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 + f = [7 , e];// z0z2OpRcz2 + g = [e , 7];// z2z0OpRcz2 + h = [e , f];// z2z2OpRcz2 + + disp(e); + disp(f); + disp(g); + disp(h); + + + i = [%i , 4.5]; // z0d0OpRcz2 + j = [4.5 , %i ]; // d0z0OpRcz2 + k = [4.5 , i ]; // d0z2OpRcz2 + l = [i , 4.5]; // z2d0OpRcz2 + + disp(i); + disp(j); + disp(k); + disp(l); + + m = [1 , 4.5]; + n = [%i , m ]; // z0d2OpRcz2 + o = [m , %i ]; // d0z2OpRcz2 + p = [m , n ]; // d2z2OpRcz2 + q = [n , m ]; // z2d2OpRcz2 + + disp(n); + disp(o); + disp(p); + disp(q); + +endfunction diff --git a/tests/unit_tests/double/test_OpRc.sci.dia.ref b/tests/unit_tests/double/test_OpRc.sci.dia.ref new file mode 100644 index 0000000..5aa38fc --- /dev/null +++ b/tests/unit_tests/double/test_OpRc.sci.dia.ref @@ -0,0 +1,1355 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpRc.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. 2. 3. 4. + + 7. 1. 2. 3. 4. + + 1. 2. 3. 4. 7. + + 1. 2. 3. 4. 7. 1. 2. 3. 4. + + i 2.i 3.i 4.i + + 7. i 2.i 3.i 4.i + + i 2.i 3.i 4.i 7. + + i 2.i 3.i 4.i 7. i 2.i 3.i 4.i + + i 4.5 + + 4.5 i + + 4.5 i 4.5 + + i 4.5 4.5 + + i 1. 4.5 + + 1. 4.5 i + + 1. 4.5 i 1. 4.5 + + i 1. 4.5 1. 4.5 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpRc" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpRc/test_OpRc_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpRc/test_OpRc_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [7 , a];// d0d2OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c = [a , 7];// d2d0OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [a , b];// d2d2OpRcs2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(a); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(b); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(c); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = [7 , e];// z0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = [e , 7];// z2z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = [e , f];// z2z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(e); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(f); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(g); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(h); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: i = [%i , 4.5]; // z0d0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j = [4.5 , %i ]; // d0z0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: k = [4.5 , i ]; // d0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: l = [i , 4.5]; // z2d0OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(i); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(j); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(k); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(l); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: m = [1 , 4.5]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: n = [%i , m ]; // z0d2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o = [m , %i ]; // d0z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: p = [m , n ]; // d2z2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: q = [n , m ]; // z2d2OpRcz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(n); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(o); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(p); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(q); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: ! +! ! +! SCI2C: function test_OpRc() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double b[1 * 5]; ! +! ! +! int __bSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double c[1 * 5]; ! +! ! +! int __cSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double d[1 * 9]; ! +! ! +! int __dSize[2] = {1, 9};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp6; ! +! ! +! ! +! ! +! doubleComplex __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! doubleComplex e[1 * 4]; ! +! ! +! int __eSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex f[1 * 5]; ! +! ! +! int __fSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex g[1 * 5]; ! +! ! +! int __gSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex h[1 * 9]; ! +! ! +! int __hSize[2] = {1, 9};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex i[1 * 2]; ! +! ! +! int __iSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex j[1 * 2]; ! +! ! +! int __jSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex k[1 * 3]; ! +! ! +! int __kSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex l[1 * 3]; ! +! ! +! int __lSize[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double m[1 * 2]; ! +! ! +! int __mSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex n[1 * 3]; ! +! ! +! int __nSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex o[1 * 3]; ! +! ! +! int __oSize[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex p[1 * 5]; ! +! ! +! int __pSize[2] = {1, 5};; ! +! ! +! ! +! ! +! doubleComplex q[1 * 5]; ! +! ! +! int __qSize[2] = {1, 5};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 , 2 , 3 , 4]; // d0d0OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [7 , a];// d0d2OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpRcd2(7,a, __aSize,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c = [a , 7];// d2d0OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpRcd2(a, __aSize,7,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [a , b];// d2d2OpRcs2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpRcd2(a, __aSize,b, __bSize,d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(a); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d2dispd0(a, __aSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(b); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = d2dispd0(b, __bSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(c); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = d2dispd0(c, __cSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = d2dispd0(d, __dSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [1*%i , 2*%i , 3*%i , 4*%i ];// z0z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp3 = d0z0OpStarz0(1,DoubleComplex(0,1)); ! +! ! +! __temp4 = d0z0OpStarz0(2,DoubleComplex(0,1)); ! +! ! +! z0z0OpRcz2(__temp3,__temp4,__temp5); ! +! ! +! __temp6 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! z2z0OpRcz2(__temp5, ____temp5Size,__temp6,__temp7); ! +! ! +! __temp8 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! z2z0OpRcz2(__temp7, ____temp7Size,__temp8,e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = [7 , e];// z0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpRcz2(7,e, __eSize,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = [e , 7];// z2z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpRcz2(e, __eSize,7,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = [e , f];// z2z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpRcz2(e, __eSize,f, __fSize,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(e); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans5 = z2dispd0(e, __eSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(f); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = z2dispd0(f, __fSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(g); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans7 = z2dispd0(g, __gSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(h); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = z2dispd0(h, __hSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: i = [%i , 4.5]; // z0d0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d0OpRcz2(DoubleComplex(0,1),4.5,i); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j = [4.5 , %i ]; // d0z0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z0OpRcz2(4.5,DoubleComplex(0,1),j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: k = [4.5 , i ]; // d0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpRcz2(4.5,i, __iSize,k); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: l = [i , 4.5]; // z2d0OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpRcz2(i, __iSize,4.5,l); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(i); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = z2dispd0(i, __iSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(j); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = z2dispd0(j, __jSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(k); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = z2dispd0(k, __kSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(l); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = z2dispd0(l, __lSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: m = [1 , 4.5]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,4.5,m); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: n = [%i , m ]; // z0d2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpRcz2(DoubleComplex(0,1),m, __mSize,n); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o = [m , %i ]; // d0z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpRcz2(m, __mSize,DoubleComplex(0,1),o); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: p = [m , n ]; // d2z2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpRcz2(m, __mSize,n, __nSize,p); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: q = [n , m ]; // z2d2OpRcz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpRcz2(n, __nSize,m, __mSize,q); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(n); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = z2dispd0(n, __nSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(o); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = z2dispd0(o, __oSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(p); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = z2dispd0(p, __pSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(q); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = z2dispd0(q, __qSize); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpRc.sci.tst b/tests/unit_tests/double/test_OpRc.sci.tst new file mode 100644 index 0000000..b18f395 --- /dev/null +++ b/tests/unit_tests/double/test_OpRc.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpRc.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpSlash.sci b/tests/unit_tests/double/test_OpSlash.sci new file mode 100644 index 0000000..bd85387 --- /dev/null +++ b/tests/unit_tests/double/test_OpSlash.sci @@ -0,0 +1,32 @@ +function test_OpSlash() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0/d0) + disp(d0/z0) + disp(z0/d0) + disp(z0/z0) + + disp(d2/d0) + disp(d2/z0) + disp(z2/d0) + disp(z2/z0) + + disp(d0/d2) + disp(d0/z2) + disp(z0/d2) + disp(z0/z2) + + disp(d2/d2) + disp(d2/z2) + disp(z2/d2) + disp(z2/z2) + + disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 + disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 + disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 + disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 + +endfunction diff --git a/tests/unit_tests/double/test_OpSlash.sci.dia.ref b/tests/unit_tests/double/test_OpSlash.sci.dia.ref new file mode 100644 index 0000000..f91fc56 --- /dev/null +++ b/tests/unit_tests/double/test_OpSlash.sci.dia.ref @@ -0,0 +1,1533 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpSlash.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 0.5 - 0.5i + + 1. + i + + 1. + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 + + + column 1 to 2 + + 0.1591549 - 0.1591549i 0.3183099 - 0.3183099i + 0.7957747 - 0.7957747i 0.9549297 - 0.9549297i + 1.4323945 - 1.4323945i 1.5915494 - 1.5915494i + 2.0690143 - 2.0690143i 2.2281692 - 2.2281692i + + column 3 to 4 + + 0.4774648 - 0.4774648i 0.6366198 - 0.6366198i + 1.1140846 - 1.1140846i 1.2732395 - 1.2732395i + 1.7507044 - 1.7507044i 1.9098593 - 1.9098593i + 2.3873241 - 2.3873241i 2.5464791 - 2.5464791i + + + column 1 to 2 + + 0.3183099 + 0.3183099i 0.6366198 + 0.6366198i + 1.5915494 + 1.5915494i 1.9098593 + 1.9098593i + 2.864789 + 2.864789i 3.1830989 + 3.1830989i + 4.1380285 + 4.1380285i 4.4563384 + 4.4563384i + + column 3 to 4 + + 0.9549297 + 0.9549297i 1.2732395 + 1.2732395i + 2.2281692 + 2.2281692i 2.5464791 + 2.5464791i + 3.5014087 + 3.5014087i 3.8197186 + 3.8197186i + 4.7746483 + 4.7746483i 5.0929582 + 5.0929582i + + 0.3183099 0.6366198 0.9549297 1.2732395 + 1.5915494 1.9098593 2.2281692 2.5464791 + 2.864789 3.1830989 3.5014087 3.8197186 + 4.1380285 4.4563384 4.7746483 5.0929582 +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + - 1.2042772 0. 0. 0.2617994 + - 0.4450590 0. 0. 0.1308997 + 0.3141593 0. 0. 3.054D-17 + 1.0733775 0. 0. - 0.1308997 +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + - 0.6021386 + 0.6021386i 0 0 0.1308997 - 0.1308997i + - 0.2225295 + 0.2225295i 0 0 0.0654498 - 0.0654498i + 0.1570796 - 0.1570796i 0 0 2.159D-17 - 2.699D-17i + 0.5366887 - 0.5366887i 0 0 - 0.0654498 + 0.0654498i +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + - 1.2042772 - 1.2042772i 0 0 0.2617994 + 0.2617994i + - 0.4450590 - 0.4450590i 0 0 0.1308997 + 0.1308997i + 0.3141593 + 0.3141593i 0 0 3.054D-17 + 3.054D-17i + 1.0733775 + 1.0733775i 0 0 - 0.1308997 - 0.1308997i +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + - 1.2042772 + 2.553D-16i 0 0 0.2617994 - 4.306D-17i + - 0.4450590 - 1.702D-16i 0 0 0.1308997 + 3.903D-17i + 0.3141593 + 1.064D-16i 0 0 3.239D-17 - 2.765D-17i + 1.0733775 + 6.382D-17i 0 0 - 0.1308997 - 2.021D-17i +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + 1. 0. 0. 6.107D-17 + 0.6666667 0. 0. 0.3333333 + 0.3333333 0. 0. 0.6666667 + - 2.522D-15 0. 0. 1. +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + 0.5 - 0.5i 0 0 - 2.159D-17 + 0.3333333 - 0.3333333i 0 0 0.1666667 - 0.1666667i + 0.1666667 - 0.1666667i 0 0 0.3333333 - 0.3333333i + - 6.421D-17 + 6.838D-16i 0 0 0.5 - 0.5i +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + 1. + i 0 0 3.054D-17 + 3.054D-17i + 0.6666667 + 0.6666667i 0 0 0.3333333 + 0.3333333i + 0.3333333 + 0.3333333i 0 0 0.6666667 + 0.6666667i + - 2.942D-15 - 2.942D-15i 0 0 1. + i +Warning : +matrix is close to singular or badly scaled. rcond = 0.0000D+00 +computing least squares solution. (see lsq). + + + 1. + 1.064D-16i 0 0 4.318D-17 - 1.886D-17i + 0.6666667 + 7.978D-16i 0 0 0.3333333 - 1.702D-16i + 0.3333333 - 1.143D-16i 0 0 0.6666667 + 5.986D-17i + - 1.456D-15 + 1.607D-15i 0 0 1. - 3.281D-16i + + 1. + + - 2.967D-17 - i + + i + + 1. - 2.967D-17i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpSlash" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpSlash/test_OpSlash_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0/d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0/z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0/d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0/z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2/d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2/z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2/d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2/z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0/d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0/z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0/d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0/z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2/d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2/z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2/d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2/z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpSlash() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 3]; ! +! ! +! int ____temp34Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp35[1 * 2]; ! +! ! +! int ____temp35Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 3]; ! +! ! +! int ____temp36Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp37; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! double __temp38[1 * 2]; ! +! ! +! int ____temp38Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp39[1 * 3]; ! +! ! +! int ____temp39Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp40[1 * 2]; ! +! ! +! int ____temp40Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp41[1 * 3]; ! +! ! +! int ____temp41Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp42[1 * 3]; ! +! ! +! int ____temp42Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp43; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp44[1 * 2]; ! +! ! +! int ____temp44Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp45[1 * 3]; ! +! ! +! int ____temp45Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp46[1 * 3]; ! +! ! +! int ____temp46Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp47[1 * 2]; ! +! ! +! int ____temp47Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp48[1 * 3]; ! +! ! +! int ____temp48Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! double __temp50[1 * 2]; ! +! ! +! int ____temp50Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp51[1 * 3]; ! +! ! +! int ____temp51Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp52[1 * 3]; ! +! ! +! int ____temp52Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp53[1 * 2]; ! +! ! +! int ____temp53Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp54[1 * 3]; ! +! ! +! int ____temp54Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0/d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpSlashd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0/z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0z0OpSlashz0(d0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0/d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0d0OpSlashz0(z0,d0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0/z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z0z0OpSlashz0(z0,z0); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2/d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpSlashd2(d2, __d2Size,d0,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2/z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpSlashz2(d2, __d2Size,z0,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2/d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpSlashz2(z2, __z2Size,d0,__temp23); ! +! ! +! ans7 = z2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2/z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpSlashz2(z2, __z2Size,z0,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0/d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpSlashd2(d0,d2, __d2Size,__temp25); ! +! ! +! ans9 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0/z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpSlashz2(d0,z2, __z2Size,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0/d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpSlashz2(z0,d2, __d2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0/z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpSlashz2(z0,z2, __z2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2/d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpSlashd2(d2, __d2Size,d2, __d2Size,__temp29); ! +! ! +! ans13 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2/z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpSlashz2(d2, __d2Size,z2, __z2Size,__temp30); ! +! ! +! ans14 = z2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2/d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpSlashz2(z2, __z2Size,d2, __d2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2/z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpSlashz2(z2, __z2Size,z2, __z2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp([1 2 3]/[1 2 3]) //d2d2OpSlashd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); ! +! ! +! d0d0OpRcd2(1,2,__temp35); ! +! ! +! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); ! +! ! +! __temp37 = d2d2OpSlashd0(__temp34, ____temp34Size,__temp36, ____t! +! emp36Size); ! +! ! +! ans17 = d0dispd0(__temp37); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp([1 2 3]/(%i * [1 2 3])) //d2z2OpSlashz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp38); ! +! ! +! d2d0OpRcd2(__temp38, ____temp38Size,3,__temp39); ! +! ! +! d0d0OpRcd2(1,2,__temp40); ! +! ! +! d2d0OpRcd2(__temp40, ____temp40Size,3,__temp41); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp41, ____temp41Size,__temp42)! +! ; ! +! ! +! __temp43 = d2z2OpSlashz0(__temp39, ____temp39Size,__temp42, ____t! +! emp42Size); ! +! ! +! ans18 = z0dispd0(__temp43); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp((%i * [1 2 3])/[1 2 3]) //z2d2OpSlashz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp44); ! +! ! +! d2d0OpRcd2(__temp44, ____temp44Size,3,__temp45); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp45, ____temp45Size,__temp46)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp47); ! +! ! +! d2d0OpRcd2(__temp47, ____temp47Size,3,__temp48); ! +! ! +! __temp49 = z2d2OpSlashz0(__temp46, ____temp46Size,__temp48, ____t! +! emp48Size); ! +! ! +! ans19 = z0dispd0(__temp49); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp((%i * [1 2 3])/(%i * [1 2 3])) //z2z2OpSlashz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp50); ! +! ! +! d2d0OpRcd2(__temp50, ____temp50Size,3,__temp51); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp51, ____temp51Size,__temp52)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp53); ! +! ! +! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)! +! ; ! +! ! +! __temp56 = z2z2OpSlashz0(__temp52, ____temp52Size,__temp55, ____t! +! emp55Size); ! +! ! +! ans20 = z0dispd0(__temp56); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpSlash.sci.tst b/tests/unit_tests/double/test_OpSlash.sci.tst new file mode 100644 index 0000000..30eaca0 --- /dev/null +++ b/tests/unit_tests/double/test_OpSlash.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpSlash.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpStar.sci b/tests/unit_tests/double/test_OpStar.sci new file mode 100644 index 0000000..06989ec --- /dev/null +++ b/tests/unit_tests/double/test_OpStar.sci @@ -0,0 +1,31 @@ +function test_OpStar() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(d0*d0) + disp(d0*z0) + disp(z0*d0) + disp(z0*z0) + + disp(d2*d0) + disp(d2*z0) + disp(z2*d0) + disp(z2*z0) + + disp(d0*d2) + disp(d0*z2) + disp(z0*d2) + disp(z0*z2) + + disp(d2*d2) + disp(d2*z2) + disp(z2*d2) + disp(z2*z2) + + disp([1 2 3]*[1 2 3]') //d2d2OpStard0 + disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 + disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 + disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_OpStar.sci.dia.ref b/tests/unit_tests/double/test_OpStar.sci.dia.ref new file mode 100644 index 0000000..4e00423 --- /dev/null +++ b/tests/unit_tests/double/test_OpStar.sci.dia.ref @@ -0,0 +1,1535 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpStar.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 9.8696044 + + 9.8696044 + 9.8696044i + + 9.8696044 + 9.8696044i + + 19.739209i + + 3.1415927 6.2831853 9.424778 12.566371 + 15.707963 18.849556 21.991149 25.132741 + 28.274334 31.415927 34.557519 37.699112 + 40.840704 43.982297 47.12389 50.265482 + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 6.2831853i 12.566371i 18.849556i 25.132741i + 31.415927i 37.699112i 43.982297i 50.265482i + 56.548668i 62.831853i 69.115038i 75.398224i + 81.681409i 87.964594i 94.24778i 100.53096i + + 3.1415927 6.2831853 9.424778 12.566371 + 15.707963 18.849556 21.991149 25.132741 + 28.274334 31.415927 34.557519 37.699112 + 40.840704 43.982297 47.12389 50.265482 + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + + column 1 to 2 + + 3.1415927 + 3.1415927i 6.2831853 + 6.2831853i + 15.707963 + 15.707963i 18.849556 + 18.849556i + 28.274334 + 28.274334i 31.415927 + 31.415927i + 40.840704 + 40.840704i 43.982297 + 43.982297i + + column 3 to 4 + + 9.424778 + 9.424778i 12.566371 + 12.566371i + 21.991149 + 21.991149i 25.132741 + 25.132741i + 34.557519 + 34.557519i 37.699112 + 37.699112i + 47.12389 + 47.12389i 50.265482 + 50.265482i + + 6.2831853i 12.566371i 18.849556i 25.132741i + 31.415927i 37.699112i 43.982297i 50.265482i + 56.548668i 62.831853i 69.115038i 75.398224i + 81.681409i 87.964594i 94.24778i 100.53096i + + 90. 100. 110. 120. + 202. 228. 254. 280. + 314. 356. 398. 440. + 426. 484. 542. 600. + + 90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i + 202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i + 314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i + 426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i + + 90. + 90.i 100. + 100.i 110. + 110.i 120. + 120.i + 202. + 202.i 228. + 228.i 254. + 254.i 280. + 280.i + 314. + 314.i 356. + 356.i 398. + 398.i 440. + 440.i + 426. + 426.i 484. + 484.i 542. + 542.i 600. + 600.i + + 180.i 200.i 220.i 240.i + 404.i 456.i 508.i 560.i + 628.i 712.i 796.i 880.i + 852.i 968.i 1084.i 1200.i + + 14. + + - 14.i + + 14.i + + 14. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_OpStar" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpStar/test_OpStar_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2*d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2*z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2*d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2*z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_OpStar() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27[4 * 4]; ! +! ! +! int ____temp27Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 4]; ! +! ! +! int ____temp28Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp29[4 * 4]; ! +! ! +! int ____temp29Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! doubleComplex __temp30[4 * 4]; ! +! ! +! int ____temp30Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp31[4 * 4]; ! +! ! +! int ____temp31Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! doubleComplex __temp32[4 * 4]; ! +! ! +! int ____temp32Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp33[1 * 2]; ! +! ! +! int ____temp33Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 3]; ! +! ! +! int ____temp34Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp35[1 * 2]; ! +! ! +! int ____temp35Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 3]; ! +! ! +! int ____temp36Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp37[3 * 1]; ! +! ! +! int ____temp37Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double __temp38; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[1 * 3]; ! +! ! +! int ____temp40Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp41[1 * 2]; ! +! ! +! int ____temp41Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp42[1 * 3]; ! +! ! +! int ____temp42Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp43[1 * 3]; ! +! ! +! int ____temp43Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp44[3 * 1]; ! +! ! +! int ____temp44Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! double __temp46[1 * 2]; ! +! ! +! int ____temp46Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp47[1 * 3]; ! +! ! +! int ____temp47Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp48[1 * 3]; ! +! ! +! int ____temp48Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp49[1 * 2]; ! +! ! +! int ____temp49Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp50[1 * 3]; ! +! ! +! int ____temp50Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp51[3 * 1]; ! +! ! +! int ____temp51Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp52; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! double __temp53[1 * 2]; ! +! ! +! int ____temp53Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp54[1 * 3]; ! +! ! +! int ____temp54Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp56[1 * 2]; ! +! ! +! int ____temp56Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp57[1 * 3]; ! +! ! +! int ____temp57Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp59[3 * 1]; ! +! ! +! int ____temp59Size[2] = {3, 1};; ! +! ! +! ! +! ! +! doubleComplex __temp60; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpStard0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0z0OpStarz0(d0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0d0OpStarz0(z0,d0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z0z0OpStarz0(z0,z0); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpStard2(d2, __d2Size,d0,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpStarz2(d2, __d2Size,z0,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2*d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpStarz2(z2, __z2Size,d0,__temp23); ! +! ! +! ans7 = z2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2*z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpStarz2(z2, __z2Size,z0,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpStard2(d0,d2, __d2Size,__temp25); ! +! ! +! ans9 = d2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpStarz2(d0,z2, __z2Size,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(z0,d2, __d2Size,__temp27); ! +! ! +! ans11 = z2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpStarz2(z0,z2, __z2Size,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2OpStard2(d2, __d2Size,d2, __d2Size,__temp29); ! +! ! +! ans13 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpStarz2(d2, __d2Size,z2, __z2Size,__temp30); ! +! ! +! ans14 = z2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2*d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d2OpStarz2(z2, __z2Size,d2, __d2Size,__temp31); ! +! ! +! ans15 = z2dispd0(__temp31, ____temp31Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2*z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z2OpStarz2(z2, __z2Size,z2, __z2Size,__temp32); ! +! ! +! ans16 = z2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp([1 2 3]*[1 2 3]') //d2d2OpStard0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,3,__temp34); ! +! ! +! d0d0OpRcd2(1,2,__temp35); ! +! ! +! d2d0OpRcd2(__temp35, ____temp35Size,3,__temp36); ! +! ! +! d2OpApexd2(__temp36, ____temp36Size,__temp37); ! +! ! +! __temp38 = d2d2OpStard0(__temp34, ____temp34Size,__temp37, ____te! +! mp37Size); ! +! ! +! ans17 = d0dispd0(__temp38); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp([1 2 3]*(%i * [1 2 3])') //d2z2OpStarz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,3,__temp40); ! +! ! +! d0d0OpRcd2(1,2,__temp41); ! +! ! +! d2d0OpRcd2(__temp41, ____temp41Size,3,__temp42); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp42, ____temp42Size,__temp43)! +! ; ! +! ! +! z2OpApexz2(__temp43, ____temp43Size,__temp44); ! +! ! +! __temp45 = d2z2OpStarz0(__temp40, ____temp40Size,__temp44, ____te! +! mp44Size); ! +! ! +! ans18 = z0dispd0(__temp45); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp((%i * [1 2 3])*[1 2 3]') //z2d2OpStarz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp46); ! +! ! +! d2d0OpRcd2(__temp46, ____temp46Size,3,__temp47); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp47, ____temp47Size,__temp48)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp49); ! +! ! +! d2d0OpRcd2(__temp49, ____temp49Size,3,__temp50); ! +! ! +! d2OpApexd2(__temp50, ____temp50Size,__temp51); ! +! ! +! __temp52 = z2d2OpStarz0(__temp48, ____temp48Size,__temp51, ____te! +! mp51Size); ! +! ! +! ans19 = z0dispd0(__temp52); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp((%i * [1 2 3])*(%i * [1 2 3])') //z2z2OpStarz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp53); ! +! ! +! d2d0OpRcd2(__temp53, ____temp53Size,3,__temp54); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp54, ____temp54Size,__temp55)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp56); ! +! ! +! d2d0OpRcd2(__temp56, ____temp56Size,3,__temp57); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp57, ____temp57Size,__temp58)! +! ; ! +! ! +! z2OpApexz2(__temp58, ____temp58Size,__temp59); ! +! ! +! __temp60 = z2z2OpStarz0(__temp55, ____temp55Size,__temp59, ____te! +! mp59Size); ! +! ! +! ans20 = z0dispd0(__temp60); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_OpStar.sci.tst b/tests/unit_tests/double/test_OpStar.sci.tst new file mode 100644 index 0000000..590b5c5 --- /dev/null +++ b/tests/unit_tests/double/test_OpStar.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_OpStar.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Size.sci b/tests/unit_tests/double/test_Size.sci new file mode 100644 index 0000000..c9866ff --- /dev/null +++ b/tests/unit_tests/double/test_Size.sci @@ -0,0 +1,41 @@ +function test_Size() + disp(size(4)); + disp(size([1 2])) + disp(size(2+3*%i)); + disp(size([1 2 3 ; 4 5 6])); + disp(size([1 2 3 ; 4 5 6]*%i)); + e = %pi ; + disp(size(e)); // d0Sized0 + + f = e * %i; + disp(size(f));// z0Sized0 + + a = [1 2 3 ; 4 5 6]; + disp(size(a));// d2Sized0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(size(b));// z2Sized0 + +// with a second argument + o=1; + + disp(size(4,1)); + disp(size(2+3*%i,1)); + disp(size([1 2 3 ; 4 5 6],o)); + disp(size([1 2 3 ; 4 5 6]*%i,1)); + e = %pi ; + disp(size(e,1)); // d0Sized0 + + f = e * %i; + disp(size(f,1));// z0Sized0 + + a = [1 2 3 ; 4 5 6]; + disp(size(a,o));// d2Sized0 + + b = [1 2 3 ; 4 5 6] * %i; + disp(size(b,1));// z2Sized0 + + + + +endfunction diff --git a/tests/unit_tests/double/test_Size.sci.dia.ref b/tests/unit_tests/double/test_Size.sci.dia.ref new file mode 100644 index 0000000..171f633 --- /dev/null +++ b/tests/unit_tests/double/test_Size.sci.dia.ref @@ -0,0 +1,1637 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Size.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. 1. + + 1. 2. + + 1. 1. + + 2. 3. + + 2. 3. + + 1. 1. + + 1. 1. + + 2. 3. + + 2. 3. + + 1. + + 1. + + 2. + + 2. + + 1. + + 1. + + 2. + + 2. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Size" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Size/test_Size_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Size/test_Size_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(4)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2])) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(2+3*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(e)); // d0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = e * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(f));// z0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(a));// d2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(b));// z2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // with a second argument + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: o=1; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(4,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(2+3*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6],o)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size([1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = %pi ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(e,1)); // d0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f = e * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(f,1));// z0Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3 ; 4 5 6]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(a,o));// d2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [1 2 3 ; 4 5 6] * %i; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(size(b,1));// z2Sized0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Size() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp2[1 * 2]; ! +! ! +! int ____temp2Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp4; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp7[1 * 2]; ! +! ! +! int ____temp7Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp11[2 * 3]; ! +! ! +! int ____temp11Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp14[1 * 3]; ! +! ! +! int ____temp14Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp15[1 * 2]; ! +! ! +! int ____temp15Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp16[1 * 3]; ! +! ! +! int ____temp16Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp17[2 * 3]; ! +! ! +! int ____temp17Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp18[2 * 3]; ! +! ! +! int ____temp18Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double e = 3.1415927; ! +! ! +! ! +! ! +! double __temp20[1 * 2]; ! +! ! +! int ____temp20Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex f; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp22[1 * 2]; ! +! ! +! int ____temp22Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp23[1 * 3]; ! +! ! +! int ____temp23Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[2 * 3]; ! +! ! +! int __aSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp27[1 * 2]; ! +! ! +! int ____temp27Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp28[1 * 3]; ! +! ! +! int ____temp28Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp29[1 * 2]; ! +! ! +! int ____temp29Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp30[1 * 3]; ! +! ! +! int ____temp30Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp31[2 * 3]; ! +! ! +! int ____temp31Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex b[2 * 3]; ! +! ! +! int __bSize[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp32[1 * 2]; ! +! ! +! int ____temp32Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double o = 1; ! +! ! +! ! +! ! +! double __temp33; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp34; ! +! ! +! ! +! ! +! doubleComplex __temp35; ! +! ! +! ! +! ! +! double __temp36; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp38[1 * 3]; ! +! ! +! int ____temp38Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[1 * 3]; ! +! ! +! int ____temp40Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp41[2 * 3]; ! +! ! +! int ____temp41Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp42; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! double __temp43[1 * 2]; ! +! ! +! int ____temp43Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp44[1 * 3]; ! +! ! +! int ____temp44Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp45[1 * 2]; ! +! ! +! int ____temp45Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp46[1 * 3]; ! +! ! +! int ____temp46Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp47[2 * 3]; ! +! ! +! int ____temp47Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp48[2 * 3]; ! +! ! +! int ____temp48Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp49; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp50; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! double __temp51; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp52[1 * 2]; ! +! ! +! int ____temp52Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 3]; ! +! ! +! int ____temp53Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp55[1 * 3]; ! +! ! +! int ____temp55Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp56; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! double __temp57[1 * 2]; ! +! ! +! int ____temp57Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp59[1 * 2]; ! +! ! +! int ____temp59Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp60[1 * 3]; ! +! ! +! int ____temp60Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp61[2 * 3]; ! +! ! +! int ____temp61Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp62; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(4)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0sized2(4,__temp1); ! +! ! +! ans1 = d2dispd0(__temp1, ____temp1Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2])) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp2); ! +! ! +! d2sized2(__temp2, ____temp2Size,__temp3); ! +! ! +! ans2 = d2dispd0(__temp3, ____temp3Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(2+3*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp4 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp5 = d0z0OpPlusz0(2,__temp4); ! +! ! +! z0sized2(__temp5,__temp6); ! +! ! +! ans3 = d2dispd0(__temp6, ____temp6Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp7); ! +! ! +! d2d0OpRcd2(__temp7, ____temp7Size,3,__temp8); ! +! ! +! d0d0OpRcd2(4,5,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,6,__temp10); ! +! ! +! d2d2OpCcd2(__temp8, ____temp8Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d2sized2(__temp11, ____temp11Size,__temp12); ! +! ! +! ans4 = d2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,3,__temp14); ! +! ! +! d0d0OpRcd2(4,5,__temp15); ! +! ! +! d2d0OpRcd2(__temp15, ____temp15Size,6,__temp16); ! +! ! +! d2d2OpCcd2(__temp14, ____temp14Size,__temp16, ____temp16Size,__te! +! mp17); ! +! ! +! d2z0OpStarz2(__temp17, ____temp17Size,DoubleComplex(0,1),__temp18)! +! ; ! +! ! +! z2sized2(__temp18, ____temp18Size,__temp19); ! +! ! +! ans5 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(e)); // d0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0sized2(e,__temp20); ! +! ! +! ans6 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = e * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = d0z0OpStarz0(e,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(f));// z0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0sized2(f,__temp21); ! +! ! +! ans7 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp22); ! +! ! +! d2d0OpRcd2(__temp22, ____temp22Size,3,__temp23); ! +! ! +! d0d0OpRcd2(4,5,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,6,__temp25); ! +! ! +! d2d2OpCcd2(__temp23, ____temp23Size,__temp25, ____temp25Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(a));// d2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2sized2(a, __aSize,__temp26); ! +! ! +! ans8 = d2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,3,__temp28); ! +! ! +! d0d0OpRcd2(4,5,__temp29); ! +! ! +! d2d0OpRcd2(__temp29, ____temp29Size,6,__temp30); ! +! ! +! d2d2OpCcd2(__temp28, ____temp28Size,__temp30, ____temp30Size,__te! +! mp31); ! +! ! +! d2z0OpStarz2(__temp31, ____temp31Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(b));// z2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2sized2(b, __bSize,__temp32); ! +! ! +! ans9 = d2dispd0(__temp32, ____temp32Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // with a second argument ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: o=1; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! o = d0OpEquald0(1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(4,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp33 = d0d0sized0(4,1); ! +! ! +! ans10 = d0dispd0(__temp33); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(2+3*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp34 = d0z0OpStarz0(3,DoubleComplex(0,1)); ! +! ! +! __temp35 = d0z0OpPlusz0(2,__temp34); ! +! ! +! __temp36 = z0d0sized0(__temp35,1); ! +! ! +! ans11 = d0dispd0(__temp36); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6],o)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp37); ! +! ! +! d2d0OpRcd2(__temp37, ____temp37Size,3,__temp38); ! +! ! +! d0d0OpRcd2(4,5,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,6,__temp40); ! +! ! +! d2d2OpCcd2(__temp38, ____temp38Size,__temp40, ____temp40Size,__te! +! mp41); ! +! ! +! __temp42 = d2d0sized0(__temp41, ____temp41Size,o); ! +! ! +! ans12 = d0dispd0(__temp42); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size([1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,3,__temp44); ! +! ! +! d0d0OpRcd2(4,5,__temp45); ! +! ! +! d2d0OpRcd2(__temp45, ____temp45Size,6,__temp46); ! +! ! +! d2d2OpCcd2(__temp44, ____temp44Size,__temp46, ____temp46Size,__te! +! mp47); ! +! ! +! d2z0OpStarz2(__temp47, ____temp47Size,DoubleComplex(0,1),__temp48)! +! ; ! +! ! +! __temp49 = z2d0sized0(__temp48, ____temp48Size,1); ! +! ! +! ans13 = d0dispd0(__temp49); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = %pi ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! e = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(e,1)); // d0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp50 = d0d0sized0(e,1); ! +! ! +! ans14 = d0dispd0(__temp50); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f = e * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! f = d0z0OpStarz0(e,DoubleComplex(0,1)); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(f,1));// z0Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp51 = z0d0sized0(f,1); ! +! ! +! ans15 = d0dispd0(__temp51); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3 ; 4 5 6]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,3,__temp53); ! +! ! +! d0d0OpRcd2(4,5,__temp54); ! +! ! +! d2d0OpRcd2(__temp54, ____temp54Size,6,__temp55); ! +! ! +! d2d2OpCcd2(__temp53, ____temp53Size,__temp55, ____temp55Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(a,o));// d2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d2d0sized0(a, __aSize,o); ! +! ! +! ans16 = d0dispd0(__temp56); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [1 2 3 ; 4 5 6] * %i; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp57); ! +! ! +! d2d0OpRcd2(__temp57, ____temp57Size,3,__temp58); ! +! ! +! d0d0OpRcd2(4,5,__temp59); ! +! ! +! d2d0OpRcd2(__temp59, ____temp59Size,6,__temp60); ! +! ! +! d2d2OpCcd2(__temp58, ____temp58Size,__temp60, ____temp60Size,__te! +! mp61); ! +! ! +! d2z0OpStarz2(__temp61, ____temp61Size,DoubleComplex(0,1),b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(size(b,1));// z2Sized0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp62 = z2d0sized0(b, __bSize,1); ! +! ! +! ans17 = d0dispd0(__temp62); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Size.sci.tst b/tests/unit_tests/double/test_Size.sci.tst new file mode 100644 index 0000000..6af1d2f --- /dev/null +++ b/tests/unit_tests/double/test_Size.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Size.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Spec.sci b/tests/unit_tests/double/test_Spec.sci new file mode 100644 index 0000000..8ef1146 --- /dev/null +++ b/tests/unit_tests/double/test_Spec.sci @@ -0,0 +1,41 @@ +function test_Spec() + + + disp(spec(45)) ; // d0Spec + disp(spec(4+3*%i)); // z0Spec + + a = [1 2 3; -4 5 98 ; 7 8 5] ; + b = [1 2 3; -4 5 98 ; 7 -100000 5] ; + + + disp(spec(a)); + disp(spec(b)); + + disp(spec(a*%i)); + // 2 outputs + + [aa bb] = spec(45) ; // d0Spec + disp(aa); + disp(bb); + + [cc dd] = spec(4+3*%i); // z0Spec + + disp(cc); + disp(dd); + + a = [1 2 3; -4 5 98 ; 7 8 5] ; + b = [1 2 3; -4 5 98 ; 7 -100000 5] ; + + + [ee ff] = spec(a); + disp(ee); + disp(ff); + [gg hh] = spec(b); + disp(gg); + disp(hh); + + [ii jj] = spec(a*%i); + disp(ii); + disp(jj); + +endfunction diff --git a/tests/unit_tests/double/test_Spec.sci.tst b/tests/unit_tests/double/test_Spec.sci.tst new file mode 100644 index 0000000..a21881f --- /dev/null +++ b/tests/unit_tests/double/test_Spec.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Spec.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Stdevf.sci b/tests/unit_tests/double/test_Stdevf.sci new file mode 100644 index 0000000..3f38183 --- /dev/null +++ b/tests/unit_tests/double/test_Stdevf.sci @@ -0,0 +1,45 @@ + +function test_Stdevf() + disp (stdevf (4 , 5 )) ; + disp ("*******1*******"); + disp (stdevf ([4 5 6], [1 2 3])); + disp ("*******2*******"); + disp (stdevf (4 , 5*%i )) ; + disp ("*******3*******"); + disp (stdevf ([4 5 6], [1 2 3]*%i)); + disp ("*******4*******"); + + + + disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + disp ("*******5*******"); + disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); +// complex + disp ("*******6*******"); + disp (stdevf (4 +4*%i , 5 )) ; + disp ("*******7*******"); + disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); + disp ("*******8*******"); + disp (stdevf (4 +4*%i , 5*%i )) ; + disp ("*******9*******"); + disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + disp ("******10*******"); + + + disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + disp ("******11*******"); + disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; 4 5 6]*%i,1)); + disp ("******12*******"); + disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); + disp ("******13*******"); + disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + disp ("******14*******"); + + disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + disp ("******15*******"); + disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + disp ("******16*******"); +// + +endfunction diff --git a/tests/unit_tests/double/test_Stdevf.sci.dia.ref b/tests/unit_tests/double/test_Stdevf.sci.dia.ref new file mode 100644 index 0000000..ff14bf0 --- /dev/null +++ b/tests/unit_tests/double/test_Stdevf.sci.dia.ref @@ -0,0 +1,2672 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Stdevf.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. + + *******1******* + + 0. + + *******2******* + + 0 + + *******3******* + + 0 + + *******4******* + + 1.3416408 1.4638501 1.5 + + *******5******* + + 1.3416408 + 1.4638501 + 1.5 + + *******6******* + + 0 + + *******7******* + + 0 + + *******8******* + + 0 + + *******9******* + + 0 + + ******10******* + + 1.3416408i 1.4638501i 1.5i + + ******11******* + + 1.1825083 - 0.1170914i + 1.3450417 - 0.0955892i + 1.4077246 - 0.0779670i + + + column 1 to 2 + + 1.2591072 - 0.0697358i 1.3127305 + 0.0474288i + + column 3 + + 1.3915424 + 0.0307373i + + ******12******* + + + column 1 to 2 + + 1.1825083 - 0.1170914i 1.3450417 - 0.0955892i + + column 3 + + 1.4077246 - 0.0779670i + + ******13******* + + 1.3416408i + 1.4638501i + 1.5i + + ******14******* + + + column 1 to 2 + + 0.1170914 + 1.1825083i 0.0955892 + 1.3450417i + + column 3 + + 0.0779670 + 1.4077246i + + ******15******* + + 0.1170914 + 1.1825083i + 0.0955892 + 1.3450417i + 0.0779670 + 1.4077246i + + ******16******* + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Stdevf" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Stdevf/test_Stdevf_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Stdevf/test_Stdevf_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******3*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******4*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******5*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******6*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 +4*%i , 5 )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******7*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******8*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf (4 +4*%i , 5*%i )) ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("*******9*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******10*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******11*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ; + 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******12*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******13*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******14*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******15*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp ("******16*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: ! +! ! +! SCI2C: function test_Stdevf() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! char __temp2[1*16] = {"*******1*******"}; ! +! ! +! int ____temp2Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp6[1 * 3]; ! +! ! +! int ____temp6Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp7; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! char __temp8[1*16] = {"*******2*******"}; ! +! ! +! int ____temp8Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! doubleComplex __temp9; ! +! ! +! ! +! ! +! doubleComplex __temp10; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! char __temp11[1*16] = {"*******3*******"}; ! +! ! +! int ____temp11Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp16[1 * 3]; ! +! ! +! int ____temp16Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! char __temp18[1*16] = {"*******4*******"}; ! +! ! +! int ____temp18Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp19[1 * 2]; ! +! ! +! int ____temp19Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp20[1 * 3]; ! +! ! +! int ____temp20Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp21[1 * 2]; ! +! ! +! int ____temp21Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp22[1 * 3]; ! +! ! +! int ____temp22Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp23[2 * 3]; ! +! ! +! int ____temp23Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp25[1 * 3]; ! +! ! +! int ____temp25Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp28[2 * 3]; ! +! ! +! int ____temp28Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp29[1 * 3]; ! +! ! +! int ____temp29Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! char __temp30[1*16] = {"*******5*******"}; ! +! ! +! int ____temp30Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp31[1 * 2]; ! +! ! +! int ____temp31Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp32[1 * 2]; ! +! ! +! int ____temp32Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp33[2 * 2]; ! +! ! +! int ____temp33Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp34[1 * 2]; ! +! ! +! int ____temp34Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp35[3 * 2]; ! +! ! +! int ____temp35Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp36[1 * 2]; ! +! ! +! int ____temp36Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp37[1 * 2]; ! +! ! +! int ____temp37Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp38[2 * 2]; ! +! ! +! int ____temp38Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp39[1 * 2]; ! +! ! +! int ____temp39Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp40[3 * 2]; ! +! ! +! int ____temp40Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp41[3 * 1]; ! +! ! +! int ____temp41Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! char __temp42[1*16] = {"*******6*******"}; ! +! ! +! int ____temp42Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! doubleComplex __temp43; ! +! ! +! ! +! ! +! doubleComplex __temp44; ! +! ! +! ! +! ! +! doubleComplex __temp45; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! char __temp46[1*16] = {"*******7*******"}; ! +! ! +! int ____temp46Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! doubleComplex __temp47; ! +! ! +! ! +! ! +! doubleComplex __temp48; ! +! ! +! ! +! ! +! doubleComplex __temp49; ! +! ! +! ! +! ! +! doubleComplex __temp50[1 * 2]; ! +! ! +! int ____temp50Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp51[1 * 3]; ! +! ! +! int ____temp51Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp52[1 * 2]; ! +! ! +! int ____temp52Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp53[1 * 3]; ! +! ! +! int ____temp53Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp54; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! char __temp55[1*16] = {"*******8*******"}; ! +! ! +! int ____temp55Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! doubleComplex __temp56; ! +! ! +! ! +! ! +! doubleComplex __temp57; ! +! ! +! ! +! ! +! doubleComplex __temp58; ! +! ! +! ! +! ! +! doubleComplex __temp59; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! char __temp60[1*16] = {"*******9*******"}; ! +! ! +! int ____temp60Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! doubleComplex __temp61; ! +! ! +! ! +! ! +! doubleComplex __temp62; ! +! ! +! ! +! ! +! doubleComplex __temp63; ! +! ! +! ! +! ! +! doubleComplex __temp64[1 * 2]; ! +! ! +! int ____temp64Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp65[1 * 3]; ! +! ! +! int ____temp65Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp66[1 * 2]; ! +! ! +! int ____temp66Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp67[1 * 3]; ! +! ! +! int ____temp67Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp68[1 * 3]; ! +! ! +! int ____temp68Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp69; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! char __temp70[1*16] = {"******10*******"}; ! +! ! +! int ____temp70Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! double __temp71[1 * 2]; ! +! ! +! int ____temp71Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp72[1 * 3]; ! +! ! +! int ____temp72Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp73[1 * 2]; ! +! ! +! int ____temp73Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp74[1 * 3]; ! +! ! +! int ____temp74Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp75[2 * 3]; ! +! ! +! int ____temp75Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp76[2 * 3]; ! +! ! +! int ____temp76Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp77[1 * 2]; ! +! ! +! int ____temp77Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp78[1 * 3]; ! +! ! +! int ____temp78Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp81[2 * 3]; ! +! ! +! int ____temp81Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp82[1 * 3]; ! +! ! +! int ____temp82Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! char __temp83[1*16] = {"******11*******"}; ! +! ! +! int ____temp83Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! double __temp84[1 * 2]; ! +! ! +! int ____temp84Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp86[2 * 2]; ! +! ! +! int ____temp86Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp87[1 * 2]; ! +! ! +! int ____temp87Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp88[3 * 2]; ! +! ! +! int ____temp88Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp90[1 * 2]; ! +! ! +! int ____temp90Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp91[2 * 2]; ! +! ! +! int ____temp91Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp92[1 * 2]; ! +! ! +! int ____temp92Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp93[3 * 2]; ! +! ! +! int ____temp93Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp94[3 * 2]; ! +! ! +! int ____temp94Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp95[3 * 1]; ! +! ! +! int ____temp95Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! double __temp96[1 * 2]; ! +! ! +! int ____temp96Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp97[1 * 3]; ! +! ! +! int ____temp97Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp98[1 * 2]; ! +! ! +! int ____temp98Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp99[1 * 3]; ! +! ! +! int ____temp99Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp100[2 * 3]; ! +! ! +! int ____temp100Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp101[1 * 2]; ! +! ! +! int ____temp101Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp102[1 * 3]; ! +! ! +! int ____temp102Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp103[1 * 2]; ! +! ! +! int ____temp103Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp104[1 * 3]; ! +! ! +! int ____temp104Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp105[2 * 3]; ! +! ! +! int ____temp105Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp106[1 * 2]; ! +! ! +! int ____temp106Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp107[1 * 3]; ! +! ! +! int ____temp107Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp108[1 * 2]; ! +! ! +! int ____temp108Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp109[1 * 3]; ! +! ! +! int ____temp109Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp110[2 * 3]; ! +! ! +! int ____temp110Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp111[2 * 3]; ! +! ! +! int ____temp111Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp112[2 * 3]; ! +! ! +! int ____temp112Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp113[1 * 3]; ! +! ! +! int ____temp113Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! char __temp114[1*16] = {"******12*******"}; ! +! ! +! int ____temp114Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp116[1 * 3]; ! +! ! +! int ____temp116Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp117[1 * 2]; ! +! ! +! int ____temp117Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp118[1 * 3]; ! +! ! +! int ____temp118Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp119[2 * 3]; ! +! ! +! int ____temp119Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp120[1 * 2]; ! +! ! +! int ____temp120Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp121[1 * 3]; ! +! ! +! int ____temp121Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp122[1 * 2]; ! +! ! +! int ____temp122Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp123[1 * 3]; ! +! ! +! int ____temp123Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp124[2 * 3]; ! +! ! +! int ____temp124Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp125[2 * 3]; ! +! ! +! int ____temp125Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp126[1 * 3]; ! +! ! +! int ____temp126Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! char __temp127[1*16] = {"******13*******"}; ! +! ! +! int ____temp127Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! double __temp128[1 * 2]; ! +! ! +! int ____temp128Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp129[1 * 2]; ! +! ! +! int ____temp129Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp130[2 * 2]; ! +! ! +! int ____temp130Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp131[1 * 2]; ! +! ! +! int ____temp131Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp132[3 * 2]; ! +! ! +! int ____temp132Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp133[3 * 2]; ! +! ! +! int ____temp133Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp134[1 * 2]; ! +! ! +! int ____temp134Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp135[1 * 2]; ! +! ! +! int ____temp135Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp136[2 * 2]; ! +! ! +! int ____temp136Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp137[1 * 2]; ! +! ! +! int ____temp137Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp138[3 * 2]; ! +! ! +! int ____temp138Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp139[3 * 1]; ! +! ! +! int ____temp139Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! char __temp140[1*16] = {"******14*******"}; ! +! ! +! int ____temp140Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! double __temp141[1 * 2]; ! +! ! +! int ____temp141Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp142[1 * 3]; ! +! ! +! int ____temp142Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp143[1 * 2]; ! +! ! +! int ____temp143Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp144[1 * 3]; ! +! ! +! int ____temp144Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp145[2 * 3]; ! +! ! +! int ____temp145Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp146[2 * 3]; ! +! ! +! int ____temp146Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp147[1 * 2]; ! +! ! +! int ____temp147Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp148[1 * 3]; ! +! ! +! int ____temp148Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp149[1 * 2]; ! +! ! +! int ____temp149Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp150[1 * 3]; ! +! ! +! int ____temp150Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp151[2 * 3]; ! +! ! +! int ____temp151Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp152[2 * 3]; ! +! ! +! int ____temp152Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp153[1 * 3]; ! +! ! +! int ____temp153Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! char __temp154[1*16] = {"******15*******"}; ! +! ! +! int ____temp154Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! double __temp155[1 * 2]; ! +! ! +! int ____temp155Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp156[1 * 2]; ! +! ! +! int ____temp156Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp157[2 * 2]; ! +! ! +! int ____temp157Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp158[1 * 2]; ! +! ! +! int ____temp158Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp159[3 * 2]; ! +! ! +! int ____temp159Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp160[3 * 2]; ! +! ! +! int ____temp160Size[2] = {3, 2};; ! +! ! +! ! +! ! +! double __temp161[1 * 2]; ! +! ! +! int ____temp161Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp162[1 * 2]; ! +! ! +! int ____temp162Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp163[2 * 2]; ! +! ! +! int ____temp163Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp164[1 * 2]; ! +! ! +! int ____temp164Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp165[3 * 2]; ! +! ! +! int ____temp165Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp166[3 * 2]; ! +! ! +! int ____temp166Size[2] = {3, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp167[3 * 1]; ! +! ! +! int ____temp167Size[2] = {3, 1};; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! char __temp168[1*16] = {"******16*******"}; ! +! ! +! int ____temp168Size[2] = {1,16}; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0d0stdevfd0(4,5); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans2 = g2dispd0(__temp2, ____temp2Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,6,__temp4); ! +! ! +! d0d0OpRcd2(1,2,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,3,__temp6); ! +! ! +! __temp7 = d2d2stdevfd0(__temp4, ____temp4Size,__temp6, ____temp6S! +! ize); ! +! ! +! ans3 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans4 = g2dispd0(__temp8, ____temp8Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp9 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp10 = d0z0stdevfz0(4,__temp9); ! +! ! +! ans5 = z0dispd0(__temp10); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******3*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans6 = g2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,6,__temp13); ! +! ! +! d0d0OpRcd2(1,2,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,3,__temp15); ! +! ! +! d2z0OpStarz2(__temp15, ____temp15Size,DoubleComplex(0,1),__temp16)! +! ; ! +! ! +! __temp17 = d2z2stdevfz0(__temp13, ____temp13Size,__temp16, ____te! +! mp16Size); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******4*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans8 = g2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,6,__temp20); ! +! ! +! d0d0OpRcd2(7,8,__temp21); ! +! ! +! d2d0OpRcd2(__temp21, ____temp21Size,9,__temp22); ! +! ! +! d2d2OpCcd2(__temp20, ____temp20Size,__temp22, ____temp22Size,__te! +! mp23); ! +! ! +! d0d0OpRcd2(1,2,__temp24); ! +! ! +! d2d0OpRcd2(__temp24, ____temp24Size,3,__temp25); ! +! ! +! d0d0OpRcd2(4,5,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,6,__temp27); ! +! ! +! d2d2OpCcd2(__temp25, ____temp25Size,__temp27, ____temp27Size,__te! +! mp28); ! +! ! +! d2d2d0stdevfd2(__temp23, ____temp23Size,__temp28, ____temp28Size,! +! 1,__temp29); ! +! ! +! ans9 = d2dispd0(__temp29, ____temp29Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******5*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans10 = g2dispd0(__temp30, ____temp30Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp31); ! +! ! +! d0d0OpRcd2(5,8,__temp32); ! +! ! +! d2d2OpCcd2(__temp31, ____temp31Size,__temp32, ____temp32Size,__te! +! mp33); ! +! ! +! d0d0OpRcd2(6,9,__temp34); ! +! ! +! d2d2OpCcd2(__temp33, ____temp33Size,__temp34, ____temp34Size,__te! +! mp35); ! +! ! +! d0d0OpRcd2(1,4,__temp36); ! +! ! +! d0d0OpRcd2(2,5,__temp37); ! +! ! +! d2d2OpCcd2(__temp36, ____temp36Size,__temp37, ____temp37Size,__te! +! mp38); ! +! ! +! d0d0OpRcd2(3,6,__temp39); ! +! ! +! d2d2OpCcd2(__temp38, ____temp38Size,__temp39, ____temp39Size,__te! +! mp40); ! +! ! +! d2d2d0stdevfd2(__temp35, ____temp35Size,__temp40, ____temp40Size,! +! 2,__temp41); ! +! ! +! ans11 = d2dispd0(__temp41, ____temp41Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******6*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans12 = g2dispd0(__temp42, ____temp42Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 +4*%i , 5 )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp43 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp44 = d0z0OpPlusz0(4,__temp43); ! +! ! +! __temp45 = z0d0stdevfz0(__temp44,5); ! +! ! +! ans13 = z0dispd0(__temp45); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******7*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans14 = g2dispd0(__temp46, ____temp46Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp47 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp48 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp49 = d0z0OpPlusz0(5,__temp48); ! +! ! +! z0z0OpRcz2(__temp47,__temp49,__temp50); ! +! ! +! z2d0OpRcz2(__temp50, ____temp50Size,6,__temp51); ! +! ! +! d0d0OpRcd2(1,2,__temp52); ! +! ! +! d2d0OpRcd2(__temp52, ____temp52Size,3,__temp53); ! +! ! +! __temp54 = z2d2stdevfz0(__temp51, ____temp51Size,__temp53, ____te! +! mp53Size); ! +! ! +! ans15 = z0dispd0(__temp54); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******8*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans16 = g2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf (4 +4*%i , 5*%i )) ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp56 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp57 = d0z0OpPlusz0(4,__temp56); ! +! ! +! __temp58 = d0z0OpStarz0(5,DoubleComplex(0,1)); ! +! ! +! __temp59 = z0z0stdevfz0(__temp57,__temp58); ! +! ! +! ans17 = z0dispd0(__temp59); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("*******9*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans18 = g2dispd0(__temp60, ____temp60Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4*%i, 5+6*%i, 6], [1 2 3]*%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp61 = d0z0OpStarz0(4,DoubleComplex(0,1)); ! +! ! +! __temp62 = d0z0OpStarz0(6,DoubleComplex(0,1)); ! +! ! +! __temp63 = d0z0OpPlusz0(5,__temp62); ! +! ! +! z0z0OpRcz2(__temp61,__temp63,__temp64); ! +! ! +! z2d0OpRcz2(__temp64, ____temp64Size,6,__temp65); ! +! ! +! d0d0OpRcd2(1,2,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,3,__temp67); ! +! ! +! d2z0OpStarz2(__temp67, ____temp67Size,DoubleComplex(0,1),__temp68)! +! ; ! +! ! +! __temp69 = z2z2stdevfz0(__temp65, ____temp65Size,__temp68, ____te! +! mp68Size); ! +! ! +! ans19 = z0dispd0(__temp69); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******10*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans20 = g2dispd0(__temp70, ____temp70Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6],1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,6,__temp72); ! +! ! +! d0d0OpRcd2(7,8,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,9,__temp74); ! +! ! +! d2d2OpCcd2(__temp72, ____temp72Size,__temp74, ____temp74Size,__te! +! mp75); ! +! ! +! d2z0OpStarz2(__temp75, ____temp75Size,DoubleComplex(0,1),__temp76)! +! ; ! +! ! +! d0d0OpRcd2(1,2,__temp77); ! +! ! +! d2d0OpRcd2(__temp77, ____temp77Size,3,__temp78); ! +! ! +! d0d0OpRcd2(4,5,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,6,__temp80); ! +! ! +! d2d2OpCcd2(__temp78, ____temp78Size,__temp80, ____temp80Size,__te! +! mp81); ! +! ! +! z2d2d0stdevfz2(__temp76, ____temp76Size,__temp81, ____temp81Size,! +! 1,__temp82); ! +! ! +! ans21 = z2dispd0(__temp82, ____temp82Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******11*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans22 = g2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9], [1 4; 2 5; 3 6]*%i,2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp84); ! +! ! +! d0d0OpRcd2(5,8,__temp85); ! +! ! +! d2d2OpCcd2(__temp84, ____temp84Size,__temp85, ____temp85Size,__te! +! mp86); ! +! ! +! d0d0OpRcd2(6,9,__temp87); ! +! ! +! d2d2OpCcd2(__temp86, ____temp86Size,__temp87, ____temp87Size,__te! +! mp88); ! +! ! +! d0d0OpRcd2(1,4,__temp89); ! +! ! +! d0d0OpRcd2(2,5,__temp90); ! +! ! +! d2d2OpCcd2(__temp89, ____temp89Size,__temp90, ____temp90Size,__te! +! mp91); ! +! ! +! d0d0OpRcd2(3,6,__temp92); ! +! ! +! d2d2OpCcd2(__temp91, ____temp91Size,__temp92, ____temp92Size,__te! +! mp93); ! +! ! +! d2z0OpStarz2(__temp93, ____temp93Size,DoubleComplex(0,1),__temp94)! +! ; ! +! ! +! d2z2d0stdevfz2(__temp88, ____temp88Size,__temp94, ____temp94Size,! +! 2,__temp95); ! +! ! +! ans23 = z2dispd0(__temp95, ____temp95Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9],[1 2 3 ; 4 8 9] + [1 2 3 ;! +! 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp96); ! +! ! +! d2d0OpRcd2(__temp96, ____temp96Size,6,__temp97); ! +! ! +! d0d0OpRcd2(7,8,__temp98); ! +! ! +! d2d0OpRcd2(__temp98, ____temp98Size,9,__temp99); ! +! ! +! d2d2OpCcd2(__temp97, ____temp97Size,__temp99, ____temp99Size,__te! +! mp100); ! +! ! +! d0d0OpRcd2(1,2,__temp101); ! +! ! +! d2d0OpRcd2(__temp101, ____temp101Size,3,__temp102); ! +! ! +! d0d0OpRcd2(4,8,__temp103); ! +! ! +! d2d0OpRcd2(__temp103, ____temp103Size,9,__temp104); ! +! ! +! d2d2OpCcd2(__temp102, ____temp102Size,__temp104, ____temp104Size,! +! __temp105); ! +! ! +! d0d0OpRcd2(1,2,__temp106); ! +! ! +! d2d0OpRcd2(__temp106, ____temp106Size,3,__temp107); ! +! ! +! d0d0OpRcd2(4,5,__temp108); ! +! ! +! d2d0OpRcd2(__temp108, ____temp108Size,6,__temp109); ! +! ! +! d2d2OpCcd2(__temp107, ____temp107Size,__temp109, ____temp109Size,! +! __temp110); ! +! ! +! d2z0OpStarz2(__temp110, ____temp110Size,DoubleComplex(0,1),__temp1! +! 11); ! +! ! +! d2z2OpPlusz2(__temp105, ____temp105Size,__temp111, ____temp111Siz! +! e,__temp112); ! +! ! +! d2z2d0stdevfz2(__temp100, ____temp100Size,__temp112, ____temp112S! +! ize,1,__temp113); ! +! ! +! ans24 = z2dispd0(__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******12*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = g2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9], [1 2 3 ; 4 5 6]*%i,1)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp115); ! +! ! +! d2d0OpRcd2(__temp115, ____temp115Size,6,__temp116); ! +! ! +! d0d0OpRcd2(7,8,__temp117); ! +! ! +! d2d0OpRcd2(__temp117, ____temp117Size,9,__temp118); ! +! ! +! d2d2OpCcd2(__temp116, ____temp116Size,__temp118, ____temp118Size,! +! __temp119); ! +! ! +! d0d0OpRcd2(1,2,__temp120); ! +! ! +! d2d0OpRcd2(__temp120, ____temp120Size,3,__temp121); ! +! ! +! d0d0OpRcd2(4,5,__temp122); ! +! ! +! d2d0OpRcd2(__temp122, ____temp122Size,6,__temp123); ! +! ! +! d2d2OpCcd2(__temp121, ____temp121Size,__temp123, ____temp123Size,! +! __temp124); ! +! ! +! d2z0OpStarz2(__temp124, ____temp124Size,DoubleComplex(0,1),__temp1! +! 25); ! +! ! +! d2z2d0stdevfz2(__temp119, ____temp119Size,__temp125, ____temp125S! +! ize,1,__temp126); ! +! ! +! ans26 = z2dispd0(__temp126, ____temp126Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******13*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = g2dispd0(__temp127, ____temp127Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6],2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp128); ! +! ! +! d0d0OpRcd2(5,8,__temp129); ! +! ! +! d2d2OpCcd2(__temp128, ____temp128Size,__temp129, ____temp129Size,! +! __temp130); ! +! ! +! d0d0OpRcd2(6,9,__temp131); ! +! ! +! d2d2OpCcd2(__temp130, ____temp130Size,__temp131, ____temp131Size,! +! __temp132); ! +! ! +! d2z0OpStarz2(__temp132, ____temp132Size,DoubleComplex(0,1),__temp1! +! 33); ! +! ! +! d0d0OpRcd2(1,4,__temp134); ! +! ! +! d0d0OpRcd2(2,5,__temp135); ! +! ! +! d2d2OpCcd2(__temp134, ____temp134Size,__temp135, ____temp135Size,! +! __temp136); ! +! ! +! d0d0OpRcd2(3,6,__temp137); ! +! ! +! d2d2OpCcd2(__temp136, ____temp136Size,__temp137, ____temp137Size,! +! __temp138); ! +! ! +! z2d2d0stdevfz2(__temp133, ____temp133Size,__temp138, ____temp138S! +! ize,2,__temp139); ! +! ! +! ans28 = z2dispd0(__temp139, ____temp139Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******14*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans29 = g2dispd0(__temp140, ____temp140Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 5 6 ; 7 8 9]*%i, [1 2 3 ; 4 5 6]*%i,1));! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,5,__temp141); ! +! ! +! d2d0OpRcd2(__temp141, ____temp141Size,6,__temp142); ! +! ! +! d0d0OpRcd2(7,8,__temp143); ! +! ! +! d2d0OpRcd2(__temp143, ____temp143Size,9,__temp144); ! +! ! +! d2d2OpCcd2(__temp142, ____temp142Size,__temp144, ____temp144Size,! +! __temp145); ! +! ! +! d2z0OpStarz2(__temp145, ____temp145Size,DoubleComplex(0,1),__temp1! +! 46); ! +! ! +! d0d0OpRcd2(1,2,__temp147); ! +! ! +! d2d0OpRcd2(__temp147, ____temp147Size,3,__temp148); ! +! ! +! d0d0OpRcd2(4,5,__temp149); ! +! ! +! d2d0OpRcd2(__temp149, ____temp149Size,6,__temp150); ! +! ! +! d2d2OpCcd2(__temp148, ____temp148Size,__temp150, ____temp150Size,! +! __temp151); ! +! ! +! d2z0OpStarz2(__temp151, ____temp151Size,DoubleComplex(0,1),__temp1! +! 52); ! +! ! +! z2z2d0stdevfz2(__temp146, ____temp146Size,__temp152, ____temp152S! +! ize,1,__temp153); ! +! ! +! ans30 = z2dispd0(__temp153, ____temp153Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******15*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans31 = g2dispd0(__temp154, ____temp154Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp (stdevf ([4 7; 5 8; 6 9]*%i, [1 4; 2 5; 3 6]*%i,2));! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(4,7,__temp155); ! +! ! +! d0d0OpRcd2(5,8,__temp156); ! +! ! +! d2d2OpCcd2(__temp155, ____temp155Size,__temp156, ____temp156Size,! +! __temp157); ! +! ! +! d0d0OpRcd2(6,9,__temp158); ! +! ! +! d2d2OpCcd2(__temp157, ____temp157Size,__temp158, ____temp158Size,! +! __temp159); ! +! ! +! d2z0OpStarz2(__temp159, ____temp159Size,DoubleComplex(0,1),__temp1! +! 60); ! +! ! +! d0d0OpRcd2(1,4,__temp161); ! +! ! +! d0d0OpRcd2(2,5,__temp162); ! +! ! +! d2d2OpCcd2(__temp161, ____temp161Size,__temp162, ____temp162Size,! +! __temp163); ! +! ! +! d0d0OpRcd2(3,6,__temp164); ! +! ! +! d2d2OpCcd2(__temp163, ____temp163Size,__temp164, ____temp164Size,! +! __temp165); ! +! ! +! d2z0OpStarz2(__temp165, ____temp165Size,DoubleComplex(0,1),__temp1! +! 66); ! +! ! +! z2z2d0stdevfz2(__temp160, ____temp160Size,__temp166, ____temp166S! +! ize,2,__temp167); ! +! ! +! ans32 = z2dispd0(__temp167, ____temp167Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp ("******16*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans33 = g2dispd0(__temp168, ____temp168Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Stdevf.sci.tst b/tests/unit_tests/double/test_Stdevf.sci.tst new file mode 100644 index 0000000..54b9cd9 --- /dev/null +++ b/tests/unit_tests/double/test_Stdevf.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Stdevf.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Trace.sci b/tests/unit_tests/double/test_Trace.sci new file mode 100644 index 0000000..5fde91d --- /dev/null +++ b/tests/unit_tests/double/test_Trace.sci @@ -0,0 +1,13 @@ +function test_Trace() + + a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(trace(a)); + + b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + disp(trace(b)); + + + disp(trace(5)); + + disp(trace(%i)); +endfunction diff --git a/tests/unit_tests/double/test_Trace.sci.dia.ref b/tests/unit_tests/double/test_Trace.sci.dia.ref new file mode 100644 index 0000000..0c2b972 --- /dev/null +++ b/tests/unit_tests/double/test_Trace.sci.dia.ref @@ -0,0 +1,670 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Trace.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 6.1415927 + + 6.1415927i + + 5. + + i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Trace" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Trace/test_Trace_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Trace/test_Trace_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [1 2 3; 4 %pi 5; 4.5 -3 2]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(trace(a)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(trace(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(trace(5)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(trace(%i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Trace() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp5[2 * 3]; ! +! ! +! int ____temp5Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[3 * 3]; ! +! ! +! int __aSize[2] = {3, 3};; ! +! ! +! ! +! ! +! double __temp8; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp9[1 * 2]; ! +! ! +! int ____temp9Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp11[1 * 2]; ! +! ! +! int ____temp11Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp12[1 * 3]; ! +! ! +! int ____temp12Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp13[2 * 3]; ! +! ! +! int ____temp13Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp15[1 * 3]; ! +! ! +! int ____temp15Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp16[3 * 3]; ! +! ! +! int ____temp16Size[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex b[3 * 3]; ! +! ! +! int __bSize[2] = {3, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [1 2 3; 4 %pi 5; 4.5 -3 2]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d0d0OpRcd2(4,SCI2C_PI,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,5,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,__temp5)! +! ; ! +! ! +! d0d0OpRcd2(4.5,-3,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,2,__temp7); ! +! ! +! d2d2OpCcd2(__temp5, ____temp5Size,__temp7, ____temp7Size,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(trace(a)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = d2traced0(a, __aSize); ! +! ! +! ans1 = d0dispd0(__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = %i * [1 2 3; 4 %pi 5; 4.5 -3 2]; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,3,__temp10); ! +! ! +! d0d0OpRcd2(4,SCI2C_PI,__temp11); ! +! ! +! d2d0OpRcd2(__temp11, ____temp11Size,5,__temp12); ! +! ! +! d2d2OpCcd2(__temp10, ____temp10Size,__temp12, ____temp12Size,__te! +! mp13); ! +! ! +! d0d0OpRcd2(4.5,-3,__temp14); ! +! ! +! d2d0OpRcd2(__temp14, ____temp14Size,2,__temp15); ! +! ! +! d2d2OpCcd2(__temp13, ____temp13Size,__temp15, ____temp15Size,__te! +! mp16); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp16, ____temp16Size,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(trace(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = z2tracez0(b, __bSize); ! +! ! +! ans2 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(trace(5)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d0traced0(5); ! +! ! +! ans3 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(trace(%i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0tracez0(DoubleComplex(0,1)); ! +! ! +! ans4 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Trace.sci.tst b/tests/unit_tests/double/test_Trace.sci.tst new file mode 100644 index 0000000..b456e2c --- /dev/null +++ b/tests/unit_tests/double/test_Trace.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Trace.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_Type.sci b/tests/unit_tests/double/test_Type.sci new file mode 100644 index 0000000..093f458 --- /dev/null +++ b/tests/unit_tests/double/test_Type.sci @@ -0,0 +1,8 @@ +function test_Type() + + disp(type(%pi)); + disp(type(%pi + %i)); + disp(type([%pi 4])); + disp(type([%pi %i])); + +endfunction diff --git a/tests/unit_tests/double/test_Type.sci.dia.ref b/tests/unit_tests/double/test_Type.sci.dia.ref new file mode 100644 index 0000000..3559470 --- /dev/null +++ b/tests/unit_tests/double/test_Type.sci.dia.ref @@ -0,0 +1,463 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Type.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 1. + + 1. + + 1. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_Type" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Type/test_Type_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_Type/test_Type_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(type(%pi)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(type(%pi + %i)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(type([%pi 4])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(type([%pi %i])); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_Type() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! double __temp3; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(type(%pi)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0typed0(SCI2C_PI); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(type(%pi + %i)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = d0z0OpPlusz0(SCI2C_PI,DoubleComplex(0,1)); ! +! ! +! __temp3 = z0typed0(__temp2); ! +! ! +! ans2 = d0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(type([%pi 4])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(SCI2C_PI,4,__temp4); ! +! ! +! __temp5 = d2typed0(__temp4, ____temp4Size); ! +! ! +! ans3 = d0dispd0(__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(type([%pi %i])); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z0OpRcz2(SCI2C_PI,DoubleComplex(0,1),__temp6); ! +! ! +! __temp7 = z2typed0(__temp6, ____temp6Size); ! +! ! +! ans4 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_Type.sci.tst b/tests/unit_tests/double/test_Type.sci.tst new file mode 100644 index 0000000..c25999d --- /dev/null +++ b/tests/unit_tests/double/test_Type.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_Type.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_abs.sci b/tests/unit_tests/double/test_abs.sci new file mode 100644 index 0000000..ad82087 --- /dev/null +++ b/tests/unit_tests/double/test_abs.sci @@ -0,0 +1,11 @@ +function test_abs() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(abs(d0)) + disp(abs(z0)) + disp(abs(d2)) + disp(abs(z2)) +endfunction diff --git a/tests/unit_tests/double/test_abs.sci.dia.ref b/tests/unit_tests/double/test_abs.sci.dia.ref new file mode 100644 index 0000000..a19109b --- /dev/null +++ b/tests/unit_tests/double/test_abs.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_abs.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 4.4428829 + + 1. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + 1.4142136 2.8284271 4.2426407 5.6568542 + 7.0710678 8.4852814 9.8994949 11.313708 + 12.727922 14.142136 15.556349 16.970563 + 18.384776 19.79899 21.213203 22.627417 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_abs" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_abs/test_abs_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_abs/test_abs_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(abs(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(abs(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(abs(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(abs(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_abs() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(abs(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0absd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(abs(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0absd0(z0); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(abs(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2absd2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(abs(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2absd2(z2, __z2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_abs.sci.tst b/tests/unit_tests/double/test_abs.sci.tst new file mode 100644 index 0000000..7e2defd --- /dev/null +++ b/tests/unit_tests/double/test_abs.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_abs.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_acos.sci b/tests/unit_tests/double/test_acos.sci new file mode 100644 index 0000000..7d70675 --- /dev/null +++ b/tests/unit_tests/double/test_acos.sci @@ -0,0 +1,11 @@ +function test_acos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + acos(d0); + acos(d2); + acos(z0); + acos(z2); +endfunction diff --git a/tests/unit_tests/double/test_acos.sci.dia.ref b/tests/unit_tests/double/test_acos.sci.dia.ref new file mode 100644 index 0000000..a255bab --- /dev/null +++ b/tests/unit_tests/double/test_acos.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_acos.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_acos" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_acos/test_acos_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_acos/test_acos_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: acos(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: acos(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: acos(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: acos(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_acos() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: acos(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0acosd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: acos(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2acosd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: acos(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0acosz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: acos(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2acosz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_acos.sci.tst b/tests/unit_tests/double/test_acos.sci.tst new file mode 100644 index 0000000..43bbba4 --- /dev/null +++ b/tests/unit_tests/double/test_acos.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_acos.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_acosh.sci b/tests/unit_tests/double/test_acosh.sci new file mode 100644 index 0000000..a491720 --- /dev/null +++ b/tests/unit_tests/double/test_acosh.sci @@ -0,0 +1,11 @@ +function test_acosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(acosh(d0)); + disp(acosh(d2)); + disp(acosh(z0)); + disp(acosh(z2)); +endfunction diff --git a/tests/unit_tests/double/test_acosh.sci.dia.ref b/tests/unit_tests/double/test_acosh.sci.dia.ref new file mode 100644 index 0000000..04253e5 --- /dev/null +++ b/tests/unit_tests/double/test_acosh.sci.dia.ref @@ -0,0 +1,671 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_acosh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.8115263 + + 0. 1.3169579 1.7627472 2.0634371 + 2.0634371 2.2924317 2.4778887 2.7686594 + 2.887271 2.9932228 3.0889699 3.1763132 + 3.256614 3.3309266 3.4000844 3.4647579 + + 2.184691 + 0.7980565i + + + column 1 to 2 + + 1.0612751 + 0.9045569i 1.7343245 + 0.8165472i + 2.4261067 + 0.7932091i 2.6491962 + 0.7903977i + 3.2369489 + 0.7869414i 3.3423082 + 0.7866482i + 3.6046709 + 0.7861378i 3.6787787 + 0.7860359i + + column 3 to 4 + + 2.1386221 + 0.7992781i 2.4261067 + 0.7932091i + 2.8314983 + 0.7888702i 3.119168 + 0.7873513i + 3.4376176 + 0.7864312i 3.5246286 + 0.7862662i + 3.7477714 + 0.7859537i 3.8123099 + 0.7858864i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_acosh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_acosh/test_acosh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_acosh/test_acosh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(acosh(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(acosh(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(acosh(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(acosh(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_acosh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(acosh(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0acoshd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(acosh(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2acoshd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(acosh(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0acoshz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(acosh(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2acoshz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_acosh.sci.tst b/tests/unit_tests/double/test_acosh.sci.tst new file mode 100644 index 0000000..12e0137 --- /dev/null +++ b/tests/unit_tests/double/test_acosh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_acosh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_asin.sci b/tests/unit_tests/double/test_asin.sci new file mode 100644 index 0000000..371af42 --- /dev/null +++ b/tests/unit_tests/double/test_asin.sci @@ -0,0 +1,11 @@ +function test_asin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(asin(d0)); + disp(asin(d2)); + disp(asin(z0)); + disp(asin(z2)); +endfunction diff --git a/tests/unit_tests/double/test_asin.sci.dia.ref b/tests/unit_tests/double/test_asin.sci.dia.ref new file mode 100644 index 0000000..4bbfc5f --- /dev/null +++ b/tests/unit_tests/double/test_asin.sci.dia.ref @@ -0,0 +1,681 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_asin.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.5707963 + 1.8115263i + + + column 1 to 2 + + 1.5707963 1.5707963 + 1.3169579i + 1.5707963 + 2.0634371i 1.5707963 + 2.2924317i + 1.5707963 + 2.887271i 1.5707963 + 2.9932228i + 1.5707963 + 3.256614i 1.5707963 + 3.3309266i + + column 3 to 4 + + 1.5707963 + 1.7627472i 1.5707963 + 2.0634371i + 1.5707963 + 2.4778887i 1.5707963 + 2.7686594i + 1.5707963 + 3.0889699i 1.5707963 + 3.1763132i + 1.5707963 + 3.4000844i 1.5707963 + 3.4647579i + + 0.7727398 + 2.184691i + + + column 1 to 2 + + 0.6662394 + 1.0612751i 0.7542491 + 1.7343245i + 0.7775873 + 2.4261067i 0.7803986 + 2.6491962i + 0.7838550 + 3.2369489i 0.7841482 + 3.3423082i + 0.7846585 + 3.6046709i 0.7847604 + 3.6787787i + + column 3 to 4 + + 0.7715182 + 2.1386221i 0.7775873 + 2.4261067i + 0.7819261 + 2.8314983i 0.7834451 + 3.119168i + 0.7843651 + 3.4376176i 0.7845301 + 3.5246286i + 0.7848426 + 3.7477714i 0.7849099 + 3.8123099i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_asin" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_asin/test_asin_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_asin/test_asin_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(asin(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(asin(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(asin(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(asin(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_asin() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(asin(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0asind0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(asin(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2asind2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(asin(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0asinz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(asin(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2asinz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_asin.sci.tst b/tests/unit_tests/double/test_asin.sci.tst new file mode 100644 index 0000000..c87ff1b --- /dev/null +++ b/tests/unit_tests/double/test_asin.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_asin.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_asinh.sci b/tests/unit_tests/double/test_asinh.sci new file mode 100644 index 0000000..d7c152d --- /dev/null +++ b/tests/unit_tests/double/test_asinh.sci @@ -0,0 +1,11 @@ +function test_asinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + asinh(d0); + asinh(d2); + asinh(z0); + asinh(z2); +endfunction diff --git a/tests/unit_tests/double/test_asinh.sci.dia.ref b/tests/unit_tests/double/test_asinh.sci.dia.ref new file mode 100644 index 0000000..821ca9e --- /dev/null +++ b/tests/unit_tests/double/test_asinh.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_asinh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_asinh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_asinh/test_asinh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_asinh/test_asinh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: asinh(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: asinh(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: asinh(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: asinh(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_asinh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: asinh(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0asinhd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: asinh(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2asinhd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: asinh(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0asinhz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: asinh(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2asinhz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_asinh.sci.tst b/tests/unit_tests/double/test_asinh.sci.tst new file mode 100644 index 0000000..67098ec --- /dev/null +++ b/tests/unit_tests/double/test_asinh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_asinh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_atan.sci b/tests/unit_tests/double/test_atan.sci new file mode 100644 index 0000000..9f30943 --- /dev/null +++ b/tests/unit_tests/double/test_atan.sci @@ -0,0 +1,14 @@ +function test_atan() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atan(d0)); + disp(atan(d2)); + disp(atan(z0)); + disp(atan(z2)); + + disp(atan(d0,d0)); + disp(atan(d2,d2)); +endfunction diff --git a/tests/unit_tests/double/test_atan.sci.dia.ref b/tests/unit_tests/double/test_atan.sci.dia.ref new file mode 100644 index 0000000..1878019 --- /dev/null +++ b/tests/unit_tests/double/test_atan.sci.dia.ref @@ -0,0 +1,758 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_atan.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.2626273 + + 0.7853982 1.1071487 1.2490458 1.3258177 + 1.3258177 1.3734008 1.4056476 1.4464413 + 1.4601391 1.4711277 1.4801364 1.4876551 + 1.4940244 1.4994889 1.5042282 1.5083775 + + 1.4090383 + 0.1563887i + + + column 1 to 2 + + 1.017222 + 0.4023595i 1.3112233 + 0.2388779i + 1.4445192 + 0.1236741i 1.4701378 + 0.0993254i + 1.5151269 + 0.0554408i 1.5207132 + 0.0499164i + 1.5322969 + 0.0384235i 1.5350517 + 0.0356839i + + column 3 to 4 + + 1.40115 + 0.1634816i 1.4445192 + 0.1236741i + 1.4870804 + 0.0829443i 1.5081343 + 0.0623365i + 1.5252793 + 0.0453918i 1.5290815 + 0.0416183i + 1.5374383 + 0.0333086i 1.539526 + 0.0312296i + + 0.7853982 + + 0.7853982 0.7853982 0.7853982 0.7853982 + 0.7853982 0.7853982 0.7853982 0.7853982 + 0.7853982 0.7853982 0.7853982 0.7853982 + 0.7853982 0.7853982 0.7853982 0.7853982 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_atan" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_atan/test_atan_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_atan/test_atan_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(d0,d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atan(d2,d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_atan() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0atand0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2atand2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0atanz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2atanz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(d0,d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0atand0(d0,d0); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atan(d2,d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d2atand2(d2, __d2Size,d2, __d2Size,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_atan.sci.tst b/tests/unit_tests/double/test_atan.sci.tst new file mode 100644 index 0000000..7adecd1 --- /dev/null +++ b/tests/unit_tests/double/test_atan.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_atan.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_atanh.sci b/tests/unit_tests/double/test_atanh.sci new file mode 100644 index 0000000..eb163a1 --- /dev/null +++ b/tests/unit_tests/double/test_atanh.sci @@ -0,0 +1,11 @@ +function test_atanh() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(atanh(d0)); + disp(atanh(d2)); + disp(atanh(z0)); + disp(atanh(z2)); +endfunction diff --git a/tests/unit_tests/double/test_atanh.sci.dia.ref b/tests/unit_tests/double/test_atanh.sci.dia.ref new file mode 100644 index 0000000..ed859a8 --- /dev/null +++ b/tests/unit_tests/double/test_atanh.sci.dia.ref @@ -0,0 +1,681 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_atanh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0.3297653 - 1.5707963i + + + column 1 to 2 + + 0.5493061 - 1.5707963i 0.5493061 - 1.5707963i + 0.2554128 - 1.5707963i 0.2027326 - 1.5707963i + 0.1115718 - 1.5707963i 0.1003353 - 1.5707963i + 0.0770753 - 1.5707963i 0.0715504 - 1.5707963i + + column 3 to 4 + + 0.3465736 - 1.5707963i 0.2554128 - 1.5707963i + 0.1682361 - 1.5707963i 0.1256572 - 1.5707963i + 0.0911608 - 1.5707963i 0.0835270 - 1.5707963i + 0.0667657 - 1.5707963i 0.0625816 - 1.5707963i + + 0.1563887 + 1.4090383i + + + column 1 to 2 + + 0.2388779 + 1.3112233i 0.2388779 + 1.3112233i + 0.1236741 + 1.4445192i 0.0993254 + 1.4701378i + 0.0554408 + 1.5151269i 0.0499164 + 1.5207132i + 0.0384235 + 1.5322969i 0.0356839 + 1.5350517i + + column 3 to 4 + + 0.1634816 + 1.40115i 0.1236741 + 1.4445192i + 0.0829443 + 1.4870804i 0.0623365 + 1.5081343i + 0.0453918 + 1.5252793i 0.0416183 + 1.5290815i + 0.0333086 + 1.5374383i 0.0312296 + 1.539526i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_atanh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_atanh/test_atanh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_atanh/test_atanh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atanh(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atanh(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atanh(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(atanh(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_atanh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atanh(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0atanhd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atanh(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2atanhd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atanh(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0atanhz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(atanh(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2atanhz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_atanh.sci.tst b/tests/unit_tests/double/test_atanh.sci.tst new file mode 100644 index 0000000..c15ae27 --- /dev/null +++ b/tests/unit_tests/double/test_atanh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_atanh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_ceil.sci b/tests/unit_tests/double/test_ceil.sci new file mode 100644 index 0000000..f8c31cc --- /dev/null +++ b/tests/unit_tests/double/test_ceil.sci @@ -0,0 +1,11 @@ +function test_ceil() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + ceil(d0); + ceil(d2); + ceil(z0); + ceil(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_ceil.sci.dia.ref b/tests/unit_tests/double/test_ceil.sci.dia.ref new file mode 100644 index 0000000..d742ed9 --- /dev/null +++ b/tests/unit_tests/double/test_ceil.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_ceil.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_ceil" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_ceil/test_ceil_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_ceil/test_ceil_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ceil(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ceil(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ceil(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ceil(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_ceil() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ceil(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0ceild0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ceil(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ceild2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ceil(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0ceilz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ceil(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ceilz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_ceil.sci.tst b/tests/unit_tests/double/test_ceil.sci.tst new file mode 100644 index 0000000..da75d85 --- /dev/null +++ b/tests/unit_tests/double/test_ceil.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_ceil.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_chol.sci b/tests/unit_tests/double/test_chol.sci new file mode 100644 index 0000000..7720af0 --- /dev/null +++ b/tests/unit_tests/double/test_chol.sci @@ -0,0 +1,11 @@ +function test_chol() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(chol(d0)); + disp(chol(d2*d2')); + disp(chol(z0)); + disp(chol(z2*z2')); +endfunction diff --git a/tests/unit_tests/double/test_chol.sci.dia.ref b/tests/unit_tests/double/test_chol.sci.dia.ref new file mode 100644 index 0000000..fb1f492 --- /dev/null +++ b/tests/unit_tests/double/test_chol.sci.dia.ref @@ -0,0 +1,693 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_chol.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.7724539 + + 5.4772256 11.684748 20.08316 27.386128 + 0. 2.113449 6.308803 9.4632045 + 0. 0. 1.6928295 2.5392442 + 0. 0. 0. 0.0000003 + + 1.7724539 + + 7.7459667 16.524729 28.401878 38.729833 + 0 2.9888682 8.9219947 13.382992 + 0 0 2.3940224 3.5910336 + 0 0 0 0.0000004 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_chol" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_chol/test_chol_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_chol/test_chol_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(chol(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(chol(d2*d2')); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(chol(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(chol(z2*z2')); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_chol() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp21; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(chol(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0chold0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(chol(d2*d2')); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2OpApexd2(d2, __d2Size,__temp18); ! +! ! +! d2d2OpStard2(d2, __d2Size,__temp18, ____temp18Size,__temp19); ! +! ! +! d2chold2(__temp19, ____temp19Size,__temp20); ! +! ! +! ans2 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(chol(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = z0cholz0(z0); ! +! ! +! ans3 = z0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(chol(z2*z2')); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2OpApexz2(z2, __z2Size,__temp22); ! +! ! +! z2z2OpStarz2(z2, __z2Size,__temp22, ____temp22Size,__temp23); ! +! ! +! z2cholz2(__temp23, ____temp23Size,__temp24); ! +! ! +! ans4 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_chol.sci.tst b/tests/unit_tests/double/test_chol.sci.tst new file mode 100644 index 0000000..8adfc44 --- /dev/null +++ b/tests/unit_tests/double/test_chol.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_chol.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_conj.sci b/tests/unit_tests/double/test_conj.sci new file mode 100644 index 0000000..839d4c2 --- /dev/null +++ b/tests/unit_tests/double/test_conj.sci @@ -0,0 +1,11 @@ +function test_conj() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + conj(d0); + conj(d2); + conj(z0); + conj(z2); +endfunction diff --git a/tests/unit_tests/double/test_conj.sci.dia.ref b/tests/unit_tests/double/test_conj.sci.dia.ref new file mode 100644 index 0000000..54686b9 --- /dev/null +++ b/tests/unit_tests/double/test_conj.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_conj.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_conj" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_conj/test_conj_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_conj/test_conj_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: conj(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: conj(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: conj(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: conj(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_conj() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: conj(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0conjd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: conj(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2conjd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: conj(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0conjz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: conj(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2conjz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_conj.sci.tst b/tests/unit_tests/double/test_conj.sci.tst new file mode 100644 index 0000000..b5fb2d1 --- /dev/null +++ b/tests/unit_tests/double/test_conj.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_conj.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_cos.sci b/tests/unit_tests/double/test_cos.sci new file mode 100644 index 0000000..16ce91d --- /dev/null +++ b/tests/unit_tests/double/test_cos.sci @@ -0,0 +1,11 @@ +function test_cos() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cos(d0); + cos(d2); + cos(z0); + cos(z2); +endfunction diff --git a/tests/unit_tests/double/test_cos.sci.dia.ref b/tests/unit_tests/double/test_cos.sci.dia.ref new file mode 100644 index 0000000..dc4d392 --- /dev/null +++ b/tests/unit_tests/double/test_cos.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_cos.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_cos" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_cos/test_cos_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_cos/test_cos_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cos(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cos(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cos(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cos(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_cos() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cos(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0cosd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cos(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2cosd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cos(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0cosz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cos(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2cosz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_cos.sci.tst b/tests/unit_tests/double/test_cos.sci.tst new file mode 100644 index 0000000..643c04a --- /dev/null +++ b/tests/unit_tests/double/test_cos.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_cos.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_cosh.sci b/tests/unit_tests/double/test_cosh.sci new file mode 100644 index 0000000..92512be --- /dev/null +++ b/tests/unit_tests/double/test_cosh.sci @@ -0,0 +1,11 @@ +function test_cosh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + cosh(d0); + cosh(d2); + cosh(z0); + cosh(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_cosh.sci.dia.ref b/tests/unit_tests/double/test_cosh.sci.dia.ref new file mode 100644 index 0000000..df5d004 --- /dev/null +++ b/tests/unit_tests/double/test_cosh.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_cosh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_cosh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_cosh/test_cosh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_cosh/test_cosh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cosh(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cosh(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cosh(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cosh(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_cosh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cosh(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0coshd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cosh(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2coshd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cosh(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0coshz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cosh(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2coshz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_cosh.sci.tst b/tests/unit_tests/double/test_cosh.sci.tst new file mode 100644 index 0000000..84581d4 --- /dev/null +++ b/tests/unit_tests/double/test_cosh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_cosh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_exp.sci b/tests/unit_tests/double/test_exp.sci new file mode 100644 index 0000000..35fad91 --- /dev/null +++ b/tests/unit_tests/double/test_exp.sci @@ -0,0 +1,11 @@ +function test_exp() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + exp(d0); + exp(d2); + exp(z0); + exp(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_exp.sci.dia.ref b/tests/unit_tests/double/test_exp.sci.dia.ref new file mode 100644 index 0000000..228956b --- /dev/null +++ b/tests/unit_tests/double/test_exp.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_exp.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_exp" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_exp/test_exp_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_exp/test_exp_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: exp(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: exp(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: exp(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: exp(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_exp() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: exp(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0expd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: exp(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2expd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: exp(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0expz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: exp(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2expz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_exp.sci.tst b/tests/unit_tests/double/test_exp.sci.tst new file mode 100644 index 0000000..fdbb58b --- /dev/null +++ b/tests/unit_tests/double/test_exp.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_exp.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_eye.sci b/tests/unit_tests/double/test_eye.sci new file mode 100644 index 0000000..1241e86 --- /dev/null +++ b/tests/unit_tests/double/test_eye.sci @@ -0,0 +1,14 @@ +function test_eye() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(eye(d0)) + disp(eye(z0)) + disp(eye(d2)) + disp(eye(z2)) + //disp(eye(0,0)) // ! sci2c does not manage [] ! + disp(eye(1,1)) + disp(eye(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_eye.sci.dia.ref b/tests/unit_tests/double/test_eye.sci.dia.ref new file mode 100644 index 0000000..3a8bcae --- /dev/null +++ b/tests/unit_tests/double/test_eye.sci.dia.ref @@ -0,0 +1,747 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_eye.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 1. + + 1. 0. 0. 0. + 0. 1. 0. 0. + 0. 0. 1. 0. + 0. 0. 0. 1. + + 1. 0. 0. 0. + 0. 1. 0. 0. + 0. 0. 1. 0. + 0. 0. 0. 1. + + 1. + + 1. 0. 0. + 0. 1. 0. + 0. 0. 1. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_eye" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_eye/test_eye_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_eye/test_eye_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(eye(0,0)) // ! sci2c does not manage [] ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(1,1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(eye(d0,d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_eye() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[3 * 3]; ! +! ! +! int ____temp22Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0eyed0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0eyez0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2eyed2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2eyez2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(eye(0,0)) // ! sci2c does not manage [] ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(1,1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0eyed0(1,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(eye(d0,d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0eyed2(d0,d0,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_eye.sci.tst b/tests/unit_tests/double/test_eye.sci.tst new file mode 100644 index 0000000..f6f2322 --- /dev/null +++ b/tests/unit_tests/double/test_eye.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_eye.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_fix.sci b/tests/unit_tests/double/test_fix.sci new file mode 100644 index 0000000..d484c43 --- /dev/null +++ b/tests/unit_tests/double/test_fix.sci @@ -0,0 +1,11 @@ +function test_fix() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + fix(d0); + fix(d2); + fix(z0); + fix(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_fix.sci.dia.ref b/tests/unit_tests/double/test_fix.sci.dia.ref new file mode 100644 index 0000000..8eba763 --- /dev/null +++ b/tests/unit_tests/double/test_fix.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_fix.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_fix" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_fix/test_fix_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_fix/test_fix_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: fix(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: fix(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: fix(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: fix(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_fix() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: fix(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0fixd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: fix(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2fixd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: fix(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0fixz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: fix(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2fixz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_fix.sci.tst b/tests/unit_tests/double/test_fix.sci.tst new file mode 100644 index 0000000..cd7ca47 --- /dev/null +++ b/tests/unit_tests/double/test_fix.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_fix.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_floor.sci b/tests/unit_tests/double/test_floor.sci new file mode 100644 index 0000000..d9bbc8d --- /dev/null +++ b/tests/unit_tests/double/test_floor.sci @@ -0,0 +1,11 @@ +function test_floor() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + floor(d0); + floor(d2); + floor(z0); + floor(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_floor.sci.dia.ref b/tests/unit_tests/double/test_floor.sci.dia.ref new file mode 100644 index 0000000..5f4beec --- /dev/null +++ b/tests/unit_tests/double/test_floor.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_floor.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_floor" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_floor/test_floor_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_floor/test_floor_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: floor(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: floor(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: floor(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: floor(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_floor() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: floor(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0floord0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: floor(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2floord2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: floor(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0floorz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: floor(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2floorz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_floor.sci.tst b/tests/unit_tests/double/test_floor.sci.tst new file mode 100644 index 0000000..e0fddf0 --- /dev/null +++ b/tests/unit_tests/double/test_floor.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_floor.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_imag.sci b/tests/unit_tests/double/test_imag.sci new file mode 100644 index 0000000..b89fec2 --- /dev/null +++ b/tests/unit_tests/double/test_imag.sci @@ -0,0 +1,11 @@ +function test_imag() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(imag(d0)) + disp(imag(z0)) + disp(imag(d2)) + disp(imag(z2)) +endfunction diff --git a/tests/unit_tests/double/test_imag.sci.dia.ref b/tests/unit_tests/double/test_imag.sci.dia.ref new file mode 100644 index 0000000..2231b94 --- /dev/null +++ b/tests/unit_tests/double/test_imag.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_imag.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. + + 3.1415927 + + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + + 1. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_imag" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_imag/test_imag_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_imag/test_imag_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(imag(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(imag(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(imag(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(imag(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_imag() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(imag(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0imagd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(imag(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0imagd0(z0); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(imag(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2imagd2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(imag(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2imagd2(z2, __z2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_imag.sci.tst b/tests/unit_tests/double/test_imag.sci.tst new file mode 100644 index 0000000..b5e106a --- /dev/null +++ b/tests/unit_tests/double/test_imag.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_imag.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_int.sci b/tests/unit_tests/double/test_int.sci new file mode 100644 index 0000000..9afdb3c --- /dev/null +++ b/tests/unit_tests/double/test_int.sci @@ -0,0 +1,11 @@ +function test_int() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + int(d0); + int(d2); + int(z0); + int(z2); +endfunction diff --git a/tests/unit_tests/double/test_int.sci.dia.ref b/tests/unit_tests/double/test_int.sci.dia.ref new file mode 100644 index 0000000..2dc5b0d --- /dev/null +++ b/tests/unit_tests/double/test_int.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_int.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_int" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_int/test_int_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_int/test_int_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: int(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: int(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: int(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: int(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_int() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: int(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0intd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: int(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2intd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: int(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0intz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: int(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2intz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_int.sci.tst b/tests/unit_tests/double/test_int.sci.tst new file mode 100644 index 0000000..45a0169 --- /dev/null +++ b/tests/unit_tests/double/test_int.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_int.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_inv.sci b/tests/unit_tests/double/test_inv.sci new file mode 100644 index 0000000..020c182 --- /dev/null +++ b/tests/unit_tests/double/test_inv.sci @@ -0,0 +1,11 @@ +function test_inv() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + inv(d0); + inv(d2); + inv(z0); + inv(z2); +endfunction diff --git a/tests/unit_tests/double/test_inv.sci.dia.ref b/tests/unit_tests/double/test_inv.sci.dia.ref new file mode 100644 index 0000000..82c4c52 --- /dev/null +++ b/tests/unit_tests/double/test_inv.sci.dia.ref @@ -0,0 +1,629 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_inv.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- +Warning : +matrix is close to singular or badly scaled. rcond = 1.8293D-38 + +Warning : +matrix is close to singular or badly scaled. rcond = 1.1102D-17 + + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_inv" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_inv/test_inv_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_inv/test_inv_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: inv(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: inv(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: inv(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: inv(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_inv() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: inv(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0invd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: inv(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2invd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: inv(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0invz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: inv(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2invz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_inv.sci.tst b/tests/unit_tests/double/test_inv.sci.tst new file mode 100644 index 0000000..66b4fd2 --- /dev/null +++ b/tests/unit_tests/double/test_inv.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_inv.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_isnan.sci b/tests/unit_tests/double/test_isnan.sci new file mode 100644 index 0000000..e037056 --- /dev/null +++ b/tests/unit_tests/double/test_isnan.sci @@ -0,0 +1,11 @@ +function test_isnan() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(isnan(d0)) + disp(isnan(d2)) + disp(isnan(z0)) + disp(isnan(z2)) +endfunction diff --git a/tests/unit_tests/double/test_isnan.sci.dia.ref b/tests/unit_tests/double/test_isnan.sci.dia.ref new file mode 100644 index 0000000..e12db38 --- /dev/null +++ b/tests/unit_tests/double/test_isnan.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_isnan.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + F + + F F F F + F F F F + F F F F + F F F F + + F + + F F F F + F F F F + F F F F + F F F F + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_isnan" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_isnan/test_isnan_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_isnan/test_isnan_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(isnan(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(isnan(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(isnan(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(isnan(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_isnan() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(isnan(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0isnand0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(isnan(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2isnand2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(isnan(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0isnand0(z0); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(isnan(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2isnand2(z2, __z2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_isnan.sci.tst b/tests/unit_tests/double/test_isnan.sci.tst new file mode 100644 index 0000000..6fe4c06 --- /dev/null +++ b/tests/unit_tests/double/test_isnan.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_isnan.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_log.sci b/tests/unit_tests/double/test_log.sci new file mode 100644 index 0000000..d396789 --- /dev/null +++ b/tests/unit_tests/double/test_log.sci @@ -0,0 +1,11 @@ +function test_log() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log(d0)); + disp(log(d2)); + disp(log(z0)); + disp(log(z2)); +endfunction diff --git a/tests/unit_tests/double/test_log.sci.dia.ref b/tests/unit_tests/double/test_log.sci.dia.ref new file mode 100644 index 0000000..2441352 --- /dev/null +++ b/tests/unit_tests/double/test_log.sci.dia.ref @@ -0,0 +1,671 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.1447299 + + 0. 0.6931472 1.0986123 1.3862944 + 1.3862944 1.6094379 1.7917595 2.0794415 + 2.1972246 2.3025851 2.3978953 2.4849066 + 2.5649494 2.6390573 2.7080502 2.7725887 + + 1.4913035 + 0.7853982i + + + column 1 to 2 + + 0.3465736 + 0.7853982i 1.0397208 + 0.7853982i + 1.732868 + 0.7853982i 1.9560115 + 0.7853982i + 2.5437982 + 0.7853982i 2.6491587 + 0.7853982i + 2.9115229 + 0.7853982i 2.9856309 + 0.7853982i + + column 3 to 4 + + 1.4451859 + 0.7853982i 1.732868 + 0.7853982i + 2.1383331 + 0.7853982i 2.4260151 + 0.7853982i + 2.7444689 + 0.7853982i 2.8314802 + 0.7853982i + 3.0546238 + 0.7853982i 3.1191623 + 0.7853982i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_log" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log/test_log_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log/test_log_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_log() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0logd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2logd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0logz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2logz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_log.sci.tst b/tests/unit_tests/double/test_log.sci.tst new file mode 100644 index 0000000..4a0332e --- /dev/null +++ b/tests/unit_tests/double/test_log.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_log10.sci b/tests/unit_tests/double/test_log10.sci new file mode 100644 index 0000000..e4ef7b6 --- /dev/null +++ b/tests/unit_tests/double/test_log10.sci @@ -0,0 +1,11 @@ + function test_log10() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log10(d0)); + disp(log10(d2)); + disp(log10(z0)); + disp(log10(z2)); + endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_log10.sci.dia.ref b/tests/unit_tests/double/test_log10.sci.dia.ref new file mode 100644 index 0000000..b22b0de --- /dev/null +++ b/tests/unit_tests/double/test_log10.sci.dia.ref @@ -0,0 +1,671 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log10.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0.4971499 + + 0. 0.30103 0.4771213 0.6020600 + 0.6020600 0.69897 0.7781513 0.9030900 + 0.9542425 1. 1.0413927 1.0791812 + 1.1139434 1.146128 1.1760913 1.20412 + + 0.6476649 + 0.3410941i + + + column 1 to 2 + + 0.150515 + 0.3410941i 0.4515450 + 0.3410941i + 0.7525750 + 0.3410941i 0.849485 + 0.3410941i + 1.1047575 + 0.3410941i 1.150515 + 0.3410941i + 1.2644584 + 0.3410941i 1.296643 + 0.3410941i + + column 3 to 4 + + 0.6276363 + 0.3410941i 0.7525750 + 0.3410941i + 0.9286662 + 0.3410941i 1.053605 + 0.3410941i + 1.1919077 + 0.3410941i 1.2296962 + 0.3410941i + 1.3266063 + 0.3410941i 1.354635 + 0.3410941i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_log10" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log10/test_log10_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log10/test_log10_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log10(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log10(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log10(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log10(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_log10() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log10(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0log10d0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log10(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2log10d2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log10(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0log10z0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log10(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2log10z2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_log10.sci.tst b/tests/unit_tests/double/test_log10.sci.tst new file mode 100644 index 0000000..3988cef --- /dev/null +++ b/tests/unit_tests/double/test_log10.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log10.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_log1p.sci b/tests/unit_tests/double/test_log1p.sci new file mode 100644 index 0000000..cf02842 --- /dev/null +++ b/tests/unit_tests/double/test_log1p.sci @@ -0,0 +1,12 @@ +function test_log1p() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(log1p(d0)); + disp(log1p(d2)); + //disp(log1p(z0)); // ! Not Implemented in Scilab ! + //disp(log1p(z2)); // ! Not Implemented in Scilab ! + +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_log1p.sci.dia.ref b/tests/unit_tests/double/test_log1p.sci.dia.ref new file mode 100644 index 0000000..4e008c7 --- /dev/null +++ b/tests/unit_tests/double/test_log1p.sci.dia.ref @@ -0,0 +1,646 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log1p.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.4210804 + + 0.6931472 1.0986123 1.3862944 1.6094379 + 1.6094379 1.7917595 1.9459101 2.1972246 + 2.3025851 2.3978953 2.4849066 2.5649494 + 2.6390573 2.7080502 2.7725887 2.8332133 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_log1p" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log1p/test_log1p_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_log1p/test_log1p_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log1p(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(log1p(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(log1p(z0)); // ! Not Implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(log1p(z2)); // ! Not Implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_log1p() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log1p(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0log1pd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(log1p(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2log1pd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(log1p(z0)); // ! Not Implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(log1p(z2)); // ! Not Implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_log1p.sci.tst b/tests/unit_tests/double/test_log1p.sci.tst new file mode 100644 index 0000000..46dfedc --- /dev/null +++ b/tests/unit_tests/double/test_log1p.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_log1p.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_max.sci b/tests/unit_tests/double/test_max.sci new file mode 100644 index 0000000..ab601f1 --- /dev/null +++ b/tests/unit_tests/double/test_max.sci @@ -0,0 +1,32 @@ +function test_max() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(max(d0)) + //disp(max(z0)) + disp(max(d2)) + //disp(max(z2)) + + disp(max(d0, 1)) + //disp(max(z0, 1)) + disp(max(d2, 1)) + //disp(max(z2, 1)) + + disp(max(d0, 2)) + //disp(max(z0, 2)) + disp(max(d2, 2)) + //disp(max(z2, 2)) + +// disp(max(d0, 'r')) +// disp(max(z0, 'r')) +// disp(max(d2, 'r')) +// disp(max(z2, 'r')) + +// disp(max(d0, 'c')) +// disp(max(z0, 'c')) +// disp(max(d2, 'c')) +// disp(max(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/double/test_max.sci.dia.ref b/tests/unit_tests/double/test_max.sci.dia.ref new file mode 100644 index 0000000..13639a7 --- /dev/null +++ b/tests/unit_tests/double/test_max.sci.dia.ref @@ -0,0 +1,1067 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_max.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 16. + + 3.1415927 + + 1. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + 3.1415927 + + 2. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_max" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_max/test_max_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_max/test_max_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(max(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(max(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(max(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_max() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0maxd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d2maxd0(d2, __d2Size); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0d0maxd0(d0,1); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0maxd2(d2, __d2Size,1,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0maxd0(d0,2); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(max(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0maxd2(d2, __d2Size,2,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(max(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(max(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_max.sci.tst b/tests/unit_tests/double/test_max.sci.tst new file mode 100644 index 0000000..b6b8ca8 --- /dev/null +++ b/tests/unit_tests/double/test_max.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_max.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_mean.sci b/tests/unit_tests/double/test_mean.sci new file mode 100644 index 0000000..b0b3434 --- /dev/null +++ b/tests/unit_tests/double/test_mean.sci @@ -0,0 +1,31 @@ +function test_mean() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(mean(d0)) + disp(mean(z0)) + disp(mean(d2)) + disp(mean(z2)) + + disp(mean(d0, 1)) + disp(mean(z0, 1)) + disp(mean(d2, 1)) + disp(mean(z2, 1)) + + disp(mean(d0, 2)) + disp(mean(z0, 2)) + disp(mean(d2, 2)) + disp(mean(z2, 2)) + +// disp(mean(d0, 'r')) +// disp(mean(z0, 'r')) +// disp(mean(d2, 'r')) +// disp(mean(z2, 'r')) + +// disp(mean(d0, 'c')) +// disp(mean(z0, 'c')) +// disp(mean(d2, 'c')) +// disp(mean(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_mean.sci.dia.ref b/tests/unit_tests/double/test_mean.sci.dia.ref new file mode 100644 index 0000000..82e3935 --- /dev/null +++ b/tests/unit_tests/double/test_mean.sci.dia.ref @@ -0,0 +1,1137 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_mean.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 3.1415927 + 3.1415927i + + 8.3125 + + 8.3125 + 8.3125i + + 3.1415927 + + 3.1415927 + 3.1415927i + + 6.75 7.75 8.75 10. + + 6.75 + 6.75i 7.75 + 7.75i 8.75 + 8.75i 10. + 10.i + + 3.1415927 + + 3.1415927 + 3.1415927i + + 2.5 + 5.75 + 10.5 + 14.5 + + 2.5 + 2.5i + 5.75 + 5.75i + 10.5 + 10.5i + 14.5 + 14.5i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_mean" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_mean/test_mean_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_mean/test_mean_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(mean(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(mean(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_mean() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[1 * 4]; ! +! ! +! int ____temp23Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[1 * 4]; ! +! ! +! int ____temp24Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 1]; ! +! ! +! int ____temp27Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 1]; ! +! ! +! int ____temp28Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0meand0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0meanz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d2meand0(d2, __d2Size); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z2meanz0(z2, __z2Size); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0meand0(d0,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0meanz0(z0,1); ! +! ! +! ans6 = z0dispd0(__temp22); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0meand2(d2, __d2Size,1,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0meanz2(z2, __z2Size,1,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0d0meand0(d0,2); ! +! ! +! ans9 = d0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0d0meanz0(z0,2); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0meand2(d2, __d2Size,2,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(mean(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0meanz2(z2, __z2Size,2,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(mean(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_mean.sci.tst b/tests/unit_tests/double/test_mean.sci.tst new file mode 100644 index 0000000..8e1b0df --- /dev/null +++ b/tests/unit_tests/double/test_mean.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_mean.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_min.sci b/tests/unit_tests/double/test_min.sci new file mode 100644 index 0000000..a99e8b3 --- /dev/null +++ b/tests/unit_tests/double/test_min.sci @@ -0,0 +1,32 @@ +function test_min() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(min(d0)) + //disp(min(z0)) + disp(min(d2)) + //disp(min(z2)) + + disp(min(d0, 1)) + //disp(min(z0, 1)) + disp(min(d2, 1)) + //disp(min(z2, 1)) + + disp(min(d0, 2)) + //disp(min(z0, 2)) + disp(min(d2, 2)) + //disp(min(z2, 2)) + +// disp(min(d0, 'r')) +// disp(min(z0, 'r')) +// disp(min(d2, 'r')) +// disp(min(z2, 'r')) + +// disp(min(d0, 'c')) +// disp(min(z0, 'c')) +// disp(min(d2, 'c')) +// disp(min(z2, 'c')) + +endfunction diff --git a/tests/unit_tests/double/test_min.sci.dia.ref b/tests/unit_tests/double/test_min.sci.dia.ref new file mode 100644 index 0000000..1beac87 --- /dev/null +++ b/tests/unit_tests/double/test_min.sci.dia.ref @@ -0,0 +1,1067 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_min.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 1. + + 1. + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + 2. + + 1. 2. 2. 2. + 2. 2. 2. 2. + 2. 2. 2. 2. + 2. 2. 2. 2. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_min" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_min/test_min_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_min/test_min_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(min(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(min(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(min(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_min() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0mind0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = d2mind0(d2, __d2Size); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d0d0mind0(d0,1); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0mind2(d2, __d2Size,1,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0mind0(d0,2); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(min(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0mind2(d2, __d2Size,2,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(min(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(min(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_min.sci.tst b/tests/unit_tests/double/test_min.sci.tst new file mode 100644 index 0000000..4ab37ae --- /dev/null +++ b/tests/unit_tests/double/test_min.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_min.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_ones.sci b/tests/unit_tests/double/test_ones.sci new file mode 100644 index 0000000..056330b --- /dev/null +++ b/tests/unit_tests/double/test_ones.sci @@ -0,0 +1,14 @@ +function test_ones() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(ones(d0)) + disp(ones(z0)) + disp(ones(d2)) + disp(ones(z2)) + //disp(ones(0,0)) // ! sci2c does not manage [] ! + disp(ones(1,1)) + disp(ones(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_ones.sci.dia.ref b/tests/unit_tests/double/test_ones.sci.dia.ref new file mode 100644 index 0000000..cdf97ab --- /dev/null +++ b/tests/unit_tests/double/test_ones.sci.dia.ref @@ -0,0 +1,747 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_ones.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1. + + 1. + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + 1. 1. 1. 1. + + 1. + + 1. 1. 1. + 1. 1. 1. + 1. 1. 1. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_ones" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_ones/test_ones_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_ones/test_ones_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(ones(0,0)) // ! sci2c does not manage [] ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(1,1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ones(d0,d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_ones() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[3 * 3]; ! +! ! +! int ____temp22Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0onesd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0onesz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2onesd2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2onesz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(ones(0,0)) // ! sci2c does not manage [] ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(1,1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0onesd0(1,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ones(d0,d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0onesd2(d0,d0,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_ones.sci.tst b/tests/unit_tests/double/test_ones.sci.tst new file mode 100644 index 0000000..552427f --- /dev/null +++ b/tests/unit_tests/double/test_ones.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_ones.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_prod.sci b/tests/unit_tests/double/test_prod.sci new file mode 100644 index 0000000..cddb081 --- /dev/null +++ b/tests/unit_tests/double/test_prod.sci @@ -0,0 +1,31 @@ +function test_prod() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(prod(d0)) + disp(prod(z0)) + disp(prod(d2)) + disp(prod(z2)) + + disp(prod(d0, 1)) + disp(prod(z0, 1)) + disp(prod(d2, 1)) + disp(prod(z2, 1)) + + disp(prod(d0, 2)) + disp(prod(z0, 2)) + disp(prod(d2, 2)) + disp(prod(z2, 2)) + +// disp(prod(d0, 'r')) +// disp(prod(z0, 'r')) +// disp(prod(d2, 'r')) +// disp(prod(z2, 'r')) + +// disp(prod(d0, 'c')) +// disp(prod(z0, 'c')) +// disp(prod(d2, 'c')) +// disp(prod(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_prod.sci.dia.ref b/tests/unit_tests/double/test_prod.sci.dia.ref new file mode 100644 index 0000000..0232536 --- /dev/null +++ b/tests/unit_tests/double/test_prod.sci.dia.ref @@ -0,0 +1,1137 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_prod.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 3.1415927 + 3.1415927i + + 1.196D+13 + + 3.061D+15 + + 3.1415927 + + 3.1415927 + 3.1415927i + + 468. 1400. 2970. 6144. + + - 1872. - 5600. - 11880. - 24576. + + 3.1415927 + + 3.1415927 + 3.1415927i + + 24. + 960. + 11880. + 43680. + + - 96. + - 3840. + - 47520. + - 174720. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_prod" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_prod/test_prod_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_prod/test_prod_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(prod(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(prod(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_prod() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[1 * 4]; ! +! ! +! int ____temp23Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[1 * 4]; ! +! ! +! int ____temp24Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 1]; ! +! ! +! int ____temp27Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 1]; ! +! ! +! int ____temp28Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0prodd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0prodz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d2prodd0(d2, __d2Size); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z2prodz0(z2, __z2Size); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0prodd0(d0,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0prodz0(z0,1); ! +! ! +! ans6 = z0dispd0(__temp22); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0prodd2(d2, __d2Size,1,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0prodz2(z2, __z2Size,1,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0d0prodd0(d0,2); ! +! ! +! ans9 = d0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0d0prodz0(z0,2); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0prodd2(d2, __d2Size,2,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(prod(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0prodz2(z2, __z2Size,2,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(prod(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_prod.sci.tst b/tests/unit_tests/double/test_prod.sci.tst new file mode 100644 index 0000000..c86d158 --- /dev/null +++ b/tests/unit_tests/double/test_prod.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_prod.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_rand.sci b/tests/unit_tests/double/test_rand.sci new file mode 100644 index 0000000..1f82dba --- /dev/null +++ b/tests/unit_tests/double/test_rand.sci @@ -0,0 +1,14 @@ +function test_rand() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(rand(d0)) + disp(rand(z0)) + disp(rand(d2)) + disp(rand(z2)) + //disp(rand(0,0)) // ! sci2c does not manage [] ! + disp(rand(1,1)) + disp(rand(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_rand.sci.dia.ref b/tests/unit_tests/double/test_rand.sci.dia.ref new file mode 100644 index 0000000..dfb3f84 --- /dev/null +++ b/tests/unit_tests/double/test_rand.sci.dia.ref @@ -0,0 +1,757 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_rand.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0.2113249 + + 0.7560439 + 0.0002211i + + 0.3303271 0.6857310 0.6623569 0.2320748 + 0.6653811 0.8782165 0.7263507 0.2312237 + 0.6283918 0.0683740 0.1985144 0.2164633 + 0.8497452 0.5608486 0.5442573 0.8833888 + + + column 1 to 2 + + 0.6525135 + 0.9184708i 0.312642 + 0.4148104i + 0.3076091 + 0.0437334i 0.3616361 + 0.2806498i + 0.9329616 + 0.4818509i 0.2922267 + 0.1280058i + 0.2146008 + 0.2639556i 0.5664249 + 0.7783129i + + column 3 to 4 + + 0.4826472 + 0.2119030i 0.4368588 + 0.6970851i + 0.3321719 + 0.1121355i 0.2693125 + 0.8415518i + 0.5935095 + 0.6856896i 0.6325745 + 0.4062025i + 0.5015342 + 0.1531217i 0.4051954 + 0.4094825i + + 0.8784126 + + 0.1138360 0.5896177 0.5042213 + 0.1998338 0.6853980 0.3493615 + 0.5618661 0.8906225 0.3873779 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_rand" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_rand/test_rand_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_rand/test_rand_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(rand(0,0)) // ! sci2c does not manage [] ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(1,1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(rand(d0,d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_rand() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[3 * 3]; ! +! ! +! int ____temp22Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0randd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0randz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2randd2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2randz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(rand(0,0)) // ! sci2c does not manage [] ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(1,1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0randd0(1,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(rand(d0,d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0randd2(d0,d0,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_rand.sci.tst b/tests/unit_tests/double/test_rand.sci.tst new file mode 100644 index 0000000..3854d83 --- /dev/null +++ b/tests/unit_tests/double/test_rand.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_rand.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_real.sci b/tests/unit_tests/double/test_real.sci new file mode 100644 index 0000000..102efc3 --- /dev/null +++ b/tests/unit_tests/double/test_real.sci @@ -0,0 +1,11 @@ +function test_real() + d0 = %pi + d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(real(d0)) + disp(real(z0)) + disp(real(d2)) + disp(real(z2)) +endfunction diff --git a/tests/unit_tests/double/test_real.sci.dia.ref b/tests/unit_tests/double/test_real.sci.dia.ref new file mode 100644 index 0000000..b4f3acd --- /dev/null +++ b/tests/unit_tests/double/test_real.sci.dia.ref @@ -0,0 +1,661 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_real.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 3.1415927 + + 1. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + 1. 2. 3. 4. + 5. 6. 7. 8. + 9. 10. 11. 12. + 13. 14. 15. 16. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_real" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_real/test_real_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_real/test_real_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(real(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(real(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(real(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(real(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_real() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(real(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0reald0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(real(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0reald0(z0); ! +! ! +! ans2 = d0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(real(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2reald2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(real(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2reald2(z2, __z2Size,__temp20); ! +! ! +! ans4 = d2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_real.sci.tst b/tests/unit_tests/double/test_real.sci.tst new file mode 100644 index 0000000..e15cb37 --- /dev/null +++ b/tests/unit_tests/double/test_real.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_real.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_round.sci b/tests/unit_tests/double/test_round.sci new file mode 100644 index 0000000..90e8cf7 --- /dev/null +++ b/tests/unit_tests/double/test_round.sci @@ -0,0 +1,11 @@ +function test_round() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + round(d0); + round(d2); + round(z0); + round(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_round.sci.dia.ref b/tests/unit_tests/double/test_round.sci.dia.ref new file mode 100644 index 0000000..c27aa64 --- /dev/null +++ b/tests/unit_tests/double/test_round.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_round.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_round" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_round/test_round_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_round/test_round_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: round(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: round(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: round(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: round(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_round() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: round(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0roundd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: round(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2roundd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: round(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0roundz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: round(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2roundz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_round.sci.tst b/tests/unit_tests/double/test_round.sci.tst new file mode 100644 index 0000000..cdfcfac --- /dev/null +++ b/tests/unit_tests/double/test_round.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_round.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sign.sci b/tests/unit_tests/double/test_sign.sci new file mode 100644 index 0000000..eb348e1 --- /dev/null +++ b/tests/unit_tests/double/test_sign.sci @@ -0,0 +1,11 @@ +function test_sign() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sign(d0); + sign(d2); + sign(z0); + sign(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sign.sci.dia.ref b/tests/unit_tests/double/test_sign.sci.dia.ref new file mode 100644 index 0000000..bb9cf78 --- /dev/null +++ b/tests/unit_tests/double/test_sign.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sign.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_sign" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sign/test_sign_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sign/test_sign_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sign(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sign(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sign(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sign(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_sign() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sign(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0signd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sign(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2signd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sign(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0signz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sign(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2signz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_sign.sci.tst b/tests/unit_tests/double/test_sign.sci.tst new file mode 100644 index 0000000..7938ae7 --- /dev/null +++ b/tests/unit_tests/double/test_sign.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sign.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sin.sci b/tests/unit_tests/double/test_sin.sci new file mode 100644 index 0000000..8d61a42 --- /dev/null +++ b/tests/unit_tests/double/test_sin.sci @@ -0,0 +1,11 @@ +function test_sin() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sin(d0); + sin(d2); + sin(z0); + sin(z2); +endfunction diff --git a/tests/unit_tests/double/test_sin.sci.dia.ref b/tests/unit_tests/double/test_sin.sci.dia.ref new file mode 100644 index 0000000..0ac55ae --- /dev/null +++ b/tests/unit_tests/double/test_sin.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sin.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_sin" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sin/test_sin_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sin/test_sin_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sin(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sin(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sin(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sin(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_sin() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sin(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0sind0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sin(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2sind2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sin(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0sinz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sin(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2sinz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_sin.sci.tst b/tests/unit_tests/double/test_sin.sci.tst new file mode 100644 index 0000000..bf272c0 --- /dev/null +++ b/tests/unit_tests/double/test_sin.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sin.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sinh.sci b/tests/unit_tests/double/test_sinh.sci new file mode 100644 index 0000000..b489ede --- /dev/null +++ b/tests/unit_tests/double/test_sinh.sci @@ -0,0 +1,11 @@ +function test_sinh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + sinh(d0); + sinh(d2); + sinh(z0); + sinh(z2); +endfunction diff --git a/tests/unit_tests/double/test_sinh.sci.dia.ref b/tests/unit_tests/double/test_sinh.sci.dia.ref new file mode 100644 index 0000000..9199086 --- /dev/null +++ b/tests/unit_tests/double/test_sinh.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sinh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_sinh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sinh/test_sinh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sinh/test_sinh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sinh(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sinh(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sinh(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: sinh(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_sinh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sinh(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0sinhd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sinh(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2sinhd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sinh(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0sinhz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: sinh(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2sinhz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_sinh.sci.tst b/tests/unit_tests/double/test_sinh.sci.tst new file mode 100644 index 0000000..cd0903f --- /dev/null +++ b/tests/unit_tests/double/test_sinh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sinh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sqrt.sci b/tests/unit_tests/double/test_sqrt.sci new file mode 100644 index 0000000..aceecc9 --- /dev/null +++ b/tests/unit_tests/double/test_sqrt.sci @@ -0,0 +1,11 @@ +function test_sqrt() + d0 = %pi + d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sqrt(d0)); + disp(sqrt(d2)); + disp(sqrt(z0)); + disp(sqrt(z2)); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sqrt.sci.dia.ref b/tests/unit_tests/double/test_sqrt.sci.dia.ref new file mode 100644 index 0000000..114b464 --- /dev/null +++ b/tests/unit_tests/double/test_sqrt.sci.dia.ref @@ -0,0 +1,671 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sqrt.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 1.7724539 + + 1.4142136 1.4142136 1.7320508 2. + 2. 2.236068 2.4494897 2.8284271 + 3. 3.1622777 3.3166248 3.4641016 + 3.6055513 3.7416574 3.8729833 4. + + 1.9473669 + 0.8066258i + + + column 1 to 2 + + 1.553774 + 0.6435943i 1.553774 + 0.6435943i + 2.1973682 + 0.9101797i 2.4567324 + 1.0176119i + 3.2960523 + 1.3652696i 3.4743442 + 1.4391205i + 3.9613619 + 1.6408498i 4.1108995 + 1.7027903i + + column 3 to 4 + + 1.9029767 + 0.7882388i 2.1973682 + 0.9101797i + 2.6912155 + 1.1147379i 3.1075479 + 1.2871885i + 3.643923 + 1.5093623i 3.8059534 + 1.5764775i + 4.2551853 + 1.7625555i 4.3947365 + 1.8203594i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_sqrt" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sqrt/test_sqrt_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sqrt/test_sqrt_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sqrt(d0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sqrt(d2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sqrt(z0)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sqrt(z2)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_sqrt() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double __temp18[4 * 4]; ! +! ! +! int ____temp18Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! doubleComplex __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [2 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(2,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sqrt(d0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0sqrtd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sqrt(d2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2sqrtd2(d2, __d2Size,__temp18); ! +! ! +! ans2 = d2dispd0(__temp18, ____temp18Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sqrt(z0)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = z0sqrtz0(z0); ! +! ! +! ans3 = z0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sqrt(z2)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2sqrtz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_sqrt.sci.tst b/tests/unit_tests/double/test_sqrt.sci.tst new file mode 100644 index 0000000..547c012 --- /dev/null +++ b/tests/unit_tests/double/test_sqrt.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sqrt.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_st_deviation.sci b/tests/unit_tests/double/test_st_deviation.sci new file mode 100644 index 0000000..f2d0aa6 --- /dev/null +++ b/tests/unit_tests/double/test_st_deviation.sci @@ -0,0 +1,31 @@ +function test_st_deviation() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(st_deviation(d0)) + disp(st_deviation(z0)) + disp(st_deviation(d2)) + disp(st_deviation(z2)) + + disp(st_deviation(d0, 1)) + disp(st_deviation(z0, 1)) + disp(st_deviation(d2, 1)) + disp(st_deviation(z2, 1)) + + disp(st_deviation(d0, 2)) + disp(st_deviation(z0, 2)) + disp(st_deviation(d2, 2)) + disp(st_deviation(z2, 2)) + +// disp(st_deviation(d0, 'r')) +// disp(st_deviation(z0, 'r')) +// disp(st_deviation(d2, 'r')) +// disp(st_deviation(z2, 'r')) + +// disp(st_deviation(d0, 'c')) +// disp(st_deviation(z0, 'c')) +// disp(st_deviation(d2, 'c')) +// disp(st_deviation(z2, 'c')) +endfunction diff --git a/tests/unit_tests/double/test_st_deviation.sci.dia.ref b/tests/unit_tests/double/test_st_deviation.sci.dia.ref new file mode 100644 index 0000000..249f2ef --- /dev/null +++ b/tests/unit_tests/double/test_st_deviation.sci.dia.ref @@ -0,0 +1,1144 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_st_deviation.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. + + 0. + + 4.8815127 + + 4.8815127 + 4.8815127i + + 0. + + 0. + + 5.3150729 5.3150729 5.3150729 5.1639778 + + + column 1 to 2 + + 5.3150729 + 5.3150729i 5.3150729 + 5.3150729i + + column 3 to 4 + + 5.3150729 + 5.3150729i 5.1639778 + 5.1639778i + + 0. + + 0. + + 1.2909944 + 1.7078251 + 1.2909944 + 1.2909944 + + 1.2909944 + 1.2909944i + 1.7078251 + 1.7078251i + 1.2909944 + 1.2909944i + 1.2909944 + 1.2909944i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_st_deviation" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_st_deviation/test_st_deviation_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_st_deviation/test_st_deviation_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(st_deviation(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(st_deviation(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_st_deviation() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[1 * 4]; ! +! ! +! int ____temp23Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[1 * 4]; ! +! ! +! int ____temp24Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 1]; ! +! ! +! int ____temp27Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 1]; ! +! ! +! int ____temp28Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0st_deviationd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0st_deviationz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d2st_deviationd0(d2, __d2Size); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z2st_deviationz0(z2, __z2Size); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0st_deviationd0(d0,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0st_deviationz0(z0,1); ! +! ! +! ans6 = z0dispd0(__temp22); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0st_deviationd2(d2, __d2Size,1,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0st_deviationz2(z2, __z2Size,1,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0d0st_deviationd0(d0,2); ! +! ! +! ans9 = d0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0d0st_deviationz0(z0,2); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0st_deviationd2(d2, __d2Size,2,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(st_deviation(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0st_deviationz2(z2, __z2Size,2,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(st_deviation(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_st_deviation.sci.tst b/tests/unit_tests/double/test_st_deviation.sci.tst new file mode 100644 index 0000000..57193ba --- /dev/null +++ b/tests/unit_tests/double/test_st_deviation.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_st_deviation.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sum.sci b/tests/unit_tests/double/test_sum.sci new file mode 100644 index 0000000..88b1d45 --- /dev/null +++ b/tests/unit_tests/double/test_sum.sci @@ -0,0 +1,31 @@ +function test_sum() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(sum(d0)) + disp(sum(z0)) + disp(sum(d2)) + disp(sum(z2)) + + disp(sum(d0, 1)) + disp(sum(z0, 1)) + disp(sum(d2, 1)) + disp(sum(z2, 1)) + + disp(sum(d0, 2)) + disp(sum(z0, 2)) + disp(sum(d2, 2)) + disp(sum(z2, 2)) + +// disp(sum(d0, 'r')) +// disp(sum(z0, 'r')) +// disp(sum(d2, 'r')) +// disp(sum(z2, 'r')) + +// disp(sum(d0, 'c')) +// disp(sum(z0, 'c')) +// disp(sum(d2, 'c')) +// disp(sum(z2, 'c')) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_sum.sci.dia.ref b/tests/unit_tests/double/test_sum.sci.dia.ref new file mode 100644 index 0000000..7507b98 --- /dev/null +++ b/tests/unit_tests/double/test_sum.sci.dia.ref @@ -0,0 +1,1137 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sum.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 3.1415927 + + 3.1415927 + 3.1415927i + + 133. + + 133. + 133.i + + 3.1415927 + + 3.1415927 + 3.1415927i + + 27. 31. 35. 40. + + 27. + 27.i 31. + 31.i 35. + 35.i 40. + 40.i + + 3.1415927 + + 3.1415927 + 3.1415927i + + 10. + 23. + 42. + 58. + + 10. + 10.i + 23. + 23.i + 42. + 42.i + 58. + 58.i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_sum" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sum/test_sum_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_sum/test_sum_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(sum(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(sum(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_sum() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! double __temp23[1 * 4]; ! +! ! +! int ____temp23Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[1 * 4]; ! +! ! +! int ____temp24Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! double __temp25; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! double __temp27[4 * 1]; ! +! ! +! int ____temp27Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28[4 * 1]; ! +! ! +! int ____temp28Size[2] = {4, 1};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0sumd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0sumz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp19 = d2sumd0(d2, __d2Size); ! +! ! +! ans3 = d0dispd0(__temp19); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp20 = z2sumz0(z2, __z2Size); ! +! ! +! ans4 = z0dispd0(__temp20); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0sumd0(d0,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp22 = z0d0sumz0(z0,1); ! +! ! +! ans6 = z0dispd0(__temp22); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0sumd2(d2, __d2Size,1,__temp23); ! +! ! +! ans7 = d2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0sumz2(z2, __z2Size,1,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp25 = d0d0sumd0(d0,2); ! +! ! +! ans9 = d0dispd0(__temp25); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp26 = z0d0sumz0(z0,2); ! +! ! +! ans10 = z0dispd0(__temp26); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0sumd2(d2, __d2Size,2,__temp27); ! +! ! +! ans11 = d2dispd0(__temp27, ____temp27Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(sum(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0sumz2(z2, __z2Size,2,__temp28); ! +! ! +! ans12 = z2dispd0(__temp28, ____temp28Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(sum(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_sum.sci.tst b/tests/unit_tests/double/test_sum.sci.tst new file mode 100644 index 0000000..d886db9 --- /dev/null +++ b/tests/unit_tests/double/test_sum.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_sum.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_tanh.sci b/tests/unit_tests/double/test_tanh.sci new file mode 100644 index 0000000..cf9a365 --- /dev/null +++ b/tests/unit_tests/double/test_tanh.sci @@ -0,0 +1,11 @@ +function test_tanh() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + tanh(d0); + tanh(d2); + tanh(z0); + tanh(z2); +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_tanh.sci.dia.ref b/tests/unit_tests/double/test_tanh.sci.dia.ref new file mode 100644 index 0000000..4b73e62 --- /dev/null +++ b/tests/unit_tests/double/test_tanh.sci.dia.ref @@ -0,0 +1,623 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_tanh.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_tanh" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_tanh/test_tanh_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_tanh/test_tanh_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: tanh(d0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: tanh(d2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: tanh(z0); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: tanh(z2); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_tanh() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! double ans2[4 * 4]; ! +! ! +! int __ans2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex ans3; ! +! ! +! ! +! ! +! doubleComplex ans4[4 * 4]; ! +! ! +! int __ans4Size[2] = {4, 4};; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: tanh(d0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans1 = d0tanhd0(d0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: tanh(d2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2tanhd2(d2, __d2Size,ans2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: tanh(z0); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans3 = z0tanhz0(z0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: tanh(z2); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2tanhz2(z2, __z2Size,ans4); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_tanh.sci.tst b/tests/unit_tests/double/test_tanh.sci.tst new file mode 100644 index 0000000..febcb81 --- /dev/null +++ b/tests/unit_tests/double/test_tanh.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_tanh.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_variance.sci b/tests/unit_tests/double/test_variance.sci new file mode 100644 index 0000000..a5acac3 --- /dev/null +++ b/tests/unit_tests/double/test_variance.sci @@ -0,0 +1,31 @@ +function test_variance() + d0 = 0.2113249 + d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 0.6283918] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + //disp(variance(d0)) + //disp(variance(z0)) + disp(variance(d2)) + disp(variance(z2)) + + //disp(variance(d0, 1)) + //disp(variance(z0, 1)) + disp(variance(d2, 1)) + disp(variance(z2, 1)) + + //disp(variance(d0, 2)) + //disp(variance(z0, 2)) + disp(variance(d2, 2)) + disp(variance(z2, 2)) + +// disp(variance(d0, 'r')) +// disp(variance(z0, 'r')) +// disp(variance(d2, 'r')) +// disp(variance(z2, 'r')) + +// disp(variance(d0, 'c')) +// disp(variance(z0, 'c')) +// disp(variance(d2, 'c')) +// disp(variance(z2, 'c')) +endfunction diff --git a/tests/unit_tests/double/test_variance.sci.dia.ref b/tests/unit_tests/double/test_variance.sci.dia.ref new file mode 100644 index 0000000..ae90d56 --- /dev/null +++ b/tests/unit_tests/double/test_variance.sci.dia.ref @@ -0,0 +1,969 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_variance.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0.0862313 + + 0.1724626i + + 0.1483594 0.0990737 0.0006841 + + 0.2967188 0.1981474 0.0013682 + + 0.1155283 + 0.0243869 + + 0.2310566 + 0.0487739 + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_variance" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_variance/test_variance_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_variance/test_variance_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = 0.2113249 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 + 0.6283918] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(d0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(z0, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(d2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(z2, 1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(d0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(variance(z0, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(d2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(variance(z2, 2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(d0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(z0, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(d2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(z2, 'r')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(d0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(z0, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(d2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // disp(variance(z2, 'c')) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_variance() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 0.2113249; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 2]; ! +! ! +! int ____temp3Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp4[1 * 3]; ! +! ! +! int ____temp4Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double d2[2 * 3]; ! +! ! +! int __d2Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp5; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp6[2 * 3]; ! +! ! +! int ____temp6Size[2] = {2, 3};; ! +! ! +! ! +! ! +! doubleComplex z2[2 * 3]; ! +! ! +! int __z2Size[2] = {2, 3};; ! +! ! +! ! +! ! +! double __temp7; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp8; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp11[2 * 1]; ! +! ! +! int ____temp11Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp12[2 * 1]; ! +! ! +! int ____temp12Size[2] = {2, 1};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = 0.2113249 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(0.2113249); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [0.2113249 0.0002211 0.6653811;0.7560439 0.4453586 ! +! 0.6283918] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(0.2113249,0.0002211,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,0.6653811,__temp2); ! +! ! +! d0d0OpRcd2(0.7560439,0.4453586,__temp3); ! +! ! +! d2d0OpRcd2(__temp3, ____temp3Size,0.6283918,__temp4); ! +! ! +! d2d2OpCcd2(__temp2, ____temp2Size,__temp4, ____temp4Size,d2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp5 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp5); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp6); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp6, ____temp6Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp7 = d2varianced0(d2, __d2Size); ! +! ! +! ans1 = d0dispd0(__temp7); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp8 = z2variancez0(z2, __z2Size); ! +! ! +! ans2 = z0dispd0(__temp8); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(d0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(z0, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(d2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0varianced2(d2, __d2Size,1,__temp9); ! +! ! +! ans3 = d2dispd0(__temp9, ____temp9Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(z2, 1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0variancez2(z2, __z2Size,1,__temp10); ! +! ! +! ans4 = z2dispd0(__temp10, ____temp10Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(d0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(variance(z0, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(d2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0varianced2(d2, __d2Size,2,__temp11); ! +! ! +! ans5 = d2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(variance(z2, 2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0variancez2(z2, __z2Size,2,__temp12); ! +! ! +! ans6 = z2dispd0(__temp12, ____temp12Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(d0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(z0, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(d2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(z2, 'r')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(d0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(z0, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(d2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // disp(variance(z2, 'c')) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_variance.sci.tst b/tests/unit_tests/double/test_variance.sci.tst new file mode 100644 index 0000000..2cd7f11 --- /dev/null +++ b/tests/unit_tests/double/test_variance.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_variance.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file diff --git a/tests/unit_tests/double/test_zeros.sci b/tests/unit_tests/double/test_zeros.sci new file mode 100644 index 0000000..be4196d --- /dev/null +++ b/tests/unit_tests/double/test_zeros.sci @@ -0,0 +1,14 @@ +function test_zeros() + d0 = %pi + d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + z0 = d0 + %i * d0 + z2 = d2 + %i * d2 + + disp(zeros(d0)) + disp(zeros(z0)) + disp(zeros(d2)) + disp(zeros(z2)) + //disp(zeros(0,0)) // ! sci2c does not manage [] ! + disp(zeros(1,1)) + disp(zeros(d0,d0)) +endfunction
\ No newline at end of file diff --git a/tests/unit_tests/double/test_zeros.sci.dia.ref b/tests/unit_tests/double/test_zeros.sci.dia.ref new file mode 100644 index 0000000..47ae781 --- /dev/null +++ b/tests/unit_tests/double/test_zeros.sci.dia.ref @@ -0,0 +1,747 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_zeros.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 0. + + 0. + + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + + 0. + + 0. 0. 0. + 0. 0. 0. + 0. 0. 0. + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_zeros" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_zeros/test_zeros_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_zeros/test_zeros_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(z0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(d2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(z2)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(zeros(0,0)) // ! sci2c does not manage [] ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(1,1)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(zeros(d0,d0)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_zeros() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp22[3 * 3]; ! +! ! +! int ____temp22Size[2] = {3, 3};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 4 5 6 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(4,5,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,6,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0zerosd0(d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(z0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0zerosz0(z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(d2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(d2, __d2Size,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(z2)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2zerosz2(z2, __z2Size,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(zeros(0,0)) // ! sci2c does not manage [] ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(1,1)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp21 = d0d0zerosd0(1,1); ! +! ! +! ans5 = d0dispd0(__temp21); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(zeros(d0,d0)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0zerosd2(d0,d0,__temp22); ! +! ! +! ans6 = d2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); diff --git a/tests/unit_tests/double/test_zeros.sci.tst b/tests/unit_tests/double/test_zeros.sci.tst new file mode 100644 index 0000000..af835d6 --- /dev/null +++ b/tests/unit_tests/double/test_zeros.sci.tst @@ -0,0 +1,22 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// + +// <-- ENGLISH IMPOSED --> + +// <-- JVM NOT MANDATORY --> + +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_zeros.sci", TMPDIR); + +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) +mclose(fd);
\ No newline at end of file |