blob: be69f793ff6756b677dbebf564262dc53d784860 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
%D \module
%D [ file=char-ini,
%D version=2006.08.20,
%D title=\CONTEXT\ Character Macros,
%D subtitle=Character Support (Initialization),
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright=PRAGMA]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
\writestatus{loading}{Character Support (initialization)}
\registerctxluafile{char-ini}{1.001}
\registerctxluafile{char-cmp}{1.001} % maybe we will load this someplace else
\registerctxluafile{char-tok}{1.001} % maybe we will load this someplace else
% \def\defchar
% {\afterassignment\dodefchar\scratchcounter}
% \def\dodefchar
% {\catcode\scratchcounter\active\relax
% \ctxlua{tex.sprint("\\unexpanded\\def"..utf.char(\the\scratchcounter))}}
\def\utfchar#1{\ctxlua{tex.uprint(\number#1)}}
\endinput
|