+char* gom_set_string_for_locale(char** data, const char* locale_str)
+{
+ char* result = NULL;
+ char* utf8_str = convert_locale_to_utf8(locale_str);
+
+ if (!utf8_str)
+ gedcom_error(_("The input '%s' is not a valid string for the locale"),
+ locale_str);
+ else
+ result = gom_set_string(data, utf8_str);
+
+ return result;
+}
+
+void unref_xref_value(struct xref_value *xref)
+{
+ if (xref)
+ gedcom_unlink_xref(xref->type, xref->string);
+}
+
+void UNREFALLFUNC(xref_list)(struct xref_list* obj)
+{
+ if (obj) {
+ struct xref_list* runner;
+ for (runner = obj; runner; runner = runner->next) {
+ unref_xref_value(runner->xref);
+ UNREFALLFUNC(user_data)(runner->extra);
+ }
+ }
+}
+
+void CLEANFUNC(xref_list)(struct xref_list *obj)
+{
+ if (obj) {
+ DESTROY_CHAIN_ELTS(user_data, obj->extra);
+ }
+}
+
+struct xref_value* gom_set_xref(struct xref_value** data, const char* xref)
+{
+ struct xref_value* result = NULL;
+ struct xref_value* newval = NULL;
+
+ if (data) {
+ if (xref) {
+ newval = gedcom_get_by_xref(xref);
+ if (!newval)
+ gedcom_error(_("No record found for xref '%s'"), xref);
+ }
+
+ /* Unreference the old value if not NULL */
+ if (*data)
+ result = gedcom_unlink_xref((*data)->type, (*data)->string);
+ else
+ result = newval;
+
+ /* Reference the new value if not NULL */
+ if (result != NULL && newval) {
+ result = gedcom_link_xref(newval->type, newval->string);
+ /* On error, perform rollback to old value (guaranteed to work) */
+ if (result == NULL)
+ gedcom_link_xref((*data)->type, (*data)->string);
+ }
+
+ if (result != NULL) {
+ *data = newval;
+ result = newval;
+ }
+ }
+ return result;
+}
+
+struct xref_list* gom_add_xref(struct xref_list** data, const char* xref)