aboutsummaryrefslogtreecommitdiffhomepage
path: root/inc/3rdparty/libraries/mpdf/classes/barcode.php
diff options
context:
space:
mode:
Diffstat (limited to 'inc/3rdparty/libraries/mpdf/classes/barcode.php')
-rw-r--r--inc/3rdparty/libraries/mpdf/classes/barcode.php1966
1 files changed, 0 insertions, 1966 deletions
diff --git a/inc/3rdparty/libraries/mpdf/classes/barcode.php b/inc/3rdparty/libraries/mpdf/classes/barcode.php
deleted file mode 100644
index 9a230f0e..00000000
--- a/inc/3rdparty/libraries/mpdf/classes/barcode.php
+++ /dev/null
@@ -1,1966 +0,0 @@
1<?php
2
3// Adapted for mPDF from TCPDF barcode. Original Details left below.
4
5//============================================================+
6// File name : barcodes.php
7// Begin : 2008-06-09
8// Last Update : 2009-04-15
9// Version : 1.0.008
10// License : GNU LGPL (http://www.gnu.org/copyleft/lesser.html)
11// ----------------------------------------------------------------------------
12// Copyright (C) 2008-2009 Nicola Asuni - Tecnick.com S.r.l.
13//
14// This program is free software: you can redistribute it and/or modify
15// it under the terms of the GNU Lesser General Public License as published by
16// the Free Software Foundation, either version 2.1 of the License, or
17// (at your option) any later version.
18//
19// This program is distributed in the hope that it will be useful,
20// but WITHOUT ANY WARRANTY; without even the implied warranty of
21// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22// GNU Lesser General Public License for more details.
23//
24// You should have received a copy of the GNU Lesser General Public License
25// along with this program. If not, see <http://www.gnu.org/licenses/>.
26//
27// See LICENSE.TXT file for more information.
28// ----------------------------------------------------------------------------
29//
30// Description : PHP class to creates array representations for
31// common 1D barcodes to be used with TCPDF.
32//
33// Author: Nicola Asuni
34//
35// (c) Copyright:
36// Nicola Asuni
37// Tecnick.com S.r.l.
38// Via della Pace, 11
39// 09044 Quartucciu (CA)
40// ITALY
41// www.tecnick.com
42// info@tecnick.com
43//============================================================+
44
45class PDFBarcode {
46
47 protected $barcode_array;
48 protected $gapwidth;
49 protected $print_ratio;
50 protected $daft;
51
52 public function __construct() {
53
54 }
55
56 public function getBarcodeArray($code, $type, $pr='') {
57 $this->setBarcode($code, $type, $pr);
58 return $this->barcode_array;
59 }
60 public function getChecksum($code, $type) {
61 $this->setBarcode($code, $type);
62 if (!$this->barcode_array) { return ''; }
63 else { return $this->barcode_array['checkdigit']; }
64 }
65
66 public function setBarcode($code, $type, $pr='') {
67 $this->print_ratio = 1;
68 switch (strtoupper($type)) {
69 case 'ISBN':
70 case 'ISSN':
71 case 'EAN13': { // EAN 13
72 $arrcode = $this->barcode_eanupc($code, 13);
73 $arrcode['lightmL'] = 11; // LEFT light margin = x X-dim (http://www.gs1uk.org)
74 $arrcode['lightmR'] = 7; // RIGHT light margin = x X-dim (http://www.gs1uk.org)
75 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
76 $arrcode['nom-H'] = 25.93; // Nominal bar height in mm incl. numerals (http://www.gs1uk.org)
77 break;
78 }
79 case 'UPCA': { // UPC-A
80 $arrcode = $this->barcode_eanupc($code, 12);
81 $arrcode['lightmL'] = 9; // LEFT light margin = x X-dim (http://www.gs1uk.org)
82 $arrcode['lightmR'] = 9; // RIGHT light margin = x X-dim (http://www.gs1uk.org)
83 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
84 $arrcode['nom-H'] = 25.91; // Nominal bar height in mm incl. numerals (http://www.gs1uk.org)
85 break;
86 }
87 case 'UPCE': { // UPC-E
88 $arrcode = $this->barcode_eanupc($code, 6);
89 $arrcode['lightmL'] = 9; // LEFT light margin = x X-dim (http://www.gs1uk.org)
90 $arrcode['lightmR'] = 7; // RIGHT light margin = x X-dim (http://www.gs1uk.org)
91 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
92 $arrcode['nom-H'] = 25.93; // Nominal bar height in mm incl. numerals (http://www.gs1uk.org)
93 break;
94 }
95 case 'EAN8': { // EAN 8
96 $arrcode = $this->barcode_eanupc($code, 8);
97 $arrcode['lightmL'] = 7; // LEFT light margin = x X-dim (http://www.gs1uk.org)
98 $arrcode['lightmR'] = 7; // RIGHT light margin = x X-dim (http://www.gs1uk.org)
99 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
100 $arrcode['nom-H'] = 21.64; // Nominal bar height in mm incl. numerals (http://www.gs1uk.org)
101 break;
102 }
103 case 'EAN2': { // 2-Digits UPC-Based Extention
104 $arrcode = $this->barcode_eanext($code, 2);
105 $arrcode['lightmL'] = 7; // LEFT light margin = x X-dim (estimated)
106 $arrcode['lightmR'] = 7; // RIGHT light margin = x X-dim (estimated)
107 $arrcode['sepM'] = 9; // SEPARATION margin = x X-dim (http://web.archive.org/web/19990501035133/http://www.uc-council.org/d36-d.htm)
108 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
109 $arrcode['nom-H'] = 20; // Nominal bar height in mm incl. numerals (estimated) not used when combined
110 break;
111 }
112 case 'EAN5': { // 5-Digits UPC-Based Extention
113 $arrcode = $this->barcode_eanext($code, 5);
114 $arrcode['lightmL'] = 7; // LEFT light margin = x X-dim (estimated)
115 $arrcode['lightmR'] = 7; // RIGHT light margin = x X-dim (estimated)
116 $arrcode['sepM'] = 9; // SEPARATION margin = x X-dim (http://web.archive.org/web/19990501035133/http://www.uc-council.org/d36-d.htm)
117 $arrcode['nom-X'] = 0.33; // Nominal value for X-dim in mm (http://www.gs1uk.org)
118 $arrcode['nom-H'] = 20; // Nominal bar height in mm incl. numerals (estimated) not used when combined
119 break;
120 }
121
122 case 'IMB': { // IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
123 $xdim = 0.508; // Nominal value for X-dim (bar width) in mm (spec.)
124 $bpi = 22; // Bars per inch
125 // Ratio of Nominal value for width of spaces in mm / Nominal value for X-dim (bar width) in mm based on bars per inch
126 $this->gapwidth = ((25.4/$bpi) - $xdim)/$xdim;
127 $this->daft = array('D'=>2, 'A'=>2, 'F'=>3, 'T'=>1); // Descender; Ascender; Full; Tracker bar heights
128 $arrcode = $this->barcode_imb($code);
129 $arrcode['nom-X'] = $xdim ;
130 $arrcode['nom-H'] = 3.68; // Nominal value for Height of Full bar in mm (spec.)
131 // USPS-B-3200 Revision C = 4.623
132 // USPS-B-3200 Revision E = 3.68
133 $arrcode['quietL'] = 3.175; // LEFT Quiet margin = mm (spec.)
134 $arrcode['quietR'] = 3.175; // RIGHT Quiet margin = mm (spec.)
135 $arrcode['quietTB'] = 0.711; // TOP/BOTTOM Quiet margin = mm (spec.)
136 break;
137 }
138 case 'RM4SCC': { // RM4SCC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
139 $xdim = 0.508; // Nominal value for X-dim (bar width) in mm (spec.)
140 $bpi = 22; // Bars per inch
141 // Ratio of Nominal value for width of spaces in mm / Nominal value for X-dim (bar width) in mm based on bars per inch
142 $this->gapwidth = ((25.4/$bpi) - $xdim)/$xdim;
143 $this->daft = array('D'=>5, 'A'=>5, 'F'=>8, 'T'=>2); // Descender; Ascender; Full; Tracker bar heights
144 $arrcode = $this->barcode_rm4scc($code, false);
145 $arrcode['nom-X'] = $xdim ;
146 $arrcode['nom-H'] = 5.0; // Nominal value for Height of Full bar in mm (spec.)
147 $arrcode['quietL'] = 2; // LEFT Quiet margin = mm (spec.)
148 $arrcode['quietR'] = 2; // RIGHT Quiet margin = mm (spec.)
149 $arrcode['quietTB'] = 2; // TOP/BOTTOM Quiet margin = mm (spec?)
150 break;
151 }
152 case 'KIX': { // KIX (Klant index - Customer index)
153 $xdim = 0.508; // Nominal value for X-dim (bar width) in mm (spec.)
154 $bpi = 22; // Bars per inch
155 // Ratio of Nominal value for width of spaces in mm / Nominal value for X-dim (bar width) in mm based on bars per inch
156 $this->gapwidth = ((25.4/$bpi) - $xdim)/$xdim;
157 $this->daft = array('D'=>5, 'A'=>5, 'F'=>8, 'T'=>2); // Descender; Ascender; Full; Tracker bar heights
158 $arrcode = $this->barcode_rm4scc($code, true);
159 $arrcode['nom-X'] = $xdim ;
160 $arrcode['nom-H'] = 5.0; // Nominal value for Height of Full bar in mm (? spec.)
161 $arrcode['quietL'] = 2; // LEFT Quiet margin = mm (spec.)
162 $arrcode['quietR'] = 2; // RIGHT Quiet margin = mm (spec.)
163 $arrcode['quietTB'] = 2; // TOP/BOTTOM Quiet margin = mm (spec.)
164 break;
165 }
166 case 'POSTNET': { // POSTNET
167 $xdim = 0.508; // Nominal value for X-dim (bar width) in mm (spec.)
168 $bpi = 22; // Bars per inch
169 // Ratio of Nominal value for width of spaces in mm / Nominal value for X-dim (bar width) in mm based on bars per inch
170 $this->gapwidth = ((25.4/$bpi) - $xdim)/$xdim;
171 $arrcode = $this->barcode_postnet($code, false);
172 $arrcode['nom-X'] = $xdim ;
173 $arrcode['nom-H'] = 3.175; // Nominal value for Height of Full bar in mm (spec.)
174 $arrcode['quietL'] = 3.175; // LEFT Quiet margin = mm (?spec.)
175 $arrcode['quietR'] = 3.175; // RIGHT Quiet margin = mm (?spec.)
176 $arrcode['quietTB'] = 1.016; // TOP/BOTTOM Quiet margin = mm (?spec.)
177 break;
178 }
179 case 'PLANET': { // PLANET
180 $xdim = 0.508; // Nominal value for X-dim (bar width) in mm (spec.)
181 $bpi = 22; // Bars per inch
182 // Ratio of Nominal value for width of spaces in mm / Nominal value for X-dim (bar width) in mm based on bars per inch
183 $this->gapwidth = ((25.4/$bpi) - $xdim)/$xdim;
184 $arrcode = $this->barcode_postnet($code, true);
185 $arrcode['nom-X'] = $xdim ;
186 $arrcode['nom-H'] = 3.175; // Nominal value for Height of Full bar in mm (spec.)
187 $arrcode['quietL'] = 3.175; // LEFT Quiet margin = mm (?spec.)
188 $arrcode['quietR'] = 3.175; // RIGHT Quiet margin = mm (?spec.)
189 $arrcode['quietTB'] = 1.016; // TOP/BOTTOM Quiet margin = mm (?spec.)
190 break;
191 }
192
193 case 'C93': { // CODE 93 - USS-93
194 $arrcode = $this->barcode_code93($code);
195 if ($arrcode == false) { break; }
196 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
197 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
198 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
199 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
200 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
201 break;
202 }
203 case 'CODE11': { // CODE 11
204 if ($pr > 0) { $this->print_ratio = $pr; }
205 else { $this->print_ratio = 3; } // spec: Pr= 1:2.24 - 1:3.5
206 $arrcode = $this->barcode_code11($code);
207 if ($arrcode == false) { break; }
208 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
209 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
210 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
211 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
212 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
213 break;
214 }
215 case 'MSI': // MSI (Variation of Plessey code)
216 case 'MSI+': { // MSI + CHECKSUM (modulo 11)
217 if (strtoupper($type)=='MSI') { $arrcode = $this->barcode_msi($code, false); }
218 if (strtoupper($type)=='MSI+') { $arrcode = $this->barcode_msi($code, true); }
219 if ($arrcode == false) { break; }
220 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
221 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
222 $arrcode['lightmL'] = 12; // LEFT light margin = x X-dim (spec.)
223 $arrcode['lightmR'] = 12; // RIGHT light margin = x X-dim (spec.)
224 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
225 break;
226 }
227 case 'CODABAR': { // CODABAR
228 if ($pr > 0) { $this->print_ratio = $pr; }
229 else { $this->print_ratio = 2.5; } // spec: Pr= 1:2 - 1:3 (>2.2 if X<0.50)
230 if (strtoupper($type)=='CODABAR') { $arrcode = $this->barcode_codabar($code); }
231 if ($arrcode == false) { break; }
232 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
233 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
234 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
235 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
236 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
237 break;
238 }
239 case 'C128A': // CODE 128 A
240 case 'C128B': // CODE 128 B
241 case 'C128C': // CODE 128 C
242 case 'EAN128A': // EAN 128 A
243 case 'EAN128B': // EAN 128 B
244 case 'EAN128C': { // EAN 128 C
245 if (strtoupper($type)=='C128A') { $arrcode = $this->barcode_c128($code, 'A'); }
246 if (strtoupper($type)=='C128B') { $arrcode = $this->barcode_c128($code, 'B'); }
247 if (strtoupper($type)=='C128C') { $arrcode = $this->barcode_c128($code, 'C'); }
248 if (strtoupper($type)=='EAN128A') { $arrcode = $this->barcode_c128($code, 'A', true); }
249 if (strtoupper($type)=='EAN128B') { $arrcode = $this->barcode_c128($code, 'B', true); }
250 if (strtoupper($type)=='EAN128C') { $arrcode = $this->barcode_c128($code, 'C', true); }
251 if ($arrcode == false) { break; }
252 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
253 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
254 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
255 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
256 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
257 break;
258 }
259 case 'C39': // CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
260 case 'C39+': // CODE 39 with checksum
261 case 'C39E': // CODE 39 EXTENDED
262 case 'C39E+': { // CODE 39 EXTENDED + CHECKSUM
263 if ($pr > 0) { $this->print_ratio = $pr; }
264 else { $this->print_ratio = 2.5; } // spec: Pr= 1:2 - 1:3 (>2.2 if X<0.50)
265 $code = str_replace(chr(194).chr(160), ' ', $code); // mPDF 5.3.95 (for utf-8 encoded)
266 $code = str_replace(chr(160), ' ', $code); // mPDF 5.3.95 (for win-1252)
267 if (strtoupper($type)=='C39') { $arrcode = $this->barcode_code39($code, false, false); }
268 if (strtoupper($type)=='C39+') { $arrcode = $this->barcode_code39($code, false, true); }
269 if (strtoupper($type)=='C39E') { $arrcode = $this->barcode_code39($code, true, false); }
270 if (strtoupper($type)=='C39E+') { $arrcode = $this->barcode_code39($code, true, true); }
271 if ($arrcode == false) { break; }
272 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
273 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
274 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
275 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
276 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
277 break;
278 }
279 case 'S25': // Standard 2 of 5
280 case 'S25+': { // Standard 2 of 5 + CHECKSUM
281 if ($pr > 0) { $this->print_ratio = $pr; }
282 else { $this->print_ratio = 3; } // spec: Pr=1:3/1:4.5
283 if (strtoupper($type)=='S25') { $arrcode = $this->barcode_s25($code, false); }
284 if (strtoupper($type)=='S25+') { $arrcode = $this->barcode_s25($code, true); }
285 if ($arrcode == false) { break; }
286 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
287 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
288 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
289 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
290 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
291 break;
292 }
293 case 'I25': // Interleaved 2 of 5
294 case 'I25+': { // Interleaved 2 of 5 + CHECKSUM
295 if ($pr > 0) { $this->print_ratio = $pr; }
296 else { $this->print_ratio = 2.5; } // spec: Pr= 1:2 - 1:3 (>2.2 if X<0.50)
297 if (strtoupper($type)=='I25') { $arrcode = $this->barcode_i25($code, false); }
298 if (strtoupper($type)=='I25+') { $arrcode = $this->barcode_i25($code, true); }
299 if ($arrcode == false) { break; }
300 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
301 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
302 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
303 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
304 $arrcode['lightTB'] = 0; // TOP/BOTTOM light margin = x X-dim (non-spec.)
305 break;
306 }
307 case 'I25B': // Interleaved 2 of 5 + Bearer bars
308 case 'I25B+': { // Interleaved 2 of 5 + CHECKSUM + Bearer bars
309 if ($pr > 0) { $this->print_ratio = $pr; }
310 else { $this->print_ratio = 2.5; } // spec: Pr= 1:2 - 1:3 (>2.2 if X<0.50)
311 if (strtoupper($type)=='I25B') { $arrcode = $this->barcode_i25($code, false); }
312 if (strtoupper($type)=='I25B+') { $arrcode = $this->barcode_i25($code, true); }
313 if ($arrcode == false) { break; }
314 $arrcode['nom-X'] = 0.381; // Nominal value for X-dim (bar width) in mm (2 X min. spec.)
315 $arrcode['nom-H'] = 10; // Nominal value for Height of Full bar in mm (non-spec.)
316 $arrcode['lightmL'] = 10; // LEFT light margin = x X-dim (spec.)
317 $arrcode['lightmR'] = 10; // RIGHT light margin = x X-dim (spec.)
318 $arrcode['lightTB'] = 2; // TOP/BOTTOM light margin = x X-dim (non-spec.) - used for bearer bars
319 break;
320 }
321 default: {
322 $this->barcode_array = false;
323 }
324 }
325 $this->barcode_array = $arrcode;
326 }
327
328 /**
329 * CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
330 */
331 protected function barcode_code39($code, $extended=false, $checksum=false) {
332 $chr['0'] = '111221211';
333 $chr['1'] = '211211112';
334 $chr['2'] = '112211112';
335 $chr['3'] = '212211111';
336 $chr['4'] = '111221112';
337 $chr['5'] = '211221111';
338 $chr['6'] = '112221111';
339 $chr['7'] = '111211212';
340 $chr['8'] = '211211211';
341 $chr['9'] = '112211211';
342 $chr['A'] = '211112112';
343 $chr['B'] = '112112112';
344 $chr['C'] = '212112111';
345 $chr['D'] = '111122112';
346 $chr['E'] = '211122111';
347 $chr['F'] = '112122111';
348 $chr['G'] = '111112212';
349 $chr['H'] = '211112211';
350 $chr['I'] = '112112211';
351 $chr['J'] = '111122211';
352 $chr['K'] = '211111122';
353 $chr['L'] = '112111122';
354 $chr['M'] = '212111121';
355 $chr['N'] = '111121122';
356 $chr['O'] = '211121121';
357 $chr['P'] = '112121121';
358 $chr['Q'] = '111111222';
359 $chr['R'] = '211111221';
360 $chr['S'] = '112111221';
361 $chr['T'] = '111121221';
362 $chr['U'] = '221111112';
363 $chr['V'] = '122111112';
364 $chr['W'] = '222111111';
365 $chr['X'] = '121121112';
366 $chr['Y'] = '221121111';
367 $chr['Z'] = '122121111';
368 $chr['-'] = '121111212';
369 $chr['.'] = '221111211';
370 $chr[' '] = '122111211';
371 $chr['$'] = '121212111';
372 $chr['/'] = '121211121';
373 $chr['+'] = '121112121';
374 $chr['%'] = '111212121';
375 $chr['*'] = '121121211';
376
377 $code = strtoupper($code);
378 if ($extended) {
379 // extended mode
380 $code = $this->encode_code39_ext($code);
381 }
382 if ($code === false) {
383 return false;
384 }
385 if ($checksum) {
386 // checksum
387 $checkdigit = $this->checksum_code39($code);
388 $code .= $checkdigit ;
389 }
390 // add start and stop codes
391 $code = '*'.$code.'*';
392
393 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
394 $k = 0;
395 $clen = strlen($code);
396 for ($i = 0; $i < $clen; ++$i) {
397 $char = $code[$i];
398 if(!isset($chr[$char])) {
399 // invalid character
400 return false;
401 }
402 for ($j = 0; $j < 9; ++$j) {
403 if (($j % 2) == 0) {
404 $t = true; // bar
405 } else {
406 $t = false; // space
407 }
408 $x = $chr[$char][$j];
409 if ($x == 2) { $w = $this->print_ratio; }
410 else { $w = 1; }
411
412 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
413 $bararray['maxw'] += $w;
414 ++$k;
415 }
416 $bararray['bcode'][$k] = array('t' => false, 'w' => 1, 'h' => 1, 'p' => 0);
417 $bararray['maxw'] += 1;
418 ++$k;
419 }
420 $bararray['checkdigit'] = $checkdigit;
421 return $bararray;
422 }
423
424 /**
425 * Encode a string to be used for CODE 39 Extended mode.
426 */
427 protected function encode_code39_ext($code) {
428 $encode = array(
429 chr(0) => '%U', chr(1) => '$A', chr(2) => '$B', chr(3) => '$C',
430 chr(4) => '$D', chr(5) => '$E', chr(6) => '$F', chr(7) => '$G',
431 chr(8) => '$H', chr(9) => '$I', chr(10) => '$J', chr(11) => '£K',
432 chr(12) => '$L', chr(13) => '$M', chr(14) => '$N', chr(15) => '$O',
433 chr(16) => '$P', chr(17) => '$Q', chr(18) => '$R', chr(19) => '$S',
434 chr(20) => '$T', chr(21) => '$U', chr(22) => '$V', chr(23) => '$W',
435 chr(24) => '$X', chr(25) => '$Y', chr(26) => '$Z', chr(27) => '%A',
436 chr(28) => '%B', chr(29) => '%C', chr(30) => '%D', chr(31) => '%E',
437 chr(32) => ' ', chr(33) => '/A', chr(34) => '/B', chr(35) => '/C',
438 chr(36) => '/D', chr(37) => '/E', chr(38) => '/F', chr(39) => '/G',
439 chr(40) => '/H', chr(41) => '/I', chr(42) => '/J', chr(43) => '/K',
440 chr(44) => '/L', chr(45) => '-', chr(46) => '.', chr(47) => '/O',
441 chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
442 chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
443 chr(56) => '8', chr(57) => '9', chr(58) => '/Z', chr(59) => '%F',
444 chr(60) => '%G', chr(61) => '%H', chr(62) => '%I', chr(63) => '%J',
445 chr(64) => '%V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
446 chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
447 chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
448 chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
449 chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
450 chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
451 chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => '%K',
452 chr(92) => '%L', chr(93) => '%M', chr(94) => '%N', chr(95) => '%O',
453 chr(96) => '%W', chr(97) => '+A', chr(98) => '+B', chr(99) => '+C',
454 chr(100) => '+D', chr(101) => '+E', chr(102) => '+F', chr(103) => '+G',
455 chr(104) => '+H', chr(105) => '+I', chr(106) => '+J', chr(107) => '+K',
456 chr(108) => '+L', chr(109) => '+M', chr(110) => '+N', chr(111) => '+O',
457 chr(112) => '+P', chr(113) => '+Q', chr(114) => '+R', chr(115) => '+S',
458 chr(116) => '+T', chr(117) => '+U', chr(118) => '+V', chr(119) => '+W',
459 chr(120) => '+X', chr(121) => '+Y', chr(122) => '+Z', chr(123) => '%P',
460 chr(124) => '%Q', chr(125) => '%R', chr(126) => '%S', chr(127) => '%T');
461 $code_ext = '';
462 $clen = strlen($code);
463 for ($i = 0 ; $i < $clen; ++$i) {
464 if (ord($code[$i]) > 127) {
465 return false;
466 }
467 $code_ext .= $encode[$code[$i]];
468 }
469 return $code_ext;
470 }
471
472 /**
473 * Calculate CODE 39 checksum (modulo 43).
474 */
475 protected function checksum_code39($code) {
476 $chars = array(
477 '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
478 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
479 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
480 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
481 $sum = 0;
482 $clen = strlen($code);
483 for ($i = 0 ; $i < $clen; ++$i) {
484 $k = array_keys($chars, $code[$i]);
485 $sum += $k[0];
486 }
487 $j = ($sum % 43);
488 return $chars[$j];
489 }
490
491 /**
492 * CODE 93 - USS-93
493 * Compact code similar to Code 39
494 */
495 protected function barcode_code93($code) {
496 $chr['0'] = '131112';
497 $chr['1'] = '111213';
498 $chr['2'] = '111312';
499 $chr['3'] = '111411';
500 $chr['4'] = '121113';
501 $chr['5'] = '121212';
502 $chr['6'] = '121311';
503 $chr['7'] = '111114';
504 $chr['8'] = '131211';
505 $chr['9'] = '141111';
506 $chr['A'] = '211113';
507 $chr['B'] = '211212';
508 $chr['C'] = '211311';
509 $chr['D'] = '221112';
510 $chr['E'] = '221211';
511 $chr['F'] = '231111';
512 $chr['G'] = '112113';
513 $chr['H'] = '112212';
514 $chr['I'] = '112311';
515 $chr['J'] = '122112';
516 $chr['K'] = '132111';
517 $chr['L'] = '111123';
518 $chr['M'] = '111222';
519 $chr['N'] = '111321';
520 $chr['O'] = '121122';
521 $chr['P'] = '131121';
522 $chr['Q'] = '212112';
523 $chr['R'] = '212211';
524 $chr['S'] = '211122';
525 $chr['T'] = '211221';
526 $chr['U'] = '221121';
527 $chr['V'] = '222111';
528 $chr['W'] = '112122';
529 $chr['X'] = '112221';
530 $chr['Y'] = '122121';
531 $chr['Z'] = '123111';
532 $chr['-'] = '121131';
533 $chr['.'] = '311112';
534 $chr[' '] = '311211';
535 $chr['$'] = '321111';
536 $chr['/'] = '112131';
537 $chr['+'] = '113121';
538 $chr['%'] = '211131';
539 $chr[128] = '121221'; // ($)
540 $chr[129] = '311121'; // (/)
541 $chr[130] = '122211'; // (+)
542 $chr[131] = '312111'; // (%)
543 $chr['*'] = '111141';
544 $code = strtoupper($code);
545 $encode = array(
546 chr(0) => chr(131).'U', chr(1) => chr(128).'A', chr(2) => chr(128).'B', chr(3) => chr(128).'C',
547 chr(4) => chr(128).'D', chr(5) => chr(128).'E', chr(6) => chr(128).'F', chr(7) => chr(128).'G',
548 chr(8) => chr(128).'H', chr(9) => chr(128).'I', chr(10) => chr(128).'J', chr(11) => '£K',
549 chr(12) => chr(128).'L', chr(13) => chr(128).'M', chr(14) => chr(128).'N', chr(15) => chr(128).'O',
550 chr(16) => chr(128).'P', chr(17) => chr(128).'Q', chr(18) => chr(128).'R', chr(19) => chr(128).'S',
551 chr(20) => chr(128).'T', chr(21) => chr(128).'U', chr(22) => chr(128).'V', chr(23) => chr(128).'W',
552 chr(24) => chr(128).'X', chr(25) => chr(128).'Y', chr(26) => chr(128).'Z', chr(27) => chr(131).'A',
553 chr(28) => chr(131).'B', chr(29) => chr(131).'C', chr(30) => chr(131).'D', chr(31) => chr(131).'E',
554 chr(32) => ' ', chr(33) => chr(129).'A', chr(34) => chr(129).'B', chr(35) => chr(129).'C',
555 chr(36) => chr(129).'D', chr(37) => chr(129).'E', chr(38) => chr(129).'F', chr(39) => chr(129).'G',
556 chr(40) => chr(129).'H', chr(41) => chr(129).'I', chr(42) => chr(129).'J', chr(43) => chr(129).'K',
557 chr(44) => chr(129).'L', chr(45) => '-', chr(46) => '.', chr(47) => chr(129).'O',
558 chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
559 chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
560 chr(56) => '8', chr(57) => '9', chr(58) => chr(129).'Z', chr(59) => chr(131).'F',
561 chr(60) => chr(131).'G', chr(61) => chr(131).'H', chr(62) => chr(131).'I', chr(63) => chr(131).'J',
562 chr(64) => chr(131).'V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
563 chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
564 chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
565 chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
566 chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
567 chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
568 chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => chr(131).'K',
569 chr(92) => chr(131).'L', chr(93) => chr(131).'M', chr(94) => chr(131).'N', chr(95) => chr(131).'O',
570 chr(96) => chr(131).'W', chr(97) => chr(130).'A', chr(98) => chr(130).'B', chr(99) => chr(130).'C',
571 chr(100) => chr(130).'D', chr(101) => chr(130).'E', chr(102) => chr(130).'F', chr(103) => chr(130).'G',
572 chr(104) => chr(130).'H', chr(105) => chr(130).'I', chr(106) => chr(130).'J', chr(107) => chr(130).'K',
573 chr(108) => chr(130).'L', chr(109) => chr(130).'M', chr(110) => chr(130).'N', chr(111) => chr(130).'O',
574 chr(112) => chr(130).'P', chr(113) => chr(130).'Q', chr(114) => chr(130).'R', chr(115) => chr(130).'S',
575 chr(116) => chr(130).'T', chr(117) => chr(130).'U', chr(118) => chr(130).'V', chr(119) => chr(130).'W',
576 chr(120) => chr(130).'X', chr(121) => chr(130).'Y', chr(122) => chr(130).'Z', chr(123) => chr(131).'P',
577 chr(124) => chr(131).'Q', chr(125) => chr(131).'R', chr(126) => chr(131).'S', chr(127) => chr(131).'T');
578 $code_ext = '';
579 $clen = strlen($code);
580 for ($i = 0 ; $i < $clen; ++$i) {
581 if (ord($code[$i]) > 127) {
582 return false;
583 }
584 $code_ext .= $encode[$code[$i]];
585 }
586 // checksum
587 $checkdigit = $this->checksum_code93($code);
588 $code .= $checkdigit ;
589 // add start and stop codes
590 $code = '*'.$code.'*';
591 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
592 $k = 0;
593 $clen = strlen($code);
594 for ($i = 0; $i < $clen; ++$i) {
595 $char = $code[$i];
596 if(!isset($chr[$char])) {
597 // invalid character
598 return false;
599 }
600 for ($j = 0; $j < 6; ++$j) {
601 if (($j % 2) == 0) {
602 $t = true; // bar
603 } else {
604 $t = false; // space
605 }
606 $w = $chr[$char][$j];
607 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
608 $bararray['maxw'] += $w;
609 ++$k;
610 }
611 }
612 $bararray['bcode'][$k] = array('t' => true, 'w' => 1, 'h' => 1, 'p' => 0);
613 $bararray['maxw'] += 1;
614 ++$k;
615 $bararray['checkdigit'] = $checkdigit;
616 return $bararray;
617 }
618
619 /**
620 * Calculate CODE 93 checksum (modulo 47).
621 */
622 protected function checksum_code93($code) {
623 $chars = array(
624 '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
625 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
626 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
627 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
628 // translate special characters
629 $code = strtr($code, chr(128).chr(129).chr(130).chr(131), '$/+%');
630 $len = strlen($code);
631 // calculate check digit C
632 $p = 1;
633 $check = 0;
634 for ($i = ($len - 1); $i >= 0; --$i) {
635 $k = array_keys($chars, $code[$i]);
636 $check += ($k[0] * $p);
637 ++$p;
638 if ($p > 20) {
639 $p = 1;
640 }
641 }
642 $check %= 47;
643 $c = $chars[$check];
644 $code .= $c;
645 // calculate check digit K
646 $p = 1;
647 $check = 0;
648 for ($i = $len; $i >= 0; --$i) {
649 $k = array_keys($chars, $code[$i]);
650 $check += ($k[0] * $p);
651 ++$p;
652 if ($p > 15) {
653 $p = 1;
654 }
655 }
656 $check %= 47;
657 $k = $chars[$check];
658 return $c.$k;
659 }
660
661 /**
662 * Checksum for standard 2 of 5 barcodes.
663 */
664 protected function checksum_s25($code) {
665 $len = strlen($code);
666 $sum = 0;
667 for ($i = 0; $i < $len; $i+=2) {
668 $sum += $code[$i];
669 }
670 $sum *= 3;
671 for ($i = 1; $i < $len; $i+=2) {
672 $sum += ($code[$i]);
673 }
674 $r = $sum % 10;
675 if($r > 0) {
676 $r = (10 - $r);
677 }
678 return $r;
679 }
680
681 /**
682 * MSI.
683 * Variation of Plessey code, with similar applications
684 * Contains digits (0 to 9) and encodes the data only in the width of bars.
685 */
686 protected function barcode_msi($code, $checksum=false) {
687 $chr['0'] = '100100100100';
688 $chr['1'] = '100100100110';
689 $chr['2'] = '100100110100';
690 $chr['3'] = '100100110110';
691 $chr['4'] = '100110100100';
692 $chr['5'] = '100110100110';
693 $chr['6'] = '100110110100';
694 $chr['7'] = '100110110110';
695 $chr['8'] = '110100100100';
696 $chr['9'] = '110100100110';
697 $chr['A'] = '110100110100';
698 $chr['B'] = '110100110110';
699 $chr['C'] = '110110100100';
700 $chr['D'] = '110110100110';
701 $chr['E'] = '110110110100';
702 $chr['F'] = '110110110110';
703 if ($checksum) {
704 // add checksum
705 $clen = strlen($code);
706 $p = 2;
707 $check = 0;
708 for ($i = ($clen - 1); $i >= 0; --$i) {
709 $check += (hexdec($code[$i]) * $p);
710 ++$p;
711 if ($p > 7) {
712 $p = 2;
713 }
714 }
715 $check %= 11;
716 if ($check > 0) {
717 $check = 11 - $check;
718 }
719 $code .= $check;
720 $checkdigit = $check;
721 }
722 $seq = '110'; // left guard
723 $clen = strlen($code);
724 for ($i = 0; $i < $clen; ++$i) {
725 $digit = $code[$i];
726 if (!isset($chr[$digit])) {
727 // invalid character
728 return false;
729 }
730 $seq .= $chr[$digit];
731 }
732 $seq .= '1001'; // right guard
733 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
734 $bararray['checkdigit'] = $checkdigit;
735 return $this->binseq_to_array($seq, $bararray);
736 }
737
738 /**
739 * Standard 2 of 5 barcodes.
740 * Used in airline ticket marking, photofinishing
741 * Contains digits (0 to 9) and encodes the data only in the width of bars.
742 */
743 protected function barcode_s25($code, $checksum=false) {
744 $chr['0'] = '10101110111010';
745 $chr['1'] = '11101010101110';
746 $chr['2'] = '10111010101110';
747 $chr['3'] = '11101110101010';
748 $chr['4'] = '10101110101110';
749 $chr['5'] = '11101011101010';
750 $chr['6'] = '10111011101010';
751 $chr['7'] = '10101011101110';
752 $chr['8'] = '10101110111010';
753 $chr['9'] = '10111010111010';
754 if ($checksum) {
755 // add checksum
756 $checkdigit = $this->checksum_s25($code);
757 $code .= $checkdigit ;
758 }
759 if((strlen($code) % 2) != 0) {
760 // add leading zero if code-length is odd
761 $code = '0'.$code;
762 }
763 $seq = '11011010';
764 $clen = strlen($code);
765 for ($i = 0; $i < $clen; ++$i) {
766 $digit = $code[$i];
767 if (!isset($chr[$digit])) {
768 // invalid character
769 return false;
770 }
771 $seq .= $chr[$digit];
772 }
773 $seq .= '1101011';
774 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
775 $bararray['checkdigit'] = $checkdigit;
776 return $this->binseq_to_array($seq, $bararray);
777 }
778
779 /**
780 * Convert binary barcode sequence to barcode array
781 */
782 protected function binseq_to_array($seq, $bararray) {
783 $len = strlen($seq);
784 $w = 0;
785 $k = 0;
786 for ($i = 0; $i < $len; ++$i) {
787 $w += 1;
788 if (($i == ($len - 1)) OR (($i < ($len - 1)) AND ($seq[$i] != $seq[($i+1)]))) {
789 if ($seq[$i] == '1') {
790 $t = true; // bar
791 } else {
792 $t = false; // space
793 }
794 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
795 $bararray['maxw'] += $w;
796 ++$k;
797 $w = 0;
798 }
799 }
800 return $bararray;
801 }
802
803 /**
804 * Interleaved 2 of 5 barcodes.
805 * Compact numeric code, widely used in industry, air cargo
806 * Contains digits (0 to 9) and encodes the data in the width of both bars and spaces.
807 */
808 protected function barcode_i25($code, $checksum=false) {
809 $chr['0'] = '11221';
810 $chr['1'] = '21112';
811 $chr['2'] = '12112';
812 $chr['3'] = '22111';
813 $chr['4'] = '11212';
814 $chr['5'] = '21211';
815 $chr['6'] = '12211';
816 $chr['7'] = '11122';
817 $chr['8'] = '21121';
818 $chr['9'] = '12121';
819 $chr['A'] = '11';
820 $chr['Z'] = '21';
821 if ($checksum) {
822 // add checksum
823 $checkdigit = $this->checksum_s25($code);
824 $code .= $checkdigit ;
825 }
826 if((strlen($code) % 2) != 0) {
827 // add leading zero if code-length is odd
828 $code = '0'.$code;
829 }
830 // add start and stop codes
831 $code = 'AA'.strtolower($code).'ZA';
832
833 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
834 $k = 0;
835 $clen = strlen($code);
836 for ($i = 0; $i < $clen; $i = ($i + 2)) {
837 $char_bar = $code[$i];
838 $char_space = $code[$i+1];
839 if((!isset($chr[$char_bar])) OR (!isset($chr[$char_space]))) {
840 // invalid character
841 return false;
842 }
843 // create a bar-space sequence
844 $seq = '';
845 $chrlen = strlen($chr[$char_bar]);
846 for ($s = 0; $s < $chrlen; $s++){
847 $seq .= $chr[$char_bar][$s] . $chr[$char_space][$s];
848 }
849 $seqlen = strlen($seq);
850 for ($j = 0; $j < $seqlen; ++$j) {
851 if (($j % 2) == 0) {
852 $t = true; // bar
853 } else {
854 $t = false; // space
855 }
856 $x = $seq[$j];
857 if ($x == 2) { $w = $this->print_ratio; }
858 else { $w = 1; }
859
860 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
861 $bararray['maxw'] += $w;
862 ++$k;
863 }
864 }
865 $bararray['checkdigit'] = $checkdigit;
866 return $bararray;
867 }
868
869 /**
870 * C128 barcodes.
871 * Very capable code, excellent density, high reliability; in very wide use world-wide
872 */
873 protected function barcode_c128($code, $type='B', $ean=false) {
874 $code = strcode2utf($code); // mPDF 5.7.1 Allows e.g. <barcode code="5432&#013;1068" type="C128A" />
875 $chr = array(
876 '212222', /* 00 */
877 '222122', /* 01 */
878 '222221', /* 02 */
879 '121223', /* 03 */
880 '121322', /* 04 */
881 '131222', /* 05 */
882 '122213', /* 06 */
883 '122312', /* 07 */
884 '132212', /* 08 */
885 '221213', /* 09 */
886 '221312', /* 10 */
887 '231212', /* 11 */
888 '112232', /* 12 */
889 '122132', /* 13 */
890 '122231', /* 14 */
891 '113222', /* 15 */
892 '123122', /* 16 */
893 '123221', /* 17 */
894 '223211', /* 18 */
895 '221132', /* 19 */
896 '221231', /* 20 */
897 '213212', /* 21 */
898 '223112', /* 22 */
899 '312131', /* 23 */
900 '311222', /* 24 */
901 '321122', /* 25 */
902 '321221', /* 26 */
903 '312212', /* 27 */
904 '322112', /* 28 */
905 '322211', /* 29 */
906 '212123', /* 30 */
907 '212321', /* 31 */
908 '232121', /* 32 */
909 '111323', /* 33 */
910 '131123', /* 34 */
911 '131321', /* 35 */
912 '112313', /* 36 */
913 '132113', /* 37 */
914 '132311', /* 38 */
915 '211313', /* 39 */
916 '231113', /* 40 */
917 '231311', /* 41 */
918 '112133', /* 42 */
919 '112331', /* 43 */
920 '132131', /* 44 */
921 '113123', /* 45 */
922 '113321', /* 46 */
923 '133121', /* 47 */
924 '313121', /* 48 */
925 '211331', /* 49 */
926 '231131', /* 50 */
927 '213113', /* 51 */
928 '213311', /* 52 */
929 '213131', /* 53 */
930 '311123', /* 54 */
931 '311321', /* 55 */
932 '331121', /* 56 */
933 '312113', /* 57 */
934 '312311', /* 58 */
935 '332111', /* 59 */
936 '314111', /* 60 */
937 '221411', /* 61 */
938 '431111', /* 62 */
939 '111224', /* 63 */
940 '111422', /* 64 */
941 '121124', /* 65 */
942 '121421', /* 66 */
943 '141122', /* 67 */
944 '141221', /* 68 */
945 '112214', /* 69 */
946 '112412', /* 70 */
947 '122114', /* 71 */
948 '122411', /* 72 */
949 '142112', /* 73 */
950 '142211', /* 74 */
951 '241211', /* 75 */
952 '221114', /* 76 */
953 '413111', /* 77 */
954 '241112', /* 78 */
955 '134111', /* 79 */
956 '111242', /* 80 */
957 '121142', /* 81 */
958 '121241', /* 82 */
959 '114212', /* 83 */
960 '124112', /* 84 */
961 '124211', /* 85 */
962 '411212', /* 86 */
963 '421112', /* 87 */
964 '421211', /* 88 */
965 '212141', /* 89 */
966 '214121', /* 90 */
967 '412121', /* 91 */
968 '111143', /* 92 */
969 '111341', /* 93 */
970 '131141', /* 94 */
971 '114113', /* 95 */
972 '114311', /* 96 */
973 '411113', /* 97 */
974 '411311', /* 98 */
975 '113141', /* 99 */
976 '114131', /* 100 */
977 '311141', /* 101 */
978 '411131', /* 102 */
979 '211412', /* 103 START A */
980 '211214', /* 104 START B */
981 '211232', /* 105 START C */
982 '233111', /* STOP */
983 '200000' /* END */
984 );
985 $keys = '';
986 switch(strtoupper($type)) {
987 case 'A': {
988 $startid = 103;
989 $keys = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_';
990 for ($i = 0; $i < 32; ++$i) {
991 $keys .= chr($i);
992 }
993 break;
994 }
995 case 'B': {
996 $startid = 104;
997 $keys = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~'.chr(127);
998 break;
999 }
1000 case 'C': {
1001 $startid = 105;
1002 $keys = '';
1003 if ((strlen($code) % 2) != 0) {
1004 // The length of barcode value must be even ($code). You must pad the number with zeros
1005 return false;
1006 }
1007 for ($i = 0; $i <= 99; ++$i) {
1008 $keys .= chr($i);
1009 }
1010 $new_code = '';
1011 $hclen = (strlen($code) / 2);
1012 for ($i = 0; $i < $hclen; ++$i) {
1013 $new_code .= chr(intval($code{(2 * $i)}.$code{(2 * $i + 1)}));
1014 }
1015 $code = $new_code;
1016 break;
1017 }
1018 default: {
1019 return false;
1020 }
1021 }
1022
1023 // calculate check character
1024 $sum = $startid;
1025 if ($ean) { $code = chr(102) . $code; } // Add FNC 1 - which identifies it as EAN-128
1026 $clen = strlen($code);
1027 for ($i = 0; $i < $clen; ++$i) {
1028 if ($ean && $i==0) { $sum += 102; }
1029 else { $sum += (strpos($keys, $code[$i]) * ($i+1)); }
1030 }
1031 $check = ($sum % 103);
1032 $checkdigit = $check ;
1033 // add start, check and stop codes
1034 $code = chr($startid).$code.chr($check).chr(106).chr(107);
1035 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1036 $k = 0;
1037 $len = strlen($code);
1038 for ($i = 0; $i < $len; ++$i) {
1039 $ck = strpos($keys, $code[$i]);
1040 if (($i == 0) || ($ean && $i==1) | ($i > ($len-4))) {
1041 $char_num = ord($code[$i]);
1042 $seq = $chr[$char_num];
1043 } elseif(($ck >= 0) AND isset($chr[$ck])) {
1044 $seq = $chr[$ck];
1045 } else {
1046 // invalid character
1047 return false;
1048 }
1049 for ($j = 0; $j < 6; ++$j) {
1050 if (($j % 2) == 0) {
1051 $t = true; // bar
1052 } else {
1053 $t = false; // space
1054 }
1055 $w = $seq[$j];
1056 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1057 $bararray['maxw'] += $w;
1058 ++$k;
1059 }
1060 }
1061 $bararray['checkdigit'] = $checkdigit;
1062 return $bararray;
1063 }
1064
1065 /**
1066 * EAN13 and UPC-A barcodes.
1067 * EAN13: European Article Numbering international retail product code
1068 * UPC-A: Universal product code seen on almost all retail products in the USA and Canada
1069 * UPC-E: Short version of UPC symbol
1070 */
1071 protected function barcode_eanupc($code, $len=13) {
1072 $upce = false;
1073 $checkdigit = false;
1074 if ($len == 6) {
1075 $len = 12; // UPC-A
1076 $upce = true; // UPC-E mode
1077 }
1078 $data_len = $len - 1;
1079 //Padding
1080 $code = str_pad($code, $data_len, '0', STR_PAD_LEFT);
1081 $code_len = strlen($code);
1082 // calculate check digit
1083 $sum_a = 0;
1084 for ($i = 1; $i < $data_len; $i+=2) {
1085 $sum_a += $code[$i];
1086 }
1087 if ($len > 12) {
1088 $sum_a *= 3;
1089 }
1090 $sum_b = 0;
1091 for ($i = 0; $i < $data_len; $i+=2) {
1092 $sum_b += ($code[$i]);
1093 }
1094 if ($len < 13) {
1095 $sum_b *= 3;
1096 }
1097 $r = ($sum_a + $sum_b) % 10;
1098 if($r > 0) {
1099 $r = (10 - $r);
1100 }
1101 if ($code_len == $data_len) {
1102 // add check digit
1103 $code .= $r;
1104 $checkdigit = $r;
1105 } elseif ($r !== intval($code[$data_len])) {
1106 // wrong checkdigit
1107 return false;
1108 }
1109 if ($len == 12) {
1110 // UPC-A
1111 $code = '0'.$code;
1112 ++$len;
1113 }
1114 if ($upce) {
1115 // convert UPC-A to UPC-E
1116 $tmp = substr($code, 4, 3);
1117 $prod_code = intval(substr($code,7,5)); // product code
1118 $invalid_upce = false;
1119 if (($tmp == '000') OR ($tmp == '100') OR ($tmp == '200')) {
1120 // manufacturer code ends in 000, 100, or 200
1121 $upce_code = substr($code, 2, 2).substr($code, 9, 3).substr($code, 4, 1);
1122 if ($prod_code > 999) { $invalid_upce = true; }
1123 } else {
1124 $tmp = substr($code, 5, 2);
1125 if ($tmp == '00') {
1126 // manufacturer code ends in 00
1127 $upce_code = substr($code, 2, 3).substr($code, 10, 2).'3';
1128 if ($prod_code > 99) { $invalid_upce = true; }
1129 } else {
1130 $tmp = substr($code, 6, 1);
1131 if ($tmp == '0') {
1132 // manufacturer code ends in 0
1133 $upce_code = substr($code, 2, 4).substr($code, 11, 1).'4';
1134 if ($prod_code > 9) { $invalid_upce = true; }
1135 } else {
1136 // manufacturer code does not end in zero
1137 $upce_code = substr($code, 2, 5).substr($code, 11, 1);
1138 if ($prod_code > 9) { $invalid_upce = true; }
1139 }
1140 }
1141 }
1142 if ($invalid_upce) { die("Error - UPC-A cannot produce a valid UPC-E barcode"); } // Error generating a UPCE code
1143 }
1144 //Convert digits to bars
1145 $codes = array(
1146 'A'=>array( // left odd parity
1147 '0'=>'0001101',
1148 '1'=>'0011001',
1149 '2'=>'0010011',
1150 '3'=>'0111101',
1151 '4'=>'0100011',
1152 '5'=>'0110001',
1153 '6'=>'0101111',
1154 '7'=>'0111011',
1155 '8'=>'0110111',
1156 '9'=>'0001011'),
1157 'B'=>array( // left even parity
1158 '0'=>'0100111',
1159 '1'=>'0110011',
1160 '2'=>'0011011',
1161 '3'=>'0100001',
1162 '4'=>'0011101',
1163 '5'=>'0111001',
1164 '6'=>'0000101',
1165 '7'=>'0010001',
1166 '8'=>'0001001',
1167 '9'=>'0010111'),
1168 'C'=>array( // right
1169 '0'=>'1110010',
1170 '1'=>'1100110',
1171 '2'=>'1101100',
1172 '3'=>'1000010',
1173 '4'=>'1011100',
1174 '5'=>'1001110',
1175 '6'=>'1010000',
1176 '7'=>'1000100',
1177 '8'=>'1001000',
1178 '9'=>'1110100')
1179 );
1180 $parities = array(
1181 '0'=>array('A','A','A','A','A','A'),
1182 '1'=>array('A','A','B','A','B','B'),
1183 '2'=>array('A','A','B','B','A','B'),
1184 '3'=>array('A','A','B','B','B','A'),
1185 '4'=>array('A','B','A','A','B','B'),
1186 '5'=>array('A','B','B','A','A','B'),
1187 '6'=>array('A','B','B','B','A','A'),
1188 '7'=>array('A','B','A','B','A','B'),
1189 '8'=>array('A','B','A','B','B','A'),
1190 '9'=>array('A','B','B','A','B','A')
1191 );
1192 $upce_parities = array();
1193 $upce_parities[0] = array(
1194 '0'=>array('B','B','B','A','A','A'),
1195 '1'=>array('B','B','A','B','A','A'),
1196 '2'=>array('B','B','A','A','B','A'),
1197 '3'=>array('B','B','A','A','A','B'),
1198 '4'=>array('B','A','B','B','A','A'),
1199 '5'=>array('B','A','A','B','B','A'),
1200 '6'=>array('B','A','A','A','B','B'),
1201 '7'=>array('B','A','B','A','B','A'),
1202 '8'=>array('B','A','B','A','A','B'),
1203 '9'=>array('B','A','A','B','A','B')
1204 );
1205 $upce_parities[1] = array(
1206 '0'=>array('A','A','A','B','B','B'),
1207 '1'=>array('A','A','B','A','B','B'),
1208 '2'=>array('A','A','B','B','A','B'),
1209 '3'=>array('A','A','B','B','B','A'),
1210 '4'=>array('A','B','A','A','B','B'),
1211 '5'=>array('A','B','B','A','A','B'),
1212 '6'=>array('A','B','B','B','A','A'),
1213 '7'=>array('A','B','A','B','A','B'),
1214 '8'=>array('A','B','A','B','B','A'),
1215 '9'=>array('A','B','B','A','B','A')
1216 );
1217 $k = 0;
1218 $seq = '101'; // left guard bar
1219 if ($upce) {
1220 $bararray = array('code' => $upce_code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1221 $p = $upce_parities[$code{1}][$r];
1222 for ($i = 0; $i < 6; ++$i) {
1223 $seq .= $codes[$p[$i]][$upce_code[$i]];
1224 }
1225 $seq .= '010101'; // right guard bar
1226 } else {
1227 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1228 $half_len = ceil($len / 2);
1229 if ($len == 8) {
1230 for ($i = 0; $i < $half_len; ++$i) {
1231 $seq .= $codes['A'][$code[$i]];
1232 }
1233 } else {
1234 $p = $parities[$code{0}];
1235 for ($i = 1; $i < $half_len; ++$i) {
1236 $seq .= $codes[$p[$i-1]][$code[$i]];
1237 }
1238 }
1239 $seq .= '01010'; // center guard bar
1240 for ($i = $half_len; $i < $len; ++$i) {
1241 $seq .= $codes['C'][$code[$i]];
1242 }
1243 $seq .= '101'; // right guard bar
1244 }
1245 $clen = strlen($seq);
1246 $w = 0;
1247 for ($i = 0; $i < $clen; ++$i) {
1248 $w += 1;
1249 if (($i == ($clen - 1)) OR (($i < ($clen - 1)) AND ($seq[$i] != $seq[($i+1)]))) {
1250 if ($seq[$i] == '1') {
1251 $t = true; // bar
1252 } else {
1253 $t = false; // space
1254 }
1255 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1256 $bararray['maxw'] += $w;
1257 ++$k;
1258 $w = 0;
1259 }
1260 }
1261 $bararray['checkdigit'] = $checkdigit;
1262 return $bararray;
1263 }
1264
1265 /**
1266 * UPC-Based Extentions
1267 * 2-Digit Ext.: Used to indicate magazines and newspaper issue numbers
1268 * 5-Digit Ext.: Used to mark suggested retail price of books
1269 */
1270 protected function barcode_eanext($code, $len=5) {
1271 //Padding
1272 $code = str_pad($code, $len, '0', STR_PAD_LEFT);
1273 // calculate check digit
1274 if ($len == 2) {
1275 $r = $code % 4;
1276 } elseif ($len == 5) {
1277 $r = (3 * ($code{0} + $code{2} + $code{4})) + (9 * ($code{1} + $code{3}));
1278 $r %= 10;
1279 } else {
1280 return false;
1281 }
1282 //Convert digits to bars
1283 $codes = array(
1284 'A'=>array( // left odd parity
1285 '0'=>'0001101',
1286 '1'=>'0011001',
1287 '2'=>'0010011',
1288 '3'=>'0111101',
1289 '4'=>'0100011',
1290 '5'=>'0110001',
1291 '6'=>'0101111',
1292 '7'=>'0111011',
1293 '8'=>'0110111',
1294 '9'=>'0001011'),
1295 'B'=>array( // left even parity
1296 '0'=>'0100111',
1297 '1'=>'0110011',
1298 '2'=>'0011011',
1299 '3'=>'0100001',
1300 '4'=>'0011101',
1301 '5'=>'0111001',
1302 '6'=>'0000101',
1303 '7'=>'0010001',
1304 '8'=>'0001001',
1305 '9'=>'0010111')
1306 );
1307 $parities = array();
1308 $parities[2] = array(
1309 '0'=>array('A','A'),
1310 '1'=>array('A','B'),
1311 '2'=>array('B','A'),
1312 '3'=>array('B','B')
1313 );
1314 $parities[5] = array(
1315 '0'=>array('B','B','A','A','A'),
1316 '1'=>array('B','A','B','A','A'),
1317 '2'=>array('B','A','A','B','A'),
1318 '3'=>array('B','A','A','A','B'),
1319 '4'=>array('A','B','B','A','A'),
1320 '5'=>array('A','A','B','B','A'),
1321 '6'=>array('A','A','A','B','B'),
1322 '7'=>array('A','B','A','B','A'),
1323 '8'=>array('A','B','A','A','B'),
1324 '9'=>array('A','A','B','A','B')
1325 );
1326 $p = $parities[$len][$r];
1327 $seq = '1011'; // left guard bar
1328 $seq .= $codes[$p[0]][$code{0}];
1329 for ($i = 1; $i < $len; ++$i) {
1330 $seq .= '01'; // separator
1331 $seq .= $codes[$p[$i]][$code[$i]];
1332 }
1333 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1334 return $this->binseq_to_array($seq, $bararray);
1335 }
1336
1337 /**
1338 * POSTNET and PLANET barcodes.
1339 * Used by U.S. Postal Service for automated mail sorting
1340 */
1341 protected function barcode_postnet($code, $planet=false) {
1342 // bar lenght
1343 if ($planet) {
1344 $barlen = Array(
1345 0 => Array(1,1,2,2,2),
1346 1 => Array(2,2,2,1,1),
1347 2 => Array(2,2,1,2,1),
1348 3 => Array(2,2,1,1,2),
1349 4 => Array(2,1,2,2,1),
1350 5 => Array(2,1,2,1,2),
1351 6 => Array(2,1,1,2,2),
1352 7 => Array(1,2,2,2,1),
1353 8 => Array(1,2,2,1,2),
1354 9 => Array(1,2,1,2,2)
1355 );
1356 } else {
1357 $barlen = Array(
1358 0 => Array(2,2,1,1,1),
1359 1 => Array(1,1,1,2,2),
1360 2 => Array(1,1,2,1,2),
1361 3 => Array(1,1,2,2,1),
1362 4 => Array(1,2,1,1,2),
1363 5 => Array(1,2,1,2,1),
1364 6 => Array(1,2,2,1,1),
1365 7 => Array(2,1,1,1,2),
1366 8 => Array(2,1,1,2,1),
1367 9 => Array(2,1,2,1,1)
1368 );
1369 }
1370 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 5, 'bcode' => array());
1371 $k = 0;
1372 $code = str_replace('-', '', $code);
1373 $code = str_replace(' ', '', $code);
1374 $len = strlen($code);
1375 // calculate checksum
1376 $sum = 0;
1377 for ($i = 0; $i < $len; ++$i) {
1378 $sum += intval($code[$i]);
1379 }
1380 $chkd = ($sum % 10);
1381 if($chkd > 0) {
1382 $chkd = (10 - $chkd);
1383 }
1384 $code .= $chkd;
1385 $checkdigit = $chkd;
1386 $len = strlen($code);
1387 // start bar
1388 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 5, 'p' => 0);
1389 $bararray['bcode'][$k++] = array('t' => 0, 'w' => $this->gapwidth , 'h' => 5, 'p' => 0);
1390 $bararray['maxw'] += (1 + $this->gapwidth );
1391 for ($i = 0; $i < $len; ++$i) {
1392 for ($j = 0; $j < 5; ++$j) {
1393 $bh = $barlen[$code[$i]][$j];
1394 if ($bh == 2) {
1395 $h = 5;
1396 $p = 0;
1397 }
1398 else {
1399 $h = 2;
1400 $p = 3;
1401 }
1402 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
1403 $bararray['bcode'][$k++] = array('t' => 0, 'w' => $this->gapwidth , 'h' => 2, 'p' => 0);
1404 $bararray['maxw'] += (1 + $this->gapwidth );
1405 }
1406 }
1407 // end bar
1408 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 5, 'p' => 0);
1409 $bararray['maxw'] += 1;
1410 $bararray['checkdigit'] = $checkdigit;
1411 return $bararray;
1412 }
1413
1414 /**
1415 * RM4SCC - CBC - KIX
1416 * RM4SCC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code) - KIX (Klant index - Customer index)
1417 * RM4SCC is the name of the barcode symbology used by the Royal Mail for its Cleanmail service.
1418 */
1419 protected function barcode_rm4scc($code, $kix=false) {
1420 $notkix = !$kix;
1421 // bar mode
1422 // 1 = pos 1, length 2
1423 // 2 = pos 1, length 3
1424 // 3 = pos 2, length 1
1425 // 4 = pos 2, length 2
1426 $barmode = array(
1427 '0' => array(3,3,2,2),
1428 '1' => array(3,4,1,2),
1429 '2' => array(3,4,2,1),
1430 '3' => array(4,3,1,2),
1431 '4' => array(4,3,2,1),
1432 '5' => array(4,4,1,1),
1433 '6' => array(3,1,4,2),
1434 '7' => array(3,2,3,2),
1435 '8' => array(3,2,4,1),
1436 '9' => array(4,1,3,2),
1437 'A' => array(4,1,4,1),
1438 'B' => array(4,2,3,1),
1439 'C' => array(3,1,2,4),
1440 'D' => array(3,2,1,4),
1441 'E' => array(3,2,2,3),
1442 'F' => array(4,1,1,4),
1443 'G' => array(4,1,2,3),
1444 'H' => array(4,2,1,3),
1445 'I' => array(1,3,4,2),
1446 'J' => array(1,4,3,2),
1447 'K' => array(1,4,4,1),
1448 'L' => array(2,3,3,2),
1449 'M' => array(2,3,4,1),
1450 'N' => array(2,4,3,1),
1451 'O' => array(1,3,2,4),
1452 'P' => array(1,4,1,4),
1453 'Q' => array(1,4,2,3),
1454 'R' => array(2,3,1,4),
1455 'S' => array(2,3,2,3),
1456 'T' => array(2,4,1,3),
1457 'U' => array(1,1,4,4),
1458 'V' => array(1,2,3,4),
1459 'W' => array(1,2,4,3),
1460 'X' => array(2,1,3,4),
1461 'Y' => array(2,1,4,3),
1462 'Z' => array(2,2,3,3)
1463 );
1464 $code = strtoupper($code);
1465 $len = strlen($code);
1466 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => $this->daft['F'], 'bcode' => array());
1467 if ($notkix) {
1468 // table for checksum calculation (row,col)
1469 $checktable = array(
1470 '0' => array(1,1),
1471 '1' => array(1,2),
1472 '2' => array(1,3),
1473 '3' => array(1,4),
1474 '4' => array(1,5),
1475 '5' => array(1,0),
1476 '6' => array(2,1),
1477 '7' => array(2,2),
1478 '8' => array(2,3),
1479 '9' => array(2,4),
1480 'A' => array(2,5),
1481 'B' => array(2,0),
1482 'C' => array(3,1),
1483 'D' => array(3,2),
1484 'E' => array(3,3),
1485 'F' => array(3,4),
1486 'G' => array(3,5),
1487 'H' => array(3,0),
1488 'I' => array(4,1),
1489 'J' => array(4,2),
1490 'K' => array(4,3),
1491 'L' => array(4,4),
1492 'M' => array(4,5),
1493 'N' => array(4,0),
1494 'O' => array(5,1),
1495 'P' => array(5,2),
1496 'Q' => array(5,3),
1497 'R' => array(5,4),
1498 'S' => array(5,5),
1499 'T' => array(5,0),
1500 'U' => array(0,1),
1501 'V' => array(0,2),
1502 'W' => array(0,3),
1503 'X' => array(0,4),
1504 'Y' => array(0,5),
1505 'Z' => array(0,0)
1506 );
1507 $row = 0;
1508 $col = 0;
1509 for ($i = 0; $i < $len; ++$i) {
1510 $row += $checktable[$code[$i]][0];
1511 $col += $checktable[$code[$i]][1];
1512 }
1513 $row %= 6;
1514 $col %= 6;
1515 $chk = array_keys($checktable, array($row,$col));
1516 $code .= $chk[0];
1517 $bararray['checkdigit'] = $chk[0];
1518 ++$len;
1519 }
1520 $k = 0;
1521 if ($notkix) {
1522 // start bar
1523 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $this->daft['A'] , 'p' => 0);
1524 $bararray['bcode'][$k++] = array('t' => 0, 'w' => $this->gapwidth , 'h' => $this->daft['A'] , 'p' => 0);
1525 $bararray['maxw'] += (1 + $this->gapwidth) ;
1526 }
1527 for ($i = 0; $i < $len; ++$i) {
1528 for ($j = 0; $j < 4; ++$j) {
1529 switch ($barmode[$code[$i]][$j]) {
1530 case 1: {
1531 // ascender (A)
1532 $p = 0;
1533 $h = $this->daft['A'];
1534 break;
1535 }
1536 case 2: {
1537 // full bar (F)
1538 $p = 0;
1539 $h = $this->daft['F'];
1540 break;
1541 }
1542 case 3: {
1543 // tracker (T)
1544 $p = ($this->daft['F'] - $this->daft['T'])/2;
1545 $h = $this->daft['T'];
1546 break;
1547 }
1548 case 4: {
1549 // descender (D)
1550 $p = $this->daft['F'] - $this->daft['D'];
1551 $h = $this->daft['D'];
1552 break;
1553 }
1554 }
1555
1556 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
1557 $bararray['bcode'][$k++] = array('t' => 0, 'w' => $this->gapwidth, 'h' => 2, 'p' => 0);
1558 $bararray['maxw'] += (1 + $this->gapwidth) ;
1559 }
1560 }
1561 if ($notkix) {
1562 // stop bar
1563 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $this->daft['F'], 'p' => 0);
1564 $bararray['maxw'] += 1;
1565 }
1566 return $bararray;
1567 }
1568
1569 /**
1570 * CODABAR barcodes.
1571 * Older code often used in library systems, sometimes in blood banks
1572 */
1573 protected function barcode_codabar($code) {
1574 $chr = array(
1575 '0' => '11111221',
1576 '1' => '11112211',
1577 '2' => '11121121',
1578 '3' => '22111111',
1579 '4' => '11211211',
1580 '5' => '21111211',
1581 '6' => '12111121',
1582 '7' => '12112111',
1583 '8' => '12211111',
1584 '9' => '21121111',
1585 '-' => '11122111',
1586 '$' => '11221111',
1587 ':' => '21112121',
1588 '/' => '21211121',
1589 '.' => '21212111',
1590 '+' => '11222221',
1591 'A' => '11221211',
1592 'B' => '12121121',
1593 'C' => '11121221',
1594 'D' => '11122211'
1595 );
1596 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1597 $k = 0;
1598 $w = 0;
1599 $seq = '';
1600 $code = strtoupper($code);
1601 $len = strlen($code);
1602 for ($i = 0; $i < $len; ++$i) {
1603 if (!isset($chr[$code[$i]])) {
1604 return false;
1605 }
1606 $seq = $chr[$code[$i]];
1607 for ($j = 0; $j < 8; ++$j) {
1608 if (($j % 2) == 0) {
1609 $t = true; // bar
1610 } else {
1611 $t = false; // space
1612 }
1613 $x = $seq[$j];
1614 if ($x == 2) { $w = $this->print_ratio; }
1615 else { $w = 1; }
1616 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1617 $bararray['maxw'] += $w;
1618 ++$k;
1619 }
1620 }
1621 return $bararray;
1622 }
1623
1624 /**
1625 * CODE11 barcodes.
1626 * Used primarily for labeling telecommunications equipment
1627 */
1628 protected function barcode_code11($code) {
1629 $chr = array(
1630 '0' => '111121',
1631 '1' => '211121',
1632 '2' => '121121',
1633 '3' => '221111',
1634 '4' => '112121',
1635 '5' => '212111',
1636 '6' => '122111',
1637 '7' => '111221',
1638 '8' => '211211',
1639 '9' => '211111',
1640 '-' => '112111',
1641 'S' => '112211'
1642 );
1643
1644 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1645 $k = 0;
1646 $w = 0;
1647 $seq = '';
1648 $len = strlen($code);
1649 // calculate check digit C
1650 $p = 1;
1651 $check = 0;
1652 for ($i = ($len - 1); $i >= 0; --$i) {
1653 $digit = $code[$i];
1654 if ($digit == '-') {
1655 $dval = 10;
1656 } else {
1657 $dval = intval($digit);
1658 }
1659 $check += ($dval * $p);
1660 ++$p;
1661 if ($p > 10) {
1662 $p = 1;
1663 }
1664 }
1665 $check %= 11;
1666 if ($check == 10) {
1667 $check = '-';
1668 }
1669 $code .= $check;
1670 $checkdigit = $check;
1671 if ($len > 10) {
1672 // calculate check digit K
1673 $p = 1;
1674 $check = 0;
1675 for ($i = $len; $i >= 0; --$i) {
1676 $digit = $code[$i];
1677 if ($digit == '-') {
1678 $dval = 10;
1679 } else {
1680 $dval = intval($digit);
1681 }
1682 $check += ($dval * $p);
1683 ++$p;
1684 if ($p > 9) {
1685 $p = 1;
1686 }
1687 }
1688 $check %= 11;
1689 $code .= $check;
1690 $checkdigit .= $check;
1691 ++$len;
1692 }
1693 $code = 'S'.$code.'S';
1694 $len += 3;
1695 for ($i = 0; $i < $len; ++$i) {
1696 if (!isset($chr[$code[$i]])) {
1697 return false;
1698 }
1699 $seq = $chr[$code[$i]];
1700 for ($j = 0; $j < 6; ++$j) {
1701 if (($j % 2) == 0) {
1702 $t = true; // bar
1703 } else {
1704 $t = false; // space
1705 }
1706 $x = $seq[$j];
1707 if ($x == 2) { $w = $this->print_ratio; }
1708 else { $w = 1; }
1709 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1710 $bararray['maxw'] += $w;
1711 ++$k;
1712 }
1713 }
1714 $bararray['checkdigit'] = $checkdigit;
1715 return $bararray;
1716 }
1717
1718
1719 /**
1720 * IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
1721 * (requires PHP bcmath extension)
1722 * Intelligent Mail barcode is a 65-bar code for use on mail in the United States.
1723 * The fields are described as follows:<ul><li>The Barcode Identifier shall be assigned by USPS to encode the presort identification that is currently printed in human readable form on the optional endorsement line (OEL) as well as for future USPS use. This shall be two digits, with the second digit in the range of 0-4. The allowable encoding ranges shall be 00-04, 10-14, 20-24, 30-34, 40-44, 50-54, 60-64, 70-74, 80-84, and 90-94.</li><li>The Service Type Identifier shall be assigned by USPS for any combination of services requested on the mailpiece. The allowable encoding range shall be 000-999. Each 3-digit value shall correspond to a particular mail class with a particular combination of service(s). Each service program, such as OneCode Confirm and OneCode ACS, shall provide the list of Service Type Identifier values.</li><li>The Mailer or Customer Identifier shall be assigned by USPS as a unique, 6 or 9 digit number that identifies a business entity. The allowable encoding range for the 6 digit Mailer ID shall be 000000- 899999, while the allowable encoding range for the 9 digit Mailer ID shall be 900000000-999999999.</li><li>The Serial or Sequence Number shall be assigned by the mailer for uniquely identifying and tracking mailpieces. The allowable encoding range shall be 000000000-999999999 when used with a 6 digit Mailer ID and 000000-999999 when used with a 9 digit Mailer ID. e. The Delivery Point ZIP Code shall be assigned by the mailer for routing the mailpiece. This shall replace POSTNET for routing the mailpiece to its final delivery point. The length may be 0, 5, 9, or 11 digits. The allowable encoding ranges shall be no ZIP Code, 00000-99999, 000000000-999999999, and 00000000000-99999999999.</li></ul>
1724 */
1725 protected function barcode_imb($code) {
1726 $asc_chr = array(4,0,2,6,3,5,1,9,8,7,1,2,0,6,4,8,2,9,5,3,0,1,3,7,4,6,8,9,2,0,5,1,9,4,3,8,6,7,1,2,4,3,9,5,7,8,3,0,2,1,4,0,9,1,7,0,2,4,6,3,7,1,9,5,8);
1727 $dsc_chr = array(7,1,9,5,8,0,2,4,6,3,5,8,9,7,3,0,6,1,7,4,6,8,9,2,5,1,7,5,4,3,8,7,6,0,2,5,4,9,3,0,1,6,8,2,0,4,5,9,6,7,5,2,6,3,8,5,1,9,8,7,4,0,2,6,3);
1728 $asc_pos = array(3,0,8,11,1,12,8,11,10,6,4,12,2,7,9,6,7,9,2,8,4,0,12,7,10,9,0,7,10,5,7,9,6,8,2,12,1,4,2,0,1,5,4,6,12,1,0,9,4,7,5,10,2,6,9,11,2,12,6,7,5,11,0,3,2);
1729 $dsc_pos = array(2,10,12,5,9,1,5,4,3,9,11,5,10,1,6,3,4,1,10,0,2,11,8,6,1,12,3,8,6,4,4,11,0,6,1,9,11,5,3,7,3,10,7,11,8,2,10,3,5,8,0,3,12,11,8,4,5,1,3,0,7,12,9,8,10);
1730 $code_arr = explode('-', $code);
1731 $tracking_number = $code_arr[0];
1732 if (isset($code_arr[1])) {
1733 $routing_code = $code_arr[1];
1734 } else {
1735 $routing_code = '';
1736 }
1737 // Conversion of Routing Code
1738 switch (strlen($routing_code)) {
1739 case 0: {
1740 $binary_code = 0;
1741 break;
1742 }
1743 case 5: {
1744 $binary_code = bcadd($routing_code, '1');
1745 break;
1746 }
1747 case 9: {
1748 $binary_code = bcadd($routing_code, '100001');
1749 break;
1750 }
1751 case 11: {
1752 $binary_code = bcadd($routing_code, '1000100001');
1753 break;
1754 }
1755 default: {
1756 return false;
1757 break;
1758 }
1759 }
1760 $binary_code = bcmul($binary_code, 10);
1761 $binary_code = bcadd($binary_code, $tracking_number{0});
1762 $binary_code = bcmul($binary_code, 5);
1763 $binary_code = bcadd($binary_code, $tracking_number{1});
1764 $binary_code .= substr($tracking_number, 2, 18);
1765 // convert to hexadecimal
1766 $binary_code = $this->dec_to_hex($binary_code);
1767 // pad to get 13 bytes
1768 $binary_code = str_pad($binary_code, 26, '0', STR_PAD_LEFT);
1769 // convert string to array of bytes
1770 $binary_code_arr = chunk_split($binary_code, 2, "\r");
1771 $binary_code_arr = substr($binary_code_arr, 0, -1);
1772 $binary_code_arr = explode("\r", $binary_code_arr);
1773 // calculate frame check sequence
1774 $fcs = $this->imb_crc11fcs($binary_code_arr);
1775 // exclude first 2 bits from first byte
1776 $first_byte = sprintf('%2s', dechex((hexdec($binary_code_arr[0]) << 2) >> 2));
1777 $binary_code_102bit = $first_byte.substr($binary_code, 2);
1778 // convert binary data to codewords
1779 $codewords = array();
1780 $data = $this->hex_to_dec($binary_code_102bit);
1781 $codewords[0] = bcmod($data, 636) * 2;
1782 $data = bcdiv($data, 636);
1783 for ($i = 1; $i < 9; ++$i) {
1784 $codewords[$i] = bcmod($data, 1365);
1785 $data = bcdiv($data, 1365);
1786 }
1787 $codewords[9] = $data;
1788 if (($fcs >> 10) == 1) {
1789 $codewords[9] += 659;
1790 }
1791 // generate lookup tables
1792 $table2of13 = $this->imb_tables(2, 78);
1793 $table5of13 = $this->imb_tables(5, 1287);
1794 // convert codewords to characters
1795 $characters = array();
1796 $bitmask = 512;
1797 foreach($codewords as $k => $val) {
1798 if ($val <= 1286) {
1799 $chrcode = $table5of13[$val];
1800 } else {
1801 $chrcode = $table2of13[($val - 1287)];
1802 }
1803 if (($fcs & $bitmask) > 0) {
1804 // bitwise invert
1805 $chrcode = ((~$chrcode) & 8191);
1806 }
1807 $characters[] = $chrcode;
1808 $bitmask /= 2;
1809 }
1810 $characters = array_reverse($characters);
1811 // build bars
1812 $k = 0;
1813 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => $this->daft['F'], 'bcode' => array());
1814 for ($i = 0; $i < 65; ++$i) {
1815 $asc = (($characters[$asc_chr[$i]] & pow(2, $asc_pos[$i])) > 0);
1816 $dsc = (($characters[$dsc_chr[$i]] & pow(2, $dsc_pos[$i])) > 0);
1817 if ($asc AND $dsc) {
1818 // full bar (F)
1819 $p = 0;
1820 $h = $this->daft['F'];
1821 } elseif ($asc) {
1822 // ascender (A)
1823 $p = 0;
1824 $h = $this->daft['A'];
1825 } elseif ($dsc) {
1826 // descender (D)
1827 $p = $this->daft['F'] - $this->daft['D'];
1828 $h = $this->daft['D'];
1829 } else {
1830 // tracker (T)
1831 $p = ($this->daft['F'] - $this->daft['T'])/2;
1832 $h = $this->daft['T'];
1833 }
1834 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
1835 // Gap
1836 $bararray['bcode'][$k++] = array('t' => 0, 'w' => $this->gapwidth , 'h' => 1, 'p' => 0);
1837 $bararray['maxw'] += (1 + $this->gapwidth );
1838 }
1839 unset($bararray['bcode'][($k - 1)]);
1840 $bararray['maxw'] -= $this->gapwidth ;
1841 return $bararray;
1842 }
1843
1844 /**
1845 * Convert large integer number to hexadecimal representation.
1846 * (requires PHP bcmath extension)
1847 */
1848 public function dec_to_hex($number) {
1849 $i = 0;
1850 $hex = array();
1851 if($number == 0) {
1852 return '00';
1853 }
1854 while($number > 0) {
1855 if($number == 0) {
1856 array_push($hex, '0');
1857 } else {
1858 array_push($hex, strtoupper(dechex(bcmod($number, '16'))));
1859 $number = bcdiv($number, '16', 0);
1860 }
1861 }
1862 $hex = array_reverse($hex);
1863 return implode($hex);
1864 }
1865
1866 /**
1867 * Convert large hexadecimal number to decimal representation (string).
1868 * (requires PHP bcmath extension)
1869 */
1870 public function hex_to_dec($hex) {
1871 $dec = 0;
1872 $bitval = 1;
1873 $len = strlen($hex);
1874 for($pos = ($len - 1); $pos >= 0; --$pos) {
1875 $dec = bcadd($dec, bcmul(hexdec($hex[$pos]), $bitval));
1876 $bitval = bcmul($bitval, 16);
1877 }
1878 return $dec;
1879 }
1880
1881 /**
1882 * Intelligent Mail Barcode calculation of Frame Check Sequence
1883 */
1884 protected function imb_crc11fcs($code_arr) {
1885 $genpoly = 0x0F35; // generator polynomial
1886 $fcs = 0x07FF; // Frame Check Sequence
1887 // do most significant byte skipping the 2 most significant bits
1888 $data = hexdec($code_arr[0]) << 5;
1889 for ($bit = 2; $bit < 8; ++$bit) {
1890 if (($fcs ^ $data) & 0x400) {
1891 $fcs = ($fcs << 1) ^ $genpoly;
1892 } else {
1893 $fcs = ($fcs << 1);
1894 }
1895 $fcs &= 0x7FF;
1896 $data <<= 1;
1897 }
1898 // do rest of bytes
1899 for ($byte = 1; $byte < 13; ++$byte) {
1900 $data = hexdec($code_arr[$byte]) << 3;
1901 for ($bit = 0; $bit < 8; ++$bit) {
1902 if (($fcs ^ $data) & 0x400) {
1903 $fcs = ($fcs << 1) ^ $genpoly;
1904 } else {
1905 $fcs = ($fcs << 1);
1906 }
1907 $fcs &= 0x7FF;
1908 $data <<= 1;
1909 }
1910 }
1911 return $fcs;
1912 }
1913
1914 /**
1915 * Reverse unsigned short value
1916 */
1917 protected function imb_reverse_us($num) {
1918 $rev = 0;
1919 for ($i = 0; $i < 16; ++$i) {
1920 $rev <<= 1;
1921 $rev |= ($num & 1);
1922 $num >>= 1;
1923 }
1924 return $rev;
1925 }
1926
1927 /**
1928 * generate Nof13 tables used for Intelligent Mail Barcode
1929 */
1930 protected function imb_tables($n, $size) {
1931 $table = array();
1932 $lli = 0; // LUT lower index
1933 $lui = $size - 1; // LUT upper index
1934 for ($count = 0; $count < 8192; ++$count) {
1935 $bit_count = 0;
1936 for ($bit_index = 0; $bit_index < 13; ++$bit_index) {
1937 $bit_count += intval(($count & (1 << $bit_index)) != 0);
1938 }
1939 // if we don't have the right number of bits on, go on to the next value
1940 if ($bit_count == $n) {
1941 $reverse = ($this->imb_reverse_us($count) >> 3);
1942 // if the reverse is less than count, we have already visited this pair before
1943 if ($reverse >= $count) {
1944 // If count is symmetric, place it at the first free slot from the end of the list.
1945 // Otherwise, place it at the first free slot from the beginning of the list AND place $reverse ath the next free slot from the beginning of the list
1946 if ($reverse == $count) {
1947 $table[$lui] = $count;
1948 --$lui;
1949 } else {
1950 $table[$lli] = $count;
1951 ++$lli;
1952 $table[$lli] = $reverse;
1953 ++$lli;
1954 }
1955 }
1956 }
1957 }
1958 return $table;
1959 }
1960
1961} // end of class
1962
1963//============================================================+
1964// END OF FILE
1965//============================================================+
1966?> \ No newline at end of file
generated by cgit v1.2.3 (git 2.25.1) at 2024-07-17 23:22:38 +0000