Various: Comments

Author: terryburton

src/hibccode128.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$
 %
@@ -45,10 +45,8 @@ dup /renlinear dup /uk.co.terryburton.bwipp findresource put
 dup /code128 dup /uk.co.terryburton.bwipp findresource put
 begin
 
-% Module-level definitions for hibccode128
 /hibccode128.barchars (0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%) readonly def
 
-% Lazy initialization of lookup dictionaries
 /hibccode128.latevars dup 1 dict def load /init {
 
     currentglobal
@@ -74,11 +72,10 @@ begin
 
 /hibccode128 {
 
-    //hibccode128.latevars /init get exec
-
-    20 dict begin                 % Confine variables to local scope
+    20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /textfont /Courier def
     /textsize 10.0 def
@@ -89,11 +86,15 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    //hibccode128.latevars /init get exec
+
     barcode () eq {
         /bwipp.hibccode128emptyData (The data must not be empty) //raiseerror exec
     } if
 
+    %
     % Validate the input
+    %
     0 1 barcode length 1 sub {
         barcode exch 1 getinterval charvals exch known not {
             /bwipp.hibccode128badCharacter (HIBC Code 128 must contain only digits, capital letters, spaces and the symbols -.$/+%) //raiseerror exec
@@ -125,7 +126,9 @@ begin
     text barlen 2 add barcode barlen 1 add get dup 32 eq {pop 95} if put
     text barlen 3 add 42 put
 
+    %
     % Get the result of encoding with code128
+    %
     options (dontdraw) true put
     options (validatecheck) false put
     /args barcode options //code128 exec def

src/renlinear.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$
 %
@@ -54,9 +54,11 @@ begin
 
 /renlinear {
 
-    20 dict begin          % Confine variables to local scope
+    20 dict begin
 
+    %
     % Default options
+    %
     /sbs [] def
     /bhs [] def
     /bbs [] def
@@ -120,8 +122,9 @@ begin
         bordercolor     (unset) eq { ctx /default_bordercolor     2 copy known {get /bordercolor     exch def} {pop pop} ifelse } if
     } { pop } ifelse
 
+    %
     % Input validation
-
+    %
     textxalign (unset) ne {
         //renlinear.xalignopts textxalign known not {
             /bwipp.renlinearBadTextxalign (textxalign must be offleft, left, center, right or offright) //raiseerror exec
@@ -158,7 +161,9 @@ begin
         /bwipp.renlinearBadTextsize (extratextsize must be greater than zero and less that 25) //raiseerror exec
     } if
 
+    %
     % Create bar elements and put them into the bars array
+    %
     /bars sbs length 1 add 2 idiv array def
     /pixx 0 def /pixy 0 def
     0 1 sbs length 1 add 2 idiv 2 mul 2 sub {
@@ -185,12 +190,16 @@ begin
 
     currentpoint translate
 
+    %
     % Force symbol to given width
+    %
     width 0 ne {
         width 72 mul pixx div 1 scale
     } if
 
+    %
     % Set RGB or CMYK color, or some other color by name
+    %
     /setanycolor {
         /anycolor exch def
         anycolor length 1 lt {
@@ -228,7 +237,9 @@ begin
         } if
     } def
 
+    %
     % Display the border and background
+    %
     showborder showbearer or {
         /tl [ borderleft borderwidth 2 div add neg        pixy bordertop add borderwidth 2 div add ] def
         /tr [ pixx borderright add borderwidth 2 div add  pixy bordertop add borderwidth 2 div add ] def
@@ -263,7 +274,9 @@ begin
         grestore
     } if } ifelse
 
+    %
     % Display the bars for elements in the bars array
+    %
     gsave
     barcolor (unset) ne { barcolor setanycolor } if
     newpath
@@ -283,10 +296,14 @@ begin
     fill
     grestore
 
+    %
     % Display the text
+    %
     //rendertext exec
 
+    %
     % Display the guard elements
+    %
     guardwhitespace {
         0.75 setlinewidth
         guardleftpos 0 ne {

src/renmatrix.ps.src

@@ -116,8 +116,9 @@ begin
         bordercolor     (unset) eq { ctx /default_bordercolor     2 copy known {get /bordercolor     exch def} {pop pop} ifelse } if
     } { pop } ifelse
 
+    %
     % Input validation
-
+    %
     textxalign (unset) ne {
         //renmatrix.xalignopts textxalign known not {
             /bwipp.renmatrixBadTextxalign (textxalign must be offleft, left, center, right or offright) //raiseerror exec
@@ -178,8 +179,10 @@ begin
     /left  {dir 4 ne {x y dir cput [x y]} if  /x x 1 sub def  /dir 4 def} def
     /up    {dir 8 ne {x y dir cput [x y]} if  /y y 1 sub def  /dir 8 def} def
 
+    %
+    % Walk the outline of a region emitting edge coordinates of the path
+    %
     /trace {
-        % Walk the outline of a region emitting edge coordinates of the path
         /y exch def  /x exch def
         % dir 1:right 2:down 4:left 8:up
         /dir x 1 add y 1 add xyget 1 eq {8} {4} ifelse def
@@ -206,7 +209,9 @@ begin
 
     } def
 
+    %
     % Set RGB or CMYK color, or some other color by name
+    %
     /setanycolor {
         /anycolor exch def
         anycolor length 1 lt {
@@ -244,7 +249,9 @@ begin
         } if
     } def
 
+    %
     % Plot a layer of single colour
+    %
     /drawlayer {
 
         /pixsorig pixs def
@@ -263,10 +270,14 @@ begin
         /pixx pixx 2 add def
         /pixy pixy 2 add def
 
+        %
         % Cache of visited corners for each direction
+        %
         /cache [ pixs length {0} repeat ] def
 
+        %
         % Construct paths by tracing regions avoiding duplication by using the cache
+        %
         /paths [
             0 1 pixy 2 sub {
                 /j exch def
@@ -287,11 +298,15 @@ begin
             } for
         ] def
 
+        %
         % Revert the bitmap size
+        %
         /pixx pixx 2 sub def
         /pixy pixy 2 sub def
 
+        %
         % Draw the image
+        %
         newpath
         paths {
             /p exch def
@@ -346,10 +361,14 @@ begin
     /inkspreadh inkspreadh 2 div def
     /inkspreadv inkspreadv 2 div def
 
+    %
     % Force symbol to given width
+    %
     width pixx div 72 mul height pixy div 72 mul scale
 
+    %
     % Display the border and background
+    %
     showborder {
         /tl [ borderleft borderwidth 2 div add neg        pixy bordertop add borderwidth 2 div add ] def
         /tr [ pixx borderright add borderwidth 2 div add  pixy bordertop add borderwidth 2 div add ] def
@@ -375,7 +394,9 @@ begin
         grestore
     } if
 
+    %
     % Display the matrix
+    %
     colormap (unset) eq {
         /colormap << 1 barcolor >> def
     } if
@@ -388,7 +409,9 @@ begin
         ] dotty {drawlayerdots} {drawlayer} ifelse
     } forall
 
+    %
     % Display the text
+    %
     //rendertext exec
 
     grestore