\newif\if@tempswz
\DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
\DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
-% \notkfam@list@<enc>: list of non-defined kanji families under <enc>
-% \kfam@list@<enc>: list of kanji families under <enc>, defined in a .fd file
\DeclareRobustCommand\fontfamily[1]{%
\@notkfamfalse\@notffamfalse\edef\tmp@item{{#1}}%
\ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
\edef\k@family{#1}%
- \else % search font definition file...
- \ifcsname kfam@list@\k@encoding\endcsname\else
- \expandafter\gdef\csname kfam@list@\k@encoding\endcsname{}%
- \expandafter\gdef\csname notkfam@list@\k@encoding\endcsname{}%
- \fi
- \edef\@templist{\@nameuse{kfam@list@\k@encoding}}%
- \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
- \ifin@\edef\k@family{#1}\else%
- \edef\@templist{\@nameuse{notkfam@list@\k@encoding}}%
- \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
- \ifin@\@notkfamtrue\else%
- \def\@temp##1+{\lowercase{\def\@@temp{##1}}}\expandafter\@temp\k@encoding+%
- \message{(I search kanjifont definition file: \@@temp#1.fd)}%
- \IfFileExists{\@@temp#1.fd}{\@tempswztrue}{\@tempswzfalse}%
- \if@tempswz
- \expandafter\xdef\csname kfam@list@\k@encoding\endcsname
- {\@nameuse{kfam@list@\k@encoding}\fam@elt<#1>}\edef\k@family{#1}%
- \else
- \expandafter\xdef\csname notkfam@list@\k@encoding\endcsname
- {\@nameuse{notkfam@list@\k@encoding}\fam@elt<#1>}\@notkfamtrue%
- \fi
- \fi
- \fi
+ \else
+ \@notkfamtrue
+ % \ifcsname kfam@list@\k@encoding\endcsname\else
+ % \expandafter\gdef\csname kfam@list@\k@encoding\endcsname{}%
+ % \expandafter\gdef\csname notkfam@list@\k@encoding\endcsname{}%
+ % \fi
+ % \edef\@templist{\@nameuse{kfam@list@\k@encoding}}%
+ % \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
+ % \ifin@\edef\k@family{#1}\else%
+ % \edef\@templist{\@nameuse{notkfam@list@\k@encoding}}%
+ % \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
+ % \ifin@\@notkfamtrue\else%
+ % \def\@temp##1+{\lowercase{\def\@@temp{##1}}}\expandafter\@temp\k@encoding+%
+ % \message{(I search kanjifont definition file: \@@temp#1.fd)}%
+ % \IfFileExists{\@@temp#1.fd}{\@tempswztrue}{\@tempswzfalse}%
+ % \if@tempswz
+ % \expandafter\xdef\csname kfam@list@\k@encoding\endcsname
+ % {\@nameuse{kfam@list@\k@encoding}\fam@elt<#1>}\edef\k@family{#1}%
+ % \else
+ % \expandafter\xdef\csname notkfam@list@\k@encoding\endcsname
+ % {\@nameuse{notkfam@list@\k@encoding}\fam@elt<#1>}\@notkfamtrue%
+ % \fi
+ % \fi
+ % \fi
\fi
\ifcsname \f@encoding+#1\endcsname
\edef\f@family{#1}%
\edef\@templist{\@nameuse{notffam@list@\f@encoding}}%
\expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
\ifin@\@notffamtrue\else
- \def\@temp##1+{\lowercase{\def\@@temp{##1}}}\expandafter\@temp\f@encoding+%
- \message{(I search font definition file: \@@temp#1.fd)}%
- \IfFileExists{\@@temp#1.fd}{\@tempswztrue}{\@tempswzfalse}%
+ \def\@temp##1+{\lowercase{\def\@@temp{##1#1.fd}}}\expandafter\@temp\f@encoding+%
+ \message{(I search font definition file. \@@temp)}%
+ \IfFileExists{\@@temp}{\@tempswztrue}{\@tempswzfalse}%
\if@tempswz
\expandafter\xdef\csname ffam@list@\f@encoding\endcsname
{\@nameuse{ffam@list@\f@encoding}\fam@elt<#1>}\edef\f@family{#1}%
\let\extract@font\extract@afont
\fi
\let\getjfont\font@name}
-
\def\extract@jfont{%
\get@external@font
\expandafter\globaljfont\font@name\external@font\relax