/*========================================================
* write_node_to_editfile - write all parts of gedcom node
* to a file for editing
*======================================================*/
void
write_node_to_editfile (NODE node)
{
FILE *fp;
XLAT ttmo = transl_get_predefined_xlat(MINED);
ASSERT(fp = fopen(editfile, LLWRITETEXT));
prefix_file_for_edit(fp);
write_nodes(0, fp, ttmo, node, TRUE, TRUE, TRUE);
fclose(fp);
}
/*==========================================================
* add_indi_by_edit -- Add new person to database by editing
* (with user interaction)
* returns addref'd record
*========================================================*/
RECORD
add_indi_by_edit (RFMT rfmt)
{
FILE *fp;
RECORD indi0=0;
NODE indi=0;
STRING str, msg;
BOOLEAN emp;
XLAT ttmi = transl_get_predefined_xlat(MEDIN);
if (readonly) {
message(_(qSronlya));
return NULL;
}
/* Create person template for user to edit */
if (!(fp = fopen(editfile, LLWRITETEXT)))
return NULL;
prefix_file_for_edit(fp);
/* prefer useroption in this db */
if ((str = getlloptstr("INDIREC", NULL)))
fprintf(fp, "%s\n", str);
else { /* default */
fprintf(fp, "0 INDI\n1 NAME Fname/Surname\n1 SEX MF\n");
fprintf(fp, "1 BIRT\n 2 DATE\n 2 PLAC\n");
fprintf(fp, "1 DEAT\n 2 DATE\n 2 PLAC\n1 SOUR\n");
}
/* Have user edit new person record */
fclose(fp);
do_edit();
while (TRUE) {
INT cnt;
if (indi0) {
release_record(indi0);
indi0=0;
}
indi0 = file_to_record(editfile, ttmi, &msg, &emp);
if (!indi0) {
if (ask_yes_or_no_msg(msg, _(qSiredit))) {
do_edit();
continue;
}
break;
}
indi = nztop(indi0);
cnt = resolve_refn_links(indi);
/* check validation & allow user to reedit if invalid */
/* this is a showstopper, so alternative is to abort */
if (!valid_indi_tree(indi, &msg, NULL)) {
if (ask_yes_or_no_msg(msg, _(qSiredit))) {
do_edit();
continue;
}
release_record(indi0);
indi0 = NULL;
break;
}
/* Allow user to reedit if desired if any refn links unresolved */
/* this is not a showstopper, so alternative is to continue */
if (cnt > 0) {
char msgb[120];
llstrncpyf(msgb, sizeof(msgb), uu8
, get_unresolved_ref_error_string(cnt), cnt);
if (ask_yes_or_no_msg(msgb, _(qSireditopt))) {
write_indi_to_file_for_edit(indi, editfile, rfmt);
do_edit();
continue;
}
}
break;
}
if (!indi0 || !ask_yes_or_no(_(qScfpadd))) {
if (indi0) release_record(indi0);
return NULL;
}
/* add the new record to the database */
add_new_indi_to_db(indi0);
msg_status(_(qSgdpadd), indi_to_name(nztop(indi0), 35));
return indi0;
}
/*================================================
* edit_add_record -- Add record to database by editing
* recstr: [IN] default record
* redt: [IN] re-edit message
* ntype, [IN] S, E, or X
* cfrm: [IN] confirm message
*==============================================*/
static RECORD
edit_add_record (STRING recstr, STRING redt, STRING redtopt, char ntype, STRING cfrm)
{
FILE *fp;
NODE node=0, refn;
STRING msg, key;
BOOLEAN emp;
XLAT ttmi = transl_get_predefined_xlat(MEDIN);
STRING (*getreffnc)(void) = NULL; /* get next internal key */
void (*todbasefnc)(NODE) = NULL; /* write record to dbase */
void (*tocachefnc)(NODE) = NULL; /* write record to cache */
/* set up functions according to type */
if (ntype == 'S') {
getreffnc = getsxref;
todbasefnc = sour_to_dbase;
tocachefnc = sour_to_cache;
} else if (ntype == 'E') {
getreffnc = getexref;
todbasefnc = even_to_dbase;
tocachefnc = even_to_cache;
} else { /* X */
getreffnc = getxxref;
todbasefnc = othr_to_dbase;
tocachefnc = othr_to_cache;
}
/* Create template for user to edit */
if (!(fp = fopen(editfile, LLWRITETEXT))) {
msg_error(_(qSnofopn), editfile);
return FALSE;
}
prefix_file_for_edit(fp);
fprintf(fp, "%s\n", recstr);
/* Have user edit new record */
fclose(fp);
do_edit();
while (TRUE) {
INT cnt;
node = file_to_node(editfile, ttmi, &msg, &emp);
if (!node) {
if (ask_yes_or_no_msg(msg, redt)) { /* yes, edit again */
do_edit();
continue;
}
break;
}
cnt = resolve_refn_links(node);
/* check validation & allow user to reedit if invalid */
/* this is a showstopper, so alternative is to abort */
if (!valid_node_type(node, ntype, &msg, NULL)) {
if (ask_yes_or_no_msg(msg, redt)) {
do_edit();
continue;
}
free_nodes(node);
node = NULL; /* fail out */
break;
}
/* Allow user to reedit if desired if any refn links unresolved */
/* this is not a showstopper, so alternative is to continue */
if (cnt > 0) {
char msgb[120];
snprintf(msgb, sizeof(msgb)
, get_unresolved_ref_error_string(cnt), cnt);
if (ask_yes_or_no_msg(msgb, redtopt)) {
write_node_to_editfile(node);
do_edit();
continue;
}
}
break;
}
if (!node || !ask_yes_or_no(cfrm)) {
if (node) free_nodes(node);
return NULL;
}
nxref(node) = strsave((STRING)(*getreffnc)());
key = rmvat(nxref(node));
for (refn = nchild(node); refn; refn = nsibling(refn)) {
if (eqstr("REFN", ntag(refn)) && nval(refn))
add_refn(nval(refn), key);
}
(*todbasefnc)(node);
(*tocachefnc)(node);
return key_to_record(key);
}
