+
+/********************************************************************/
+/* C_NOTE_CONC_SOUR */
+/********************************************************************/
+
+Gedcom_ctxt compat_generate_note_sour_start(Gedcom_ctxt parent,
+ int level, struct tag_struct ts,
+ char* pointer)
+{
+ Gedcom_ctxt self;
+ struct xref_value *xr = gedcom_parse_xref(pointer, XREF_USED, XREF_SOUR);
+ if (xr == NULL) {
+ self = (void*)-1;
+ }
+ else {
+ self = start_element(ELT_SUB_SOUR, parent, level-1, ts, pointer,
+ GEDCOM_MAKE_XREF_PTR(val1, xr));
+ }
+ compat_state[C_NOTE_CONC_SOUR].vp = parent;
+ return self;
+}
+
+void compat_generate_note_sour_end(Gedcom_ctxt self)
+{
+ if (self != (void*) -1) {
+ end_element(ELT_SUB_SOUR, compat_state[C_NOTE_CONC_SOUR].vp,
+ self, GEDCOM_MAKE_NULL(val1));
+ }
+}
+
+/********************************************************************/
+/* C_NONSTD_SOUR_TAGS */
+/********************************************************************/
+
+int is_nonstd_sour_tag(const char* tag)
+{
+ if (strncmp(tag, "FILN", 5))
+ return 1;
+ else if (strncmp(tag, "URL", 4))
+ return 1;
+ else if (strncmp(tag, "LOCA", 5))
+ return 1;
+ else if (strncmp(tag, "REGI", 5))
+ return 1;
+ else if (strncmp(tag, "VOL", 4))
+ return 1;
+ else
+ return 0;
+}
+
+int compat_check_sour_tag(const char* tag, struct safe_buffer* b)
+{
+ if (is_nonstd_sour_tag(tag)) {
+ reset_buffer(b);
+ SAFE_BUF_ADDCHAR(b, '_');
+ safe_buf_append(b, tag);
+ gedcom_warning(_("Converting undefined tag '%s' to user tag '%s'"),
+ tag, get_buf_string(b));
+ return 1;
+ }
+ else
+ return 0;
+}
+
+Gedcom_ctxt compat_generate_nonstd_sour_start(Gedcom_ctxt parent, int level,
+ struct tag_struct ts,
+ char* value,
+ struct safe_buffer* b)
+{
+ Gedcom_ctxt self = NULL;
+ reset_buffer(b);
+ SAFE_BUF_ADDCHAR(b, '_');
+ safe_buf_append(b, ts.string);
+ gedcom_warning(_("Converting invalidly used tag '%s' to user tag '%s'"),
+ ts.string, get_buf_string(b));
+ ts.string = get_buf_string(b);
+
+ self = start_element(ELT_USER, parent, level, ts, value,
+ GEDCOM_MAKE_NULL_OR_STRING(val1, value));
+ compat_state[C_NONSTD_SOUR_TAGS].i = 1;
+ return self;
+}
+
+void compat_generate_nonstd_sour_end(Gedcom_ctxt parent, Gedcom_ctxt self)
+{
+ end_element(ELT_USER, parent, self, NULL);
+ compat_state[C_NONSTD_SOUR_TAGS].i = 0;
+}
+
+int compat_generate_nonstd_sour_state()
+{
+ return compat_state[C_NONSTD_SOUR_TAGS].i;
+}