From: Frederic LANCON
Date: Wed, 8 Apr 1998 12:59:16 +0200
To: LINES-L@LISTSERV.NODAK.EDU
Subject: [french] ps-anc8

Bonjour,

   Here are few changes you may want to do in order to adapt the
excellent "ps-anc8" report program (Robert Simms) to the French
language.
   The only not trivial lines correspond to the iso-latin1 support
(accentuated characters) which was not working for me.

   Frederic Lancon (Frédéric Lançon) --- Grenoble, France
------------

 diff ps-anc8.ll my_ps-anc8.ll

612c612
<     monthformat (4)
---
>     monthformat (2)
621c621
<                                   "  The ancestors of ", name(root_person),
---
>                                   "  Les ancêtres de ", name(root_person),
626c626
<                                   "  The descendants of ", name(root_person),
---
>                                   "  Les descendants de ", name(root_person),
727c727
<           "(The ancestors of "
---
>           "(Les ancêtres de "
729c729
<           "(The descendants of "
---
>           "(Les descendants de "
1577c1577
<     " (b. " dateplace_return ")"
---
>     " (n. " dateplace_return ")"
1781a1782,1795
>   "%BeginISO : notre gourou PostScript" nl()
>   "%Pour travailler avec des polices " nl()
>   "%utilisant le codage ISOLatin1" nl()
>   "%Note: les polices Symbol ZapfDingbats ne seront pas affectées" nl()
>   "/findfont_0 dup where true eq {pop pop}{/findfont load def} ifelse" nl()
>   "/findfont {dup /Symbol ne {" nl()
>   "           dup /ZapfDingbats ne {" nl()
>   "   dup dup findfont_0 dup length dict begin" nl()
>   "   {1 index/FID ne{def}{pop pop}ifelse}forall" nl()
>   "   /Encoding ISOLatin1Encoding def currentdict end " nl()
>   "   definefont pop}if}if  " nl()
>   "   findfont_0" nl()
>   "} def" nl()
>   "%EndISO" nl()