summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/third/letter/extension/addrentry.nle
blob: 0a7a45bbfe3fa1347c850d4641107ac565f45d62 (plain)
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
%D \module
%D   [       file=addrentry,
%D        version=2008.12.26,
%D          title=\CONTEXT\ Letter Extension,
%D       subtitle=KOMA-Script addrentry support,
%D         author=Wolfgang Schuster,
%D           date=\currentdate,
%D      copyright=Wolfgang Schuster,
%D          email=schuster.wolfgang@googlemail.com,
%D        license=Public Domain]

\unprotect

\def\addrentry#1#2#3#4#5#6#7#8#9%
  {\doifsomething{#1}
     {\doifelsenothing{#2}
        {\setvalue{\????ld\????ld#9}{#1\\#3}}
        {\setvalue{\????ld\????ld#9}{#2\space#1\\#3}}}}

\def\adrentry#1#2#3#4#5#6#7#8%
  {\addrentry{#1}{#2}{#3}{#4}{#5}{#6}{#7}{}{#8}}

\let\adrchar\gobbleoneargument

\definefileconstant {addressfile} {adr}

\definecorrespondencefile[\v!address][\v!file][\f!addressfile]

\protect \endinput