summaryrefslogtreecommitdiff
path: root/language/japanese/BX/bxbase/bxutf8x.def
blob: 49149a4c6479830cb23a4c0379a203f0f58240c7 (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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
%%
%% This is file 'bxutf8x.def'.
%%
%
%% file declaration
\ProvidesFile{bxutf8x.def}[2023/02/23 v1.2a BX extended utf8x input]
%
% Note: All definitions in this file should be local.
% This file should not spill any spaces or \par.
%
%% code guards
\catcode32=10\relax
\expandafter\edef\csname bxus@i@restore@codes\endcsname{%
  \catcode34=\the\catcode34% <">
  \catcode46=\the\catcode46% <.>
  \catcode58=\the\catcode58% <:>
  \catcode64=\the\catcode64% <@>
\relax}%
\catcode34=12 %
\catcode46=12 %
\catcode58=12 %
\catcode64=11 %
\g@addto@macro\bxus@i@restore@codes{%
  \let\bxus@i@restore@codes\@undefined}%
%
%--------------------------------------- dynamic part
%
\def\bxus@i@error{\PackageError{inputenc}}%
\ifx\@nodocument\relax
  \ifx\bxus@bxutfx@loaded\@undefined
    \bxus@i@error
     {cannot load `bxutf8x' after \string\begin{document}}\@eha
    \bxus@i@restore@codes\endinput\fi\fi
%
%% load 'utf8x' encoding
\InputIfFileExists{utf8x.def}{}%
  {\PackageError{inputenc}{input encoding `utf8x' unavailable}%
   {You must install `unicode' package to use it.}%
   \bxus@i@restore@codes\endinput}%
%\@inpenc@test  % This is done in utf8.def
%
% When this file is reloaded, the 'static' part will be skipped.
\ifx\bxus@bxutfx@loaded\@undefined\else
  \bxus@i@restore@codes \endinput \fi
\let\bxus@bxutfx@loaded=t%
%
%--------------------------------------- Static part
%
%% error messages
\def\bxus@err@nodrv{\bxus@i@error
  {Unicode driver not found}\@ehb}%
%
%%%% \bxus@uc@char@notloaded
% Hooked version of \uc@char@notloaded
\def\bxus@uc@char@notloaded#1{%
  \count@=#1\divide\count@256%
  \edef\uc@temp@a{uni-\number\count@.def}%
  \expandafter\ifx\csname\uc@temp@a\endcsname\relax\else
    \uc@secondtry#1\relax\fi
  \ifnum\uc@secondtry=#1\relax % all trial of utf8x failed
    \bxUInt{#1}%
  \else
    \begingroup
    \ifUnicodeOptionsavemem\else
      \global\expandafter\let\csname\uc@temp@a\endcsname\@ne \fi
    \def\uc@got{#1}\uni@resetcatcodes
    \expandafter\InputIfFileExists\expandafter{\uc@temp@a}{%
      \global\let\uni@dataloaded1}{}%
    \endgroup
    \uc@secondtry#1\relax\uni@char{#1}%
  \fi}%
\def\bxus@uc@notloaderr#1#2#3{%
  \bxUInt{#1}}%   \bxUInt should be robust
%
%% attach the hook
% Note that ucs.sty could be loaded after utf8x.def.
\AtBeginDocument{%
  \let\uc@notloaderr\bxus@uc@notloaderr
  \let\uc@char@notloaded\bxus@uc@char@notloaded}%
%
%% force ucs 'fasterrors' option switched on
% Heavy 'uninames' decoding process is of no use in presence of the hook,
% and it causes unexpected result in use of pTeX.
\AtBeginDocument{%
  \let\UnicodeOptionfasterrorsfalse\UnicodeOptionfasterrorstrue
  \UnicodeOptionfasterrorstrue}%
%
%% default (useless) Unicode driver
% Note: this \bxUHex definition is used for check.
\providecommand*\bxUInt{\bxUIntDummyBxutfx}%
\newcommand*\bxUIntDummyBxutfx[1]{?\protect\bxus@err@nodrv}%
%
%--------------------------------------- all done
\bxus@i@restore@codes
\endinput
%% EOF