hibccode128: Uplift

Author: terryburton

src/hibccode128.ps.src

@@ -38,16 +38,44 @@
 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 /renlinear dup /uk.co.terryburton.bwipp findresource put
 dup /code128 dup /uk.co.terryburton.bwipp findresource put
 begin
+
+% Module-level definitions for hibccode128
+/hibccode128.barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) readonly def
+
+% Lazy initialization of lookup dictionaries
+/hibccode128.latevars dup 1 dict def load /init {
+
+    currentglobal
+    true setglobal
+
+    //hibccode128.latevars begin
+
+    /charvals 43 dict def
+    0 1 42 {
+        charvals exch dup //hibccode128.barchars exch 1 getinterval exch put
+    } for
+    /charvals charvals readonly def
+
+    /init { //hibccode128.latevars {def} forall } def
+
+    end
+
+    //hibccode128.latevars /init get exec
+
+    setglobal
+
+} bind put
+
 /hibccode128 {
 
+    //hibccode128.latevars /init get exec
+
     20 dict begin                 % Confine variables to local scope
 
     /ctx null def
@@ -65,15 +93,6 @@ begin
         /bwipp.hibccode128emptyData (The data must not be empty) //raiseerror exec
     } if
 
-    /hibccode128 //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 {
@@ -90,15 +109,15 @@ begin
     } for
     /checksum checksum 43 mod def
     validatecheck {
-        barcode barlen get barchars checksum get ne {
+        barcode barlen get //hibccode128.barchars checksum get ne {
             /bwipp.hibccode128badCheckDigit (Incorrect HIBC Code 128 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 //hibccode128.barchars checksum get put
 
     /text barlen 4 add string def
     text 0 42 put
@@ -118,8 +137,6 @@ begin
 
     dontdraw not //renlinear if
 
-    //unloadctx exec
-
     end
 
 }