ean5: Uplift

Author: terryburton

src/ean5.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,31 @@
 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
+
+/ean5.encs [
+    (3211) (2221) (2122) (1411) (1132)
+    (1231) (1114) (1312) (1213) (3112)
+    (112) (11)
+] readonly def
+
+/ean5.barchars (0123456789) readonly def
+
+/ean5.mirrormaps [
+    (11000) (10100) (10010) (10001) (01100)
+    (00110) (00011) (01010) (01001) (00101)
+] readonly def
+
 /ean5 {
 
     20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /includetext false def
     /textfont /Helvetica def
@@ -65,9 +78,9 @@ begin
         /textyoffset height 72 mul 1 add def
     } if
 
-    /ean5 //loadctx exec
-
+    %
     % Validate input
+    %
     barcode length 5 ne {
         /bwipp.ean5badLength (EAN-5 add-on must be 5 digits) //raiseerror exec
     } if
@@ -77,24 +90,6 @@ begin
         } if
     } forall
 
-{
-    % Create an array containing the character mappings
-    /encs
-    [ (3211) (2221) (2122) (1411) (1132)
-      (1231) (1114) (1312) (1213) (3112)
-      (112) (11)
-    ] def
-
-    % Create a string of the available characters
-    /barchars (0123456789) def
-
-    % Determine the mirror map based on mod 10 checksum
-    /mirrormaps
-    [ (11000) (10100) (10010) (10001) (01100)
-      (00110) (00011) (01010) (01001) (00101)
-    ] def
-} ctxdef
-
     /checksum 0 def
     0 1 4 {
         /i exch def
@@ -106,28 +101,32 @@ begin
         } ifelse
     } for
     /checksum checksum 10 mod def
-    /mirrormap mirrormaps checksum get def
+    /mirrormap //ean5.mirrormaps checksum get def
 
     /sbs 31 string def
     /txt 5 array def
 
     0 1 4 {
         /i exch def
 
+        %
         % Prefix with either a start character or separator character
+        %
         i 0 eq {
-            sbs 0 encs 10 get putinterval
+            sbs 0 //ean5.encs 10 get putinterval
         } {
-            sbs i 1 sub 6 mul 7 add encs 11 get putinterval
+            sbs i 1 sub 6 mul 7 add //ean5.encs 11 get putinterval
         } ifelse
 
+        %
         % Lookup the encoding for the barcode character
-        barcode i 1 getinterval barchars exch search
-        pop                     % Discard true leaving pre
-        length /indx exch def   % indx is the length of pre
-        pop pop                 % Discard seek and post
-        /enc encs indx get def  % Get the indxth encoding
-        mirrormap i get 49 eq { % Reverse enc if 1 in this position in mirrormap
+        %
+        barcode i 1 getinterval //ean5.barchars exch search
+        pop
+        length /indx exch def
+        pop pop
+        /enc //ean5.encs indx get def
+        mirrormap i get 49 eq {
             /enclen enc length def
             /revenc enclen string def
             0 1 enclen 1 sub {
@@ -141,12 +140,11 @@ begin
         txt i [barcode i 1 getinterval i 1 sub 9 mul 10 add textxoffset add textyoffset textfont textsize] put
     } for
 
-    % Return the arguments
     <<
     /ren /renlinear
     /sbs [sbs {48 sub} forall]
-    /bhs [16{height}repeat]
-    /bbs [16{0}repeat]
+    /bhs [16 {height} repeat]
+    /bbs [16 {0} repeat]
     includetext {
         /txt txt
     } if
@@ -160,8 +158,6 @@ begin
 
     dontdraw not //renlinear if
 
-    //unloadctx exec
-
     end
 
 }