obidmscolumn_str.c 3.09 KB
Newer Older
1
/****************************************************************************
2
 * OBIDMS_column_str functions                                              *
3 4 5
 ****************************************************************************/

/**
6
 * @file obidsmcolumn_str.c
7
 * @author Celine Mercier
8
 * @date October 28th 2015
9
 * @brief Functions handling OBIColumns containing data in the form of indices referring to character strings.
10 11 12 13 14 15 16 17
 */


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

#include "obidmscolumn.h"
#include "obitypes.h"
Celine Mercier's avatar
Celine Mercier committed
18
#include "char_str_indexer.h"
19 20 21 22 23 24 25 26


/**********************************************************************
 *
 * 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
 *
 **********************************************************************/

27
int obi_column_set_obistr_with_elt_idx(OBIDMS_column_p column, index_t line_nb, index_t element_idx, const char* value)
28
{
29
	index_t idx;
30
	char*   new_indexer_name;
31 32 33 34

	if (obi_column_prepare_to_set_value(column, line_nb) < 0)
		return -1;

35 36 37 38 39
	if (value == OBIStr_NA)
	{
		idx = OBIIdx_NA;
	}
	else
40
	{
41 42 43
		// Add the value in the indexer
		idx = obi_index_char_str(column->indexer, value);
		if (idx == -1)	// An error occurred
44
		{
45 46 47 48 49 50 51 52 53 54 55
			if (obi_errno == OBI_READ_ONLY_INDEXER_ERROR)
			{
				// TODO PUT IN A COLUMN FUNCTION
				// If the error is that the indexer is read-only, clone it
				new_indexer_name = obi_build_indexer_name((column->header)->name, (column->header)->version);
				if (new_indexer_name == NULL)
					return -1;
				column->indexer = obi_clone_indexer(column->indexer, new_indexer_name);	// TODO Need to lock this somehow?
				strcpy((column->header)->indexer_name, new_indexer_name);
				free(new_indexer_name);
				obi_set_errno(0);
56

57 58 59 60 61 62
				// Add the value in the new indexer
				idx = obi_index_char_str(column->indexer, value);
				if (idx == -1)
					return -1;
			}
			else
63 64 65
				return -1;
		}
	}
66 67

	// Add the value's index in the column
Celine Mercier's avatar
Celine Mercier committed
68
	*(((index_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx) = idx;
69

70 71 72 73
	return 0;
}


74
const char* obi_column_get_obistr_with_elt_idx(OBIDMS_column_p column, index_t line_nb, index_t element_idx)
75
{
76
	index_t idx;
77

78
	if (obi_column_prepare_to_get_value(column, line_nb) < 0)
79
		return OBIStr_NA;
80

Celine Mercier's avatar
Celine Mercier committed
81
	idx = *(((index_t*) (column->data)) + (line_nb * ((column->header)->nb_elements_per_line)) + element_idx);
82 83 84

	// Check NA
	if (idx == OBIIdx_NA)
Celine Mercier's avatar
Celine Mercier committed
85
		return OBIStr_NA;
86

Celine Mercier's avatar
Celine Mercier committed
87
	return obi_retrieve_char_str(column->indexer, idx);
88 89
}

90

91
int obi_column_set_obistr_with_elt_name(OBIDMS_column_p column, index_t line_nb, const char* element_name, const char* value)
Celine Mercier's avatar
Celine Mercier committed
92
{
93
	index_t element_idx = obi_column_get_element_index_from_name(column, element_name);
94
	if (element_idx == OBIIdx_NA)
95
		return -1;
Celine Mercier's avatar
Celine Mercier committed
96

97
	return obi_column_set_obistr_with_elt_idx(column, line_nb, element_idx, value);
98 99 100
}


101
const char* obi_column_get_obistr_with_elt_name(OBIDMS_column_p column, index_t line_nb, const char* element_name)
102
{
103
	index_t element_idx = obi_column_get_element_index_from_name(column, element_name);
104
	if (element_idx == OBIIdx_NA)
Celine Mercier's avatar
Celine Mercier committed
105 106
		return OBIStr_NA;

107
	return obi_column_get_obistr_with_elt_idx(column, line_nb, element_idx);
Celine Mercier's avatar
Celine Mercier committed
108 109
}