texlive[58754] Master: gckanbun (5apr2021) new
commits+preining at tug.org
commits+preining at tug.org
Mon Apr 5 03:50:00 CEST 2021
Revision: 58754
http://tug.org/svn/texlive?view=revision&revision=58754
Author: preining
Date: 2021-04-05 03:50:00 +0200 (Mon, 05 Apr 2021)
Log Message:
-----------
gckanbun (5apr2021) new
Modified Paths:
--------------
trunk/Master/tlpkg/tlpsrc/collection-langjapanese.tlpsrc
Added Paths:
-----------
trunk/Master/texmf-dist/doc/latex/gckanbun/
trunk/Master/texmf-dist/doc/latex/gckanbun/LICENSE
trunk/Master/texmf-dist/doc/latex/gckanbun/README.md
trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf
trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.tex
trunk/Master/texmf-dist/doc/latex/gckanbun/test-gckanbun.tex
trunk/Master/texmf-dist/tex/latex/gckanbun/
trunk/Master/texmf-dist/tex/latex/gckanbun/gckanbun.sty
trunk/Master/tlpkg/tlpsrc/gckanbun.tlpsrc
Added: trunk/Master/texmf-dist/doc/latex/gckanbun/LICENSE
===================================================================
--- trunk/Master/texmf-dist/doc/latex/gckanbun/LICENSE (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/gckanbun/LICENSE 2021-04-05 01:50:00 UTC (rev 58754)
@@ -0,0 +1,9 @@
+This package is licensed under the terms of the MIT License.
+
+Copyright (c) 2017-2021 Munehiro Yamamoto <munepixyz at gmail.com>
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
Added: trunk/Master/texmf-dist/doc/latex/gckanbun/README.md
===================================================================
--- trunk/Master/texmf-dist/doc/latex/gckanbun/README.md (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/gckanbun/README.md 2021-04-05 01:50:00 UTC (rev 58754)
@@ -0,0 +1,26 @@
+# gckanbun Package
+
+KANBUN ("Chinese writing") typesetting for (u)pLaTeX and LuaLaTeX
+
+This package provides a KANBUN (漢文, "Chinese writing") typesetting for (u)pLaTeX and LuaLaTeX.
+
+## Requirements
+
+ * recent [TeX Live](https://www.tug.org/texlive/) environment
+ (TeX Live 2017 or higher release version)
+
+
+## Installation
+
+Copy: `gckanbun.sty` -> `$TEXMF/tex/latex/gckanbun/`
+
+
+## License
+
+This package is licensed under the terms of the MIT License.
+
+
+--------------------
+
+Munehiro Yamamoto
+https://github.com/munepi
Property changes on: trunk/Master/texmf-dist/doc/latex/gckanbun/README.md
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf
===================================================================
(Binary files differ)
Index: trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf
===================================================================
--- trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf 2021-04-05 01:48:02 UTC (rev 58753)
+++ trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf 2021-04-05 01:50:00 UTC (rev 58754)
Property changes on: trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.pdf
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/pdf
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.tex 2021-04-05 01:50:00 UTC (rev 58754)
@@ -0,0 +1,94 @@
+% #!lualatex
+% #!ptex2pdf -l -u
+%#!ptex2pdf -l
+\documentclass{jlreq}\listfiles
+\usepackage[prefix=]{gckanbun}%%=> <prefix>=(empty)
+\usepackage{shortvrb}\MakeShortVerb{\|}
+
+\newcommand*\pLaTeX{p\kern-.05em\LaTeX}
+\newcommand*\upLaTeX{up\kern-.05em\LaTeX}
+\newcommand*\LuaLaTeX{Lua\LaTeX}
+
+\title{\textsf{gckanbun} Package}
+\author{Munehiro Yamamoto}
+\date{2021/03/27 v1.2}
+\begin{document}
+\maketitle
+
+\begin{abstract}
+This package provides a KANBUN (漢文) typesetting for (u){\pLaTeX} and \LuaLaTeX.
+
+このパッケージは、(u){\pLaTeX}と{\LuaLaTeX}に対して漢文組みを提供します。
+\end{abstract}
+
+\section{\textsf{gckanbun}パッケージの読み込み}
+
+\textsf{gckanbun}パッケージを読み込むだけです。
+
+{\LuaLaTeX}の場合、\textsf{luatexja}パッケージをあらかじめ読み込んでおく必要があります。
+なお、\textsf{jlreq}クラスを利用すると、\textsf{jlreq}クラス内部で\textsf{luatexja}パッケージを読み込みます。
+
+\begin{quote}
+\begin{verbatim}
+%\usepackage{luatexja}%%<= LuaLaTeXの場合
+\usepackage[<オプション>]{gckanbun}
+\end{verbatim}
+\end{quote}
+
+利用可能なオプションは以下のとおりです。
+\begin{itemize}
+\item |prefix=<prefix>|（デフォルト値：|gckanbun|）：
+\textsf{gckanbun}パッケージが提供する3つのコマンド|\gckanbunruby|、|\gckanbunokurigana|、|\gckanbunkaeriten|をそれぞれ|\<prefix>ruby|、|\<prefix>okurigana|、|\<prefix>kaeriten|として提供します。
+
+このオプションにより、他のパッケージで提供されるルビ振りコマンド|\ruby|との衝突を避けられます。
+\end{itemize}
+
+\section{例}
+
+以下の{\LaTeX}文章を{\LuaLaTeX}でタイプセットします。
+つまり、|lualatex|コマンドを実行します。
+
+\begin{quote}
+\small
+\begin{verbatim}
+%#!lualatex
+\documentclass[tate]{jlreq}
+\usepackage[prefix=]{gckanbun}%%=> <prefix>を「なし」としました。
+\begin{document}
+自\okurigana{リ}\kaeriten{二}桓公\kaeriten{一}八世\okurigana{ニシテ}
+至\okurigana{ル}\kaeriten{二}景公\okurigana{ニ}\kaeriten{一}。
+有\okurigana{リ}\kaeriten{二}晏子\okurigana{トイフ}者\kaeriten{一}、
+\ruby{事}{つか}\okurigana{フ}\kaeriten{レ}之\okurigana{ニ}。
+名\okurigana{ハ}嬰、\ruby{字}{あざな}\okurigana{ハ}平仲。
+以\okurigana{テ}\kaeriten{二}節倹力行\okurigana{ヲ}\kaeriten{一}
+重\okurigana{ンゼラル}\kaeriten{二}於齊\okurigana{ニ}\kaeriten{一}。
+\ruby{一}{いっ}\ruby{狐}{こ}\ruby{裘}{きゅう}三十年、
+豚肩不\kaeriten{レ}\ruby{掩}{おお}\okurigana{ハ}\kaeriten{レ}豆。
+齊國之士、待\okurigana{チテ}以\okurigana{テ}擧\okurigana{グル}\kaeriten{レ}
+火\okurigana{ヲ}者、七十餘家\okurigana{アリ}。
+\end{document}
+\end{verbatim}
+\end{quote}
+
+このとき、結果は以下のとおりです。
+
+\begin{center}
+\hbox{\tate
+\vbox to \hsize{\vfil
+\begin{minipage}{15\zw}
+自\okurigana{リ}\kaeriten{二}桓公\kaeriten{一}八世\okurigana{ニシテ}
+至\okurigana{ル}\kaeriten{二}景公\okurigana{ニ}\kaeriten{一}。
+有\okurigana{リ}\kaeriten{二}晏子\okurigana{トイフ}者\kaeriten{一}、
+\ruby{事}{つか}\okurigana{フ}\kaeriten{レ}之\okurigana{ニ}。
+名\okurigana{ハ}嬰、\ruby{字}{あざな}\okurigana{ハ}平仲。
+以\okurigana{テ}\kaeriten{二}節倹力行\okurigana{ヲ}\kaeriten{一}
+重\okurigana{ンゼラル}\kaeriten{二}於齊\okurigana{ニ}\kaeriten{一}。
+\ruby{一}{いっ}\ruby{狐}{こ}\ruby{裘}{きゅう}三十年、
+豚肩不\kaeriten{レ}\ruby{掩}{おお}\okurigana{ハ}\kaeriten{レ}豆。
+齊國之士、待\okurigana{チテ}以\okurigana{テ}擧\okurigana{グル}\kaeriten{レ}
+火\okurigana{ヲ}者、七十餘家\okurigana{アリ}。
+\end{minipage}
+\vfil}}%
+\end{center}
+
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/gckanbun/gckanbun.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/doc/latex/gckanbun/test-gckanbun.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/gckanbun/test-gckanbun.tex (rev 0)
+++ trunk/Master/texmf-dist/doc/latex/gckanbun/test-gckanbun.tex 2021-04-05 01:50:00 UTC (rev 58754)
@@ -0,0 +1,177 @@
+%% https://gist.github.com/munepi/5c9e53936e3540b8374b4ab14e6b7832
+%#!lualatex
+% #!ptex2pdf -l -u
+\documentclass[paper=a5,tate]{jlreq}\listfiles
+%\usepackage{gckanbun}%%=> provides \gckanbunruby, \gckanbunokurigana, \gckanbunkaeriten as default
+\usepackage[prefix=]{gckanbun}%%=> provides \ruby, \okurigana, \kaeriten
+%\usepackage[prefix=kanbun]{gckanbun}%%=> provides \kanbunruby, \kanbunokurigana, \kanbunkaeriten
+
+\newcommand*{\onelineskip}{\par\vspace{\baselineskip}\par}
+\begin{document}
+【訓点（返り点・訓点送り仮名）】
+
+% Tateten（縦点）
+% Unicode 表示 名称 備考
+U+3190 ㆐ %IDEOGRAPHIC ANNOTATION LINKING MARK
+
+% Kaeriten（返り点）
+% Unicode 表示 名称 備考
+U+3191 ㆑ %IDEOGRAPHIC ANNOTATION REVERSE MARK
+U+3192 ㆒ %IDEOGRAPHIC ANNOTATION ONE MARK
+U+3193 ㆓ %IDEOGRAPHIC ANNOTATION TWO MARK
+U+3194 ㆔ %IDEOGRAPHIC ANNOTATION THREE MARK
+U+3195 ㆕ %IDEOGRAPHIC ANNOTATION FOUR MARK
+U+3196 ㆖ %IDEOGRAPHIC ANNOTATION TOP MARK
+U+3197 ㆗ %IDEOGRAPHIC ANNOTATION MIDDLE MARK
+U+3198 ㆘ %IDEOGRAPHIC ANNOTATION BOTTOM MARK
+U+3199 ㆙ %IDEOGRAPHIC ANNOTATION FIRST MARK
+U+319A ㆚ %IDEOGRAPHIC ANNOTATION SECOND MARK
+U+319B ㆛ %IDEOGRAPHIC ANNOTATION THIRD MARK
+U+319C ㆜ %IDEOGRAPHIC ANNOTATION FOURTH MARK
+U+319D ㆝ %IDEOGRAPHIC ANNOTATION HEAVEN MARK
+U+319E ㆞ %IDEOGRAPHIC ANNOTATION EARTH MARK
+U+319F ㆟ %IDEOGRAPHIC ANNOTATION MAN MARK
+
+%% 以下のサンプルは、青空文庫の訓点 https://www.aozora.gr.jp/annotation/kunten.html を元にしています。
+［返り点］
+% 自［＃二］女王國［＃一］東度［＃レ］海千餘里。
+
+①
+自\kaeriten{㆓}女王國\kaeriten{㆒}東度\kaeriten{㆑}海千餘里。
+
+②レ点とその他の返り点が組み合わさっている場合
+% 見［＃二］大人所［＃一レ］敬。
+
+見\kaeriten{㆓}大人所\kaeriten{㆒㆑}敬。
+
+③竪点と返り点の記載順
+% 而敬‐［＃二］祭天神地祇［＃一］。
+
+而敬\kaeriten-{㆓}祭天神地祇\kaeriten{㆒}。
+而敬\kaeriten‐{㆓}祭天神地祇\kaeriten{㆒}。
+
+［訓点送り仮名］
+% 山城［＃（ノ）］國久世［＃（ノ）］郡水主［＃（ニ）］坐［＃（ス）］山背［＃（ノ）］大國魂命［＃（ノ）］神、
+
+①
+山城\okurigana{ノ}國久世\okurigana{ノ}郡水主\okurigana{ニ}坐\okurigana{ス}山背\okurigana{ノ}大國魂命\okurigana{ノ}神、
+
+②訓点送り仮名として、漢字（万葉仮名）が用いられている場合
+% 爾時倭姫命見悦給［＃（弖）］、其處［＃（爾）］魚見社定賜［＃（支）］とあり。
+
+爾時倭姫命見悦給\okurigana{弖}、其處\okurigana{爾}魚見社定賜\okurigana{支}とあり。
+
+［返り点と訓点送り仮名の混在］
+% 噛［＃（テ）］［＃二］古人貧交行［＃（ノ）］之詩［＃（ヲ）］［＃一］吐［＃（テ）］而戯序［＃（ス）］
+
+噛\okurigana{テ}\kaeriten{㆓}古人貧交行\okurigana{ノ}之詩\okurigana{ヲ}\kaeriten{㆒}吐\okurigana{テ}而戯序\okurigana{ス}
+
+［例］
+\ruby{一}{いっ}\ruby{狐}{こ}\ruby{裘}{きゅう}三十年
+
+自\okurigana{リ}\kaeriten{二}
+桓公\kaeriten{一}
+八世\okurigana{ニシテ}
+至\okurigana{ル}\kaeriten{二}
+景公\okurigana{ニ}\kaeriten{一}。
+有\okurigana{リ}\kaeriten{二}
+晏
+子\okurigana{トイフ}
+者\kaeriten{一}、
+\ruby{事}{つか}\okurigana{フ}\kaeriten{レ}
+之\okurigana{ニ}。
+名\okurigana{ハ}
+嬰、
+\ruby{字}{あざな}\okurigana{ハ}平仲。
+以\okurigana{テ}\kaeriten{二}
+節倹力
+行\okurigana{ヲ}\kaeriten{一}
+重\okurigana{ンゼラル}\kaeriten{二}
+於
+齊\okurigana{ニ}\kaeriten{一}。
+\ruby{一}{いっ}
+\ruby{狐}{こ}
+\ruby{裘}{きゅう}
+三十年、豚肩
+不\kaeriten{レ}
+\ruby{掩}{おお}\okurigana{ハ}\kaeriten{レ}
+豆。齊國之士、
+待\okurigana{チテ}
+以\okurigana{テ}
+擧\okurigana{グル}\kaeriten{レ}
+火\okurigana{ヲ}
+者、七十餘家\okurigana{アリ}。
+
+晏子
+出\okurigana{ヅ}。
+其\okurigana{ノ}御之妻、
+従\okurigana{リ}\kaeriten{二}
+門間\kaeriten{一}
+窺\okurigana{ヘバ}、
+其\okurigana{ノ}夫
+擁\okurigana{シ}\kaeriten{二}
+大蓋\okurigana{ヲ}\kaeriten{一}、
+\ruby{策}{むちう}\okurigana{チ}\kaeriten{二}
+駟馬\okurigana{ヲ}\kaeriten{一}、
+意気揚揚\okurigana{トシテ}
+自得\okurigana{ス}。
+既\okurigana{ニシテ}而
+帰\okurigana{ル}。
+妻請\okurigana{ヒテ}\kaeriten{レ}
+去\okurigana{ランコトヲ}
+曰\okurigana{ハク}、
+「晏子\okurigana{ハ}
+身相\okurigana{トシテ}\kaeriten{二}
+齊國\okurigana{ニ}\kaeriten{一}、
+名顯\okurigana{ハル}\kaeriten{二}
+諸侯\okurigana{ニ}\kaeriten{一}。
+観\okurigana{ルニ}\kaeriten{二}
+其\okurigana{ノ}
+志\okurigana{ヲ}\kaeriten{一}、
+\ruby{嘗}{つね}\okurigana{ニ}
+有\okurigana{リ}\kaeriten{二}
+以\okurigana{テ}
+自\okurigana{ラ}
+下\okurigana{ルコト}\kaeriten{一}。
+子\okurigana{ハ}
+為\okurigana{リテ}\kaeriten{二}
+人\okurigana{ノ}
+僕御\okurigana{ト}\kaeriten{一}、
+自\okurigana{ラ}
+以\okurigana{テ}
+為\okurigana{ス}\kaeriten{レ}
+足\okurigana{レリト}。
+妾是\okurigana{ヲ}
+以\okurigana{テ}
+求\okurigana{ムル}\kaeriten{レ}
+去\okurigana{ランコトヲ}
+也\okurigana{ト}。」
+御者\ruby{乃}{すなわ}\okurigana{チ}
+自\okurigana{ラ}
+抑損\okurigana{ス}。
+晏子
+怪\okurigana{ミテ}
+而問\okurigana{フ}\kaeriten{レ}
+之\okurigana{ヲ}。
+以\okurigana{テ}\kaeriten{レ}
+實\okurigana{ヲ}
+\ruby{対}{こた}\okurigana{フ}。
+薦\okurigana{メテ}
+為\okurigana{セリ}\kaeriten{二}
+大夫\okurigana{ト}\kaeriten{一}。
+
+\onelineskip
+
+漢文に対するふりがなは、モノルビ仕様です。
+例えば、「\ruby{母}{ぼ}\ruby{字}{じ}\okurigana{ト}」。
+漢文に対するふりがなをグループルビとすると、
+「\ruby{母字}{ぼじ}\okurigana{ト}」となり、正しく組版されません。
+
+\ruby{□}{ふ}\okurigana{オクリガナ}\kaeriten{一レ}
+\ruby{□}{ふり}\okurigana{オクリガナ}\kaeriten{一レ}
+□\okurigana{オクリ}\kaeriten{一レ}。
+□\okurigana{ランコトヲ}\kaeriten{一}□□□□□
+□\okurigana{ト}\kaeriten{二}、□□□□□
+□\okurigana{ト}\kaeriten{三}。
+
+\end{document}
Property changes on: trunk/Master/texmf-dist/doc/latex/gckanbun/test-gckanbun.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/tex/latex/gckanbun/gckanbun.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/gckanbun/gckanbun.sty (rev 0)
+++ trunk/Master/texmf-dist/tex/latex/gckanbun/gckanbun.sty 2021-04-05 01:50:00 UTC (rev 58754)
@@ -0,0 +1,185 @@
+%#!lualatex test-gckanbun
+% #!ptex2pdf -l -u test-gckanbun
+% #!ptex2pdf -l test-gckanbun
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{gckanbun}
+ [2021/03/27 v1.2 KANBUN typesetting package (Green Cherry Ltd.)]
+
+%% declare package errors
+\def\gcknbn at error{\PackageError{gckanbun}}
+\def\gcknbn at warning{\PackageWarning{gckanbun}}
+\def\gcknbn at warningnoline{\PackageWarningNoLine{gckanbun}}
+\def\gcknbn at info{\PackageInfo{gckanbun}}
+
+\RequirePackage{keyval}
+\DeclareOption*{\gcknbn at setkey}
+\def\gcknbn at setkey{\expandafter\@gcknbn at setkey\expandafter{\CurrentOption}}
+\def\@gcknbn at setkey{\setkeys{gcknbn}}
+\def\gcknbn at prefix{gckanbun}%%given <prefix> for each commands
+\define at key{gcknbn}{prefix}{\gdef\gcknbn at prefix{#1}}
+
+\ExecuteOptions{prefix}
+\ProcessOptions\relax
+
+%% auto-detect engine
+\RequirePackage{ifuptex}
+\RequirePackage{ifluatex}
+\ifluatex
+ \@ifpackageloaded{luatexja}{}{%
+ \gcknbn at error{Please load package 'luatexja' when loading this package.}}
+\else\ifuptex
+ \def\zw{zw}\def\zh{zh}
+\else\ifptex
+ \def\zw{zw}\def\zh{zh}
+\else
+ \gcknbn at error{Package 'gckanbun' currently supports (u)pLaTeX and LuaLaTeX.}
+\fi\fi\fi
+
+\newcommand*\gcknbn at kanjiskip@fill{%
+ \ifluatex
+ \ltjsetparameter{kanjiskip=\fill}%
+ \else
+ \kanjiskip=\fill\relax
+ \fi
+}
+
+%% ルビ
+%% * グループルビ
+%% * 漢文訓点に対するふりがな（モノルビ）
+\let\gcknbn at rubybox@text\relax
+\newdimen\gcknbn at rubybox@width
+\newdimen\gcknbn at furigana@width \gcknbn at furigana@width\z@
+\newdimen\gcknbn at dima
+\DeclareRobustCommand*\gcknbn at ruby[2]{%
+ \leavevmode% \setbox0=\hbox{#1}\setbox1=\hbox{\tiny#2}%
+ \begingroup
+ \gcknbn at dima\f at size\p@\relax \divide\gcknbn at dima by \tw@
+ \def\tiny{\@setfontsize\tiny{\gcknbn at dima}{\z@}}%
+ \setbox\z@=\hbox{#1}\setbox\@ne=\hbox{\tiny#2}%
+ \gdef\gcknbn at rubybox@text{#2}%
+ \global\gcknbn at rubybox@width=\wd\z@\relax
+ \gcknbn at furigana@okurigana}
+
+\def\gcknbn at furigana@okurigana{%
+ \futurelet\@let at token\gcknbn@@furigana at okurigana}
+\def\gcknbn@@furigana at okurigana{%
+ \ifx\@let at token\gcknbn at okurigana
+ \global\gcknbn at furigana@width=\wd\@ne\relax
+ \dimen\z@=\wd\z@
+ \smash{\hbox{%
+ \vbox{\hbox to \dimen\z@{\box\@ne\hss}%
+ \nointerlineskip\hbox to \dimen\z@{\hfil\box\z@\hfil}}}}%
+ \else
+ \ifdim\wd\z@>\wd\@ne\dimen\z@=\wd\z@\else\dimen\z@=\wd\@ne\fi
+ \penalty\@lowpenalty
+ \smash{\hbox{\gcknbn at kanjiskip@fill
+ \vbox{\hbox to \dimen\z@{\tiny\hfil\gcknbn at rubybox@text\hfil}%
+ \nointerlineskip\hbox to \dimen\z@{\hfil\box\z@\hfil}}}}%
+ \fi
+ \endgroup}
+
+%% 訓点
+\newdimen\gcknbn at okurigana@width \gcknbn at okurigana@width\z@
+\newdimen\gcknbn at kaeriten@width \gcknbn at kaeriten@width\z@
+%%訓点送り仮名
+\newcommand*\gcknbn at okurigana[1]{%
+ \nobreak\leavevmode
+ \begingroup
+ \gcknbn at dima\f at size\p@\relax \divide\gcknbn at dima by \tw@
+ \def\tiny{\@setfontsize\tiny{\gcknbn at dima}{\z@}}%
+ \setbox\z@=\hbox{\tiny #1}%
+ \ifdim\gcknbn at furigana@width>0.9999\zw\relax
+ \global\gcknbn at okurigana@width=\dimexpr\gcknbn at furigana@width + \wd\z@ - 1\zw\relax
+ \else
+ \global\gcknbn at okurigana@width=\dimexpr\wd\z@ - .5\zw\relax
+ \fi
+ \smash{\hbox{%
+ \vbox{\hbox to \gcknbn at okurigana@width{%
+ \ifdim\gcknbn at furigana@width>0.9999\zw\relax
+ \hspace*{\dimexpr\gcknbn at furigana@width - 1\zw\relax}%
+ \else
+ \hspace*{-.5\zw}%
+ \fi
+ \box\z@}%
+ \nointerlineskip
+ \hbox to \gcknbn at okurigana@width{\hfil\vphantom{\char\euc"A1A1%"
+ }\hfil}}}}%
+ \global\gcknbn at furigana@width=\z@\relax
+ \gcknbn at okurigana@kaeriten}
+
+\def\gcknbn at okurigana@kaeriten{%
+ \futurelet\@let at token\gcknbn@@okurigana at kaeriten}
+\def\gcknbn@@okurigana at kaeriten{%
+ \ifx\@let at token、
+ \gcknbn at okurigana@kutoten at skip
+ \global\gcknbn at okurigana@width=\z@
+ \else\ifx\@let at token。
+ \gcknbn at okurigana@kutoten at skip
+ \global\gcknbn at okurigana@width=\z@
+ \else\ifx\@let at token\gcknbn at kaeriten
+ \gcknbn at okurigana@kaeriten at skip
+ \fi\fi\fi
+ \endgroup}
+\def\gcknbn at okurigana@kutoten at skip{%
+ \hspace*{-\gcknbn at okurigana@width}}
+\def\gcknbn at okurigana@kaeriten at skip{%
+ \hspace*{-\gcknbn at okurigana@width}}
+
+%%訓点返り点
+\newcommand*\gcknbn at kaeriten{%
+ \@ifnextchar-{\gcknbn at tateten@kaeriten at hh}{%
+ \@ifnextchar‐{\gcknbn at tateten@kaeriten at zh}{%
+ \gcknbn@@kaeriten}}}
+
+\newcommand*\gcknbn@@kaeriten[1]{%
+ \nobreak\leavevmode
+ \begingroup
+ \gcknbn at dima\f at size\p@\relax \divide\gcknbn at dima by \tw@
+ \def\tiny{\@setfontsize\tiny{\gcknbn at dima}{\z@}}%
+ \setbox\z@=\hbox{\tiny #1}%
+ \global\gcknbn at kaeriten@width=\wd\z@\relax
+ \smash{\lower.25\zw\hbox{\box\z@\hss}}%
+ \endgroup\gcknbn at kaeriten@kutoten}
+
+\def\gcknbn at kaeriten@kutoten{\futurelet\@let at token\gcknbn@@kaeriten at kutoten}
+\def\gcknbn@@kaeriten at kutoten{%
+ \ifx\@let at token、
+ \gcknbn at kaeriten@kutoten at skip
+ \global\gcknbn at kaeriten@width=\z@
+ \else\ifx\@let at token。
+ \gcknbn at kaeriten@kutoten at skip
+ \global\gcknbn at kaeriten@width=\z@
+ \else
+ \gcknbn at kaeriten@okurigana at skip
+ \fi\fi
+}
+\def\gcknbn at kaeriten@kutoten at skip{%
+ \hspace*{-\gcknbn at kaeriten@width}%
+}
+\def\gcknbn at kaeriten@okurigana at skip{%
+ \ifdim\gcknbn at okurigana@width>\gcknbn at kaeriten@width
+ \hspace*{\dimexpr\gcknbn at okurigana@width - \gcknbn at kaeriten@width}%
+ \fi
+}
+
+\def\gcknbn at tateten@kaeriten at hh-{\gcknbn@@tateten at kaeriten}
+\def\gcknbn at tateten@kaeriten at zh‐{\gcknbn@@tateten at kaeriten}
+\newcommand*\gcknbn@@tateten at kaeriten[1]{%
+ \nobreak\leavevmode
+ \begingroup
+ \gcknbn at dima\f at size\p@\relax \divide\gcknbn at dima by \tw@
+ \def\tiny{\@setfontsize\tiny{\gcknbn at dima}{\z@}}%
+ \setbox\z@=\hbox{\tiny\char"3190}%"
+ \global\gcknbn at kaeriten@width=\wd\z@\relax
+ \smash{\lower.35\zw\hbox{%
+ \vbox{\hbox to \gcknbn at kaeriten@width{\hfil\box\z@\hfil}%
+ \vspace*{-.1\zw}%
+ \nointerlineskip\hbox to \gcknbn at kaeriten@width{\tiny\hfil#1\hfil}}}}%
+ \endgroup}
+
+%% Finaly, provide \<prefix>ruby, \<prefix>okurigana, \<prefix>kaeriten
+\expandafter\let\csname\gcknbn at prefix ruby\endcsname\gcknbn at ruby
+\expandafter\let\csname\gcknbn at prefix okurigana\endcsname\gcknbn at okurigana
+\expandafter\let\csname\gcknbn at prefix kaeriten\endcsname\gcknbn at kaeriten
+
+\endinput
Property changes on: trunk/Master/texmf-dist/tex/latex/gckanbun/gckanbun.sty
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/tlpkg/tlpsrc/collection-langjapanese.tlpsrc
===================================================================
--- trunk/Master/tlpkg/tlpsrc/collection-langjapanese.tlpsrc 2021-04-05 01:48:02 UTC (rev 58753)
+++ trunk/Master/tlpkg/tlpsrc/collection-langjapanese.tlpsrc 2021-04-05 01:50:00 UTC (rev 58754)
@@ -18,6 +18,7 @@
depend bxwareki
depend convbkmk
depend endnotesj
+depend gckanbun
depend gentombow
depend haranoaji
depend haranoaji-extra
Added: trunk/Master/tlpkg/tlpsrc/gckanbun.tlpsrc
===================================================================
More information about the tex-live-commits
mailing list.