summaryrefslogtreecommitdiff
path: root/luatexbase-cctb.dtx
diff options
context:
space:
mode:
Diffstat (limited to 'luatexbase-cctb.dtx')
-rw-r--r--luatexbase-cctb.dtx49
1 files changed, 39 insertions, 10 deletions
diff --git a/luatexbase-cctb.dtx b/luatexbase-cctb.dtx
index 435bc0d..09ff77f 100644
--- a/luatexbase-cctb.dtx
+++ b/luatexbase-cctb.dtx
@@ -197,6 +197,43 @@ See source file '\inFileName' for details.
\expandafter\let\csname lltxb@cctb@loaded\endcsname\endinput
% \end{macrocode}
%
+% Catcode defenses.
+%
+% \begin{macrocode}
+\begingroup
+ \catcode123 1 % {
+ \catcode125 2 % }
+ \catcode 35 6 % #
+ \toks0{}%
+ \def\x{}%
+ \def\y#1 #2 {%
+ \toks0\expandafter{\the\toks0 \catcode#1 \the\catcode#1}%
+ \edef\x{\x \catcode#1 #2}}%
+ \y 123 1 % {
+ \y 125 2 % }
+ \y 35 6 % #
+ \y 10 12 % ^^J
+ \y 34 12 % "
+ \y 36 3 % $ $
+ \y 39 12 % '
+ \y 40 12 % (
+ \y 41 12 % )
+ \y 42 12 % *
+ \y 43 12 % +
+ \y 44 12 % ,
+ \y 45 12 % -
+ \y 46 12 % .
+ \y 47 12 % /
+ \y 60 12 % <
+ \y 61 12 % =
+ \y 64 11 % @ (letter)
+ \y 62 12 % >
+ \y 95 12 % _ (other)
+ \y 96 12 % `
+ \edef\y#1{\endgroup\edef#1{\the\toks0\relax}\x}%
+\expandafter\y\csname lltxb@cctb@AtEnd\endcsname
+% \end{macrocode}
+%
% Package declaration.
%
% \begin{macrocode}
@@ -228,20 +265,12 @@ See source file '\inFileName' for details.
\let\x\PackageWarningNoLine
\fi
\expandafter\endgroup
- \x{luatexbase-cctb}{LuaTeX is required for this package.^^J
- Aborting package loading.}
+ \x{luatexbase-cctb}{LuaTeX is required for this package. Aborting.}
+ \lltxb@cctb@AtEnd
\expandafter\endinput
\fi
% \end{macrocode}
%
-% Make sure the catcode of @ is correct, especially for \plaintex.
-%
-% \begin{macrocode}
-\expandafter\edef\csname lltxb@cctb@AtEnd\endcsname{%
- \catcode64 \the\catcode64\relax}
-\catcode64 11
-% \end{macrocode}
-%
% \subsubsection{Main content}
%
% Load the supporting Lua module.