/*============================
* disp_to_int -- convert GUI codeset to internal
* Created: 2002/12/03 (Perry Rapp)
*==========================*/
void
disp_to_int (ZSTR zstr)
{
XLAT xlat = transl_get_predefined_xlat(MDSIN);
if (xlat)
transl_xlat(xlat, zstr); /* ignore failure */
}
/*============================
* int_to_disp -- convert internal codeset to GUI
* Created: 2002/12/03 (Perry Rapp)
*==========================*/
void
int_to_disp (ZSTR zstr)
{
XLAT xlat = transl_get_predefined_xlat(MINDS);
if (xlat)
transl_xlat(xlat, zstr); /* ignore failure */
}
/*========================================================
* 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);
}
/*=====================================
* write_fam_to_file -- write node tree into GEDCOM
* (no user interaction)
*===================================*/
static void
write_fam_to_file (NODE fam, CNSTRING file)
{
FILE *fp;
XLAT ttmo = transl_get_predefined_xlat(MINED);
NODE refn, husb, wife, chil, body;
ASSERT(fp = fopen(file, LLWRITETEXT));
prefix_file(fp, ttmo);
split_fam(fam, &refn, &husb, &wife, &chil, &body);
write_nodes(0, fp, ttmo, fam, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, refn, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, husb, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, wife, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, body, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, chil, TRUE, TRUE, TRUE);
join_fam(fam, refn, husb, wife, chil, body);
fclose(fp);
}
/*=====================================
* write_indi_to_file - write node tree into GEDCOM
* (no user interaction)
*===================================*/
void
write_indi_to_file (NODE indi, CNSTRING file)
{
FILE *fp;
XLAT ttmo = transl_get_predefined_xlat(MINED);
NODE name, refn, sex, body, famc, fams;
ASSERT(fp = fopen(file, LLWRITETEXT));
prefix_file(fp, ttmo);
split_indi_old(indi, &name, &refn, &sex, &body, &famc, &fams);
write_nodes(0, fp, ttmo, indi, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, name, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, refn, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, sex, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, body , TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, famc, TRUE, TRUE, TRUE);
write_nodes(1, fp, ttmo, fams, TRUE, TRUE, TRUE);
fclose(fp);
join_indi(indi, name, refn, sex, body, famc, fams);
}
/*=====================================
* prefix_file_for_report - write BOM prefix to file if appropriate
* This handles prepending BOM (byte order mark) to UTF-8 files
*===================================*/
void
prefix_file_for_report (FILE *fp)
{
XLAT ttmo = transl_get_predefined_xlat(MINRP);
prefix_file(fp, ttmo);
}
/*=====================================
* prefix_file_for_gedcom - write BOM prefix to file if appropriate
* This handles prepending BOM (byte order mark) to UTF-8 files
*===================================*/
void
prefix_file_for_gedcom (FILE *fp)
{
XLAT ttmo = transl_get_predefined_xlat(MINGD);
prefix_file(fp, ttmo);
}
/*=====================================
* prefix_file_for_edit - write BOM prefix to file if appropriate
* This handles prepending BOM (byte order mark) to UTF-8 files
*===================================*/
void
prefix_file_for_edit (FILE *fp)
{
XLAT ttmo = transl_get_predefined_xlat(MINED);
prefix_file(fp, ttmo);
}
/*========================================+
* poutput -- Output string in current mode
*=======================================*/
void
poutput (STRING str, BOOLEAN *eflg)
{
STRING p;
ZSTR zstr = 0;
INT c, len;
XLAT ttmr = transl_get_predefined_xlat(MINRP);
if (!str || (len = strlen(str)) <= 0) return;
zstr = translate_string_to_zstring(ttmr, str);
str = zs_str(zstr);
if ((len = strlen(str)) <= 0)
goto exit_poutput;
if (!Poutfp) {
if (!request_file(eflg))
goto exit_poutput;
setbuf(Poutfp, NULL);
}
switch (outputmode) {
case UNBUFFERED:
fwrite(str, len, 1, Poutfp);
adjust_cols(str);
goto exit_poutput;
case BUFFERED:
if (len >= 1024) {
fwrite(linebuffer, linebuflen, 1, Poutfp);
fwrite(str, len, 1, Poutfp);
linebuflen = 0;
bufptr = (STRING)linebuffer;
adjust_cols(str);
goto exit_poutput;
}
if (len + linebuflen >= 1024) {
fwrite(linebuffer, linebuflen, 1, Poutfp);
linebuflen = 0;
bufptr = (STRING)linebuffer;
}
linebuflen += len;
while ((c = *bufptr++ = *str++)) {
if (c == '\n')
curcol = 1;
else
curcol++;
}
--bufptr;
goto exit_poutput;
case PAGEMODE:
p = pagebuffer + (currow - 1)*__cols + curcol - 1;
while ((c = *str++)) {
if (c == '\n') {
curcol = 1;
currow++;
p = pagebuffer + (currow - 1)*__cols;
} else {
if (curcol <= __cols && currow <= __rows)
*p++ = c;
curcol++;
}
}
goto exit_poutput;
default:
FATAL();
}
exit_poutput:
zs_free(&zstr);
}
/*==========================================================
* 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_record -- Edit record in database
* root1: [IN] record to edit (may be NULL)
* idedt: [IN] user id prompt
* letr: [IN] record type (E, S, or X)
* redt: [IN] reedit prompt displayed if hard error after editing
* redtopt: [IN] reedit prompt displayed if soft error (unresolved links)
* val: [IN] callback to validate routine
* cfrm: [IN] confirmation msg string
* tag: [IN] tag (SOUR, EVEN, or NULL)
* todbase: [IN] callback to write record to dbase
* gdmsg: [IN] success message
* rfmt: [IN] display reformatter
*=====================================*/
static BOOLEAN
edit_record (RECORD rec1, STRING idedt, INT letr, STRING redt, STRING redtopt
, BOOLEAN (*val)(NODE, STRING *, NODE)
, STRING cfrm, void (*todbase)(NODE), STRING gdmsg
, RFMT rfmt)
{
XLAT ttmi = transl_get_predefined_xlat(MEDIN);
STRING msg, key;
BOOLEAN emp;
NODE root0=0, root1=0, root2=0;
NODE refn1=0, refn2=0, refnn=0, refn1n=0;
NODE body=0, node=0;
/* Identify record if need be */
if (!rec1) {
rec1 = ask_for_record(idedt, letr);
}
root1 = nztop(rec1);
if (!root1) {
message(_(qSnosuchrec));
return FALSE;
}
/* Have user edit record */
annotate_with_supplemental(root1, rfmt);
write_node_to_editfile(root1);
resolve_refn_links(root1);
do_edit();
if (readonly) {
root2 = file_to_node(editfile, ttmi, &msg, &emp);
if (!equal_tree(root1, root2))
message(_(qSronlye));
free_nodes(root2);
return FALSE;
}
while (TRUE) {
INT cnt;
root2 = file_to_node(editfile, ttmi, &msg, &emp);
if (!root2) {
if (ask_yes_or_no_msg(msg, redt)) {
do_edit();
continue;
}
break;
}
cnt = resolve_refn_links(root2);
/* check validation & allow user to reedit if invalid */
/* this is a showstopper, so alternative is to abort */
if (!(*val)(root2, &msg, root1)) {
if (ask_yes_or_no_msg(msg, redt)) {
do_edit();
continue;
}
free_nodes(root2);
root2 = 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];
snprintf(msgb, sizeof(msgb)
, get_unresolved_ref_error_string(cnt), cnt);
if (ask_yes_or_no_msg(msgb, redtopt)) {
write_node_to_editfile(root2);
do_edit();
continue;
}
}
break;
}
/* If error or no change or user backs out return */
if (!root2) return FALSE;
if (equal_tree(root1, root2) || !ask_yes_or_no(cfrm)) {
free_nodes(root2);
return FALSE;
}
/* Prepare to change database */
/* Move root1 data into root0 & save refns */
split_othr(root1, &refn1, &body);
root0 = copy_node(root1);
join_othr(root0, NULL, body);
/* delete root0 tree & root1 node (root1 is solitary node) */
free_nodes(root0); root0 = 0;
free_nodes(root1); root1 = 0;
/* now copy root2 node into root1, then root2 tree under it */
root1 = copy_node(root2);
split_othr(root2, &refn2, &body);
refnn = copy_nodes(refn2, TRUE, TRUE);
join_othr(root1, refn2, body);
/* now root2 is solitary node, delete it */
free_node(root2); root2 = 0;
/* Change the database */
(*todbase)(root1);
key = rmvat(nxref(root1));
/* remove deleted refns & add new ones */
classify_nodes(&refn1, &refnn, &refn1n);
for (node = refn1; node; node = nsibling(node))
if (nval(node)) remove_refn(nval(node), key);
for (node = refnn; node; node = nsibling(node))
if (nval(node)) add_refn(nval(node), key);
free_nodes(refn1);
free_nodes(refnn);
free_nodes(refn1n);
msg_info(gdmsg);
return TRUE;
}
/*================================================
* 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);
}