summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/platex-tools/pxeverysel.sty
blob: b2cc13f916b7b1e231eeb871cbef6dd6842e802e (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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
%
% pxeverysel.sty
% originally written by Takayuki Yato (ZR)
% and modified by Hironobu Yamashita
%
% This package is distributed as part of the platex-tools bundle
% maintained by Hironobu Yamashita
% by courtesy of the original author.
% https://github.com/aminophen/platex-tools
%

%% package declaration
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{pxeverysel}
    [2016/12/28 v0.5 Patch to everysel for (u)pLaTeX]

%% previous code for ctex support has been removed in v0.5,
%% as ctex has depended on pxeverysel since 2016/12/27 v2.4.7

%% preparations
\def\pxys@pkgname{pxeverysel}
\def\pxys@warn{\PackageWarningNoLine\pxys@pkgname}

%% load it
\RequirePackage{everysel}

%% support for (u)pLaTeX font tracing
\@ifpackageloaded{tracefnt}{%
  \ifx\kanjiskip\@undefined\else\ifx\ucs\@undefined
  \RequirePackage{ptrace}\else\RequirePackage{uptrace}\fi\fi}{}

%--------------------------------------- helpers

%% unique tokens
\def\pxys@mark{\pxys@mark@}
\def\pxys@fin{\pxys@fin@}

%% \pxys@patch@cmd\CMD{<pre>}{<post>}{<new>}
\@onlypreamble\pxys@patch@cmd
\def\pxys@patch@cmd#1#2#3#4{%
  \def\pxys@next##1#2##2#3##3\pxys@mark##4\pxys@fin{%
    \ifx\pxys@mark##4\pxys@mark
      \let\pxys@fragment\relax
    \else
      \def\pxys@fragment{##2}%
      \def#1{##1#4##3}%
    \fi}%
  \expandafter\pxys@next#1\pxys@mark#2#3\pxys@mark\pxys@fin}

%% \pxys@append@to\CSa\CSb
\@onlypreamble\pxys@append@to
\def\pxys@append@to#1#2{%
  \expandafter\g@addto@macro\expandafter#1\expandafter{#2}}

%% \pxys@term
\let\pxys@term\relax

%---------------------------------------

%% variables
\let\pxys@self@hook\@empty
\let\pxys@everysel@hook\@empty
\@onlypreamble\pxys@selectfont
\let\pxys@selectfont\relax
\@onlypreamble\pxys@org@selectfont
\let\pxys@org@selectfont\relax
\@onlypreamble\pxys@new@selectfont
\let\pxys@new@selectfont\relax

%% \@EverySelectfont@Init redefined
\@onlypreamble\pxys@EverySelectfont@Init
\let\pxys@EverySelectfont@Init\@EverySelectfont@Init
\def\@EverySelectfont@Init{%
  \pxys@preproc
  \pxys@EverySelectfont@Init
  \pxys@postproc}

%% \pxys@preproc
\@onlypreamble\pxys@preproc
\def\pxys@preproc{%
  % prepare
  \expandafter\let\expandafter\pxys@selectfont
      \csname selectfont \endcsname
  \let\pxys@org@selectfont\pxys@selectfont
  % extract "pre-\size@update" insertion
  \pxys@append@to\pxys@selectfont\pxys@term
  \pxys@patch@cmd\pxys@selectfont
    {\pickup@font\font@name}{\size@update\pxys@term}%      % plfonts/ptrace
    {\pickup@font\font@name\pxys@self@hook\pxys@everysel@hook
     \size@update}%
  \ifx\pxys@fragment\relax
    \let\pxys@selectfont\pxys@org@selectfont
    % extract "pre-\enc@update" insertion
    \pxys@patch@cmd\pxys@selectfont
      {\pickup@font\font@name}{\size@update\enc@update}%   % ltfsstrc/tracefnt
      {\pickup@font\font@name\pxys@self@hook\pxys@everysel@hook
       \size@update\enc@update}%
    \ifx\pxys@fragment\relax % failure
      \let\pxys@selectfont\relax
    \else
      \pxys@append@to\pxys@self@hook\pxys@fragment
    \fi
  \else
    \pxys@append@to\pxys@self@hook\pxys@fragment
  \fi
  \let\pxys@new@selectfont\pxys@selectfont
  % prepare for everysel routine
  \let\pxys@CheckCommand\CheckCommand
  \let\CheckCommand\@gobble
  % hack for disabling duplicate font info
  \expandafter\let\expandafter\pxys@ver@tracefnt
    \csname ver@tracefnt.sty\endcsname
  \expandafter\let\csname ver@tracefnt.sty\endcsname\@undefined}

%% \pxys@postproc
\@onlypreamble\pxys@postproc
\def\pxys@postproc{%
  % revert the hack for disabling duplicate font info
  \expandafter\let\csname ver@tracefnt.sty\endcsname\pxys@ver@tracefnt
  % post handling of everysel routine
  \let\CheckCommand\pxys@CheckCommand
  \let\pxys@CheckCommand\@undefined
  \expandafter\let\expandafter\pxys@selectfont
      \csname selectfont \endcsname
  % extract the code insertion by everysel
  \pxys@patch@cmd\pxys@selectfont
    {\pickup@font\font@name}{\size@update\enc@update}{}%
  \ifx\pxys@fragment\relax % failure
    \let\pxys@new@selectfont\relax
  \else % success
    \pxys@append@to\pxys@everysel@hook\pxys@fragment
  \fi
  % commit the change
  \ifx\pxys@new@selectfont\relax % failure
    \let\pxys@selectfont\pxys@org@selectfont % revert
    \pxys@warn{Failed in patching \string\selectfont}%
  \else % success
    \let\pxys@selectfont\pxys@new@selectfont
  \fi
  \expandafter\let\csname selectfont \endcsname\pxys@selectfont}

%--------------------------------------- done
\endinput
%% EOF