// // 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);