barracuda (5dec19)

git-svn-id: svn://tug.org/texlive/trunk@53034 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 21 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/luatex/barracuda/barracuda.sty b/Master/texmf-dist/tex/luatex/barracuda/barracuda.sty
new file mode 100644
index 00000000000..7ee6b021040
--- /dev/null
+++ b/Master/texmf-dist/tex/luatex/barracuda/barracuda.sty
@@ -0,0 +1,21 @@
+%
+\NeedsTeXFormat{LaTeX2e}[2009/06/27]
+\ProvidesPackage{barracuda}[2018/12/30 v0.1 a barcode typesetting package]%
+
+\newbox\barracudabox
+\newcommand\barracuda[2]{\directlua{
+    local barracuda = require "barracuda"
+    local e = [[#1]]
+    local s = [[#2]]
+    local enc, err = barracuda:get_barcode_class():new_encoder(e)
+    assert(enc, err)
+    local symb, err = enc:from_string(s); assert(symb, err)
+    local canvas = barracuda:new_canvas()
+    symb:append_ga(canvas)
+    local drv = barracuda:get_driver()
+    drv:ga_to_hbox(canvas, "barracudabox")
+}%
+\box\barracudabox
+}
+
+\endinput