ILIAS  release_5-0 Revision 5.0.0-1144-gc4397b1f870
tcpdf_barcodes_1d.php
Go to the documentation of this file.
1<?php
2//============================================================+
3// File name : tcpdf_barcodes_1d.php
4// Version : 1.0.025
5// Begin : 2008-06-09
6// Last Update : 2013-03-17
7// Author : Nicola Asuni - Tecnick.com LTD - www.tecnick.com - info@tecnick.com
8// License : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html)
9// -------------------------------------------------------------------
10// Copyright (C) 2008-2013 Nicola Asuni - Tecnick.com LTD
11//
12// This file is part of TCPDF software library.
13//
14// TCPDF is free software: you can redistribute it and/or modify it
15// under the terms of the GNU Lesser General Public License as
16// published by the Free Software Foundation, either version 3 of the
17// License, or (at your option) any later version.
18//
19// TCPDF is distributed in the hope that it will be useful, but
20// WITHOUT ANY WARRANTY; without even the implied warranty of
21// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
22// See the 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 TCPDF. 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//============================================================+
34
50class TCPDFBarcode {
51
56 protected $barcode_array;
57
73 public function __construct($code, $type) {
74 $this->setBarcode($code, $type);
75 }
76
82 public function getBarcodeArray() {
83 return $this->barcode_array;
84 }
85
93 public function getBarcodeSVG($w=2, $h=30, $color='black') {
94 // send headers
95 $code = $this->getBarcodeSVGcode($w, $h, $color);
96 header('Content-Type: application/svg+xml');
97 header('Cache-Control: public, must-revalidate, max-age=0'); // HTTP/1.1
98 header('Pragma: public');
99 header('Expires: Sat, 26 Jul 1997 05:00:00 GMT'); // Date in the past
100 header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
101 header('Content-Disposition: inline; filename="'.md5($code).'.svg";');
102 //header('Content-Length: '.strlen($code));
103 echo $code;
104 }
105
114 public function getBarcodeSVGcode($w=2, $h=30, $color='black') {
115 // replace table for special characters
116 $repstr = array("\0" => '', '&' => '&amp;', '<' => '&lt;', '>' => '&gt;');
117 $svg = '<'.'?'.'xml version="1.0" standalone="no"'.'?'.'>'."\n";
118 $svg .= '<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">'."\n";
119 $svg .= '<svg width="'.round(($this->barcode_array['maxw'] * $w), 3).'" height="'.$h.'" version="1.1" xmlns="http://www.w3.org/2000/svg">'."\n";
120 $svg .= "\t".'<desc>'.strtr($this->barcode_array['code'], $repstr).'</desc>'."\n";
121 $svg .= "\t".'<g id="bars" fill="'.$color.'" stroke="none">'."\n";
122 // print bars
123 $x = 0;
124 foreach ($this->barcode_array['bcode'] as $k => $v) {
125 $bw = round(($v['w'] * $w), 3);
126 $bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
127 if ($v['t']) {
128 $y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
129 // draw a vertical bar
130 $svg .= "\t\t".'<rect x="'.$x.'" y="'.$y.'" width="'.$bw.'" height="'.$bh.'" />'."\n";
131 }
132 $x += $bw;
133 }
134 $svg .= "\t".'</g>'."\n";
135 $svg .= '</svg>'."\n";
136 return $svg;
137 }
138
147 public function getBarcodeHTML($w=2, $h=30, $color='black') {
148 $html = '<div style="font-size:0;position:relative;width:'.($this->barcode_array['maxw'] * $w).'px;height:'.($h).'px;">'."\n";
149 // print bars
150 $x = 0;
151 foreach ($this->barcode_array['bcode'] as $k => $v) {
152 $bw = round(($v['w'] * $w), 3);
153 $bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
154 if ($v['t']) {
155 $y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
156 // draw a vertical bar
157 $html .= '<div style="background-color:'.$color.';width:'.$bw.'px;height:'.$bh.'px;position:absolute;left:'.$x.'px;top:'.$y.'px;">&nbsp;</div>'."\n";
158 }
159 $x += $bw;
160 }
161 $html .= '</div>'."\n";
162 return $html;
163 }
164
173 public function getBarcodePNG($w=2, $h=30, $color=array(0,0,0)) {
174 // calculate image size
175 $width = ($this->barcode_array['maxw'] * $w);
176 $height = $h;
177 if (function_exists('imagecreate')) {
178 // GD library
179 $imagick = false;
180 $png = imagecreate($width, $height);
181 $bgcol = imagecolorallocate($png, 255, 255, 255);
182 imagecolortransparent($png, $bgcol);
183 $fgcol = imagecolorallocate($png, $color[0], $color[1], $color[2]);
184 } elseif (extension_loaded('imagick')) {
185 $imagick = true;
186 $bgcol = new imagickpixel('rgb(255,255,255');
187 $fgcol = new imagickpixel('rgb('.$color[0].','.$color[1].','.$color[2].')');
188 $png = new Imagick();
189 $png->newImage($width, $height, 'none', 'png');
190 $bar = new imagickdraw();
191 $bar->setfillcolor($fgcol);
192 } else {
193 return false;
194 }
195 // print bars
196 $x = 0;
197 foreach ($this->barcode_array['bcode'] as $k => $v) {
198 $bw = round(($v['w'] * $w), 3);
199 $bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
200 if ($v['t']) {
201 $y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
202 // draw a vertical bar
203 if ($imagick) {
204 $bar->rectangle($x, $y, ($x + $bw - 1), ($y + $bh - 1));
205 } else {
206 imagefilledrectangle($png, $x, $y, ($x + $bw - 1), ($y + $bh - 1), $fgcol);
207 }
208 }
209 $x += $bw;
210 }
211 // send headers
212 header('Content-Type: image/png');
213 header('Cache-Control: public, must-revalidate, max-age=0'); // HTTP/1.1
214 header('Pragma: public');
215 header('Expires: Sat, 26 Jul 1997 05:00:00 GMT'); // Date in the past
216 header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
217 if ($imagick) {
218 $png->drawimage($bar);
219 echo $png;
220 } else {
221 imagepng($png);
222 imagedestroy($png);
223 }
224 }
225
233 public function setBarcode($code, $type) {
234 switch (strtoupper($type)) {
235 case 'C39': { // CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
236 $arrcode = $this->barcode_code39($code, false, false);
237 break;
238 }
239 case 'C39+': { // CODE 39 with checksum
240 $arrcode = $this->barcode_code39($code, false, true);
241 break;
242 }
243 case 'C39E': { // CODE 39 EXTENDED
244 $arrcode = $this->barcode_code39($code, true, false);
245 break;
246 }
247 case 'C39E+': { // CODE 39 EXTENDED + CHECKSUM
248 $arrcode = $this->barcode_code39($code, true, true);
249 break;
250 }
251 case 'C93': { // CODE 93 - USS-93
252 $arrcode = $this->barcode_code93($code);
253 break;
254 }
255 case 'S25': { // Standard 2 of 5
256 $arrcode = $this->barcode_s25($code, false);
257 break;
258 }
259 case 'S25+': { // Standard 2 of 5 + CHECKSUM
260 $arrcode = $this->barcode_s25($code, true);
261 break;
262 }
263 case 'I25': { // Interleaved 2 of 5
264 $arrcode = $this->barcode_i25($code, false);
265 break;
266 }
267 case 'I25+': { // Interleaved 2 of 5 + CHECKSUM
268 $arrcode = $this->barcode_i25($code, true);
269 break;
270 }
271 case 'C128': { // CODE 128
272 $arrcode = $this->barcode_c128($code, '');
273 break;
274 }
275 case 'C128A': { // CODE 128 A
276 $arrcode = $this->barcode_c128($code, 'A');
277 break;
278 }
279 case 'C128B': { // CODE 128 B
280 $arrcode = $this->barcode_c128($code, 'B');
281 break;
282 }
283 case 'C128C': { // CODE 128 C
284 $arrcode = $this->barcode_c128($code, 'C');
285 break;
286 }
287 case 'EAN2': { // 2-Digits UPC-Based Extention
288 $arrcode = $this->barcode_eanext($code, 2);
289 break;
290 }
291 case 'EAN5': { // 5-Digits UPC-Based Extention
292 $arrcode = $this->barcode_eanext($code, 5);
293 break;
294 }
295 case 'EAN8': { // EAN 8
296 $arrcode = $this->barcode_eanupc($code, 8);
297 break;
298 }
299 case 'EAN13': { // EAN 13
300 $arrcode = $this->barcode_eanupc($code, 13);
301 break;
302 }
303 case 'UPCA': { // UPC-A
304 $arrcode = $this->barcode_eanupc($code, 12);
305 break;
306 }
307 case 'UPCE': { // UPC-E
308 $arrcode = $this->barcode_eanupc($code, 6);
309 break;
310 }
311 case 'MSI': { // MSI (Variation of Plessey code)
312 $arrcode = $this->barcode_msi($code, false);
313 break;
314 }
315 case 'MSI+': { // MSI + CHECKSUM (modulo 11)
316 $arrcode = $this->barcode_msi($code, true);
317 break;
318 }
319 case 'POSTNET': { // POSTNET
320 $arrcode = $this->barcode_postnet($code, false);
321 break;
322 }
323 case 'PLANET': { // PLANET
324 $arrcode = $this->barcode_postnet($code, true);
325 break;
326 }
327 case 'RMS4CC': { // RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
328 $arrcode = $this->barcode_rms4cc($code, false);
329 break;
330 }
331 case 'KIX': { // KIX (Klant index - Customer index)
332 $arrcode = $this->barcode_rms4cc($code, true);
333 break;
334 }
335 case 'IMB': { // IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
336 $arrcode = $this->barcode_imb($code);
337 break;
338 }
339 case 'CODABAR': { // CODABAR
340 $arrcode = $this->barcode_codabar($code);
341 break;
342 }
343 case 'CODE11': { // CODE 11
344 $arrcode = $this->barcode_code11($code);
345 break;
346 }
347 case 'PHARMA': { // PHARMACODE
348 $arrcode = $this->barcode_pharmacode($code);
349 break;
350 }
351 case 'PHARMA2T': { // PHARMACODE TWO-TRACKS
352 $arrcode = $this->barcode_pharmacode2t($code);
353 break;
354 }
355 default: {
356 $this->barcode_array = false;
357 $arrcode = false;
358 break;
359 }
360 }
361 $this->barcode_array = $arrcode;
362 }
363
373 protected function barcode_code39($code, $extended=false, $checksum=false) {
374 $chr['0'] = '111331311';
375 $chr['1'] = '311311113';
376 $chr['2'] = '113311113';
377 $chr['3'] = '313311111';
378 $chr['4'] = '111331113';
379 $chr['5'] = '311331111';
380 $chr['6'] = '113331111';
381 $chr['7'] = '111311313';
382 $chr['8'] = '311311311';
383 $chr['9'] = '113311311';
384 $chr['A'] = '311113113';
385 $chr['B'] = '113113113';
386 $chr['C'] = '313113111';
387 $chr['D'] = '111133113';
388 $chr['E'] = '311133111';
389 $chr['F'] = '113133111';
390 $chr['G'] = '111113313';
391 $chr['H'] = '311113311';
392 $chr['I'] = '113113311';
393 $chr['J'] = '111133311';
394 $chr['K'] = '311111133';
395 $chr['L'] = '113111133';
396 $chr['M'] = '313111131';
397 $chr['N'] = '111131133';
398 $chr['O'] = '311131131';
399 $chr['P'] = '113131131';
400 $chr['Q'] = '111111333';
401 $chr['R'] = '311111331';
402 $chr['S'] = '113111331';
403 $chr['T'] = '111131331';
404 $chr['U'] = '331111113';
405 $chr['V'] = '133111113';
406 $chr['W'] = '333111111';
407 $chr['X'] = '131131113';
408 $chr['Y'] = '331131111';
409 $chr['Z'] = '133131111';
410 $chr['-'] = '131111313';
411 $chr['.'] = '331111311';
412 $chr[' '] = '133111311';
413 $chr['$'] = '131313111';
414 $chr['/'] = '131311131';
415 $chr['+'] = '131113131';
416 $chr['%'] = '111313131';
417 $chr['*'] = '131131311';
418 $code = strtoupper($code);
419 if ($extended) {
420 // extended mode
421 $code = $this->encode_code39_ext($code);
422 }
423 if ($code === false) {
424 return false;
425 }
426 if ($checksum) {
427 // checksum
428 $code .= $this->checksum_code39($code);
429 }
430 // add start and stop codes
431 $code = '*'.$code.'*';
432 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
433 $k = 0;
434 $clen = strlen($code);
435 for ($i = 0; $i < $clen; ++$i) {
436 $char = $code{$i};
437 if(!isset($chr[$char])) {
438 // invalid character
439 return false;
440 }
441 for ($j = 0; $j < 9; ++$j) {
442 if (($j % 2) == 0) {
443 $t = true; // bar
444 } else {
445 $t = false; // space
446 }
447 $w = $chr[$char]{$j};
448 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
449 $bararray['maxw'] += $w;
450 ++$k;
451 }
452 // intercharacter gap
453 $bararray['bcode'][$k] = array('t' => false, 'w' => 1, 'h' => 1, 'p' => 0);
454 $bararray['maxw'] += 1;
455 ++$k;
456 }
457 return $bararray;
458 }
459
466 protected function encode_code39_ext($code) {
467 $encode = array(
468 chr(0) => '%U', chr(1) => '$A', chr(2) => '$B', chr(3) => '$C',
469 chr(4) => '$D', chr(5) => '$E', chr(6) => '$F', chr(7) => '$G',
470 chr(8) => '$H', chr(9) => '$I', chr(10) => '$J', chr(11) => '£K',
471 chr(12) => '$L', chr(13) => '$M', chr(14) => '$N', chr(15) => '$O',
472 chr(16) => '$P', chr(17) => '$Q', chr(18) => '$R', chr(19) => '$S',
473 chr(20) => '$T', chr(21) => '$U', chr(22) => '$V', chr(23) => '$W',
474 chr(24) => '$X', chr(25) => '$Y', chr(26) => '$Z', chr(27) => '%A',
475 chr(28) => '%B', chr(29) => '%C', chr(30) => '%D', chr(31) => '%E',
476 chr(32) => ' ', chr(33) => '/A', chr(34) => '/B', chr(35) => '/C',
477 chr(36) => '/D', chr(37) => '/E', chr(38) => '/F', chr(39) => '/G',
478 chr(40) => '/H', chr(41) => '/I', chr(42) => '/J', chr(43) => '/K',
479 chr(44) => '/L', chr(45) => '-', chr(46) => '.', chr(47) => '/O',
480 chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
481 chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
482 chr(56) => '8', chr(57) => '9', chr(58) => '/Z', chr(59) => '%F',
483 chr(60) => '%G', chr(61) => '%H', chr(62) => '%I', chr(63) => '%J',
484 chr(64) => '%V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
485 chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
486 chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
487 chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
488 chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
489 chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
490 chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => '%K',
491 chr(92) => '%L', chr(93) => '%M', chr(94) => '%N', chr(95) => '%O',
492 chr(96) => '%W', chr(97) => '+A', chr(98) => '+B', chr(99) => '+C',
493 chr(100) => '+D', chr(101) => '+E', chr(102) => '+F', chr(103) => '+G',
494 chr(104) => '+H', chr(105) => '+I', chr(106) => '+J', chr(107) => '+K',
495 chr(108) => '+L', chr(109) => '+M', chr(110) => '+N', chr(111) => '+O',
496 chr(112) => '+P', chr(113) => '+Q', chr(114) => '+R', chr(115) => '+S',
497 chr(116) => '+T', chr(117) => '+U', chr(118) => '+V', chr(119) => '+W',
498 chr(120) => '+X', chr(121) => '+Y', chr(122) => '+Z', chr(123) => '%P',
499 chr(124) => '%Q', chr(125) => '%R', chr(126) => '%S', chr(127) => '%T');
500 $code_ext = '';
501 $clen = strlen($code);
502 for ($i = 0 ; $i < $clen; ++$i) {
503 if (ord($code{$i}) > 127) {
504 return false;
505 }
506 $code_ext .= $encode[$code{$i}];
507 }
508 return $code_ext;
509 }
510
517 protected function checksum_code39($code) {
518 $chars = array(
519 '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
520 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
521 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
522 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
523 $sum = 0;
524 $clen = strlen($code);
525 for ($i = 0 ; $i < $clen; ++$i) {
526 $k = array_keys($chars, $code{$i});
527 $sum += $k[0];
528 }
529 $j = ($sum % 43);
530 return $chars[$j];
531 }
532
540 protected function barcode_code93($code) {
541 $chr[48] = '131112'; // 0
542 $chr[49] = '111213'; // 1
543 $chr[50] = '111312'; // 2
544 $chr[51] = '111411'; // 3
545 $chr[52] = '121113'; // 4
546 $chr[53] = '121212'; // 5
547 $chr[54] = '121311'; // 6
548 $chr[55] = '111114'; // 7
549 $chr[56] = '131211'; // 8
550 $chr[57] = '141111'; // 9
551 $chr[65] = '211113'; // A
552 $chr[66] = '211212'; // B
553 $chr[67] = '211311'; // C
554 $chr[68] = '221112'; // D
555 $chr[69] = '221211'; // E
556 $chr[70] = '231111'; // F
557 $chr[71] = '112113'; // G
558 $chr[72] = '112212'; // H
559 $chr[73] = '112311'; // I
560 $chr[74] = '122112'; // J
561 $chr[75] = '132111'; // K
562 $chr[76] = '111123'; // L
563 $chr[77] = '111222'; // M
564 $chr[78] = '111321'; // N
565 $chr[79] = '121122'; // O
566 $chr[80] = '131121'; // P
567 $chr[81] = '212112'; // Q
568 $chr[82] = '212211'; // R
569 $chr[83] = '211122'; // S
570 $chr[84] = '211221'; // T
571 $chr[85] = '221121'; // U
572 $chr[86] = '222111'; // V
573 $chr[87] = '112122'; // W
574 $chr[88] = '112221'; // X
575 $chr[89] = '122121'; // Y
576 $chr[90] = '123111'; // Z
577 $chr[45] = '121131'; // -
578 $chr[46] = '311112'; // .
579 $chr[32] = '311211'; //
580 $chr[36] = '321111'; // $
581 $chr[47] = '112131'; // /
582 $chr[43] = '113121'; // +
583 $chr[37] = '211131'; // %
584 $chr[128] = '121221'; // ($)
585 $chr[129] = '311121'; // (/)
586 $chr[130] = '122211'; // (+)
587 $chr[131] = '312111'; // (%)
588 $chr[42] = '111141'; // start-stop
589 $code = strtoupper($code);
590 $encode = array(
591 chr(0) => chr(131).'U', chr(1) => chr(128).'A', chr(2) => chr(128).'B', chr(3) => chr(128).'C',
592 chr(4) => chr(128).'D', chr(5) => chr(128).'E', chr(6) => chr(128).'F', chr(7) => chr(128).'G',
593 chr(8) => chr(128).'H', chr(9) => chr(128).'I', chr(10) => chr(128).'J', chr(11) => '£K',
594 chr(12) => chr(128).'L', chr(13) => chr(128).'M', chr(14) => chr(128).'N', chr(15) => chr(128).'O',
595 chr(16) => chr(128).'P', chr(17) => chr(128).'Q', chr(18) => chr(128).'R', chr(19) => chr(128).'S',
596 chr(20) => chr(128).'T', chr(21) => chr(128).'U', chr(22) => chr(128).'V', chr(23) => chr(128).'W',
597 chr(24) => chr(128).'X', chr(25) => chr(128).'Y', chr(26) => chr(128).'Z', chr(27) => chr(131).'A',
598 chr(28) => chr(131).'B', chr(29) => chr(131).'C', chr(30) => chr(131).'D', chr(31) => chr(131).'E',
599 chr(32) => ' ', chr(33) => chr(129).'A', chr(34) => chr(129).'B', chr(35) => chr(129).'C',
600 chr(36) => chr(129).'D', chr(37) => chr(129).'E', chr(38) => chr(129).'F', chr(39) => chr(129).'G',
601 chr(40) => chr(129).'H', chr(41) => chr(129).'I', chr(42) => chr(129).'J', chr(43) => chr(129).'K',
602 chr(44) => chr(129).'L', chr(45) => '-', chr(46) => '.', chr(47) => chr(129).'O',
603 chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
604 chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
605 chr(56) => '8', chr(57) => '9', chr(58) => chr(129).'Z', chr(59) => chr(131).'F',
606 chr(60) => chr(131).'G', chr(61) => chr(131).'H', chr(62) => chr(131).'I', chr(63) => chr(131).'J',
607 chr(64) => chr(131).'V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
608 chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
609 chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
610 chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
611 chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
612 chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
613 chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => chr(131).'K',
614 chr(92) => chr(131).'L', chr(93) => chr(131).'M', chr(94) => chr(131).'N', chr(95) => chr(131).'O',
615 chr(96) => chr(131).'W', chr(97) => chr(130).'A', chr(98) => chr(130).'B', chr(99) => chr(130).'C',
616 chr(100) => chr(130).'D', chr(101) => chr(130).'E', chr(102) => chr(130).'F', chr(103) => chr(130).'G',
617 chr(104) => chr(130).'H', chr(105) => chr(130).'I', chr(106) => chr(130).'J', chr(107) => chr(130).'K',
618 chr(108) => chr(130).'L', chr(109) => chr(130).'M', chr(110) => chr(130).'N', chr(111) => chr(130).'O',
619 chr(112) => chr(130).'P', chr(113) => chr(130).'Q', chr(114) => chr(130).'R', chr(115) => chr(130).'S',
620 chr(116) => chr(130).'T', chr(117) => chr(130).'U', chr(118) => chr(130).'V', chr(119) => chr(130).'W',
621 chr(120) => chr(130).'X', chr(121) => chr(130).'Y', chr(122) => chr(130).'Z', chr(123) => chr(131).'P',
622 chr(124) => chr(131).'Q', chr(125) => chr(131).'R', chr(126) => chr(131).'S', chr(127) => chr(131).'T');
623 $code_ext = '';
624 $clen = strlen($code);
625 for ($i = 0 ; $i < $clen; ++$i) {
626 if (ord($code{$i}) > 127) {
627 return false;
628 }
629 $code_ext .= $encode[$code{$i}];
630 }
631 // checksum
632 $code_ext .= $this->checksum_code93($code_ext);
633 // add start and stop codes
634 $code = '*'.$code_ext.'*';
635 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
636 $k = 0;
637 $clen = strlen($code);
638 for ($i = 0; $i < $clen; ++$i) {
639 $char = ord($code{$i});
640 if(!isset($chr[$char])) {
641 // invalid character
642 return false;
643 }
644 for ($j = 0; $j < 6; ++$j) {
645 if (($j % 2) == 0) {
646 $t = true; // bar
647 } else {
648 $t = false; // space
649 }
650 $w = $chr[$char]{$j};
651 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
652 $bararray['maxw'] += $w;
653 ++$k;
654 }
655 }
656 $bararray['bcode'][$k] = array('t' => true, 'w' => 1, 'h' => 1, 'p' => 0);
657 $bararray['maxw'] += 1;
658 ++$k;
659 return $bararray;
660 }
661
668 protected function checksum_code93($code) {
669 $chars = array(
670 '0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
671 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
672 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
673 'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%',
674 '<', '=', '>', '?');
675 // translate special characters
676 $code = strtr($code, chr(128).chr(131).chr(129).chr(130), '<=>?');
677 $len = strlen($code);
678 // calculate check digit C
679 $p = 1;
680 $check = 0;
681 for ($i = ($len - 1); $i >= 0; --$i) {
682 $k = array_keys($chars, $code{$i});
683 $check += ($k[0] * $p);
684 ++$p;
685 if ($p > 20) {
686 $p = 1;
687 }
688 }
689 $check %= 47;
690 $c = $chars[$check];
691 $code .= $c;
692 // calculate check digit K
693 $p = 1;
694 $check = 0;
695 for ($i = $len; $i >= 0; --$i) {
696 $k = array_keys($chars, $code{$i});
697 $check += ($k[0] * $p);
698 ++$p;
699 if ($p > 15) {
700 $p = 1;
701 }
702 }
703 $check %= 47;
704 $k = $chars[$check];
705 $checksum = $c.$k;
706 // resto respecial characters
707 $checksum = strtr($checksum, '<=>?', chr(128).chr(131).chr(129).chr(130));
708 return $checksum;
709 }
710
717 protected function checksum_s25($code) {
718 $len = strlen($code);
719 $sum = 0;
720 for ($i = 0; $i < $len; $i+=2) {
721 $sum += $code{$i};
722 }
723 $sum *= 3;
724 for ($i = 1; $i < $len; $i+=2) {
725 $sum += ($code{$i});
726 }
727 $r = $sum % 10;
728 if($r > 0) {
729 $r = (10 - $r);
730 }
731 return $r;
732 }
733
743 protected function barcode_msi($code, $checksum=false) {
744 $chr['0'] = '100100100100';
745 $chr['1'] = '100100100110';
746 $chr['2'] = '100100110100';
747 $chr['3'] = '100100110110';
748 $chr['4'] = '100110100100';
749 $chr['5'] = '100110100110';
750 $chr['6'] = '100110110100';
751 $chr['7'] = '100110110110';
752 $chr['8'] = '110100100100';
753 $chr['9'] = '110100100110';
754 $chr['A'] = '110100110100';
755 $chr['B'] = '110100110110';
756 $chr['C'] = '110110100100';
757 $chr['D'] = '110110100110';
758 $chr['E'] = '110110110100';
759 $chr['F'] = '110110110110';
760 if ($checksum) {
761 // add checksum
762 $clen = strlen($code);
763 $p = 2;
764 $check = 0;
765 for ($i = ($clen - 1); $i >= 0; --$i) {
766 $check += (hexdec($code{$i}) * $p);
767 ++$p;
768 if ($p > 7) {
769 $p = 2;
770 }
771 }
772 $check %= 11;
773 if ($check > 0) {
774 $check = 11 - $check;
775 }
776 $code .= $check;
777 }
778 $seq = '110'; // left guard
779 $clen = strlen($code);
780 for ($i = 0; $i < $clen; ++$i) {
781 $digit = $code{$i};
782 if (!isset($chr[$digit])) {
783 // invalid character
784 return false;
785 }
786 $seq .= $chr[$digit];
787 }
788 $seq .= '1001'; // right guard
789 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
790 return $this->binseq_to_array($seq, $bararray);
791 }
792
802 protected function barcode_s25($code, $checksum=false) {
803 $chr['0'] = '10101110111010';
804 $chr['1'] = '11101010101110';
805 $chr['2'] = '10111010101110';
806 $chr['3'] = '11101110101010';
807 $chr['4'] = '10101110101110';
808 $chr['5'] = '11101011101010';
809 $chr['6'] = '10111011101010';
810 $chr['7'] = '10101011101110';
811 $chr['8'] = '10101110111010';
812 $chr['9'] = '10111010111010';
813 if ($checksum) {
814 // add checksum
815 $code .= $this->checksum_s25($code);
816 }
817 if((strlen($code) % 2) != 0) {
818 // add leading zero if code-length is odd
819 $code = '0'.$code;
820 }
821 $seq = '11011010';
822 $clen = strlen($code);
823 for ($i = 0; $i < $clen; ++$i) {
824 $digit = $code{$i};
825 if (!isset($chr[$digit])) {
826 // invalid character
827 return false;
828 }
829 $seq .= $chr[$digit];
830 }
831 $seq .= '1101011';
832 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
833 return $this->binseq_to_array($seq, $bararray);
834 }
835
844 protected function binseq_to_array($seq, $bararray) {
845 $len = strlen($seq);
846 $w = 0;
847 $k = 0;
848 for ($i = 0; $i < $len; ++$i) {
849 $w += 1;
850 if (($i == ($len - 1)) OR (($i < ($len - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
851 if ($seq{$i} == '1') {
852 $t = true; // bar
853 } else {
854 $t = false; // space
855 }
856 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
857 $bararray['maxw'] += $w;
858 ++$k;
859 $w = 0;
860 }
861 }
862 return $bararray;
863 }
864
874 protected function barcode_i25($code, $checksum=false) {
875 $chr['0'] = '11221';
876 $chr['1'] = '21112';
877 $chr['2'] = '12112';
878 $chr['3'] = '22111';
879 $chr['4'] = '11212';
880 $chr['5'] = '21211';
881 $chr['6'] = '12211';
882 $chr['7'] = '11122';
883 $chr['8'] = '21121';
884 $chr['9'] = '12121';
885 $chr['A'] = '11';
886 $chr['Z'] = '21';
887 if ($checksum) {
888 // add checksum
889 $code .= $this->checksum_s25($code);
890 }
891 if((strlen($code) % 2) != 0) {
892 // add leading zero if code-length is odd
893 $code = '0'.$code;
894 }
895 // add start and stop codes
896 $code = 'AA'.strtolower($code).'ZA';
897
898 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
899 $k = 0;
900 $clen = strlen($code);
901 for ($i = 0; $i < $clen; $i = ($i + 2)) {
902 $char_bar = $code{$i};
903 $char_space = $code{$i+1};
904 if((!isset($chr[$char_bar])) OR (!isset($chr[$char_space]))) {
905 // invalid character
906 return false;
907 }
908 // create a bar-space sequence
909 $seq = '';
910 $chrlen = strlen($chr[$char_bar]);
911 for ($s = 0; $s < $chrlen; $s++){
912 $seq .= $chr[$char_bar]{$s} . $chr[$char_space]{$s};
913 }
914 $seqlen = strlen($seq);
915 for ($j = 0; $j < $seqlen; ++$j) {
916 if (($j % 2) == 0) {
917 $t = true; // bar
918 } else {
919 $t = false; // space
920 }
921 $w = $seq{$j};
922 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
923 $bararray['maxw'] += $w;
924 ++$k;
925 }
926 }
927 return $bararray;
928 }
929
938 protected function barcode_c128($code, $type='') {
939 $chr = array(
940 '212222', /* 00 */
941 '222122', /* 01 */
942 '222221', /* 02 */
943 '121223', /* 03 */
944 '121322', /* 04 */
945 '131222', /* 05 */
946 '122213', /* 06 */
947 '122312', /* 07 */
948 '132212', /* 08 */
949 '221213', /* 09 */
950 '221312', /* 10 */
951 '231212', /* 11 */
952 '112232', /* 12 */
953 '122132', /* 13 */
954 '122231', /* 14 */
955 '113222', /* 15 */
956 '123122', /* 16 */
957 '123221', /* 17 */
958 '223211', /* 18 */
959 '221132', /* 19 */
960 '221231', /* 20 */
961 '213212', /* 21 */
962 '223112', /* 22 */
963 '312131', /* 23 */
964 '311222', /* 24 */
965 '321122', /* 25 */
966 '321221', /* 26 */
967 '312212', /* 27 */
968 '322112', /* 28 */
969 '322211', /* 29 */
970 '212123', /* 30 */
971 '212321', /* 31 */
972 '232121', /* 32 */
973 '111323', /* 33 */
974 '131123', /* 34 */
975 '131321', /* 35 */
976 '112313', /* 36 */
977 '132113', /* 37 */
978 '132311', /* 38 */
979 '211313', /* 39 */
980 '231113', /* 40 */
981 '231311', /* 41 */
982 '112133', /* 42 */
983 '112331', /* 43 */
984 '132131', /* 44 */
985 '113123', /* 45 */
986 '113321', /* 46 */
987 '133121', /* 47 */
988 '313121', /* 48 */
989 '211331', /* 49 */
990 '231131', /* 50 */
991 '213113', /* 51 */
992 '213311', /* 52 */
993 '213131', /* 53 */
994 '311123', /* 54 */
995 '311321', /* 55 */
996 '331121', /* 56 */
997 '312113', /* 57 */
998 '312311', /* 58 */
999 '332111', /* 59 */
1000 '314111', /* 60 */
1001 '221411', /* 61 */
1002 '431111', /* 62 */
1003 '111224', /* 63 */
1004 '111422', /* 64 */
1005 '121124', /* 65 */
1006 '121421', /* 66 */
1007 '141122', /* 67 */
1008 '141221', /* 68 */
1009 '112214', /* 69 */
1010 '112412', /* 70 */
1011 '122114', /* 71 */
1012 '122411', /* 72 */
1013 '142112', /* 73 */
1014 '142211', /* 74 */
1015 '241211', /* 75 */
1016 '221114', /* 76 */
1017 '413111', /* 77 */
1018 '241112', /* 78 */
1019 '134111', /* 79 */
1020 '111242', /* 80 */
1021 '121142', /* 81 */
1022 '121241', /* 82 */
1023 '114212', /* 83 */
1024 '124112', /* 84 */
1025 '124211', /* 85 */
1026 '411212', /* 86 */
1027 '421112', /* 87 */
1028 '421211', /* 88 */
1029 '212141', /* 89 */
1030 '214121', /* 90 */
1031 '412121', /* 91 */
1032 '111143', /* 92 */
1033 '111341', /* 93 */
1034 '131141', /* 94 */
1035 '114113', /* 95 */
1036 '114311', /* 96 */
1037 '411113', /* 97 */
1038 '411311', /* 98 */
1039 '113141', /* 99 */
1040 '114131', /* 100 */
1041 '311141', /* 101 */
1042 '411131', /* 102 */
1043 '211412', /* 103 START A */
1044 '211214', /* 104 START B */
1045 '211232', /* 105 START C */
1046 '233111', /* STOP */
1047 '200000' /* END */
1048 );
1049 // ASCII characters for code A (ASCII 00 - 95)
1050 $keys_a = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_';
1051 $keys_a .= chr(0).chr(1).chr(2).chr(3).chr(4).chr(5).chr(6).chr(7).chr(8).chr(9);
1052 $keys_a .= chr(10).chr(11).chr(12).chr(13).chr(14).chr(15).chr(16).chr(17).chr(18).chr(19);
1053 $keys_a .= chr(20).chr(21).chr(22).chr(23).chr(24).chr(25).chr(26).chr(27).chr(28).chr(29);
1054 $keys_a .= chr(30).chr(31);
1055 // ASCII characters for code B (ASCII 32 - 127)
1056 $keys_b = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~'.chr(127);
1057 // special codes
1058 $fnc_a = array(241 => 102, 242 => 97, 243 => 96, 244 => 101);
1059 $fnc_b = array(241 => 102, 242 => 97, 243 => 96, 244 => 100);
1060 // array of symbols
1061 $code_data = array();
1062 // lenght of the code
1063 $len = strlen($code);
1064 switch(strtoupper($type)) {
1065 case 'A': { // MODE A
1066 $startid = 103;
1067 for ($i = 0; $i < $len; ++$i) {
1068 $char = $code{$i};
1069 $char_id = ord($char);
1070 if (($char_id >= 241) AND ($char_id <= 244)) {
1071 $code_data[] = $fnc_a[$char_id];
1072 } elseif (($char_id >= 0) AND ($char_id <= 95)) {
1073 $code_data[] = strpos($keys_a, $char);
1074 } else {
1075 return false;
1076 }
1077 }
1078 break;
1079 }
1080 case 'B': { // MODE B
1081 $startid = 104;
1082 for ($i = 0; $i < $len; ++$i) {
1083 $char = $code{$i};
1084 $char_id = ord($char);
1085 if (($char_id >= 241) AND ($char_id <= 244)) {
1086 $code_data[] = $fnc_b[$char_id];
1087 } elseif (($char_id >= 32) AND ($char_id <= 127)) {
1088 $code_data[] = strpos($keys_b, $char);
1089 } else {
1090 return false;
1091 }
1092 }
1093 break;
1094 }
1095 case 'C': { // MODE C
1096 $startid = 105;
1097 if (ord($code{0}) == 241) {
1098 $code_data[] = 102;
1099 $code = substr($code, 1);
1100 --$len;
1101 }
1102 if (($len % 2) != 0) {
1103 // the length must be even
1104 return false;
1105 }
1106 for ($i = 0; $i < $len; $i+=2) {
1107 $chrnum = $code{$i}.$code{$i+1};
1108 if (preg_match('/([0-9]{2})/', $chrnum) > 0) {
1109 $code_data[] = intval($chrnum);
1110 } else {
1111 return false;
1112 }
1113 }
1114 break;
1115 }
1116 default: { // MODE AUTO
1117 // split code into sequences
1118 $sequence = array();
1119 // get numeric sequences (if any)
1120 $numseq = array();
1121 preg_match_all('/([0-9]{4,})/', $code, $numseq, PREG_OFFSET_CAPTURE);
1122 if (isset($numseq[1]) AND !empty($numseq[1])) {
1123 $end_offset = 0;
1124 foreach ($numseq[1] as $val) {
1125 $offset = $val[1];
1126 if ($offset > $end_offset) {
1127 // non numeric sequence
1128 $sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset, ($offset - $end_offset))));
1129 }
1130 // numeric sequence
1131 $slen = strlen($val[0]);
1132 if (($slen % 2) != 0) {
1133 // the length must be even
1134 --$slen;
1135 }
1136 $sequence[] = array('C', substr($code, $offset, $slen), $slen);
1137 $end_offset = $offset + $slen;
1138 }
1139 if ($end_offset < $len) {
1140 $sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset)));
1141 }
1142 } else {
1143 // text code (non C mode)
1144 $sequence = array_merge($sequence, $this->get128ABsequence($code));
1145 }
1146 // process the sequence
1147 foreach ($sequence as $key => $seq) {
1148 switch($seq[0]) {
1149 case 'A': {
1150 if ($key == 0) {
1151 $startid = 103;
1152 } elseif ($sequence[($key - 1)][0] != 'A') {
1153 if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'B') AND (!isset($sequence[($key - 1)][3]))) {
1154 // single character shift
1155 $code_data[] = 98;
1156 // mark shift
1157 $sequence[$key][3] = true;
1158 } elseif (!isset($sequence[($key - 1)][3])) {
1159 $code_data[] = 101;
1160 }
1161 }
1162 for ($i = 0; $i < $seq[2]; ++$i) {
1163 $char = $seq[1]{$i};
1164 $char_id = ord($char);
1165 if (($char_id >= 241) AND ($char_id <= 244)) {
1166 $code_data[] = $fnc_a[$char_id];
1167 } else {
1168 $code_data[] = strpos($keys_a, $char);
1169 }
1170 }
1171 break;
1172 }
1173 case 'B': {
1174 if ($key == 0) {
1175 $tmpchr = ord($seq[1]{0});
1176 if (($seq[2] == 1) AND ($tmpchr >= 241) AND ($tmpchr <= 244) AND isset($sequence[($key + 1)]) AND ($sequence[($key + 1)][0] != 'B')) {
1177 switch ($sequence[($key + 1)][0]) {
1178 case 'A': {
1179 $startid = 103;
1180 $sequence[$key][0] = 'A';
1181 $code_data[] = $fnc_a[$tmpchr];
1182 break;
1183 }
1184 case 'C': {
1185 $startid = 105;
1186 $sequence[$key][0] = 'C';
1187 $code_data[] = $fnc_a[$tmpchr];
1188 break;
1189 }
1190 }
1191 break;
1192 } else {
1193 $startid = 104;
1194 }
1195 } elseif ($sequence[($key - 1)][0] != 'B') {
1196 if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'A') AND (!isset($sequence[($key - 1)][3]))) {
1197 // single character shift
1198 $code_data[] = 98;
1199 // mark shift
1200 $sequence[$key][3] = true;
1201 } elseif (!isset($sequence[($key - 1)][3])) {
1202 $code_data[] = 100;
1203 }
1204 }
1205 for ($i = 0; $i < $seq[2]; ++$i) {
1206 $char = $seq[1]{$i};
1207 $char_id = ord($char);
1208 if (($char_id >= 241) AND ($char_id <= 244)) {
1209 $code_data[] = $fnc_b[$char_id];
1210 } else {
1211 $code_data[] = strpos($keys_b, $char);
1212 }
1213 }
1214 break;
1215 }
1216 case 'C': {
1217 if ($key == 0) {
1218 $startid = 105;
1219 } elseif ($sequence[($key - 1)][0] != 'C') {
1220 $code_data[] = 99;
1221 }
1222 for ($i = 0; $i < $seq[2]; $i+=2) {
1223 $chrnum = $seq[1]{$i}.$seq[1]{$i+1};
1224 $code_data[] = intval($chrnum);
1225 }
1226 break;
1227 }
1228 }
1229 }
1230 }
1231 }
1232 // calculate check character
1233 $sum = $startid;
1234 foreach ($code_data as $key => $val) {
1235 $sum += ($val * ($key + 1));
1236 }
1237 // add check character
1238 $code_data[] = ($sum % 103);
1239 // add stop sequence
1240 $code_data[] = 106;
1241 $code_data[] = 107;
1242 // add start code at the beginning
1243 array_unshift($code_data, $startid);
1244 // build barcode array
1245 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1246 foreach ($code_data as $val) {
1247 $seq = $chr[$val];
1248 for ($j = 0; $j < 6; ++$j) {
1249 if (($j % 2) == 0) {
1250 $t = true; // bar
1251 } else {
1252 $t = false; // space
1253 }
1254 $w = $seq{$j};
1255 $bararray['bcode'][] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1256 $bararray['maxw'] += $w;
1257 }
1258 }
1259 return $bararray;
1260 }
1261
1268 protected function get128ABsequence($code) {
1269 $len = strlen($code);
1270 $sequence = array();
1271 // get A sequences (if any)
1272 $numseq = array();
1273 preg_match_all('/([\0-\31])/', $code, $numseq, PREG_OFFSET_CAPTURE);
1274 if (isset($numseq[1]) AND !empty($numseq[1])) {
1275 $end_offset = 0;
1276 foreach ($numseq[1] as $val) {
1277 $offset = $val[1];
1278 if ($offset > $end_offset) {
1279 // B sequence
1280 $sequence[] = array('B', substr($code, $end_offset, ($offset - $end_offset)), ($offset - $end_offset));
1281 }
1282 // A sequence
1283 $slen = strlen($val[0]);
1284 $sequence[] = array('A', substr($code, $offset, $slen), $slen);
1285 $end_offset = $offset + $slen;
1286 }
1287 if ($end_offset < $len) {
1288 $sequence[] = array('B', substr($code, $end_offset), ($len - $end_offset));
1289 }
1290 } else {
1291 // only B sequence
1292 $sequence[] = array('B', $code, $len);
1293 }
1294 return $sequence;
1295 }
1296
1307 protected function barcode_eanupc($code, $len=13) {
1308 $upce = false;
1309 if ($len == 6) {
1310 $len = 12; // UPC-A
1311 $upce = true; // UPC-E mode
1312 }
1313 $data_len = $len - 1;
1314 //Padding
1315 $code = str_pad($code, $data_len, '0', STR_PAD_LEFT);
1316 $code_len = strlen($code);
1317 // calculate check digit
1318 $sum_a = 0;
1319 for ($i = 1; $i < $data_len; $i+=2) {
1320 $sum_a += $code{$i};
1321 }
1322 if ($len > 12) {
1323 $sum_a *= 3;
1324 }
1325 $sum_b = 0;
1326 for ($i = 0; $i < $data_len; $i+=2) {
1327 $sum_b += ($code{$i});
1328 }
1329 if ($len < 13) {
1330 $sum_b *= 3;
1331 }
1332 $r = ($sum_a + $sum_b) % 10;
1333 if($r > 0) {
1334 $r = (10 - $r);
1335 }
1336 if ($code_len == $data_len) {
1337 // add check digit
1338 $code .= $r;
1339 } elseif ($r !== intval($code{$data_len})) {
1340 // wrong checkdigit
1341 return false;
1342 }
1343 if ($len == 12) {
1344 // UPC-A
1345 $code = '0'.$code;
1346 ++$len;
1347 }
1348 if ($upce) {
1349 // convert UPC-A to UPC-E
1350 $tmp = substr($code, 4, 3);
1351 if (($tmp == '000') OR ($tmp == '100') OR ($tmp == '200')) {
1352 // manufacturer code ends in 000, 100, or 200
1353 $upce_code = substr($code, 2, 2).substr($code, 9, 3).substr($code, 4, 1);
1354 } else {
1355 $tmp = substr($code, 5, 2);
1356 if ($tmp == '00') {
1357 // manufacturer code ends in 00
1358 $upce_code = substr($code, 2, 3).substr($code, 10, 2).'3';
1359 } else {
1360 $tmp = substr($code, 6, 1);
1361 if ($tmp == '0') {
1362 // manufacturer code ends in 0
1363 $upce_code = substr($code, 2, 4).substr($code, 11, 1).'4';
1364 } else {
1365 // manufacturer code does not end in zero
1366 $upce_code = substr($code, 2, 5).substr($code, 11, 1);
1367 }
1368 }
1369 }
1370 }
1371 //Convert digits to bars
1372 $codes = array(
1373 'A'=>array( // left odd parity
1374 '0'=>'0001101',
1375 '1'=>'0011001',
1376 '2'=>'0010011',
1377 '3'=>'0111101',
1378 '4'=>'0100011',
1379 '5'=>'0110001',
1380 '6'=>'0101111',
1381 '7'=>'0111011',
1382 '8'=>'0110111',
1383 '9'=>'0001011'),
1384 'B'=>array( // left even parity
1385 '0'=>'0100111',
1386 '1'=>'0110011',
1387 '2'=>'0011011',
1388 '3'=>'0100001',
1389 '4'=>'0011101',
1390 '5'=>'0111001',
1391 '6'=>'0000101',
1392 '7'=>'0010001',
1393 '8'=>'0001001',
1394 '9'=>'0010111'),
1395 'C'=>array( // right
1396 '0'=>'1110010',
1397 '1'=>'1100110',
1398 '2'=>'1101100',
1399 '3'=>'1000010',
1400 '4'=>'1011100',
1401 '5'=>'1001110',
1402 '6'=>'1010000',
1403 '7'=>'1000100',
1404 '8'=>'1001000',
1405 '9'=>'1110100')
1406 );
1407 $parities = array(
1408 '0'=>array('A','A','A','A','A','A'),
1409 '1'=>array('A','A','B','A','B','B'),
1410 '2'=>array('A','A','B','B','A','B'),
1411 '3'=>array('A','A','B','B','B','A'),
1412 '4'=>array('A','B','A','A','B','B'),
1413 '5'=>array('A','B','B','A','A','B'),
1414 '6'=>array('A','B','B','B','A','A'),
1415 '7'=>array('A','B','A','B','A','B'),
1416 '8'=>array('A','B','A','B','B','A'),
1417 '9'=>array('A','B','B','A','B','A')
1418 );
1419 $upce_parities = array();
1420 $upce_parities[0] = array(
1421 '0'=>array('B','B','B','A','A','A'),
1422 '1'=>array('B','B','A','B','A','A'),
1423 '2'=>array('B','B','A','A','B','A'),
1424 '3'=>array('B','B','A','A','A','B'),
1425 '4'=>array('B','A','B','B','A','A'),
1426 '5'=>array('B','A','A','B','B','A'),
1427 '6'=>array('B','A','A','A','B','B'),
1428 '7'=>array('B','A','B','A','B','A'),
1429 '8'=>array('B','A','B','A','A','B'),
1430 '9'=>array('B','A','A','B','A','B')
1431 );
1432 $upce_parities[1] = array(
1433 '0'=>array('A','A','A','B','B','B'),
1434 '1'=>array('A','A','B','A','B','B'),
1435 '2'=>array('A','A','B','B','A','B'),
1436 '3'=>array('A','A','B','B','B','A'),
1437 '4'=>array('A','B','A','A','B','B'),
1438 '5'=>array('A','B','B','A','A','B'),
1439 '6'=>array('A','B','B','B','A','A'),
1440 '7'=>array('A','B','A','B','A','B'),
1441 '8'=>array('A','B','A','B','B','A'),
1442 '9'=>array('A','B','B','A','B','A')
1443 );
1444 $k = 0;
1445 $seq = '101'; // left guard bar
1446 if ($upce) {
1447 $bararray = array('code' => $upce_code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1448 $p = $upce_parities[$code{1}][$r];
1449 for ($i = 0; $i < 6; ++$i) {
1450 $seq .= $codes[$p[$i]][$upce_code{$i}];
1451 }
1452 $seq .= '010101'; // right guard bar
1453 } else {
1454 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1455 $half_len = intval(ceil($len / 2));
1456 if ($len == 8) {
1457 for ($i = 0; $i < $half_len; ++$i) {
1458 $seq .= $codes['A'][$code{$i}];
1459 }
1460 } else {
1461 $p = $parities[$code{0}];
1462 for ($i = 1; $i < $half_len; ++$i) {
1463 $seq .= $codes[$p[$i-1]][$code{$i}];
1464 }
1465 }
1466 $seq .= '01010'; // center guard bar
1467 for ($i = $half_len; $i < $len; ++$i) {
1468 $seq .= $codes['C'][$code{$i}];
1469 }
1470 $seq .= '101'; // right guard bar
1471 }
1472 $clen = strlen($seq);
1473 $w = 0;
1474 for ($i = 0; $i < $clen; ++$i) {
1475 $w += 1;
1476 if (($i == ($clen - 1)) OR (($i < ($clen - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
1477 if ($seq{$i} == '1') {
1478 $t = true; // bar
1479 } else {
1480 $t = false; // space
1481 }
1482 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1483 $bararray['maxw'] += $w;
1484 ++$k;
1485 $w = 0;
1486 }
1487 }
1488 return $bararray;
1489 }
1490
1500 protected function barcode_eanext($code, $len=5) {
1501 //Padding
1502 $code = str_pad($code, $len, '0', STR_PAD_LEFT);
1503 // calculate check digit
1504 if ($len == 2) {
1505 $r = $code % 4;
1506 } elseif ($len == 5) {
1507 $r = (3 * ($code{0} + $code{2} + $code{4})) + (9 * ($code{1} + $code{3}));
1508 $r %= 10;
1509 } else {
1510 return false;
1511 }
1512 //Convert digits to bars
1513 $codes = array(
1514 'A'=>array( // left odd parity
1515 '0'=>'0001101',
1516 '1'=>'0011001',
1517 '2'=>'0010011',
1518 '3'=>'0111101',
1519 '4'=>'0100011',
1520 '5'=>'0110001',
1521 '6'=>'0101111',
1522 '7'=>'0111011',
1523 '8'=>'0110111',
1524 '9'=>'0001011'),
1525 'B'=>array( // left even parity
1526 '0'=>'0100111',
1527 '1'=>'0110011',
1528 '2'=>'0011011',
1529 '3'=>'0100001',
1530 '4'=>'0011101',
1531 '5'=>'0111001',
1532 '6'=>'0000101',
1533 '7'=>'0010001',
1534 '8'=>'0001001',
1535 '9'=>'0010111')
1536 );
1537 $parities = array();
1538 $parities[2] = array(
1539 '0'=>array('A','A'),
1540 '1'=>array('A','B'),
1541 '2'=>array('B','A'),
1542 '3'=>array('B','B')
1543 );
1544 $parities[5] = array(
1545 '0'=>array('B','B','A','A','A'),
1546 '1'=>array('B','A','B','A','A'),
1547 '2'=>array('B','A','A','B','A'),
1548 '3'=>array('B','A','A','A','B'),
1549 '4'=>array('A','B','B','A','A'),
1550 '5'=>array('A','A','B','B','A'),
1551 '6'=>array('A','A','A','B','B'),
1552 '7'=>array('A','B','A','B','A'),
1553 '8'=>array('A','B','A','A','B'),
1554 '9'=>array('A','A','B','A','B')
1555 );
1556 $p = $parities[$len][$r];
1557 $seq = '1011'; // left guard bar
1558 $seq .= $codes[$p[0]][$code{0}];
1559 for ($i = 1; $i < $len; ++$i) {
1560 $seq .= '01'; // separator
1561 $seq .= $codes[$p[$i]][$code{$i}];
1562 }
1563 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1564 return $this->binseq_to_array($seq, $bararray);
1565 }
1566
1575 protected function barcode_postnet($code, $planet=false) {
1576 // bar lenght
1577 if ($planet) {
1578 $barlen = Array(
1579 0 => Array(1,1,2,2,2),
1580 1 => Array(2,2,2,1,1),
1581 2 => Array(2,2,1,2,1),
1582 3 => Array(2,2,1,1,2),
1583 4 => Array(2,1,2,2,1),
1584 5 => Array(2,1,2,1,2),
1585 6 => Array(2,1,1,2,2),
1586 7 => Array(1,2,2,2,1),
1587 8 => Array(1,2,2,1,2),
1588 9 => Array(1,2,1,2,2)
1589 );
1590 } else {
1591 $barlen = Array(
1592 0 => Array(2,2,1,1,1),
1593 1 => Array(1,1,1,2,2),
1594 2 => Array(1,1,2,1,2),
1595 3 => Array(1,1,2,2,1),
1596 4 => Array(1,2,1,1,2),
1597 5 => Array(1,2,1,2,1),
1598 6 => Array(1,2,2,1,1),
1599 7 => Array(2,1,1,1,2),
1600 8 => Array(2,1,1,2,1),
1601 9 => Array(2,1,2,1,1)
1602 );
1603 }
1604 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
1605 $k = 0;
1606 $code = str_replace('-', '', $code);
1607 $code = str_replace(' ', '', $code);
1608 $len = strlen($code);
1609 // calculate checksum
1610 $sum = 0;
1611 for ($i = 0; $i < $len; ++$i) {
1612 $sum += intval($code{$i});
1613 }
1614 $chkd = ($sum % 10);
1615 if($chkd > 0) {
1616 $chkd = (10 - $chkd);
1617 }
1618 $code .= $chkd;
1619 $len = strlen($code);
1620 // start bar
1621 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
1622 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
1623 $bararray['maxw'] += 2;
1624 for ($i = 0; $i < $len; ++$i) {
1625 for ($j = 0; $j < 5; ++$j) {
1626 $h = $barlen[$code{$i}][$j];
1627 $p = floor(1 / $h);
1628 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
1629 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
1630 $bararray['maxw'] += 2;
1631 }
1632 }
1633 // end bar
1634 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
1635 $bararray['maxw'] += 1;
1636 return $bararray;
1637 }
1638
1648 protected function barcode_rms4cc($code, $kix=false) {
1649 $notkix = !$kix;
1650 // bar mode
1651 // 1 = pos 1, length 2
1652 // 2 = pos 1, length 3
1653 // 3 = pos 2, length 1
1654 // 4 = pos 2, length 2
1655 $barmode = array(
1656 '0' => array(3,3,2,2),
1657 '1' => array(3,4,1,2),
1658 '2' => array(3,4,2,1),
1659 '3' => array(4,3,1,2),
1660 '4' => array(4,3,2,1),
1661 '5' => array(4,4,1,1),
1662 '6' => array(3,1,4,2),
1663 '7' => array(3,2,3,2),
1664 '8' => array(3,2,4,1),
1665 '9' => array(4,1,3,2),
1666 'A' => array(4,1,4,1),
1667 'B' => array(4,2,3,1),
1668 'C' => array(3,1,2,4),
1669 'D' => array(3,2,1,4),
1670 'E' => array(3,2,2,3),
1671 'F' => array(4,1,1,4),
1672 'G' => array(4,1,2,3),
1673 'H' => array(4,2,1,3),
1674 'I' => array(1,3,4,2),
1675 'J' => array(1,4,3,2),
1676 'K' => array(1,4,4,1),
1677 'L' => array(2,3,3,2),
1678 'M' => array(2,3,4,1),
1679 'N' => array(2,4,3,1),
1680 'O' => array(1,3,2,4),
1681 'P' => array(1,4,1,4),
1682 'Q' => array(1,4,2,3),
1683 'R' => array(2,3,1,4),
1684 'S' => array(2,3,2,3),
1685 'T' => array(2,4,1,3),
1686 'U' => array(1,1,4,4),
1687 'V' => array(1,2,3,4),
1688 'W' => array(1,2,4,3),
1689 'X' => array(2,1,3,4),
1690 'Y' => array(2,1,4,3),
1691 'Z' => array(2,2,3,3)
1692 );
1693 $code = strtoupper($code);
1694 $len = strlen($code);
1695 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
1696 if ($notkix) {
1697 // table for checksum calculation (row,col)
1698 $checktable = array(
1699 '0' => array(1,1),
1700 '1' => array(1,2),
1701 '2' => array(1,3),
1702 '3' => array(1,4),
1703 '4' => array(1,5),
1704 '5' => array(1,0),
1705 '6' => array(2,1),
1706 '7' => array(2,2),
1707 '8' => array(2,3),
1708 '9' => array(2,4),
1709 'A' => array(2,5),
1710 'B' => array(2,0),
1711 'C' => array(3,1),
1712 'D' => array(3,2),
1713 'E' => array(3,3),
1714 'F' => array(3,4),
1715 'G' => array(3,5),
1716 'H' => array(3,0),
1717 'I' => array(4,1),
1718 'J' => array(4,2),
1719 'K' => array(4,3),
1720 'L' => array(4,4),
1721 'M' => array(4,5),
1722 'N' => array(4,0),
1723 'O' => array(5,1),
1724 'P' => array(5,2),
1725 'Q' => array(5,3),
1726 'R' => array(5,4),
1727 'S' => array(5,5),
1728 'T' => array(5,0),
1729 'U' => array(0,1),
1730 'V' => array(0,2),
1731 'W' => array(0,3),
1732 'X' => array(0,4),
1733 'Y' => array(0,5),
1734 'Z' => array(0,0)
1735 );
1736 $row = 0;
1737 $col = 0;
1738 for ($i = 0; $i < $len; ++$i) {
1739 $row += $checktable[$code{$i}][0];
1740 $col += $checktable[$code{$i}][1];
1741 }
1742 $row %= 6;
1743 $col %= 6;
1744 $chk = array_keys($checktable, array($row,$col));
1745 $code .= $chk[0];
1746 ++$len;
1747 }
1748 $k = 0;
1749 if ($notkix) {
1750 // start bar
1751 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
1752 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
1753 $bararray['maxw'] += 2;
1754 }
1755 for ($i = 0; $i < $len; ++$i) {
1756 for ($j = 0; $j < 4; ++$j) {
1757 switch ($barmode[$code{$i}][$j]) {
1758 case 1: {
1759 $p = 0;
1760 $h = 2;
1761 break;
1762 }
1763 case 2: {
1764 $p = 0;
1765 $h = 3;
1766 break;
1767 }
1768 case 3: {
1769 $p = 1;
1770 $h = 1;
1771 break;
1772 }
1773 case 4: {
1774 $p = 1;
1775 $h = 2;
1776 break;
1777 }
1778 }
1779 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
1780 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
1781 $bararray['maxw'] += 2;
1782 }
1783 }
1784 if ($notkix) {
1785 // stop bar
1786 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 3, 'p' => 0);
1787 $bararray['maxw'] += 1;
1788 }
1789 return $bararray;
1790 }
1791
1799 protected function barcode_codabar($code) {
1800 $chr = array(
1801 '0' => '11111221',
1802 '1' => '11112211',
1803 '2' => '11121121',
1804 '3' => '22111111',
1805 '4' => '11211211',
1806 '5' => '21111211',
1807 '6' => '12111121',
1808 '7' => '12112111',
1809 '8' => '12211111',
1810 '9' => '21121111',
1811 '-' => '11122111',
1812 '$' => '11221111',
1813 ':' => '21112121',
1814 '/' => '21211121',
1815 '.' => '21212111',
1816 '+' => '11222221',
1817 'A' => '11221211',
1818 'B' => '12121121',
1819 'C' => '11121221',
1820 'D' => '11122211'
1821 );
1822 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1823 $k = 0;
1824 $w = 0;
1825 $seq = '';
1826 $code = 'A'.strtoupper($code).'A';
1827 $len = strlen($code);
1828 for ($i = 0; $i < $len; ++$i) {
1829 if (!isset($chr[$code{$i}])) {
1830 return false;
1831 }
1832 $seq = $chr[$code{$i}];
1833 for ($j = 0; $j < 8; ++$j) {
1834 if (($j % 2) == 0) {
1835 $t = true; // bar
1836 } else {
1837 $t = false; // space
1838 }
1839 $w = $seq{$j};
1840 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1841 $bararray['maxw'] += $w;
1842 ++$k;
1843 }
1844 }
1845 return $bararray;
1846 }
1847
1855 protected function barcode_code11($code) {
1856 $chr = array(
1857 '0' => '111121',
1858 '1' => '211121',
1859 '2' => '121121',
1860 '3' => '221111',
1861 '4' => '112121',
1862 '5' => '212111',
1863 '6' => '122111',
1864 '7' => '111221',
1865 '8' => '211211',
1866 '9' => '211111',
1867 '-' => '112111',
1868 'S' => '112211'
1869 );
1870 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1871 $k = 0;
1872 $w = 0;
1873 $seq = '';
1874 $len = strlen($code);
1875 // calculate check digit C
1876 $p = 1;
1877 $check = 0;
1878 for ($i = ($len - 1); $i >= 0; --$i) {
1879 $digit = $code{$i};
1880 if ($digit == '-') {
1881 $dval = 10;
1882 } else {
1883 $dval = intval($digit);
1884 }
1885 $check += ($dval * $p);
1886 ++$p;
1887 if ($p > 10) {
1888 $p = 1;
1889 }
1890 }
1891 $check %= 11;
1892 if ($check == 10) {
1893 $check = '-';
1894 }
1895 $code .= $check;
1896 if ($len > 10) {
1897 // calculate check digit K
1898 $p = 1;
1899 $check = 0;
1900 for ($i = $len; $i >= 0; --$i) {
1901 $digit = $code{$i};
1902 if ($digit == '-') {
1903 $dval = 10;
1904 } else {
1905 $dval = intval($digit);
1906 }
1907 $check += ($dval * $p);
1908 ++$p;
1909 if ($p > 9) {
1910 $p = 1;
1911 }
1912 }
1913 $check %= 11;
1914 $code .= $check;
1915 ++$len;
1916 }
1917 $code = 'S'.$code.'S';
1918 $len += 3;
1919 for ($i = 0; $i < $len; ++$i) {
1920 if (!isset($chr[$code{$i}])) {
1921 return false;
1922 }
1923 $seq = $chr[$code{$i}];
1924 for ($j = 0; $j < 6; ++$j) {
1925 if (($j % 2) == 0) {
1926 $t = true; // bar
1927 } else {
1928 $t = false; // space
1929 }
1930 $w = $seq{$j};
1931 $bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
1932 $bararray['maxw'] += $w;
1933 ++$k;
1934 }
1935 }
1936 return $bararray;
1937 }
1938
1946 protected function barcode_pharmacode($code) {
1947 $seq = '';
1948 $code = intval($code);
1949 while ($code > 0) {
1950 if (($code % 2) == 0) {
1951 $seq .= '11100';
1952 $code -= 2;
1953 } else {
1954 $seq .= '100';
1955 $code -= 1;
1956 }
1957 $code /= 2;
1958 }
1959 $seq = substr($seq, 0, -2);
1960 $seq = strrev($seq);
1961 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
1962 return $this->binseq_to_array($seq, $bararray);
1963 }
1964
1972 protected function barcode_pharmacode2t($code) {
1973 $seq = '';
1974 $code = intval($code);
1975 do {
1976 switch ($code % 3) {
1977 case 0: {
1978 $seq .= '3';
1979 $code = ($code - 3) / 3;
1980 break;
1981 }
1982 case 1: {
1983 $seq .= '1';
1984 $code = ($code - 1) / 3;
1985 break;
1986 }
1987 case 2: {
1988 $seq .= '2';
1989 $code = ($code - 2) / 3;
1990 break;
1991 }
1992 }
1993 } while($code != 0);
1994 $seq = strrev($seq);
1995 $k = 0;
1996 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
1997 $len = strlen($seq);
1998 for ($i = 0; $i < $len; ++$i) {
1999 switch ($seq{$i}) {
2000 case '1': {
2001 $p = 1;
2002 $h = 1;
2003 break;
2004 }
2005 case '2': {
2006 $p = 0;
2007 $h = 1;
2008 break;
2009 }
2010 case '3': {
2011 $p = 0;
2012 $h = 2;
2013 break;
2014 }
2015 }
2016 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
2017 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
2018 $bararray['maxw'] += 2;
2019 }
2020 unset($bararray['bcode'][($k - 1)]);
2021 --$bararray['maxw'];
2022 return $bararray;
2023 }
2024
2025
2035 protected function barcode_imb($code) {
2036 $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);
2037 $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);
2038 $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);
2039 $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);
2040 $code_arr = explode('-', $code);
2041 $tracking_number = $code_arr[0];
2042 if (isset($code_arr[1])) {
2043 $routing_code = $code_arr[1];
2044 } else {
2045 $routing_code = '';
2046 }
2047 // Conversion of Routing Code
2048 switch (strlen($routing_code)) {
2049 case 0: {
2050 $binary_code = 0;
2051 break;
2052 }
2053 case 5: {
2054 $binary_code = bcadd($routing_code, '1');
2055 break;
2056 }
2057 case 9: {
2058 $binary_code = bcadd($routing_code, '100001');
2059 break;
2060 }
2061 case 11: {
2062 $binary_code = bcadd($routing_code, '1000100001');
2063 break;
2064 }
2065 default: {
2066 return false;
2067 break;
2068 }
2069 }
2070 $binary_code = bcmul($binary_code, 10);
2071 $binary_code = bcadd($binary_code, $tracking_number{0});
2072 $binary_code = bcmul($binary_code, 5);
2073 $binary_code = bcadd($binary_code, $tracking_number{1});
2074 $binary_code .= substr($tracking_number, 2, 18);
2075 // convert to hexadecimal
2076 $binary_code = $this->dec_to_hex($binary_code);
2077 // pad to get 13 bytes
2078 $binary_code = str_pad($binary_code, 26, '0', STR_PAD_LEFT);
2079 // convert string to array of bytes
2080 $binary_code_arr = chunk_split($binary_code, 2, "\r");
2081 $binary_code_arr = substr($binary_code_arr, 0, -1);
2082 $binary_code_arr = explode("\r", $binary_code_arr);
2083 // calculate frame check sequence
2084 $fcs = $this->imb_crc11fcs($binary_code_arr);
2085 // exclude first 2 bits from first byte
2086 $first_byte = sprintf('%2s', dechex((hexdec($binary_code_arr[0]) << 2) >> 2));
2087 $binary_code_102bit = $first_byte.substr($binary_code, 2);
2088 // convert binary data to codewords
2089 $codewords = array();
2090 $data = $this->hex_to_dec($binary_code_102bit);
2091 $codewords[0] = bcmod($data, 636) * 2;
2092 $data = bcdiv($data, 636);
2093 for ($i = 1; $i < 9; ++$i) {
2094 $codewords[$i] = bcmod($data, 1365);
2095 $data = bcdiv($data, 1365);
2096 }
2097 $codewords[9] = $data;
2098 if (($fcs >> 10) == 1) {
2099 $codewords[9] += 659;
2100 }
2101 // generate lookup tables
2102 $table2of13 = $this->imb_tables(2, 78);
2103 $table5of13 = $this->imb_tables(5, 1287);
2104 // convert codewords to characters
2105 $characters = array();
2106 $bitmask = 512;
2107 foreach($codewords as $k => $val) {
2108 if ($val <= 1286) {
2109 $chrcode = $table5of13[$val];
2110 } else {
2111 $chrcode = $table2of13[($val - 1287)];
2112 }
2113 if (($fcs & $bitmask) > 0) {
2114 // bitwise invert
2115 $chrcode = ((~$chrcode) & 8191);
2116 }
2117 $characters[] = $chrcode;
2118 $bitmask /= 2;
2119 }
2120 $characters = array_reverse($characters);
2121 // build bars
2122 $k = 0;
2123 $bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
2124 for ($i = 0; $i < 65; ++$i) {
2125 $asc = (($characters[$asc_chr[$i]] & pow(2, $asc_pos[$i])) > 0);
2126 $dsc = (($characters[$dsc_chr[$i]] & pow(2, $dsc_pos[$i])) > 0);
2127 if ($asc AND $dsc) {
2128 // full bar (F)
2129 $p = 0;
2130 $h = 3;
2131 } elseif ($asc) {
2132 // ascender (A)
2133 $p = 0;
2134 $h = 2;
2135 } elseif ($dsc) {
2136 // descender (D)
2137 $p = 1;
2138 $h = 2;
2139 } else {
2140 // tracker (T)
2141 $p = 1;
2142 $h = 1;
2143 }
2144 $bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
2145 $bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
2146 $bararray['maxw'] += 2;
2147 }
2148 unset($bararray['bcode'][($k - 1)]);
2149 --$bararray['maxw'];
2150 return $bararray;
2151 }
2152
2159 public function dec_to_hex($number) {
2160 $i = 0;
2161 $hex = array();
2162 if($number == 0) {
2163 return '00';
2164 }
2165 while($number > 0) {
2166 if($number == 0) {
2167 array_push($hex, '0');
2168 } else {
2169 array_push($hex, strtoupper(dechex(bcmod($number, '16'))));
2170 $number = bcdiv($number, '16', 0);
2171 }
2172 }
2173 $hex = array_reverse($hex);
2174 return implode($hex);
2175 }
2176
2183 public function hex_to_dec($hex) {
2184 $dec = 0;
2185 $bitval = 1;
2186 $len = strlen($hex);
2187 for($pos = ($len - 1); $pos >= 0; --$pos) {
2188 $dec = bcadd($dec, bcmul(hexdec($hex{$pos}), $bitval));
2189 $bitval = bcmul($bitval, 16);
2190 }
2191 return $dec;
2192 }
2193
2200 protected function imb_crc11fcs($code_arr) {
2201 $genpoly = 0x0F35; // generator polynomial
2202 $fcs = 0x07FF; // Frame Check Sequence
2203 // do most significant byte skipping the 2 most significant bits
2204 $data = hexdec($code_arr[0]) << 5;
2205 for ($bit = 2; $bit < 8; ++$bit) {
2206 if (($fcs ^ $data) & 0x400) {
2207 $fcs = ($fcs << 1) ^ $genpoly;
2208 } else {
2209 $fcs = ($fcs << 1);
2210 }
2211 $fcs &= 0x7FF;
2212 $data <<= 1;
2213 }
2214 // do rest of bytes
2215 for ($byte = 1; $byte < 13; ++$byte) {
2216 $data = hexdec($code_arr[$byte]) << 3;
2217 for ($bit = 0; $bit < 8; ++$bit) {
2218 if (($fcs ^ $data) & 0x400) {
2219 $fcs = ($fcs << 1) ^ $genpoly;
2220 } else {
2221 $fcs = ($fcs << 1);
2222 }
2223 $fcs &= 0x7FF;
2224 $data <<= 1;
2225 }
2226 }
2227 return $fcs;
2228 }
2229
2236 protected function imb_reverse_us($num) {
2237 $rev = 0;
2238 for ($i = 0; $i < 16; ++$i) {
2239 $rev <<= 1;
2240 $rev |= ($num & 1);
2241 $num >>= 1;
2242 }
2243 return $rev;
2244 }
2245
2253 protected function imb_tables($n, $size) {
2254 $table = array();
2255 $lli = 0; // LUT lower index
2256 $lui = $size - 1; // LUT upper index
2257 for ($count = 0; $count < 8192; ++$count) {
2258 $bit_count = 0;
2259 for ($bit_index = 0; $bit_index < 13; ++$bit_index) {
2260 $bit_count += intval(($count & (1 << $bit_index)) != 0);
2261 }
2262 // if we don't have the right number of bits on, go on to the next value
2263 if ($bit_count == $n) {
2264 $reverse = ($this->imb_reverse_us($count) >> 3);
2265 // if the reverse is less than count, we have already visited this pair before
2266 if ($reverse >= $count) {
2267 // If count is symmetric, place it at the first free slot from the end of the list.
2268 // 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
2269 if ($reverse == $count) {
2270 $table[$lui] = $count;
2271 --$lui;
2272 } else {
2273 $table[$lli] = $count;
2274 ++$lli;
2275 $table[$lli] = $reverse;
2276 ++$lli;
2277 }
2278 }
2279 }
2280 }
2281 return $table;
2282 }
2283
2284} // end of class
2285//============================================================+
2286// END OF FILE
2287//============================================================+
$n
$n
Definition: RandomTest.php:80
$size
$size
Definition: RandomTest.php:79
TCPDFBarcode
PHP class to creates array representations for common 1D barcodes to be used with TCPDF (http://www....
Definition: tcpdf_barcodes_1d.php:50
TCPDFBarcode\imb_crc11fcs
imb_crc11fcs($code_arr)
Intelligent Mail Barcode calculation of Frame Check Sequence.
Definition: tcpdf_barcodes_1d.php:2200
TCPDFBarcode\$barcode_array
$barcode_array
Array representation of barcode.
Definition: tcpdf_barcodes_1d.php:56
TCPDFBarcode\dec_to_hex
dec_to_hex($number)
Convert large integer number to hexadecimal representation.
Definition: tcpdf_barcodes_1d.php:2159
TCPDFBarcode\barcode_i25
barcode_i25($code, $checksum=false)
Interleaved 2 of 5 barcodes.
Definition: tcpdf_barcodes_1d.php:874
TCPDFBarcode\getBarcodeArray
getBarcodeArray()
Return an array representations of barcode.
Definition: tcpdf_barcodes_1d.php:82
TCPDFBarcode\encode_code39_ext
encode_code39_ext($code)
Encode a string to be used for CODE 39 Extended mode.
Definition: tcpdf_barcodes_1d.php:466
TCPDFBarcode\checksum_code39
checksum_code39($code)
Calculate CODE 39 checksum (modulo 43).
Definition: tcpdf_barcodes_1d.php:517
TCPDFBarcode\barcode_eanext
barcode_eanext($code, $len=5)
UPC-Based Extentions 2-Digit Ext.
Definition: tcpdf_barcodes_1d.php:1500
TCPDFBarcode\getBarcodeSVG
getBarcodeSVG($w=2, $h=30, $color='black')
Send barcode as SVG image object to the standard output.
Definition: tcpdf_barcodes_1d.php:93
TCPDFBarcode\barcode_pharmacode
barcode_pharmacode($code)
Pharmacode Contains digits (0 to 9)
Definition: tcpdf_barcodes_1d.php:1946
TCPDFBarcode\getBarcodePNG
getBarcodePNG($w=2, $h=30, $color=array(0, 0, 0))
Return a PNG image representation of barcode (requires GD or Imagick library).
Definition: tcpdf_barcodes_1d.php:173
TCPDFBarcode\barcode_s25
barcode_s25($code, $checksum=false)
Standard 2 of 5 barcodes.
Definition: tcpdf_barcodes_1d.php:802
TCPDFBarcode\barcode_rms4cc
barcode_rms4cc($code, $kix=false)
RMS4CC - CBC - KIX RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code) - KIX (Klant i...
Definition: tcpdf_barcodes_1d.php:1648
TCPDFBarcode\barcode_postnet
barcode_postnet($code, $planet=false)
POSTNET and PLANET barcodes.
Definition: tcpdf_barcodes_1d.php:1575
TCPDFBarcode\imb_tables
imb_tables($n, $size)
generate Nof13 tables used for Intelligent Mail Barcode
Definition: tcpdf_barcodes_1d.php:2253
TCPDFBarcode\checksum_code93
checksum_code93($code)
Calculate CODE 93 checksum (modulo 47).
Definition: tcpdf_barcodes_1d.php:668
TCPDFBarcode\checksum_s25
checksum_s25($code)
Checksum for standard 2 of 5 barcodes.
Definition: tcpdf_barcodes_1d.php:717
TCPDFBarcode\hex_to_dec
hex_to_dec($hex)
Convert large hexadecimal number to decimal representation (string).
Definition: tcpdf_barcodes_1d.php:2183
TCPDFBarcode\barcode_msi
barcode_msi($code, $checksum=false)
MSI.
Definition: tcpdf_barcodes_1d.php:743
TCPDFBarcode\imb_reverse_us
imb_reverse_us($num)
Reverse unsigned short value.
Definition: tcpdf_barcodes_1d.php:2236
TCPDFBarcode\getBarcodeHTML
getBarcodeHTML($w=2, $h=30, $color='black')
Return an HTML representation of barcode.
Definition: tcpdf_barcodes_1d.php:147
TCPDFBarcode\barcode_code39
barcode_code39($code, $extended=false, $checksum=false)
CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
Definition: tcpdf_barcodes_1d.php:373
TCPDFBarcode\barcode_imb
barcode_imb($code)
IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200 (requires PHP bcmath extension) Intelligent Ma...
Definition: tcpdf_barcodes_1d.php:2035
TCPDFBarcode\binseq_to_array
binseq_to_array($seq, $bararray)
Convert binary barcode sequence to TCPDF barcode array.
Definition: tcpdf_barcodes_1d.php:844
TCPDFBarcode\barcode_code11
barcode_code11($code)
CODE11 barcodes.
Definition: tcpdf_barcodes_1d.php:1855
TCPDFBarcode\get128ABsequence
get128ABsequence($code)
Split text code in A/B sequence for 128 code.
Definition: tcpdf_barcodes_1d.php:1268
TCPDFBarcode\__construct
__construct($code, $type)
This is the class constructor.
Definition: tcpdf_barcodes_1d.php:73
TCPDFBarcode\getBarcodeSVGcode
getBarcodeSVGcode($w=2, $h=30, $color='black')
Return a SVG string representation of barcode.
Definition: tcpdf_barcodes_1d.php:114
TCPDFBarcode\barcode_eanupc
barcode_eanupc($code, $len=13)
EAN13 and UPC-A barcodes.
Definition: tcpdf_barcodes_1d.php:1307
TCPDFBarcode\barcode_codabar
barcode_codabar($code)
CODABAR barcodes.
Definition: tcpdf_barcodes_1d.php:1799
TCPDFBarcode\barcode_pharmacode2t
barcode_pharmacode2t($code)
Pharmacode two-track Contains digits (0 to 9)
Definition: tcpdf_barcodes_1d.php:1972
TCPDFBarcode\setBarcode
setBarcode($code, $type)
Set the barcode.
Definition: tcpdf_barcodes_1d.php:233
TCPDFBarcode\barcode_c128
barcode_c128($code, $type='')
C128 barcodes.
Definition: tcpdf_barcodes_1d.php:938
TCPDFBarcode\barcode_code93
barcode_code93($code)
CODE 93 - USS-93 Compact code similar to Code 39.
Definition: tcpdf_barcodes_1d.php:540
$t
$t
Definition: class.ilBMFType_duration.php:154