/usr/share/lifelines/genancc.ll 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 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | /*
* @progname genancc.ll
* @version 1997-11
* @author Wetmore, Manis, Kirby
* @category
* @output Text
* @description
*
* The output of this report is a GEDCOM file of the following:
* all ancestors,
* all spouses and
* all children of all ancestors and
* all descendents of a person,
* as well as the person him/herself
* and his/her spouses.
*
* This form of the program is probably the most useful for extracting
* data when a person requests data about someone from your database.
*
* modified from genancc1
* by Tom Wetmore, ttw@cbnewsl.att.com
* (as sent to Cliff Manis in August 1992)
*
* This report works only with the LifeLines Genealogy program
*
* [I have only given it a name and added lots of comments] /cliff
* August 1992
* Nov. 1997 I added lines to get all descendants --James Kirby
*
*/
proc main ()
{
indiset(set1) /*declare an indi set*/
indiset(set2) /*declare another indi set*/
indiset(set3) /*declare another indi set*/
getindi(indi) /*ask user to identify person*/
addtoset(set1, indi, n) /*add that person to set1*/
set(set2, ancestorset(set1)) /* for ancestors */
set(set1, union(set1, set2)) /* combine set1 and set2 */
set(set2, spouseset(set1))
set(set1, union(set1, set2)) /* combine set1 and set2 */
set(set2, childset(set1))
set(set1, union(set1, set2)) /* combine set1 and set2 */
set(set3, descendantset(set2)) /* get descendants */
set(set1, union(set1, set3)) /* combine set1 and set2 */
gengedcom(set1) /*write final set as GEDCOM file*/
}
/* end of report */
|