% Time-stamp: <2018-03-13 12:24:52 nagata>
% コンパイルの仕方：ソースが file.tex であれば
% uplatex file
% dvipdfmx file
%%%%%%%%%%%%%%%%%%%%%%
\documentclass[twoside,uplatex,dvipdfmx]{jsarticle}
\usepackage[T1]{fontenc}
\usepackage[utf8]{inputenc}
\usepackage[russian,polutonikogreek,french,main=ngerman]{babel}
\usepackage[japanese]{pxbabel}
\usepackage[autostyle,german=quotes,french=guillemets]{csquotes}% 独仏引用符指定
\usepackage[deluxe,expert,multi,uplatex,jis2004]{otf}% 漢字異体字処理，uplatex併用; jis2004
\usepackage[prefernoncjk]{pxcjkcat}% 日本語約物と欧文文字の混在同時処理

\usepackage{newpxtext}
\makeatletter
\newcommand{\uml}[1]{%
\ifvmode\leavevmode\fi% 
\setbox0=\hbox{#1}\vbox{\hbox to \wd0{%
   \setlength\@tempdima{\f@size pt}%
   \setlength\@tempdima{.5\@tempdima}%
   \fontsize{\@tempdima}{\f@baselineskip}\selectfont%
   \@tempdimb=\the\fontdimen\@ne\font
   \@tempdimb\f@size\@tempdimb
   \@tempdimb2\@tempdimb
   \hfil\hskip\@tempdimb e\hfil}%
   \nointerlineskip\vskip.15ex
   \hbox{\hfil#1\hfil}}}
\makeatother
%\DeclareUnicodeCharacter{383}{\longs}% 17f
%\DeclareUnicodeCharacter{017f}{\"a}% 17f; 00E4
\begin{document}

\section{異体字}
異体字とは
\begin{quote}
  森\textbf{鷗}外と森\textbf{鴎}外，
  \textbf{\CID{13966}}田百\textbf{閒}（\textbf{\CID{13693}}）と\textbf{内}田百\textbf{聞}，
  \textbf{吉}野屋と\textbf{\CID{13706}}野屋，
  \textbf{高}島屋と\textbf{髙}島屋，
  東京都\textbf{葛}飾区と奈良県\textbf{\CID{01481}}城市，
  \textbf{\CID{03056}}と\textbf{\CID{08267}}，
  \textbf{叱}ると\textbf{\CID{7692}}ると\textbf{𠮟}る，
  補\textbf{填}と補\textbf{塡}，
  \textbf{剥}奪と\textbf{剝}奪，
  \textbf{頬}と\textbf{頰}，
  \textbf{崎}と\textbf{\CID{14290}}と\textbf{嵜}と\textbf{㟢}，
  \textbf{永}田\textbf{善}久と\textbf{\CID{20154}}田\textbf{\CID{20062}}久
\end{quote}
等を言う。

otfパッケージのオプション引数に jis2004 を付けるか付けないか
で「葛」や「辻」の字形が変わることに注意（確実さを求める場合
はCID番号を使うと良い）。

\section{欧文の異体字}

{\usefont{T1}{dayrom}{m}{n} Königsstraße}, {\usefont{T1}{sdayroms}{m}{n} Königs"|straße}, {\usefont{T1}{sdayroms}{m}{n} K\uml{o}nigs"|straße}, {\usefont{T1}{sdayroms}{m}{it} Königs"|straße}, {\usefont{T1}{sdayroms}{m}{it} K\uml{o}nigs"|straße}\\
{\usefont{T1}{sdayroms}{m}{n} das Wünschen}, {\usefont{T1}{sdayroms}{m}{n} das W\uml{u}nschen}, \\
{\usefont{T1}{sdayroms}{m}{it} doch Rucksack erster trotz}

{\large
  {\usefont{T1}{ntfrak}{m}{n} Königs"|s"|traße}, {\usefont{T1}{ntfrak}{m}{n} Königs"|straße}, {\usefont{T1}{ntfrakv}{m}{n} Königs"|straße}, {\usefont{T1}{ntfrakvls}{m}{n} Königs"|straße}\\
  {\usefont{T1}{ntfrak}{m}{n} das Wünschen}, {\usefont{T1}{ntfrakv}{m}{n} das Wünschen}\\
  {\usefont{T1}{ntfrakvls}{m}{n} doch Rucksack erster trotz Königs"|straße}
}

\end{document}

%%% Local Variables:
%%% mode: japanese-latex
%%% TeX-engine: uptex
%%% TeX-master: t
%%% End:
