GS1-variant datamatrix: Comments

Author: terryburton

src/gs1datamatrix.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$
 %
@@ -47,9 +47,10 @@ dup /datamatrix dup /uk.co.terryburton.bwipp findresource put
 begin
 /gs1datamatrix {
 
-    20 dict begin            % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /parse false def
     /dontlint false def
@@ -64,7 +65,9 @@ begin
     /vals exch def
     /ais exch def
 
+    %
     % Create the datamatrix data
+    %
     /fnc1 -1 def
     /dmtx [ fnc1 ] def
     0 1 ais length 1 sub {
@@ -84,7 +87,9 @@ begin
         } if
     } for
 
+    %
     % Compose input to datamatrix
+    %
     /barcode dmtx length 1 add 5 mul string def
     /i 0 def /j 0 def {
         i dmtx length eq {exit} if
@@ -99,7 +104,9 @@ begin
     } loop
     /barcode barcode 0 j getinterval def
 
+    %
     % Get the result of encoding with datamatrix
+    %
     options (parse) undef
     options (dontdraw) true put
     options (parsefnc) true put

src/gs1datamatrixrectangular.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$
 %
@@ -47,7 +47,7 @@ dup /datamatrix dup /uk.co.terryburton.bwipp findresource put
 begin
 /gs1datamatrixrectangular {
 
-    20 dict begin            % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
     /parse false def
@@ -64,7 +64,9 @@ begin
     /vals exch def
     /ais exch def
 
+    %
     % Create the datamatrix data
+    %
     /fnc1 -1 def
     /dmtx [ fnc1 ] def
     0 1 ais length 1 sub {
@@ -84,7 +86,9 @@ begin
         } if
     } for
 
+    %
     % Compose input to datamatrix
+    %
     /barcode dmtx length 1 add 5 mul string def
     /i 0 def /j 0 def {
         i dmtx length eq {exit} if
@@ -99,7 +103,9 @@ begin
     } loop
     /barcode barcode 0 j getinterval def
 
+    %
     % Get the result of encoding with datamatrix
+    %
     options (parse) undef
     options (dontdraw) true put
     options (parsefnc) true put

src/gs1dldatamatrix.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$
 %
@@ -47,9 +47,10 @@ dup /datamatrix dup /uk.co.terryburton.bwipp findresource put
 begin
 /gs1dldatamatrix {
 
-    20 dict begin            % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
+
     /parse false def
     /dontlint false def
     /lintreqs true def
@@ -58,7 +59,9 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    %
     % Parse the input
+    %
     /fncvals <<
         /parse parse
         /parseonly true
@@ -76,7 +79,9 @@ begin
     hri key length 1 add 41 put
     hri key length 2 add val putinterval
 
+    %
     % Get the result of encoding with datamatrix
+    %
     options (parse) undef
     options (dontdraw) true put
     /args barcode options //datamatrix exec def