Source Browser ?

1%D \module
2%D   [       file=mult-def,
3%D        version=2008.10.22,
4%D          title=\CONTEXT\ Multilingual Macros,
5%D       subtitle=Definitions,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\unprotect
15
16\installcorenamespace{multilingual}
17
18\setvalue{\??multilingual    czech}{cs}
19\setvalue{\??multilingual   german}{de}
20\setvalue{\??multilingual  english}{en}
21\setvalue{\??multilingual   french}{fr}
22\setvalue{\??multilingual  italian}{it}
23\setvalue{\??multilingual    dutch}{nl}
24\setvalue{\??multilingual  persian}{pe}
25\setvalue{\??multilingual romanian}{ro}
26
27% \def\userinterfacetag{\ifcsname\??multilingual\currentinterface\endcsname\csname\??multilingual\currentinterface\endcsname\else en\fi}
28% \def\userresponsestag{\ifcsname\??multilingual\currentresponses\endcsname\csname\??multilingual\currentresponses\endcsname\else en\fi}
29
30\def\userinterfacetag{\ifcsname\??multilingual\currentinterface\endcsname\lastnamedcs\else en\fi}
31\def\userresponsestag{\ifcsname\??multilingual\currentresponses\endcsname\lastnamedcs\else en\fi}
32
33% \input mult-\userinterfacetag  \relax
34% \input mult-m\userresponsestag \relax
35
36\clf_setuserinterface{\userinterfacetag}{\userresponsestag}
37
38% some left-overs
39
40\defineinterfaceconstant {HL} {HL}
41\defineinterfaceconstant {VL} {VL}
42\defineinterfaceconstant {NL} {NL}
43
44% stop todo
45
46\protect \endinput
47