summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/xelatex/xepersian/xepersian-mathsdigitspec.sty
blob: 845b7398b75543ca3d6dbffc10359e49839fc0f6 (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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
%%
%% This is file `xepersian-mathsdigitspec.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% xepersian.dtx  (with options: `xepersian-mathsdigitspec.sty')
%% 
%%   __________________________________
%%   Copyright © 2008-2009 Vafa Khalighi
%% 
%%   License information appended.
%% 
%% 
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{xepersian-mathsdigitspec}
  [2009/04/22 v1.0.1 Unicode Persian maths digits in XeLaTeX (Author: Vafa Khalighi)]
\@zf@mathfalse
\def\@preamblecmds{}
\newcommand\not@onlypreamble[1]{{%
  \def\do##1{\ifx#1##1\else\noexpand\do\noexpand##1\fi}%
  \xdef\@preamblecmds{\@preamblecmds}}}
\def\gm@notprerr{ can be used only in preamble (\on@line)}
\AtBeginDocument{%
  \def\do#1{\noexpand\do\noexpand#1}%
  \edef\@preamblecmds{%
    \def\noexpand\do##1{%
      \def##1{\noexpand\PackageError{gmutils/LaTeX}%
        {\noexpand\string##1 \noexpand\gm@notprerr}\noexpand\@eha}}%
    \@preamblecmds}}
\def\nocite#1{%
  \@bsphack{\setbox0=\hbox{\cite{#1}}}\@esphack}
\newcommand\xepersian@PackageInfo[1]{\PackageInfo{xepersian-mathsdigitspec}{#1}}
\newcommand\SetMathCode[4]{%
  \XeTeXmathcode#1="\mathchar@type#2 \csname sym#3\endcsname #4\relax}
\newcommand\SetMathCharDef[4]{%
  \XeTeXmathchardef#1="\mathchar@type#2 \csname sym#3\endcsname #4\relax}
\newcommand\setdigitfont[2][]{%
  \let\glb@currsize\relax
  \setkeys*[xepersian-mathsdigitspec]{options}{#1}%
  \edef\@tempa{\noexpand\zf@fontspec{%
    \XKV@rm}{#2}}\@tempa
  \xepersian@PackageInfo{Defining the default Persian maths digits font as '#2'}
  \DeclareSymbolFont{OPERATORS}   {EU1}{\zf@family} {m}{n}
  \SetSymbolFont{OPERATORS}{bold}{EU1}{\zf@family} {bx}{n}
  \DeclareMathAlphabet      {\mathit}{EU1}{\zf@family}{m}{it}
  \DeclareSymbolFontAlphabet{\mathrm}    {OPERATORS}
  \DeclareMathAlphabet      {\mathbf}{EU1}{\zf@family}{bx}{n}
  \SetMathCode{`0}{\mathalpha}{OPERATORS}{"06F0}
  \SetMathCode{`1}{\mathalpha}{OPERATORS}{"06F1}
  \SetMathCode{`2}{\mathalpha}{OPERATORS}{"06F2}
  \SetMathCode{`3}{\mathalpha}{OPERATORS}{"06F3}
  \SetMathCode{`4}{\mathalpha}{OPERATORS}{"06F4}
  \SetMathCode{`5}{\mathalpha}{OPERATORS}{"06F5}
  \SetMathCode{`6}{\mathalpha}{OPERATORS}{"06F6}
  \SetMathCode{`7}{\mathalpha}{OPERATORS}{"06F7}
  \SetMathCode{`8}{\mathalpha}{OPERATORS}{"06F8}
  \SetMathCode{`9}{\mathalpha}{OPERATORS}{"06F9}
  \SetMathCharDef{\decimalseparator}{\mathpunct}{OPERATORS}{"066B}
}
\ifx\newcommand\undefined\else
  \newcommand{\ZifferAn}{}
\fi
\mathchardef\ziffer@DotOri="013A
{\ZifferAn
 \catcode`\.=\active\gdef.{\begingroup\obeyspaces\futurelet\n\ziffer@dcheck}}
\def\ziffer@dcheck{\ziffer@check\ZifferLeer\ziffer@DotOri}
\def\ziffer@check#1#2{%
  \ifx\n1\endgroup#1\else
    \ifx\n2\endgroup#1\else
      \ifx\n3\endgroup#1\else
        \ifx\n4\endgroup#1\else
          \ifx\n5\endgroup#1\else
            \ifx\n6\endgroup#1\else
              \ifx\n7\endgroup#1\else
                \ifx\n8\endgroup#1\else
                  \ifx\n9\endgroup#1\else
                    \ifx\n0\endgroup#1\else
                      \endgroup#2%
                    \fi
                  \fi
                \fi
              \fi
            \fi
          \fi
        \fi
      \fi
    \fi
  \fi}
\mathcode`.="8000\relax
\def\ZifferLeer{\ifx\decimalseparator\undefied .\else \decimalseparator\fi}
%% 
%% Copyright © 2008-2009      by Vafa Khalighi     <vafa@users.berlios.de>
%% 
%% Distributable under the LaTeX Project Public License,
%% version 1.3c or higher (your choice). The latest version of
%% this license is at: http://www.latex-project.org/lppl.txt
%% 
%% This work is "maintained" (as per LPPL maintenance status)
%% by Vafa Khalighi.
%% 
%% 
%% 
%% 
%%
%% End of file `xepersian-mathsdigitspec.sty'.