Add missing debug guards

terryburton · terryburton · commit 4cf711aa1d59 · 2026-01-12T06:37:14.000Z
diff --git a/src/azteccode.ps.src b/src/azteccode.ps.src
@@ -734,7 +734,9 @@ begin
     } loop
     /cws cws 0 c getinterval def
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Reed-Solomon algorithm
diff --git a/src/codablockf.ps.src b/src/codablockf.ps.src
@@ -585,7 +585,9 @@ begin
         rcws rcws length 1 sub csum 103 mod put
     } for
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Derive the bits for each row
diff --git a/src/code128.ps.src b/src/code128.ps.src
@@ -706,7 +706,9 @@ begin
     cws j csum put
     cws j 1 add 106 put  % stp
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Derive space bar succession
diff --git a/src/code16k.ps.src b/src/code16k.ps.src
@@ -776,7 +776,9 @@ begin
     c1 dcws 2 add mul add 107 mod /c2 exch def
     /cws [ cws aload pop c1 c2 ] def
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     sam -1 eq sam 10 idiv 2 mod 1 eq or {
         /stopencs //code16k.stopencsodd def
diff --git a/src/code49.ps.src b/src/code49.ps.src
@@ -1126,7 +1126,9 @@ dup [ exch 16 exch 1 32 getinterval aload pop ] /code49.weighty exch readonly de
     ccs ccs length 8 sub 7 getinterval 0 exch {add} forall 49 mod
     ccs ccs length 1 sub 3 -1 roll put
 
-    options /debugcws known { /bwipp.debugcws ccs //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws ccs //raiseerror exec } if
 
     %
     % Derive the bits for each row
diff --git a/src/codeone.ps.src b/src/codeone.ps.src
@@ -890,7 +890,9 @@ begin
         /cws [ dcws cws length sub {0} repeat cws aload pop ] def
     } ifelse
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % De-interleave the codewords into blocks
diff --git a/src/datamatrix.ps.src b/src/datamatrix.ps.src
@@ -826,7 +826,9 @@ begin
         } for
     } if
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Lookup symbol metrics based on number of codewords and user specification
diff --git a/src/dotcode.ps.src b/src/dotcode.ps.src
@@ -843,7 +843,9 @@ begin
         ] def
     } if
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Check that the codewords will fit in the symbol
diff --git a/src/hanxin.ps.src b/src/hanxin.ps.src
@@ -743,7 +743,9 @@ begin
         /cws pad def
     } if
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Create the bitmap
diff --git a/src/jabcode.ps.src b/src/jabcode.ps.src
@@ -407,9 +407,9 @@ begin
     (11) addtobits              % EOM
 
     % TODO Cascade
-    options /debugbits known {
-        /bwipp.debugbits [ bits {48 sub} forall ] //raiseerror exec
-    } if
+    options /debugbits known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugbits [ bits {48 sub} forall ] //raiseerror exec } if
 
     /diffside 21 def
     /sameshape false def
diff --git a/src/maxicode.ps.src b/src/maxicode.ps.src
@@ -1029,7 +1029,9 @@ begin
         secchk aload pop
     ] def
 
-    options /debugcws known { /bwipp.debugcws codewords //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws codewords //raiseerror exec } if
 
     %
     % Convert the codewords into module bits
diff --git a/src/micropdf417.ps.src b/src/micropdf417.ps.src
@@ -1166,7 +1166,9 @@ begin
     %
     /cws cws 0 cws length 1 sub getinterval def
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Return the 17 bits for a codeword in a given cluster
diff --git a/src/pdf417.ps.src b/src/pdf417.ps.src
@@ -1063,7 +1063,9 @@ begin
     %
     /cws cws 0 cws length 1 sub getinterval def
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     %
     % Return the 17 bits for a codeword in a given cluster
diff --git a/src/qrcode.ps.src b/src/qrcode.ps.src
@@ -1183,7 +1183,9 @@ begin
     %
     lc4b {cws cws length 1 sub 2 copy get 4 bitshift put} if
 
-    options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws cws //raiseerror exec } if
 
     /rsprod {
         dup 0 ne { 1 index 0 ne {
@@ -1296,7 +1298,9 @@ begin
         cws ncws 1 sub cws ncws 1 sub get 15 and 4 bitshift put
     } if
 
-    options /debugecc known { /bwipp.debugecc cws //raiseerror exec } if
+    options /debugecc known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugecc cws //raiseerror exec } if
 
     %
     % Create the bitmap
diff --git a/src/renlinear.ps.src b/src/renlinear.ps.src
@@ -187,7 +187,9 @@ begin
         /pixx pixx d add def  % pixx += d
     } for
 
-    options /debugbars known { /bwipp.debugbars [ bars { dup -1 ne { aload pop } { pop } ifelse } forall ] //raiseerror exec } if
+    options /debugbars known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugbars [ bars { dup -1 ne { aload pop } { pop } ifelse } forall ] //raiseerror exec } if
 
     gsave
 
diff --git a/src/renmatrix.ps.src b/src/renmatrix.ps.src
@@ -387,7 +387,9 @@ begin
             } for
         ] def
 
-        options /debugpaths known { /bwipp.debugpaths [ paths { dup length 2 mul exch { unpack } forall } forall ] //raiseerror exec } if
+        options /debugpaths known
+        /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+        and { /bwipp.debugpaths [ paths { dup length 2 mul exch { unpack } forall } forall ] //raiseerror exec } if
 
         %
         % Revert the bitmap size
diff --git a/src/renmaximatrix.ps.src b/src/renmaximatrix.ps.src
@@ -67,7 +67,9 @@ begin
         bordercolor     (unset) eq { ctx /default_bordercolor     2 copy known {get /bordercolor     exch def} {pop pop} ifelse } if
     } { pop } ifelse
 
-    options /debughexagons known { /bwipp.debughexagons pixs //raiseerror exec } if
+    options /debughexagons known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debughexagons pixs //raiseerror exec } if
 
     gsave
 
diff --git a/src/ultracode.ps.src b/src/ultracode.ps.src
@@ -225,7 +225,9 @@ begin
 
     } ifelse
 
-    options /debugcws known { /bwipp.debugcws dcws //raiseerror exec } if
+    options /debugcws known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugcws dcws //raiseerror exec } if
 
     /mcc dcws length 3 add def  % Message codewords: start mcc acc [dcws ...]
 
@@ -336,7 +338,9 @@ begin
     } for
     /ecws rsseq n k getinterval def
 
-    options /debugecc known { /bwipp.debugecc ecws //raiseerror exec } if
+    options /debugecc known
+    /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse
+    and { /bwipp.debugecc ecws //raiseerror exec } if
 
     /dccu rev 1 eq {//ultracode.dccurev1} {//ultracode.dccurev2} ifelse def
     /dccl rev 1 eq {//ultracode.dcclrev1} {//ultracode.dcclrev2} ifelse def

Original file line number	Diff line number	Diff line change
`@@ -734,7 +734,9 @@ begin`
`734`	`734`	`} loop`
`735`	`735`	`/cws cws 0 c getinterval def`
`736`	`736`
`737`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`737`	`+ options /debugcws known`
	`738`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`739`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`738`	`740`
`739`	`741`	`%`
`740`	`742`	`% Reed-Solomon algorithm`
Original file line number	Diff line number	Diff line change
`@@ -585,7 +585,9 @@ begin`
`585`	`585`	`rcws rcws length 1 sub csum 103 mod put`
`586`	`586`	`} for`
`587`	`587`
`588`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`588`	`+ options /debugcws known`
	`589`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`590`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`589`	`591`
`590`	`592`	`%`
`591`	`593`	`% Derive the bits for each row`
Original file line number	Diff line number	Diff line change
`@@ -706,7 +706,9 @@ begin`
`706`	`706`	`cws j csum put`
`707`	`707`	`cws j 1 add 106 put % stp`
`708`	`708`
`709`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`709`	`+ options /debugcws known`
	`710`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`711`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`710`	`712`
`711`	`713`	`%`
`712`	`714`	`% Derive space bar succession`
Original file line number	Diff line number	Diff line change
`@@ -1126,7 +1126,9 @@ dup [ exch 16 exch 1 32 getinterval aload pop ] /code49.weighty exch readonly de`
`1126`	`1126`	`ccs ccs length 8 sub 7 getinterval 0 exch {add} forall 49 mod`
`1127`	`1127`	`ccs ccs length 1 sub 3 -1 roll put`
`1128`	`1128`
`1129`		`- options /debugcws known { /bwipp.debugcws ccs //raiseerror exec } if`
	`1129`	`+ options /debugcws known`
	`1130`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`1131`	`+ and { /bwipp.debugcws ccs //raiseerror exec } if`
`1130`	`1132`
`1131`	`1133`	`%`
`1132`	`1134`	`% Derive the bits for each row`
Original file line number	Diff line number	Diff line change
`@@ -890,7 +890,9 @@ begin`
`890`	`890`	`/cws [ dcws cws length sub {0} repeat cws aload pop ] def`
`891`	`891`	`} ifelse`
`892`	`892`
`893`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`893`	`+ options /debugcws known`
	`894`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`895`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`894`	`896`
`895`	`897`	`%`
`896`	`898`	`% De-interleave the codewords into blocks`
Original file line number	Diff line number	Diff line change
`@@ -826,7 +826,9 @@ begin`
`826`	`826`	`} for`
`827`	`827`	`} if`
`828`	`828`
`829`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`829`	`+ options /debugcws known`
	`830`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`831`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`830`	`832`
`831`	`833`	`%`
`832`	`834`	`% Lookup symbol metrics based on number of codewords and user specification`
Original file line number	Diff line number	Diff line change
`@@ -843,7 +843,9 @@ begin`
`843`	`843`	`] def`
`844`	`844`	`} if`
`845`	`845`
`846`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`846`	`+ options /debugcws known`
	`847`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`848`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`847`	`849`
`848`	`850`	`%`
`849`	`851`	`% Check that the codewords will fit in the symbol`
Original file line number	Diff line number	Diff line change
`@@ -743,7 +743,9 @@ begin`
`743`	`743`	`/cws pad def`
`744`	`744`	`} if`
`745`	`745`
`746`		`- options /debugcws known { /bwipp.debugcws cws //raiseerror exec } if`
	`746`	`+ options /debugcws known`
	`747`	`+ /uk.co.terryburton.bwipp.global_ctx dup where {exch get /enabledebug known} {pop false} ifelse`
	`748`	`+ and { /bwipp.debugcws cws //raiseerror exec } if`
`747`	`749`
`748`	`750`	`%`
`749`	`751`	`% Create the bitmap`