Added tuple columns containing immutable indexed data arrays of any type

src/obidmscolumn_array.c

@@ -0,0 +1,85 @@
+/****************************************************************************
+ * OBIDMS_column_array functions                                              *
+ ****************************************************************************/
+
+/**
+ * @file obidsmcolumn_array.c
+ * @author Celine Mercier
+ * @date October 27th 2017
+ * @brief Functions handling OBIColumns containing data arrays of any type.
+ */
+
+
+#include <stdlib.h>
+#include <stdio.h>
+
+#include "obidmscolumn.h"
+#include "obitypes.h"
+#include "array_indexer.h"
+
+
+/**********************************************************************
+ *
+ * D E F I N I T I O N   O F   T H E   P U B L I C   F U N C T I O N S
+ *
+ **********************************************************************/
+
+
+int obi_column_set_array(OBIDMS_column_p column, index_t line_nb, const void* value, uint8_t elt_size, int32_t value_length)
+{
+	index_t idx;
+
+	if (obi_column_prepare_to_set_value(column, line_nb, 0) < 0)
+		return -1;
+
+	if (value == OBITuple_NA)
+	{
+		idx = OBIIdx_NA;
+	}
+	else
+	{
+		// Add the value in the indexer
+		idx = obi_index_array(column->indexer, value, elt_size, value_length);
+		if (idx == -1)	// An error occurred
+		{
+			if (obi_errno == OBI_READ_ONLY_INDEXER_ERROR)
+			{
+				// If the error is that the indexer is read-only, clone it
+				if (obi_clone_column_indexer(column) < 0)
+					return -1;
+				obi_set_errno(0);
+
+				// Add the value in the new indexer
+				idx = obi_index_array(column->indexer, value, elt_size, value_length);
+				if (idx == -1)
+					return -1;
+			}
+			else
+				return -1;
+		}
+	}
+
+	// Add the value's index in the column
+	*(((index_t*) (column->data)) + line_nb) = idx;
+
+	return 0;
+}
+
+
+const void* obi_column_get_array(OBIDMS_column_p column, index_t line_nb, int32_t* value_length_p)
+{
+	index_t idx;
+
+	if (obi_column_prepare_to_get_value(column, line_nb) < 0)
+		return OBITuple_NA;
+
+	idx = *(((index_t*) (column->data)) + line_nb);
+
+	// Check NA
+	if (idx == OBIIdx_NA)
+		return OBITuple_NA;
+
+	return obi_retrieve_array(column->indexer, idx, value_length_p);
+}
+
+