diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-11-29 20:53:37 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2018-11-29 20:53:37 +0100 |
| commit | 9bd28a3039a458b054459fe1ef80161b107b798f (patch) | |
| tree | c15bf6aedc4313de999a97bf92dc63b16ca60794 /tex/context/base/mkiv/l-unicode.lua | |
| parent | 744095aa4676553437db0d71c281a74557a3222f (diff) | |
| download | context-9bd28a3039a458b054459fe1ef80161b107b798f.tar.gz | |
2018-11-29 19:54:00
Diffstat (limited to 'tex/context/base/mkiv/l-unicode.lua')
| -rw-r--r-- | tex/context/base/mkiv/l-unicode.lua | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/tex/context/base/mkiv/l-unicode.lua b/tex/context/base/mkiv/l-unicode.lua index b5f52d312..433736602 100644 --- a/tex/context/base/mkiv/l-unicode.lua +++ b/tex/context/base/mkiv/l-unicode.lua @@ -24,7 +24,14 @@ if not modules then modules = { } end modules ['l-unicode'] = { -- used : byte char gmatch len lower sub upper -- not used : dump find format gfind gsub match rep reverse -utf = utf or (unicode and unicode.utf8) or { } +-- utf = utf or (unicode and unicode.utf8) or { } + +-- not supported: +-- +-- dump, find, format, gfind, gmatch, gsub, lower, match, rep, reverse, upper + +utf = utf or { } +unicode = nil utf.characters = utf.characters or string.utfcharacters utf.values = utf.values or string.utfvalues @@ -65,11 +72,9 @@ local p_utfbom = patterns.utfbom local p_newline = patterns.newline local p_whitespace = patterns.whitespace -if not unicode then - - unicode = { utf = utf } -- for a while - -end +-- if not unicode then +-- unicode = { utf = utf } -- for a while +-- end if not utf.char then @@ -1310,7 +1315,7 @@ if bit32 then local extract = bit32.extract local char = string.char - function unicode.toutf32string(n) + function utf.toutf32string(n) if n <= 0xFF then return char(n) .. |