Lib/ocaml/carray.i

   1 %insert(mli) %{
   2 type _value = c_obj
   3 %}
   4
   5 %insert(ml) %{
   6 type _value = c_obj
   7 %}
   8
   9 %define %array_tmap_out(type,what,out_f)
  10 %typemap(type) what [ANY] {
  11     int i;
  12     /* $*1_type */
  13     $result = caml_array_new($1_dim0);
  14     for( i = 0; i < $1_dim0; i++ ) {
  15         caml_array_set($result,i,out_f($1[i]));
  16     }
  17 }
  18 %enddef
  19
  20 %define %array_tmap_in(type,what,in_f)
  21 %typemap(type) what [ANY] {
  22     int i;
  23     /* $*1_type */
  24     $1 = ($*1_type *)malloc( $1_size );
  25     for( i = 0; i < $1_dim0 && i < caml_array_len($input); i++ ) {
  26         $1[i] = in_f(caml_array_nth($input,i));
  27     }
  28 }
  29
  30 %typemap(free) what [ANY] {
  31     free( (void *)$1 );
  32 }
  33 %enddef
  34
  35 %define %make_simple_array_typemap(type,out_f,in_f)
  36 %array_tmap_out(out,type,out_f);
  37 %array_tmap_out(varout,type,out_f);
  38 %array_tmap_out(directorin,type,out_f);
  39
  40 %array_tmap_in(in,type,in_f);
  41 %array_tmap_in(varin,type,in_f);
  42 %array_tmap_in(directorout,type,in_f);
  43 %enddef
  44
  45 %make_simple_array_typemap(bool,caml_val_bool,caml_long_val);
  46 %make_simple_array_typemap(short,caml_val_short,caml_long_val);
  47 %make_simple_array_typemap(unsigned short,caml_val_ushort,caml_long_val);
  48 %make_simple_array_typemap(int,caml_val_int,caml_long_val);
  49 %make_simple_array_typemap(unsigned int,caml_val_uint,caml_long_val);
  50 %make_simple_array_typemap(long,caml_val_long,caml_long_val);
  51 %make_simple_array_typemap(unsigned long,caml_val_ulong,caml_long_val);
  52 %make_simple_array_typemap(size_t,caml_val_int,caml_long_val);
  53 %make_simple_array_typemap(float,caml_val_float,caml_double_val);
  54 %make_simple_array_typemap(double,caml_val_double,caml_double_val);
  55
  56 #ifdef __cplusplus
  57 %typemap(in) SWIGTYPE [] {
  58     int i;
  59
  60     /* $*1_type */
  61     $1 = new $*1_type [$1_dim0];
  62     for( i = 0; i < $1_dim0 && i < caml_array_len($input); i++ ) {
  63         $1[i] = *(($*1_ltype *)
  64                 caml_ptr_val(caml_array_nth($input,i),
  65                              $*1_descriptor)) ;
  66     }
  67 }
  68 #else
  69 %typemap(in) SWIGTYPE [] {
  70     int i;
  71
  72     /* $*1_type */
  73     $1 = ($*1_type *)malloc( $1_size );
  74     for( i = 0; i < $1_dim0 && i < caml_array_len($input); i++ ) {
  75         $1[i] = *(($*1_ltype)
  76                 caml_ptr_val(caml_array_nth($input),
  77                              $*1_descriptor));
  78     }
  79 }
  80 #endif
  81
  82 %typemap(out) SWIGTYPE [] {
  83     int i;
  84     CAML_VALUE *fromval = caml_named_value("create_$ntype_from_ptr");
  85     $result = caml_array_new($1_dim0);
  86
  87     for( i = 0; i < $1_dim0; i++ ) {
  88         if( fromval ) {
  89             caml_array_set
  90                 ($result,
  91                  i,
  92                  callback(*fromval,caml_val_ptr((void *)&$1[i],$*1_descriptor)));
  93         } else {
  94             caml_array_set
  95                 ($result,
  96                  i,
  97                  caml_val_ptr ((void *)&$1[i],$&1_descriptor));
  98         }
  99     }
 100 }
 101
 102 %typemap(in) enum SWIGTYPE [] {
 103     int i;
 104
 105     /* $*1_type */
 106     $1 = ($*1_type *)malloc( $1_size );
 107     for( i = 0; i < $1_dim0 && i < caml_array_len($input); i++ ) {
 108         $1[i] = ($type)
 109                 caml_long_val_full(caml_array_nth($input),
 110                                    "$type_marker");
 111     }
 112 }
 113
 114 %typemap(out) enum SWIGTYPE [] {
 115     int i;
 116     $result = caml_array_new($1_dim0);
 117
 118     for( i = 0; i < $1_dim0; i++ ) {
 119             caml_array_set
 120                 ($result,
 121                  i,
 122                  callback2(*caml_named_value(SWIG_MODULE "_int_to_enum"),
 123                            *caml_named_value("$type_marker"),
 124                            Val_int($1[i])));
 125     }
 126 }
 127
 128 #ifdef __cplusplus
 129 %typemap(freearg) SWIGTYPE [ANY] {
 130     delete [] $1;
 131 }
 132 #else
 133 %typemap(freearg) SWIGTYPE [ANY] {
 134     free( (void *)$1 );
 135 }
 136 #endif