Re: [NTG-context] XML Processing

21 May 2003

      Dear Alexandre,

I am using the following here, using the QUIZIT format for multiple choice
things.

Regards

Johannes

\def\abschnitt{\par}

\defineXMLenvironment [P]                              {}{\abschnitt}
\defineXMLargument    [TITLE]                          {\Anschreiben}
\defineXMLargument    [EXAM]                           {\gobble}
\defineXMLenvironment [INSTRUCTION]                    {\startframedtext}{\stopframedtext}
\defineXMLenvironment [QUESTION-GROUP] [id=,next=]     {\subject{\XMLpar{question-group}
                                                                {id}{}}\resetfrage}
                                                       {\par\page[yes]\Refseite}
\defineXMLenvironment [ITEM]                           {\item}{}
\defineXMLenvironment [MCHOICE]                        {\StartMchoice}{\StopMchoice}
\defineXMLenvironment [ANSWER]                         {\StartAnswer}{\StopAnswer}
\defineXMLenvironment [DESCRIPTION]                    {}{\StopDescription}

\definelabel[frage][text=Frage, location=inmargin]
\definelabel[antwort]

\def\StopDescription{\startitemize[a, inmargin, intro]}
\def\StartMchoice{\frage}
\def\StopMchoice{\stopitemize\page[bigpreference]}
\def\StartAnswer{\begingroup\def\abschnitt{\relax} \item }
\def\StopAnswer{\dotfill\inright{\Square}\endgroup\par}
        %{\XMLpar{ANSWER}{VALUE}}\par}
        %\XMLifequalelse{answer}{value}{wrong}{X}{O}}\par}
\def\gobble#1{}

\definemakeup[anschreiben][hoffset=17mm, voffset=50mm]
\definemakeup[refseite][hoffset=17mm, voffset=50mm]

\setuppagenumbering[state=none]

\startreusableMPgraphic{L7}
draw unitsquare scaled 14pt;
\stopreusableMPgraphic

\startuseMPgraphic{crossed}
u := 10pt;
draw unitsquare scaled u;
draw (0u,0u)--(1u,1u);
draw (0u,1u)--(1u,0u);
\stopuseMPgraphic

\startuseMPgraphic{doublecrossed}
u := 10pt;
draw unitsquare scaled u;
draw (0u,0u)--(1u,1u);
draw (0u,1u)--(1u,0u);
draw (0.5u,0u)--(0.5u,1u);
draw (0u,0.5u)--(1u,0.5u);
\stopuseMPgraphic

\def\Square{\reuseMPgraphic{L7}}
\def\Crossed{\reuseMPgraphic{crossed}}
\def\DoubleCrossed{\reuseMPgraphic{doublecrossed}}

\setupoutput[pdf]
\mainlanguage[de]
\useencoding[win]

\def\Anschreiben#1{%
\startanschreibenmakeup
{\tfb #1}\crlf
\vfill
\startitemize
\item Bitte schreiben Sie auf diese Seite Ihren Namen und Ihre
EDV-Nummer.
\item Die Zeit zur Bearbeitung beträgt 45 Minuten.
\item Jede Frage hat fünf Antworten. Nur eine
Antwort ist anzukreuzen.
\item Manche Fragen und Antworten können durch einen Seitenumbruch
unterbrochen sein.
\item Kreuzen Sie das Kästchen zur Antwort diagonal an
(\Crossed). Wenn Sie sich korrigieren möchten, kreuzen Sie es gerade
durch (\DoubleCrossed) und machen Ihr Kreuz in ein anderes Kästchen.
\item Die letzte Seite können Sie als Referenz nutzen, abreißen und behalten.
\stopitemize
\vfill
\stopanschreibenmakeup
\setupheadertexts[][#1]}

\def\Refseite{
\subject{Meine Lösungen}
\startitemize[n, three]
\item
\item
\item
\item
\item
\item
\item
\item
\item
\item
\item
\item
\stopitemize
}

\starttext
\processXMLfilegrouped{KlausurW2003n.xml}
\stoptext

-- 
Johannes Hüsing   There is something fascinating about science. One gets
hannes@ruhrau.de  such wholesale returns of conjecture from such a 
                  trifling investment of fact.                Mark Twain