royalmail: Uplift

Author: terryburton

src/royalmail.ps.src

@@ -1,7 +1,7 @@
 % Barcode Writer in Pure PostScript
 % https://bwipp.terryburton.co.uk
 %
-% Copyright (c) 2004-2024 Terry Burton
+% Copyright (c) 2004-2025 Terry Burton
 %
 % $Id$
 %
@@ -38,18 +38,53 @@
 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
 begin
+
+/royalmail.barchars (ZUVWXY501234B6789AHCDEFGNIJKLMTOPQRS) readonly def
+
+/royalmail.encs [
+    (3300) (2211) (2301) (2310) (3201) (3210)
+    (1122) (0033) (0123) (0132) (1023) (1032)
+    (1302) (0213) (0303) (0312) (1203) (1212)
+    (1320) (0231) (0321) (0330) (1221) (1230)
+    (3102) (2013) (2103) (2112) (3003) (3012)
+    (3120) (2031) (2121) (2130) (3021) (3030)
+    (2) (3)
+] readonly def
+
+/royalmail.latevars dup 1 dict def load /init {
+
+    currentglobal
+    true setglobal
+
+    //royalmail.latevars begin
+
+    /charvals 36 dict def
+    0 1 35 {
+        charvals exch dup //royalmail.barchars exch 1 getinterval exch put
+    } for
+    /charvals charvals readonly def
+
+    /init { //royalmail.latevars {def} forall } def
+
+    end
+
+    //royalmail.latevars /init get exec
+
+    setglobal
+
+} bind put
+
 /royalmail {
 
     20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /includetext false def          % Enable/disable text
     /validatecheck false def
@@ -62,31 +97,15 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    //royalmail.latevars /init get exec
+
     barcode () eq {
         /bwipp.royalmailEmptyData (The data must not be empty) //raiseerror exec
     } if
 
-    /royalmail //loadctx exec
-
-{
-    % Create a string of the available characters
-    /barchars (ZUVWXY501234B6789AHCDEFGNIJKLMTOPQRS) def
-    /charvals 36 dict def
-    0 1 35 {charvals exch dup barchars exch 1 getinterval exch put} for
-
-    % Create an array containing the character mappings
-    /encs
-    [ (3300) (2211) (2301) (2310) (3201) (3210)
-      (1122) (0033) (0123) (0132) (1023) (1032)
-      (1302) (0213) (0303) (0312) (1203) (1212)
-      (1320) (0231) (0321) (0330) (1221) (1230)
-      (3102) (2013) (2103) (2112) (3003) (3012)
-      (3120) (2031) (2121) (2130) (3021) (3030)
-      (2) (3)
-    ] def
-} ctxdef
-
+    %
     % Validate the input
+    %
     0 1 barcode length 1 sub {
         barcode exch 1 getinterval charvals exch known not {
             /bwipp.royalmailBadCharacter (RM4SCC must contain only capital letters and digits) //raiseerror exec
@@ -105,7 +124,7 @@ begin
     } for
     /checksum checksumrow 6 mod 6 mul checksumcol 6 mod add def
     validatecheck {
-        barcode barlen get barchars checksum get ne {
+        barcode barlen get //royalmail.barchars checksum get ne {
             /bwipp.royalmailBadCheckDigit (Incorrect RM4SCC check digit provided) //raiseerror exec
         } if
         /barcode barcode 0 barlen getinterval def
@@ -114,26 +133,32 @@ begin
     /encstr barlen 4 mul 6 add string def
     /txt barlen 1 add array def
 
+    %
     % Put start character
-    encstr 0 encs 36 get putinterval
+    %
+    encstr 0 //royalmail.encs 36 get putinterval
 
     0 1 barlen 1 sub {
         /i exch def
         /indx charvals barcode i 1 getinterval get def
-        encstr i 4 mul 1 add encs indx get putinterval
+        encstr i 4 mul 1 add //royalmail.encs indx get putinterval
         txt i [barcode i 1 getinterval i 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
     } for
 
+    %
     % Put the checksum character
-    encstr barlen 4 mul 1 add encs checksum get putinterval
+    %
+    encstr barlen 4 mul 1 add //royalmail.encs checksum get putinterval
     includecheckintext {
-        txt barlen [barchars checksum 1 getinterval barlen 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
+        txt barlen [//royalmail.barchars checksum 1 getinterval barlen 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
     } {
         txt barlen [( ) barlen 4 mul 1 add 3.312 mul textyoffset textfont textsize] put
     } ifelse
 
+    %
     % Put end character
-    encstr barlen 4 mul 5 add encs 37 get putinterval
+    %
+    encstr barlen 4 mul 5 add //royalmail.encs 37 get putinterval
 
     /bbs encstr length array def
     /bhs encstr length array def
@@ -158,7 +183,6 @@ begin
         } if
     } for
 
-    % Return the arguments
     <<
     /ren /renlinear
     /bbs bbs
@@ -172,8 +196,6 @@ begin
 
     dontdraw not //renlinear if
 
-    //unloadctx exec
-
     end
 
 }