ボックスの最初・末尾が JFM グルー・カーンがある場合のテストソース

adj_hlist.tex

\jfont\test=jgktest\test
\tracingonline1 \showboxbreadth10000 \showboxdepth=10000
\def\out#1{\setbox0=\hbox{#1}\showbox0 }
\inhibitxspcode`Γ=3 \inhibitxspcode`γ=3

\out{あΓあγあ}% 通常
\out{aΓaγa}% 通常

% \hbox{Γ}: 前後に kern あり
\out{a\hbox{Γ}a} % ボックス周囲に xkanjiskip なし
\out{あ\hbox{Γ}あ} % ボックス周囲に kanjiskip なし
% \hbox{γ}: 前に glue なし，後に zero_glue
\out{a\hbox{γ}a} % ボックス前のみ xkanjiskip
\out{あ\hbox{γ}あ} % ボックス前のみ kanjiskip
\bye

jgktest.pl

(COMMENT THIS IS A KANJI FORMAT FILE)
(FAMILY TEST)
(FACE F MRR)
(CODINGSCHEME UNSPECIFIED)
(DESIGNSIZE R 10.0)
(COMMENT DESIGNSIZE IS IN POINTS)
(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
(CHECKSUM O 0)
(FONTDIMEN
   (SLANT R 0.0)
   (SPACE R 0.0)
   (STRETCH R 0.0)
   (SHRINK R 0.0)
   (XHEIGHT R 1.0)
   (QUAD R 1.0)
   (EXTRASPACE R 0.0)
   (EXTRASTRETCH R 0.0)
   (EXTRASHRINK R 0.0)
   )
(GLUEKERN
   (LABEL O 0)
   (GLUE O 2 R 0.314 R 0.1 R 0.2)
   (KRN O 1 R -0.314)
   (STOP)
   (LABEL O 1)
   (KRN O 0 R -0.271)
   (STOP)
   (LABEL O 2)
   (GLUE O 0 R -0.271 R 0.1 R 0.2)
   (STOP)
   )
(CHARSINTYPE O 1
   Γ Δ Θ Λ
   )
(CHARSINTYPE O 2
   γ δ θ λ
   )
(TYPE O 0
   (CHARWD R 1.0)
   (CHARHT R 0.9)
   (CHARDP R 0.1)
   (COMMENT
      (GLUE O 2 R 0.314 R 0.1 R 0.2)
      (KRN O 1 R -0.314)
      )
   )
(TYPE O 1
   (CHARWD R 1.0)
   (CHARHT R 0.9)
   (CHARDP R 0.1)
   (COMMENT
      (KRN O 0 R -0.271)
      )
   )
(TYPE O 2
   (CHARWD R 1.0)
   (CHARHT R 0.9)
   (CHARDP R 0.1)
   (COMMENT
      (GLUE O 0 R -0.271 R 0.1 R 0.2)
      )
   )