Home | History | Annotate | Download | only in ocaml

Lines Matching refs:arr

222     SWIGSTATIC void caml_array_set( CAML_VALUE arr, int n, CAML_VALUE item ) {
223 CAMLparam2(arr,item);
224 SWIG_Store_field(SWIG_Field(arr,0),n,item);
228 SWIGSTATIC value caml_array_nth( CAML_VALUE arr, int n ) {
229 CAMLparam1(arr);
230 if( SWIG_Tag_val(arr) == C_array )
231 CAMLreturn(SWIG_Field(SWIG_Field(arr,0),n));
232 else if( SWIG_Tag_val(arr) == C_list )
233 CAMLreturn(caml_list_nth(arr,0));
238 SWIGSTATIC int caml_array_len( CAML_VALUE arr ) {
239 CAMLparam1(arr);
240 if( SWIG_Tag_val(arr) == C_array )
241 CAMLreturn(Wosize_val(SWIG_Field(arr,0)));
242 else if( SWIG_Tag_val(arr) == C_list )
243 CAMLreturn(caml_list_length(arr));