diff options
Diffstat (limited to 'macros/xetex/latex/unicode-bidi/unicode-bidi.sty')
-rwxr-xr-x | macros/xetex/latex/unicode-bidi/unicode-bidi.sty | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/macros/xetex/latex/unicode-bidi/unicode-bidi.sty b/macros/xetex/latex/unicode-bidi/unicode-bidi.sty new file mode 100755 index 0000000000..ecd94d3fb5 --- /dev/null +++ b/macros/xetex/latex/unicode-bidi/unicode-bidi.sty @@ -0,0 +1,35 @@ +%% +%% This is file `unicode-bidi.sty'. +%% +%% __________________________________________________ +%% Copyright (c) 2016 Vafa Khalighi <persian-tex@tug.org> +%% +%% It may be distributed and/or modified 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 “author-maintained” (as per LPPL maintenance status) +%% by Vafa Khalighi. +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{unicode-bidi}[2016/11/09 v0.01 +Experimental unicode bidi package for XeTeX] +\newcount\unicode@bidi@latin@alphabets +\newXeTeXintercharclass\unicode@bidi@latin@alphabets@charclass +\newXeTeXintercharclass\unicode@bidi@latin@punctuations@charclass +\unicode@bidi@latin@alphabets=`\A \loop \XeTeXcharclass \unicode@bidi@latin@alphabets \unicode@bidi@latin@alphabets@charclass \ifnum\unicode@bidi@latin@alphabets<`\Z \advance\unicode@bidi@latin@alphabets \@ne \repeat +\unicode@bidi@latin@alphabets=`\a \loop \XeTeXcharclass \unicode@bidi@latin@alphabets \unicode@bidi@latin@alphabets@charclass \ifnum\unicode@bidi@latin@alphabets<`\z \advance\unicode@bidi@latin@alphabets \@ne \repeat +\XeTeXcharclass `\, \unicode@bidi@latin@punctuations@charclass +\XeTeXcharclass `\( \unicode@bidi@latin@punctuations@charclass +\XeTeXcharclass `\) \unicode@bidi@latin@punctuations@charclass +\XeTeXcharclass `\[ \unicode@bidi@latin@punctuations@charclass +\XeTeXcharclass `\] \unicode@bidi@latin@punctuations@charclass +\XeTeXinterchartoks \z@ \unicode@bidi@latin@alphabets@charclass {\unicode@bidi@startlatin} +\XeTeXinterchartoks \e@alloc@intercharclass@top \unicode@bidi@latin@alphabets@charclass {\unicode@bidi@startlatin} +\XeTeXinterchartoks \e@alloc@intercharclass@top \z@ {\unicode@bidi@finishlatin} +\XeTeXinterchartoks \unicode@bidi@latin@alphabets@charclass \z@ {\unicode@bidi@finishlatin} +\newcommand*{\unicode@bidi@startlatin}{\if@nonlatin\bgroup\beginL\latinfont\@nonlatinfalse\fi} +\newcommand*{\unicode@bidi@finishlatin}{\if@nonlatin\else\unskip\endL\egroup{ }\fi} +\endinput +%% +%% End of file `unicode-bidi.sty'.
\ No newline at end of file |