dlugolecki.net.pl
Dziennik
Polecane
Software
projects
/
gedcom-parse.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
aaf25c4
)
Parsing of age values.
author
Peter Verthez
<Peter.Verthez@advalvas.be>
Wed, 28 Aug 2002 16:20:32 +0000
(16:20 +0000)
committer
Peter Verthez
<Peter.Verthez@advalvas.be>
Wed, 28 Aug 2002 16:20:32 +0000
(16:20 +0000)
gedcom/gedcom.y
patch
|
blob
|
history
diff --git
a/gedcom/gedcom.y
b/gedcom/gedcom.y
index f305257db49f2f0f6e59a7c1db9c17c4347036ca..8159d81a4d63ff7270ec5b4502a926562760a445 100644
(file)
--- a/
gedcom/gedcom.y
+++ b/
gedcom/gedcom.y
@@
-146,6
+146,7
@@
#include "encoding.h"
#include "interface.h"
#include "date.h"
#include "encoding.h"
#include "interface.h"
#include "date.h"
+#include "age.h"
#include "xref.h"
#include "compat.h"
#include "xref.h"
#include "compat.h"
@@
-2241,10
+2242,11
@@
event_detail_date_sect : OPEN DELIM TAG_DATE mand_line_item
}
;
event_detail_age_sect : OPEN DELIM TAG_AGE mand_line_item
}
;
event_detail_age_sect : OPEN DELIM TAG_AGE mand_line_item
- { $<ctxt>$
+ { struct age_value age = gedcom_parse_age($4);
+ $<ctxt>$
= start_element(ELT_SUB_EVT_AGE,
PARENT, $1, $3, $4,
= start_element(ELT_SUB_EVT_AGE,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_
STRING(val1, $4
));
+ GEDCOM_MAKE_
AGE(val1, age
));
START(AGE, $<ctxt>$)
}
no_std_subs
START(AGE, $<ctxt>$)
}
no_std_subs
@@
-2347,9
+2349,10
@@
fam_even_husb_sub : fam_even_age_sect { OCCUR2(AGE, 1, 1) }
;
fam_even_age_sect : OPEN DELIM TAG_AGE mand_line_item
;
fam_even_age_sect : OPEN DELIM TAG_AGE mand_line_item
- { $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
+ { struct age_value age = gedcom_parse_age($4);
+ $<ctxt>$ = start_element(ELT_SUB_FAM_EVT_AGE,
PARENT, $1, $3, $4,
PARENT, $1, $3, $4,
- GEDCOM_MAKE_
STRING(val1, $4
));
+ GEDCOM_MAKE_
AGE(val1, age
));
START(AGE, $<ctxt>$)
}
no_std_subs
START(AGE, $<ctxt>$)
}
no_std_subs