/*========================================================= * ancestor_indiseq -- Create ancestor sequence of sequence *=======================================================*/ INDISEQ ancestor_indiseq (seq) INDISEQ seq; { TABLE tab; LIST anclist, genlist; INDISEQ anc; NODE indi, fath, moth; STRING key, pkey; INT gen; if (!seq) return; tab = create_table(); anclist = create_list(); genlist = create_list(); anc = create_indiseq(); FORINDISEQ(seq, el, num) enqueue_list(anclist, skey(el)); enqueue_list(genlist, 0); ENDINDISEQ while (!empty_list(anclist)) { key = (STRING) dequeue_list(anclist); gen = (INT) dequeue_list(genlist) + 1; indi = key_to_indi(key); fath = indi_to_fath(indi); moth = indi_to_moth(indi); if (fath && !in_table(tab, pkey = indi_to_key(fath))) { pkey = strsave(pkey); append_indiseq(anc, pkey, NULL, gen, TRUE, TRUE); enqueue_list(anclist, pkey); enqueue_list(genlist, gen); insert_table(tab, pkey, NULL); } if (moth && !in_table(tab, pkey = indi_to_key(moth))) { pkey = strsave(pkey); append_indiseq(anc, pkey, NULL, gen, TRUE, TRUE); enqueue_list(anclist, pkey); enqueue_list(genlist, gen); insert_table(tab, pkey, NULL); } } remove_table(tab, DONTFREE); remove_list(anclist, NULL); remove_list(genlist, NULL); return anc; }
0 @I2298@ INDI
1 NAME Emeline Adela /Wetmore/
2 SOUR JCW, pg 270
2 SOUR Daphne Baird Wetmore research.
1 NAME Emaline Adele /Wetmore/
2 SOUR Anne Marie Flewelling
1 NAME Emeline Adele /Wetmore/
2 SOUR Unknown
1 SEX F
1 BIRT
2 DATE 10 May 1843
3 SOUR JCW, pg 270
3 SOUR Daphne Baird Wetmore research.
2 PLAC Bloomfield, Kings County, New Brunswick
3 SOUR Daphne Baird Wetmore research.
2 PLAC Norton, Kings County, New Brunswick
3 SOUR JCW, pg 270
1 DEAT
2 DATE 1917
3 SOUR 16pp
3 SOUR Daphne Baird Wetmore research.
2 PLAC Saint John, New Brunswick
3 SOUR Daphne Baird Wetmore research.
1 BURI
2 CEME Christ Church Anglican Cemetery
2 SOUR Daphne Baird Wetmore research.
1 FAMC @F602@
1 FAMS @F657@
1 FAMS @F5069@
0 @I259@ INDI 1 NAME Josiah /Dwight/ 1 SEX M 1 BIRT 2 DATE 19 February 1671 or 8 February 1670/1 2 PLAC Dedham, Massachusetts 1 GRAD 2 DATE 1687 2 INST Harvard College 1 RESI 2 PLAC Hatfield 1 RESI 2 PLAC Woodstock 1 WILL 2 DATE 1724 1 DEAT 2 DATE 1744 or 1748 2 PLAC Thompson, Windham County, Connecticut 1 SOUR Dwight Family History 1 FAMC @F362@ 1 FAMS @F49@
// DEDate.ym
// DeadEndsImport
// Created by Thomas Wetmore on 2/17/2011.
// Last changed on 2/20/2011.
// Copyright 2011 DeadEnds Software. All rights reserved.
// This yacc/bison file defines the grammar of DeadEnds date strings.
%{
#import <Foundation/Foundation.h>
#import "DEDate.h"
extern int datelex ();
%}
%union {
NSInteger ival;
id idval;
}
%token OR
%token AND
%token<ival> MONTH
%token ABOUT
%token COMPUTED
%token INTERPRETED
%token BEFORE
%token AFTER
%token PROBABLY
%token POSSIBLY
%token BETWEEN
%token FROM
%token TO
%token ON
%token<ival> INT
%type<idval> dateList date singleDate dateRange year
%type<ival> prefix
%%
dateList : date {
datesList = [[NSMutableArray arrayWithObject: $1] retain];
}
| dateList OR date {
[datesList addObject: $3];
[$3 release];
}
| dateList AND date {
[datesList addObject: $3];
[$3 release];
}
;
date : singleDate
| dateRange
;
singleDate : prefix MONTH INT ',' year {
$$ = [[DESingleDate alloc] initPrefix: $1 year: $5 month: $2 day: $3];
}
| prefix INT MONTH year {
$$ = [[DESingleDate alloc] initPrefix: $1 year: $4 month: $3 day: $2];
}
| prefix MONTH year {
$$ = [[DESingleDate alloc] initPrefix: $1 year: $3 month: $2 day: 0];
}
| prefix year {
$$ = [[DESingleDate alloc] initPrefix: $1 year: $2 month: 0 day: 0];
}
| prefix INT '/' INT '/' year {
$$ = [[DESingleDate alloc] initPrefix: $1 year: $6 month: $2 day: $4];
}
;
prefix : /* empty */ {
$$ = 0;
}
| ABOUT {
$$ = DEDatePrefixAbout;
}
| BEFORE {
$$ = DEDatePrefixBefore;
}
| COMPUTED {
$$ = DEDatePrefixComputed;
}
| INTERPRETED {
$$ = DEDATEPrefixInterpreted;
}
| AFTER {
$$ = DEDatePrefixAfter;
}
| ON OR BEFORE {
$$ = DEDatePrefixOnOrBefore;
}
| ON OR AFTER {
$$ = DEDatePrefixOnOrAfter;
}
| POSSIBLY {
$$ = DEDatePrefixPossibly;
}
| PROBABLY {
$$ = DEDatePrefixProbably;
}
;
year : INT {
$$ = [[DEYear alloc] initYear: $1 double: NO];
}
| INT '/' INT {
$$ = [[DEYear alloc] initYear: $1 double: YES];
}
;
dateRange : BETWEEN singleDate AND singleDate {
$$ = [[DEDateRange alloc] initType: DEDatePrefixBetween one: $2 two: $4];
}
| FROM singleDate TO singleDate {
$$ = [[DEDateRange alloc] initType: DEDatePrefixFromTo one: $2 two: $4];
}
;
%%
// Lexer object created externally that returns tokens.
//--------------------------------------------------------------------------------------------------
extern DEDateLexer* dateLexer;
// This is the lexer for the DeadEnds date parser.
//--------------------------------------------------------------------------------------------------
int datelex ()
{
int tokenType = [dateLexer getToken: &datelval];
return tokenType;
}
I will edit the wiki page with more info about the classes as time goes on.
I am proposing this model as a candidate model for BG.
Tom Wetmore, Chief Bottle Washer, DeadEnds Software
I am still reading your specification. The thing that interests me initially is your use of roles.