Set readonly

Author: terryburton

src/codablockf.ps.src

@@ -139,6 +139,7 @@ begin
     /seta charvals 0 get readonly def
     /setb charvals 1 get readonly def
     /setc charvals 2 get readonly def
+    /charvals charvals readonly def
 
     %
     % Maps for row indicators and symbol checksums

src/datamatrix.ps.src

@@ -99,7 +99,7 @@ begin
     [  26    40     1     2    38     1     1 ]
     [  26    48     1     2    42     1     1 ]
     [  26    64     1     4    50     1     1 ]
-] def
+] readonly def
 
 %
 % Special characters and encoding values

src/dotcode.ps.src

@@ -144,7 +144,7 @@ begin
 
     //dotcode.latevars begin
 
-    /rsalog [ 1 112 { dup 3 mul 113 mod } repeat ] def
+    /rsalog [ 1 112 { dup 3 mul 113 mod } repeat ] readonly def
 
     % Invert charmaps to give character to value maps for each state
     /charvals [ 113 dict 117 dict 113 dict ] def
@@ -166,6 +166,7 @@ begin
     Bvals //dotcode.mac 100 put
     /Bvals Bvals readonly def
     /Cvals charvals 2 get readonly def
+    /charvals charvals readonly def
 
     /BINvals <<
         102 [ //dotcode.sc2 //dotcode.sc3 //dotcode.sc4 //dotcode.sc5 //dotcode.sc6 //dotcode.sc7 //dotcode.tma //dotcode.tmb //dotcode.tmc //dotcode.tms ] {exch 1 add dup} forall pop

src/maxicode.ps.src

@@ -228,6 +228,7 @@ begin
     /setc charvals 2 get readonly def
     /setd charvals 3 get readonly def
     /sete charvals 4 get readonly def
+    /charvals charvals readonly def
 
     %
     % Calculate the Reed-Solomon log and anti-log tables for GF(64)

src/micropdf417.ps.src

@@ -68,7 +68,7 @@ begin
 %
 /micropdf417.m05 -12 def  /micropdf417.m06 -13 def
 
-/micropdf417.textsubmodes [ micropdf417.a micropdf417.l micropdf417.m micropdf417.p ] def
+/micropdf417.textsubmodes [ micropdf417.a micropdf417.l micropdf417.m micropdf417.p ] readonly def
 
 %
 % Character maps for each state
@@ -499,7 +499,7 @@ begin
     %
     % Calculate the Reed-Solomon log and anti-log tables
     %
-    /rsalog [ 1 928 {dup 3 mul 929 mod} repeat ] def
+    /rsalog [ 1 928 {dup 3 mul 929 mod} repeat ] readonly def
     /rslog 929 array def
     1 1 928 {dup rsalog exch get exch rslog 3 1 roll put} for
     /rslog rslog readonly def

src/msi.ps.src

@@ -62,7 +62,7 @@ begin
     /ncrmod11   { ncrmod11       } bind
     /mod1110    { mod11    mod10 } bind
     /ncrmod1110 { ncrmod11 mod10 } bind
->> def
+>> readonly def
 
 /msi {
 

src/pdf417.ps.src

@@ -66,7 +66,7 @@ begin
 %
 % States
 %
-/pdf417.textsubmodes [ pdf417.a pdf417.l pdf417.m pdf417.p ] def
+/pdf417.textsubmodes [ pdf417.a pdf417.l pdf417.m pdf417.p ] readonly def
 
 %
 % Character maps for each state
@@ -420,7 +420,7 @@ begin
     %
     % Calculate the Reed-Solomon log and anti-log tables
     %
-    /rsalog [ 1 928 {dup 3 mul 929 mod} repeat ] def
+    /rsalog [ 1 928 {dup 3 mul 929 mod} repeat ] readonly def
     /rslog 929 array def
     1 1 928 {dup rsalog exch get exch rslog 3 1 roll put} for
     /rslog rslog readonly def

src/qrcode.ps.src

@@ -67,7 +67,7 @@ begin
 %
 % Encoding function names
 %
-/qrcode.encfuncs [ /encN /encA /encB /encK /encE ] def
+/qrcode.encfuncs [ /encN /encA /encB /encK /encE ] readonly def
 
 /qrcode.fn1 -1 def
 
@@ -582,7 +582,7 @@ begin
     %
     % Calculate the Reed-Solomon log and anti-log tables
     %
-    /rsalog [ 1 255 { dup 2 mul dup 256 ge {285 xor} if } repeat ] def
+    /rsalog [ 1 255 { dup 2 mul dup 256 ge {285 xor} if } repeat ] readonly def
     /rslog 256 array def
     1 1 255 {dup rsalog exch get exch rslog 3 1 roll put} for
     /rslog rslog readonly def

src/rendertext.ps.src

@@ -69,7 +69,7 @@ begin
         (right)    { pixx th sub           } bind   (top)     { pixy                  } bind
         (offright) { pixx        nudge add } bind   (above)   { pixy tw add nudge add } bind
     >>
->> def
+>> readonly def
 
 /rendertext {
 

src/ultracode.ps.src

@@ -131,7 +131,7 @@ begin
 
     //ultracode.latevars begin
 
-    /rsalog [ 1 282 {dup 3 mul 283 mod} repeat ] def
+    /rsalog [ 1 282 {dup 3 mul 283 mod} repeat ] readonly def
     /rslog 283 array def
     1 1 282 {dup rsalog exch get exch rslog 3 1 roll put} for
     /rslog rslog readonly def