/usr/share/lifelines/divorce.li is in lifelines-reports 3.0.61-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | /*
* @progname divorce.li
* @version 1.0 of 2004-07-03
* @author Vincent Broman (vpbroman@mstar2.net)
* @category
* @output gedcom event function values
* @description
*
* Utility function supporting divorce/DIVO events in GeDCom data
* divorce( fam) -> event,
*
* I put an equivalent function in my C source, but this can be used everywhere.
*/
func divorce( fam) {
fornodes( root( fam), childnode) {
if( eqstr( tag( childnode), "DIVO")) {
return( childnode)
}
}
return( 0)
}
|