ucharcat (13jun15)

git-svn-id: svn://tug.org/texlive/trunk@37529 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 48 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty b/Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty
new file mode 100644
index 00000000000..1bad5082f8f
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty
@@ -0,0 +1,48 @@
+%%
+%% This is file `ucharcat.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ucharcat.dtx  (with options: `package')
+%% 
+%% Source File: textcase.dtx
+%% Copyright 2015 David Carlisle
+%%
+%% This file may be distributed under the terms of the LPPL.
+%% See README for details.
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ucharcat}
+       [2015/05/20 v0.01 ucharcat for luaLaTeX  (DPC)]
+\ifx\directlua\@undefined
+\ifx\Ucharcat\@undefined
+\ifx\XeTeXinterchartokenstate\@undefined
+\PackageError{ucharcat}
+{\string\Ucharcat\space may only be used with xetex and luatex}
+{skipping package}
+\else
+\PackageError{ucharcat}
+{\string\Ucharcat\space is defined in xetex releases from 2015 only}
+{skipping package}
+\fi
+\fi
+\expandafter\endinput
+\fi
+\ifx\newcatcodetable\@undefined
+  \chardef\ucharcat@table"7000
+\else
+  \newcatcodetable\ucharcat@table
+\fi
+\luatexinitcatcodetable\ucharcat@table
+\directlua{%
+function UcharcatLua()
+  local mych = newtoken.scan_int()
+  local mycat = newtoken.scan_int()
+  tex.setcatcode(\the\numexpr\ucharcat@table\relax,mych,mycat)
+  tex.sprint(\the\numexpr\ucharcat@table\relax,unicode.utf8.char(mych))
+end
+}
+\def\Ucharcat{\directlua{UcharcatLua()}}
+\endinput
+%%
+%% End of file `ucharcat.sty'.