/usr/share/lifelines/src-rtf.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 55 56 57 58 59 60 61 62 | /*
* @progname src-rtf.ll
* @version none
* @author Paul Buckely <cu-chulain@home.net>
* @category
* @output RTF
* @description
*
* List sources in RTF, a modification of src.ll .
*
*/
/*include ("util.ll") for using nodetag(), which is much slower*/
proc main ()
{
set(i, 1)
set(errcnt, 1)
newfile(strconcat(database(),".src.rtf"),0)
dayformat(0)
monthformat(4)
dateformat(8) /* this is used so I can sort by numeric date*/
"{\\rtf1\\ansicpg1000{\\fonttbl\\f0\\fnil Times-Roman;}\n"
"\\margl720\\margr720\\margt720\\margb720\\viewkind1\n"
"\\pard\\tx560\\tx2700\\tx4140\\tx5020\\f0\\b0\\i0\\fs20\\fi-5020\\li5020\\fc0\\cf0\ "
"\\ul Ref#\\ulnone \t\n"
"\\ul Key\\ulnone \t\n"
"\\ul Entered\\ulnone \t\n"
"\\ul Order\\ulnone \t\n"
"\\ul Title\\ulnone \\\n"
while(le(errcnt,100)) {
set(skey, concat("@S",d(i),"@"))
if(snode, dereference(skey)) {
set(mytitle, "")
set(myrefn, "")
set(mydate, "")
set(order, "")
fornodes(snode, anode) {
if(eqstr(tag(anode),"TITL")) {
set(mytitle, save(value(anode))) }
elsif(eqstr(tag(anode),"REFN")) {
set(myrefn, save(value(anode))) }
/*set(myrefn, nodetag(snode, "REFN")) this works but it's much slower*/
set(mydate, stddate(snode))
extractdate(snode, dy, mo, yr)
set(order, add(mul(100,mo),add(dy,mul(2,yr))))
}
d(i) "\t" myrefn "\t" mydate "\t" d(order) "\t" mytitle"\\\n"
}
else {
set(errcnt, add(errcnt,1))
}
set(i, add(i,1))
}
"\\\n\\\n"
"References generated "
date(gettoday())
" from "
concat(database(),".gedcom")
" using LifeLines genealogy software.\\\n"
nl() "}"
}
|