%D \module
%D   [       file=syst-xtx,
%D        version=2004.09.11,
%D          title=\CONTEXT\ System Macros,
%D       subtitle=\XETEX\ specifics,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\ifx\XeTeXversion\undefined \endinput \fi

\unprotect

%D For the moment, the only thing needed is to load are the
%D mappings from lower to uppercase characters.

\ifx\scratchread\undefined \newread\scratchread \fi

\def\setcclcuc #1 #2 #3 %
  {\global\catcode"#1=11
   \global\lccode "#1="#2
   \global\uccode "#1="#3 }

\immediate\openin\scratchread=enco-xtx.tex \ifeof\scratchread
  \immediate\openin\scratchread=unicode-letters.tex  \ifeof\scratchread
    \immediate\openin\scratchread=xplain.tex \ifeof\scratchread
       % no initialization file
    \else
      \input xplain.tex
    \fi
  \else
    \input unicode-letters.tex
  \fi
\else
  \input enco-xtx.tex
\fi

\ifx\XeTeXuseglyphmetrics\undefined \else
    \XeTeXuseglyphmetrics=1
\fi

% patch needed for turkish

\setcclcuc 201C 201C 201C
\setcclcuc 201D 201D 201D

\protect \endinput