1.
Query: SELECT zt_qr.f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) IMAGE FROM DUAL;
2.
Concurrent Program XML Data Definition - Data Template xml file as below:
<?xml version="1.0" encoding="UTF-8" ?>
<dataTemplate name="EmpDT" description="Employee Details" Version="1.0">
<dataQuery>
<sqlStatement name="Q1">
<![CDATA[SELECT zt_qr.f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) IMAGE FROM DUAL]]>
</sqlStatement>
</dataQuery>
<dataStructure>
<group name="G_EMP" source="Q1">
<element name="IMAGE" value="IMAGE" />
</group>
</dataStructure>
</dataTemplate>
3.
field in Rtf template :
<fo:instream-foreign-object content-type="image/png" width="3cm" height="3cm">
<xsl:value-of select=".//IMAGE"/>
</fo:instream-foreign-object>
<xsl:value-of select=".//IMAGE"/>
</fo:instream-foreign-object>
4.
Register the report and test the same.
5. code for the package
CREATE OR REPLACE PACKAGE APPS.ZT_QR AUTHID DEFINER AS
/******************************************************************************
Author: Zoran Tica
ZT-TECH, racunalni�ke storitve s.p.
http://www.zt-tech.eu
PURPOSE: A package for QR code data and image generation
REVISIONS:
Ver Date Author Description
--------- ---------- --------------- ------------------------------------
1.0 18/08/2018 Zoran Tica First version of package.
1.1 26/05/2019 Zoran Tica Added UTF-8 support, fixed minor BUGs for debug display
1.2 15/12/2019 Zoran Tica Fixed "_" and "%" BUG
1.3 13/03/2020 Zoran Tica Added function f_qr_as_long_raw
1.4 07/01/2021 Zoran Tica Terminator BUG
1.5 05/02/2021 Zoran Tica older databases compatibility (10g)
f_integer_2_binary - LISTAGG replaced with pure PL SQL
f_get_version - XMLTABLE replaced with local function f_explode
2.0 09/02/2021 Zoran Tica SVG files support
2.1 21/08/2023 Zoran Tica Display logo in QR code (for SVG QR Code representation)
2.2 24/06/2024 k0mita Select a QR code and background color for BMP representation
----------------------------------------------------------------------------
Copyright (C) 2018 - Zoran Tica
Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE SOFTWARE.
----------------------------------------------------------------------------
*/
/*
Error correction modes:
L - Low Recovers 7% of data
M - Medium Recovers 15% of data
Q - Quartile Recovers 25% of data
H - High Recovers 30% of data
*/
/*
Procedure generates QR code data as varchar2 variable filled with 0 and 1
0 is white module, 1 is black
Lines are separated with chr(10)
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
OUT parameters:
p_qr - generated QR code data in format "row (1110100010100...) || newline (chr 10) || row || newline..."
p_matrix_size - matrix size in modules (21, 25, 29...)
*/
PROCEDURE p_generate_qr_data(
p_data varchar2,
p_error_correction varchar2,
p_qr OUT NOCOPY varchar2,
p_matrix_size OUT pls_integer
);
/*
Procedure generates QR code data as varchar2 variable filled with 0 and 1
0 is white module, 1 is black
Lines are separated with chr(10)
Debug is printed as DBMS_OUTPUT
There are 3 levels of debug (1, 2 or 3 - low, medium, high)
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_debug - should DBMS OUTPUT be printed
p_debug_level - debug level (1, 2, 3...) - details to be printed in debug output
p_masking_out - which masking (values 0-7) should be displayed; null -> the best masking will be calculated and selected automatically
OUT parameters:
p_qr - generated QR code data in format "row (1110100010100) || newline (chr 10) || row || newline..."
p_matrix_size - matrix size in modules (21, 25, 29...)
Testing code (enable DBMS OUTPUT for debug!):
DECLARE
lcQR varchar2(32727);
lnMatrixSize pls_integer;
BEGIN
ZT_QR.p_qr_debug(
p_data => 'http://www.zt-tech.eu',
p_error_correction => 'Q',
p_debug => true,
p_debug_level => 2,
p_qr => lcQR,
p_matrix_size => lnMatrixSize
);
END;
*/
PROCEDURE p_qr_debug(
p_data varchar2,
p_error_correction varchar2,
p_debug boolean default true,
p_debug_level pls_integer default 1,
p_masking_out pls_integer default null,
p_qr OUT NOCOPY varchar2,
p_matrix_size OUT pls_integer
);
/*
Function return HTML code for HTML table element representing QR code
Modules are shown as table cells
No additional data (CSS or HTML code) is needed to show table in HTML page
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_module_size_in_px - width and height of module (table cell)
p_margines - should white margine around QR code (4 modules wide) be generated
*/
FUNCTION f_qr_as_html_table(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_in_px pls_integer default 8, --module size in pixels
p_margines boolean default false --margines around QR code (4 modules)
) RETURN clob;
/*
Procedure prints HTML code for HTML table element using HTP.P procedure
HTML code is prepared in function f_qr_as_html_table
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_module_size_in_px - width and height of module (table cell)
p_margines - should white margine around QR code (4 modules wide) be generated
*/
PROCEDURE p_qr_as_html_table(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_in_px pls_integer default 8, --module size in pixels
p_margines boolean default false --margines around QR code (4 modules)
);
/*
Function returns black and white BMP image with QR code
Modules are 8x8 pixels large
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_margines - should white margine around QR code (4 modules wide) be generated
p_foreground_color -- HEX representation of the RGB values of the foreground color (default black)
p_background_color -- HEX representation of the RGB values of the background color (default white)
Suggested HEX foreground colors:
Blue - 002db3
Red - 990000
Green - 008000
Brown - 663300
Orange - ff9900
Pink - cc0066
Magenta - cc00cc
Gray - 737373
*/
FUNCTION f_qr_as_bmp(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_margines varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_foreground_color varchar2 default '000000', -- HEX representation of the RGB values of the foreground color
p_background_color varchar2 default 'FFFFFF'-- HEX representation of the RGB values of the background color
) RETURN blob;
FUNCTION f_qr_as_long_raw(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N
) RETURN long raw;
/*
Procedure shows QR code as black and white BMP image
Printed is HTML img tag with base64 image in it
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_image_size_px - image size in pixels
p_margines - should white margine around QR code (4 modules wide) be generated
*/
PROCEDURE p_qr_as_img_tag_base64(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_image_size_px pls_integer,
p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N
);
/*
Function returns SVG image with QR code
IN parameters:
p_data - data that is going to be encoded into QR code
p_error_correction - error correction level (values L, M, Q or H)
p_margines_yn - should white margine around QR code (4 modules wide) be generated; values 'Y' or 'N'
p_module_size_px - width and height of one module
p_module_color - module color; colors can be defined as named colors (for example black, red, white...), using rgb function (for example rgb(255, 0, 0) ) or HEX values (for example #FF0000)
p_background_color - background color; colors can be defined as named colors (for example black, red white...), using rgb function (for example rgb(255, 0, 0) ) or HEX values (for example #FF0000)
p_module_rounded_px - if modules should have rounded edges (if size of this parameter is half the module size (or larger) then modules are represented as circles)
p_logo_yn - should logo be displayed on not (values Y / N)
p_logo_size_percent - logo background rectangle size (in percentages) related to QR code size
p_logo_image - logo image (URL reference or base64 content)
p_logo_back_rect_yn - should logo background rectangle be displayed or not
p_logo_back_rect_color - logo background rectangle color
p_logo_back_rect_round_px - logo background rectangle rounded edges
p_logo_margine_px - a margine between logo and background rectangle
Procedure prints SVG image using HTP.P procedure (can be used to print SVG image directly into HTML code)
*/
FUNCTION f_qr_as_svg(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_px pls_integer default 8, --modul size in pixels
p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)
p_background_color varchar2 default 'white',
p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels
p_logo_yn varchar2 default 'N',
p_logo_size_percent number default 20,
p_logo_image clob default null,
p_logo_back_rect_yn varchar2 default 'Y',
p_logo_back_rect_color varchar2 default 'white',
p_logo_back_rect_round_px pls_integer default 0,
p_logo_margine_px number default 5
) RETURN clob;
PROCEDURE p_qr_as_svg(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_px pls_integer default 8, --modul size in pixels
p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)
p_background_color varchar2 default 'white',
p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels
p_logo_yn varchar2 default 'N',
p_logo_size_percent number default 20,
p_logo_image clob default null,
p_logo_back_rect_yn varchar2 default 'Y',
p_logo_back_rect_color varchar2 default 'white',
p_logo_back_rect_round_px pls_integer default 0,
p_logo_margine_px number default 5
);
/*
Utility procedure which saves generated BMP file containing QR code on server side (directory)
*/
PROCEDURE p_save_file(
p_document blob,
p_file_name varchar2,
p_folder varchar2
);
FUNCTION convert_bmp_to_png(
p_bmp_blob BLOB,
p_scale_factor NUMBER-- DEFAULT 1
) RETURN BLOB;
FUNCTION f_qr_as_png(
p_data VARCHAR2,
p_error_correction VARCHAR2, -- L, M, Q or H
p_margines VARCHAR2 DEFAULT 'N', -- Y or N
p_foreground_color VARCHAR2 DEFAULT '000000',
p_background_color VARCHAR2 DEFAULT 'FFFFFF',
p_scale_factor NUMBER DEFAULT 10 -- New parameter for scaling
) RETURN BLOB;
END ZT_QR;
CREATE OR REPLACE PACKAGE BODY APPS.ZT_QR AS
--C O N S T A N T S
--data mode
cNumericMode CONSTANT pls_integer := 1;
cAlphanumericMode CONSTANT pls_integer := 2;
cByteMode CONSTANT pls_integer := 3;
cKanjiMode CONSTANT pls_integer := 4;
--V A R I A B L E S
--debug
gpbDebug boolean := false;
gpnDebugLevel pls_integer := 1;
--mode and version
gpnMode pls_integer;
gpnVersion pls_integer;
--Error Correction Code Words and Block Information
TYPE r_err_cor IS RECORD(
total_no_of_data_cw pls_integer,
ec_cw_per_block pls_integer,
blocks_in_g1 pls_integer,
cw_in_g1 pls_integer,
blocks_in_g2 pls_integer,
cw_in_g2 pls_integer);
TYPE t_err_cor IS TABLE OF r_err_cor INDEX BY varchar2(10);
gprErrCorInfo t_err_cor;
--logs and antilogs
TYPE t_log_anti IS TABLE OF pls_integer INDEX BY pls_integer;
gprLog t_log_anti;
gprAntiLog t_log_anti;
--matrix
TYPE t_row IS TABLE OF varchar2(1);
TYPE t_column IS TABLE OF t_row;
TYPE t_masking IS TABLE OF t_column INDEX BY pls_integer;
gprMatrix t_column := t_column();
gprMasking t_masking;
--DEBUG FUNCS AND PROCS
PROCEDURE p_debug(
p_text varchar2,
p_level pls_integer default 1,
p_new_line boolean default true) IS
BEGIN
if gpbDebug and p_level <= gpnDebugLevel then
if p_new_line then
DBMS_OUTPUT.put_line(p_text);
else
DBMS_OUTPUT.put(p_text);
end if;
end if;
END;
PROCEDURE p_dbms_output_matrix(
p_matrix t_column,
p_level pls_integer default 1) IS
lcQR varchar2(200);
BEGIN
FOR t IN 1 .. p_matrix.count LOOP
lcQR := null;
FOR p IN 1 .. p_matrix.count LOOP
lcQR := lcQR || nvl(p_matrix(t)(p), 'X');
END LOOP;
p_debug(lcQR, p_level);
END LOOP;
END;
--UTILITY FUNCS AND PROCS
FUNCTION bitor(p1 number, p2 number) RETURN number IS
BEGIN
RETURN p1 - bitand(p1, p2) + p2;
END;
FUNCTION bitxor(p1 number, p2 number) RETURN number IS
BEGIN
RETURN bitor(p1, p2) - bitand(p1, p2);
END;
FUNCTION bin2dec(p_binval varchar2) RETURN pls_integer IS
lnResult number := 0;
BEGIN
FOR t IN 1 .. length(p_binval) LOOP
lnResult := (lnResult * 2) + to_number(substr(p_binval, t, 1));
END LOOP;
RETURN lnResult;
END bin2dec;
/*
FUNCTION f_integer_2_binary(p_integer pls_integer) RETURN varchar2 IS
lcBinary varchar2(100);
BEGIN
SELECT LISTAGG(SIGN(BITAND(p_integer, POWER(2, LEVEL-1))),'') WITHIN GROUP(ORDER BY LEVEL DESC)
INTO lcBinary
FROM dual
CONNECT BY POWER(2, LEVEL-1) <= p_integer;
RETURN lcBinary;
END;
*/
--function changed to pure PL/SQL version
--also compatible with older databases (10g)
FUNCTION f_integer_2_binary(p_integer pls_integer) RETURN varchar2 IS
lcBinary varchar2(100);
lnTemp number := p_integer;
BEGIN
if p_integer <> 0 then
WHILE ( lnTemp > 0 ) LOOP
lcBinary := mod(lnTemp, 2) || lcBinary;
lnTemp := trunc( lnTemp / 2 );
END LOOP;
else
lcBinary := '0';
end if;
RETURN lcBinary;
END f_integer_2_binary;
--INIT FUNCS AND PROCS
PROCEDURE p_fill_log_antilog IS
lnVal pls_integer;
lnPrevVal pls_integer;
BEGIN
FOR t IN 0 .. 255 LOOP
if t = 0 then
lnVal := 1;
else
lnVal := lnPrevVal * 2;
if lnVal > 255 then
lnVal := bitxor(lnVal, 285);
end if;
end if;
gprLog(t) := lnVal;
gprAntiLog(lnVal) := t;
lnPrevVal := lnVal;
p_debug('Log for ' || t || ': ' || gprLog(t), 4);
END LOOP;
END;
FUNCTION f_matrix_size RETURN pls_integer IS
BEGIN
--minimal matrix size is 21x21 module; every next version is 4 modules larger
RETURN ((gpnVersion - 1) * 4) + 21;
END;
PROCEDURE p_init_matrix IS
TYPE t_col IS TABLE OF pls_integer;
TYPE t_alignment_pos IS TABLE OF t_col;
lrAlignPos t_alignment_pos := t_alignment_pos();
lcModule varchar2(1);
PROCEDURE p_add_finder(p_column pls_integer, p_row pls_integer) IS
BEGIN
--outer black square
FOR t IN 0 .. 6 LOOP
gprMatrix(p_column + t)(p_row) := '3';
gprMatrix(p_column + t)(p_row + 6) := '3';
gprMatrix(p_column)(p_row + t) := '3';
gprMatrix(p_column + 6)(p_row + t) := '3';
END LOOP;
--inner white square
FOR t IN 0 .. 4 LOOP
gprMatrix(p_column + 1 + t)(p_row + 1) := '2';
gprMatrix(p_column + 1 + t)(p_row + 1 + 4) := '2';
gprMatrix(p_column + 1)(p_row + 1 + t) := '2';
gprMatrix(p_column + 1 + 4)(p_row + 1 + t) := '2';
END LOOP;
--inner black square
FOR t IN 0 .. 2 LOOP
FOR p IN 0 .. 2 LOOP
gprMatrix(p_column + 2 + t)(p_row + 2 + p) := '3';
END LOOP;
END LOOP;
END;
PROCEDURE p_init_alignment IS
BEGIN
lrAlignPos.delete;
lrAlignPos.extend(40);
lrAlignPos(1) := t_col(0);
lrAlignPos(2) := t_col(6, 18);
lrAlignPos(3) := t_col(6, 22);
lrAlignPos(4) := t_col(6, 26);
lrAlignPos(5) := t_col(6, 30);
lrAlignPos(6) := t_col(6, 34);
lrAlignPos(7) := t_col(6, 22, 38);
lrAlignPos(8) := t_col(6, 24, 42);
lrAlignPos(9) := t_col(6, 26, 46);
lrAlignPos(10) := t_col(6, 28, 50);
lrAlignPos(11) := t_col(6, 30, 54);
lrAlignPos(12) := t_col(6, 32, 58);
lrAlignPos(13) := t_col(6, 34, 62);
lrAlignPos(14) := t_col(6, 26, 46, 66);
lrAlignPos(15) := t_col(6, 26, 48, 70);
lrAlignPos(16) := t_col(6, 26, 50, 74);
lrAlignPos(17) := t_col(6, 30, 54, 78);
lrAlignPos(18) := t_col(6, 30, 56, 82);
lrAlignPos(19) := t_col(6, 30, 58, 86);
lrAlignPos(20) := t_col(6, 34, 62, 90);
lrAlignPos(21) := t_col(6, 28, 50, 72, 94);
lrAlignPos(22) := t_col(6, 26, 50, 74, 98);
lrAlignPos(23) := t_col(6, 30, 54, 78, 102);
lrAlignPos(24) := t_col(6, 28, 54, 80, 106);
lrAlignPos(25) := t_col(6, 32, 58, 84, 110);
lrAlignPos(26) := t_col(6, 30, 58, 86, 114);
lrAlignPos(27) := t_col(6, 34, 62, 90, 118);
lrAlignPos(28) := t_col(6, 26, 50, 74, 98, 122 );
lrAlignPos(29) := t_col(6, 30, 54, 78, 102, 126);
lrAlignPos(30) := t_col(6, 26, 52, 78, 104, 130 );
lrAlignPos(31) := t_col(6, 30, 56, 82, 108, 134 );
lrAlignPos(32) := t_col(6, 34, 60, 86, 112, 138 );
lrAlignPos(33) := t_col(6, 30, 58, 86, 114, 142 );
lrAlignPos(34) := t_col(6, 34, 62, 90, 118, 146 );
lrAlignPos(35) := t_col(6, 30, 54, 78, 102, 126, 150);
lrAlignPos(36) := t_col(6, 24, 50, 76, 102, 128, 154);
lrAlignPos(37) := t_col(6, 28, 54, 80, 106, 132, 158);
lrAlignPos(38) := t_col(6, 32, 58, 84, 110, 136, 162);
lrAlignPos(39) := t_col(6, 26, 54, 82, 110, 138, 166);
lrAlignPos(40) := t_col(6, 30, 58, 86, 114, 142, 170);
END;
PROCEDURE p_add_alignment(p_column pls_integer, p_row pls_integer) IS
BEGIN
--check if coordinates are OK and alignment is on matrix
if p_column - 2 < 1 or p_column + 2 > f_matrix_size or p_row - 2 < 1 or p_row + 2 > f_matrix_size then
p_debug('Alignment on ' || p_column || ', ' || p_row || ' is outside of matrix! Skipping...', 2);
RETURN;
end if;
--first check if overlap with existing finders; if overlaps then do not draw finder
FOR t IN p_column - 2 .. p_column + 2 LOOP
FOR p IN p_row - 2 .. p_row + 2 LOOP
if gprMatrix(p)(t) is not null then
p_debug('Alignment on ' || p_column || ', ' || p_row || ' overlaps with finder! Skipping...', 2);
RETURN;
end if;
END LOOP;
END LOOP;
--draw alignment
--outer black square
FOR t IN 0 .. 4 LOOP
gprMatrix(p_row - 2)(p_column - 2 + t) := '3';
gprMatrix(p_row - 2 + t)(p_column - 2) := '3';
gprMatrix(p_row + 2)(p_column - 2 + t) := '3';
gprMatrix(p_row - 2 + t)(p_column + 2) := '3';
END LOOP;
--inner white square and center module
FOR t IN 0 .. 2 LOOP
FOR p IN 0 .. 2 LOOP
gprMatrix(p_row - 1 + t)(p_column - 1 + p) := '2';
END LOOP;
END LOOP;
gprMatrix(p_row)(p_column) := '3';
END;
BEGIN
p_debug('Matrix size: ' || f_matrix_size || 'x' || f_matrix_size || ' modules', 2);
--collection initialization
gprMatrix.delete;
gprMatrix.extend(f_matrix_size);
FOR t IN 1 .. f_matrix_size LOOP
gprMatrix(t) := t_row();
gprMatrix(t).extend(f_matrix_size);
END LOOP;
--add Finder Patterns (3x)
p_add_finder(1, 1);
p_add_finder(f_matrix_size - 6, 1);
p_add_finder(1, f_matrix_size - 6);
--add Separators
FOR t IN 0 .. 7 LOOP
--upper left
gprMatrix(1 + t)(1 + 7) := '2';
gprMatrix(1 + 7)(1 + t) := '2';
--lower left
gprMatrix(f_matrix_size - 7 + t)(1 + 7) := '2';
gprMatrix(f_matrix_size - 7)(1 + t) := '2';
--upper right
gprMatrix(1 + t)(f_matrix_size - 7) := '2';
gprMatrix(1 + 7)(f_matrix_size - 7 + t) := '2';
END LOOP;
--add Alignment Patterns (for versions larger then 1)
p_init_alignment;
if gpnVersion > 1 then
FOR t IN 1 .. lrAlignPos(gpnVersion).count LOOP
FOR p IN 1 .. lrAlignPos(gpnVersion).count LOOP
p_add_alignment(lrAlignPos(gpnVersion)(t) + 1, lrAlignPos(gpnVersion)(p) + 1);
END LOOP;
END LOOP;
end if;
--Timing Patterns
FOR t IN 9 .. f_matrix_size - 8 LOOP
if t mod 2 <> 0 then
lcModule := '3'; --first module is black, then white, then black...
else
lcModule := '2';
end if;
gprMatrix(7)(t) := lcModule;
gprMatrix(t)(7) := lcModule;
END LOOP;
--Dark Module
gprMatrix(f_matrix_size - 7)(9) := '3';
--Reserved Areas (Format Information Area, Version Information Area)
--will be filled with actual values later
--Format Information Area, placeholder values are dots
FOR t IN 1 .. 9 LOOP
if gprMatrix(9)(t) is null then
gprMatrix(9)(t) := '.';
end if;
if gprMatrix(t)(9) is null then
gprMatrix(t)(9) := '.';
end if;
END LOOP;
FOR t IN 1 .. 8 LOOP
if gprMatrix(f_matrix_size - t + 1)(9) is null then
gprMatrix(f_matrix_size - t + 1)(9) := '.';
end if;
if gprMatrix(9)(f_matrix_size - t + 1) is null then
gprMatrix(9)(f_matrix_size - t + 1) := '.';
end if;
END LOOP;
--Version Information Area, placeholder values are *
--it aplies only to versions 7 and larger
if gpnVersion >= 7 then
FOR t IN 1 .. 6 LOOP
gprMatrix(f_matrix_size - 8)(t) := '*';
gprMatrix(f_matrix_size - 9)(t) := '*';
gprMatrix(f_matrix_size - 10)(t) := '*';
gprMatrix(t)(f_matrix_size - 8) := '*';
gprMatrix(t)(f_matrix_size - 9) := '*';
gprMatrix(t)(f_matrix_size - 10) := '*';
END LOOP;
end if;
END;
PROCEDURE p_fill_err_cor IS
BEGIN
gprErrCorInfo('1-L').total_no_of_data_cw := 19; gprErrCorInfo('1-L').ec_cw_per_block := 7; gprErrCorInfo('1-L').blocks_in_g1 := 1; gprErrCorInfo('1-L').cw_in_g1 := 19; gprErrCorInfo('1-L').blocks_in_g2 := null; gprErrCorInfo('1-L').cw_in_g2 := null;
gprErrCorInfo('1-M').total_no_of_data_cw := 16; gprErrCorInfo('1-M').ec_cw_per_block := 10; gprErrCorInfo('1-M').blocks_in_g1 := 1; gprErrCorInfo('1-M').cw_in_g1 := 16; gprErrCorInfo('1-M').blocks_in_g2 := null; gprErrCorInfo('1-M').cw_in_g2 := null;
gprErrCorInfo('1-Q').total_no_of_data_cw := 13; gprErrCorInfo('1-Q').ec_cw_per_block := 13; gprErrCorInfo('1-Q').blocks_in_g1 := 1; gprErrCorInfo('1-Q').cw_in_g1 := 13; gprErrCorInfo('1-Q').blocks_in_g2 := null; gprErrCorInfo('1-Q').cw_in_g2 := null;
gprErrCorInfo('1-H').total_no_of_data_cw := 9; gprErrCorInfo('1-H').ec_cw_per_block := 17; gprErrCorInfo('1-H').blocks_in_g1 := 1; gprErrCorInfo('1-H').cw_in_g1 := 9; gprErrCorInfo('1-H').blocks_in_g2 := null; gprErrCorInfo('1-H').cw_in_g2 := null;
gprErrCorInfo('2-L').total_no_of_data_cw := 34; gprErrCorInfo('2-L').ec_cw_per_block := 10; gprErrCorInfo('2-L').blocks_in_g1 := 1; gprErrCorInfo('2-L').cw_in_g1 := 34; gprErrCorInfo('2-L').blocks_in_g2 := null; gprErrCorInfo('2-L').cw_in_g2 := null;
gprErrCorInfo('2-M').total_no_of_data_cw := 28; gprErrCorInfo('2-M').ec_cw_per_block := 16; gprErrCorInfo('2-M').blocks_in_g1 := 1; gprErrCorInfo('2-M').cw_in_g1 := 28; gprErrCorInfo('2-M').blocks_in_g2 := null; gprErrCorInfo('2-M').cw_in_g2 := null;
gprErrCorInfo('2-Q').total_no_of_data_cw := 22; gprErrCorInfo('2-Q').ec_cw_per_block := 22; gprErrCorInfo('2-Q').blocks_in_g1 := 1; gprErrCorInfo('2-Q').cw_in_g1 := 22; gprErrCorInfo('2-Q').blocks_in_g2 := null; gprErrCorInfo('2-Q').cw_in_g2 := null;
gprErrCorInfo('2-H').total_no_of_data_cw := 16; gprErrCorInfo('2-H').ec_cw_per_block := 28; gprErrCorInfo('2-H').blocks_in_g1 := 1; gprErrCorInfo('2-H').cw_in_g1 := 16; gprErrCorInfo('2-H').blocks_in_g2 := null; gprErrCorInfo('2-H').cw_in_g2 := null;
gprErrCorInfo('3-L').total_no_of_data_cw := 55; gprErrCorInfo('3-L').ec_cw_per_block := 15; gprErrCorInfo('3-L').blocks_in_g1 := 1; gprErrCorInfo('3-L').cw_in_g1 := 55; gprErrCorInfo('3-L').blocks_in_g2 := null; gprErrCorInfo('3-L').cw_in_g2 := null;
gprErrCorInfo('3-M').total_no_of_data_cw := 44; gprErrCorInfo('3-M').ec_cw_per_block := 26; gprErrCorInfo('3-M').blocks_in_g1 := 1; gprErrCorInfo('3-M').cw_in_g1 := 44; gprErrCorInfo('3-M').blocks_in_g2 := null; gprErrCorInfo('3-M').cw_in_g2 := null;
gprErrCorInfo('3-Q').total_no_of_data_cw := 34; gprErrCorInfo('3-Q').ec_cw_per_block := 18; gprErrCorInfo('3-Q').blocks_in_g1 := 2; gprErrCorInfo('3-Q').cw_in_g1 := 17; gprErrCorInfo('3-Q').blocks_in_g2 := null; gprErrCorInfo('3-Q').cw_in_g2 := null;
gprErrCorInfo('3-H').total_no_of_data_cw := 26; gprErrCorInfo('3-H').ec_cw_per_block := 22; gprErrCorInfo('3-H').blocks_in_g1 := 2; gprErrCorInfo('3-H').cw_in_g1 := 13; gprErrCorInfo('3-H').blocks_in_g2 := null; gprErrCorInfo('3-H').cw_in_g2 := null;
gprErrCorInfo('4-L').total_no_of_data_cw := 80; gprErrCorInfo('4-L').ec_cw_per_block := 20; gprErrCorInfo('4-L').blocks_in_g1 := 1; gprErrCorInfo('4-L').cw_in_g1 := 80; gprErrCorInfo('4-L').blocks_in_g2 := null; gprErrCorInfo('4-L').cw_in_g2 := null;
gprErrCorInfo('4-M').total_no_of_data_cw := 64; gprErrCorInfo('4-M').ec_cw_per_block := 18; gprErrCorInfo('4-M').blocks_in_g1 := 2; gprErrCorInfo('4-M').cw_in_g1 := 32; gprErrCorInfo('4-M').blocks_in_g2 := null; gprErrCorInfo('4-M').cw_in_g2 := null;
gprErrCorInfo('4-Q').total_no_of_data_cw := 48; gprErrCorInfo('4-Q').ec_cw_per_block := 26; gprErrCorInfo('4-Q').blocks_in_g1 := 2; gprErrCorInfo('4-Q').cw_in_g1 := 24; gprErrCorInfo('4-Q').blocks_in_g2 := null; gprErrCorInfo('4-Q').cw_in_g2 := null;
gprErrCorInfo('4-H').total_no_of_data_cw := 36; gprErrCorInfo('4-H').ec_cw_per_block := 16; gprErrCorInfo('4-H').blocks_in_g1 := 4; gprErrCorInfo('4-H').cw_in_g1 := 9; gprErrCorInfo('4-H').blocks_in_g2 := null; gprErrCorInfo('4-H').cw_in_g2 := null;
gprErrCorInfo('5-L').total_no_of_data_cw := 108; gprErrCorInfo('5-L').ec_cw_per_block := 26; gprErrCorInfo('5-L').blocks_in_g1 := 1; gprErrCorInfo('5-L').cw_in_g1 := 108; gprErrCorInfo('5-L').blocks_in_g2 := null; gprErrCorInfo('5-L').cw_in_g2 := null;
gprErrCorInfo('5-M').total_no_of_data_cw := 86; gprErrCorInfo('5-M').ec_cw_per_block := 24; gprErrCorInfo('5-M').blocks_in_g1 := 2; gprErrCorInfo('5-M').cw_in_g1 := 43; gprErrCorInfo('5-M').blocks_in_g2 := null; gprErrCorInfo('5-M').cw_in_g2 := null;
gprErrCorInfo('5-Q').total_no_of_data_cw := 62; gprErrCorInfo('5-Q').ec_cw_per_block := 18; gprErrCorInfo('5-Q').blocks_in_g1 := 2; gprErrCorInfo('5-Q').cw_in_g1 := 15; gprErrCorInfo('5-Q').blocks_in_g2 := 2; gprErrCorInfo('5-Q').cw_in_g2 := 16;
gprErrCorInfo('5-H').total_no_of_data_cw := 46; gprErrCorInfo('5-H').ec_cw_per_block := 22; gprErrCorInfo('5-H').blocks_in_g1 := 2; gprErrCorInfo('5-H').cw_in_g1 := 11; gprErrCorInfo('5-H').blocks_in_g2 := 2; gprErrCorInfo('5-H').cw_in_g2 := 12;
gprErrCorInfo('6-L').total_no_of_data_cw := 136; gprErrCorInfo('6-L').ec_cw_per_block := 18; gprErrCorInfo('6-L').blocks_in_g1 := 2; gprErrCorInfo('6-L').cw_in_g1 := 68; gprErrCorInfo('6-L').blocks_in_g2 := null; gprErrCorInfo('6-L').cw_in_g2 := null;
gprErrCorInfo('6-M').total_no_of_data_cw := 108; gprErrCorInfo('6-M').ec_cw_per_block := 16; gprErrCorInfo('6-M').blocks_in_g1 := 4; gprErrCorInfo('6-M').cw_in_g1 := 27; gprErrCorInfo('6-M').blocks_in_g2 := null; gprErrCorInfo('6-M').cw_in_g2 := null;
gprErrCorInfo('6-Q').total_no_of_data_cw := 76; gprErrCorInfo('6-Q').ec_cw_per_block := 24; gprErrCorInfo('6-Q').blocks_in_g1 := 4; gprErrCorInfo('6-Q').cw_in_g1 := 19; gprErrCorInfo('6-Q').blocks_in_g2 := null; gprErrCorInfo('6-Q').cw_in_g2 := null;
gprErrCorInfo('6-H').total_no_of_data_cw := 60; gprErrCorInfo('6-H').ec_cw_per_block := 28; gprErrCorInfo('6-H').blocks_in_g1 := 4; gprErrCorInfo('6-H').cw_in_g1 := 15; gprErrCorInfo('6-H').blocks_in_g2 := null; gprErrCorInfo('6-H').cw_in_g2 := null;
gprErrCorInfo('7-L').total_no_of_data_cw := 156; gprErrCorInfo('7-L').ec_cw_per_block := 20; gprErrCorInfo('7-L').blocks_in_g1 := 2; gprErrCorInfo('7-L').cw_in_g1 := 78; gprErrCorInfo('7-L').blocks_in_g2 := null; gprErrCorInfo('7-L').cw_in_g2 := null;
gprErrCorInfo('7-M').total_no_of_data_cw := 124; gprErrCorInfo('7-M').ec_cw_per_block := 18; gprErrCorInfo('7-M').blocks_in_g1 := 4; gprErrCorInfo('7-M').cw_in_g1 := 31; gprErrCorInfo('7-M').blocks_in_g2 := null; gprErrCorInfo('7-M').cw_in_g2 := null;
gprErrCorInfo('7-Q').total_no_of_data_cw := 88; gprErrCorInfo('7-Q').ec_cw_per_block := 18; gprErrCorInfo('7-Q').blocks_in_g1 := 2; gprErrCorInfo('7-Q').cw_in_g1 := 14; gprErrCorInfo('7-Q').blocks_in_g2 := 4; gprErrCorInfo('7-Q').cw_in_g2 := 15;
gprErrCorInfo('7-H').total_no_of_data_cw := 66; gprErrCorInfo('7-H').ec_cw_per_block := 26; gprErrCorInfo('7-H').blocks_in_g1 := 4; gprErrCorInfo('7-H').cw_in_g1 := 13; gprErrCorInfo('7-H').blocks_in_g2 := 1; gprErrCorInfo('7-H').cw_in_g2 := 14;
gprErrCorInfo('8-L').total_no_of_data_cw := 194; gprErrCorInfo('8-L').ec_cw_per_block := 24; gprErrCorInfo('8-L').blocks_in_g1 := 2; gprErrCorInfo('8-L').cw_in_g1 := 97; gprErrCorInfo('8-L').blocks_in_g2 := null; gprErrCorInfo('8-L').cw_in_g2 := null;
gprErrCorInfo('8-M').total_no_of_data_cw := 154; gprErrCorInfo('8-M').ec_cw_per_block := 22; gprErrCorInfo('8-M').blocks_in_g1 := 2; gprErrCorInfo('8-M').cw_in_g1 := 38; gprErrCorInfo('8-M').blocks_in_g2 := 2; gprErrCorInfo('8-M').cw_in_g2 := 39;
gprErrCorInfo('8-Q').total_no_of_data_cw := 110; gprErrCorInfo('8-Q').ec_cw_per_block := 22; gprErrCorInfo('8-Q').blocks_in_g1 := 4; gprErrCorInfo('8-Q').cw_in_g1 := 18; gprErrCorInfo('8-Q').blocks_in_g2 := 2; gprErrCorInfo('8-Q').cw_in_g2 := 19;
gprErrCorInfo('8-H').total_no_of_data_cw := 86; gprErrCorInfo('8-H').ec_cw_per_block := 26; gprErrCorInfo('8-H').blocks_in_g1 := 4; gprErrCorInfo('8-H').cw_in_g1 := 14; gprErrCorInfo('8-H').blocks_in_g2 := 2; gprErrCorInfo('8-H').cw_in_g2 := 15;
gprErrCorInfo('9-L').total_no_of_data_cw := 232; gprErrCorInfo('9-L').ec_cw_per_block := 30; gprErrCorInfo('9-L').blocks_in_g1 := 2; gprErrCorInfo('9-L').cw_in_g1 := 116; gprErrCorInfo('9-L').blocks_in_g2 := null; gprErrCorInfo('9-L').cw_in_g2 := null;
gprErrCorInfo('9-M').total_no_of_data_cw := 182; gprErrCorInfo('9-M').ec_cw_per_block := 22; gprErrCorInfo('9-M').blocks_in_g1 := 3; gprErrCorInfo('9-M').cw_in_g1 := 36; gprErrCorInfo('9-M').blocks_in_g2 := 2; gprErrCorInfo('9-M').cw_in_g2 := 37;
gprErrCorInfo('9-Q').total_no_of_data_cw := 132; gprErrCorInfo('9-Q').ec_cw_per_block := 20; gprErrCorInfo('9-Q').blocks_in_g1 := 4; gprErrCorInfo('9-Q').cw_in_g1 := 16; gprErrCorInfo('9-Q').blocks_in_g2 := 4; gprErrCorInfo('9-Q').cw_in_g2 := 17;
gprErrCorInfo('9-H').total_no_of_data_cw := 100; gprErrCorInfo('9-H').ec_cw_per_block := 24; gprErrCorInfo('9-H').blocks_in_g1 := 4; gprErrCorInfo('9-H').cw_in_g1 := 12; gprErrCorInfo('9-H').blocks_in_g2 := 4; gprErrCorInfo('9-H').cw_in_g2 := 13;
gprErrCorInfo('10-L').total_no_of_data_cw := 274; gprErrCorInfo('10-L').ec_cw_per_block := 18; gprErrCorInfo('10-L').blocks_in_g1 := 2; gprErrCorInfo('10-L').cw_in_g1 := 68; gprErrCorInfo('10-L').blocks_in_g2 := 2; gprErrCorInfo('10-L').cw_in_g2 := 69;
gprErrCorInfo('10-M').total_no_of_data_cw := 216; gprErrCorInfo('10-M').ec_cw_per_block := 26; gprErrCorInfo('10-M').blocks_in_g1 := 4; gprErrCorInfo('10-M').cw_in_g1 := 43; gprErrCorInfo('10-M').blocks_in_g2 := 1; gprErrCorInfo('10-M').cw_in_g2 := 44;
gprErrCorInfo('10-Q').total_no_of_data_cw := 154; gprErrCorInfo('10-Q').ec_cw_per_block := 24; gprErrCorInfo('10-Q').blocks_in_g1 := 6; gprErrCorInfo('10-Q').cw_in_g1 := 19; gprErrCorInfo('10-Q').blocks_in_g2 := 2; gprErrCorInfo('10-Q').cw_in_g2 := 20;
gprErrCorInfo('10-H').total_no_of_data_cw := 122; gprErrCorInfo('10-H').ec_cw_per_block := 28; gprErrCorInfo('10-H').blocks_in_g1 := 6; gprErrCorInfo('10-H').cw_in_g1 := 15; gprErrCorInfo('10-H').blocks_in_g2 := 2; gprErrCorInfo('10-H').cw_in_g2 := 16;
gprErrCorInfo('11-L').total_no_of_data_cw := 324; gprErrCorInfo('11-L').ec_cw_per_block := 20; gprErrCorInfo('11-L').blocks_in_g1 := 4; gprErrCorInfo('11-L').cw_in_g1 := 81; gprErrCorInfo('11-L').blocks_in_g2 := null; gprErrCorInfo('11-L').cw_in_g2 := null;
gprErrCorInfo('11-M').total_no_of_data_cw := 254; gprErrCorInfo('11-M').ec_cw_per_block := 30; gprErrCorInfo('11-M').blocks_in_g1 := 1; gprErrCorInfo('11-M').cw_in_g1 := 50; gprErrCorInfo('11-M').blocks_in_g2 := 4; gprErrCorInfo('11-M').cw_in_g2 := 51;
gprErrCorInfo('11-Q').total_no_of_data_cw := 180; gprErrCorInfo('11-Q').ec_cw_per_block := 28; gprErrCorInfo('11-Q').blocks_in_g1 := 4; gprErrCorInfo('11-Q').cw_in_g1 := 22; gprErrCorInfo('11-Q').blocks_in_g2 := 4; gprErrCorInfo('11-Q').cw_in_g2 := 23;
gprErrCorInfo('11-H').total_no_of_data_cw := 140; gprErrCorInfo('11-H').ec_cw_per_block := 24; gprErrCorInfo('11-H').blocks_in_g1 := 3; gprErrCorInfo('11-H').cw_in_g1 := 12; gprErrCorInfo('11-H').blocks_in_g2 := 8; gprErrCorInfo('11-H').cw_in_g2 := 13;
gprErrCorInfo('12-L').total_no_of_data_cw := 370; gprErrCorInfo('12-L').ec_cw_per_block := 24; gprErrCorInfo('12-L').blocks_in_g1 := 2; gprErrCorInfo('12-L').cw_in_g1 := 92; gprErrCorInfo('12-L').blocks_in_g2 := 2; gprErrCorInfo('12-L').cw_in_g2 := 93;
gprErrCorInfo('12-M').total_no_of_data_cw := 290; gprErrCorInfo('12-M').ec_cw_per_block := 22; gprErrCorInfo('12-M').blocks_in_g1 := 6; gprErrCorInfo('12-M').cw_in_g1 := 36; gprErrCorInfo('12-M').blocks_in_g2 := 2; gprErrCorInfo('12-M').cw_in_g2 := 37;
gprErrCorInfo('12-Q').total_no_of_data_cw := 206; gprErrCorInfo('12-Q').ec_cw_per_block := 26; gprErrCorInfo('12-Q').blocks_in_g1 := 4; gprErrCorInfo('12-Q').cw_in_g1 := 20; gprErrCorInfo('12-Q').blocks_in_g2 := 6; gprErrCorInfo('12-Q').cw_in_g2 := 21;
gprErrCorInfo('12-H').total_no_of_data_cw := 158; gprErrCorInfo('12-H').ec_cw_per_block := 28; gprErrCorInfo('12-H').blocks_in_g1 := 7; gprErrCorInfo('12-H').cw_in_g1 := 14; gprErrCorInfo('12-H').blocks_in_g2 := 4; gprErrCorInfo('12-H').cw_in_g2 := 15;
gprErrCorInfo('13-L').total_no_of_data_cw := 428; gprErrCorInfo('13-L').ec_cw_per_block := 26; gprErrCorInfo('13-L').blocks_in_g1 := 4; gprErrCorInfo('13-L').cw_in_g1 := 107; gprErrCorInfo('13-L').blocks_in_g2 := null; gprErrCorInfo('13-L').cw_in_g2 := null;
gprErrCorInfo('13-M').total_no_of_data_cw := 334; gprErrCorInfo('13-M').ec_cw_per_block := 22; gprErrCorInfo('13-M').blocks_in_g1 := 8; gprErrCorInfo('13-M').cw_in_g1 := 37; gprErrCorInfo('13-M').blocks_in_g2 := 1; gprErrCorInfo('13-M').cw_in_g2 := 38;
gprErrCorInfo('13-Q').total_no_of_data_cw := 244; gprErrCorInfo('13-Q').ec_cw_per_block := 24; gprErrCorInfo('13-Q').blocks_in_g1 := 8; gprErrCorInfo('13-Q').cw_in_g1 := 20; gprErrCorInfo('13-Q').blocks_in_g2 := 4; gprErrCorInfo('13-Q').cw_in_g2 := 21;
gprErrCorInfo('13-H').total_no_of_data_cw := 180; gprErrCorInfo('13-H').ec_cw_per_block := 22; gprErrCorInfo('13-H').blocks_in_g1 := 12; gprErrCorInfo('13-H').cw_in_g1 := 11; gprErrCorInfo('13-H').blocks_in_g2 := 4; gprErrCorInfo('13-H').cw_in_g2 := 12;
gprErrCorInfo('14-L').total_no_of_data_cw := 461; gprErrCorInfo('14-L').ec_cw_per_block := 30; gprErrCorInfo('14-L').blocks_in_g1 := 3; gprErrCorInfo('14-L').cw_in_g1 := 115; gprErrCorInfo('14-L').blocks_in_g2 := 1; gprErrCorInfo('14-L').cw_in_g2 := 116;
gprErrCorInfo('14-M').total_no_of_data_cw := 365; gprErrCorInfo('14-M').ec_cw_per_block := 24; gprErrCorInfo('14-M').blocks_in_g1 := 4; gprErrCorInfo('14-M').cw_in_g1 := 40; gprErrCorInfo('14-M').blocks_in_g2 := 5; gprErrCorInfo('14-M').cw_in_g2 := 41;
gprErrCorInfo('14-Q').total_no_of_data_cw := 261; gprErrCorInfo('14-Q').ec_cw_per_block := 20; gprErrCorInfo('14-Q').blocks_in_g1 := 11; gprErrCorInfo('14-Q').cw_in_g1 := 16; gprErrCorInfo('14-Q').blocks_in_g2 := 5; gprErrCorInfo('14-Q').cw_in_g2 := 17;
gprErrCorInfo('14-H').total_no_of_data_cw := 197; gprErrCorInfo('14-H').ec_cw_per_block := 24; gprErrCorInfo('14-H').blocks_in_g1 := 11; gprErrCorInfo('14-H').cw_in_g1 := 12; gprErrCorInfo('14-H').blocks_in_g2 := 5; gprErrCorInfo('14-H').cw_in_g2 := 13;
gprErrCorInfo('15-L').total_no_of_data_cw := 523; gprErrCorInfo('15-L').ec_cw_per_block := 22; gprErrCorInfo('15-L').blocks_in_g1 := 5; gprErrCorInfo('15-L').cw_in_g1 := 87; gprErrCorInfo('15-L').blocks_in_g2 := 1; gprErrCorInfo('15-L').cw_in_g2 := 88;
gprErrCorInfo('15-M').total_no_of_data_cw := 415; gprErrCorInfo('15-M').ec_cw_per_block := 24; gprErrCorInfo('15-M').blocks_in_g1 := 5; gprErrCorInfo('15-M').cw_in_g1 := 41; gprErrCorInfo('15-M').blocks_in_g2 := 5; gprErrCorInfo('15-M').cw_in_g2 := 42;
gprErrCorInfo('15-Q').total_no_of_data_cw := 295; gprErrCorInfo('15-Q').ec_cw_per_block := 30; gprErrCorInfo('15-Q').blocks_in_g1 := 5; gprErrCorInfo('15-Q').cw_in_g1 := 24; gprErrCorInfo('15-Q').blocks_in_g2 := 7; gprErrCorInfo('15-Q').cw_in_g2 := 25;
gprErrCorInfo('15-H').total_no_of_data_cw := 223; gprErrCorInfo('15-H').ec_cw_per_block := 24; gprErrCorInfo('15-H').blocks_in_g1 := 11; gprErrCorInfo('15-H').cw_in_g1 := 12; gprErrCorInfo('15-H').blocks_in_g2 := 7; gprErrCorInfo('15-H').cw_in_g2 := 13;
gprErrCorInfo('16-L').total_no_of_data_cw := 589; gprErrCorInfo('16-L').ec_cw_per_block := 24; gprErrCorInfo('16-L').blocks_in_g1 := 5; gprErrCorInfo('16-L').cw_in_g1 := 98; gprErrCorInfo('16-L').blocks_in_g2 := 1; gprErrCorInfo('16-L').cw_in_g2 := 99;
gprErrCorInfo('16-M').total_no_of_data_cw := 453; gprErrCorInfo('16-M').ec_cw_per_block := 28; gprErrCorInfo('16-M').blocks_in_g1 := 7; gprErrCorInfo('16-M').cw_in_g1 := 45; gprErrCorInfo('16-M').blocks_in_g2 := 3; gprErrCorInfo('16-M').cw_in_g2 := 46;
gprErrCorInfo('16-Q').total_no_of_data_cw := 325; gprErrCorInfo('16-Q').ec_cw_per_block := 24; gprErrCorInfo('16-Q').blocks_in_g1 := 15; gprErrCorInfo('16-Q').cw_in_g1 := 19; gprErrCorInfo('16-Q').blocks_in_g2 := 2; gprErrCorInfo('16-Q').cw_in_g2 := 20;
gprErrCorInfo('16-H').total_no_of_data_cw := 253; gprErrCorInfo('16-H').ec_cw_per_block := 30; gprErrCorInfo('16-H').blocks_in_g1 := 3; gprErrCorInfo('16-H').cw_in_g1 := 15; gprErrCorInfo('16-H').blocks_in_g2 := 13; gprErrCorInfo('16-H').cw_in_g2 := 16;
gprErrCorInfo('17-L').total_no_of_data_cw := 647; gprErrCorInfo('17-L').ec_cw_per_block := 28; gprErrCorInfo('17-L').blocks_in_g1 := 1; gprErrCorInfo('17-L').cw_in_g1 := 107; gprErrCorInfo('17-L').blocks_in_g2 := 5; gprErrCorInfo('17-L').cw_in_g2 := 108;
gprErrCorInfo('17-M').total_no_of_data_cw := 507; gprErrCorInfo('17-M').ec_cw_per_block := 28; gprErrCorInfo('17-M').blocks_in_g1 := 10; gprErrCorInfo('17-M').cw_in_g1 := 46; gprErrCorInfo('17-M').blocks_in_g2 := 1; gprErrCorInfo('17-M').cw_in_g2 := 47;
gprErrCorInfo('17-Q').total_no_of_data_cw := 367; gprErrCorInfo('17-Q').ec_cw_per_block := 28; gprErrCorInfo('17-Q').blocks_in_g1 := 1; gprErrCorInfo('17-Q').cw_in_g1 := 22; gprErrCorInfo('17-Q').blocks_in_g2 := 15; gprErrCorInfo('17-Q').cw_in_g2 := 23;
gprErrCorInfo('17-H').total_no_of_data_cw := 283; gprErrCorInfo('17-H').ec_cw_per_block := 28; gprErrCorInfo('17-H').blocks_in_g1 := 2; gprErrCorInfo('17-H').cw_in_g1 := 14; gprErrCorInfo('17-H').blocks_in_g2 := 17; gprErrCorInfo('17-H').cw_in_g2 := 15;
gprErrCorInfo('18-L').total_no_of_data_cw := 721; gprErrCorInfo('18-L').ec_cw_per_block := 30; gprErrCorInfo('18-L').blocks_in_g1 := 5; gprErrCorInfo('18-L').cw_in_g1 := 120; gprErrCorInfo('18-L').blocks_in_g2 := 1; gprErrCorInfo('18-L').cw_in_g2 := 121;
gprErrCorInfo('18-M').total_no_of_data_cw := 563; gprErrCorInfo('18-M').ec_cw_per_block := 26; gprErrCorInfo('18-M').blocks_in_g1 := 9; gprErrCorInfo('18-M').cw_in_g1 := 43; gprErrCorInfo('18-M').blocks_in_g2 := 4; gprErrCorInfo('18-M').cw_in_g2 := 44;
gprErrCorInfo('18-Q').total_no_of_data_cw := 397; gprErrCorInfo('18-Q').ec_cw_per_block := 28; gprErrCorInfo('18-Q').blocks_in_g1 := 17; gprErrCorInfo('18-Q').cw_in_g1 := 22; gprErrCorInfo('18-Q').blocks_in_g2 := 1; gprErrCorInfo('18-Q').cw_in_g2 := 23;
gprErrCorInfo('18-H').total_no_of_data_cw := 313; gprErrCorInfo('18-H').ec_cw_per_block := 28; gprErrCorInfo('18-H').blocks_in_g1 := 2; gprErrCorInfo('18-H').cw_in_g1 := 14; gprErrCorInfo('18-H').blocks_in_g2 := 19; gprErrCorInfo('18-H').cw_in_g2 := 15;
gprErrCorInfo('19-L').total_no_of_data_cw := 795; gprErrCorInfo('19-L').ec_cw_per_block := 28; gprErrCorInfo('19-L').blocks_in_g1 := 3; gprErrCorInfo('19-L').cw_in_g1 := 113; gprErrCorInfo('19-L').blocks_in_g2 := 4; gprErrCorInfo('19-L').cw_in_g2 := 114;
gprErrCorInfo('19-M').total_no_of_data_cw := 627; gprErrCorInfo('19-M').ec_cw_per_block := 26; gprErrCorInfo('19-M').blocks_in_g1 := 3; gprErrCorInfo('19-M').cw_in_g1 := 44; gprErrCorInfo('19-M').blocks_in_g2 := 11; gprErrCorInfo('19-M').cw_in_g2 := 45;
gprErrCorInfo('19-Q').total_no_of_data_cw := 445; gprErrCorInfo('19-Q').ec_cw_per_block := 26; gprErrCorInfo('19-Q').blocks_in_g1 := 17; gprErrCorInfo('19-Q').cw_in_g1 := 21; gprErrCorInfo('19-Q').blocks_in_g2 := 4; gprErrCorInfo('19-Q').cw_in_g2 := 22;
gprErrCorInfo('19-H').total_no_of_data_cw := 341; gprErrCorInfo('19-H').ec_cw_per_block := 26; gprErrCorInfo('19-H').blocks_in_g1 := 9; gprErrCorInfo('19-H').cw_in_g1 := 13; gprErrCorInfo('19-H').blocks_in_g2 := 16; gprErrCorInfo('19-H').cw_in_g2 := 14;
gprErrCorInfo('20-L').total_no_of_data_cw := 861; gprErrCorInfo('20-L').ec_cw_per_block := 28; gprErrCorInfo('20-L').blocks_in_g1 := 3; gprErrCorInfo('20-L').cw_in_g1 := 107; gprErrCorInfo('20-L').blocks_in_g2 := 5; gprErrCorInfo('20-L').cw_in_g2 := 108;
gprErrCorInfo('20-M').total_no_of_data_cw := 669; gprErrCorInfo('20-M').ec_cw_per_block := 26; gprErrCorInfo('20-M').blocks_in_g1 := 3; gprErrCorInfo('20-M').cw_in_g1 := 41; gprErrCorInfo('20-M').blocks_in_g2 := 13; gprErrCorInfo('20-M').cw_in_g2 := 42;
gprErrCorInfo('20-Q').total_no_of_data_cw := 485; gprErrCorInfo('20-Q').ec_cw_per_block := 30; gprErrCorInfo('20-Q').blocks_in_g1 := 15; gprErrCorInfo('20-Q').cw_in_g1 := 24; gprErrCorInfo('20-Q').blocks_in_g2 := 5; gprErrCorInfo('20-Q').cw_in_g2 := 25;
gprErrCorInfo('20-H').total_no_of_data_cw := 385; gprErrCorInfo('20-H').ec_cw_per_block := 28; gprErrCorInfo('20-H').blocks_in_g1 := 15; gprErrCorInfo('20-H').cw_in_g1 := 15; gprErrCorInfo('20-H').blocks_in_g2 := 10; gprErrCorInfo('20-H').cw_in_g2 := 16;
gprErrCorInfo('21-L').total_no_of_data_cw := 932; gprErrCorInfo('21-L').ec_cw_per_block := 28; gprErrCorInfo('21-L').blocks_in_g1 := 4; gprErrCorInfo('21-L').cw_in_g1 := 116; gprErrCorInfo('21-L').blocks_in_g2 := 4; gprErrCorInfo('21-L').cw_in_g2 := 117;
gprErrCorInfo('21-M').total_no_of_data_cw := 714; gprErrCorInfo('21-M').ec_cw_per_block := 26; gprErrCorInfo('21-M').blocks_in_g1 := 17; gprErrCorInfo('21-M').cw_in_g1 := 42; gprErrCorInfo('21-M').blocks_in_g2 := null; gprErrCorInfo('21-M').cw_in_g2 := null;
gprErrCorInfo('21-Q').total_no_of_data_cw := 512; gprErrCorInfo('21-Q').ec_cw_per_block := 28; gprErrCorInfo('21-Q').blocks_in_g1 := 17; gprErrCorInfo('21-Q').cw_in_g1 := 22; gprErrCorInfo('21-Q').blocks_in_g2 := 6; gprErrCorInfo('21-Q').cw_in_g2 := 23;
gprErrCorInfo('21-H').total_no_of_data_cw := 406; gprErrCorInfo('21-H').ec_cw_per_block := 30; gprErrCorInfo('21-H').blocks_in_g1 := 19; gprErrCorInfo('21-H').cw_in_g1 := 16; gprErrCorInfo('21-H').blocks_in_g2 := 6; gprErrCorInfo('21-H').cw_in_g2 := 17;
gprErrCorInfo('22-L').total_no_of_data_cw := 1006; gprErrCorInfo('22-L').ec_cw_per_block := 28; gprErrCorInfo('22-L').blocks_in_g1 := 2; gprErrCorInfo('22-L').cw_in_g1 := 111; gprErrCorInfo('22-L').blocks_in_g2 := 7; gprErrCorInfo('22-L').cw_in_g2 := 112;
gprErrCorInfo('22-M').total_no_of_data_cw := 782; gprErrCorInfo('22-M').ec_cw_per_block := 28; gprErrCorInfo('22-M').blocks_in_g1 := 17; gprErrCorInfo('22-M').cw_in_g1 := 46; gprErrCorInfo('22-M').blocks_in_g2 := null; gprErrCorInfo('22-M').cw_in_g2 := null;
gprErrCorInfo('22-Q').total_no_of_data_cw := 568; gprErrCorInfo('22-Q').ec_cw_per_block := 30; gprErrCorInfo('22-Q').blocks_in_g1 := 7; gprErrCorInfo('22-Q').cw_in_g1 := 24; gprErrCorInfo('22-Q').blocks_in_g2 := 16; gprErrCorInfo('22-Q').cw_in_g2 := 25;
gprErrCorInfo('22-H').total_no_of_data_cw := 442; gprErrCorInfo('22-H').ec_cw_per_block := 24; gprErrCorInfo('22-H').blocks_in_g1 := 34; gprErrCorInfo('22-H').cw_in_g1 := 13; gprErrCorInfo('22-H').blocks_in_g2 := null; gprErrCorInfo('22-H').cw_in_g2 := null;
gprErrCorInfo('23-L').total_no_of_data_cw := 1094; gprErrCorInfo('23-L').ec_cw_per_block := 30; gprErrCorInfo('23-L').blocks_in_g1 := 4; gprErrCorInfo('23-L').cw_in_g1 := 121; gprErrCorInfo('23-L').blocks_in_g2 := 5; gprErrCorInfo('23-L').cw_in_g2 := 122;
gprErrCorInfo('23-M').total_no_of_data_cw := 860; gprErrCorInfo('23-M').ec_cw_per_block := 28; gprErrCorInfo('23-M').blocks_in_g1 := 4; gprErrCorInfo('23-M').cw_in_g1 := 47; gprErrCorInfo('23-M').blocks_in_g2 := 14; gprErrCorInfo('23-M').cw_in_g2 := 48;
gprErrCorInfo('23-Q').total_no_of_data_cw := 614; gprErrCorInfo('23-Q').ec_cw_per_block := 30; gprErrCorInfo('23-Q').blocks_in_g1 := 11; gprErrCorInfo('23-Q').cw_in_g1 := 24; gprErrCorInfo('23-Q').blocks_in_g2 := 14; gprErrCorInfo('23-Q').cw_in_g2 := 25;
gprErrCorInfo('23-H').total_no_of_data_cw := 464; gprErrCorInfo('23-H').ec_cw_per_block := 30; gprErrCorInfo('23-H').blocks_in_g1 := 16; gprErrCorInfo('23-H').cw_in_g1 := 15; gprErrCorInfo('23-H').blocks_in_g2 := 14; gprErrCorInfo('23-H').cw_in_g2 := 16;
gprErrCorInfo('24-L').total_no_of_data_cw := 1174; gprErrCorInfo('24-L').ec_cw_per_block := 30; gprErrCorInfo('24-L').blocks_in_g1 := 6; gprErrCorInfo('24-L').cw_in_g1 := 117; gprErrCorInfo('24-L').blocks_in_g2 := 4; gprErrCorInfo('24-L').cw_in_g2 := 118;
gprErrCorInfo('24-M').total_no_of_data_cw := 914; gprErrCorInfo('24-M').ec_cw_per_block := 28; gprErrCorInfo('24-M').blocks_in_g1 := 6; gprErrCorInfo('24-M').cw_in_g1 := 45; gprErrCorInfo('24-M').blocks_in_g2 := 14; gprErrCorInfo('24-M').cw_in_g2 := 46;
gprErrCorInfo('24-Q').total_no_of_data_cw := 664; gprErrCorInfo('24-Q').ec_cw_per_block := 30; gprErrCorInfo('24-Q').blocks_in_g1 := 11; gprErrCorInfo('24-Q').cw_in_g1 := 24; gprErrCorInfo('24-Q').blocks_in_g2 := 16; gprErrCorInfo('24-Q').cw_in_g2 := 25;
gprErrCorInfo('24-H').total_no_of_data_cw := 514; gprErrCorInfo('24-H').ec_cw_per_block := 30; gprErrCorInfo('24-H').blocks_in_g1 := 30; gprErrCorInfo('24-H').cw_in_g1 := 16; gprErrCorInfo('24-H').blocks_in_g2 := 2; gprErrCorInfo('24-H').cw_in_g2 := 17;
gprErrCorInfo('25-L').total_no_of_data_cw := 1276; gprErrCorInfo('25-L').ec_cw_per_block := 26; gprErrCorInfo('25-L').blocks_in_g1 := 8; gprErrCorInfo('25-L').cw_in_g1 := 106; gprErrCorInfo('25-L').blocks_in_g2 := 4; gprErrCorInfo('25-L').cw_in_g2 := 107;
gprErrCorInfo('25-M').total_no_of_data_cw := 1000; gprErrCorInfo('25-M').ec_cw_per_block := 28; gprErrCorInfo('25-M').blocks_in_g1 := 8; gprErrCorInfo('25-M').cw_in_g1 := 47; gprErrCorInfo('25-M').blocks_in_g2 := 13; gprErrCorInfo('25-M').cw_in_g2 := 48;
gprErrCorInfo('25-Q').total_no_of_data_cw := 718; gprErrCorInfo('25-Q').ec_cw_per_block := 30; gprErrCorInfo('25-Q').blocks_in_g1 := 7; gprErrCorInfo('25-Q').cw_in_g1 := 24; gprErrCorInfo('25-Q').blocks_in_g2 := 22; gprErrCorInfo('25-Q').cw_in_g2 := 25;
gprErrCorInfo('25-H').total_no_of_data_cw := 538; gprErrCorInfo('25-H').ec_cw_per_block := 30; gprErrCorInfo('25-H').blocks_in_g1 := 22; gprErrCorInfo('25-H').cw_in_g1 := 15; gprErrCorInfo('25-H').blocks_in_g2 := 13; gprErrCorInfo('25-H').cw_in_g2 := 16;
gprErrCorInfo('26-L').total_no_of_data_cw := 1370; gprErrCorInfo('26-L').ec_cw_per_block := 28; gprErrCorInfo('26-L').blocks_in_g1 := 10; gprErrCorInfo('26-L').cw_in_g1 := 114; gprErrCorInfo('26-L').blocks_in_g2 := 2; gprErrCorInfo('26-L').cw_in_g2 := 115;
gprErrCorInfo('26-M').total_no_of_data_cw := 1062; gprErrCorInfo('26-M').ec_cw_per_block := 28; gprErrCorInfo('26-M').blocks_in_g1 := 19; gprErrCorInfo('26-M').cw_in_g1 := 46; gprErrCorInfo('26-M').blocks_in_g2 := 4; gprErrCorInfo('26-M').cw_in_g2 := 47;
gprErrCorInfo('26-Q').total_no_of_data_cw := 754; gprErrCorInfo('26-Q').ec_cw_per_block := 28; gprErrCorInfo('26-Q').blocks_in_g1 := 28; gprErrCorInfo('26-Q').cw_in_g1 := 22; gprErrCorInfo('26-Q').blocks_in_g2 := 6; gprErrCorInfo('26-Q').cw_in_g2 := 23;
gprErrCorInfo('26-H').total_no_of_data_cw := 596; gprErrCorInfo('26-H').ec_cw_per_block := 30; gprErrCorInfo('26-H').blocks_in_g1 := 33; gprErrCorInfo('26-H').cw_in_g1 := 16; gprErrCorInfo('26-H').blocks_in_g2 := 4; gprErrCorInfo('26-H').cw_in_g2 := 17;
gprErrCorInfo('27-L').total_no_of_data_cw := 1468; gprErrCorInfo('27-L').ec_cw_per_block := 30; gprErrCorInfo('27-L').blocks_in_g1 := 8; gprErrCorInfo('27-L').cw_in_g1 := 122; gprErrCorInfo('27-L').blocks_in_g2 := 4; gprErrCorInfo('27-L').cw_in_g2 := 123;
gprErrCorInfo('27-M').total_no_of_data_cw := 1128; gprErrCorInfo('27-M').ec_cw_per_block := 28; gprErrCorInfo('27-M').blocks_in_g1 := 22; gprErrCorInfo('27-M').cw_in_g1 := 45; gprErrCorInfo('27-M').blocks_in_g2 := 3; gprErrCorInfo('27-M').cw_in_g2 := 46;
gprErrCorInfo('27-Q').total_no_of_data_cw := 808; gprErrCorInfo('27-Q').ec_cw_per_block := 30; gprErrCorInfo('27-Q').blocks_in_g1 := 8; gprErrCorInfo('27-Q').cw_in_g1 := 23; gprErrCorInfo('27-Q').blocks_in_g2 := 26; gprErrCorInfo('27-Q').cw_in_g2 := 24;
gprErrCorInfo('27-H').total_no_of_data_cw := 628; gprErrCorInfo('27-H').ec_cw_per_block := 30; gprErrCorInfo('27-H').blocks_in_g1 := 12; gprErrCorInfo('27-H').cw_in_g1 := 15; gprErrCorInfo('27-H').blocks_in_g2 := 28; gprErrCorInfo('27-H').cw_in_g2 := 16;
gprErrCorInfo('28-L').total_no_of_data_cw := 1531; gprErrCorInfo('28-L').ec_cw_per_block := 30; gprErrCorInfo('28-L').blocks_in_g1 := 3; gprErrCorInfo('28-L').cw_in_g1 := 117; gprErrCorInfo('28-L').blocks_in_g2 := 10; gprErrCorInfo('28-L').cw_in_g2 := 118;
gprErrCorInfo('28-M').total_no_of_data_cw := 1193; gprErrCorInfo('28-M').ec_cw_per_block := 28; gprErrCorInfo('28-M').blocks_in_g1 := 3; gprErrCorInfo('28-M').cw_in_g1 := 45; gprErrCorInfo('28-M').blocks_in_g2 := 23; gprErrCorInfo('28-M').cw_in_g2 := 46;
gprErrCorInfo('28-Q').total_no_of_data_cw := 871; gprErrCorInfo('28-Q').ec_cw_per_block := 30; gprErrCorInfo('28-Q').blocks_in_g1 := 4; gprErrCorInfo('28-Q').cw_in_g1 := 24; gprErrCorInfo('28-Q').blocks_in_g2 := 31; gprErrCorInfo('28-Q').cw_in_g2 := 25;
gprErrCorInfo('28-H').total_no_of_data_cw := 661; gprErrCorInfo('28-H').ec_cw_per_block := 30; gprErrCorInfo('28-H').blocks_in_g1 := 11; gprErrCorInfo('28-H').cw_in_g1 := 15; gprErrCorInfo('28-H').blocks_in_g2 := 31; gprErrCorInfo('28-H').cw_in_g2 := 16;
gprErrCorInfo('29-L').total_no_of_data_cw := 1631; gprErrCorInfo('29-L').ec_cw_per_block := 30; gprErrCorInfo('29-L').blocks_in_g1 := 7; gprErrCorInfo('29-L').cw_in_g1 := 116; gprErrCorInfo('29-L').blocks_in_g2 := 7; gprErrCorInfo('29-L').cw_in_g2 := 117;
gprErrCorInfo('29-M').total_no_of_data_cw := 1267; gprErrCorInfo('29-M').ec_cw_per_block := 28; gprErrCorInfo('29-M').blocks_in_g1 := 21; gprErrCorInfo('29-M').cw_in_g1 := 45; gprErrCorInfo('29-M').blocks_in_g2 := 7; gprErrCorInfo('29-M').cw_in_g2 := 46;
gprErrCorInfo('29-Q').total_no_of_data_cw := 911; gprErrCorInfo('29-Q').ec_cw_per_block := 30; gprErrCorInfo('29-Q').blocks_in_g1 := 1; gprErrCorInfo('29-Q').cw_in_g1 := 23; gprErrCorInfo('29-Q').blocks_in_g2 := 37; gprErrCorInfo('29-Q').cw_in_g2 := 24;
gprErrCorInfo('29-H').total_no_of_data_cw := 701; gprErrCorInfo('29-H').ec_cw_per_block := 30; gprErrCorInfo('29-H').blocks_in_g1 := 19; gprErrCorInfo('29-H').cw_in_g1 := 15; gprErrCorInfo('29-H').blocks_in_g2 := 26; gprErrCorInfo('29-H').cw_in_g2 := 16;
gprErrCorInfo('30-L').total_no_of_data_cw := 1735; gprErrCorInfo('30-L').ec_cw_per_block := 30; gprErrCorInfo('30-L').blocks_in_g1 := 5; gprErrCorInfo('30-L').cw_in_g1 := 115; gprErrCorInfo('30-L').blocks_in_g2 := 10; gprErrCorInfo('30-L').cw_in_g2 := 116;
gprErrCorInfo('30-M').total_no_of_data_cw := 1373; gprErrCorInfo('30-M').ec_cw_per_block := 28; gprErrCorInfo('30-M').blocks_in_g1 := 19; gprErrCorInfo('30-M').cw_in_g1 := 47; gprErrCorInfo('30-M').blocks_in_g2 := 10; gprErrCorInfo('30-M').cw_in_g2 := 48;
gprErrCorInfo('30-Q').total_no_of_data_cw := 985; gprErrCorInfo('30-Q').ec_cw_per_block := 30; gprErrCorInfo('30-Q').blocks_in_g1 := 15; gprErrCorInfo('30-Q').cw_in_g1 := 24; gprErrCorInfo('30-Q').blocks_in_g2 := 25; gprErrCorInfo('30-Q').cw_in_g2 := 25;
gprErrCorInfo('30-H').total_no_of_data_cw := 745; gprErrCorInfo('30-H').ec_cw_per_block := 30; gprErrCorInfo('30-H').blocks_in_g1 := 23; gprErrCorInfo('30-H').cw_in_g1 := 15; gprErrCorInfo('30-H').blocks_in_g2 := 25; gprErrCorInfo('30-H').cw_in_g2 := 16;
gprErrCorInfo('31-L').total_no_of_data_cw := 1843; gprErrCorInfo('31-L').ec_cw_per_block := 30; gprErrCorInfo('31-L').blocks_in_g1 := 13; gprErrCorInfo('31-L').cw_in_g1 := 115; gprErrCorInfo('31-L').blocks_in_g2 := 3; gprErrCorInfo('31-L').cw_in_g2 := 116;
gprErrCorInfo('31-M').total_no_of_data_cw := 1455; gprErrCorInfo('31-M').ec_cw_per_block := 28; gprErrCorInfo('31-M').blocks_in_g1 := 2; gprErrCorInfo('31-M').cw_in_g1 := 46; gprErrCorInfo('31-M').blocks_in_g2 := 29; gprErrCorInfo('31-M').cw_in_g2 := 47;
gprErrCorInfo('31-Q').total_no_of_data_cw := 1033; gprErrCorInfo('31-Q').ec_cw_per_block := 30; gprErrCorInfo('31-Q').blocks_in_g1 := 42; gprErrCorInfo('31-Q').cw_in_g1 := 24; gprErrCorInfo('31-Q').blocks_in_g2 := 1; gprErrCorInfo('31-Q').cw_in_g2 := 25;
gprErrCorInfo('31-H').total_no_of_data_cw := 793; gprErrCorInfo('31-H').ec_cw_per_block := 30; gprErrCorInfo('31-H').blocks_in_g1 := 23; gprErrCorInfo('31-H').cw_in_g1 := 15; gprErrCorInfo('31-H').blocks_in_g2 := 28; gprErrCorInfo('31-H').cw_in_g2 := 16;
gprErrCorInfo('32-L').total_no_of_data_cw := 1955; gprErrCorInfo('32-L').ec_cw_per_block := 30; gprErrCorInfo('32-L').blocks_in_g1 := 17; gprErrCorInfo('32-L').cw_in_g1 := 115; gprErrCorInfo('32-L').blocks_in_g2 := null; gprErrCorInfo('32-L').cw_in_g2 := null;
gprErrCorInfo('32-M').total_no_of_data_cw := 1541; gprErrCorInfo('32-M').ec_cw_per_block := 28; gprErrCorInfo('32-M').blocks_in_g1 := 10; gprErrCorInfo('32-M').cw_in_g1 := 46; gprErrCorInfo('32-M').blocks_in_g2 := 23; gprErrCorInfo('32-M').cw_in_g2 := 47;
gprErrCorInfo('32-Q').total_no_of_data_cw := 1115; gprErrCorInfo('32-Q').ec_cw_per_block := 30; gprErrCorInfo('32-Q').blocks_in_g1 := 10; gprErrCorInfo('32-Q').cw_in_g1 := 24; gprErrCorInfo('32-Q').blocks_in_g2 := 35; gprErrCorInfo('32-Q').cw_in_g2 := 25;
gprErrCorInfo('32-H').total_no_of_data_cw := 845; gprErrCorInfo('32-H').ec_cw_per_block := 30; gprErrCorInfo('32-H').blocks_in_g1 := 19; gprErrCorInfo('32-H').cw_in_g1 := 15; gprErrCorInfo('32-H').blocks_in_g2 := 35; gprErrCorInfo('32-H').cw_in_g2 := 16;
gprErrCorInfo('33-L').total_no_of_data_cw := 2071; gprErrCorInfo('33-L').ec_cw_per_block := 30; gprErrCorInfo('33-L').blocks_in_g1 := 17; gprErrCorInfo('33-L').cw_in_g1 := 115; gprErrCorInfo('33-L').blocks_in_g2 := 1; gprErrCorInfo('33-L').cw_in_g2 := 116;
gprErrCorInfo('33-M').total_no_of_data_cw := 1631; gprErrCorInfo('33-M').ec_cw_per_block := 28; gprErrCorInfo('33-M').blocks_in_g1 := 14; gprErrCorInfo('33-M').cw_in_g1 := 46; gprErrCorInfo('33-M').blocks_in_g2 := 21; gprErrCorInfo('33-M').cw_in_g2 := 47;
gprErrCorInfo('33-Q').total_no_of_data_cw := 1171; gprErrCorInfo('33-Q').ec_cw_per_block := 30; gprErrCorInfo('33-Q').blocks_in_g1 := 29; gprErrCorInfo('33-Q').cw_in_g1 := 24; gprErrCorInfo('33-Q').blocks_in_g2 := 19; gprErrCorInfo('33-Q').cw_in_g2 := 25;
gprErrCorInfo('33-H').total_no_of_data_cw := 901; gprErrCorInfo('33-H').ec_cw_per_block := 30; gprErrCorInfo('33-H').blocks_in_g1 := 11; gprErrCorInfo('33-H').cw_in_g1 := 15; gprErrCorInfo('33-H').blocks_in_g2 := 46; gprErrCorInfo('33-H').cw_in_g2 := 16;
gprErrCorInfo('34-L').total_no_of_data_cw := 2191; gprErrCorInfo('34-L').ec_cw_per_block := 30; gprErrCorInfo('34-L').blocks_in_g1 := 13; gprErrCorInfo('34-L').cw_in_g1 := 115; gprErrCorInfo('34-L').blocks_in_g2 := 6; gprErrCorInfo('34-L').cw_in_g2 := 116;
gprErrCorInfo('34-M').total_no_of_data_cw := 1725; gprErrCorInfo('34-M').ec_cw_per_block := 28; gprErrCorInfo('34-M').blocks_in_g1 := 14; gprErrCorInfo('34-M').cw_in_g1 := 46; gprErrCorInfo('34-M').blocks_in_g2 := 23; gprErrCorInfo('34-M').cw_in_g2 := 47;
gprErrCorInfo('34-Q').total_no_of_data_cw := 1231; gprErrCorInfo('34-Q').ec_cw_per_block := 30; gprErrCorInfo('34-Q').blocks_in_g1 := 44; gprErrCorInfo('34-Q').cw_in_g1 := 24; gprErrCorInfo('34-Q').blocks_in_g2 := 7; gprErrCorInfo('34-Q').cw_in_g2 := 25;
gprErrCorInfo('34-H').total_no_of_data_cw := 961; gprErrCorInfo('34-H').ec_cw_per_block := 30; gprErrCorInfo('34-H').blocks_in_g1 := 59; gprErrCorInfo('34-H').cw_in_g1 := 16; gprErrCorInfo('34-H').blocks_in_g2 := 1; gprErrCorInfo('34-H').cw_in_g2 := 17;
gprErrCorInfo('35-L').total_no_of_data_cw := 2306; gprErrCorInfo('35-L').ec_cw_per_block := 30; gprErrCorInfo('35-L').blocks_in_g1 := 12; gprErrCorInfo('35-L').cw_in_g1 := 121; gprErrCorInfo('35-L').blocks_in_g2 := 7; gprErrCorInfo('35-L').cw_in_g2 := 122;
gprErrCorInfo('35-M').total_no_of_data_cw := 1812; gprErrCorInfo('35-M').ec_cw_per_block := 28; gprErrCorInfo('35-M').blocks_in_g1 := 12; gprErrCorInfo('35-M').cw_in_g1 := 47; gprErrCorInfo('35-M').blocks_in_g2 := 26; gprErrCorInfo('35-M').cw_in_g2 := 48;
gprErrCorInfo('35-Q').total_no_of_data_cw := 1286; gprErrCorInfo('35-Q').ec_cw_per_block := 30; gprErrCorInfo('35-Q').blocks_in_g1 := 39; gprErrCorInfo('35-Q').cw_in_g1 := 24; gprErrCorInfo('35-Q').blocks_in_g2 := 14; gprErrCorInfo('35-Q').cw_in_g2 := 25;
gprErrCorInfo('35-H').total_no_of_data_cw := 986; gprErrCorInfo('35-H').ec_cw_per_block := 30; gprErrCorInfo('35-H').blocks_in_g1 := 22; gprErrCorInfo('35-H').cw_in_g1 := 15; gprErrCorInfo('35-H').blocks_in_g2 := 41; gprErrCorInfo('35-H').cw_in_g2 := 16;
gprErrCorInfo('36-L').total_no_of_data_cw := 2434; gprErrCorInfo('36-L').ec_cw_per_block := 30; gprErrCorInfo('36-L').blocks_in_g1 := 6; gprErrCorInfo('36-L').cw_in_g1 := 121; gprErrCorInfo('36-L').blocks_in_g2 := 14; gprErrCorInfo('36-L').cw_in_g2 := 122;
gprErrCorInfo('36-M').total_no_of_data_cw := 1914; gprErrCorInfo('36-M').ec_cw_per_block := 28; gprErrCorInfo('36-M').blocks_in_g1 := 6; gprErrCorInfo('36-M').cw_in_g1 := 47; gprErrCorInfo('36-M').blocks_in_g2 := 34; gprErrCorInfo('36-M').cw_in_g2 := 48;
gprErrCorInfo('36-Q').total_no_of_data_cw := 1354; gprErrCorInfo('36-Q').ec_cw_per_block := 30; gprErrCorInfo('36-Q').blocks_in_g1 := 46; gprErrCorInfo('36-Q').cw_in_g1 := 24; gprErrCorInfo('36-Q').blocks_in_g2 := 10; gprErrCorInfo('36-Q').cw_in_g2 := 25;
gprErrCorInfo('36-H').total_no_of_data_cw := 1054; gprErrCorInfo('36-H').ec_cw_per_block := 30; gprErrCorInfo('36-H').blocks_in_g1 := 2; gprErrCorInfo('36-H').cw_in_g1 := 15; gprErrCorInfo('36-H').blocks_in_g2 := 64; gprErrCorInfo('36-H').cw_in_g2 := 16;
gprErrCorInfo('37-L').total_no_of_data_cw := 2566; gprErrCorInfo('37-L').ec_cw_per_block := 30; gprErrCorInfo('37-L').blocks_in_g1 := 17; gprErrCorInfo('37-L').cw_in_g1 := 122; gprErrCorInfo('37-L').blocks_in_g2 := 4; gprErrCorInfo('37-L').cw_in_g2 := 123;
gprErrCorInfo('37-M').total_no_of_data_cw := 1992; gprErrCorInfo('37-M').ec_cw_per_block := 28; gprErrCorInfo('37-M').blocks_in_g1 := 29; gprErrCorInfo('37-M').cw_in_g1 := 46; gprErrCorInfo('37-M').blocks_in_g2 := 14; gprErrCorInfo('37-M').cw_in_g2 := 47;
gprErrCorInfo('37-Q').total_no_of_data_cw := 1426; gprErrCorInfo('37-Q').ec_cw_per_block := 30; gprErrCorInfo('37-Q').blocks_in_g1 := 49; gprErrCorInfo('37-Q').cw_in_g1 := 24; gprErrCorInfo('37-Q').blocks_in_g2 := 10; gprErrCorInfo('37-Q').cw_in_g2 := 25;
gprErrCorInfo('37-H').total_no_of_data_cw := 1096; gprErrCorInfo('37-H').ec_cw_per_block := 30; gprErrCorInfo('37-H').blocks_in_g1 := 24; gprErrCorInfo('37-H').cw_in_g1 := 15; gprErrCorInfo('37-H').blocks_in_g2 := 46; gprErrCorInfo('37-H').cw_in_g2 := 16;
gprErrCorInfo('38-L').total_no_of_data_cw := 2702; gprErrCorInfo('38-L').ec_cw_per_block := 30; gprErrCorInfo('38-L').blocks_in_g1 := 4; gprErrCorInfo('38-L').cw_in_g1 := 122; gprErrCorInfo('38-L').blocks_in_g2 := 18; gprErrCorInfo('38-L').cw_in_g2 := 123;
gprErrCorInfo('38-M').total_no_of_data_cw := 2102; gprErrCorInfo('38-M').ec_cw_per_block := 28; gprErrCorInfo('38-M').blocks_in_g1 := 13; gprErrCorInfo('38-M').cw_in_g1 := 46; gprErrCorInfo('38-M').blocks_in_g2 := 32; gprErrCorInfo('38-M').cw_in_g2 := 47;
gprErrCorInfo('38-Q').total_no_of_data_cw := 1502; gprErrCorInfo('38-Q').ec_cw_per_block := 30; gprErrCorInfo('38-Q').blocks_in_g1 := 48; gprErrCorInfo('38-Q').cw_in_g1 := 24; gprErrCorInfo('38-Q').blocks_in_g2 := 14; gprErrCorInfo('38-Q').cw_in_g2 := 25;
gprErrCorInfo('38-H').total_no_of_data_cw := 1142; gprErrCorInfo('38-H').ec_cw_per_block := 30; gprErrCorInfo('38-H').blocks_in_g1 := 42; gprErrCorInfo('38-H').cw_in_g1 := 15; gprErrCorInfo('38-H').blocks_in_g2 := 32; gprErrCorInfo('38-H').cw_in_g2 := 16;
gprErrCorInfo('39-L').total_no_of_data_cw := 2812; gprErrCorInfo('39-L').ec_cw_per_block := 30; gprErrCorInfo('39-L').blocks_in_g1 := 20; gprErrCorInfo('39-L').cw_in_g1 := 117; gprErrCorInfo('39-L').blocks_in_g2 := 4; gprErrCorInfo('39-L').cw_in_g2 := 118;
gprErrCorInfo('39-M').total_no_of_data_cw := 2216; gprErrCorInfo('39-M').ec_cw_per_block := 28; gprErrCorInfo('39-M').blocks_in_g1 := 40; gprErrCorInfo('39-M').cw_in_g1 := 47; gprErrCorInfo('39-M').blocks_in_g2 := 7; gprErrCorInfo('39-M').cw_in_g2 := 48;
gprErrCorInfo('39-Q').total_no_of_data_cw := 1582; gprErrCorInfo('39-Q').ec_cw_per_block := 30; gprErrCorInfo('39-Q').blocks_in_g1 := 43; gprErrCorInfo('39-Q').cw_in_g1 := 24; gprErrCorInfo('39-Q').blocks_in_g2 := 22; gprErrCorInfo('39-Q').cw_in_g2 := 25;
gprErrCorInfo('39-H').total_no_of_data_cw := 1222; gprErrCorInfo('39-H').ec_cw_per_block := 30; gprErrCorInfo('39-H').blocks_in_g1 := 10; gprErrCorInfo('39-H').cw_in_g1 := 15; gprErrCorInfo('39-H').blocks_in_g2 := 67; gprErrCorInfo('39-H').cw_in_g2 := 16;
gprErrCorInfo('40-L').total_no_of_data_cw := 2956; gprErrCorInfo('40-L').ec_cw_per_block := 30; gprErrCorInfo('40-L').blocks_in_g1 := 19; gprErrCorInfo('40-L').cw_in_g1 := 118; gprErrCorInfo('40-L').blocks_in_g2 := 6; gprErrCorInfo('40-L').cw_in_g2 := 119;
gprErrCorInfo('40-M').total_no_of_data_cw := 2334; gprErrCorInfo('40-M').ec_cw_per_block := 28; gprErrCorInfo('40-M').blocks_in_g1 := 18; gprErrCorInfo('40-M').cw_in_g1 := 47; gprErrCorInfo('40-M').blocks_in_g2 := 31; gprErrCorInfo('40-M').cw_in_g2 := 48;
gprErrCorInfo('40-Q').total_no_of_data_cw := 1666; gprErrCorInfo('40-Q').ec_cw_per_block := 30; gprErrCorInfo('40-Q').blocks_in_g1 := 34; gprErrCorInfo('40-Q').cw_in_g1 := 24; gprErrCorInfo('40-Q').blocks_in_g2 := 34; gprErrCorInfo('40-Q').cw_in_g2 := 25;
gprErrCorInfo('40-H').total_no_of_data_cw := 1276; gprErrCorInfo('40-H').ec_cw_per_block := 30; gprErrCorInfo('40-H').blocks_in_g1 := 20; gprErrCorInfo('40-H').cw_in_g1 := 15; gprErrCorInfo('40-H').blocks_in_g2 := 61; gprErrCorInfo('40-H').cw_in_g2 := 16;
END;
--CALCULATION FUNC AND PROC
FUNCTION f_mode_name(p_type pls_integer) RETURN varchar2 IS
lcMode varchar2(50);
BEGIN
lcMode :=
CASE p_type
WHEN cNumericMode THEN 'Numeric Mode'
WHEN cAlphanumericMode THEN 'Alphanumeric Mode'
WHEN cByteMode THEN 'Byte Mode'
WHEN cKanjiMode THEN 'Kanji mode'
ELSE null
END;
RETURN lcMode;
END;
/*
function returns QR code mode depending of data going to be encoded:
1 - Numeric mode (for decimal digits 0 through 9)
2 - Alphanumeric mode (specific table encoded in this function)
3 - Byte mode (ISO-8859-1 character set or UTF-8)
4 - Double-byte mode (Kanji)
UTF-8 ascii values for kanji:
3000 - 303f: Japanese-style punctuation
3040 - 309f: Hiragana
30a0 - 30ff: Katakana
ff00 - ff9f: Full-width Roman characters and half-width Katakana
4e00 - 9faf: CJK unified ideographs - Common and uncommon Kanji
3400 - 4dbf: CJK unified ideographs Extension A - Rare Kanji
*/
FUNCTION f_get_mode(p_data varchar2) RETURN pls_integer IS
lnType pls_integer := 0;
lcChar varchar2(1 char);
FUNCTION f_is_char_kanji(p_char varchar2) RETURN boolean IS
lnAscii number := ascii(p_char);
lbReturn boolean := false;
BEGIN
if
lnAscii between to_number('3000', 'xxxx') and to_number('30FF', 'xxxx') or
lnAscii between to_number('FF00', 'xxxx') and to_number('FF9F', 'xxxx') or
lnAscii between to_number('4E00', 'xxxx') and to_number('9FAF', 'xxxx') or
lnAscii between to_number('3400', 'xxxx') and to_number('4DBF', 'xxxx')
then
lbReturn := true;
end if;
RETURN lbReturn;
END;
BEGIN
FOR t IN 1 .. length(p_data) LOOP
lcChar := substr(p_data, t, 1);
if instr('0123456789', lcChar) > 0 then --numeric mode (1)
p_debug(f_mode_name(cNumericMode) || ': char ' || lcChar, 2);
lnType := greatest(lnType, cNumericMode);
elsif instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./:', lcChar) > 0 then --alphanumeric mode (2)
p_debug(f_mode_name(cAlphanumericMode) || ': char ' || lcChar, 2);
lnType := greatest(lnType, cAlphanumericMode);
elsif not f_is_char_kanji(lcChar) then --Byte mode including UTF-8 except kanji (3)
p_debug(f_mode_name(cByteMode) || ': char ' || lcChar, 2);
lnType := greatest(lnType, cByteMode);
else --kanji mode (4)
lnType := cKanjiMode;
end if;
END LOOP;
--debug
p_debug('mode for qr code: ' || f_mode_name(lnType) );
RETURN lnType;
END;
FUNCTION f_err_cor_2_number(p_error_correction varchar2) RETURN number IS
lnNumber pls_integer;
BEGIN
--conversion to number
lnNumber := CASE p_error_correction
WHEN 'L' THEN 1
WHEN 'M' THEN 2
WHEN 'Q' THEN 3
WHEN 'H' THEN 4
ELSE 0 END;
--error if mode can not be determined
if lnNumber = 0 then
RAISE_APPLICATION_ERROR(-20000, 'unknown error correction mode!');
end if;
--return value
RETURN lnNumber;
END f_err_cor_2_number;
/*
4 different indicators which are encoded into QR code
*/
FUNCTION f_mode_indicator RETURN varchar2 IS
lcMode varchar2(4);
BEGIN
lcMode :=
CASE gpnMode
WHEN cNumericMode THEN '0001'
WHEN cAlphanumericMode THEN '0010'
WHEN cByteMode THEN '0100'
WHEN cKanjiMode THEN '1000'
ELSE null
END;
p_debug('Mode indicator: ' || lcMode, 2);
RETURN lcMode;
END;
/*
character count indicator - final length in bits depends of mode and version
*/
FUNCTION f_char_count_indicator(p_data varchar2) RETURN varchar2 IS
lnLength pls_integer;
lcIndicator varchar2(16);
lnCCILength pls_integer;
BEGIN
--length in bytes to binary; in case of UTF-8 one char can be more than 1 byte
--that's why lengthb function is used instead of length
lnLength := lengthb(p_data);
lcIndicator := f_integer_2_binary(lnLength);
p_debug('CCI Binary: ' || lcIndicator, 2);
--padding
if gpnVersion <= 9 then
lnCCILength :=
CASE gpnMode
WHEN cNumericMode THEN 10
WHEN cAlphanumericMode THEN 9
WHEN cByteMode THEN 8
WHEN cKanjiMode THEN 8
ELSE 0
END;
elsif gpnVersion between 10 and 26 then
lnCCILength :=
CASE gpnMode
WHEN cNumericMode THEN 12
WHEN cAlphanumericMode THEN 11
WHEN cByteMode THEN 16
WHEN cKanjiMode THEN 10
ELSE 0
END;
elsif gpnVersion >= 27 then
lnCCILength :=
CASE gpnMode
WHEN cNumericMode THEN 14
WHEN cAlphanumericMode THEN 13
WHEN cByteMode THEN 16
WHEN cKanjiMode THEN 12
ELSE 0
END;
end if;
p_debug('Character Count Indicator length: ' || lnCCILength, 2);
lcIndicator := lpad(lcIndicator, lnCCILength, '0');
p_debug('Character Count Indicator: ' || lcIndicator, 2);
RETURN lcIndicator;
END f_char_count_indicator;
/*
function determins and returns a QR code version (size), which depends of 3 values:
- error correction level
- mode (numeric, alphanumeric, byte or double byte)
- length of data
Version is determined from a table, where 3 dimensions are values from previous list
We are searching for a smallest value, which can contain our data (error correction level and mode are fixed)
For example, for:
- correction level "M"
- data "HELLO TO ALL PEOPLE IN THE WORLD" (data length is 32, mode is alphanumeric)
a version is 2, because for given dimensions a version 2 can contain maximal of 38 characters and we have 32 characters
Version 1 can contain maximal 20 characters and it is not enough.
*/
FUNCTION f_get_version(
p_data varchar2,
p_error_correction varchar2) RETURN pls_integer IS
TYPE t_values IS TABLE OF varchar2(1000) INDEX BY pls_integer;
lrValues t_values;
TYPE t_numbers IS TABLE OF pls_integer;
lrData t_numbers;
lnVersion pls_integer := 0;
lnLength pls_integer;
lnElements pls_integer;
lnPosition pls_integer;
FUNCTION f_explode(
p_text varchar2,
p_delimiter varchar2
) RETURN t_numbers IS
lrList t_numbers := t_numbers();
lnCounter pls_integer := 0;
lcText varchar2(32000) := p_text;
BEGIN
LOOP
lnCounter := instr(lcText, p_delimiter);
if lnCounter > 0 then
lrList.extend(1);
lrList(lrList.count) := substr(lcText, 1, lnCounter - 1);
lcText := substr(lcText, lnCounter + length(p_delimiter));
else
lrList.extend(1);
lrList(lrList.count) := lcText;
RETURN lrList;
end if;
END LOOP;
END f_explode;
BEGIN
--initial values to determine version
lnLength := lengthb(p_data);
/*
values are separated in sets; each set has 4 values
first value in set is for numeric mode, second for alphanumeric, then byte and at the end for double-byte
first set is for error level "L", next set for "M", then "Q" then "H"
example for version 1 (values are maximal number of characters for error level correction and mode)
numeric alphanumeric byte double-byte
L 41 25 17 10
M 34 20 14 8
Q 27 16 11 7
H 17 10 7 4
index for variable lrValues is version
values are parsed in collection during runtime
*/
lrValues(1) := '41,25,17,10,34,20,14,8,27,16,11,7,17,10,7,4';
lrValues(2) := '77,47,32,20,63,38,26,16,48,29,20,12,34,20,14,8';
lrValues(3) := '127,77,53,32,101,61,42,26,77,47,32,20,58,35,24,15';
lrValues(4) := '187,114,78,48,149,90,62,38,111,67,46,28,82,50,34,21';
lrValues(5) := '255,154,106,65,202,122,84,52,144,87,60,37,106,64,44,27';
lrValues(6) := '322,195,134,82,255,154,106,65,178,108,74,45,139,84,58,36';
lrValues(7) := '370,224,154,95,293,178,122,75,207,125,86,53,154,93,64,39';
lrValues(8) := '461,279,192,118,365,221,152,93,259,157,108,66,202,122,84,52';
lrValues(9) := '552,335,230,141,432,262,180,111,312,189,130,80,235,143,98,60';
lrValues(10) := '652,395,271,167,513,311,213,131,364,221,151,93,288,174,119,74';
lrValues(11) := '772,468,321,198,604,366,251,155,427,259,177,109,331,200,137,85';
lrValues(12) := '883,535,367,226,691,419,287,177,489,296,203,125,374,227,155,96';
lrValues(13) := '1022,619,425,262,796,483,331,204,580,352,241,149,427,259,177,109';
lrValues(14) := '1101,667,458,282,871,528,362,223,621,376,258,159,468,283,194,120';
lrValues(15) := '1250,758,520,320,991,600,412,254,703,426,292,180,530,321,220,136';
lrValues(16) := '1408,854,586,361,1082,656,450,277,775,470,322,198,602,365,250,154';
lrValues(17) := '1548,938,644,397,1212,734,504,310,876,531,364,224,674,408,280,173';
lrValues(18) := '1725,1046,718,442,1346,816,560,345,948,574,394,243,746,452,310,191';
lrValues(19) := '1903,1153,792,488,1500,909,624,384,1063,644,442,272,813,493,338,208';
lrValues(20) := '2061,1249,858,528,1600,970,666,410,1159,702,482,297,919,557,382,235';
lrValues(21) := '2232,1352,929,572,1708,1035,711,438,1224,742,509,314,969,587,403,248';
lrValues(22) := '2409,1460,1003,618,1872,1134,779,480,1358,823,565,348,1056,640,439,270';
lrValues(23) := '2620,1588,1091,672,2059,1248,857,528,1468,890,611,376,1108,672,461,284';
lrValues(24) := '2812,1704,1171,721,2188,1326,911,561,1588,963,661,407,1228,744,511,315';
lrValues(25) := '3057,1853,1273,784,2395,1451,997,614,1718,1041,715,440,1286,779,535,330';
lrValues(26) := '3283,1990,1367,842,2544,1542,1059,652,1804,1094,751,462,1425,864,593,365';
lrValues(27) := '3517,2132,1465,902,2701,1637,1125,692,1933,1172,805,496,1501,910,625,385';
lrValues(28) := '3669,2223,1528,940,2857,1732,1190,732,2085,1263,868,534,1581,958,658,405';
lrValues(29) := '3909,2369,1628,1002,3035,1839,1264,778,2181,1322,908,559,1677,1016,698,430';
lrValues(30) := '4158,2520,1732,1066,3289,1994,1370,843,2358,1429,982,604,1782,1080,742,457';
lrValues(31) := '4417,2677,1840,1132,3486,2113,1452,894,2473,1499,1030,634,1897,1150,790,486';
lrValues(32) := '4686,2840,1952,1201,3693,2238,1538,947,2670,1618,1112,684,2022,1226,842,518';
lrValues(33) := '4965,3009,2068,1273,3909,2369,1628,1002,2805,1700,1168,719,2157,1307,898,553';
lrValues(34) := '5253,3183,2188,1347,4134,2506,1722,1060,2949,1787,1228,756,2301,1394,958,590';
lrValues(35) := '5529,3351,2303,1417,4343,2632,1809,1113,3081,1867,1283,790,2361,1431,983,605';
lrValues(36) := '5836,3537,2431,1496,4588,2780,1911,1176,3244,1966,1351,832,2524,1530,1051,647';
lrValues(37) := '6153,3729,2563,1577,4775,2894,1989,1224,3417,2071,1423,876,2625,1591,1093,673';
lrValues(38) := '6479,3927,2699,1661,5039,3054,2099,1292,3599,2181,1499,923,2735,1658,1139,701';
lrValues(39) := '6743,4087,2809,1729,5313,3220,2213,1362,3791,2298,1579,972,2927,1774,1219,750';
lrValues(40) := '7089,4296,2953,1817,5596,3391,2331,1435,3993,2420,1663,1024,3057,1852,1273,784';
--a version depending of error correction method, mode and data length
lnPosition := (f_err_cor_2_number(p_error_correction) - 1) * 4 + gpnMode;
p_debug('length: ' || lnLength, 2);
FOR t IN 1 .. 40 LOOP
p_debug(lrValues(t), 4);
/*
SELECT to_number(column_value) a
BULK COLLECT INTO lrData
FROM XMLTABLE(lrValues(t));
*/
lrData := f_explode(
p_text => lrValues(t),
p_delimiter => ','
);
p_debug('Value on position ' || lnPosition || ': ' || lrData(lnPosition), 2);
if lrData(lnPosition) >= lnLength then
lnVersion := t;
EXIT;
end if;
END LOOP;
--if version can not be determined then throw error
if lnVersion = 0 then
RAISE_APPLICATION_ERROR(-20000, 'Data length is too big to be encoded in one QR code.');
end if;
--debug
p_debug('version: ' || lnVersion);
RETURN lnVersion;
END f_get_version;
FUNCTION f_encode_data(
p_data varchar2,
p_error_correction varchar2) RETURN varchar2 IS
lcData varchar2(32000);
lnCounter pls_integer := 1;
lcSub varchar2(3);
lnReqNumOfBits pls_integer;
lcChar varchar2(1 char);
--function returns value of character in alphanumeric mode
FUNCTION f_get_code(p_char varchar2) RETURN pls_integer IS
lnCode pls_integer;
BEGIN
--0 - 9
if instr('0123456789', p_char) > 0 then
lnCode := to_number(p_char);
elsif instr('ABCDEFGHIJKLMNOPQRSTUVWXYZ', p_char) > 0 then
lnCode := ascii(p_char) - 55;
elsif p_char = ' ' then
lnCode := 36;
elsif p_char = '$' then
lnCode := 37;
elsif p_char = '%' then
lnCode := 38;
elsif p_char = '*' then
lnCode := 39;
elsif p_char = '+' then
lnCode := 40;
elsif p_char = '-' then
lnCode := 41;
elsif p_char = '.' then
lnCode := 42;
elsif p_char = '/' then
lnCode := 43;
elsif p_char = ':' then
lnCode := 44;
end if;
RETURN lnCode;
END f_get_code;
BEGIN
--encoded data regardless of mode always start with mode indicator and character count indicator
lcData := f_mode_indicator || f_char_count_indicator(p_data);
--data encoding - different for different modes
if gpnMode = cNumericMode then
LOOP
lcSub := substr(p_data, lnCounter, 3);
p_debug(lcSub, 2);
if length(lcSub) = 3 then
lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 10, '0');
elsif length(lcSub) = 2 then
lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 7, '0');
elsif length(lcSub) = 1 then
lcData := lcData || lpad(f_integer_2_binary( to_number(lcSub) ), 4, '0');
end if;
EXIT WHEN lnCounter >= length(p_data);
lnCounter := lnCounter + 3;
END LOOP;
elsif gpnMode = cAlphanumericMode then
LOOP
lcSub := substr(p_data, lnCounter, 2);
p_debug(lcSub, 2);
if length(lcSub) = 2 then
lcData := lcData || lpad(f_integer_2_binary( f_get_code(substr(lcSub, 1, 1)) * 45 + f_get_code(substr(lcSub, 2, 1)) ), 11, '0');
elsif length(lcSub) = 1 then
lcData := lcData || lpad(f_integer_2_binary( f_get_code(lcSub) ), 6, '0');
end if;
EXIT WHEN lnCounter >= length(p_data);
lnCounter := lnCounter + 2;
END LOOP;
elsif gpnMode = cByteMode then
FOR t IN 1 .. length(p_data) LOOP
lcChar := substr(p_data, t, 1);
lcData := lcData || lpad(f_integer_2_binary( ascii(lcChar) ), 8 * lengthb(lcChar), '0');
END LOOP;
elsif gpnMode = cKanjiMode then
--TODO for Kanji mode
null;
end if;
p_debug('Data without right padding (number of bits ' || length(lcData) || '): ' || lcData, 2);
--terminator zeros
lnReqNumOfBits := gprErrCorInfo(gpnVersion || '-' || p_error_correction).total_no_of_data_cw * 8;
p_debug('Required number of bits: ' || lnReqNumOfBits, 2);
p_debug('Terminator zeros to add: ' || (lnReqNumOfBits - lengthb(lcData)), 2);
if lnReqNumOfBits - lengthb(lcData) >= 4 then
lcData := lcData || '0000';
else
lcData := rpad(lcData, lnReqNumOfBits, '0');
end if;
p_debug('Data with right padding (number of bits ' || length(lcData) || '): ' || lcData, 2);
--additional right padding with 0 to reach a string length multiple of 8
LOOP
EXIT WHEN length(lcData) mod 8 = 0;
lcData := lcData || '0';
p_debug('Additional right padding zeros: 0', 2);
END LOOP;
--final filling of data with 11101100 and 00010001 alternatively until full length is reached
LOOP
EXIT WHEN length(lcData) = lnReqNumOfBits;
lcData := lcData || '11101100';
p_debug('Additional padding with: 11101100', 2);
EXIT WHEN length(lcData) = lnReqNumOfBits;
lcData := lcData || '00010001';
p_debug('Additional padding with: 00010001', 2);
END LOOP;
--debug
p_debug('Data (number of bits ' || length(lcData) || '): ' || lcData);
RETURN lcData;
END f_encode_data;
FUNCTION f_final_data_with_ec(
p_encoded_data varchar2,
p_error_correction varchar2) RETURN varchar2 IS
TYPE t_cw IS TABLE OF pls_integer;
TYPE r_block IS RECORD (cw t_cw);
TYPE t_block IS TABLE OF r_block INDEX BY varchar2(10);
lrBlock t_block;
lcVersionEC varchar2(10);
lcBlock varchar2(10);
lnCounter pls_integer := 1;
lcCW varchar2(8);
lnCW pls_integer;
lnGroups pls_integer;
lcDebug varchar2(10000);
lnReminderBits pls_integer := 0;
lcResult varchar2(32000);
FUNCTION f_blocks_in_group(p_group pls_integer) RETURN pls_integer IS
BEGIN
RETURN
CASE
WHEN p_group = 1 THEN gprErrCorInfo(lcVersionEC).blocks_in_g1
ELSE nvl(gprErrCorInfo(lcVersionEC).blocks_in_g2, 0)
END;
END;
FUNCTION f_cw_in_group(p_group pls_integer) RETURN pls_integer IS
BEGIN
RETURN
CASE
WHEN p_group = 1 THEN gprErrCorInfo(lcVersionEC).cw_in_g1
ELSE nvl(gprErrCorInfo(lcVersionEC).cw_in_g2, 0)
END;
END;
PROCEDURE p_add_cw_to_block(p_gb varchar2, p_cw pls_integer) IS
BEGIN
lrBlock(p_gb).cw.extend;
lrBlock(p_gb).cw(lrBlock(p_gb).cw.count) := p_cw;
END;
PROCEDURE p_debug_collection(
p_description varchar2,
p_collection t_cw,
p_level pls_integer default 1) IS
BEGIN
lcDebug := p_description;
FOR t IN p_collection.first .. p_collection.last LOOP
lcDebug := lcDebug || p_collection(t) || ', ';
END LOOP;
p_debug(rtrim(lcDebug, ', '), p_level);
END;
FUNCTION f_poly_divide(p_mess_poly t_cw, p_gen_poly t_cw) RETURN t_cw IS
lrEC t_cw := t_cw();
lrDivider t_cw := t_cw();
lrResult t_cw := t_cw();
lnAnti pls_integer;
BEGIN
--copy message polynomial to lrEC
lrEC := lrEc MULTISET UNION ALL p_mess_poly;
--To make sure that the exponent of the lead term doesn't become too small during the division
--multiply the message polynomial by xn where n is the number of error correction codewords that are needed
--so, we extend the collection and fill those elements with 0
lrEC.extend(p_gen_poly.count - 1);
FOR t IN REVERSE lrEC.first .. lrEC.last LOOP
EXIT WHEN lrEC(t) is not null;
lrEC(t) := 0;
END LOOP;
FOR t IN 1 .. p_mess_poly.count LOOP
p_debug('Step ' || t || ':', 2);
if lrEC(t) > 0 then
--Lead Term of the Message Polynomial (in first cycle) or result from previous cycle
--antilog is needed for multipilcation with generator polynomial (next step)
lnAnti := gprAntiLog( lrEC(t) );
p_debug('Lead Term of the Message Polynomial: ' || lrEC(t) || ' (antiLog ' || lnAnti || ')', 2);
--copy generator polynomial to lrDivider
lrDivider.delete;
lrDivider := lrDivider MULTISET UNION ALL p_gen_poly;
--Multiply the Generator Polynomial by the Lead Term of the Message Polynomial
--everything is happening in antilog - generator polynomial is already in antilog
--basicly we add two antilogs
FOR p IN 1 .. lrDivider.count LOOP
lrDivider(p) := lrDivider(p) + lnAnti;
if lrDivider(p) >= 255 then
lrDivider(p) := lrDivider(p) - 255;
end if;
END LOOP;
p_debug_collection(
'Generator polynomial multiplied with Lead Term antiLog (in antiLog): ',
lrDivider,
2);
--XOR the result with the message polynomial (first cycle) or result from previous cycle
--Message or result from previous cycle is already in log, so we convert generated polynomial from previous step into log
--leading terms, which are already 0 are discarded (index is "p + t - 1")
FOR p IN 1 .. lrDivider.count LOOP
lrEC(p + t - 1) := bitxor( lrEC(p + t - 1), gprLog(lrDivider(p)) );
END LOOP;
p_debug_collection(
'XOR the result with the message polynomial or result from previous cycle (in Log): ',
lrEC,
2);
else
p_debug('skipping this step and discarding next lead term 0...', 2);
end if;
END LOOP;
--last remaining elements are error correction codewords
FOR t IN lrEC.count - (p_gen_poly.count - 2) .. lrEC.count LOOP
lrResult.extend;
lrResult(lrResult.count) := lrEC(t);
END LOOP;
RETURN lrResult;
END;
BEGIN
--Version and EC Level
lcVersionEC := gpnVersion || '-' || p_error_correction;
p_debug('Version and EC Level: ' || lcVersionEC, 2);
--generator polynomial - init for all 13 possible options
--generator polynomial has the same structure as message polynomial (block) and so the same type is used
lrBlock('7').cw := t_cw(0, 87, 229, 146, 149, 238, 102, 21);
lrBlock('10').cw := t_cw(0, 251, 67, 46, 61, 118, 70, 64, 94, 32, 45);
lrBlock('13').cw := t_cw(0, 74, 152, 176, 100, 86, 100, 106, 104, 130, 218, 206, 140, 78);
lrBlock('15').cw := t_cw(0, 8, 183, 61, 91, 202, 37, 51, 58, 58, 237, 140, 124, 5, 99, 105);
lrBlock('16').cw := t_cw(0, 120, 104, 107, 109, 102, 161, 76, 3, 91, 191, 147, 169, 182, 194, 225, 120);
lrBlock('17').cw := t_cw(0, 43, 139, 206, 78, 43, 239, 123, 206, 214, 147, 24, 99, 150, 39, 243, 163, 136);
lrBlock('18').cw := t_cw(0, 215, 234, 158, 94, 184, 97, 118, 170, 79, 187, 152, 148, 252, 179, 5, 98, 96, 153);
lrBlock('20').cw := t_cw(0, 17, 60, 79, 50, 61, 163, 26, 187, 202, 180, 221, 225, 83, 239, 156, 164, 212, 212, 188, 190);
lrBlock('22').cw := t_cw(0, 210, 171, 247, 242, 93, 230, 14, 109, 221, 53, 200, 74, 8, 172, 98, 80, 219, 134, 160, 105, 165, 231);
lrBlock('24').cw := t_cw(0, 229, 121, 135, 48, 211, 117, 251, 126, 159, 180, 169, 152, 192, 226, 228, 218, 111, 0, 117, 232, 87, 96, 227, 21);
lrBlock('26').cw := t_cw(0, 173, 125, 158, 2, 103, 182, 118, 17, 145, 201, 111, 28, 165, 53, 161, 21, 245, 142, 13, 102, 48, 227, 153, 145, 218, 70);
lrBlock('28').cw := t_cw(0, 168, 223, 200, 104, 224, 234, 108, 180, 110, 190, 195, 147, 205, 27, 232, 201, 21, 43, 245, 87, 42, 195, 212, 119, 242, 37, 9, 123);
lrBlock('30').cw := t_cw(0, 41, 173, 145, 152, 216, 31, 179, 182, 50, 48, 110, 86, 239, 96, 222, 125, 42, 173, 226, 193, 224, 130, 156, 37, 251, 216, 238, 40, 192, 180);
--debug - Generator Polynomial used
p_debug_collection(
'Generator Polynomial (' || gprErrCorInfo(lcVersionEC).ec_cw_per_block || '): ',
lrBlock(gprErrCorInfo(lcVersionEC).ec_cw_per_block).cw,
2);
--how many groups
lnGroups := (CASE WHEN gprErrCorInfo(lcVersionEC).blocks_in_g2 is null THEN 1 ELSE 2 END);
--debug - number of groups and blocks in each group, number of codewords for each block in group
p_debug('Number of groups: ' || lnGroups, 2);
FOR gr IN 1 .. lnGroups LOOP
p_debug('Group ' || gr || ' - number of blocks in group: ' || f_blocks_in_group(gr), 2);
p_debug('Group ' || gr || ' - number of codewords in each block: ' || f_cw_in_group(gr), 2);
END LOOP;
--prepare message polynomial for each group and block (G1B1, G1B2 ... G2B1, G2B2...)
FOR gr IN 1 .. lnGroups LOOP
FOR blk IN 1 .. f_blocks_in_group(gr) LOOP
--init block
lcBlock := 'G' || gr || 'B' || blk;
lrBlock(lcBlock).cw := t_cw();
p_debug('Group ' || gr || ', block ' || blk || ' - message polynomial:', 2);
--fill block with data codewords (codewords are converted to decimal)
FOR cw IN 1 .. f_cw_in_group(gr) LOOP
lcCW := substr(p_encoded_data, lnCounter, 8);
lnCW := bin2dec(lcCW);
p_add_cw_to_block(lcBlock, lnCW);
p_debug('Codeword ' || cw || ': ' || lcCW || ' (' || lnCW || ')', 2);
lnCounter := lnCounter + 8;
END LOOP;
END LOOP;
END LOOP;
--calculate error correction data for each group and block (G1B1EC, G1B2EC... G2B1EC, G2B2EC...)
FOR gr IN 1 .. lnGroups LOOP
FOR blk IN 1 .. f_blocks_in_group(gr) LOOP
lrBlock('G' || gr || 'B' || blk || 'EC').cw := f_poly_divide(
lrBlock('G' || gr || 'B' || blk).cw, --message polynomial
lrBlock(gprErrCorInfo(lcVersionEC).ec_cw_per_block).cw --generator polynomial
);
p_debug_collection(
'Final error correction codewords for group ' || gr || ' and block ' || blk || ': ',
lrBlock('G' || gr || 'B' || blk || 'EC').cw,
2);
END LOOP;
END LOOP;
--structure final message (interleaving) - data codewords
lcDebug := 'Interleaved data codewords: ';
FOR cnt IN 1 .. greatest( f_cw_in_group(1), f_cw_in_group(2) ) LOOP
FOR gr IN 1 .. lnGroups LOOP
FOR blk IN 1 .. f_blocks_in_group(gr) LOOP
if lrBlock('G' || gr || 'B' || blk).cw.count >= cnt then
lcResult := lcResult || lpad(f_integer_2_binary( lrBlock('G' || gr || 'B' || blk).cw(cnt) ), 8, '0');
lcDebug := lcDebug || lrBlock('G' || gr || 'B' || blk).cw(cnt) || ', ';
end if;
END LOOP;
END LOOP;
END LOOP;
p_debug(rtrim(lcDebug, ', '), 2);
--structure final message (interleaving) - error correction codewords
lcDebug := 'Interleaved error correction codewords: ';
FOR cnt IN 1 .. gprErrCorInfo(lcVersionEC).ec_cw_per_block LOOP
FOR gr IN 1 .. lnGroups LOOP
FOR blk IN 1 .. f_blocks_in_group(gr) LOOP
lcResult := lcResult || lpad(f_integer_2_binary( lrBlock('G' || gr || 'B' || blk || 'EC').cw(cnt) ), 8, '0');
lcDebug := lcDebug || lrBlock('G' || gr || 'B' || blk || 'EC').cw(cnt) || ', ';
END LOOP;
END LOOP;
END LOOP;
p_debug(rtrim(lcDebug, ', '), 2);
--Add Remainder Bits for some QR versions, if necessary
lnReminderBits :=
CASE
WHEN gpnVersion between 2 and 6 THEN 7
WHEN gpnVersion between 21 and 27 THEN 4
WHEN gpnVersion between 14 and 20 or gpnVersion between 28 and 34 THEN 3
ELSE 0
END;
p_debug('Reminder bits: ' || lnReminderBits, 2);
if lnReminderBits > 0 then
lcResult := rpad(lcResult, length(lcResult) + lnReminderBits, '0');
end if;
p_debug('Final message (length ' || length(lcResult) || '): ' || lcResult);
RETURN lcResult;
END f_final_data_with_ec;
PROCEDURE p_place_fm_in_matrix(lcData varchar2) IS
lnColumn pls_integer;
lnRow pls_integer;
lnDirection pls_integer;
lnCounter pls_integer;
PROCEDURE p_set_module(p_column pls_integer, p_row pls_integer) IS
BEGIN
if gprMatrix(p_row)(p_column) is null then
gprMatrix(p_row)(p_column) := substr(lcData, lnCounter, 1);
lnCounter := lnCounter + 1;
end if;
END;
BEGIN
--staring values
lnColumn := f_matrix_size;
lnRow := f_matrix_size;
lnDirection := -1;
lnCounter := 1;
LOOP
EXIT WHEN lnColumn < 1;
--fill data in column
FOR t IN 1 .. f_matrix_size LOOP
p_set_module(lnColumn, lnRow);
p_set_module(lnColumn - 1, lnRow);
lnRow := lnRow + lnDirection;
END LOOP;
--change of direction
lnDirection := lnDirection * -1;
--first position for next column (because the last iteration of loop breached through matrix margine)
lnRow := lnRow + lnDirection;
--next column
lnColumn := lnColumn - 2;
--exception is vertical time pattern - if pattern is reached then column shifts to the first column on the left
if lnColumn = 7 then
lnColumn := 6;
end if;
END LOOP;
--debug filled matrix
p_debug('Matrix filled with final message (modules marked with dots are for format data; marked with stars are for version - those data will be filled in masking step):', 2);
p_dbms_output_matrix(gprMatrix, 2);
END;
PROCEDURE p_masking_format_version(p_error_correction varchar2) IS
TYPE t_format_version IS TABLE OF varchar2(20) INDEX BY varchar2(2);
lrFormat t_format_version;
lrVersion t_format_version;
lnR pls_integer;
lnC pls_integer;
PROCEDURE p_init_format_version IS
BEGIN
--init format
lrFormat('L0') := '111011111000100';
lrFormat('L1') := '111001011110011';
lrFormat('L2') := '111110110101010';
lrFormat('L3') := '111100010011101';
lrFormat('L4') := '110011000101111';
lrFormat('L5') := '110001100011000';
lrFormat('L6') := '110110001000001';
lrFormat('L7') := '110100101110110';
lrFormat('M0') := '101010000010010';
lrFormat('M1') := '101000100100101';
lrFormat('M2') := '101111001111100';
lrFormat('M3') := '101101101001011';
lrFormat('M4') := '100010111111001';
lrFormat('M5') := '100000011001110';
lrFormat('M6') := '100111110010111';
lrFormat('M7') := '100101010100000';
lrFormat('Q0') := '011010101011111';
lrFormat('Q1') := '011000001101000';
lrFormat('Q2') := '011111100110001';
lrFormat('Q3') := '011101000000110';
lrFormat('Q4') := '010010010110100';
lrFormat('Q5') := '010000110000011';
lrFormat('Q6') := '010111011011010';
lrFormat('Q7') := '010101111101101';
lrFormat('H0') := '001011010001001';
lrFormat('H1') := '001001110111110';
lrFormat('H2') := '001110011100111';
lrFormat('H3') := '001100111010000';
lrFormat('H4') := '000011101100010';
lrFormat('H5') := '000001001010101';
lrFormat('H6') := '000110100001100';
lrFormat('H7') := '000100000111011';
--init version
lrVersion('7') := '000111110010010100';
lrVersion('8') := '001000010110111100';
lrVersion('9') := '001001101010011001';
lrVersion('10') := '001010010011010011';
lrVersion('11') := '001011101111110110';
lrVersion('12') := '001100011101100010';
lrVersion('13') := '001101100001000111';
lrVersion('14') := '001110011000001101';
lrVersion('15') := '001111100100101000';
lrVersion('16') := '010000101101111000';
lrVersion('17') := '010001010001011101';
lrVersion('18') := '010010101000010111';
lrVersion('19') := '010011010100110010';
lrVersion('20') := '010100100110100110';
lrVersion('21') := '010101011010000011';
lrVersion('22') := '010110100011001001';
lrVersion('23') := '010111011111101100';
lrVersion('24') := '011000111011000100';
lrVersion('25') := '011001000111100001';
lrVersion('26') := '011010111110101011';
lrVersion('27') := '011011000010001110';
lrVersion('28') := '011100110000011010';
lrVersion('29') := '011101001100111111';
lrVersion('30') := '011110110101110101';
lrVersion('31') := '011111001001010000';
lrVersion('32') := '100000100111010101';
lrVersion('33') := '100001011011110000';
lrVersion('34') := '100010100010111010';
lrVersion('35') := '100011011110011111';
lrVersion('36') := '100100101100001011';
lrVersion('37') := '100101010000101110';
lrVersion('38') := '100110101001100100';
lrVersion('39') := '100111010101000001';
lrVersion('40') := '101000110001101001';
END p_init_format_version;
PROCEDURE p_format_version(p_mask pls_integer) IS
lcFormat varchar2(20);
lcVersion varchar2(20);
lnCounter pls_integer;
PROCEDURE p_set_module(
p_row pls_integer,
p_column pls_integer,
p_pos pls_integer,
p_format_version varchar2 --F for format and V for version
) IS
BEGIN
--modules are reserved and values 2 and 3 are set (not 0 and 1)
gprMasking(p_mask)(p_row)(p_column) :=
(CASE WHEN substr( (CASE WHEN p_format_version = 'F' THEN lcFormat ELSE lcVersion END), p_pos, 1) = '1' THEN '3' ELSE '2' END);
END;
BEGIN
--put format in matrix (for all 8 maskings)
lcFormat := lrFormat(p_error_correction || p_mask);
p_debug('Format for error correction ' || p_error_correction || ' and masking ' || p_mask || ': ' || lcFormat, 3);
--top left finder
p_set_module(9, 1, 1, 'F');
p_set_module(9, 2, 2, 'F');
p_set_module(9, 3, 3, 'F');
p_set_module(9, 4, 4, 'F');
p_set_module(9, 5, 5, 'F');
p_set_module(9, 6, 6, 'F');
p_set_module(9, 8, 7, 'F');
p_set_module(9, 9, 8, 'F');
p_set_module(8, 9, 9, 'F');
p_set_module(6, 9, 10, 'F');
p_set_module(5, 9, 11, 'F');
p_set_module(4, 9, 12, 'F');
p_set_module(3, 9, 13, 'F');
p_set_module(2, 9, 14, 'F');
p_set_module(1, 9, 15, 'F');
--lower left and top right finder
p_set_module(f_matrix_size, 9, 1, 'F');
p_set_module(f_matrix_size - 1, 9, 2, 'F');
p_set_module(f_matrix_size - 2, 9, 3, 'F');
p_set_module(f_matrix_size - 3, 9, 4, 'F');
p_set_module(f_matrix_size - 4, 9, 5, 'F');
p_set_module(f_matrix_size - 5, 9, 6, 'F');
p_set_module(f_matrix_size - 6, 9, 7, 'F');
p_set_module(9, f_matrix_size - 7, 8, 'F');
p_set_module(9, f_matrix_size - 6, 9, 'F');
p_set_module(9, f_matrix_size - 5, 10, 'F');
p_set_module(9, f_matrix_size - 4, 11, 'F');
p_set_module(9, f_matrix_size - 3, 12, 'F');
p_set_module(9, f_matrix_size - 2, 13, 'F');
p_set_module(9, f_matrix_size - 1, 14, 'F');
p_set_module(9, f_matrix_size, 15, 'F');
--put version in matrix (for 7 and higher)
if gpnVersion >= 7 then
lcVersion := lrVersion(gpnVersion);
p_debug('Version (' || gpnVersion || ') for matrix: ' || lcVersion, 3);
lnCounter := 1;
FOR c IN REVERSE 1 .. 6 LOOP
FOR r IN 8 .. 10 LOOP
--bottom left
p_set_module(f_matrix_size - r, c, lnCounter, 'V');
--top right
p_set_module(c, f_matrix_size - r, lnCounter, 'V');
lnCounter := lnCounter + 1;
END LOOP;
END LOOP;
else
p_debug('Version (' || gpnVersion || ') is not needed for matrix', 3);
end if;
END p_format_version;
BEGIN
--init format and version collection
p_init_format_version;
--copy matrix for 8 different maskings
FOR t IN 0 .. 7 LOOP
gprMasking(t) := t_column();
gprMasking(t) := gprMasking(t) MULTISET UNION ALL gprMatrix;
END LOOP;
--mask every copy with different masking
FOR t IN 0 .. 7 LOOP
FOR r IN 1 .. f_matrix_size LOOP
FOR c IN 1 .. f_matrix_size LOOP
--matrix (collection) in Oracle begins with 1
lnR := r - 1;
lnC := c - 1;
--masking is done only on data and error correction modules (matrix values 0 or 1 - other values are fixed)
if gprMasking(t)(r)(c) in ('1', '0') then
--mask patterns
if
(t=0 and (lnR + lnC) mod 2 = 0) or
(t=1 and lnR mod 2 = 0) or
(t=2 and lnC mod 3 = 0) or
(t=3 and (lnR + lnC) mod 3 = 0) or
(t=4 and (floor(lnR / 2) + floor(lnC / 3)) mod 2 = 0) or
(t=5 and ((lnR * lnC) mod 2) + ((lnR * lnC) mod 3) = 0) or
(t=6 and (((lnR * lnC) mod 2) + ((lnR * lnC) mod 3)) mod 2 = 0) or
(t=7 and (((lnR + lnC) mod 2) + ((lnR * lnC) mod 3)) mod 2 = 0) then
--switch black and white module
if gprMasking(t)(r)(c) = '1' then
gprMasking(t)(r)(c) := '0';
else
gprMasking(t)(r)(c) := '1';
end if;
end if;
end if;
END LOOP;
END LOOP;
p_format_version(t);
p_debug('Mask pattern ' || t || ':', 3);
p_dbms_output_matrix(gprMasking(t), 3);
p_debug('------------------------------------------------------------------------------------------', 3);
END LOOP;
--reserved fields marked with 2 and 3 are not necessary any more - change them to 0 and 1
FOR t IN 0 .. 7 LOOP
FOR r IN 1 .. f_matrix_size LOOP
FOR c IN 1 .. f_matrix_size LOOP
gprMasking(t)(r)(c) := CASE gprMasking(t)(r)(c) WHEN '3' THEN '1' WHEN '2' THEN '0' ELSE gprMasking(t)(r)(c) END;
END LOOP;
END LOOP;
END LOOP;
END p_masking_format_version;
PROCEDURE p_penalty_rules(p_masking_out pls_integer default null) IS
lnRule1 pls_integer;
lnRule2 pls_integer;
lnRule3 pls_integer;
lnRule4 pls_integer;
lnCounter pls_integer;
lcPattern varchar2(11);
lnPercent pls_integer;
lnLowestPenalty pls_integer;
lnChosenMasking pls_integer;
lnDebugTemp pls_integer;
BEGIN
--large initial values to be sure that first masking (0) is lower than those values
lnLowestPenalty := 100000000;
lnChosenMasking := 8;
--iterate through all 8 maskings, calculate penalty and find lowest penalty score
FOR t IN 0 .. 7 LOOP
--rule 1 - five or more same-colored modules in a row (or column)
lnRule1 := 0;
FOR r IN 1 .. f_matrix_size LOOP --horizontal direction
lnCounter := 1;
FOR c IN 2 .. f_matrix_size LOOP
if gprMasking(t)(r)(c) = gprMasking(t)(r)(c - 1) then
lnCounter := lnCounter + 1;
end if;
if gprMasking(t)(r)(c) <> gprMasking(t)(r)(c - 1) or c = f_matrix_size then
if lnCounter >= 5 then
lnRule1 := lnRule1 + 3 + (lnCounter - 5); --if 5 modules are the same color then penalty is 3 plus 1 for every additional module (4 for 6 modules...)
end if;
lnCounter := 1;
end if;
END LOOP;
END LOOP;
lnDebugTemp := lnRule1;
p_debug('Masking ' || t || ', rule 1 - horizontal direction: ' || lnRule1, 2);
FOR c IN 1 .. f_matrix_size LOOP --vertical direction
lnCounter := 1;
FOR r IN 2 .. f_matrix_size LOOP
if gprMasking(t)(r)(c) = gprMasking(t)(r - 1)(c) then
lnCounter := lnCounter + 1;
end if;
if gprMasking(t)(r)(c) <> gprMasking(t)(r - 1)(c) or r = f_matrix_size then
if lnCounter >= 5 then
lnRule1 := lnRule1 + 3 + (lnCounter - 5); --if 5 modules are the same color then penalty is 3 plus 1 for every additional module (4 for 6 modules...)
end if;
lnCounter := 1;
end if;
END LOOP;
END LOOP;
p_debug('Masking ' || t || ', rule 1 - vertical direction: ' || (lnRule1 - lnDebugTemp), 2);
p_debug('Masking ' || t || ', rule 1 - sum: ' || lnRule1, 2);
p_debug(' ', 2);
--rule 2 - areas of the same color that are 2x2 modules
lnRule2 := 0;
FOR r IN 1 .. f_matrix_size - 1 LOOP
FOR c IN 1 .. f_matrix_size - 1 LOOP
if
gprMasking(t)(r)(c) = gprMasking(t)(r + 1)(c) and
gprMasking(t)(r)(c) = gprMasking(t)(r)(c + 1) and
gprMasking(t)(r)(c) = gprMasking(t)(r + 1)(c + 1)
then
lnRule2 := lnRule2 + 3;
end if;
END LOOP;
END LOOP;
p_debug('Masking ' || t || ', rule 2 - sum: ' || lnRule2, 2);
p_debug(' ', 2);
--rule 3 - patterns of dark-light-dark-dark-dark-light-dark that have four light modules on either side (10111010000 or 00001011101)
lnRule3 := 0;
FOR r IN 1 .. f_matrix_size LOOP --horizontal direction
FOR c IN 1 .. f_matrix_size - 10 LOOP
lcPattern := null;
FOR p IN 0 .. 10 LOOP
lcPattern := lcPattern || gprMasking(t)(r)(c + p);
END LOOP;
if lcPattern in ('10111010000', '00001011101') then
p_debug(lcPattern || ' (horizontal) found in row ' || r || ' and column ' || c, 3);
lnRule3 := lnRule3 + 40;
end if;
END LOOP;
END LOOP;
lnDebugTemp := lnRule3;
p_debug('Masking ' || t || ', rule 3 - horizontal direction: ' || lnRule3, 2);
FOR c IN 1 .. f_matrix_size LOOP --horizontal direction
FOR r IN 1 .. f_matrix_size - 10 LOOP
lcPattern := null;
FOR p IN 0 .. 10 LOOP
lcPattern := lcPattern || gprMasking(t)(r + p)(c);
END LOOP;
if lcPattern in ('10111010000', '00001011101') then
p_debug(lcPattern || ' (vertical) found in row ' || r || ' and column ' || c, 3);
lnRule3 := lnRule3 + 40;
end if;
END LOOP;
END LOOP;
p_debug('Masking ' || t || ', rule 3 - vertical direction: ' || (lnRule3 - lnDebugTemp), 2);
p_debug('Masking ' || t || ', rule 3 - sum: ' || lnRule3, 2);
p_debug(' ', 2);
--rule 4 - ratio of light modules to dark modules
lnCounter := 0; --count dark modules
FOR r IN 1 .. f_matrix_size LOOP
FOR c IN 1 .. f_matrix_size LOOP
if gprMasking(t)(r)(c) = '1' then
lnCounter := lnCounter + 1;
end if;
END LOOP;
END LOOP;
lnPercent := trim(lnCounter * 100 / (f_matrix_size * f_matrix_size)); --calculate percent of dark modules
p_debug('Masking ' || t || ', rule 4 - total number of modules: ' || (f_matrix_size * f_matrix_size), 2);
p_debug('Masking ' || t || ', rule 4 - dark modules: ' || lnCounter, 2);
p_debug('Masking ' || t || ', rule 4 - % of dark modules: ' || lnPercent, 2);
LOOP --find lower multiple of 5
EXIT WHEN lnPercent mod 5 = 0;
lnPercent := lnPercent - 1;
END LOOP;
lnRule4 := least( --subtract 50 from lower and upper multiple of 5; take absolute value; use smallest value; multiply with 10
abs(lnPercent - 50) / 5,
abs(lnPercent + 5 - 50) / 5) * 10;
p_debug('Masking ' || t || ', rule 4 - value: ' || lnRule4, 2);
p_debug(' ', 2);
p_debug('Masking ' || t || ', final penalty value: ' || (lnRule1 + lnRule2 + lnRule3 + lnRule4), 2);
p_debug('-----------------------------------------', 2);
--check if penalty for current masking is lowest
if (lnRule1 + lnRule2 + lnRule3 + lnRule4) < lnLowestPenalty then
lnLowestPenalty := (lnRule1 + lnRule2 + lnRule3 + lnRule4);
lnChosenMasking := t;
end if;
END LOOP;
p_debug('Masking ' || lnChosenMasking || ' has lowest penalty of ' || lnLowestPenalty || ' and will be used for QR code matrix.', 2);
--copy the best masking into original matrix and use it as result of QR code calculation
--in case of debugging and selected masking output - use this value instead calculated and make an output
gprMatrix.delete;
gprMatrix := gprMatrix MULTISET UNION ALL gprMasking( nvl(p_masking_out, lnChosenMasking) );
END p_penalty_rules;
PROCEDURE p_generate_qr(
p_data varchar2,
p_error_correction varchar2,
p_debug boolean default false,
p_debug_level pls_integer default 1,
p_masking_out pls_integer default null
) IS
lcData varchar2(32000);
lcFinal varchar2(32000);
BEGIN
--global variables and tables, which has the same values during QR code generation
gpbDebug := p_debug;
gpnDebugLevel := p_debug_level;
gpnMode := f_get_mode(p_data);
gpnVersion := f_get_version(p_data, p_error_correction);
p_fill_err_cor;
p_fill_log_antilog;
--init matrix collection and fill static elements
--gpnVersion := 14; --only for debugging
p_init_matrix;
--OPERATIONAL PART
--encoded data with all parts (terminal zeros, padding bytes...)
lcData := f_encode_data(p_data, p_error_correction);
--final structured message (data plus error correction)
lcFinal := f_final_data_with_ec(lcData, p_error_correction);
--place final message in matrix
p_place_fm_in_matrix(lcFinal);
--masking; format and version info
p_masking_format_version(p_error_correction);
--Four Penalty Rules - choose which masking is the easiest to read and copy that masking in matrix variable
p_penalty_rules(p_masking_out);
END p_generate_qr;
FUNCTION f_matrix_2_vc2 RETURN varchar2 IS
lcQR varchar2(32727);
BEGIN
FOR t IN 1 .. gprMatrix.count LOOP
FOR p IN 1 .. gprMatrix.count LOOP
lcQR := lcQR || nvl(gprMatrix(t)(p), 'X');
END LOOP;
lcQR := lcQR || chr(10);
END LOOP;
RETURN lcQR;
END;
PROCEDURE p_generate_qr_data(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H (see bellow)
p_qr OUT NOCOPY varchar2, --generated QR code data in format row || newline (chr 10) || row || newline...; 1 for black module, 0 for white
p_matrix_size OUT pls_integer --matrix size in modules (21, 25, 29...)
) IS
BEGIN
--generate matrix
p_generate_qr(
p_data => p_data,
p_error_correction => p_error_correction,
p_debug => false,
p_debug_level => 1);
--convert matrix to vc2 (output)
p_qr := f_matrix_2_vc2;
--matrix size
p_matrix_size := f_matrix_size;
END p_generate_qr_data;
PROCEDURE p_qr_debug(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H (see bellow)
p_debug boolean default true, --should DBMS OUTPUT be printed
p_debug_level pls_integer default 1, --debug level (1, 2, 3...) - details to be printed in debug output
p_masking_out pls_integer default null,
p_qr OUT NOCOPY varchar2,
p_matrix_size OUT pls_integer
) IS
BEGIN
--generate matrix
p_generate_qr(
p_data => p_data,
p_error_correction => p_error_correction,
p_debug => p_debug,
p_debug_level => p_debug_level,
p_masking_out => p_masking_out);
--convert matrix to debug form
p_qr := f_matrix_2_vc2;
--matrix size
p_matrix_size := f_matrix_size;
END p_qr_debug;
FUNCTION f_qr_as_html_table(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_in_px pls_integer default 8, --module size in pixels
p_margines boolean default false --margines around QR code (4 modules)
) RETURN clob IS
lcQR varchar2(32727);
lnMatrixSize pls_integer;
lcClob clob;
PROCEDURE p_add_clob(lcText varchar2) IS
BEGIN
lcClob := lcClob || lcText || chr(10);
END;
BEGIN
if p_data is null then
lcClob := 'no data to display.';
RETURN lcClob;
end if;
p_generate_qr_data(
p_data => p_data,
p_error_correction => p_error_correction,
p_qr => lcQR,
p_matrix_size => lnMatrixSize
);
p_add_clob('<table style="border-collapse: collapse;">');
--columns (for column width defined in style - inline on page)
FOR t IN 1 .. lnMatrixSize + (CASE WHEN p_margines THEN 8 ELSE 0 END) LOOP
p_add_clob('<col style="width: ' || p_module_size_in_px || 'px;">');
END LOOP;
--top margine - 4 module rows
if p_margines then
FOR t in 1 .. 4 LOOP
p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;"><td style="background-color: #FFFFFF; padding: 0px 0px;"></td></tr>');
END LOOP;
end if;
FOR t IN 1 .. lnMatrixSize LOOP
--new row
p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;">');
--left margine - 4 modules
if p_margines then
FOR z in 1 .. 4 LOOP
p_add_clob('<td style="background-color: #FFFFFF; padding: 0px 0px;"></td>');
END LOOP;
end if;
--modules in row
FOR p IN 1 .. lnMatrixSize LOOP
p_add_clob('<td style="background-color: #' ||
(CASE
substr(lcQR, (t - 1) * (lnMatrixSize + 1) + p, 1)
WHEN '0' THEN 'FFFFFF'
ELSE '000000' END) ||
'; padding: 0px 0px;"></td>');
END LOOP;
--right margine - 4 modules
if p_margines then
FOR z in 1 .. 4 LOOP
p_add_clob('<td style="background-color: #FFFFFF; padding: 0px 0px;"></td>');
END LOOP;
end if;
p_add_clob('</tr>');
END LOOP;
--bottom margine - 4 module rows
if p_margines then
FOR t in 1 .. 4 LOOP
p_add_clob('<tr style="height: ' || p_module_size_in_px || 'px;"><td style="background-color: #FFFFFF; padding: 0px 0px;"></td></tr>');
END LOOP;
end if;
p_add_clob('</table>');
RETURN lcClob;
END f_qr_as_html_table;
PROCEDURE p_print_clob_htp(
p_clob IN OUT NOCOPY clob
) IS
lnFrom pls_integer := 1;
lnTo pls_integer;
BEGIN
LOOP
lnTo := instr(p_clob, chr(10), lnFrom);
if lnTo = 0 then
lnTo := length(p_clob);
end if;
htp.p(substr(p_clob, lnFrom, lnTo - lnFrom));
lnFrom := lnTo + 1;
EXIT WHEN lnTo = length(p_clob);
END LOOP;
END p_print_clob_htp;
PROCEDURE p_print_clob_htp_dbms_lob(
p_clob IN OUT NOCOPY clob
) IS
L_POSITION NUMBER;
L_LENGTH NUMBER;
L_BUFFER VARCHAR(8000 CHAR);
BEGIN
L_LENGTH := DBMS_LOB.GETLENGTH(p_clob);
L_POSITION := 1;
LOOP
EXIT WHEN L_POSITION > L_LENGTH ;
L_BUFFER := DBMS_LOB.SUBSTR(p_clob, 8000, L_POSITION);
HTP.PRN(L_BUFFER);
L_POSITION := L_POSITION + 8000;
END LOOP;
END p_print_clob_htp_dbms_lob;
PROCEDURE p_qr_as_html_table(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_in_px pls_integer default 8, --module size in pixels
p_margines boolean default false --margines around QR code (4 modules)
) IS
lcClob clob;
BEGIN
if p_data is null then
htp.p('no data to display.');
RETURN;
end if;
lcClob := f_qr_as_html_table(p_data, p_error_correction, p_module_size_in_px, p_margines);
p_print_clob_htp(lcClob);
/*
LOOP
lnTo := instr(lcClob, chr(10), lnFrom);
if lnTo = 0 then
lnTo := length(lcClob);
end if;
htp.p(substr(lcClob, lnFrom, lnTo - lnFrom));
lnFrom := lnTo + 1;
EXIT WHEN lnTo = length(lcClob);
END LOOP;
*/
END p_qr_as_html_table;
FUNCTION unsigned_short(s in pls_integer) RETURN raw IS
lrRet raw(4);
BEGIN
lrRet := UTL_RAW.reverse( UTL_RAW.cast_from_binary_integer(s) );
RETURN UTL_RAW.substr(lrRet, 1, 2);
END unsigned_short;
FUNCTION unsigned_int(i in pls_integer) RETURN raw IS
lrRet raw(4);
BEGIN
lrRet := UTL_RAW.reverse( UTL_RAW.cast_from_binary_integer(i) );
RETURN lrRet;
END unsigned_int;
FUNCTION f_qr_as_bmp(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_margines varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_foreground_color varchar2 default '000000', -- HEX representation of the RGB values of the foreground color
p_background_color varchar2 default 'FFFFFF'-- HEX representation of the RGB values of the background color
) RETURN blob IS
lcQR varchar2(32727);
lnMatrixSize pls_integer;
lnZeros pls_integer;
lnImageBytes pls_integer;
lnWidthHeight pls_integer;
lbBlob blob;
lrLine raw(500);
module_size CONSTANT PLS_INTEGER := 8; --BEFORE 8
module_size_2 CONSTANT PLS_INTEGER := 8; --BEFORE 8
BEGIN
--if no data passed then return null
if p_data is null then
return null;
end if;
p_generate_qr_data(
p_data => p_data,
p_error_correction => p_error_correction,
p_qr => lcQR,
p_matrix_size => lnMatrixSize
);
DBMS_OUTPUT.PUT_LINE('lnMatrixSize-'||lnMatrixSize); --AFZAL
--lnMatrixSize := 32;
DBMS_LOB.createTemporary(lbBlob, true);
--Header
lnWidthHeight := lnMatrixSize + (CASE WHEN p_margines = 'Y' THEN 8 ELSE 0 END);
lnImageBytes := lnWidthHeight * lnWidthHeight * module_size_2;
dbms_lob.append(lbBlob, utl_raw.cast_to_raw('BM')); -- Pos 0 - fixed
dbms_lob.append(lbBlob, unsigned_int(14 + 40 + module_size_2 + lnImageBytes)); -- Pos 2 - file size (62 as header size + data size + color pallete)
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 6, unused / reserved, value 0
dbms_lob.append(lbBlob, unsigned_int(14 + 40 + module_size_2)); -- Pos 10, offset to image data - header size + information size + color pallete
-- Information
dbms_lob.append(lbBlob, unsigned_int(40)); -- Pos 14 - size of information header (always 40)
dbms_lob.append(lbBlob, unsigned_int(lnWidthHeight * module_size_2)); -- Pos 18 - width
dbms_lob.append(lbBlob, unsigned_int(lnWidthHeight * module_size_2)); -- Pos 22 - height
dbms_lob.append(lbBlob, unsigned_short(1)); -- Pos 26, planes
dbms_lob.append(lbBlob, unsigned_short(1)); -- Pos 28, bits per pixel
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 30, no compression
dbms_lob.append(lbBlob, unsigned_int(lnImageBytes)); -- Pos 34 - image data size
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 38, x pixels/meter
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 42, y pixels/meter
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 46, Number of colors
dbms_lob.append(lbBlob, unsigned_int(0)); -- Pos 50, Important colors
--Colors
dbms_lob.append(lbBlob, unsigned_int(to_number(p_background_color, 'xxxxxx')));
dbms_lob.append(lbBlob, unsigned_int(to_number(p_foreground_color, 'xxxxxx')));
--Data
--zeros at the end of the scan line (scan line in bytes must be mod 4)
lnZeros := 0;
LOOP
EXIT WHEN (lnWidthHeight + lnZeros) mod 4 = 0;
lnZeros := lnZeros + 1;
END LOOP;
--bottom margine
if p_margines = 'Y' then
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);
FOR t IN 1 .. 32 LOOP
dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
end if;
--data for scan lines
FOR r IN REVERSE 1 .. lnMatrixSize LOOP
--first prepare scan line as raw data
if p_margines = 'Y' then
--left margine
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);
else
--no margines
lrLine := null;
end if;
--data from matrix
FOR c IN 1 .. lnMatrixSize LOOP
lrLine := lrLine || utl_raw.cast_to_raw(chr(
CASE WHEN substr(lcQR, (r - 1) * (lnMatrixSize + 1) + c, 1) = '1' THEN 255 ELSE 0 END
));
END LOOP;
--right margine
if p_margines = 'Y' then
lrLine := lrLine || utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);
end if;
--trailing zeroes (mod 4)
FOR c IN 1 .. lnZeros LOOP
lrLine := lrLine || utl_raw.cast_to_raw(chr(0));
END LOOP;
--8 scan lines in file because module is 8x8 pixels
--FOR t IN 1 .. 8 LOOP
FOR t IN 1 .. module_size LOOP --afzal
dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
END LOOP;
--top margine (4 modules)
if p_margines = 'Y' then
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);
FOR t IN 1 .. 32 LOOP
dbms_lob.append(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
end if;
RETURN lbBlob;
END f_qr_as_bmp;
FUNCTION f_qr_as_long_raw(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N
) RETURN long raw IS
lcQR varchar2(32727);
lnMatrixSize pls_integer;
lnZeros pls_integer;
lnImageBytes pls_integer;
lnWidthHeight pls_integer;
lbBlob long raw;
lrLine raw(500);
BEGIN
--if no data passed then return
if p_data is null then
return null;
end if;
p_generate_qr_data(
p_data => p_data,
p_error_correction => p_error_correction,
p_qr => lcQR,
p_matrix_size => lnMatrixSize
);
--Header
lnWidthHeight := lnMatrixSize + (CASE WHEN p_margines = 'Y' THEN 8 ELSE 0 END);
lnImageBytes := lnWidthHeight * lnWidthHeight * 8;
lbBlob := utl_raw.concat(lbBlob, utl_raw.cast_to_raw('BM')); -- Pos 0 - fixed
lbBlob := utl_raw.concat(lbBlob, unsigned_int(14 + 40 + 8 + lnImageBytes)); -- Pos 2 - file size (62 as header size + data size + color pallete)
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 6, unused / reserved, value 0
lbBlob := utl_raw.concat(lbBlob, unsigned_int(14 + 40 + 8)); -- Pos 10, offset to image data - header size + information size + color pallete
-- Information
lbBlob := utl_raw.concat(lbBlob, unsigned_int(40)); -- Pos 14 - size of information header (always 40)
lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnWidthHeight * 8)); -- Pos 18 - width
lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnWidthHeight * 8)); -- Pos 22 - height
lbBlob := utl_raw.concat(lbBlob, unsigned_short(1)); -- Pos 26, planes
lbBlob := utl_raw.concat(lbBlob, unsigned_short(1)); -- Pos 28, bits per pixel
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 30, no compression
lbBlob := utl_raw.concat(lbBlob, unsigned_int(lnImageBytes)); -- Pos 34 - image data size
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 38, x pixels/meter
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 42, y pixels/meter
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 46, Number of colors
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Pos 50, Important colors
--Colors
lbBlob := utl_raw.concat(lbBlob, unsigned_int(16777215)); -- White (FF FF FF 00)
lbBlob := utl_raw.concat(lbBlob, unsigned_int(0)); -- Black (00 00 00 00)
--Data
--zeros at the end of the scan line (scan line in bytes must be mod 4)
lnZeros := 0;
LOOP
EXIT WHEN (lnWidthHeight + lnZeros) mod 4 = 0;
lnZeros := lnZeros + 1;
END LOOP;
--bottom margine
if p_margines = 'Y' then
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);
FOR t IN 1 .. 32 LOOP
lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
end if;
--data for scan lines
FOR r IN REVERSE 1 .. lnMatrixSize LOOP
--first prepare scan line as raw data
if p_margines = 'Y' then
--left margine
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);
else
--no margines
lrLine := null;
end if;
--data from matrix
FOR c IN 1 .. lnMatrixSize LOOP
lrLine := lrLine || utl_raw.cast_to_raw(chr(
CASE WHEN substr(lcQR, (r - 1) * (lnMatrixSize + 1) + c, 1) = '1' THEN 255 ELSE 0 END
));
END LOOP;
--right margine
if p_margines = 'Y' then
lrLine := lrLine || utl_raw.copies( utl_raw.cast_to_raw(chr(0)), 4);
end if;
--trailing zeroes (mod 4)
FOR c IN 1 .. lnZeros LOOP
lrLine := lrLine || utl_raw.cast_to_raw(chr(0));
END LOOP;
--8 scan lines in file because module is 8x8 pixels
FOR t IN 1 .. 8 LOOP
lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
END LOOP;
--top margine (4 modules)
if p_margines = 'Y' then
lrLine := utl_raw.copies( utl_raw.cast_to_raw(chr(0)), lnWidthHeight + lnZeros);
FOR t IN 1 .. 32 LOOP
lbBlob := utl_raw.concat(lbBlob, utl_raw.substr(lrLine, 1, lnWidthHeight + lnZeros));
END LOOP;
end if;
RETURN lbBlob;
END f_qr_as_long_raw;
PROCEDURE p_qr_as_img_tag_base64(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_image_size_px pls_integer,
p_margines varchar2 default 'N' --margines around QR code (4 modules) - values Y or N
) IS
lbBlob blob;
l_step PLS_INTEGER := 12000; -- make sure you set a multiple of 3 not higher than 24573
BEGIN
lbBlob := f_qr_as_bmp(p_data, p_error_correction, p_margines);
htp.prn('<img src="data:image/bmp;base64, ');
FOR i IN 0 .. TRUNC((DBMS_LOB.getlength(lbBlob) - 1 )/l_step) LOOP
htp.prn( UTL_RAW.cast_to_varchar2(UTL_ENCODE.base64_encode(DBMS_LOB.substr(lbBlob, l_step, i * l_step + 1))) );
END LOOP;
htp.prn('" alt="qr code" width="' || p_image_size_px || 'px" height = "' || p_image_size_px || 'px" />');
END;
FUNCTION f_qr_as_svg(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_px pls_integer default 8, --modul size in pixels
p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)
p_background_color varchar2 default 'white',
p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels
p_logo_yn varchar2 default 'N',
p_logo_size_percent number default 20,
p_logo_image clob default null,
p_logo_back_rect_yn varchar2 default 'Y',
p_logo_back_rect_color varchar2 default 'white',
p_logo_back_rect_round_px pls_integer default 0,
p_logo_margine_px number default 5
) RETURN clob IS
lcQR varchar2(32727);
lnMatrixSize pls_integer;
lnCanvasSize pls_integer;
lnX pls_integer;
lnY pls_integer;
lcClob clob;
PROCEDURE p_add_clob(lcText varchar2) IS
BEGIN
lcClob := lcClob || lcText || chr(10);
END;
BEGIN
if p_data is null then
lcClob := 'no data to display.';
RETURN lcClob;
end if;
p_generate_qr_data(
p_data => p_data,
p_error_correction => p_error_correction,
p_qr => lcQR,
p_matrix_size => lnMatrixSize
);
--canvas size and top left coordinate of first module (dependent of margins parameter)
lnCanvasSize := (lnMatrixSize + (CASE WHEN p_margines_yn = 'Y' THEN 8 ELSE 0 END) ) * p_module_size_px;
lnX := CASE WHEN p_margines_yn = 'Y' THEN 4 * p_module_size_px ELSE 0 END;
lnY := lnX;
--init SVG tag
p_add_clob('<svg width="' || lnCanvasSize || '" height="' || lnCanvasSize || '" style="background-color: ' || nvl(p_background_color, 'white') || ';" xmlns="http://www.w3.org/2000/svg">');
--draw black modules (background is already white)
FOR t IN 1 .. length(lcQR) LOOP
if substr(lcQR, t, 1) = '1' then
p_add_clob('<rect x="' || lnX || '" y="' || lnY || '" width="' || p_module_size_px || '" height="' || p_module_size_px || '" fill="' || nvl(p_module_color, 'black') || '" ' || CASE WHEN p_module_rounded_px > 0 THEN 'rx="' || p_module_rounded_px || '"' ELSE null END || '/>');
lnX := lnX + p_module_size_px;
elsif substr(lcQR, t, 1) = chr(10) then
lnX := CASE WHEN p_margines_yn = 'Y' THEN 4 * p_module_size_px ELSE 0 END;
lnY := lnY + p_module_size_px;
else
lnX := lnX + p_module_size_px;
end if;
END LOOP;
--add logo (optional)
if p_logo_yn = 'Y' then
DECLARE
lnLogoBckWidth number;
lnLogoBckPos number;
lnLogoWidth number;
lnLogoPos number;
BEGIN
lnLogoBckWidth := round(lnMatrixSize * p_module_size_px * p_logo_size_percent / 100, 2);
lnLogoBckPos := (lnCanvasSize / 2) - (lnLogoBckWidth / 2);
lnLogoWidth := lnLogoBckWidth - p_logo_margine_px * 2;
lnLogoPos := lnLogoBckPos + p_logo_margine_px;
if p_logo_back_rect_yn = 'Y' then
p_add_clob('<rect x="0" y="0" width="' || lnLogoBckWidth || '" height="' || lnLogoBckWidth || '" fill="' || p_logo_back_rect_color || '" rx="' || p_logo_back_rect_round_px || '" transform="translate(' || lnLogoBckPos || ', ' || lnLogoBckPos || ')" />');
end if;
p_add_clob('<image x="' || lnLogoPos || '" y="' || lnLogoPos || '" width="' || lnLogoWidth || '" height="' || lnLogoWidth || '" href="' || p_logo_image || '" />');
END;
end if;
--finish SVG
p_add_clob('</svg>');
RETURN lcClob;
END f_qr_as_svg;
PROCEDURE p_qr_as_svg(
p_data varchar2, --data going to be encoded into QR code
p_error_correction varchar2, --L, M, Q or H
p_module_size_px pls_integer default 8, --modul size in pixels
p_margines_yn varchar2 default 'N', --margines around QR code (4 modules) - values Y or N
p_module_color varchar2 default 'black', --colors are defined as SVG named colors OR rgb (with # or rgb function)
p_background_color varchar2 default 'white',
p_module_rounded_px pls_integer default 0, --0 - sharp corners; > 0 - rounded in pixels
p_logo_yn varchar2 default 'N',
p_logo_size_percent number default 20,
p_logo_image clob default null,
p_logo_back_rect_yn varchar2 default 'Y',
p_logo_back_rect_color varchar2 default 'white',
p_logo_back_rect_round_px pls_integer default 0,
p_logo_margine_px number default 5
) IS
lcClob clob;
BEGIN
lcClob := ZT_QR.f_qr_as_svg(
p_data => p_data,
p_error_correction => p_error_correction,
p_margines_yn => p_margines_yn,
p_module_size_px => p_module_size_px,
p_module_color => p_module_color,
p_background_color => p_background_color,
p_module_rounded_px => p_module_rounded_px,
p_logo_yn => p_logo_yn,
p_logo_size_percent => p_logo_size_percent,
p_logo_image => p_logo_image,
p_logo_back_rect_yn => p_logo_back_rect_yn,
p_logo_back_rect_color => p_logo_back_rect_color,
p_logo_back_rect_round_px => p_logo_back_rect_round_px,
p_logo_margine_px => p_logo_margine_px
);
p_print_clob_htp(lcClob);
END p_qr_as_svg;
PROCEDURE p_save_file(
p_document blob,
p_file_name varchar2,
p_folder varchar2
) IS
lfFile utl_file.file_type;
lnLen pls_integer := 32767;
BEGIN
lfFile := utl_file.fopen(p_folder, p_file_name, 'wb');
FOR i in 0 .. trunc( (dbms_lob.getlength(p_document) - 1 ) / lnLen ) LOOP
utl_file.put_raw(lfFile, dbms_lob.substr(p_document, lnLen, i * lnLen + 1));
END LOOP;
utl_file.fclose(lfFile);
END;
/* create this java class separately
-- Create a Java class to handle PNG conversion
CREATE OR REPLACE AND COMPILE JAVA SOURCE NAMED "QRCodePNGUtil" AS
import java.awt.*;
import java.awt.image.*;
import java.io.*;
import javax.imageio.*;
import oracle.sql.*;
public class QRCodePNGUtil {
public static BLOB convertBMPtoPNG(BLOB bmpBlob, int scaleFactor) throws Exception {
try {
// Convert Oracle BLOB to byte array
byte[] bmpBytes = bmpBlob.getBytes(1, (int)bmpBlob.length());
// Convert byte array to BufferedImage
ByteArrayInputStream bais = new ByteArrayInputStream(bmpBytes);
BufferedImage bmpImage = ImageIO.read(bais);
// Scale the image
int newWidth = bmpImage.getWidth() * scaleFactor;
int newHeight = bmpImage.getHeight() * scaleFactor;
BufferedImage scaledImage = new BufferedImage(newWidth, newHeight, BufferedImage.TYPE_INT_ARGB);
Graphics2D g = scaledImage.createGraphics();
g.setRenderingHint(RenderingHints.KEY_INTERPOLATION, RenderingHints.VALUE_INTERPOLATION_NEAREST_NEIGHBOR);
g.drawImage(bmpImage, 0, 0, newWidth, newHeight, null);
g.dispose();
// Convert to PNG
ByteArrayOutputStream baos = new ByteArrayOutputStream();
ImageIO.write(scaledImage, "PNG", baos);
byte[] pngBytes = baos.toByteArray();
// Convert back to Oracle BLOB
BLOB pngBlob = BLOB.createTemporary(bmpBlob.getConnection(), false, BLOB.DURATION_SESSION);
pngBlob.setBytes(1, pngBytes);
return pngBlob;
} catch (Exception e) {
throw new Exception("Error converting BMP to PNG: " + e.getMessage());
}
}
}
*/
-- Create PL/SQL wrapper for the Java method
FUNCTION convert_bmp_to_png(
p_bmp_blob BLOB,
p_scale_factor NUMBER-- DEFAULT 1
) RETURN BLOB AS
LANGUAGE JAVA NAME 'QRCodePNGUtil.convertBMPtoPNG(oracle.sql.BLOB, int) return oracle.sql.BLOB';
--SELECT f_qr_as_png('https://google.com', 'H', 'N', '000000', 'FFFFFF', 10) FROM DUAL;
FUNCTION f_qr_as_png(
p_data VARCHAR2,
p_error_correction VARCHAR2, -- L, M, Q or H
p_margines VARCHAR2 DEFAULT 'N', -- Y or N
p_foreground_color VARCHAR2 DEFAULT '000000',
p_background_color VARCHAR2 DEFAULT 'FFFFFF',
p_scale_factor NUMBER DEFAULT 10 -- New parameter for scaling
) RETURN BLOB IS
lbBmp BLOB;
lbPng BLOB;
BEGIN
-- First generate the QR code as BMP (using original module size 8)
lbBmp := ZT_QR.f_qr_as_bmp(
p_data => p_data,
p_error_correction => p_error_correction,
p_margines => p_margines,
p_foreground_color => p_foreground_color,
p_background_color => p_background_color
);
-- Convert to PNG with scaling
lbPng := convert_bmp_to_png(lbBmp, p_scale_factor);
-- Free temporary BMP blob
DBMS_LOB.FREETEMPORARY(lbBmp);
RETURN lbPng;
EXCEPTION
WHEN OTHERS THEN
IF DBMS_LOB.ISTEMPORARY(lbBmp) = 1 THEN
DBMS_LOB.FREETEMPORARY(lbBmp);
END IF;
RAISE;
END f_qr_as_png;
END ZT_QR;
/
Knows issues:
if the QR code image is small, then the output pdf is blur/not readable format.
so added new function f_qr_as_png to get the image larger and fixed the issue.
