summaryrefslogtreecommitdiff
path: root/macros/xetex/latex/unicode-bidi/unicode-bidi.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/xetex/latex/unicode-bidi/unicode-bidi.sty')
-rwxr-xr-xmacros/xetex/latex/unicode-bidi/unicode-bidi.sty35
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