92 lines
2.1 KiB
C
Executable File
92 lines
2.1 KiB
C
Executable File
/****************************************************************************
|
|
* 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)
|
|
{
|
|
*value_length_p = -1;
|
|
return OBITuple_NA;
|
|
}
|
|
|
|
idx = *(((index_t*) (column->data)) + line_nb);
|
|
|
|
// Check NA
|
|
if (idx == OBIIdx_NA)
|
|
{
|
|
*value_length_p = 0;
|
|
return OBITuple_NA;
|
|
}
|
|
|
|
return obi_retrieve_array(column->indexer, idx, value_length_p);
|
|
}
|
|
|
|
|