summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/font-jap.tex
blob: 6bb813cccd1e63ca237c2fa4036292066f611179 (plain)
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
%D \module
%D   [       file=font-jap,
%D        version=2006.01.13,
%D          title=\CONTEXT\ Font Macros,
%D       subtitle=Japanese,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D    suggestions=Wang Lei,
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\ifx\handlejapaneseunicodeglyph\undefined \else \endinput              \fi
\ifx\handlechineseunicodeglyph \undefined          \input font-chi.tex \fi

\writestatus{loading}{Context Font Macros / Japanese}

\unprotect

\newif\iftracejapanese

\let\japaneseencoding\empty

\def\setjapaneseencoding
  {\getfontfileparameters\unicodestyle
   \ifx\currentfontfileencoding\undefined \else
     \let\japaneseencoding\currentfontfileencoding
   \fi}

\def\japaneseunicodescale  {\chineseunicodescale  }
\def\japaneseunicodeheight {\chineseunicodeheight }
\def\japaneseunicodedepth  {\chineseunicodedepth  }
\def\japaneseinterglyphskip{\chineseinterglyphskip}
\def\japanesesurroundskip  {\chinesesurroundskip  }

\setupunicodefont
  [japanese]
  [       \c!scale=\japaneseunicodescale,
         \c!height=\japaneseunicodeheight,
          \c!depth=\japaneseunicodedepth,
          \c!strut=\v!yes,
 \c!interlinespace=\v!yes,
     \c!conversion=\japanesenumber,
       \c!commands=\setjapaneseencoding, % needed for digits
        \c!command=\handlejapaneseunicodeglyph]

\def\japanesenumber{\numbers}

\def\handlejapaneseunicodeglyph
  {\begingroup
%    \let\chineseunicodescale  \japaneseunicodescale
%    \let\chineseunicodeheight \japaneseunicodeheight
%    \let\chineseunicodedepth  \japaneseunicodedepth
%    \let\chineseinterglyphskip\japaneseinterglyphskip
%    \let\chinesesurroundskip  \japanesesurroundskip
   \iftracejapanese\tracechinesetrue\else\tracechinesefalse\fi
   \handlechineseunicodeglyph
   \endgroup}

\doifelse \currentregime {utf} {

    % todo: typescripts

    \definefontsynonym [JapaneseRegular]    [uni-cybercjk-][encoding=cjk-uni]
    \definefontsynonym [JapaneseSlanted]    [uni-cybercjk-][encoding=cjk-uni]
    \definefontsynonym [JapaneseItalic]     [uni-cybercjk-][encoding=cjk-uni]
    \definefontsynonym [JapaneseBold]       [uni-cybercjk-][encoding=cjk-uni]
    \definefontsynonym [JapaneseBoldSlanted][uni-cybercjk-][encoding=cjk-uni]
    \definefontsynonym [JapaneseBoldItalic] [uni-cybercjk-][encoding=cjk-uni]

    \loadmapfile[uni-cybercjk.map]

    \defineunicodefont [Japanese] [Japanese]  [japanese]

} {
    \writestatus{Japanese}{No fonts defined}
}

\Japanese

\protect \endinput