summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/ucharcat
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-06-14 17:44:48 +0000
committerKarl Berry <karl@freefriends.org>2015-06-14 17:44:48 +0000
commit12b5085cdf20c13b62a489187ab3144bb82319b7 (patch)
tree75f4fca661765838c5ce4df63895e7ffb4b10ceb /Master/texmf-dist/tex/latex/ucharcat
parente7c79a2788c21767e22c0e19e32a09d4240244b1 (diff)
ucharcat (13jun15)
git-svn-id: svn://tug.org/texlive/trunk@37529 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/ucharcat')
-rw-r--r--Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty48
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'.