Oubli

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2862 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

otherlibs/bigarray/bigarray.h

@@ -0,0 +1,71 @@
+/***********************************************************************/
+/*                                                                     */
+/*                           Objective Caml                            */
+/*                                                                     */
+/*         Manuel Serrano and Xavier Leroy, INRIA Rocquencourt         */
+/*                                                                     */
+/*  Copyright 2000 Institut National de Recherche en Informatique et   */
+/*  en Automatique.  All rights reserved.  This file is distributed    */
+/*  under the terms of the GNU Library General Public License.         */
+/*                                                                     */
+/***********************************************************************/
+
+/* $Id$ */
+
+#ifndef _bigarray_
+#define _bigarray_
+
+
+#include "mlvalues.h"
+
+#define MAX_NUM_DIMS 16
+
+enum caml_bigarray_kind {
+  BIGARRAY_FLOAT32,             /* Single-precision floats */
+  BIGARRAY_FLOAT64,             /* Double-precision floats */
+  BIGARRAY_SINT8,               /* Signed 8-bit integers */
+  BIGARRAY_UINT8,               /* Unsigned 8-bit integers */
+  BIGARRAY_SINT16,              /* Signed 16-bit integers */
+  BIGARRAY_UINT16,              /* Unsigned 16-bit integers */
+  BIGARRAY_INT32,               /* Signed 32-bit integers */
+  BIGARRAY_INT64,               /* Signed 64-bit integers */
+  BIGARRAY_CAML_INT,            /* Caml-style integers (signed 31 or 63 bits) */
+  BIGARRAY_NATIVE_INT,      /* Platform-native long integers (32 or 64 bits) */
+  BIGARRAY_KIND_MASK = 0xFF     /* Mask for kind in flags field */
+};
+
+enum caml_bigarray_layout {
+  BIGARRAY_C_LAYOUT = 0,           /* Row major, indices start at 0 */
+  BIGARRAY_FORTRAN_LAYOUT = 0x100, /* Column major, indices start at 1 */
+  BIGARRAY_LAYOUT_MASK = 0x100  /* Mask for layout in flags field */
+};
+
+enum caml_bigarray_managed {
+  BIGARRAY_EXTERNAL = 0,        /* Data is not allocated by Caml */
+  BIGARRAY_MANAGED = 0x200,     /* Data is allocated by Caml */
+  BIGARRAY_MANAGED_MASK = 0x200 /* Mask for "managed" bit in flags field */
+};
+
+struct caml_bigarray_proxy {
+  long refcount;                /* Reference count */
+  void * data;                  /* Pointer to base of actual data */
+};
+
+struct caml_bigarray {
+  void * data;                /* Pointer to raw data */
+  long num_dims;              /* Number of dimensions */
+  long flags;   /* Kind of element array + memory layout + allocation status */
+  struct caml_bigarray_proxy * proxy; /* The proxy for sub-arrays, or NULL */
+  long dim[1] /*[num_dims]*/; /* Size in each dimension */
+};
+
+#define Bigarray_val(v) ((struct caml_bigarray *) Data_custom_val(v))
+
+#define Data_bigarray_val(v) (Bigarray_val(v)->data)
+
+extern value alloc_bigarray(int flags, int num_dims, void * data, long * dim);
+extern value alloc_bigarray_dims(int flags, int num_dims, void * data,
+                                 /*dimensions, with type long */);
+
+
+#endif