// // 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 in TMPDIR/SCI2CTmpResultsReports/ test_abs/test_abs.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 needed in TMPDIR/src/c/ ********************************************** ************************************************* ==> Copying headers needed in TMPDIR/includes/ ************************************************* ****************************************************** ==> Copying interfaces needed in TMPDIR/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: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !SCI2Cint main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double d0 = 3.1415927; ! ! ! ! ! ! ! ! double __temp1[1 * 2]; ! ! ! ! SCI2Cint ____temp1Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp2[1 * 3]; ! ! ! ! SCI2Cint ____temp2Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp3[1 * 4]; ! ! ! ! SCI2Cint ____temp3Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp4[1 * 2]; ! ! ! ! SCI2Cint ____temp4Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp5[1 * 3]; ! ! ! ! SCI2Cint ____temp5Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp6[1 * 4]; ! ! ! ! SCI2Cint ____temp6Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp7[2 * 4]; ! ! ! ! SCI2Cint ____temp7Size[2] = {2, 4};; ! ! ! ! ! ! ! ! double __temp8[1 * 2]; ! ! ! ! SCI2Cint ____temp8Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp9[1 * 3]; ! ! ! ! SCI2Cint ____temp9Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp10[1 * 4]; ! ! ! ! SCI2Cint ____temp10Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double __temp11[3 * 4]; ! ! ! ! SCI2Cint ____temp11Size[2] = {3, 4};; ! ! ! ! ! ! ! ! double __temp12[1 * 2]; ! ! ! ! SCI2Cint ____temp12Size[2] = {1, 2};; ! ! ! ! ! ! ! ! double __temp13[1 * 3]; ! ! ! ! SCI2Cint ____temp13Size[2] = {1, 3};; ! ! ! ! ! ! ! ! double __temp14[1 * 4]; ! ! ! ! SCI2Cint ____temp14Size[2] = {1, 4};; ! ! ! ! ! ! ! ! double d2[4 * 4]; ! ! ! ! SCI2Cint __d2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex __temp15; ! ! ! ! ! ! ! ! doubleComplex z0; ! ! ! ! ! ! ! ! doubleComplex __temp16[4 * 4]; ! ! ! ! SCI2Cint ____temp16Size[2] = {4, 4};; ! ! ! ! ! ! ! ! doubleComplex z2[4 * 4]; ! ! ! ! SCI2Cint __z2Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double __temp17; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! double __temp18; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! double __temp19[4 * 4]; ! ! ! ! SCI2Cint ____temp19Size[2] = {4, 4};; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! double __temp20[4 * 4]; ! ! ! ! SCI2Cint ____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);