summaryrefslogtreecommitdiff
path: root/macros/luatex/generic/barracuda/test/test-code39/001-code39-test.tex
blob: c08e1f242a39008d848d81d60623354471d39e27 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
% !TeX program = LuaTeX
% Copyright (C) 2019-2022 Roberto Giacomelli
% test Code 39 encoder

\directlua{
local barracuda = require "barracuda"

for k, v in pairs(barracuda) do
    print(k, v)
end

local barcode = barracuda:barcode()

local c39, err = barcode:new_encoder("code39")
assert(not err, err)

print(c39._NAME)
print(c39._VERSION)

local info = c39:info()

print("encoder name = ", info.name)
print("description = ", info.description)
for k, tp in ipairs(info.param) do
    print(k, tp.name, tp.value)
end

local symb = c39:from_string("123")

print("print internal representation of chars")
print(table.concat(symb:get_code(), " "))
print("end")
assert(symb:get_hri() == nil)

local canvas = barracuda:new_canvas()
symb:draw(canvas)
% canvas:prettyprint_ga()
}
\bye