code93: Uplift

Author: terryburton

src/code93.ps.src

@@ -38,19 +38,61 @@
 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 /parseinput dup /uk.co.terryburton.bwipp findresource put
 dup /renlinear dup /uk.co.terryburton.bwipp findresource put
 begin
+
+/code93.encs [
+    (131112) (111213) (111312) (111411) (121113)  % 0-4
+    (121212) (121311) (111114) (131211) (141111)  % 5-9
+    (211113) (211212) (211311) (221112) (221211)  % A-E
+    (231111) (112113) (112212) (112311) (122112)  % F-J
+    (132111) (111123) (111222) (111321) (121122)  % K-O
+    (131121) (212112) (212211) (211122) (211221)  % P-T
+    (221121) (222111) (112122) (112221) (122121)  % U-Y
+    (123111) (121131) (311112) (311211) (321111)  % "Z" "-" "." " " "$"
+    (112131) (113121) (211131) (121221) (312111)  % "/" "+" "%" ($) (%)
+    (311121) (122211) (111141) (1111411)          % (/) (+) STA END
+] readonly def
+
+/code93.barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) readonly def
+
+/code93.sft1 -1 def  /code93.sft2 -2 def  /code93.sft3 -3 def  /code93.sft4 -4 def
+
+/code93.latevars dup 1 dict def load /init {
+
+    currentglobal
+    true setglobal
+
+    //code93.latevars begin
+
+    /charvals 47 dict def
+    0 1 42 {
+        charvals exch dup //code93.barchars exch get exch put
+    } for
+    charvals //code93.sft1 43 put
+    charvals //code93.sft2 44 put
+    charvals //code93.sft3 45 put
+    charvals //code93.sft4 46 put
+    /charvals charvals readonly def
+
+    /init { //code93.latevars {def} forall } def
+
+    end
+
+    //code93.latevars /init get exec
+
+    setglobal
+
+} bind put
+
 /code93 {
 
-    20 dict begin                 % Confine variables to local scope
+    20 dict begin
 
-    /ctx null def
     /dontdraw false def
     /includecheck false def  % Enable/disable checkdigit
     /includetext false def   % Enable/disable text
@@ -64,49 +106,25 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
-    /code93 //loadctx exec
-
-{
-    /encs
-    [ (131112) (111213) (111312) (111411) (121113)  % 0-4
-      (121212) (121311) (111114) (131211) (141111)  % 5-9
-      (211113) (211212) (211311) (221112) (221211)  % A-E
-      (231111) (112113) (112212) (112311) (122112)  % F-J
-      (132111) (111123) (111222) (111321) (121122)  % K-O
-      (131121) (212112) (212211) (211122) (211221)  % P-T
-      (221121) (222111) (112122) (112221) (122121)  % U-Y
-      (123111) (121131) (311112) (311211) (321111)  % "Z" "-" "." " " "$"
-      (112131) (113121) (211131) (121221) (312111)  % "/" "+" "%" ($) (%)
-      (311121) (122211) (111141) (1111411)          % (/) (+) STA END
-    ] def
-
-    % Create a string of the available characters
-    /barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) def
-    /charvals 47 dict def
-    0 1 42 {charvals exch dup barchars exch get exch put} for
-
-    /sft1 -1 def  /sft2 -2 def  /sft3 -3 def  /sft4 -4 def
-
-    charvals sft1 43 put
-    charvals sft2 44 put
-    charvals sft3 45 put
-    charvals sft4 46 put
-
-} ctxdef
+    //code93.latevars /init get exec
 
+    %
     % Special function characters
+    %
     /fncvals <<
         /parse parse
         /parsefnc parsefnc
-        (SFT$) sft1
-        (SFT%) sft2
-        (SFT/) sft3
-        (SFT+) sft4
+        (SFT$) //code93.sft1
+        (SFT%) //code93.sft2
+        (SFT/) //code93.sft3
+        (SFT+) //code93.sft4
     >> def
     /msg barcode fncvals //parseinput exec def
     /msglen msg length def
 
+    %
     % Validate the input
+    %
     msg {
         charvals exch known not {
             /bwipp.code93BadCharacter (Code 93 must only contain digits, capital letters, spaces, the symbols -.$/+ and shift non-data characters) //raiseerror exec
@@ -120,14 +138,16 @@ begin
     } ifelse
     /txt msglen array def
 
+    %
     % Put the start character
-    sbs 0 encs 47 get putinterval
+    %
+    sbs 0 //code93.encs 47 get putinterval
 
     /checksum1 0 def /checksum2 0 def
     0 1 msglen 1 sub {
         /i exch def
         /indx charvals msg i get get def
-        sbs i 6 mul 6 add encs indx get putinterval
+        sbs i 6 mul 6 add //code93.encs indx get putinterval
         /char msg i get dup 0 lt { pop ( ) } { 1 string dup 0 4 -1 roll put } ifelse def
         txt i [char i 9 mul 9 add textyoffset textfont textsize] put
         /checksum1 checksum1 msglen i sub 1 sub 20 mod 1 add indx mul add def
@@ -138,16 +158,19 @@ begin
         % Put the first checksum character
         /checksum1 checksum1 47 mod def
         /checksum2 checksum2 checksum1 add 47 mod def
-        sbs msglen 6 mul 6 add encs checksum1 get putinterval
-        sbs msglen 6 mul 12 add encs checksum2 get putinterval
+        sbs msglen 6 mul 6 add //code93.encs checksum1 get putinterval
+        sbs msglen 6 mul 12 add //code93.encs checksum2 get putinterval
+        %
         % Put the end character
-        sbs msglen 6 mul 18 add encs 48 get putinterval
+        %
+        sbs msglen 6 mul 18 add //code93.encs 48 get putinterval
     } {
+        %
         % Put the end character
-        sbs msglen 6 mul 6 add encs 48 get putinterval
+        %
+        sbs msglen 6 mul 6 add //code93.encs 48 get putinterval
     } ifelse
 
-    % Return the arguments
     <<
     /ren /renlinear
     /sbs [sbs {48 sub} forall]
@@ -161,8 +184,6 @@ begin
 
     dontdraw not //renlinear if
 
-    //unloadctx exec
-
     end
 
 }