Unnamed

value get_c_array(value unit)
{	
	char	my_c_array[10][10];
	long 	dims[2];
	int 	i,j;

	dims[0] = 10;
	dims[1] = 10; 

	return alloc_bigarray(BIGARRAY_NATIVE_INT | BIGARRAY_C_LAYOUT, 2, my_c_array,dims);
}

/***********************OCAML*******************************/

external get_bigarray :    unit -> (int, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array2.t = "get_c_array";;


let affich tab =
  for i = 0 to (Bigarray.Array2.dim1 tab) - 1 do
    for j = 0 to (Bigarray.Array2.dim2 tab) - 1 do
	print_string ta.{i,j};
    done;
  done;

let m = get_bigarray in 
	affich m;

print_newline();;