ISBN variant: Comments

Author: terryburton

src/isbn.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$
 %
@@ -49,6 +49,7 @@ begin
     20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /includetext false def  % Enable/disable ISBN text
     /isbntextfont /Courier def
@@ -62,7 +63,9 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    %
     % Split off the addon
+    %
     barcode ( ) search {
         /barcode exch def
         pop
@@ -72,7 +75,9 @@ begin
         /addon () def
     } ifelse
 
+    %
     % Validate the input
+    %
     barcode length 15 ne barcode length 17 ne and
     barcode length 11 ne barcode length 13 ne and and {
         /bwipp.isbnBadLength (ISBN-13 must be 15 or 17 characters including dashes. ISBN-10 must be 11 or 13 characters including dashes) //raiseerror exec
@@ -150,7 +155,9 @@ begin
 
     /isbntxt barcode def
 
+    %
     % Read the digits from isbntxt and validate checksum for ISBN-10
+    %
     isbntxt length 13 le {
         /isbn 10 string def
         /checksum 0 def
@@ -178,15 +185,19 @@ begin
 
     legacy not isbntxt length 15 ge or {
 
+        %
         % Convert ISBN-10 to ISBN-13
+        %
         isbntxt length 13 le {
             /pad 15 string def
             pad 0 (978-) putinterval
             pad 4 isbntxt 0 11 getinterval putinterval
             /isbntxt pad def
         } if
 
+        %
         % Read the digits from isbntxt and validate checksum for ISBN-13
+        %
         /isbn 13 string def
         /checksum 0 def
         /i 0 def /n 0 def
@@ -212,15 +223,19 @@ begin
 
     } if
 
+    %
     % Add the ISBN header to the isbntxt
+    %
     /pad isbn length 12 eq {22} {18} ifelse string def
     pad 0 (ISBN ) putinterval
     pad 5 isbntxt putinterval
     pad pad length 2 sub 45 put
     pad pad length 1 sub checksum put
     /isbntxt pad def
 
+    %
     % Convert ISBN digits to EAN-13
+    %
     /barcode 12 string def
     isbn length 9 eq {
         barcode 0 (978) putinterval
@@ -229,7 +244,9 @@ begin
         barcode 0 isbn putinterval
     } ifelse
 
+    %
     % Append the addon
+    %
     addon () ne {
         12 addon length add 1 add string
         dup 0 barcode putinterval
@@ -238,12 +255,16 @@ begin
         /barcode exch def
     } if
 
+    %
     % Get the result of encoding with ean13
+    %
     options (dontdraw) true put
     options (addongap) addongap put
     /args barcode options //ean13 exec def
 
+    %
     % Add the ISBN text
+    %
     includetext {
         isbntextxoffset null eq {
             /isbntextxoffset isbn length 9 eq {-1.0} {-12.0} ifelse def

src/ismn.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$
 %
@@ -49,6 +49,7 @@ begin
     20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /includetext false def
     /ismntextfont /Courier def
@@ -62,7 +63,9 @@ begin
     //processoptions exec /options exch def
     /barcode exch def
 
+    %
     % Split off the addon
+    %
     barcode ( ) search {
         /barcode exch def
         pop
@@ -72,7 +75,9 @@ begin
         /addon () def
     } ifelse
 
+    %
     % Validate the input
+    %
     barcode length 15 ne barcode length 17 ne and
     barcode length 11 ne barcode length 13 ne and and {
         /bwipp.ismnBadLength (ISMN-13 must be 15 or 17 characters including dashes. ISMN-10 must be 11 or 13 characters including dashes) //raiseerror exec
@@ -153,7 +158,9 @@ begin
 
     /ismntxt barcode def
 
+    %
     % Convert old ISMN to ISMN-13
+    %
     /legacytxt () def
     ismntxt length 13 le {
         /legacytxt ismntxt def
@@ -163,7 +170,9 @@ begin
         /ismntxt pad def
     } if
 
+    %
     % Read the digits from ismntxt and calculate checksums
+    %
     /ismn 13 string def
     /checksum 0 def
     /i 0 def /n 0 def
@@ -185,14 +194,18 @@ begin
     } loop
     /checksum 10 checksum 10 mod sub 10 mod 48 add def
 
+    %
     % Validate the checksum
+    %
     barcode length 13 eq barcode length 17 eq or {
         barcode dup length 1 sub get checksum ne {
             /bwipp.ismnBadCheckDigit (Incorrect ISMN check digit provided) //raiseerror exec
         } if
     } if
 
+    %
     % Add the ISMN header and checksum to the ismntxt
+    %
     legacy legacytxt () ne and {
         /ismntxt legacytxt def
         /pad 18 string def
@@ -205,10 +218,14 @@ begin
     pad pad length 1 sub checksum put
     /ismntxt pad def
 
+    %
     % Convert ISMN digits to EAN-13
+    %
     /barcode ismn 0 12 getinterval def
 
+    %
     % Append the addon
+    %
     addon () ne {
         12 addon length add 1 add string
         dup 0 barcode putinterval
@@ -217,12 +234,16 @@ begin
         /barcode exch def
     } if
 
+    %
     % Get the result of encoding with ean13
+    %
     options (dontdraw) true put
     options (addongap) addongap put
     /args barcode options //ean13 exec def
 
+    %
     % Add the ISMN text
+    %
     includetext {
         ismntextxoffset null eq {
             /ismntextxoffset ismntxt length 18 eq {-1.0} {-12.0} ifelse def

src/issn.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$
 %
@@ -49,6 +49,7 @@ begin
     20 dict begin
 
     /ctx null def
+
     /dontdraw false def
     /includetext false def
     /issntextfont /Courier def
@@ -61,7 +62,9 @@ begin
     //processoptions exec /options exch def
     /issntxt exch def
 
+    %
     % Split off the ISSN
+    %
     issntxt ( ) search {
         /issntxt exch def
         pop
@@ -71,7 +74,9 @@ begin
         /seqvar (00) def
     } ifelse
 
+    %
     % Split off the sequence variant and addon
+    %
     seqvar ( ) search {
         /seqvar exch def
         pop
@@ -81,7 +86,9 @@ begin
         /addon () def
     } ifelse
 
+    %
     % Validate the input
+    %
     issntxt length 8 ne issntxt length 9 ne and {
         /bwipp.issnBadLength (ISSN must be 8 or 9 characters including dash, in the format XXXX-XXXX) //raiseerror exec
     } if
@@ -115,7 +122,9 @@ begin
         /bwipp.issnBadAddOnLength (Add-on for ISSN must be 2 or 5 digits) //raiseerror exec
     } if
 
+    %
     % Read the digits from issntxt and calculate checksums
+    %
     /issn 8 string def
     /checksum 0 def
     /i 0 def /n 0 def
@@ -139,23 +148,31 @@ begin
         } if
     } if
 
+    %
     % Add the ISSN header and checksum to the issntxt
+    %
     /pad 14 string def
     pad 0 (ISSN ) putinterval
     pad 5 issntxt putinterval  % Add issntxt to the pad
     pad 13 checksum put
     /issntxt pad def
 
+    %
     % Convert ISSN digits to EAN-13
+    %
     /barcode issn 0 7 getinterval def
 
+    %
     % Append the sequence variant
+    %
     /barcode 12 string def
     barcode 0 (977) putinterval
     barcode 3 issn putinterval
     barcode 10 seqvar putinterval
 
+    %
     % Append the addon
+    %
     addon () ne {
         12 addon length add 1 add string
         dup 0 barcode putinterval
@@ -164,12 +181,16 @@ begin
         /barcode exch def
     } if
 
+    %
     % Get the result of encoding with ean13
+    %
     options (dontdraw) true put
     options (addongap) addongap put
     /args barcode options //ean13 exec def
 
+    %
     % Add the ISSN text
+    %
     includetext {
         issntextxoffset null eq {/issntextxoffset 10.0 def} if
         issntextyoffset null eq {/issntextyoffset height 72 mul 3 add def} if