[latex3-commits] [git/LaTeX3-latex3-luaotfload] dev, main: Remove temporary code in luaotfload-l3color again (af58588)

[Marcel Fabian Krüger]

Repository : https://github.com/latex3/luaotfload
On branches: dev,main
Link       : https://github.com/latex3/luaotfload/commit/af58588d7b70c357f0cf9feb766e51a21f12d635

>---------------------------------------------------------------

commit af58588d7b70c357f0cf9feb766e51a21f12d635
Author: Marcel Fabian Krüger <tex at 2krueger.de>
Date:   Wed Jun 15 18:29:42 2022 +0200

    Remove temporary code in luaotfload-l3color again


>---------------------------------------------------------------

af58588d7b70c357f0cf9feb766e51a21f12d635
 src/luaotfload-l3color.lua | 78 ----------------------------------------------
 1 file changed, 78 deletions(-)

diff --git a/src/luaotfload-l3color.lua b/src/luaotfload-l3color.lua
deleted file mode 100644
index 1d4eab4..0000000
--- a/src/luaotfload-l3color.lua
+++ /dev/null
@@ -1,78 +0,0 @@
-if not luaotfload.set_transparent_colorstack then return end
-local l = lpeg
-local spaces = l.P' '^0
-local digit16 = l.R('09', 'af', 'AF')
-
-local octet = digit16 * digit16 / function(s) return string.format('%.3g ', tonumber(s, 16) / 255) end
-local htmlcolor = l.Cs(octet * octet * octet * -1 * l.Cc'rg')
-local color_export = {
-  token.create'endlocalcontrol',
-  token.create'tex_hpack:D',
-  token.new(0, 1),
-  token.create'color_export:nnN',
-  token.new(0, 1),
-  '',
-  token.new(0, 2),
-  token.new(0, 1),
-  'backend',
-  token.new(0, 2),
-  token.create'l_tmpa_tl',
-  token.create'exp_after:wN',
-  token.create'__color_select:nn',
-  token.create'l_tmpa_tl',
-  token.new(0, 2),
-}
-local group_end = token.create'group_end:'
-local value = (1 - l.P'}')^0
-luatexbase.add_to_callback('luaotfload.parse_color', function (value)
-  local html = htmlcolor:match(value)
-  if html then return html end
-
-  tex.runtoks(function()
-    token.get_next()
-    color_export[6] = value
-    tex.sprint(-2, color_export)
-  end)
-  local list = token.scan_list()
-  if not list.head or list.head.next or list.head.subtype ~= node.subtype'pdf_colorstack' then
-    error'Unexpected backend behavior'
-  end
-  local cmd = list.head.data
-  node.free(list)
-  return cmd
-end, 'l3color')
-
--- Let's also integrate l3opacity
-
-luaotfload.set_transparent_colorstack(token.create'c__opacity_backend_stack_int'.index)
-
-local transparent_register = {
-  token.create'pdfmanagement_add:nnn',
-  token.new(0, 1),
-    'Page/Resources/ExtGState',
-  token.new(0, 2),
-  token.new(0, 1),
-    '',
-  token.new(0, 2),
-  token.new(0, 1),
-    '<</ca ',
-    '',
-    '/CA ',
-    '',
-    '>>',
-  token.new(0, 2),
-}
-luatexbase.add_to_callback('luaotfload.parse_transparent', function(value)
-  value = (octet * -1):match(value)
-  if not value then
-    tex.error'Invalid transparency value'
-    return
-  end
-  value = value:sub(1, -2)
-  local result = 'opacity' .. value
-  tex.runtoks(function()
-    transparent_register[6], transparent_register[10], transparent_register[12] = result, value, value
-    tex.sprint(-2, transparent_register)
-  end)
-  return '/' .. result .. ' gs'
-end, 'l3opacity')