scimatrixchar.swg 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199
  1. /*
  2. * C-type: char*
  3. * Scilab type: string matrix
  4. */
  5. %include <scichar.swg>
  6. // in (char **IN, int IN_ROWCOUNT, int IN_COLCOUNT)
  7. %typemap(in, noblock=1, fragment="SWIG_SciString_AsCharPtrArrayAndSize") (char **IN, int IN_ROWCOUNT, int IN_COLCOUNT)
  8. {
  9. if (SWIG_SciString_AsCharPtrArrayAndSize(pvApiCtx, $input, &$2, &$3, &$1, fname) != SWIG_OK) {
  10. return SWIG_ERROR;
  11. }
  12. }
  13. // in (int IN_ROWCOUNT, int IN_COLCOUNT, char **IN)
  14. %typemap(in, noblock=1, fragment="SWIG_SciString_AsCharPtrArrayAndSize") (int IN_ROWCOUNT, int IN_COLCOUNT, char **IN)
  15. {
  16. if (SWIG_SciString_AsCharPtrArrayAndSize(pvApiCtx, $input, &$1, &$2, &$3, fname) != SWIG_OK) {
  17. return SWIG_ERROR;
  18. }
  19. }
  20. // in (char **IN, int IN_SIZE)
  21. %typemap(in, noblock=1, fragment="SWIG_SciString_AsCharPtrArrayAndSize") (char **IN, int IN_SIZE) (int rowCount, int colCount)
  22. {
  23. if (SWIG_SciString_AsCharPtrArrayAndSize(pvApiCtx, $input, &rowCount, &colCount, &$1, fname) == SWIG_OK) {
  24. $2 = rowCount * colCount;
  25. }
  26. else {
  27. return SWIG_ERROR;
  28. }
  29. }
  30. // in (int IN_SIZE, char **IN)
  31. %typemap(in, noblock=1, fragment="SWIG_SciString_AsCharPtrArrayAndSize") (int IN_SIZE, char **IN) (int rowCount, int colCount)
  32. {
  33. if (SWIG_SciString_AsCharPtrArrayAndSize(pvApiCtx, $input, &rowCount, &colCount, &$2, fname) == SWIG_OK) {
  34. $1 = rowCount * colCount;
  35. }
  36. else {
  37. return SWIG_ERROR;
  38. }
  39. }
  40. // out (char ***OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT)
  41. %typemap(in, noblock=1, numinputs=0) (char ***OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT)
  42. {
  43. }
  44. %typemap(arginit, noblock=1) (char ***OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT)
  45. {
  46. $1 = (char***) malloc(sizeof(char**));
  47. $2 = (int*) malloc(sizeof(int));
  48. $3 = (int*) malloc(sizeof(int));
  49. }
  50. %typemap(argout, noblock=1, fragment="SWIG_SciString_FromCharPtrArrayAndSize") (char ***OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT)
  51. {
  52. if (SWIG_SciString_FromCharPtrArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), *$2, *$3, *$1) == SWIG_OK) {
  53. SWIG_Scilab_SetOutput(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition());
  54. }
  55. else {
  56. return SWIG_ERROR;
  57. }
  58. }
  59. %typemap(freearg, noblock=1) (char ***OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT)
  60. {
  61. {
  62. int i;
  63. for (i = 0; i < (*$2) * (*$3); i++)
  64. free((*$1)[i]);
  65. }
  66. free(*$1);
  67. free($1);
  68. free($2);
  69. free($3);
  70. }
  71. // out (int *OUT_ROWCOUNT, int *OUT_COLCOUNT, char ***OUT)
  72. %typemap(in, noblock=1, numinputs=0) (int *OUT_ROWCOUNT, int *OUT_COLCOUNT, char ***OUT)
  73. {
  74. }
  75. %typemap(arginit, noblock=1) (int *OUT_ROWCOUNT, int *OUT_COLCOUNT, char ***OUT)
  76. {
  77. $1 = (char***) malloc(sizeof(char**));
  78. $2 = (int*) malloc(sizeof(int));
  79. $3 = (int**) malloc(sizeof(int*));
  80. }
  81. %typemap(argout, noblock=1, fragment="SWIG_SciString_FromCharPtrArrayAndSize") (int *OUT_ROWCOUNT, int *OUT_COLCOUNT, char ***OUT)
  82. {
  83. if (SWIG_SciString_FromCharPtrArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), *$1, *$2, *$3) == SWIG_OK) {
  84. SWIG_Scilab_SetOutput(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition());
  85. }
  86. else {
  87. return SWIG_ERROR;
  88. }
  89. }
  90. %typemap(freearg, noblock=1) (int *OUT_ROWCOUNT, int *OUT_COLCOUNT, char ***OUT)
  91. {
  92. free($1);
  93. free($2);
  94. {
  95. int i;
  96. for (i = 0; i < (*$1) * (*$2); i++)
  97. free((*$3)[i]);
  98. }
  99. free(*$3);
  100. free($3);
  101. }
  102. // out (char ***OUT, int *OUT_SIZE)
  103. %typemap(in, noblock=1, numinputs=0) (char ***OUT, int *OUT_SIZE)
  104. {
  105. }
  106. %typemap(arginit, noblock=1) (char ***OUT, int *OUT_SIZE)
  107. {
  108. $1 = (char***) malloc(sizeof(char**));
  109. $2 = (int*) malloc(sizeof(int));
  110. }
  111. %typemap(freearg, noblock=1) (char ***OUT, int *OUT_SIZE)
  112. {
  113. {
  114. int i;
  115. for (i = 0; i < *$2; i++)
  116. free((*$1)[i]);
  117. }
  118. free(*$1);
  119. free($1);
  120. free($2);
  121. }
  122. %typemap(argout, noblock=1, fragment="SWIG_SciString_FromCharPtrArrayAndSize") (char ***OUT, int *OUT_SIZE)
  123. {
  124. if (SWIG_SciString_FromCharPtrArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), 1, *$2, *$1) == SWIG_OK) {
  125. SWIG_Scilab_SetOutput(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition());
  126. }
  127. else {
  128. return SWIG_ERROR;
  129. }
  130. }
  131. // in (int IN_SIZE, char **IN)
  132. %typemap(in, noblock=1, fragment="SWIG_SciString_AsCharPtrArrayAndSize") (int IN_SIZE, char **IN)
  133. {
  134. if (SWIG_SciString_AsCharPtrArrayAndSize(pvApiCtx, $input, 1, &$1, &$2, fname) != SWIG_OK) {
  135. return SWIG_ERROR;
  136. }
  137. }
  138. // out (int *OUT_SIZE, char ***OUT)
  139. %typemap(in, noblock=1, numinputs=0) (int *OUT_SIZE, char ***OUT)
  140. {
  141. }
  142. %typemap(arginit, noblock=1) (int *OUT_SIZE, char ***OUT)
  143. {
  144. $1 = (int*) malloc(sizeof(int));
  145. $2 = (char***) malloc(sizeof(char**));
  146. }
  147. %typemap(argout, noblock=1, fragment="SWIG_SciString_FromCharPtrArrayAndSize") (int *OUT_SIZE, char ***OUT)
  148. {
  149. if (SWIG_SciString_FromCharPtrArrayAndSize(pvApiCtx, SWIG_Scilab_GetOutputPosition(), 1, *$1, *$2) == SWIG_OK) {
  150. SWIG_Scilab_SetOutput(pvApiCtx, SWIG_NbInputArgument(pvApiCtx) + SWIG_Scilab_GetOutputPosition());
  151. }
  152. else {
  153. return SWIG_ERROR;
  154. }
  155. }
  156. %typemap(freearg, noblock=1) (int *OUT_SIZE, char ***OUT)
  157. {
  158. free($1);
  159. {
  160. int i;
  161. for (i = 0; i < *$1; i++)
  162. free((*$2)[i]);
  163. }
  164. free(*$2);
  165. free($2);
  166. }