summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua')
-rw-r--r--Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua311
1 files changed, 168 insertions, 143 deletions
diff --git a/Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua b/Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua
index eb324f3459a..202493dff36 100644
--- a/Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua
+++ b/Master/texmf-dist/tex/lualatex/luainputenc/luainputenc.lua
@@ -30,8 +30,8 @@ luainputenc = { }
luainputenc.module = {
name = "luainputenc",
- version = 0.93,
- date = "2009/04/15",
+ version = 0.94,
+ date = "2009/09/23",
description = "Lua simple inputenc package.",
author = "Elie Roux",
copyright = "Elie Roux",
@@ -46,183 +46,208 @@ luainputenc.log = luainputenc.log or function(...)
luatextra.module_log('luainputenc', format(...))
end
-local char, utfchar, byte, format, gsub =
-string.char, unicode.utf8.char, string.byte, string.format, string.gsub
+local char, utfchar, byte, format, gsub, utfbyte, utfgsub =
+string.char, unicode.utf8.char, string.byte, string.format, string.gsub, unicode.utf8.byte, unicode.utf8.gsub
-local started, stopped = 1, 0
-luainputenc.state = stopped
-
-function luainputenc.setstate(state)
- if state == luainputenc.state then
- return
- elseif state == started then
- luainputenc.start()
- else
- luainputenc.stop()
- end
+function luainputenc.byte_to_utf(ch)
+ return utfchar(byte(ch))
end
-function luainputenc.setstarted()
- luainputenc.setstate(started)
-end
-function luainputenc.setstopped()
- luainputenc.setstate(stopped)
+function luainputenc.fake_utf_read(buf)
+ return gsub(buf,"(.)", luainputenc.byte_to_utf)
end
-function luainputenc.byte_to_utf(c)
- return utfchar(byte(c))
+function luainputenc.utf_to_byte(ch)
+ return char(utfbyte(ch))
end
-function luainputenc.fake_utf(buf)
- return gsub(buf,"(.)", luainputenc.byte_to_utf)
+function luainputenc.fake_utf_write(buf)
+ return utfgsub(buf,"(.)", luainputenc.utf_to_byte)
end
-function luainputenc.start()
- callback.add('process_input_buffer', luainputenc.fake_utf,
-'luainputenc.fake_utf')
- luainputenc.state = started
- if luainputenc.callback_registered == 0 then
- luainputenc.register_callback()
+if tex.luatexversion > 42 then
+
+ function luainputenc.register_callbacks()
+ callback.add('process_output_buffer', luainputenc.fake_utf_write, 'luainputenc.fake_utf_write')
+ callback.add('process_input_buffer', luainputenc.fake_utf_read, 'luainputenc.fake_utf_read')
end
-end
-function luainputenc.stop()
- callback.remove('process_input_buffer', 'luainputenc.fake_utf')
+else
+
+
+ local started, stopped = 1, 0
+
luainputenc.state = stopped
- return
-end
+ function luainputenc.setstate(state)
+ if state == luainputenc.state then
+ return
+ elseif state == started then
+ luainputenc.start()
+ else
+ luainputenc.stop()
+ end
+ end
-luainputenc.unicode_extentions = {
- ['.aux'] = 1, -- basic files
- ['.toc'] = 1,
- ['.gls'] = 1,
- ['.ind'] = 1,
- ['.idx'] = 1,
- ['.vrb'] = 1, -- beamer and powerdot
- ['.nav'] = 1, -- other beamer extentions
- ['.sol'] = 1,
- ['.qsl'] = 1,
- ['.snm'] = 1,
- ['.pgn'] = 1, -- pagereference
- ['.cpg'] = 1, -- AlProTeX
- ['.pst'] = 1, -- pst-tree
- ['.tmp'] = 1, -- sauerj/collect
- ['.sym'] = 1, -- listofsymbols
- ['.sub'] = 1, -- listofsymbols
- ['.lof'] = 1, -- preprint
- ['.lot'] = 1, -- preprint
- ['mtc1'] = 1, -- minitoc
- ['.ovr'] = 1, -- thumbss
- ['.fff'] = 1, -- endplate
- ['.sbb'] = 1, -- splitbib
- ['.bbl'] = 1, -- latex
- ['.ain'] = 1, -- authorindex
- ['.abb'] = 1, -- juraabbrev
- ['.ent'] = 1, -- endnotes
- ['.end'] = 1, -- fn2end
- ['.thm'] = 1, -- ntheorem
- ['.xtr'] = 1, -- extract
- ['.han'] = 1, -- linguho
- ['.bnd'] = 1, -- bibref
- ['.bbl'] = 1, -- bibref
- ['.col'] = 1, -- mwrite
- ['.ttt'] = 1, -- endfloat
- ['.fax'] = 1, -- lettre
- ['.tns'] = 1, -- lettre
- ['.odt'] = 1, -- lettre
- ['.etq'] = 1, -- lettre
- ['.emd'] = 1, -- poemscol
- ['.emx'] = 1, -- poemscol
- ['.ctn'] = 1, -- poemscol
- ['.hst'] = 1, -- vhistory
- ['.acr'] = 1, -- crosswrd
- ['.dwn'] = 1, -- crosswrd
- ['.ttc'] = 1, -- talk
- -- ['.txt'] = 1, -- coverpage, but not sure it's safe to include it...
- ['.eve'] = 1, -- calend0
- ['.scn'] = 1, -- cwebmac
- }
-
-
-luainputenc.unicode_files = {}
-
-luainputenc.non_unicode_files = {}
-
-function luainputenc.set_unicode_file(filename)
- if luainputenc.non_unicode_files[filename] == 1 then
- luainputenc.non_unicode_files[filename] = nil
+ function luainputenc.setstarted()
+ luainputenc.setstate(started)
end
- luainputenc.unicode_files[filename] = 1
-end
-function luainputenc.set_non_unicode_file(filename)
- if luainputenc.unicode_files[filename] == 1 then
- luainputenc.unicode_files[filename] = nil
+ function luainputenc.setstopped()
+ luainputenc.setstate(stopped)
end
- luainputenc.non_unicode_files[filename] = 1
-end
-function luainputenc.set_unicode_extention(ext)
- luainputenc.unicode_extention[ext] = 1
-end
+ function luainputenc.start()
+ callback.add('process_input_buffer', luainputenc.fake_utf_read,
+ 'luainputenc.fake_utf_read')
+ luainputenc.state = started
+ if luainputenc.callback_registered == 0 then
+ luainputenc.register_callback()
+ end
+ end
-function luainputenc.set_non_unicode_extention(ext)
- if luainputenc.unicode_extentions[ext] == 1 then
- luainputenc.unicode_extentions[ext] = nil
+ function luainputenc.stop()
+ callback.remove('process_input_buffer', 'luainputenc.fake_utf_read')
+ luainputenc.state = stopped
+ return
end
-end
-function luainputenc.unset_file(filename)
- if luainputenc.unicode_files[filename] == 1 then
- luainputenc.unicode_files[filename] = nil
- elseif luainputenc.non_unicode_files[filename] == 1 then
- luainputenc.non_unicode_files[filename] = nil
+
+ luainputenc.unicode_extentions = {
+ ['.aux'] = 1, -- basic files
+ ['.toc'] = 1,
+ ['.gls'] = 1,
+ ['.ind'] = 1,
+ ['.idx'] = 1,
+ ['.vrb'] = 1, -- beamer and powerdot
+ ['.nav'] = 1, -- other beamer extentions
+ ['.sol'] = 1,
+ ['.qsl'] = 1,
+ ['.snm'] = 1,
+ ['.pgn'] = 1, -- pagereference
+ ['.cpg'] = 1, -- AlProTeX
+ ['.pst'] = 1, -- pst-tree
+ ['.tmp'] = 1, -- sauerj/collect
+ ['.sym'] = 1, -- listofsymbols
+ ['.sub'] = 1, -- listofsymbols
+ ['.lof'] = 1, -- preprint
+ ['.lot'] = 1, -- preprint
+ ['mtc1'] = 1, -- minitoc
+ ['.ovr'] = 1, -- thumbss
+ ['.fff'] = 1, -- endplate
+ ['.sbb'] = 1, -- splitbib
+ ['.bbl'] = 1, -- latex
+ ['.ain'] = 1, -- authorindex
+ ['.abb'] = 1, -- juraabbrev
+ ['.ent'] = 1, -- endnotes
+ ['.end'] = 1, -- fn2end
+ ['.thm'] = 1, -- ntheorem
+ ['.xtr'] = 1, -- extract
+ ['.han'] = 1, -- linguho
+ ['.bnd'] = 1, -- bibref
+ ['.bbl'] = 1, -- bibref
+ ['.col'] = 1, -- mwrite
+ ['.ttt'] = 1, -- endfloat
+ ['.fax'] = 1, -- lettre
+ ['.tns'] = 1, -- lettre
+ ['.odt'] = 1, -- lettre
+ ['.etq'] = 1, -- lettre
+ ['.emd'] = 1, -- poemscol
+ ['.emx'] = 1, -- poemscol
+ ['.ctn'] = 1, -- poemscol
+ ['.hst'] = 1, -- vhistory
+ ['.acr'] = 1, -- crosswrd
+ ['.dwn'] = 1, -- crosswrd
+ ['.ttc'] = 1, -- talk
+ -- ['.txt'] = 1, -- coverpage, but not sure it's safe to include it...
+ ['.eve'] = 1, -- calend0
+ ['.scn'] = 1, -- cwebmac
+ }
+
+
+ luainputenc.unicode_files = {}
+
+ luainputenc.non_unicode_files = {}
+
+ function luainputenc.set_unicode_file(filename)
+ if luainputenc.non_unicode_files[filename] == 1 then
+ luainputenc.non_unicode_files[filename] = nil
+ end
+ luainputenc.unicode_files[filename] = 1
end
-end
-local unicode, non_unicode = stopped, started
-
-function luainputenc.find_state(filename)
- if luainputenc.unicode_files[filename] == 1 then
- return unicode
- elseif luainputenc.non_unicode_files[filename] == 1 then
- return non_unicode
- else
- local ext = filename:sub(-4)
- if luainputenc.unicode_extentions[ext] == 1 then
- return unicode
- else
+ function luainputenc.set_non_unicode_file(filename)
+ if luainputenc.unicode_files[filename] == 1 then
+ luainputenc.unicode_files[filename] = nil
+ end
+ luainputenc.non_unicode_files[filename] = 1
+ end
+
+ function luainputenc.set_unicode_extention(ext)
+ luainputenc.unicode_extention[ext] = 1
+ end
+
+ function luainputenc.set_non_unicode_extention(ext)
+ if luainputenc.unicode_extentions[ext] == 1 then
+ luainputenc.unicode_extentions[ext] = nil
+ end
+ end
+
+ function luainputenc.unset_file(filename)
+ if luainputenc.unicode_files[filename] == 1 then
+ luainputenc.unicode_files[filename] = nil
+ elseif luainputenc.non_unicode_files[filename] == 1 then
+ luainputenc.non_unicode_files[filename] = nil
+ end
+ end
+
+ local unicode, non_unicode = stopped, started
+
+ function luainputenc.find_state(filename)
+ if luainputenc.unicode_files[filename] == 1 then
+ return unicode
+ elseif luainputenc.non_unicode_files[filename] == 1 then
return non_unicode
- end
+ else
+ local ext = filename:sub(-4)
+ if luainputenc.unicode_extentions[ext] == 1 then
+ return unicode
+ else
+ return non_unicode
+ end
+ end
end
-end
-function luainputenc.pre_read_file(env)
- local currentstate = luainputenc.state
- luainputenc.setstate(luainputenc.find_state(env.filename))
- env.previousstate = currentstate
-end
+ function luainputenc.pre_read_file(env)
+ if not env.path then
+ return
+ end
+ local currentstate = luainputenc.state
+ luainputenc.setstate(luainputenc.find_state(env.filename))
+ env.previousstate = currentstate
+ end
-function luainputenc.close(env)
- luainputenc.setstate(env.previousstate)
-end
+ function luainputenc.close(env)
+ luainputenc.setstate(env.previousstate)
+ end
-luainputenc.callback_registered = 0
+ luainputenc.callback_registered = 0
-function luainputenc.register_callback()
- if luainputenc.callback_registered == 0 then
- callback.add('pre_read_file', luainputenc.pre_read_file,
-'luainputenc.pre_read_file')
- callback.add('file_close', luainputenc.close, 'luainputenc.close')
- luainputenc.callback_registered = 1
+ function luainputenc.register_callback()
+ if luainputenc.callback_registered == 0 then
+ callback.add('pre_read_file', luainputenc.pre_read_file,
+ 'luainputenc.pre_read_file')
+ callback.add('file_close', luainputenc.close, 'luainputenc.close')
+ luainputenc.callback_registered = 1
+ end
end
+
end
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-11 07:43:53 +0000