src/ltj-plain.sty

   1 %
   2 % ltj-plain.sty
   3 %
   4
   5 %! これは外から読まれない
   6 %% Avoid multiple loading.
   7 \csname luatexjaplainLoaded\endcsname
   8 \edef\ltj@plain@AtEnd{%
   9 \endlinechar=\the\endlinechar
  10 \relax}
  11 \endlinechar=-1 %
  12 \def\luatexjaplainLoaded{\endinput}
  13
  14 \ifltj@in@latex                 %<*LaTeX>
  15   \NeedsTeXFormat{LaTeX2e}
  16   \PackageWarning{ltj-plain}{Don't load this package directly; load luatexja.sty instead.}
  17   \ProvidesPackage{ltj-plain}[2015/09/21]
  18 \fi                             %</LaTeX>
  19
  20 %%------------------
  21
  22 \endlinechar=13
  23 %! ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
  24 % LuaTeX-ja macros against plain TeX
  25
  26 \def\ltj@stdmcfont{IPAExMincho}
  27 \def\ltj@stdgtfont{IPAExGothic}
  28 \newread\ltj@@cfgread
  29 \openin\ltj@@cfgread{luatexja.cfg}%
  30 \ifeof\ltj@@cfgread
  31   \@PackageInfoNoLine{ltj-plain}{Cannot find file `luatexja.cfg'}%
  32 \else
  33   \closein\ltj@@cfgread
  34   \input luatexja.cfg
  35 \fi
  36 \let\ltj@@cfgread\relax\advance\count16\m@ne\relax
  37
  38 \jfont\tenmin=\ltj@stdmcfont:jfm=ujis at 9.62216pt
  39 \jfont\sevenmin=\ltj@stdmcfont:jfm=ujis at 6.73551pt
  40 \jfont\fivemin=\ltj@stdmcfont:jfm=ujis at 4.81108pt
  41 \jfont\tengt=\ltj@stdgtfont:jfm=ujis at 9.62216pt
  42 \jfont\sevengt=\ltj@stdgtfont:jfm=ujis at 6.73551pt
  43 \jfont\fivegt=\ltj@stdgtfont:jfm=ujis at 4.81108pt
  44
  45 \tfont\tentmin=\ltj@stdmcfont:jfm=ujisv at 9.62216pt
  46 \tfont\seventmin=\ltj@stdmcfont:jfm=ujisv at 6.73551pt
  47 \tfont\fivetmin=\ltj@stdmcfont:jfm=ujisv at 4.81108pt
  48 \tfont\tentgt=\ltj@stdgtfont:jfm=ujisv at 9.62216pt
  49 \tfont\seventgt=\ltj@stdgtfont:jfm=ujisv at 6.73551pt
  50 \tfont\fivetgt=\ltj@stdgtfont:jfm=ujisv at 4.81108pt
  51
  52 \def\mc{\tenmin\tentmin}
  53 \def\gt{\tengt\tentgt}
  54 \mc
  55
  56 \directlua{
  57   local s = kpse.find_file('ltj-kinsoku.lua', 'tex')
  58   luatexja.stack.charprop_stack_table[0] = s and dofile(s) or {}
  59 }
  60
  61 \ltjsetparameter{kanjiskip=\z@ plus .4pt minus .4pt,
  62   xkanjiskip=.25\zw plus 1pt minus 1pt,
  63   autospacing, autoxspacing, jacharrange={-1},
  64   yalbaselineshift=\z@, yjabaselineshift=\z@,
  65   jcharwidowpenalty=500, differentjfm=paverage,
  66   jatextfont={0, \tenmin}, jascriptfont={0, \sevenmin},
  67   jascriptscriptfont={0, \fivemin},
  68 }
  69 \setbox\z@=\hbox{M}
  70 \jfam\z@
  71 \ltjsetparameter{talbaselineshift=.5\ht0, tjabaselineshift=\z@}
  72
  73 \ltjdefcharrange{1}{"80-"36F, "1E00-"1EFF}
  74 \ltjdefcharrange{2}{"370-"4FF, "1F00-"1FFF}
  75 \ltjdefcharrange{3}{%
  76   "2000-"243F, "2500-"27BF, "2900-"29FF, "2B00-"2BFF}
  77 \ltjdefcharrange{4}{%
  78    "500-"10FF, "1200-"1DFF, "2440-"245F, "27C0-"28FF, "2A00-"2AFF,
  79   "2C00-"2E7F, "4DC0-"4DFF, "A4D0-"A82F, "A840-"ABFF, "FB00-"FE0F,
  80   "FE20-"FE2F, "FE70-"FEFF, "10000-"1FFFF, "E000-"F8FF} % non-Japanese
  81 \ltjdefcharrange{5}{"D800-"DFFF, "E0000-"E00FF, "E01F0-"10FFFF}
  82 \ltjdefcharrange{6}{%
  83   "2460-"24FF, "2E80-"2EFF, "3000-"30FF, "3190-"319F, "31F0-"4DBF,
  84   "4E00-"9FFF, "F900-"FAFF, "FE10-"FE6F, "20000-"2FFFF,"E0100-"E01EF}
  85 \ltjdefcharrange{7}{
  86   "1100-"11FF, "2F00-"2FFF, "3100-"31EF, "A000-"A4CF, "A830-"A83F,
  87   "AC00-"D7FF}
  88 \ltjdefcharrange{8}{"B4, "A8, "B1, "D7, "F7, "B0, "A7, "B6}
  89 \ltjsetparameter{jacharrange={-1, +2, +3, -4, -5, +6, +7, -8}}
  90
  91 \directlua{for x=128,255 do luatexja.math.is_math_letters[x] = true end}
  92 \let\ltj@@orig@end=\@@end
  93 \protected\def\@@end{%
  94   \directlua{luatexja.ext_cleanup()}\ltj@@orig@end}
  95
  96 %%------------------ all done
  97 \ltj@plain@AtEnd
  98 \endinput
  99 %% EOF