obitools3/src/obidmscolumn_bool.c

/****************************************************************************
 * OBIDMS_column_bool functions                                              *
 ****************************************************************************/

/**
 * @file obidsmcolumn_bool.c
 * @author Celine Mercier
 * @date August 10th 2015
 * @brief Functions handling OBIColumns containing data with the OBIType OBI_BOOL.
 */


#include <stdlib.h>
#include <stdio.h>

#include "obidmscolumn.h"
#include "obitypes.h"
#include "obierrno.h"
#include "obidebug.h"


#define DEBUG_LEVEL 0


/**********************************************************************
 *
 * 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_bool_with_elt_idx(OBIDMS_column_p column, size_t line_nb, size_t element_idx, obibool_t value)
{
	// when/where check if can write?
	*(((obibool_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx) = value;
	return 0;
}


obibool_t obi_column_get_bool_with_elt_idx(OBIDMS_column_p column, size_t line_nb, size_t element_idx)
{
	return *(((obibool_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx);
}


int obi_column_set_bool_with_elt_name(OBIDMS_column_p column, size_t line_nb, char* element_name, obibool_t value)
{
	size_t element_idx;

	if (!strcmp(element_name, "\0"))	// element name is empty
	{
		if (obi_column_get_nb_elements_per_line(column) == 1)	// check that there is only one element per line
			element_idx = 0;
		else													// there is more than one element per line
		{
			obi_set_errno(OBICOL_UNKNOWN_ERROR);
			obidebug(1, "\nAn element name must be specified");
        	return -1;
		}
	}
    else
    {
		element_idx = obi_column_get_element_index_from_name(column, element_name);
		if (element_idx == -1)
			return -1;
    }

	obi_column_set_bool_with_elt_idx(column, line_nb, element_idx, value);

	return 0;
}


obibool_t obi_column_get_bool_with_elt_name(OBIDMS_column_p column, size_t line_nb, char* element_name)
{
	size_t element_idx;

	if (!strcmp(element_name, "\0"))	// element name is empty
	{
		if (obi_column_get_nb_elements_per_line(column) == 1)	// check that there is only one element per line
			element_idx = 0;
		else													// there is more than one element per line
		{
			obi_set_errno(OBICOL_UNKNOWN_ERROR);
			obidebug(1, "\nAn element name must be specified");
        	return -1;
		}
	}
    else
    {
		element_idx = obi_column_get_element_index_from_name(column, element_name);
		if (element_idx == -1)
			return -1;
    }

	return obi_column_get_bool_with_elt_idx(column, line_nb, element_idx);
}