/**************************************************************************** * OBIDMS_column_char functions * ****************************************************************************/ /** * @file obidsmcolumn_char.c * @author Celine Mercier * @date August 10th 2015 * @brief Functions handling OBIColumns containing data with the OBIType OBI_CHAR. */ #include #include #include "obidmscolumn.h" #include "obitypes.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_obichar_with_elt_idx(OBIDMS_column_p column, index_t line_nb, index_t element_idx, obichar_t value) { if (obi_column_prepare_to_set_value(column, line_nb, element_idx) < 0) return -1; // Set the value *(((obichar_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx) = value; return 0; } obichar_t obi_column_get_obichar_with_elt_idx(OBIDMS_column_p column, index_t line_nb, index_t element_idx) { if (obi_column_prepare_to_get_value(column, line_nb) < 0) return OBIChar_NA; return *(((obichar_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx); } int obi_column_set_obichar_with_elt_name(OBIDMS_column_p column, index_t line_nb, const char* element_name, obichar_t value) { index_t element_idx = obi_column_get_element_index_from_name(column, element_name); if (element_idx == OBIIdx_NA) return -1; return obi_column_set_obichar_with_elt_idx(column, line_nb, element_idx, value); } obichar_t obi_column_get_obichar_with_elt_name(OBIDMS_column_p column, index_t line_nb, const char* element_name) { index_t element_idx = obi_column_get_element_index_from_name(column, element_name); if (element_idx == OBIIdx_NA) return OBIChar_NA; return obi_column_get_obichar_with_elt_idx(column, line_nb, element_idx); }