1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
\documentclass[a4paper]{ctexart}
% 20190115
% Author: Yuchang Yang < yang.yc.allium@gmail.com >
\usepackage{metalogo}
\usepackage{fancyvrb}
\usepackage{changepage}
\usepackage{color}
\definecolor{darkmiku}{RGB}{19, 149, 139}
\CTEXsetup[format={\Large\bfseries}]{section}
\title{tetragonos宏包\footnote{Github 地址：\texttt{https://github.com/Mikumikunisiteageru/tetragonos}}}
\author{杨宇昌\footnote{电子邮箱：\texttt{yang.yc.allium@gmail.com}}}
\date{2019年1月16日\qquad v1}
\begin{document}
\maketitle
\begingroup
\CJKfontspec{IPAPMincho}
\large
\centerline{四角い地球を丸くしてる！}
\hfill --- 初音ミク、\kern1ex TOKOTOKO（西沢さん\mbox{P}）\hbox{}\par
\vskip1em
\endgroup
\section{简介}
tetragonos 是一个用于查询汉字四角号码的\XeLaTeX{}宏包。\par
宏包名称取自希腊语，tetra者四也，gon者角也。\par
\section{用法}
tetragonos 宏包定义了宏 \verb|\getTG|。\texttt{\textbackslash getTG\{\textit{<string>}\}} 可展开成汉字字符串 \texttt{\textit{<string>}} 中第一个汉字的带附号的新版四角号码。举个简单的例子，\verb|\getTG{汉}| 与 \verb|\getTG{汉字}| 都会展开成“汉”字的四角号码，即 37140。\par
\section{四角索引范例}
四角号码常用来为汉字字词编写索引。文件 tetragonos-example.tex 中即示范了 tetragonos 宏包与 glossaries 宏包的联合应用。该文件从《广东新语》中摘录了一段文字，并为其中出现的所有植物名称建立了首字四角号码索引。该文件中的关键内容如下：
\begingroup
\begin{adjustwidth}{3em}{3em}
\footnotesize
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=1,formatcom=\color{darkmiku}]
% arara: clean: {files: [tetragonos-example.glsdefs, tetragonos-example.TG-*]}
% arara: xelatex
% arara: makeglossaries
% arara: xelatex
% arara: xelatex
\end{Verbatim}
指示 arara 运行时先清空历史索引条目，之后依次执行 \XeLaTeX{}、makeglossaries 等各程序。编译时直接输入 \verb|arara tetragonos-example| 即可。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=28,formatcom=\color{darkmiku}]
\usepackage{tetragonos}
\usepackage[nopostdot,nomain]{glossaries}
\newglossary*{TG}{Tegragonos}
\makeglossaries
\end{Verbatim}
引入 tetragonos 与 glossaries 宏包后，新建好索引，准备登记四角号码与汉字条目。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=32,formatcom=\color{darkmiku}]
\def\syntaxTG#1#2#3#4#5{\textbf{#1#2#3#4\textsubscript{#5}}}
\end{Verbatim}
定义四角号码的格式，使其整体加粗，并令附号（即附角号码）作下标。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=33,tabsize=4,formatcom=\color{darkmiku}]
\newcommand{\addTG}[1]{%
\newglossaryentry{#1}{
type=TG,
name={\syntaxTG#1},
description={\nopostdesc}
}%
}
\end{Verbatim}
定义宏 \verb|\addTG|，建立四角号码条目，在索引中位于第一级。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=40,tabsize=4,formatcom=\color{darkmiku}]
\newcommand{\anchorTG}[1]{%
\edef\theTG{\getTG{#1}}%
\expandafter\addTG\expandafter{\theTG\expandafter}%
\newglossaryentry{#1}{
type=TG,
name={\textmd{#1}},
parent={\theTG},
sort={\theTG},
description={\hfill}
}%
\glsadd{#1}%
}
\end{Verbatim}
定义宏 \verb|\anchorTG|，建立汉字（词）条目，居于第二级，是其首字四角号码对应的条目的子条目。\verb|\anchorTG| 只插入锚点，登记汉字（词）条目与当前页码，不在正文中产生可视效应。这是照顾一些在正文与索引中有不同字（词）形的条目的需要，毕竟在 \TeX{} 里合总比分容易。glossaries 宏包中的 \verb|\newglossaryentry| 命令会自动忽略登记过的条目，因此不必特意对条目判重。\verb|\expandafter| 强迫 \verb|\theTG| 在送入 \verb|\addTG| 前完全展平成四角号码。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=52,formatcom=\color{darkmiku}]
\newcommand{\cc}[1]{#1\anchorTG{#1}}
\end{Verbatim}
\verb|\cc| 则定义为显示完汉字（词）后马上把它原样加入索引的命令。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=68,tabsize=4,formatcom=\color{darkmiku}]
\begin{multicols}{4}
\renewcommand{\glossarysection}[2][]{}
\renewcommand*{\glsgroupskip}{}
\setlength{\glstreeindent}{7pt}
\printglossary[type=TG,style=tree,title=]
\end{multicols}
\end{Verbatim}
四角号码索引分成多个纵栏，采用 tree 样式，第一级的四角号码均无缩进，第二级的汉字（词）排于各自所属的四角号码之后，统一缩进值可根据需要自由调整。
\end{adjustwidth}
\endgroup
\section{代码实现}
宏包主文件 tetragonos.sty 的全部内容如下：
\begingroup
\begin{adjustwidth}{3em}{3em}
\footnotesize
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,formatcom=\color{darkmiku}]
%% tetragonos.sty
%% Copyright 2019 Yuchang Yang < yang.yc.allium@gmail.com >
%
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
% of this license or (at your option) any later version.
% The latest version of this license is in
% http://www.latex-project.org/lppl.txt
% and version 1.3 or later is part of all distributions of LaTeX
% version 2005/12/01 or later.
%
% This work has the LPPL maintenance status `maintained'.
%
% The Current Maintainer of this work is Yuchang Yang.
%
% This work consists of the files tetragonos.sty and tetragonos-database.def
% and the associated example file tetragonos-example.tex.
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{tetragonos}[2019/01/15 v1 package tetragonos]
\newcommand{\saveTG}[2]{\expandafter\gdef\csname TG-#1\endcsname{#2}}
\newcommand{\loadTG}[1]{\csname TG-#1\endcsname}
\end{Verbatim}
宏 \verb|\saveTG| 与 \verb|\loadTG| 实际上实现了一个索引为汉字字符的数组的写入与读出。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=last,formatcom=\color{darkmiku}]
\makeatletter
\newcommand{\get@first@char}[1]{\loadTG{#1}\iffalse}
\newcommand{\getTG}[1]{\get@first@char#1\fi}
\makeatother
\end{Verbatim}
宏 \verb|\getTG| 利用 \TeX{} 的宏机制配合 \verb|\get@first@char|，实现了抓取参数中的第一个字符并查询其四角号码的功能。
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,firstnumber=last,formatcom=\color{darkmiku}]
\input{tetragonos-database.tex}
%%
%% End of file `tetrogonos.sty'
\end{Verbatim}
\end{adjustwidth}
\endgroup
汉字到四角号码的映射储存在另外的文件 tetragonos-example.def 中。其正文开头数行如下：
\begingroup
\begin{adjustwidth}{3em}{3em}
\footnotesize
\begin{Verbatim}[numbers=left,numbersep=1ex,gobble=2,formatcom=\color{darkmiku},firstnumber=22]
\ProvidesFile{tetragonos-database.def}[2019/01/14 v1 tetragonos database]
\saveTG{亠}{00000}
\saveTG{弯}{00027}
\saveTG{亪}{00037}
\saveTG{疒}{00100}
\saveTG{韲}{00101}
\end{Verbatim}
\end{adjustwidth}
\endgroup
\end{document}
|
