mirror of
https://git.code.sf.net/p/zint/code
synced 2025-06-05 09:13:55 -04:00
Convert bwipp_dump.ps patch to append (.diff -> .cat)
This commit is contained in:
gitlost
parent
ac421144c9
commit
c790f36815
6 changed files with 195 additions and 844 deletions
190
backend/tests/tools/bwipp_dump-barcode.ps.cat
Normal file
190
backend/tests/tools/bwipp_dump-barcode.ps.cat
Normal file
|
|
@ -0,0 +1,190 @@
|
|||
%!PS
|
||||
|
||||
% Append to BWIPP barcode.ps: cat <bwipp-dir>/build/monolithic/barcode.ps bwipp_dump-barcode.ps.cat > bwipp_dump.ps
|
||||
%
|
||||
% To compress: tar cv bwipp_dump.ps | xz -e9 > bwipp_dump.ps.tar.xz
|
||||
|
||||
% Dumps BWIPP barcode binary to stdout. If `-sn` given, appends a newline after each symbol row, otherwise doesn't.
|
||||
%
|
||||
% To run e.g. gs -dNOPAUSE -dBATCH -dNODISPLAY -q -sb=databarexpanded -sd='(01)98898765432106' -so='includetext segments=6' bwipp_dump.ps
|
||||
% where
|
||||
% `-sb=` is the BWIPP barcode routine name
|
||||
% `-sd=` is the data (`sd2=` is also available for overspill data > 2K to get around Ghostscript arg_str_max)
|
||||
% `-so=` are options (as space separated key=val pairs (or just key if boolean true))
|
||||
|
||||
% For debugging the barcode can be rendered by leaving out `-dBATCH -dNODISPLAY`. Scaling can be specified by `-ss=` (default 2).
|
||||
|
||||
% Command line "-s" options put into system dictionary as strings
|
||||
/n systemdict /n known def
|
||||
|
||||
% Append d2 to d if given
|
||||
systemdict /d2 known {
|
||||
/d d length d2 length add string dup dup 0 d putinterval d length d2 putinterval def
|
||||
} if
|
||||
|
||||
% Strip start/end parens from data if any
|
||||
d 0 1 getinterval (\() eq d d length 1 sub 1 getinterval (\)) eq and {
|
||||
/d d 1 d length 2 sub getinterval d length 2 sub string copy def
|
||||
} if
|
||||
|
||||
% Options
|
||||
systemdict /o known {
|
||||
o type /stringtype eq o length 0 gt and {
|
||||
o length 2 ge {
|
||||
% Strip start/end parens from options if any
|
||||
o 0 1 getinterval (\() eq o o length 1 sub 1 getinterval (\)) eq and {
|
||||
/o o 1 o length 2 sub getinterval o length 2 sub string copy def
|
||||
} if
|
||||
} if
|
||||
3 dict begin
|
||||
o {
|
||||
token not {exit} if
|
||||
dup length string cvs (=) search {
|
||||
cvlit exch pop exch def
|
||||
} {
|
||||
cvlit true def
|
||||
} ifelse
|
||||
} loop
|
||||
currentdict end /o exch def
|
||||
} {
|
||||
/o 1 dict def
|
||||
} ifelse
|
||||
} {
|
||||
/o 1 dict def
|
||||
} ifelse
|
||||
|
||||
o (dontdraw) true put
|
||||
|
||||
/ret d o b cvn /uk.co.terryburton.bwipp findresource exec def
|
||||
|
||||
% pixs is renmatrix input
|
||||
ret /pixs known {
|
||||
b (maxicode) eq {
|
||||
/pixs 990 array def
|
||||
0 1 989 { pixs exch 0 put } for
|
||||
ret /pixs get { pixs exch 1 put } forall
|
||||
} {
|
||||
/pixs ret /pixs get def
|
||||
} ifelse
|
||||
|
||||
/xs systemdict /xs known { systemdict /xs get cvi } { 0 } ifelse def
|
||||
/xe systemdict /xe known { systemdict /xe get cvi } { 0 } ifelse def
|
||||
|
||||
n xs 0 ne or xe 0 ne or ret /pixx known and { % If newlines or start/end indexes requested and have row width
|
||||
/pixx ret /pixx get def
|
||||
xs pixx pixs length 1 sub xe sub { % For i = xs; i < pixs length - xe; i += pixx
|
||||
pixs exch pixx xs sub xe sub getinterval { % For j = i; j < i + pixx - xs -xe; j++
|
||||
1 string cvs print
|
||||
} forall
|
||||
n { (\n) print } if
|
||||
} for
|
||||
} { % Else dump the whole thing, no newlines
|
||||
pixs { 1 string cvs print } forall
|
||||
} ifelse
|
||||
} {
|
||||
% sbs is renlinear input
|
||||
ret /sbs known {
|
||||
/sbs ret /sbs get def
|
||||
|
||||
% Check if given preprocessor override
|
||||
systemdict /p known {
|
||||
/p systemdict /p get cvx def
|
||||
} {
|
||||
/p { false } def
|
||||
} ifelse
|
||||
|
||||
% Check if given ratio arg to adjust width of bars/spaces (e.g. "0.6" reduces 3 -> 2, "1.3" increases 2 -> 3)
|
||||
systemdict /r known {
|
||||
/r systemdict /r get cvr def
|
||||
systemdict /c known { % Apply ceiling ratio beforehand
|
||||
/c systemdict /c get cvr def
|
||||
/f { c mul ceiling cvi r mul round cvi } def
|
||||
} {
|
||||
/f { r mul round cvi } def
|
||||
} ifelse
|
||||
} {
|
||||
/f {} def
|
||||
} ifelse
|
||||
|
||||
% If should begin with space
|
||||
systemdict /bs known { (0) print } if
|
||||
|
||||
% If should end sbs loop on bar (i.e. ignore last index of even-length sbs)
|
||||
/limit systemdict /elb known {
|
||||
sbs length 1 add 2 idiv 2 mul 2 sub
|
||||
} {
|
||||
sbs length 1 sub
|
||||
} ifelse def
|
||||
|
||||
% If should use bhs/bbs to emulate rows (DAFT/pharmacode2) (hacky)
|
||||
/nosbs false def
|
||||
/minh 999999 def
|
||||
/midh 0 def
|
||||
/maxh 0 def
|
||||
/maxb 0 def
|
||||
systemdict /hs known ret /bhs known and ret /bbs known and {
|
||||
/bhs ret /bhs get def
|
||||
/bbs ret /bbs get def
|
||||
0 1 bhs length 1 sub {
|
||||
/i exch def
|
||||
/h bhs i get def
|
||||
/b bbs i get def
|
||||
h minh lt { /minh h def } if
|
||||
h maxh gt { /maxh h def } if
|
||||
h minh ne h maxh ne and { /midh h def } if
|
||||
b maxb gt { /maxb b def } if
|
||||
} for
|
||||
0 1 limit {
|
||||
/i exch def
|
||||
i 2 mod 0 eq { % i is even
|
||||
/h bhs i 2 idiv get def
|
||||
/b bbs i 2 idiv get def
|
||||
h maxh eq h midh eq b maxb eq and or maxb 0 ne b maxb eq and midh 0 eq and h minh eq and or { (1) } { (0) } ifelse print % Yeah, me too
|
||||
} {
|
||||
(0) print
|
||||
} ifelse
|
||||
} for
|
||||
n { (\n) print } if
|
||||
maxb 0 ne midh 0 eq and maxb 0 eq minh maxh eq and or { /nosbs true def } if % No tracker (pharmacode2)
|
||||
} if
|
||||
|
||||
% Process sbs
|
||||
nosbs not {
|
||||
0 1 limit {
|
||||
/i exch def
|
||||
p not { % If not preprocessed
|
||||
i 2 mod 0 eq { % i is even
|
||||
sbs i get f cvi { (1) print } repeat
|
||||
} {
|
||||
sbs i get f cvi { (0) print } repeat
|
||||
} ifelse
|
||||
} if
|
||||
} for
|
||||
n { (\n) print } if
|
||||
} if
|
||||
|
||||
% Third row if DAFT, second row if no tracker (pharmacode2)
|
||||
maxb 0 ne midh 0 ne or minh maxh eq or {
|
||||
0 1 limit {
|
||||
/i exch def
|
||||
i 2 mod 0 eq { % i is even
|
||||
/b bbs i 2 idiv get def
|
||||
b 0 eq { (1) } { (0) } ifelse print
|
||||
} {
|
||||
(0) print
|
||||
} ifelse
|
||||
} for
|
||||
n { (\n) print } if
|
||||
} if
|
||||
} if
|
||||
} ifelse
|
||||
|
||||
% If have renderer
|
||||
ret /ren known {
|
||||
% Scale
|
||||
/s systemdict /s known { systemdict /s get cvi } { 2 } ifelse def
|
||||
% If not -dNODISPLAY then render for debugging
|
||||
currentpagedevice /Name get (nullpage) ne { s s scale 10 10 moveto ret ret /ren get exec } if
|
||||
} if
|
||||
|
||||
% vim: set ts=4 sw=4 et :
|
||||
Loading…
Add table
Add a link
Reference in a new issue