internal static void writeEventCommon(StreamWriter file, EventCommon data, int level)
{
WriteCommon.writeExtended(file, level, data.Tag, data.Descriptor);
WriteCommon.writeIfNotEmpty(file, "TYPE", data.Type, level + 1);
WriteCommon.writeIfNotEmpty(file, "DATE", data.Date, level + 1);
WriteCommon.writeIfNotEmpty(file, "PLAC", data.Place, level + 1);
// TODO place structure
WriteCommon.writeIfNotEmpty(file, "AGNC", data.Agency, level + 1);
WriteCommon.writeIfNotEmpty(file, "RELI", data.Religion, level + 1);
WriteCommon.writeIfNotEmpty(file, "CAUS", data.Cause, level + 1);
WriteCommon.writeIfNotEmpty(file, "RESN", data.Restriction, level + 1);
WriteCommon.writeSubNotes(file, data, level + 1);
WriteCommon.writeSourCit(file, data, level + 1);
WriteCommon.writeObjeLink(file, data, level + 1);
}
// TODO more closely match PAF order? - specifically _UID
// INDI records are written to be as close to PAF order as possible
private static void WriteOneIndi(StreamWriter file, IndiRecord indiRecord)
{
file.WriteLine("0 @{0}@ INDI", indiRecord.Ident);
WriteCommon.writeIfNotEmpty(file, "RESN", indiRecord.Restriction, 1);
foreach (var nameRec in indiRecord.Names)
{
writeName(file, nameRec);
// this convolution below due to:
// 1 NAME Joe /Blow/ Jr.
// vs
// 1 NAME Joe
// 2 GIVN Joe
// 2 SURN Blow
// TODO nice to output parts in specific order despite how they came in
bool didGivn = false;
bool didSurn = false;
bool didNSFX = false;
foreach (var tuple in nameRec.Parts)
{
file.WriteLine("2 {0} {1}", tuple.Item1, tuple.Item2);
if (tuple.Item1 == "SURN")
{
didSurn = true;
}
if (tuple.Item1 == "GIVN")
{
didGivn = true;
}
if (tuple.Item1 == "NSFX")
{
didNSFX = true;
}
}
if (!didGivn && !string.IsNullOrEmpty(nameRec.Names))
{
file.WriteLine("2 GIVN {0}", nameRec.Names);
}
if (!didSurn && !string.IsNullOrEmpty(nameRec.Surname))
{
file.WriteLine("2 SURN {0}", nameRec.Surname);
}
if (!didNSFX && !string.IsNullOrEmpty(nameRec.Suffix))
{
file.WriteLine("2 NSFX {0}", nameRec.Suffix);
}
// TODO other name pieces
WriteCommon.writeSubNotes(file, nameRec, 2);
WriteCommon.writeSourCit(file, nameRec, 2);
}
// TODO want to init sex to 'U' but don't want to output it if not initialized as such
if (string.IsNullOrEmpty(indiRecord.FullSex) && indiRecord.Sex != '\0' && indiRecord.Sex != 'U')
{
WriteCommon.writeIfNotEmpty(file, "SEX", indiRecord.Sex.ToString(), 1);
}
else
{
WriteCommon.writeIfNotEmpty(file, "SEX", indiRecord.FullSex, 1);
}
WriteEvent.writeEvents(file, indiRecord.Events, 1);
WriteEvent.writeEvents(file, indiRecord.Attribs, 1);
// Insure FAMS/FAMC output in consistent order
if (indiRecord.Links != null)
{
foreach (var indiLink in indiRecord.Links.Where(indiLink => indiLink.Type == IndiLink.FAMS_TYPE))
{
writeLink(file, indiLink);
}
foreach (var indiLink in indiRecord.Links.Where(indiLink => indiLink.Type == IndiLink.FAMC_TYPE))
{
writeLink(file, indiLink);
}
}
// TODO LDS events
foreach (var aliasLink in indiRecord.AliasLinks)
{
WriteCommon.writeXrefIfNotEmpty(file, "ALIA", aliasLink, 1);
}
foreach (var assoRec in indiRecord.Assocs)
{
WriteCommon.writeXrefIfNotEmpty(file, "ASSO", assoRec.Ident, 1);
WriteCommon.writeIfNotEmpty(file, "RELA", assoRec.Relation, 2);
WriteCommon.writeSubNotes(file, assoRec, 2);
WriteCommon.writeSourCit(file, assoRec, 2);
}
// Different from FAM because there are different types
foreach (var submitter in indiRecord.Submitters)
{
string tag = "";
switch (submitter.SubmitterType)
{
case Submitter.SubmitType.SUBM:
tag = "SUBM";
break;
case Submitter.SubmitType.ANCI:
tag = "ANCI";
break;
case Submitter.SubmitType.DESI:
tag = "DESI";
break;
}
file.WriteLine("1 {0} @{1}@", tag, submitter.Xref);
}
WriteCommon.writeRecordTrailer(file, indiRecord, 1);
}
