test/test02-latex.tex

   1 %#! lualatex
   2 \documentclass{article}
   3 \usepackage{fontspec,pdftexcmds}
   4
   5 \input luatexja-core.sty
   6
   7 \ExplSyntaxOn
   8 \xetex_or_luatex:nnn { \tl_set:Nn \l_fontspec_pre_feat_sclist }
   9   {
  10     \bool_if:NT \l_fontspec_icu_bool {
  11       \tl_if_empty:NF \l_fontspec_script_tl
  12       {
  13         script   = \l_fontspec_script_tl ;
  14         language = \l_fontspec_lang_tl   ;jfm=ujis;
  15       }
  16     }
  17   }
  18   {
  19     mode     = \l_fontspec_mode_tl   ;
  20     \tl_if_empty:NF \l_fontspec_script_tl
  21     {
  22       script   = \l_fontspec_script_tl ;
  23       language = \l_fontspec_lang_tl   ;jfm=ujis;
  24     }
  25   }
  26 \ExplSyntaxOff
  27
  28 \newopentypefeature{Style}{OLDJIS}{+jp90}
  29 \newfontfamily\goth[BoldFont={ipaexg.ttf},Style=OLDJIS]{ipaexm.ttf}
  30
  31 \begin{document}
  32 \makeatletter
  33 \def\extract@font{%
  34     \get@external@font
  35     \ifnum\pdf@strcmp{\f@encoding}{EU2}=0
  36       \expandafter\globaljfont\font@name\external@font\relax
  37       \font@name\global\zw=\zw\global\zh=\zh
  38     \else
  39       \global\expandafter\font\font@name\external@font\relax
  40       \font@name
  41     \fi
  42     \ifnum\pdf@strcmp{\f@encoding}{EU2}=0%
  43       \ltjglobalsetparameter{kanjiskip={0pt plus 0.4pt minus 0.4pt},
  44         xkanjiskip={0.25\zw plus 0.083333\zw minus 0.083333\zw}}%
  45     \fi
  46     \csname \f@encoding+\f@family\endcsname
  47     \csname\curr@fontshape\endcsname
  48        }
  49 % ! The font "ipaexg.ttf/I" cannot be found. というエラーが出る
  50
  51
  52 \goth abcdfghjfgあいう辻）\textbf{\unkern（辻あ{\Large あ}いう}
  53
  54 \goth abcdfghjfgあいう辻）\textbf{（辻あ{\Large あ}いう}
  55 % \unkern がないとうなくいかない
  56
  57 \tracingonline=1\scrollmode\showboxdepth=10000\showboxbreadth=10000\showlists
  58 \end{document}