summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/x-corres.mkii
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/x-corres.mkii')
-rw-r--r--Master/texmf-dist/tex/context/base/x-corres.mkii136
1 files changed, 0 insertions, 136 deletions
diff --git a/Master/texmf-dist/tex/context/base/x-corres.mkii b/Master/texmf-dist/tex/context/base/x-corres.mkii
deleted file mode 100644
index effd79a5b31..00000000000
--- a/Master/texmf-dist/tex/context/base/x-corres.mkii
+++ /dev/null
@@ -1,136 +0,0 @@
-%D \module
-%D [ file=x-corres,
-%D version=2003.12.15, % replaces keep-02a cum suis
-%D title=\CONTEXT\ XML Modules,
-%D subtitle=Handling Correspondence Base,
-%D author=Hans Hagen,
-%D date=\currentdate,
-%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
-
-%D The selection spec:
-
-\setvariables
- [contacts]
- [selection=,
- file=x-corres.xml] % fall back
-
-%D First we define the group expansion pass:
-
-\startsetups[contacts:collect]
-
- \defineXMLprocess [contacts]
-
- \defineXMLignore [contact]
-
- \defineXMLargument [contactfile]
- \processfile
-
- \defineXMLenvironmentsave [contactgroup] [label=]
- {\startXMLmappinggroup[contacts]}
- {\XMLaddcontactgrouptoselection
- \stopXMLmappinggroup}
-
-\stopsetups
-
-%D Next we define the main processing pass:
-
-\startsetups[contacts:process]
-
- \defineXMLprocess[contacts]
-
- \defineXMLignore [contactgroup]
-
- \defineXMLargument [contactfile]
- \processfile
-
- \defineXMLenvironmentsave[contact] [label=]
- {\startXMLmappinggroup[contacts]}
- {\XMLselectcontact
- \stopXMLmappinggroup}
-
-\stopsetups
-
-\startXMLmapping[contacts]
-
- \defineXMLsave [initials]
- \defineXMLsave [formalname]
- \defineXMLsave [informalname]
- \defineXMLsave [title]
- \defineXMLsave [prefix]
- \defineXMLsave [suffix]
- \defineXMLsave [telephone]
- \defineXMLsave [mobiletelephone]
- \defineXMLsave [telefax]
- \defineXMLsave [email]
- \defineXMLsave [address]
- \defineXMLsave [information]
-
- \defineXMLenvironment [p] \endgraf \endgraf
-
- \defineXMLargument [member] \XMLaddcontacttoselection
-
-\stopXMLmapping
-
-%D The selection macros: we expand groups and replace them
-%D by contact labels in the selection spec.
-
-\def\XMLaddcontactgrouptoselection
- {\edef\XMLcontactlist{\getvariable{contacts}{selection}}%
- \edef\XMLgrouplabel {\XMLop{label}}%
- \expanded{\doifinset{\XMLgrouplabel}{\XMLcontactlist}}
- {\let\XMLgrouplist\empty
- \XMLflush{contactgroup}%
- \substituteincommalist\XMLgrouplabel\XMLgrouplist\XMLcontactlist
- \expanded
- {\globalsetvariables
- [contacts]
- [selection={\XMLcontactlist}]}}}
-
-\def\XMLaddcontacttoselection#1%
- {\addtocommalist{#1}\XMLgrouplist}
-
-%D The main selector:
-
-\def\XMLselectcontact
- {\edef\XMLcontactlist {\getvariable{contacts}{selection}}%
- \edef\XMLcontactlabel{\XMLop{label}}%
- \doifelsenothing{\XMLcontactlist}
- {\donetrue}
- {\expanded{\doifinsetelse{\XMLcontactlabel}{\XMLcontactlist}}
- {\donetrue}
- {\donefalse}}%
- \ifdone
- \XMLflush{contact}%
- \setups[contact:handle]%
- \fi}
-
-%D The default:
-
-\startsetups[contact:handle]
-
- \XMLflush{address}
-
-\stopsetups
-
-\setups[contacts:process]
-
-%D Handy:
-
-\def\XMLprocesscontacts
- {\dosingleempty\XMLprocesscontacts}
-
-\def\XMLprocesscontacts[#1]%
- {\bgroup
- \doifelsenothing{#1}
- {\XMLprocesscontacts[\getvariable{contacts}{file}]}
- {\setups[contacts:collect]%
- \processcommacommand[#1]\processXMLfile
- \setups[contacts:process]%
- \processcommacommand[#1]\processXMLfile}%
- \egroup}
-
-\endinput