// // 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/test_hypermat.sci", TMPDIR); ----------------------------------- --- Executing your SCILAB code. --- ----------------------------------- (:,:,1) 1. 3. 5. 2. 4. 6. (:,:,2) 7. 9. 11. 8. 10. 12. (:,:,3) 13. 15. 17. 14. 16. 18. (:,:,4) 19. 21. 23. 20. 22. 24. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. (:,:,1) 0. 4. 8. 12. 16. 1. 5. 9. 13. 17. 2. 6. 10. 14. 18. 3. 7. 11. 15. 19. (:,:,2) 20. 24. 28. 32. 36. 21. 25. 29. 33. 37. 22. 26. 30. 34. 38. 23. 27. 31. 35. 39. (:,:,3) 40. 44. 48. 52. 56. 41. 45. 49. 53. 57. 42. 46. 50. 54. 58. 43. 47. 51. 55. 59. (:,:,4) 60. 64. 68. 72. 76. 61. 65. 69. 73. 77. 62. 66. 70. 74. 78. 63. 67. 71. 75. 79. (:,:,5) 80. 84. 88. 92. 96. 81. 85. 89. 93. 97. 82. 86. 90. 94. 98. 83. 87. 91. 95. 99. (:,:,6) 100. 104. 108. 112. 116. 101. 105. 109. 113. 117. 102. 106. 110. 114. 118. 103. 107. 111. 115. 119. 0. 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90. 91. 92. 93. 94. 95. 96. 97. 98. 99. 100. 101. 102. 103. 104. 105. 106. 107. 108. 109. 110. 111. 112. 113. 114. 115. 116. 117. 118. 119. ------------------------------------------ --- 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_hypermat" Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_hypermat/test_hypermat_copy.sci' already opened in Scilab. Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_hypermat/test_hypermat_copy.sci' already opened in Scilab. ==> Generate the AST. ==> Generate C code in TMPDIR/main.c /*SCI2C: ########################################################## ######## SCI2C: a = zeros(2,3,4); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: for i = 1:24 SCI2C: ########################################################## ########*/ /*SCI2C: ####################################################### ########### SCI2C: a(i) = i SCI2C: ####################################################### ###########*/ /*SCI2C: ####################################################### ########### SCI2C: end SCI2C: ####################################################### ###########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(a); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: for i = 1:24 SCI2C: ########################################################## ########*/ /*SCI2C: ####################################################### ########### SCI2C: disp(a(i)) SCI2C: ####################################################### ###########*/ /*SCI2C: ####################################################### ########### SCI2C: end SCI2C: ####################################################### ###########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: b = zeros(4,5,6); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: for i = 1:4 SCI2C: ########################################################## ########*/ /*SCI2C: ####################################################### ########### SCI2C: for j = 1:5 SCI2C: ####################################################### ###########*/ /*SCI2C: #################################################### ############## SCI2C: for k = 1:6 SCI2C: #################################################### ##############*/ /*SCI2C: ################################################# ################# SCI2C: b(i,j,k) = (i - 1) + 4 * (j - 1) + 4 * 5 * (k - 1); SCI2C: ################################################# #################*/ /*SCI2C: ################################################# ################# SCI2C: end SCI2C: ################################################# #################*/ /*SCI2C: #################################################### ############## SCI2C: end SCI2C: #################################################### ##############*/ /*SCI2C: ####################################################### ########### SCI2C: end SCI2C: ####################################################### ###########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: disp(b); SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: SCI2C: ########################################################## ########*/ /*SCI2C: ########################################################## ######## SCI2C: for k = 1:6 SCI2C: ########################################################## ########*/ /*SCI2C: ####################################################### ########### SCI2C: for j = 1:5 SCI2C: ####################################################### ###########*/ /*SCI2C: #################################################### ############## SCI2C: for i = 1:4 SCI2C: #################################################### ##############*/ /*SCI2C: ################################################# ################# SCI2C: disp(b(i,j,k)); SCI2C: ################################################# #################*/ /*SCI2C: ################################################# ################# SCI2C: end SCI2C: ################################################# #################*/ /*SCI2C: #################################################### ############## SCI2C: end SCI2C: #################################################### ##############*/ /*SCI2C: ####################################################### ########### SCI2C: end 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!!! //editor(TMPDIR + "/main.c"); 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: // Scilab ( http://www.scilab.org/ ) - This file is part of S! ! cilab ! ! ! ! SCI2C: // Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET ! ! ! ! SCI2C: // ! ! ! ! SCI2C: // This file must be used under the terms of the CeCILL. ! ! ! ! SCI2C: // This source file is licensed as described in the file COPY! ! ING, which ! ! ! ! SCI2C: // you should have received as part of this distribution. Th! ! e terms ! ! ! ! SCI2C: // are also available at ! ! ! ! SCI2C: // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt ! ! ! ! SCI2C: // ! ! ! ! SCI2C: // ! ! ! ! SCI2C: ! ! ! ! SCI2C: function test_hypermat() ! ! ! ! SCI2C: -------------------------------------------------------------! ! ----- ! ! ! !*/ ! ! ! !int main() ! ! ! !{ ! ! ! !/* ! ! ! !** ----------------------------- ! ! ! !** --- Variable Declaration. --- ! ! ! !** ----------------------------- ! ! ! !*/ ! ! ! ! ! ! ! ! double a[2 * 3 * 4]; ! ! ! ! int __aSize[3] = {2, 3, 4};; ! ! ! ! ! ! ! ! double i; ! ! ! ! ! ! ! ! double ans1; ! ! ! ! ! ! ! ! double __temp1; ! ! ! ! ! ! ! ! double ans2; ! ! ! ! ! ! ! ! double b[4 * 5 * 6]; ! ! ! ! int __bSize[3] = {4, 5, 6};; ! ! ! ! ! ! ! ! double j; ! ! ! ! ! ! ! ! double k; ! ! ! ! ! ! ! ! double __temp2; ! ! ! ! ! ! ! ! double __temp3; ! ! ! ! ! ! ! ! double __temp4; ! ! ! ! ! ! ! ! double __temp5; ! ! ! ! ! ! ! ! double __temp6; ! ! ! ! ! ! ! ! double __temp7; ! ! ! ! ! ! ! ! double __temp8; ! ! ! ! ! ! ! ! double __temp9; ! ! ! ! ! ! ! ! double ans3; ! ! ! ! ! ! ! ! double __temp10; ! ! ! ! ! ! ! ! double ans4; ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !/* ! ! ! !** --------------------------------- ! ! ! !** --- End Variable Declaration. --- ! ! ! !** --------------------------------- ! ! ! !*/ ! ! ! !/* ! ! ! !** --------------- ! ! ! !** --- C code. --- ! ! ! !** --------------- ! ! ! !*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: a = zeros(2,3,4); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0d0zerosd3(2,3,4,a); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: for i = 1:24 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! for(i = 1; i <= 24; i += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: a(i) = i ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! d3d0d0OpIns(a, __aSize,i,i); ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: end ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(a); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans1 = d3dispd0(a, __aSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: for i = 1:24 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! for(i = 1; i <= 24; i += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: disp(a(i)) ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! __temp1 = d3d0OpExtd0(a, __aSize,i); ! ! ! ! ans2 = d0dispd0(__temp1); ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: end ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: b = zeros(4,5,6); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! d0d0d0zerosd3(4,5,6,b); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: for i = 1:4 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! for(i = 1; i <= 4; i += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: for j = 1:5 ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! ! ! ! ! for(j = 1; j <= 5; j += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: ####################################################! ! ############## ! ! ! ! SCI2C: for k = 1:6 ! ! ! ! SCI2C: ####################################################! ! ##############*/ ! ! ! ! ! ! ! ! for(k = 1; k <= 6; k += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #################################################! ! ################# ! ! ! ! SCI2C: b(i,j,k) = (i - 1) + 4 * (j - 1) + 4 * 5 ! ! * (k - 1); ! ! ! ! SCI2C: #################################################! ! #################*/ ! ! ! ! __temp2 = d0d0OpMinusd0(i,1); ! ! ! ! __temp3 = d0d0OpMinusd0(j,1); ! ! ! ! __temp4 = d0d0OpStard0(4,__temp3); ! ! ! ! __temp5 = d0d0OpPlusd0(__temp2,__temp4); ! ! ! ! __temp6 = d0d0OpStard0(4,5); ! ! ! ! __temp7 = d0d0OpMinusd0(k,1); ! ! ! ! __temp8 = d0d0OpStard0(__temp6,__temp7); ! ! ! ! __temp9 = d0d0OpPlusd0(__temp5,__temp8); ! ! ! ! d3d0d0d0d0OpIns(b, __bSize,i,j,k,__temp9); ! ! ! ! ! ! ! ! /*SCI2C: #################################################! ! ################# ! ! ! ! SCI2C: end ! ! ! ! SCI2C: #################################################! ! #################*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: ####################################################! ! ############## ! ! ! ! SCI2C: end ! ! ! ! SCI2C: ####################################################! ! ##############*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: end ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: disp(b); ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ans3 = d3dispd0(b, __bSize); ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! /*SCI2C: ##########################################################! ! ######## ! ! ! ! SCI2C: for k = 1:6 ! ! ! ! SCI2C: ##########################################################! ! ########*/ ! ! ! ! ! ! ! ! for(k = 1; k <= 6; k += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: for j = 1:5 ! ! ! ! SCI2C: #######################################################! ! ###########*/ ! ! ! ! ! ! ! ! for(j = 1; j <= 5; j += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: ####################################################! ! ############## ! ! ! ! SCI2C: for i = 1:4 ! ! ! ! SCI2C: ####################################################! ! ##############*/ ! ! ! ! ! ! ! ! for(i = 1; i <= 4; i += 1) ! ! ! ! { ! ! ! ! ! ! ! ! /*SCI2C: #################################################! ! ################# ! ! ! ! SCI2C: disp(b(i,j,k)); ! ! ! ! SCI2C: #################################################! ! #################*/ ! ! ! ! __temp10 = d3d0d0d0OpExtd0(b, __bSize,i,j,k); ! ! ! ! ans4 = d0dispd0(__temp10); ! ! ! ! ! ! ! ! /*SCI2C: #################################################! ! ################# ! ! ! ! SCI2C: end ! ! ! ! SCI2C: #################################################! ! #################*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: ####################################################! ! ############## ! ! ! ! SCI2C: end ! ! ! ! SCI2C: ####################################################! ! ##############*/ ! ! ! ! ! ! ! ! ! ! ! ! } ! ! ! ! ! ! ! ! /*SCI2C: #######################################################! ! ########### ! ! ! ! SCI2C: end ! ! ! ! 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);