I&#39;m trying to determine the size of a Bigarray, in bytes.<div><br></div><div>I&#39;ve tried several things... ending up with this as the only solution:</div><div><br></div><div>--------------------------</div><div><div>
<div>let ba_char = Hashtbl.hash Bigarray.char;;</div><div>let ba_int8_signed = Hashtbl.hash int8_signed;;</div><div>let ba_int8_unsigned = Hashtbl.hash int8_unsigned;;</div><div>let ba_int16_signed = Hashtbl.hash int16_signed;;</div>
<div>let ba_int16_unsigned = Hashtbl.hash int16_unsigned;;</div><div>let ba_int32 = Hashtbl.hash Bigarray.int32;;</div><div>let ba_float32 = Hashtbl.hash float32;;</div><div>let ba_int64 = Hashtbl.hash Bigarray.int64;;</div>
<div>let ba_float64 = Hashtbl.hash float64;;</div><div>let ba_complex32 = Hashtbl.hash complex32;;</div><div>let ba_complex64 = Hashtbl.hash complex64;;</div><div>let ba_int = Hashtbl.hash Bigarray.int;;</div><div>let ba_nativeint = Hashtbl.hash Bigarray.nativeint;;</div>
<div><br></div><div>let bigarray_bytes ba =</div><div>  let elt_bytes = match Hashtbl.hash (Array1.kind ba) with</div><div>    | x when x=ba_char || x=ba_int8_signed || x=ba_int8_unsigned -&gt; 1</div><div>    | x when x=ba_int16_signed || x=ba_int16_unsigned            -&gt; 2</div>
<div>    | x when x=ba_int32 || x=ba_float32                          -&gt; 4</div><div>    | x when x=ba_int64 || x=ba_float64 || x=ba_complex32        -&gt; 8</div><div>    | x when x=ba_complex64                                      -&gt; 16</div>
<div>    | x when x=ba_int || x=ba_nativeint                          -&gt; Nativeint.size lsr 8</div><div>    | _ -&gt; failwith &quot;Unknown Bigarray kind.&quot;</div><div>  in (Array1.dim ba) * elt_bytes;;</div></div>
</div><div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>--------------------------</div><div><div></div></div></div><div><br></div><div>Which is a rather ugly hack! It feels dirty like Obj.magic, while being completely inelegant, and even has a fail case! Can&#39;t get much worse. :)</div>
<div>Of course, internally, bigarray will know it&#39;s own size... sometimes the price of abstraction... *sigh*</div><div><br></div><div>I found a related Mantis entry from 6 years back: <a href="http://caml.inria.fr/mantis/view.php?id=3962">http://caml.inria.fr/mantis/view.php?id=3962</a></div>
<div><br></div><div>Well... does anyone have some better suggestions? Please? :)</div><div>Oh, I can make it look a little prettier by plugging in the constants eked out by Hashtbl.hash. ;D</div><div><br></div><div>Why do I want this? Interfacing with OpenGL (glcaml).</div>
<div><br></div><div>Thanks for looking, and more again if you have a good tip!</div><div><br></div><div> -Tony</div><div><br></div>