hibcpdf417: Uplift

Author: terryburton

src/hibcpdf417.ps.src

@@ -38,17 +38,41 @@
 currentglobal
 true setglobal
 /setpacking where {pop currentpacking true setpacking} if
-10 dict
-dup /loadctx dup /uk.co.terryburton.bwipp findresource put
-dup /unloadctx dup /uk.co.terryburton.bwipp findresource put
+50 dict
 dup /raiseerror dup /uk.co.terryburton.bwipp findresource put
 dup /processoptions dup /uk.co.terryburton.bwipp findresource put
 dup /renmatrix dup /uk.co.terryburton.bwipp findresource put
 dup /pdf417 dup /uk.co.terryburton.bwipp findresource put
 begin
+
+/hibcpdf417.barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) readonly def
+
+/hibcpdf417.latevars dup 1 dict def load /init {
+
+    currentglobal
+    true setglobal
+
+    //hibcpdf417.latevars begin
+
+    /charvals 43 dict def
+    0 1 42 {
+        charvals exch dup //hibcpdf417.barchars exch 1 getinterval exch put
+    } for
+    /charvals charvals readonly def
+
+    /init { //hibcpdf417.latevars {def} forall } def
+
+    end
+
+    //hibcpdf417.latevars /init get exec
+
+    setglobal
+
+} bind put
+
 /hibcpdf417 {
 
-    20 dict begin                 % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
     /dontdraw false def
@@ -58,20 +82,15 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    //hibcpdf417.latevars /init get exec
+
     barcode () eq {
         /bwipp.hibcpdf417EmptyData (The data must not be empty) //raiseerror exec
     } if
 
-    /hibcpdf417 //loadctx exec
-
-    % Create a string of the available characters
-{
-    /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) def
-    /charvals 43 dict def
-    0 1 42 {charvals exch dup barchars exch 1 getinterval exch put} for
-} ctxdef
-
+    %
     % Validate the input
+    %
     0 1 barcode length 1 sub {
         barcode exch 1 getinterval charvals exch known not {
             /bwipp.hibcpdf417BadCharacter (HIBC PDF417 must contain only digits, capital letters, spaces and the symbols -.$/+%) //raiseerror exec
@@ -87,17 +106,19 @@ begin
     } for
     /checksum checksum 43 mod def
     validatecheck {
-        barcode barlen get barchars checksum get ne {
+        barcode barlen get //hibcpdf417.barchars checksum get ne {
             /bwipp.hibcpdf417BadCheckDigit (Incorrect HIBC PDF417 check digit provided) //raiseerror exec
         } if
         /barcode barcode 0 barlen getinterval def
     } if
 
     /barcode barlen 2 add string dup 1 barcode putinterval def
     barcode 0 43 put
-    barcode barlen 1 add barchars checksum get put
+    barcode barlen 1 add //hibcpdf417.barchars checksum get put
 
+    %
     % Get the result of encoding with pdf417
+    %
     options (dontdraw) true put
     options (columns) columns put
     options (validatecheck) false put
@@ -108,8 +129,6 @@ begin
 
     dontdraw not //renmatrix if
 
-    //unloadctx exec
-
     end
 
 }