Home | History | Annotate | Download | only in ocaml 
      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
    137