Add hooks to DM and QR.

Author: terryburton

src/datamatrix.ps.src

@@ -32,7 +32,7 @@
 % IN THE SOFTWARE.
 
 % --BEGIN ENCODER datamatrix--
-% --REQUIRES preamble raiseerror processoptions parseinput setanycolor fifocache rendertext renmatrix--
+% --REQUIRES preamble raiseerror processoptions parseinput setanycolor fifocache setuphooks rendertext renmatrix--
 % --DESC: Data Matrix
 % --EXAM: This is Data Matrix!
 % --EXOP:
@@ -45,9 +45,12 @@ dup /raiseerror dup /uk.co.terryburton.bwipp findresource put
 dup /processoptions dup /uk.co.terryburton.bwipp findresource put
 dup /parseinput dup /uk.co.terryburton.bwipp findresource put
 dup /fifocache dup /uk.co.terryburton.bwipp findresource put
+dup /setuphooks dup /uk.co.terryburton.bwipp findresource put
 dup /renmatrix dup /uk.co.terryburton.bwipp findresource put
 begin
 
+/datamatrix [/before /after] //setuphooks exec
+
 %
 % Basic metrics for each symbol
 %
@@ -465,6 +468,8 @@ begin
 
     } {
 
+        (preprocess) //datamatrix.before exec
+
         %
         % Parse the input
         %
@@ -858,6 +863,10 @@ begin
             /mode //datamatrix.A def
         } def
 
+        (preprocess) //datamatrix.after exec
+
+        (codewords) //datamatrix.before exec
+
         %
         % Derive the codewords
         %
@@ -885,6 +894,8 @@ begin
         } for
     } if
 
+    (codewords) //datamatrix.after exec
+
     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
@@ -920,6 +931,8 @@ begin
         /bwipp.datamatrixNoValidSymbol (Maximum length exceeded or invalid size) //raiseerror exec
     } if
 
+    (ecc) //datamatrix.before exec
+
     %
     % De-interleave the codewords into blocks
     %
@@ -987,6 +1000,10 @@ begin
         cws ncws i add ecbs i rsbl mod get i rsbl idiv get put
     } for
 
+    (ecc) //datamatrix.after exec
+
+    (matrix) //datamatrix.before exec
+
     %
     % Place codeword bits into matrix
     %
@@ -1089,6 +1106,8 @@ begin
         } if
     } for
 
+    (matrix) //datamatrix.after exec
+
     <<
     /ren /renmatrix
     /pixs pixs

src/qrcode.ps.src

@@ -32,7 +32,7 @@
 % IN THE SOFTWARE.
 
 % --BEGIN ENCODER qrcode--
-% --REQUIRES preamble raiseerror processoptions parseinput setanycolor fifocache rendertext renmatrix--
+% --REQUIRES preamble raiseerror processoptions parseinput setanycolor fifocache setuphooks rendertext renmatrix--
 % --DESC: QR Code
 % --EXAM: http://goo.gl/0bis
 % --EXOP: eclevel=M
@@ -45,6 +45,7 @@ dup /raiseerror dup /uk.co.terryburton.bwipp findresource put
 dup /processoptions dup /uk.co.terryburton.bwipp findresource put
 dup /parseinput dup /uk.co.terryburton.bwipp findresource put
 dup /fifocache dup /uk.co.terryburton.bwipp findresource put
+dup /setuphooks dup /uk.co.terryburton.bwipp findresource put
 dup /renmatrix dup /uk.co.terryburton.bwipp findresource put
 begin
 
@@ -680,6 +681,8 @@ begin
     //qrcode.coeffscache /fetch get exec
 } bind def
 
+/qrcode [/before /after] //setuphooks exec
+
 /qrcode {
 
     256 dict begin
@@ -749,6 +752,8 @@ begin
         } if
     } if
 
+    (preprocess) //qrcode.before exec
+
     %
     % Parse the input
     %
@@ -932,6 +937,9 @@ begin
         } ifelse
     } for
 
+    (preprocess) //qrcode.after exec
+    (codewords) //qrcode.before exec
+
     /KbeforeB {numK exch ver get ge nextBs numK 2 mul i add get 0 eq and} def
     /KbeforeA {numK exch ver get ge nextAs numK 2 mul i add get 0 eq and} def
     /KbeforeN {numK exch ver get ge nextNs numK 2 mul i add get 0 eq and} def
@@ -1243,10 +1251,14 @@ begin
     %
     lc4b {cws cws length 1 sub 2 copy get 4 bitshift put} if
 
+    (codewords) //qrcode.after exec
+
     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
 
+    (ecc) //qrcode.before exec
+
     %
     % Fetch the coefficients (cached)
     %
@@ -1337,10 +1349,14 @@ begin
         cws ncws 1 sub cws ncws 1 sub get 15 and 4 bitshift put
     } if
 
+    (ecc) //qrcode.after exec
+
     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
 
+    (matrix) //qrcode.before exec
+
     %
     % Create the bitmap
     %
@@ -1551,6 +1567,9 @@ begin
         } ifelse
     } loop
 
+    (matrix) //qrcode.after exec
+    (masking) //qrcode.before exec
+
     %
     % Evaluate runlength encoded rows or columns in full symbols
     %
@@ -1690,6 +1709,9 @@ begin
     } for
     /pixs bestsym def
 
+    (masking) //qrcode.after exec
+    (finalise) //qrcode.before exec
+
     %
     % Set the solitary dark module in full symbols
     %
@@ -1742,6 +1764,8 @@ begin
         } for
     } if
 
+    (finalise) //qrcode.after exec
+
     %
     % Return the arguments
     %