From 25f69aadc674dbb748d19b87ad5723f8381df52b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 29 Oct 2019 21:22:13 +0000 Subject: luavlna.tex in runtime git-svn-id: svn://tug.org/texlive/trunk@52569 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/luatex/luavlna/README.md | 2 +- .../texmf-dist/doc/luatex/luavlna/luavlna-doc.pdf | Bin 89010 -> 88997 bytes Master/texmf-dist/doc/luatex/luavlna/luavlna.tex | 122 --------------------- 3 files changed, 1 insertion(+), 123 deletions(-) delete mode 100644 Master/texmf-dist/doc/luatex/luavlna/luavlna.tex (limited to 'Master/texmf-dist/doc/luatex/luavlna') diff --git a/Master/texmf-dist/doc/luatex/luavlna/README.md b/Master/texmf-dist/doc/luatex/luavlna/README.md index b027486b216..ae6eb4cfb89 100644 --- a/Master/texmf-dist/doc/luatex/luavlna/README.md +++ b/Master/texmf-dist/doc/luatex/luavlna/README.md @@ -1,4 +1,4 @@ -# Luavlna, version v0.1d, 2019-10-22 +# Luavlna, version v0.1e, 2019-10-29 # Introduction diff --git a/Master/texmf-dist/doc/luatex/luavlna/luavlna-doc.pdf b/Master/texmf-dist/doc/luatex/luavlna/luavlna-doc.pdf index cb80186aee2..177832d3f4f 100644 Binary files a/Master/texmf-dist/doc/luatex/luavlna/luavlna-doc.pdf and b/Master/texmf-dist/doc/luatex/luavlna/luavlna-doc.pdf differ diff --git a/Master/texmf-dist/doc/luatex/luavlna/luavlna.tex b/Master/texmf-dist/doc/luatex/luavlna/luavlna.tex deleted file mode 100644 index a0fb9e515e9..00000000000 --- a/Master/texmf-dist/doc/luatex/luavlna/luavlna.tex +++ /dev/null @@ -1,122 +0,0 @@ -% Modify pre_linebreak_filter callback so the spaces can be inserted -\directlua{% -luavlna = require "luavlna" -langno = require "luavlna-langno" - -require "ltluatex" -luatexbase.add_to_callback("pre_linebreak_filter", luavlna.preventsingle,"LuaVlna") -luatexbase.add_to_callback("hyphenate", luavlna.split_hyphens, "allow hyphen breaks") -% -- define the attribute number -luavlna.preventsingleid = math.random(2^16) - -local languages = langno.load_languages() -local get_lang_id = function(lang) - local langid = lang - if not tonumber(lang) then - langid = languages:get_number(lang) - end - return langid -end - -% Process string and make table of enabled single letters -% By default, spaces for all single letters are inserted -% This can be modified with \singlechars macro -set_singlechars = function(lang,chars) - local utf_gmatch = unicode.utf8.gmatch - % local langnumbers = languages.names - local langid = get_lang_id(lang) - if not langid then return nil, "Cannot find language number for: "..lang end - local chars = chars or "" - local singlechars = {} - local percent = string.char(37) - local alpha = percent .. "a" - for char in utf_gmatch(chars,"("..alpha..")") do - singlechars[char] = true - end - luavlna.singlechars(langid,singlechars) -end - -% set compound characters for initials handling -% useful for Czech "Ch" etc. -% comma separated list of compounds -set_compounds = function(lang, compounds) - local langid = get_lang_id(lang) - if not langid then return nil, "Cannot find language number for: "..lang end - local c = compounds:explode(",+") % match multiple colons as one - local compoundstable = {} - for _, compound in pairs(c) do - compoundstable[compound] = true - end - luavlna.initials(langid, compoundstable) -end - -set_main_language = function(lang) - local langid = languages:get_number(lang) - if not langid then return nil, "Cannot find language number for: "..lang end - luavlna.set_main_language(langid) -end - -enable_split_hyphens = function(lang) - local langid = languages:get_number(lang) - if not langid then return nil, "Cannot find language number for: "..lang end - luavlna.split_hyphen_langs[langid] = true -end - -disable_split_hyphens = function(lang) - local langid = languages:get_number(lang) - if not langid then return nil, "Cannot find language number for: "..lang end - luavlna.split_hyphen_langs[langid] = nil -end -} - -% Set letters which are prevented from breaking -\def\singlechars#1#2{% -\directlua{set_singlechars("#1","#2")} -} - -% Define compound initials -\def\compoundinitials#1#2{% -\directlua{set_compounds("#1","#2")} -} -% Enable inserting of visual marks for debugging -\def\preventsingledebugon{% -\directlua{luavlna.debug(true)} -} - -\def\preventsinglelang#1{% - \directlua{set_main_language("#1")} -} - -%\newluatexattribute\preventsinglestatus -\attributedef\preventsinglestatus=\directlua{tex.print(luavlna.preventsingleid)} % just a random number - -\def\preventsingleon{% - \preventsinglestatus=2 -} - -\def\preventsingleoff{ - \preventsinglestatus=1 -} -% Disable inserting of visual marks for dewbugging -\def\preventsingledebugoff{% -\directlua{luavlna.debug(false)} -} - -% enable/disable split hyphens for a language - -\def\enablesplithyphens#1{\directlua{enable_split_hyphens("#1")}} -\def\disablesplithyphens#1{\directlua{disable_split_hyphens("#1")}} - -% disable processing of units or degrees - -\def\nopredegrees{\directlua{luavlna.no_predegrees = true}} -\def\nosufdegrees{\directlua{luavlna.no_sufdegrees = true}} -\def\nounits{\directlua{luavlna.no_unit = true}} - -\ifdefined\nosingledefaults\else - \singlechars{czech}{AIiVvOoUuSsZzKk} - \singlechars{slovak}{AIiVvOoUuSsZzKk} - \compoundinitials{czech}{Ch,CH} - \enablesplithyphens{czech} -\fi - -- cgit v1.2.3