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
|
%%
%% This is file `upldefs.ltx',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% uplfonts.dtx (with options: `pldefs,xpt')
%%
%% Copyright (c) 2010 ASCII MEDIA WORKS
%% Copyright (c) 2016 Takuji Tanaka
%% Copyright (c) 2016 Japanese TeX Development Community
%%
%% This file is part of the upLaTeX2e system (community edition).
%% --------------------------------------------------------------
%%
%% File: uplfonts.dtx
\ProvidesFile{upldefs.ltx}
[2016/06/29 v1.6e-u00 upLaTeX Kernel (Default settings)]
\def\g@tlastchart@#1{#1\ifx\lastnodechar\@undefined\m@ne\else\lastnodechar\fi}
\def\pltx@mark{\pltx@mark@}
\let\pltx@scanstop\relax
\long\def\pltx@cond#1\fi{%
#1\expandafter\@firstoftwo\else\expandafter\@secondoftwo\fi}
\long\def\pltx@isletter#1{%
\expandafter\pltx@isletter@i#1\pltx@scanstop}
\long\def\pltx@isletter@i#1\pltx@scanstop{%
\pltx@cond\ifx\pltx@mark#1\pltx@mark\fi{\@firstoftwo}%
{\pltx@isletter@ii\pltx@scanstop#1\pltx@scanstop{}#1\pltx@mark}}
\long\def\pltx@isletter@ii#1\pltx@scanstop#{%
\pltx@cond\ifx\pltx@mark#1\pltx@mark\fi%
{\pltx@isletter@iii}{\pltx@isletter@iv}}
\long\def\pltx@isletter@iii#1\pltx@mark{\@secondoftwo}
\long\def\pltx@isletter@iv#1#2#3\pltx@mark{%
\pltx@cond\ifx\pltx@mark#3\pltx@mark\fi{%
\pltx@cond{\ifnum0\ifcat A\noexpand#21\fi\ifcat=\noexpand#21\fi>\z@}\fi
{\@firstoftwo}{\@secondoftwo}%
}{\@secondoftwo}}
\def \check@nocorr@ #1#2\nocorr#3\@nil {%
\let \check@icl \relax% \maybe@ic から変更
\def \check@icr {\ifvmode \else \aftergroup \maybe@ic \fi}%
\def \reserved@a {\nocorr}%
\def \reserved@b {#1}%
\def \reserved@c {#3}%
\ifx \reserved@a \reserved@b
\ifx \reserved@c \@empty
\let \check@icl \@empty
\else
\let \check@icl \@empty
\let \check@icr \@empty
\fi
\else
\ifx \reserved@c \@empty
\else
\let \check@icr \@empty
\fi
\fi
}
\DeclareKanjiEncodingDefaults{}{}
\DeclareErrorKanjiFont{JY2}{mc}{m}{n}{10}
\DeclareYokoKanjiEncoding{JY2}{}{}
\DeclareKanjiSubstitution{JY2}{mc}{m}{n}
\DeclareTateKanjiEncoding{JT2}{}{}
\DeclareKanjiSubstitution{JT2}{mc}{m}{n}
\newcommand\mcdefault{mc}
\newcommand\gtdefault{gt}
\newcommand\kanjiencodingdefault{JY2}
\newcommand\kanjifamilydefault{\mcdefault}
\newcommand\kanjiseriesdefault{\mddefault}
\newcommand\kanjishapedefault{\updefault}
\kanjiencoding{JY2}
\input{jy2mc.fd}
\input{jy2gt.fd}
\input{jt2mc.fd}
\input{jt2gt.fd}
\fontencoding{JT2}\selectfont
\fontencoding{JY2}\selectfont
\DeclareTextFontCommand{\textmc}{\mcfamily}
\DeclareTextFontCommand{\textgt}{\gtfamily}
\DeclareRobustCommand\em
{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
\eminnershape \else \gtfamily \itshape \fi}%
\def\eminnershape{\mcfamily \upshape}%
\DeclarePreloadSizes{JY2}{mc}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JY2}{gt}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JT2}{mc}{m}{n}{5,7,10,12}
\DeclarePreloadSizes{JT2}{gt}{m}{n}{5,7,10,12}
\InputIfFileExists{ukinsoku.tex}%
{\message{Loading kinsoku patterns for japanese.}}
{\errhelp{The configuration for kinsoku is incorrectly installed.^^J%
If you don't understand this error message you need
to seek^^Jexpert advice.}%
\errmessage{OOPS! I can't find any kinsoku patterns for japanese^^J%
\space Think of getting some or the
uplatex2e setup will never succeed}\@@end}
\kanjiskip=0pt plus .4pt minus .5pt
\autospacing
\xkanjiskip=.25zw plus1pt minus1pt
\autoxspacing
\jcharwidowpenalty=500
\def\<{\inhibitglue}
\endinput
%%
%% End of file `upldefs.ltx'.
|
