From 12b5085cdf20c13b62a489187ab3144bb82319b7 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 14 Jun 2015 17:44:48 +0000 Subject: ucharcat (13jun15) git-svn-id: svn://tug.org/texlive/trunk@37529 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty | 48 +++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/ucharcat/ucharcat.sty (limited to 'Master/texmf-dist/tex/latex/ucharcat') 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'. -- cgit v1.2.3