32
1
mirror of https://github.com/vdm-io/tcpdf.git synced 2024-12-25 01:45:58 +00:00
tcpdf/barcodes.php

2201 lines
67 KiB
PHP
Raw Normal View History

2009-08-17 16:00:15 +00:00
<?php
//============================================================+
// File name : barcodes.php
2011-08-17 08:06:00 +00:00
// Version : 1.0.018
2009-08-17 16:00:15 +00:00
// Begin : 2008-06-09
2011-08-17 08:06:00 +00:00
// Last Update : 2011-08-17
2010-06-05 20:12:05 +00:00
// Author : Nicola Asuni - Tecnick.com S.r.l - Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com
// License : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html)
// -------------------------------------------------------------------
2011-05-06 20:32:18 +00:00
// Copyright (C) 2008-2011 Nicola Asuni - Tecnick.com S.r.l.
2009-08-17 16:00:15 +00:00
//
2010-06-05 20:12:05 +00:00
// This file is part of TCPDF software library.
//
// TCPDF is free software: you can redistribute it and/or modify it
2010-06-18 10:29:17 +00:00
// under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation, either version 3 of the
// License, or (at your option) any later version.
2010-06-05 20:12:05 +00:00
//
// TCPDF is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
2010-06-18 10:29:17 +00:00
// See the GNU Lesser General Public License for more details.
2010-06-05 20:12:05 +00:00
//
2010-06-18 10:29:17 +00:00
// You should have received a copy of the GNU Lesser General Public License
2010-06-05 20:12:05 +00:00
// along with TCPDF. If not, see <http://www.gnu.org/licenses/>.
2009-08-17 16:00:15 +00:00
//
2010-06-05 20:12:05 +00:00
// See LICENSE.TXT file for more information.
// -------------------------------------------------------------------
//
// Description : PHP class to creates array representations for
// common 1D barcodes to be used with TCPDF.
2009-08-17 16:00:15 +00:00
//
//============================================================+
/**
2010-12-18 14:11:55 +00:00
* @file
2009-08-17 16:00:15 +00:00
* PHP class to creates array representations for common 1D barcodes to be used with TCPDF.
* @package com.tecnick.tcpdf
* @author Nicola Asuni
2011-08-17 08:06:00 +00:00
* @version 1.0.018
2009-08-17 16:00:15 +00:00
*/
2010-12-18 14:11:55 +00:00
/**
* @class TCPDFBarcode
* PHP class to creates array representations for common 1D barcodes to be used with TCPDF (http://www.tcpdf.org).<br>
* @package com.tecnick.tcpdf
2011-08-17 08:06:00 +00:00
* @version 1.0.018
2010-12-18 14:11:55 +00:00
* @author Nicola Asuni
*/
2009-08-17 16:00:15 +00:00
class TCPDFBarcode {
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2010-12-16 15:28:54 +00:00
* Array representation of barcode.
* @protected
2009-08-17 16:00:15 +00:00
*/
protected $barcode_array;
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2010-06-05 20:12:05 +00:00
* This is the class constructor.
2009-08-17 16:00:15 +00:00
* Return an array representations for common 1D barcodes:<ul>
* <li>$arrcode['code'] code to be printed on text label</li>
2011-05-31 14:35:47 +00:00
* <li>$arrcode['maxh'] max barcode height</li>
* <li>$arrcode['maxw'] max barcode width</li>
2009-08-17 16:00:15 +00:00
* <li>$arrcode['bcode'][$k] single bar or space in $k position</li>
* <li>$arrcode['bcode'][$k]['t'] bar type: true = bar, false = space.</li>
* <li>$arrcode['bcode'][$k]['w'] bar width in units.</li>
* <li>$arrcode['bcode'][$k]['h'] bar height in units.</li>
* <li>$arrcode['bcode'][$k]['p'] bar top position (0 = top, 1 = middle)</li></ul>
2010-12-16 15:28:54 +00:00
* @param $code (string) code to print
2011-05-12 15:03:20 +00:00
* @param $type (string) type of barcode: <ul><li>C39 : CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.</li><li>C39+ : CODE 39 with checksum</li><li>C39E : CODE 39 EXTENDED</li><li>C39E+ : CODE 39 EXTENDED + CHECKSUM</li><li>C93 : CODE 93 - USS-93</li><li>S25 : Standard 2 of 5</li><li>S25+ : Standard 2 of 5 + CHECKSUM</li><li>I25 : Interleaved 2 of 5</li><li>I25+ : Interleaved 2 of 5 + CHECKSUM</li><li>C128 : CODE 128</li><li>C128A : CODE 128 A</li><li>C128B : CODE 128 B</li><li>C128C : CODE 128 C</li><li>EAN2 : 2-Digits UPC-Based Extention</li><li>EAN5 : 5-Digits UPC-Based Extention</li><li>EAN8 : EAN 8</li><li>EAN13 : EAN 13</li><li>UPCA : UPC-A</li><li>UPCE : UPC-E</li><li>MSI : MSI (Variation of Plessey code)</li><li>MSI+ : MSI + CHECKSUM (modulo 11)</li><li>POSTNET : POSTNET</li><li>PLANET : PLANET</li><li>RMS4CC : RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)</li><li>KIX : KIX (Klant index - Customer index)</li><li>IMB: Intelligent Mail Barcode - Onecode - USPS-B-3200</li><li>CODABAR : CODABAR</li><li>CODE11 : CODE 11</li><li>PHARMA : PHARMACODE</li><li>PHARMA2T : PHARMACODE TWO-TRACKS</li></ul>
2011-05-31 14:35:47 +00:00
* @public
2009-08-17 16:00:15 +00:00
*/
public function __construct($code, $type) {
$this->setBarcode($code, $type);
}
2010-06-05 20:12:05 +00:00
/**
2009-08-17 16:00:15 +00:00
* Return an array representations of barcode.
* @return array
2011-05-31 14:35:47 +00:00
* @public
2009-08-17 16:00:15 +00:00
*/
public function getBarcodeArray() {
return $this->barcode_array;
}
2010-06-05 20:12:05 +00:00
2011-05-31 14:35:47 +00:00
/**
* Send barcode as SVG image object to the standard output.
* @param $w (int) Minimum width of a single bar in user units.
* @param $h (int) Height of barcode in user units.
* @param $color (string) Foreground color (in SVG format) for bar elements (background is transparent).
* @public
*/
public function getBarcodeSVG($w=2, $h=30, $color='black') {
// send XML headers
$code = $this->getBarcodeSVGcode($w, $h, $color);
header('Content-Type: application/svg+xml');
header('Cache-Control: public, must-revalidate, max-age=0'); // HTTP/1.1
header('Pragma: public');
header('Expires: Sat, 26 Jul 1997 05:00:00 GMT'); // Date in the past
header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
header('Content-Disposition: inline; filename="'.md5($code).'.svg";');
2011-06-01 08:18:55 +00:00
//header('Content-Length: '.strlen($code));
2011-05-31 14:35:47 +00:00
echo $code;
}
/**
* Return a SVG string representation of barcode.
* @param $w (int) Minimum width of a single bar in user units.
* @param $h (int) Height of barcode in user units.
* @param $color (string) Foreground color (in SVG format) for bar elements (background is transparent).
* @return string SVG code.
* @public
*/
public function getBarcodeSVGcode($w=2, $h=30, $color='black') {
// replace table for special characters
$repstr = array("\0" => '', '&' => '&amp;', '<' => '&lt;', '>' => '&gt;');
$svg = '<'.'?'.'xml version="1.0" standalone="no"'.'?'.'>'."\n";
$svg .= '<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">'."\n";
$svg .= '<svg width="'.round(($this->barcode_array['maxw'] * $w), 3).'" height="'.$h.'" version="1.1" xmlns="http://www.w3.org/2000/svg">'."\n";
$svg .= "\t".'<desc>'.strtr($this->barcode_array['code'], $repstr).'</desc>'."\n";
$svg .= "\t".'<g id="bars" fill="'.$color.'" stroke="none">'."\n";
// print bars
$x = 0;
foreach ($this->barcode_array['bcode'] as $k => $v) {
$bw = round(($v['w'] * $w), 3);
$bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
if ($v['t']) {
$y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
// draw a vertical bar
$svg .= "\t\t".'<rect x="'.$x.'" y="'.$y.'" width="'.$bw.'" height="'.$bh.'" />'."\n";
}
$x += $bw;
}
$svg .= "\t".'</g>'."\n";
$svg .= '</svg>'."\n";
return $svg;
}
2010-06-05 20:12:05 +00:00
/**
2009-08-17 16:00:15 +00:00
* Set the barcode.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to print
2011-05-12 15:03:20 +00:00
* @param $type (string) type of barcode: <ul><li>C39 : CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.</li><li>C39+ : CODE 39 with checksum</li><li>C39E : CODE 39 EXTENDED</li><li>C39E+ : CODE 39 EXTENDED + CHECKSUM</li><li>C93 : CODE 93 - USS-93</li><li>S25 : Standard 2 of 5</li><li>S25+ : Standard 2 of 5 + CHECKSUM</li><li>I25 : Interleaved 2 of 5</li><li>I25+ : Interleaved 2 of 5 + CHECKSUM</li><li>C128 : CODE 128</li><li>C128A : CODE 128 A</li><li>C128B : CODE 128 B</li><li>C128C : CODE 128 C</li><li>EAN2 : 2-Digits UPC-Based Extention</li><li>EAN5 : 5-Digits UPC-Based Extention</li><li>EAN8 : EAN 8</li><li>EAN13 : EAN 13</li><li>UPCA : UPC-A</li><li>UPCE : UPC-E</li><li>MSI : MSI (Variation of Plessey code)</li><li>MSI+ : MSI + CHECKSUM (modulo 11)</li><li>POSTNET : POSTNET</li><li>PLANET : PLANET</li><li>RMS4CC : RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)</li><li>KIX : KIX (Klant index - Customer index)</li><li>IMB: Intelligent Mail Barcode - Onecode - USPS-B-3200</li><li>CODABAR : CODABAR</li><li>CODE11 : CODE 11</li><li>PHARMA : PHARMACODE</li><li>PHARMA2T : PHARMACODE TWO-TRACKS</li></ul>
2011-05-31 14:35:47 +00:00
* @return array barcode array
* @public
2009-08-17 16:00:15 +00:00
*/
public function setBarcode($code, $type) {
switch (strtoupper($type)) {
case 'C39': { // CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
$arrcode = $this->barcode_code39($code, false, false);
break;
}
case 'C39+': { // CODE 39 with checksum
$arrcode = $this->barcode_code39($code, false, true);
break;
}
case 'C39E': { // CODE 39 EXTENDED
$arrcode = $this->barcode_code39($code, true, false);
break;
}
case 'C39E+': { // CODE 39 EXTENDED + CHECKSUM
$arrcode = $this->barcode_code39($code, true, true);
break;
}
case 'C93': { // CODE 93 - USS-93
$arrcode = $this->barcode_code93($code);
break;
}
case 'S25': { // Standard 2 of 5
$arrcode = $this->barcode_s25($code, false);
break;
}
case 'S25+': { // Standard 2 of 5 + CHECKSUM
$arrcode = $this->barcode_s25($code, true);
break;
}
case 'I25': { // Interleaved 2 of 5
$arrcode = $this->barcode_i25($code, false);
break;
}
case 'I25+': { // Interleaved 2 of 5 + CHECKSUM
$arrcode = $this->barcode_i25($code, true);
break;
}
2011-05-12 15:03:20 +00:00
case 'C128': { // CODE 128
$arrcode = $this->barcode_c128($code, '');
break;
}
2009-08-17 16:00:15 +00:00
case 'C128A': { // CODE 128 A
$arrcode = $this->barcode_c128($code, 'A');
break;
}
case 'C128B': { // CODE 128 B
$arrcode = $this->barcode_c128($code, 'B');
break;
}
case 'C128C': { // CODE 128 C
$arrcode = $this->barcode_c128($code, 'C');
break;
}
case 'EAN2': { // 2-Digits UPC-Based Extention
$arrcode = $this->barcode_eanext($code, 2);
break;
}
case 'EAN5': { // 5-Digits UPC-Based Extention
$arrcode = $this->barcode_eanext($code, 5);
break;
}
case 'EAN8': { // EAN 8
$arrcode = $this->barcode_eanupc($code, 8);
break;
}
case 'EAN13': { // EAN 13
$arrcode = $this->barcode_eanupc($code, 13);
break;
}
case 'UPCA': { // UPC-A
$arrcode = $this->barcode_eanupc($code, 12);
break;
}
case 'UPCE': { // UPC-E
$arrcode = $this->barcode_eanupc($code, 6);
break;
}
case 'MSI': { // MSI (Variation of Plessey code)
$arrcode = $this->barcode_msi($code, false);
break;
}
case 'MSI+': { // MSI + CHECKSUM (modulo 11)
$arrcode = $this->barcode_msi($code, true);
break;
}
case 'POSTNET': { // POSTNET
$arrcode = $this->barcode_postnet($code, false);
break;
}
case 'PLANET': { // PLANET
$arrcode = $this->barcode_postnet($code, true);
break;
}
case 'RMS4CC': { // RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
$arrcode = $this->barcode_rms4cc($code, false);
break;
}
case 'KIX': { // KIX (Klant index - Customer index)
$arrcode = $this->barcode_rms4cc($code, true);
break;
}
case 'IMB': { // IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
$arrcode = $this->barcode_imb($code);
break;
}
case 'CODABAR': { // CODABAR
$arrcode = $this->barcode_codabar($code);
break;
}
case 'CODE11': { // CODE 11
$arrcode = $this->barcode_code11($code);
break;
}
case 'PHARMA': { // PHARMACODE
$arrcode = $this->barcode_pharmacode($code);
break;
}
case 'PHARMA2T': { // PHARMACODE TWO-TRACKS
$arrcode = $this->barcode_pharmacode2t($code);
break;
}
default: {
$this->barcode_array = false;
2009-08-29 12:54:16 +00:00
$arrcode = false;
break;
2009-08-17 16:00:15 +00:00
}
}
$this->barcode_array = $arrcode;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
2009-08-17 16:00:15 +00:00
* General-purpose code in very wide use world-wide
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $extended (boolean) if true uses the extended mode.
* @param $checksum (boolean) if true add a checksum to the code.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_code39($code, $extended=false, $checksum=false) {
2011-08-17 08:06:00 +00:00
$chr['0'] = '111331311';
$chr['1'] = '311311113';
$chr['2'] = '113311113';
$chr['3'] = '313311111';
$chr['4'] = '111331113';
$chr['5'] = '311331111';
$chr['6'] = '113331111';
$chr['7'] = '111311313';
$chr['8'] = '311311311';
$chr['9'] = '113311311';
$chr['A'] = '311113113';
$chr['B'] = '113113113';
$chr['C'] = '313113111';
$chr['D'] = '111133113';
$chr['E'] = '311133111';
$chr['F'] = '113133111';
$chr['G'] = '111113313';
$chr['H'] = '311113311';
$chr['I'] = '113113311';
$chr['J'] = '111133311';
$chr['K'] = '311111133';
$chr['L'] = '113111133';
$chr['M'] = '313111131';
$chr['N'] = '111131133';
$chr['O'] = '311131131';
$chr['P'] = '113131131';
$chr['Q'] = '111111333';
$chr['R'] = '311111331';
$chr['S'] = '113111331';
$chr['T'] = '111131331';
$chr['U'] = '331111113';
$chr['V'] = '133111113';
$chr['W'] = '333111111';
$chr['X'] = '131131113';
$chr['Y'] = '331131111';
$chr['Z'] = '133131111';
$chr['-'] = '131111313';
$chr['.'] = '331111311';
$chr[' '] = '133111311';
$chr['$'] = '131313111';
$chr['/'] = '131311131';
$chr['+'] = '131113131';
$chr['%'] = '111313131';
$chr['*'] = '131131311';
2009-08-17 16:00:15 +00:00
$code = strtoupper($code);
if ($extended) {
// extended mode
$code = $this->encode_code39_ext($code);
}
if ($code === false) {
return false;
}
if ($checksum) {
// checksum
$code .= $this->checksum_code39($code);
}
// add start and stop codes
$code = '*'.$code.'*';
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-04-11 17:02:39 +00:00
$k = 0;
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
for ($i = 0; $i < $clen; ++$i) {
$char = $code{$i};
if(!isset($chr[$char])) {
// invalid character
return false;
}
for ($j = 0; $j < 9; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $chr[$char]{$j};
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
}
2011-08-17 08:06:00 +00:00
// intercharacter gap
$bararray['bcode'][$k] = array('t' => false, 'w' => 3, 'h' => 1, 'p' => 0);
$bararray['maxw'] += 3;
2009-08-17 16:00:15 +00:00
++$k;
}
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Encode a string to be used for CODE 39 Extended mode.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return encoded string.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function encode_code39_ext($code) {
$encode = array(
chr(0) => '%U', chr(1) => '$A', chr(2) => '$B', chr(3) => '$C',
chr(4) => '$D', chr(5) => '$E', chr(6) => '$F', chr(7) => '$G',
chr(8) => '$H', chr(9) => '$I', chr(10) => '$J', chr(11) => '£K',
chr(12) => '$L', chr(13) => '$M', chr(14) => '$N', chr(15) => '$O',
chr(16) => '$P', chr(17) => '$Q', chr(18) => '$R', chr(19) => '$S',
chr(20) => '$T', chr(21) => '$U', chr(22) => '$V', chr(23) => '$W',
chr(24) => '$X', chr(25) => '$Y', chr(26) => '$Z', chr(27) => '%A',
chr(28) => '%B', chr(29) => '%C', chr(30) => '%D', chr(31) => '%E',
chr(32) => ' ', chr(33) => '/A', chr(34) => '/B', chr(35) => '/C',
chr(36) => '/D', chr(37) => '/E', chr(38) => '/F', chr(39) => '/G',
chr(40) => '/H', chr(41) => '/I', chr(42) => '/J', chr(43) => '/K',
chr(44) => '/L', chr(45) => '-', chr(46) => '.', chr(47) => '/O',
chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
chr(56) => '8', chr(57) => '9', chr(58) => '/Z', chr(59) => '%F',
chr(60) => '%G', chr(61) => '%H', chr(62) => '%I', chr(63) => '%J',
chr(64) => '%V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => '%K',
chr(92) => '%L', chr(93) => '%M', chr(94) => '%N', chr(95) => '%O',
chr(96) => '%W', chr(97) => '+A', chr(98) => '+B', chr(99) => '+C',
chr(100) => '+D', chr(101) => '+E', chr(102) => '+F', chr(103) => '+G',
chr(104) => '+H', chr(105) => '+I', chr(106) => '+J', chr(107) => '+K',
chr(108) => '+L', chr(109) => '+M', chr(110) => '+N', chr(111) => '+O',
chr(112) => '+P', chr(113) => '+Q', chr(114) => '+R', chr(115) => '+S',
chr(116) => '+T', chr(117) => '+U', chr(118) => '+V', chr(119) => '+W',
chr(120) => '+X', chr(121) => '+Y', chr(122) => '+Z', chr(123) => '%P',
chr(124) => '%Q', chr(125) => '%R', chr(126) => '%S', chr(127) => '%T');
2009-04-11 17:02:39 +00:00
$code_ext = '';
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
for ($i = 0 ; $i < $clen; ++$i) {
if (ord($code{$i}) > 127) {
return false;
}
$code_ext .= $encode[$code{$i}];
}
return $code_ext;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Calculate CODE 39 checksum (modulo 43).
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return char checksum.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function checksum_code39($code) {
$chars = array(
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
2009-04-11 17:02:39 +00:00
$sum = 0;
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
for ($i = 0 ; $i < $clen; ++$i) {
$k = array_keys($chars, $code{$i});
$sum += $k[0];
}
$j = ($sum % 43);
return $chars[$j];
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* CODE 93 - USS-93
2009-08-17 16:00:15 +00:00
* Compact code similar to Code 39
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function barcode_code93($code) {
2011-05-06 20:32:18 +00:00
$chr[48] = '131112'; // 0
$chr[49] = '111213'; // 1
$chr[50] = '111312'; // 2
$chr[51] = '111411'; // 3
$chr[52] = '121113'; // 4
$chr[53] = '121212'; // 5
$chr[54] = '121311'; // 6
$chr[55] = '111114'; // 7
$chr[56] = '131211'; // 8
$chr[57] = '141111'; // 9
$chr[65] = '211113'; // A
$chr[66] = '211212'; // B
$chr[67] = '211311'; // C
$chr[68] = '221112'; // D
$chr[69] = '221211'; // E
$chr[70] = '231111'; // F
$chr[71] = '112113'; // G
$chr[72] = '112212'; // H
2011-05-07 16:38:52 +00:00
$chr[73] = '112311'; // I
2011-05-06 20:32:18 +00:00
$chr[74] = '122112'; // J
$chr[75] = '132111'; // K
$chr[76] = '111123'; // L
$chr[77] = '111222'; // M
$chr[78] = '111321'; // N
$chr[79] = '121122'; // O
$chr[80] = '131121'; // P
$chr[81] = '212112'; // Q
$chr[82] = '212211'; // R
$chr[83] = '211122'; // S
$chr[84] = '211221'; // T
$chr[85] = '221121'; // U
$chr[86] = '222111'; // V
$chr[87] = '112122'; // W
$chr[88] = '112221'; // X
$chr[89] = '122121'; // Y
$chr[90] = '123111'; // Z
$chr[45] = '121131'; // -
$chr[46] = '311112'; // .
$chr[32] = '311211'; //
$chr[36] = '321111'; // $
$chr[47] = '112131'; // /
$chr[43] = '113121'; // +
$chr[37] = '211131'; // %
2009-04-11 17:02:39 +00:00
$chr[128] = '121221'; // ($)
$chr[129] = '311121'; // (/)
$chr[130] = '122211'; // (+)
$chr[131] = '312111'; // (%)
2011-05-06 20:32:18 +00:00
$chr[42] = '111141'; // start-stop
2009-04-11 17:02:39 +00:00
$code = strtoupper($code);
2009-08-17 16:00:15 +00:00
$encode = array(
chr(0) => chr(131).'U', chr(1) => chr(128).'A', chr(2) => chr(128).'B', chr(3) => chr(128).'C',
chr(4) => chr(128).'D', chr(5) => chr(128).'E', chr(6) => chr(128).'F', chr(7) => chr(128).'G',
chr(8) => chr(128).'H', chr(9) => chr(128).'I', chr(10) => chr(128).'J', chr(11) => '£K',
chr(12) => chr(128).'L', chr(13) => chr(128).'M', chr(14) => chr(128).'N', chr(15) => chr(128).'O',
chr(16) => chr(128).'P', chr(17) => chr(128).'Q', chr(18) => chr(128).'R', chr(19) => chr(128).'S',
chr(20) => chr(128).'T', chr(21) => chr(128).'U', chr(22) => chr(128).'V', chr(23) => chr(128).'W',
chr(24) => chr(128).'X', chr(25) => chr(128).'Y', chr(26) => chr(128).'Z', chr(27) => chr(131).'A',
chr(28) => chr(131).'B', chr(29) => chr(131).'C', chr(30) => chr(131).'D', chr(31) => chr(131).'E',
chr(32) => ' ', chr(33) => chr(129).'A', chr(34) => chr(129).'B', chr(35) => chr(129).'C',
chr(36) => chr(129).'D', chr(37) => chr(129).'E', chr(38) => chr(129).'F', chr(39) => chr(129).'G',
chr(40) => chr(129).'H', chr(41) => chr(129).'I', chr(42) => chr(129).'J', chr(43) => chr(129).'K',
chr(44) => chr(129).'L', chr(45) => '-', chr(46) => '.', chr(47) => chr(129).'O',
chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
chr(56) => '8', chr(57) => '9', chr(58) => chr(129).'Z', chr(59) => chr(131).'F',
chr(60) => chr(131).'G', chr(61) => chr(131).'H', chr(62) => chr(131).'I', chr(63) => chr(131).'J',
chr(64) => chr(131).'V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => chr(131).'K',
chr(92) => chr(131).'L', chr(93) => chr(131).'M', chr(94) => chr(131).'N', chr(95) => chr(131).'O',
chr(96) => chr(131).'W', chr(97) => chr(130).'A', chr(98) => chr(130).'B', chr(99) => chr(130).'C',
chr(100) => chr(130).'D', chr(101) => chr(130).'E', chr(102) => chr(130).'F', chr(103) => chr(130).'G',
chr(104) => chr(130).'H', chr(105) => chr(130).'I', chr(106) => chr(130).'J', chr(107) => chr(130).'K',
chr(108) => chr(130).'L', chr(109) => chr(130).'M', chr(110) => chr(130).'N', chr(111) => chr(130).'O',
chr(112) => chr(130).'P', chr(113) => chr(130).'Q', chr(114) => chr(130).'R', chr(115) => chr(130).'S',
chr(116) => chr(130).'T', chr(117) => chr(130).'U', chr(118) => chr(130).'V', chr(119) => chr(130).'W',
chr(120) => chr(130).'X', chr(121) => chr(130).'Y', chr(122) => chr(130).'Z', chr(123) => chr(131).'P',
2009-04-11 17:02:39 +00:00
chr(124) => chr(131).'Q', chr(125) => chr(131).'R', chr(126) => chr(131).'S', chr(127) => chr(131).'T');
$code_ext = '';
$clen = strlen($code);
2009-08-17 16:00:15 +00:00
for ($i = 0 ; $i < $clen; ++$i) {
if (ord($code{$i}) > 127) {
return false;
}
$code_ext .= $encode[$code{$i}];
}
// checksum
2011-05-06 20:32:18 +00:00
$code_ext .= $this->checksum_code93($code_ext);
2009-08-17 16:00:15 +00:00
// add start and stop codes
2011-05-06 20:32:18 +00:00
$code = '*'.$code_ext.'*';
2009-08-17 16:00:15 +00:00
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-04-11 17:02:39 +00:00
$k = 0;
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
for ($i = 0; $i < $clen; ++$i) {
2011-05-06 20:32:18 +00:00
$char = ord($code{$i});
2009-08-17 16:00:15 +00:00
if(!isset($chr[$char])) {
// invalid character
return false;
}
for ($j = 0; $j < 6; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $chr[$char]{$j};
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
}
}
$bararray['bcode'][$k] = array('t' => true, 'w' => 1, 'h' => 1, 'p' => 0);
$bararray['maxw'] += 1;
2010-06-05 20:12:05 +00:00
++$k;
2009-08-17 16:00:15 +00:00
return $bararray;
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Calculate CODE 93 checksum (modulo 47).
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return string checksum code.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function checksum_code93($code) {
$chars = array(
'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
2011-05-06 20:32:18 +00:00
'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%',
'<', '=', '>', '?');
2009-04-11 17:02:39 +00:00
// translate special characters
2011-05-06 20:32:18 +00:00
$code = strtr($code, chr(128).chr(131).chr(129).chr(130), '<=>?');
2009-04-11 17:02:39 +00:00
$len = strlen($code);
// calculate check digit C
$p = 1;
$check = 0;
for ($i = ($len - 1); $i >= 0; --$i) {
$k = array_keys($chars, $code{$i});
$check += ($k[0] * $p);
++$p;
if ($p > 20) {
$p = 1;
}
}
$check %= 47;
$c = $chars[$check];
$code .= $c;
// calculate check digit K
$p = 1;
$check = 0;
for ($i = $len; $i >= 0; --$i) {
$k = array_keys($chars, $code{$i});
$check += ($k[0] * $p);
++$p;
if ($p > 15) {
$p = 1;
}
}
$check %= 47;
2009-08-17 16:00:15 +00:00
$k = $chars[$check];
2011-05-06 20:32:18 +00:00
$checksum = $c.$k;
// resto respecial characters
$checksum = strtr($checksum, '<=>?', chr(128).chr(131).chr(129).chr(130));
return $checksum;
2009-08-17 16:00:15 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Checksum for standard 2 of 5 barcodes.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to process.
2009-08-17 16:00:15 +00:00
* @return int checksum.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function checksum_s25($code) {
$len = strlen($code);
2009-08-17 16:00:15 +00:00
$sum = 0;
for ($i = 0; $i < $len; $i+=2) {
$sum += $code{$i};
}
$sum *= 3;
for ($i = 1; $i < $len; $i+=2) {
$sum += ($code{$i});
}
$r = $sum % 10;
if($r > 0) {
$r = (10 - $r);
2009-04-11 17:02:39 +00:00
}
return $r;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* MSI.
2010-06-05 20:12:05 +00:00
* Variation of Plessey code, with similar applications
2009-08-17 16:00:15 +00:00
* Contains digits (0 to 9) and encodes the data only in the width of bars.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $checksum (boolean) if true add a checksum to the code (modulo 11)
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_msi($code, $checksum=false) {
$chr['0'] = '100100100100';
$chr['1'] = '100100100110';
$chr['2'] = '100100110100';
$chr['3'] = '100100110110';
$chr['4'] = '100110100100';
$chr['5'] = '100110100110';
$chr['6'] = '100110110100';
$chr['7'] = '100110110110';
2009-04-11 17:02:39 +00:00
$chr['8'] = '110100100100';
$chr['9'] = '110100100110';
$chr['A'] = '110100110100';
$chr['B'] = '110100110110';
$chr['C'] = '110110100100';
$chr['D'] = '110110100110';
$chr['E'] = '110110110100';
$chr['F'] = '110110110110';
if ($checksum) {
// add checksum
$clen = strlen($code);
$p = 2;
$check = 0;
for ($i = ($clen - 1); $i >= 0; --$i) {
$check += (hexdec($code{$i}) * $p);
++$p;
if ($p > 7) {
$p = 2;
}
}
$check %= 11;
if ($check > 0) {
$check = 11 - $check;
}
$code .= $check;
}
$seq = '110'; // left guard
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
2009-04-11 17:02:39 +00:00
for ($i = 0; $i < $clen; ++$i) {
2009-08-17 16:00:15 +00:00
$digit = $code{$i};
if (!isset($chr[$digit])) {
// invalid character
return false;
2009-04-11 17:02:39 +00:00
}
$seq .= $chr[$digit];
2010-06-05 20:12:05 +00:00
}
2009-04-11 17:02:39 +00:00
$seq .= '1001'; // right guard
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-08-17 16:00:15 +00:00
return $this->binseq_to_array($seq, $bararray);
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* Standard 2 of 5 barcodes.
2009-08-17 16:00:15 +00:00
* Used in airline ticket marking, photofinishing
* Contains digits (0 to 9) and encodes the data only in the width of bars.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $checksum (boolean) if true add a checksum to the code
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_s25($code, $checksum=false) {
$chr['0'] = '10101110111010';
$chr['1'] = '11101010101110';
$chr['2'] = '10111010101110';
$chr['3'] = '11101110101010';
$chr['4'] = '10101110101110';
$chr['5'] = '11101011101010';
$chr['6'] = '10111011101010';
$chr['7'] = '10101011101110';
2009-04-11 17:02:39 +00:00
$chr['8'] = '10101110111010';
2009-08-17 16:00:15 +00:00
$chr['9'] = '10111010111010';
2009-04-11 17:02:39 +00:00
if ($checksum) {
// add checksum
$code .= $this->checksum_s25($code);
}
2009-08-17 16:00:15 +00:00
if((strlen($code) % 2) != 0) {
// add leading zero if code-length is odd
$code = '0'.$code;
2009-04-11 17:02:39 +00:00
}
$seq = '11011010';
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
2009-04-11 17:02:39 +00:00
for ($i = 0; $i < $clen; ++$i) {
2009-08-17 16:00:15 +00:00
$digit = $code{$i};
if (!isset($chr[$digit])) {
// invalid character
return false;
2009-04-11 17:02:39 +00:00
}
$seq .= $chr[$digit];
2010-06-05 20:12:05 +00:00
}
2009-04-11 17:02:39 +00:00
$seq .= '1101011';
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-08-17 16:00:15 +00:00
return $this->binseq_to_array($seq, $bararray);
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2010-12-16 15:28:54 +00:00
* Convert binary barcode sequence to TCPDF barcode array.
* @param $seq (string) barcode as binary sequence.
* @param $bararray (array) barcode array.
2009-08-17 16:00:15 +00:00
* òparam array $bararray TCPDF barcode array to fill up
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function binseq_to_array($seq, $bararray) {
2009-08-17 16:00:15 +00:00
$len = strlen($seq);
2009-04-11 17:02:39 +00:00
$w = 0;
2009-08-17 16:00:15 +00:00
$k = 0;
for ($i = 0; $i < $len; ++$i) {
$w += 1;
if (($i == ($len - 1)) OR (($i < ($len - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
if ($seq{$i} == '1') {
$t = true; // bar
} else {
$t = false; // space
}
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
$w = 0;
}
2009-04-11 17:02:39 +00:00
}
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* Interleaved 2 of 5 barcodes.
2009-08-17 16:00:15 +00:00
* Compact numeric code, widely used in industry, air cargo
* Contains digits (0 to 9) and encodes the data in the width of both bars and spaces.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $checksum (boolean) if true add a checksum to the code
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_i25($code, $checksum=false) {
$chr['0'] = '11221';
$chr['1'] = '21112';
$chr['2'] = '12112';
$chr['3'] = '22111';
$chr['4'] = '11212';
$chr['5'] = '21211';
$chr['6'] = '12211';
$chr['7'] = '11122';
$chr['8'] = '21121';
$chr['9'] = '12121';
$chr['A'] = '11';
2009-04-11 17:02:39 +00:00
$chr['Z'] = '21';
if ($checksum) {
// add checksum
$code .= $this->checksum_s25($code);
}
2009-08-17 16:00:15 +00:00
if((strlen($code) % 2) != 0) {
// add leading zero if code-length is odd
$code = '0'.$code;
}
// add start and stop codes
$code = 'AA'.strtolower($code).'ZA';
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-04-11 17:02:39 +00:00
$k = 0;
2009-08-17 16:00:15 +00:00
$clen = strlen($code);
for ($i = 0; $i < $clen; $i = ($i + 2)) {
$char_bar = $code{$i};
$char_space = $code{$i+1};
if((!isset($chr[$char_bar])) OR (!isset($chr[$char_space]))) {
// invalid character
return false;
}
// create a bar-space sequence
2009-04-11 17:02:39 +00:00
$seq = '';
2009-08-17 16:00:15 +00:00
$chrlen = strlen($chr[$char_bar]);
for ($s = 0; $s < $chrlen; $s++){
$seq .= $chr[$char_bar]{$s} . $chr[$char_space]{$s};
}
$seqlen = strlen($seq);
for ($j = 0; $j < $seqlen; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $seq{$j};
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
}
}
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2010-06-05 20:12:05 +00:00
* C128 barcodes.
2009-08-17 16:00:15 +00:00
* Very capable code, excellent density, high reliability; in very wide use world-wide
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2011-05-12 15:03:20 +00:00
* @param $type (string) barcode type: A, B, C or empty for automatic switch (AUTO mode)
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2011-05-12 15:03:20 +00:00
protected function barcode_c128($code, $type='') {
2009-08-17 16:00:15 +00:00
$chr = array(
'212222', /* 00 */
'222122', /* 01 */
'222221', /* 02 */
'121223', /* 03 */
'121322', /* 04 */
'131222', /* 05 */
'122213', /* 06 */
'122312', /* 07 */
'132212', /* 08 */
'221213', /* 09 */
'221312', /* 10 */
'231212', /* 11 */
'112232', /* 12 */
'122132', /* 13 */
'122231', /* 14 */
'113222', /* 15 */
'123122', /* 16 */
'123221', /* 17 */
'223211', /* 18 */
'221132', /* 19 */
'221231', /* 20 */
'213212', /* 21 */
'223112', /* 22 */
'312131', /* 23 */
'311222', /* 24 */
'321122', /* 25 */
'321221', /* 26 */
'312212', /* 27 */
'322112', /* 28 */
'322211', /* 29 */
'212123', /* 30 */
'212321', /* 31 */
'232121', /* 32 */
'111323', /* 33 */
'131123', /* 34 */
'131321', /* 35 */
'112313', /* 36 */
'132113', /* 37 */
'132311', /* 38 */
'211313', /* 39 */
'231113', /* 40 */
'231311', /* 41 */
'112133', /* 42 */
'112331', /* 43 */
'132131', /* 44 */
'113123', /* 45 */
'113321', /* 46 */
'133121', /* 47 */
'313121', /* 48 */
'211331', /* 49 */
'231131', /* 50 */
'213113', /* 51 */
'213311', /* 52 */
'213131', /* 53 */
'311123', /* 54 */
'311321', /* 55 */
'331121', /* 56 */
'312113', /* 57 */
'312311', /* 58 */
'332111', /* 59 */
'314111', /* 60 */
'221411', /* 61 */
'431111', /* 62 */
'111224', /* 63 */
'111422', /* 64 */
'121124', /* 65 */
'121421', /* 66 */
'141122', /* 67 */
'141221', /* 68 */
'112214', /* 69 */
'112412', /* 70 */
'122114', /* 71 */
'122411', /* 72 */
'142112', /* 73 */
'142211', /* 74 */
'241211', /* 75 */
'221114', /* 76 */
'413111', /* 77 */
'241112', /* 78 */
'134111', /* 79 */
'111242', /* 80 */
'121142', /* 81 */
'121241', /* 82 */
'114212', /* 83 */
'124112', /* 84 */
'124211', /* 85 */
'411212', /* 86 */
'421112', /* 87 */
'421211', /* 88 */
'212141', /* 89 */
'214121', /* 90 */
'412121', /* 91 */
'111143', /* 92 */
'111341', /* 93 */
'131141', /* 94 */
'114113', /* 95 */
'114311', /* 96 */
'411113', /* 97 */
'411311', /* 98 */
'113141', /* 99 */
'114131', /* 100 */
'311141', /* 101 */
'411131', /* 102 */
'211412', /* 103 START A */
2011-05-12 15:03:20 +00:00
'211214', /* 104 START B */
'211232', /* 105 START C */
2009-08-17 16:00:15 +00:00
'233111', /* STOP */
'200000' /* END */
);
2011-05-12 15:03:20 +00:00
// ASCII characters for code A (ASCII 00 - 95)
$keys_a = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_';
$keys_a .= chr(0).chr(1).chr(2).chr(3).chr(4).chr(5).chr(6).chr(7).chr(8).chr(9);
$keys_a .= chr(10).chr(11).chr(12).chr(13).chr(14).chr(15).chr(16).chr(17).chr(18).chr(19);
$keys_a .= chr(20).chr(21).chr(22).chr(23).chr(24).chr(25).chr(26).chr(27).chr(28).chr(29);
$keys_a .= chr(30).chr(31);
// ASCII characters for code B (ASCII 32 - 127)
$keys_b = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~'.chr(127);
// special codes
$fnc_a = array(241 => 102, 242 => 97, 243 => 96, 244 => 101);
$fnc_b = array(241 => 102, 242 => 97, 243 => 96, 244 => 100);
// array of symbols
$code_data = array();
// lenght of the code
$len = strlen($code);
2009-08-17 16:00:15 +00:00
switch(strtoupper($type)) {
2011-05-12 15:03:20 +00:00
case 'A': { // MODE A
2009-08-17 16:00:15 +00:00
$startid = 103;
2011-05-12 15:03:20 +00:00
for ($i = 0; $i < $len; ++$i) {
$char = $code{$i};
$char_id = ord($char);
if (($char_id >= 241) AND ($char_id <= 244)) {
$code_data[] = $fnc_a[$char_id];
} elseif (($char_id >= 0) AND ($char_id <= 95)) {
$code_data[] = strpos($keys_a, $char);
} else {
return false;
}
2009-08-17 16:00:15 +00:00
}
break;
}
2011-05-12 15:03:20 +00:00
case 'B': { // MODE B
2009-08-17 16:00:15 +00:00
$startid = 104;
2011-05-12 15:03:20 +00:00
for ($i = 0; $i < $len; ++$i) {
$char = $code{$i};
$char_id = ord($char);
if (($char_id >= 241) AND ($char_id <= 244)) {
$code_data[] = $fnc_b[$char_id];
} elseif (($char_id >= 32) AND ($char_id <= 127)) {
$code_data[] = strpos($keys_b, $char);
} else {
return false;
}
}
2009-08-17 16:00:15 +00:00
break;
}
2011-05-12 15:03:20 +00:00
case 'C': { // MODE C
2009-08-17 16:00:15 +00:00
$startid = 105;
2011-05-12 15:03:20 +00:00
if (ord($code{0}) == 241) {
$code_data[] = 102;
$code = substr($code, 1);
--$len;
2009-08-17 16:00:15 +00:00
}
2011-05-12 15:03:20 +00:00
if (($len % 2) != 0) {
// the length must be even
return false;
2009-08-17 16:00:15 +00:00
}
2011-05-12 15:03:20 +00:00
for ($i = 0; $i < $len; $i+=2) {
$chrnum = $code{$i}.$code{$i+1};
if (preg_match('/([0-9]{2})/', $chrnum) > 0) {
$code_data[] = intval($chrnum);
} else {
return false;
}
2009-08-17 16:00:15 +00:00
}
break;
}
2011-05-12 15:03:20 +00:00
default: { // MODE AUTO
// split code into sequences
$sequence = array();
// get numeric sequences (if any)
$numseq = array();
preg_match_all('/([0-9]{4,})/', $code, $numseq, PREG_OFFSET_CAPTURE);
if (isset($numseq[1]) AND !empty($numseq[1])) {
$end_offset = 0;
foreach ($numseq[1] as $val) {
$offset = $val[1];
if ($offset > $end_offset) {
// non numeric sequence
$sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset, ($offset - $end_offset))));
}
// numeric sequence
$slen = strlen($val[0]);
if (($slen % 2) != 0) {
// the length must be even
--$slen;
}
$sequence[] = array('C', substr($code, $offset, $slen), $slen);
$end_offset = $offset + $slen;
}
if ($end_offset < $len) {
$sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset)));
}
} else {
// text code (non C mode)
$sequence = array_merge($sequence, $this->get128ABsequence($code));
}
// process the sequence
foreach ($sequence as $key => $seq) {
switch($seq[0]) {
case 'A': {
if ($key == 0) {
$startid = 103;
} elseif ($sequence[($key - 1)][0] != 'A') {
if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'B') AND (!isset($sequence[($key - 1)][3]))) {
// single character shift
$code_data[] = 98;
// mark shift
$sequence[$key][3] = true;
} elseif (!isset($sequence[($key - 1)][3])) {
$code_data[] = 101;
}
}
for ($i = 0; $i < $seq[2]; ++$i) {
$char = $seq[1]{$i};
$char_id = ord($char);
if (($char_id >= 241) AND ($char_id <= 244)) {
$code_data[] = $fnc_a[$char_id];
} else {
$code_data[] = strpos($keys_a, $char);
}
}
break;
}
case 'B': {
if ($key == 0) {
$tmpchr = ord($seq[1]{0});
if (($seq[2] == 1) AND ($tmpchr >= 241) AND ($tmpchr <= 244) AND isset($sequence[($key + 1)]) AND ($sequence[($key + 1)][0] != 'B')) {
switch ($sequence[($key + 1)][0]) {
case 'A': {
$startid = 103;
$sequence[$key][0] = 'A';
$code_data[] = $fnc_a[$tmpchr];
break;
}
case 'C': {
$startid = 105;
$sequence[$key][0] = 'C';
$code_data[] = $fnc_a[$tmpchr];
break;
}
}
break;
} else {
$startid = 104;
}
} elseif ($sequence[($key - 1)][0] != 'B') {
if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'A') AND (!isset($sequence[($key - 1)][3]))) {
// single character shift
$code_data[] = 98;
// mark shift
$sequence[$key][3] = true;
} elseif (!isset($sequence[($key - 1)][3])) {
$code_data[] = 100;
}
}
for ($i = 0; $i < $seq[2]; ++$i) {
$char = $seq[1]{$i};
$char_id = ord($char);
if (($char_id >= 241) AND ($char_id <= 244)) {
$code_data[] = $fnc_b[$char_id];
} else {
$code_data[] = strpos($keys_b, $char);
}
}
break;
}
case 'C': {
if ($key == 0) {
$startid = 105;
} elseif ($sequence[($key - 1)][0] != 'C') {
$code_data[] = 99;
}
for ($i = 0; $i < $seq[2]; $i+=2) {
$chrnum = $seq[1]{$i}.$seq[1]{$i+1};
$code_data[] = intval($chrnum);
}
break;
}
}
}
2009-08-17 16:00:15 +00:00
}
}
// calculate check character
2009-04-11 17:02:39 +00:00
$sum = $startid;
2011-05-12 15:03:20 +00:00
foreach ($code_data as $key => $val) {
$sum += ($val * ($key + 1));
2009-08-17 16:00:15 +00:00
}
2011-05-12 15:03:20 +00:00
// add check character
$code_data[] = ($sum % 103);
// add stop sequence
$code_data[] = 106;
$code_data[] = 107;
// add start code at the beginning
array_unshift($code_data, $startid);
// build barcode array
2009-08-17 16:00:15 +00:00
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2011-05-12 15:03:20 +00:00
foreach ($code_data as $val) {
$seq = $chr[$val];
2009-08-17 16:00:15 +00:00
for ($j = 0; $j < 6; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $seq{$j};
2011-05-12 15:03:20 +00:00
$bararray['bcode'][] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
2009-08-17 16:00:15 +00:00
$bararray['maxw'] += $w;
}
}
2010-06-05 20:12:05 +00:00
return $bararray;
2009-08-17 16:00:15 +00:00
}
2010-06-05 20:12:05 +00:00
2011-05-12 15:03:20 +00:00
/**
* Split text code in A/B sequence for 128 code
* @param $code (string) code to split.
* @return array sequence
* @protected
*/
protected function get128ABsequence($code) {
$len = strlen($code);
$sequence = array();
// get A sequences (if any)
$numseq = array();
preg_match_all('/([\0-\31])/', $code, $numseq, PREG_OFFSET_CAPTURE);
if (isset($numseq[1]) AND !empty($numseq[1])) {
$end_offset = 0;
foreach ($numseq[1] as $val) {
$offset = $val[1];
if ($offset > $end_offset) {
// B sequence
$sequence[] = array('B', substr($code, $end_offset, ($offset - $end_offset)), ($offset - $end_offset));
}
// A sequence
$slen = strlen($val[0]);
$sequence[] = array('A', substr($code, $offset, $slen), $slen);
$end_offset = $offset + $slen;
}
if ($end_offset < $len) {
$sequence[] = array('B', substr($code, $end_offset), ($len - $end_offset));
}
} else {
// only B sequence
$sequence[] = array('B', $code, $len);
}
return $sequence;
}
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* EAN13 and UPC-A barcodes.
* EAN13: European Article Numbering international retail product code
* UPC-A: Universal product code seen on almost all retail products in the USA and Canada
2009-08-17 16:00:15 +00:00
* UPC-E: Short version of UPC symbol
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $len (string) barcode type: 6 = UPC-E, 8 = EAN8, 13 = EAN13, 12 = UPC-A
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function barcode_eanupc($code, $len=13) {
$upce = false;
if ($len == 6) {
$len = 12; // UPC-A
$upce = true; // UPC-E mode
}
$data_len = $len - 1;
2009-08-17 16:00:15 +00:00
//Padding
2009-04-11 17:02:39 +00:00
$code = str_pad($code, $data_len, '0', STR_PAD_LEFT);
$code_len = strlen($code);
// calculate check digit
2009-08-17 16:00:15 +00:00
$sum_a = 0;
for ($i = 1; $i < $data_len; $i+=2) {
$sum_a += $code{$i};
2009-04-11 17:02:39 +00:00
}
if ($len > 12) {
$sum_a *= 3;
}
2009-08-17 16:00:15 +00:00
$sum_b = 0;
for ($i = 0; $i < $data_len; $i+=2) {
$sum_b += ($code{$i});
2009-04-11 17:02:39 +00:00
}
if ($len < 13) {
$sum_b *= 3;
2009-08-17 16:00:15 +00:00
}
$r = ($sum_a + $sum_b) % 10;
if($r > 0) {
$r = (10 - $r);
}
2009-04-11 17:02:39 +00:00
if ($code_len == $data_len) {
2009-08-17 16:00:15 +00:00
// add check digit
$code .= $r;
2009-04-11 17:02:39 +00:00
} elseif ($r !== intval($code{$data_len})) {
2009-08-17 16:00:15 +00:00
// wrong checkdigit
return false;
2009-04-11 17:02:39 +00:00
}
if ($len == 12) {
// UPC-A
$code = '0'.$code;
++$len;
}
if ($upce) {
// convert UPC-A to UPC-E
$tmp = substr($code, 4, 3);
if (($tmp == '000') OR ($tmp == '100') OR ($tmp == '200')) {
// manufacturer code ends in 000, 100, or 200
$upce_code = substr($code, 2, 2).substr($code, 9, 3).substr($code, 4, 1);
} else {
$tmp = substr($code, 5, 2);
if ($tmp == '00') {
// manufacturer code ends in 00
$upce_code = substr($code, 2, 3).substr($code, 10, 2).'3';
} else {
$tmp = substr($code, 6, 1);
if ($tmp == '0') {
// manufacturer code ends in 0
$upce_code = substr($code, 2, 4).substr($code, 11, 1).'4';
} else {
// manufacturer code does not end in zero
$upce_code = substr($code, 2, 5).substr($code, 11, 1);
}
}
}
2009-08-17 16:00:15 +00:00
}
//Convert digits to bars
$codes = array(
'A'=>array( // left odd parity
'0'=>'0001101',
'1'=>'0011001',
'2'=>'0010011',
'3'=>'0111101',
'4'=>'0100011',
'5'=>'0110001',
'6'=>'0101111',
'7'=>'0111011',
'8'=>'0110111',
'9'=>'0001011'),
'B'=>array( // left even parity
'0'=>'0100111',
'1'=>'0110011',
'2'=>'0011011',
'3'=>'0100001',
'4'=>'0011101',
'5'=>'0111001',
'6'=>'0000101',
'7'=>'0010001',
'8'=>'0001001',
'9'=>'0010111'),
'C'=>array( // right
'0'=>'1110010',
'1'=>'1100110',
'2'=>'1101100',
'3'=>'1000010',
'4'=>'1011100',
'5'=>'1001110',
'6'=>'1010000',
'7'=>'1000100',
'8'=>'1001000',
'9'=>'1110100')
);
$parities = array(
'0'=>array('A','A','A','A','A','A'),
'1'=>array('A','A','B','A','B','B'),
'2'=>array('A','A','B','B','A','B'),
'3'=>array('A','A','B','B','B','A'),
'4'=>array('A','B','A','A','B','B'),
'5'=>array('A','B','B','A','A','B'),
'6'=>array('A','B','B','B','A','A'),
'7'=>array('A','B','A','B','A','B'),
'8'=>array('A','B','A','B','B','A'),
'9'=>array('A','B','B','A','B','A')
2009-04-11 17:02:39 +00:00
);
$upce_parities = array();
2009-08-17 16:00:15 +00:00
$upce_parities[0] = array(
'0'=>array('B','B','B','A','A','A'),
'1'=>array('B','B','A','B','A','A'),
'2'=>array('B','B','A','A','B','A'),
'3'=>array('B','B','A','A','A','B'),
'4'=>array('B','A','B','B','A','A'),
'5'=>array('B','A','A','B','B','A'),
'6'=>array('B','A','A','A','B','B'),
'7'=>array('B','A','B','A','B','A'),
'8'=>array('B','A','B','A','A','B'),
'9'=>array('B','A','A','B','A','B')
);
$upce_parities[1] = array(
'0'=>array('A','A','A','B','B','B'),
'1'=>array('A','A','B','A','B','B'),
'2'=>array('A','A','B','B','A','B'),
'3'=>array('A','A','B','B','B','A'),
'4'=>array('A','B','A','A','B','B'),
'5'=>array('A','B','B','A','A','B'),
'6'=>array('A','B','B','B','A','A'),
'7'=>array('A','B','A','B','A','B'),
'8'=>array('A','B','A','B','B','A'),
'9'=>array('A','B','B','A','B','A')
2009-04-11 17:02:39 +00:00
);
2009-08-17 16:00:15 +00:00
$k = 0;
2009-04-11 17:02:39 +00:00
$seq = '101'; // left guard bar
if ($upce) {
$bararray = array('code' => $upce_code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
$p = $upce_parities[$code{1}][$r];
2009-08-17 16:00:15 +00:00
for ($i = 0; $i < 6; ++$i) {
$seq .= $codes[$p[$i]][$upce_code{$i}];
2009-04-11 17:02:39 +00:00
}
$seq .= '010101'; // right guard bar
} else {
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
$half_len = ceil($len / 2);
2009-08-17 16:00:15 +00:00
if ($len == 8) {
for ($i = 0; $i < $half_len; ++$i) {
$seq .= $codes['A'][$code{$i}];
2009-04-11 17:02:39 +00:00
}
} else {
$p = $parities[$code{0}];
2009-08-17 16:00:15 +00:00
for ($i = 1; $i < $half_len; ++$i) {
$seq .= $codes[$p[$i-1]][$code{$i}];
2009-04-11 17:02:39 +00:00
}
2009-08-17 16:00:15 +00:00
}
$seq .= '01010'; // center guard bar
for ($i = $half_len; $i < $len; ++$i) {
$seq .= $codes['C'][$code{$i}];
}
2009-04-11 17:02:39 +00:00
$seq .= '101'; // right guard bar
2009-08-17 16:00:15 +00:00
}
$clen = strlen($seq);
$w = 0;
for ($i = 0; $i < $clen; ++$i) {
$w += 1;
if (($i == ($clen - 1)) OR (($i < ($clen - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
if ($seq{$i} == '1') {
$t = true; // bar
} else {
$t = false; // space
}
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
$w = 0;
}
}
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* UPC-Based Extentions
* 2-Digit Ext.: Used to indicate magazines and newspaper issue numbers
2009-08-17 16:00:15 +00:00
* 5-Digit Ext.: Used to mark suggested retail price of books
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
* @param $len (string) barcode type: 2 = 2-Digit, 5 = 5-Digit
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function barcode_eanext($code, $len=5) {
2009-08-17 16:00:15 +00:00
//Padding
2009-04-11 17:02:39 +00:00
$code = str_pad($code, $len, '0', STR_PAD_LEFT);
// calculate check digit
if ($len == 2) {
$r = $code % 4;
} elseif ($len == 5) {
$r = (3 * ($code{0} + $code{2} + $code{4})) + (9 * ($code{1} + $code{3}));
$r %= 10;
} else {
return false;
}
2009-08-17 16:00:15 +00:00
//Convert digits to bars
$codes = array(
'A'=>array( // left odd parity
'0'=>'0001101',
'1'=>'0011001',
'2'=>'0010011',
'3'=>'0111101',
'4'=>'0100011',
'5'=>'0110001',
'6'=>'0101111',
'7'=>'0111011',
'8'=>'0110111',
'9'=>'0001011'),
'B'=>array( // left even parity
'0'=>'0100111',
'1'=>'0110011',
'2'=>'0011011',
'3'=>'0100001',
'4'=>'0011101',
'5'=>'0111001',
'6'=>'0000101',
'7'=>'0010001',
'8'=>'0001001',
'9'=>'0010111')
2009-04-11 17:02:39 +00:00
);
$parities = array();
2009-08-17 16:00:15 +00:00
$parities[2] = array(
'0'=>array('A','A'),
'1'=>array('A','B'),
'2'=>array('B','A'),
'3'=>array('B','B')
2009-04-11 17:02:39 +00:00
);
2009-08-17 16:00:15 +00:00
$parities[5] = array(
'0'=>array('B','B','A','A','A'),
'1'=>array('B','A','B','A','A'),
'2'=>array('B','A','A','B','A'),
'3'=>array('B','A','A','A','B'),
'4'=>array('A','B','B','A','A'),
'5'=>array('A','A','B','B','A'),
'6'=>array('A','A','A','B','B'),
'7'=>array('A','B','A','B','A'),
'8'=>array('A','B','A','A','B'),
'9'=>array('A','A','B','A','B')
2010-06-05 20:12:05 +00:00
);
2009-04-11 17:02:39 +00:00
$p = $parities[$len][$r];
$seq = '1011'; // left guard bar
$seq .= $codes[$p[0]][$code{0}];
for ($i = 1; $i < $len; ++$i) {
2009-08-17 16:00:15 +00:00
$seq .= '01'; // separator
$seq .= $codes[$p[$i]][$code{$i}];
2009-04-11 17:02:39 +00:00
}
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-08-17 16:00:15 +00:00
return $this->binseq_to_array($seq, $bararray);
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* POSTNET and PLANET barcodes.
2009-08-17 16:00:15 +00:00
* Used by U.S. Postal Service for automated mail sorting
2010-12-16 15:28:54 +00:00
* @param $code (string) zip code to represent. Must be a string containing a zip code of the form DDDDD or DDDDD-DDDD.
* @param $planet (boolean) if true print the PLANET barcode, otherwise print POSTNET
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_postnet($code, $planet=false) {
2009-04-11 17:02:39 +00:00
// bar lenght
if ($planet) {
2009-08-17 16:00:15 +00:00
$barlen = Array(
0 => Array(1,1,2,2,2),
1 => Array(2,2,2,1,1),
2 => Array(2,2,1,2,1),
3 => Array(2,2,1,1,2),
4 => Array(2,1,2,2,1),
5 => Array(2,1,2,1,2),
6 => Array(2,1,1,2,2),
7 => Array(1,2,2,2,1),
8 => Array(1,2,2,1,2),
9 => Array(1,2,1,2,2)
2009-04-11 17:02:39 +00:00
);
} else {
2009-08-17 16:00:15 +00:00
$barlen = Array(
0 => Array(2,2,1,1,1),
1 => Array(1,1,1,2,2),
2 => Array(1,1,2,1,2),
3 => Array(1,1,2,2,1),
4 => Array(1,2,1,1,2),
5 => Array(1,2,1,2,1),
6 => Array(1,2,2,1,1),
7 => Array(2,1,1,1,2),
8 => Array(2,1,1,2,1),
9 => Array(2,1,2,1,1)
2009-04-11 17:02:39 +00:00
);
2009-08-17 16:00:15 +00:00
}
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
$k = 0;
$code = str_replace('-', '', $code);
$code = str_replace(' ', '', $code);
2009-03-24 18:37:18 +00:00
$len = strlen($code);
2009-08-17 16:00:15 +00:00
// calculate checksum
$sum = 0;
for ($i = 0; $i < $len; ++$i) {
$sum += intval($code{$i});
2009-03-24 18:37:18 +00:00
}
$chkd = ($sum % 10);
if($chkd > 0) {
$chkd = (10 - $chkd);
}
2009-08-17 16:00:15 +00:00
$code .= $chkd;
$len = strlen($code);
// start bar
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['maxw'] += 2;
for ($i = 0; $i < $len; ++$i) {
for ($j = 0; $j < 5; ++$j) {
$h = $barlen[$code{$i}][$j];
$p = floor(1 / $h);
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['maxw'] += 2;
}
}
// end bar
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['maxw'] += 1;
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* RMS4CC - CBC - KIX
* RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code) - KIX (Klant index - Customer index)
2009-08-17 16:00:15 +00:00
* RM4SCC is the name of the barcode symbology used by the Royal Mail for its Cleanmail service.
2010-12-16 15:28:54 +00:00
* @param $code (string) code to print
* @param $kix (boolean) if true prints the KIX variation (doesn't use the start and end symbols, and the checksum) - in this case the house number must be sufficed with an X and placed at the end of the code.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_rms4cc($code, $kix=false) {
2009-04-11 17:02:39 +00:00
$notkix = !$kix;
// bar mode
// 1 = pos 1, length 2
// 2 = pos 1, length 3
// 3 = pos 2, length 1
// 4 = pos 2, length 2
2009-08-17 16:00:15 +00:00
$barmode = array(
2009-04-11 17:02:39 +00:00
'0' => array(3,3,2,2),
'1' => array(3,4,1,2),
'2' => array(3,4,2,1),
'3' => array(4,3,1,2),
'4' => array(4,3,2,1),
'5' => array(4,4,1,1),
'6' => array(3,1,4,2),
'7' => array(3,2,3,2),
'8' => array(3,2,4,1),
'9' => array(4,1,3,2),
'A' => array(4,1,4,1),
'B' => array(4,2,3,1),
'C' => array(3,1,2,4),
'D' => array(3,2,1,4),
'E' => array(3,2,2,3),
'F' => array(4,1,1,4),
'G' => array(4,1,2,3),
'H' => array(4,2,1,3),
'I' => array(1,3,4,2),
'J' => array(1,4,3,2),
'K' => array(1,4,4,1),
'L' => array(2,3,3,2),
'M' => array(2,3,4,1),
'N' => array(2,4,3,1),
'O' => array(1,3,2,4),
'P' => array(1,4,1,4),
'Q' => array(1,4,2,3),
'R' => array(2,3,1,4),
'S' => array(2,3,2,3),
'T' => array(2,4,1,3),
'U' => array(1,1,4,4),
'V' => array(1,2,3,4),
'W' => array(1,2,4,3),
'X' => array(2,1,3,4),
'Y' => array(2,1,4,3),
2010-06-05 20:12:05 +00:00
'Z' => array(2,2,3,3)
2009-04-11 17:02:39 +00:00
);
$code = strtoupper($code);
2009-08-17 16:00:15 +00:00
$len = strlen($code);
2009-04-11 17:02:39 +00:00
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
if ($notkix) {
// table for checksum calculation (row,col)
2009-08-17 16:00:15 +00:00
$checktable = array(
2009-04-11 17:02:39 +00:00
'0' => array(1,1),
'1' => array(1,2),
'2' => array(1,3),
'3' => array(1,4),
'4' => array(1,5),
'5' => array(1,0),
'6' => array(2,1),
'7' => array(2,2),
'8' => array(2,3),
'9' => array(2,4),
'A' => array(2,5),
'B' => array(2,0),
'C' => array(3,1),
'D' => array(3,2),
'E' => array(3,3),
'F' => array(3,4),
'G' => array(3,5),
'H' => array(3,0),
'I' => array(4,1),
'J' => array(4,2),
'K' => array(4,3),
'L' => array(4,4),
'M' => array(4,5),
'N' => array(4,0),
'O' => array(5,1),
'P' => array(5,2),
'Q' => array(5,3),
'R' => array(5,4),
'S' => array(5,5),
'T' => array(5,0),
'U' => array(0,1),
'V' => array(0,2),
'W' => array(0,3),
'X' => array(0,4),
'Y' => array(0,5),
2009-08-17 16:00:15 +00:00
'Z' => array(0,0)
2009-04-11 17:02:39 +00:00
);
$row = 0;
$col = 0;
for ($i = 0; $i < $len; ++$i) {
$row += $checktable[$code{$i}][0];
$col += $checktable[$code{$i}][1];
}
$row %= 6;
$col %= 6;
$chk = array_keys($checktable, array($row,$col));
$code .= $chk[0];
++$len;
}
$k = 0;
2009-08-17 16:00:15 +00:00
if ($notkix) {
// start bar
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
2009-04-11 17:02:39 +00:00
$bararray['maxw'] += 2;
2009-08-17 16:00:15 +00:00
}
for ($i = 0; $i < $len; ++$i) {
2009-04-11 17:02:39 +00:00
for ($j = 0; $j < 4; ++$j) {
switch ($barmode[$code{$i}][$j]) {
case 1: {
$p = 0;
$h = 2;
break;
}
case 2: {
$p = 0;
$h = 3;
break;
}
case 3: {
$p = 1;
$h = 1;
break;
}
case 4: {
$p = 1;
$h = 2;
break;
}
2009-08-17 16:00:15 +00:00
}
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
$bararray['maxw'] += 2;
}
}
if ($notkix) {
// stop bar
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => 3, 'p' => 0);
2009-04-11 17:02:39 +00:00
$bararray['maxw'] += 1;
2009-08-17 16:00:15 +00:00
}
return $bararray;
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* CODABAR barcodes.
2009-08-17 16:00:15 +00:00
* Older code often used in library systems, sometimes in blood banks
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_codabar($code) {
$chr = array(
'0' => '11111221',
'1' => '11112211',
'2' => '11121121',
'3' => '22111111',
'4' => '11211211',
'5' => '21111211',
'6' => '12111121',
'7' => '12112111',
'8' => '12211111',
'9' => '21121111',
'-' => '11122111',
'$' => '11221111',
':' => '21112121',
'/' => '21211121',
'.' => '21212111',
'+' => '11222221',
'A' => '11221211',
'B' => '12121121',
'C' => '11121221',
'D' => '11122211'
);
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
$k = 0;
$w = 0;
$seq = '';
$code = 'A'.strtoupper($code).'A';
$len = strlen($code);
for ($i = 0; $i < $len; ++$i) {
if (!isset($chr[$code{$i}])) {
return false;
}
$seq = $chr[$code{$i}];
for ($j = 0; $j < 8; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $seq{$j};
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
}
}
return $bararray;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
2009-04-11 17:02:39 +00:00
* CODE11 barcodes.
2009-08-17 16:00:15 +00:00
* Used primarily for labeling telecommunications equipment
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
protected function barcode_code11($code) {
$chr = array(
2009-04-11 17:02:39 +00:00
'0' => '111121',
'1' => '211121',
'2' => '121121',
'3' => '221111',
'4' => '112121',
'5' => '212111',
'6' => '122111',
'7' => '111221',
'8' => '211211',
'9' => '211111',
'-' => '112111',
2009-08-17 16:00:15 +00:00
'S' => '112211'
);
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
$k = 0;
$w = 0;
2009-04-11 17:02:39 +00:00
$seq = '';
$len = strlen($code);
// calculate check digit C
$p = 1;
$check = 0;
for ($i = ($len - 1); $i >= 0; --$i) {
$digit = $code{$i};
if ($digit == '-') {
$dval = 10;
} else {
$dval = intval($digit);
}
$check += ($dval * $p);
++$p;
if ($p > 10) {
$p = 1;
}
}
$check %= 11;
if ($check == 10) {
$check = '-';
2010-06-05 20:12:05 +00:00
}
2009-04-11 17:02:39 +00:00
$code .= $check;
if ($len > 10) {
// calculate check digit K
$p = 1;
$check = 0;
for ($i = $len; $i >= 0; --$i) {
$digit = $code{$i};
if ($digit == '-') {
$dval = 10;
} else {
$dval = intval($digit);
}
$check += ($dval * $p);
++$p;
if ($p > 9) {
$p = 1;
}
}
$check %= 11;
$code .= $check;
++$len;
2009-08-17 16:00:15 +00:00
}
$code = 'S'.$code.'S';
$len += 3;
for ($i = 0; $i < $len; ++$i) {
if (!isset($chr[$code{$i}])) {
return false;
}
$seq = $chr[$code{$i}];
for ($j = 0; $j < 6; ++$j) {
if (($j % 2) == 0) {
$t = true; // bar
} else {
$t = false; // space
}
$w = $seq{$j};
$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
$bararray['maxw'] += $w;
++$k;
}
}
return $bararray;
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Pharmacode
* Contains digits (0 to 9)
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function barcode_pharmacode($code) {
$seq = '';
2009-08-17 16:00:15 +00:00
$code = intval($code);
2009-04-11 17:02:39 +00:00
while ($code > 0) {
if (($code % 2) == 0) {
$seq .= '11100';
$code -= 2;
} else {
$seq .= '100';
$code -= 1;
}
$code /= 2;
}
$seq = substr($seq, 0, -2);
$seq = strrev($seq);
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
2009-08-17 16:00:15 +00:00
return $this->binseq_to_array($seq, $bararray);
2009-04-11 17:02:39 +00:00
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
/**
* Pharmacode two-track
* Contains digits (0 to 9)
2010-12-16 15:28:54 +00:00
* @param $code (string) code to represent.
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-11 17:02:39 +00:00
protected function barcode_pharmacode2t($code) {
$seq = '';
$code = intval($code);
do {
switch ($code % 3) {
case 0: {
$seq .= '3';
$code = ($code - 3) / 3;
break;
}
case 1: {
$seq .= '1';
$code = ($code - 1) / 3;
break;
}
case 2: {
$seq .= '2';
$code = ($code - 2) / 3;
break;
}
}
} while($code != 0);
$seq = strrev($seq);
$k = 0;
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 2, 'bcode' => array());
$len = strlen($seq);
for ($i = 0; $i < $len; ++$i) {
switch ($seq{$i}) {
case '1': {
$p = 1;
$h = 1;
break;
}
case '2': {
$p = 0;
$h = 1;
break;
}
case '3': {
$p = 0;
$h = 2;
break;
}
}
2009-08-17 16:00:15 +00:00
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
2009-04-11 17:02:39 +00:00
$bararray['maxw'] += 2;
}
unset($bararray['bcode'][($k - 1)]);
--$bararray['maxw'];
2009-08-17 16:00:15 +00:00
return $bararray;
2009-04-15 17:08:37 +00:00
}
2010-06-05 20:12:05 +00:00
2009-04-15 17:08:37 +00:00
/**
* IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
2010-06-05 20:12:05 +00:00
* (requires PHP bcmath extension)
2009-04-15 17:08:37 +00:00
* Intelligent Mail barcode is a 65-bar code for use on mail in the United States.
* 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 04. The allowable encoding ranges shall be 0004, 1014, 2024, 3034, 4044, 5054, 6064, 7074, 8084, and 9094.</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 000http://it2.php.net/manual/en/function.dechex.php999. 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 000000000999999999 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, 0000099999, 000000000999999999, and 0000000000099999999999.</li></ul>
2010-12-16 15:28:54 +00:00
* @param $code (string) code to print, separate the ZIP (routing code) from the rest using a minus char '-' (BarcodeID_ServiceTypeID_MailerID_SerialNumber-RoutingCode)
2009-08-17 16:00:15 +00:00
* @return array barcode representation.
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-15 17:08:37 +00:00
protected function barcode_imb($code) {
2009-08-17 16:00:15 +00:00
$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);
2009-04-15 17:08:37 +00:00
$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);
2009-08-17 16:00:15 +00:00
$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);
2009-04-15 17:08:37 +00:00
$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);
$code_arr = explode('-', $code);
$tracking_number = $code_arr[0];
if (isset($code_arr[1])) {
$routing_code = $code_arr[1];
} else {
$routing_code = '';
}
// Conversion of Routing Code
switch (strlen($routing_code)) {
case 0: {
$binary_code = 0;
break;
}
case 5: {
$binary_code = bcadd($routing_code, '1');
break;
}
case 9: {
$binary_code = bcadd($routing_code, '100001');
break;
}
case 11: {
$binary_code = bcadd($routing_code, '1000100001');
break;
}
default: {
return false;
break;
}
}
$binary_code = bcmul($binary_code, 10);
$binary_code = bcadd($binary_code, $tracking_number{0});
$binary_code = bcmul($binary_code, 5);
$binary_code = bcadd($binary_code, $tracking_number{1});
$binary_code .= substr($tracking_number, 2, 18);
// convert to hexadecimal
$binary_code = $this->dec_to_hex($binary_code);
// pad to get 13 bytes
$binary_code = str_pad($binary_code, 26, '0', STR_PAD_LEFT);
// convert string to array of bytes
$binary_code_arr = chunk_split($binary_code, 2, "\r");
$binary_code_arr = substr($binary_code_arr, 0, -1);
$binary_code_arr = explode("\r", $binary_code_arr);
// calculate frame check sequence
$fcs = $this->imb_crc11fcs($binary_code_arr);
// exclude first 2 bits from first byte
$first_byte = sprintf('%2s', dechex((hexdec($binary_code_arr[0]) << 2) >> 2));
$binary_code_102bit = $first_byte.substr($binary_code, 2);
// convert binary data to codewords
$codewords = array();
$data = $this->hex_to_dec($binary_code_102bit);
$codewords[0] = bcmod($data, 636) * 2;
$data = bcdiv($data, 636);
for ($i = 1; $i < 9; ++$i) {
$codewords[$i] = bcmod($data, 1365);
$data = bcdiv($data, 1365);
}
$codewords[9] = $data;
if (($fcs >> 10) == 1) {
$codewords[9] += 659;
}
// generate lookup tables
$table2of13 = $this->imb_tables(2, 78);
$table5of13 = $this->imb_tables(5, 1287);
// convert codewords to characters
$characters = array();
$bitmask = 512;
foreach($codewords as $k => $val) {
if ($val <= 1286) {
$chrcode = $table5of13[$val];
} else {
$chrcode = $table2of13[($val - 1287)];
}
if (($fcs & $bitmask) > 0) {
// bitwise invert
$chrcode = ((~$chrcode) & 8191);
}
$characters[] = $chrcode;
$bitmask /= 2;
}
$characters = array_reverse($characters);
// build bars
$k = 0;
$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 3, 'bcode' => array());
for ($i = 0; $i < 65; ++$i) {
2009-08-17 16:00:15 +00:00
$asc = (($characters[$asc_chr[$i]] & pow(2, $asc_pos[$i])) > 0);
2009-04-15 17:08:37 +00:00
$dsc = (($characters[$dsc_chr[$i]] & pow(2, $dsc_pos[$i])) > 0);
if ($asc AND $dsc) {
// full bar (F)
$p = 0;
$h = 3;
} elseif ($asc) {
// ascender (A)
$p = 0;
$h = 2;
} elseif ($dsc) {
// descender (D)
$p = 1;
$h = 2;
} else {
// tracker (T)
$p = 1;
$h = 1;
}
2009-08-17 16:00:15 +00:00
$bararray['bcode'][$k++] = array('t' => 1, 'w' => 1, 'h' => $h, 'p' => $p);
$bararray['bcode'][$k++] = array('t' => 0, 'w' => 1, 'h' => 2, 'p' => 0);
2009-04-15 17:08:37 +00:00
$bararray['maxw'] += 2;
}
unset($bararray['bcode'][($k - 1)]);
2009-08-17 16:00:15 +00:00
--$bararray['maxw'];
return $bararray;
2009-04-15 17:08:37 +00:00
}
2010-06-05 20:12:05 +00:00
2009-04-15 17:08:37 +00:00
/**
* Convert large integer number to hexadecimal representation.
2010-06-05 20:12:05 +00:00
* (requires PHP bcmath extension)
2010-12-16 15:28:54 +00:00
* @param $number (string) number to convert specified as a string
2009-04-15 17:08:37 +00:00
* @return string hexadecimal representation
*/
public function dec_to_hex($number) {
$i = 0;
$hex = array();
if($number == 0) {
return '00';
}
while($number > 0) {
if($number == 0) {
array_push($hex, '0');
} else {
array_push($hex, strtoupper(dechex(bcmod($number, '16'))));
$number = bcdiv($number, '16', 0);
}
}
$hex = array_reverse($hex);
return implode($hex);
}
2010-06-05 20:12:05 +00:00
2009-04-15 17:08:37 +00:00
/**
* Convert large hexadecimal number to decimal representation (string).
2010-06-05 20:12:05 +00:00
* (requires PHP bcmath extension)
2010-12-16 15:28:54 +00:00
* @param $hex (string) hexadecimal number to convert specified as a string
2009-04-15 17:08:37 +00:00
* @return string hexadecimal representation
*/
public function hex_to_dec($hex) {
$dec = 0;
$bitval = 1;
$len = strlen($hex);
for($pos = ($len - 1); $pos >= 0; --$pos) {
$dec = bcadd($dec, bcmul(hexdec($hex{$pos}), $bitval));
$bitval = bcmul($bitval, 16);
}
return $dec;
2010-06-05 20:12:05 +00:00
}
2009-04-15 17:08:37 +00:00
/**
* Intelligent Mail Barcode calculation of Frame Check Sequence
2010-12-16 15:28:54 +00:00
* @param $code_arr (string) array of hexadecimal values (13 bytes holding 102 bits right justified).
2009-08-17 16:00:15 +00:00
* @return int 11 bit Frame Check Sequence as integer (decimal base)
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-15 17:08:37 +00:00
protected function imb_crc11fcs($code_arr) {
$genpoly = 0x0F35; // generator polynomial
$fcs = 0x07FF; // Frame Check Sequence
// do most significant byte skipping the 2 most significant bits
$data = hexdec($code_arr[0]) << 5;
for ($bit = 2; $bit < 8; ++$bit) {
if (($fcs ^ $data) & 0x400) {
$fcs = ($fcs << 1) ^ $genpoly;
} else {
$fcs = ($fcs << 1);
}
$fcs &= 0x7FF;
$data <<= 1;
}
// do rest of bytes
for ($byte = 1; $byte < 13; ++$byte) {
$data = hexdec($code_arr[$byte]) << 3;
for ($bit = 0; $bit < 8; ++$bit) {
if (($fcs ^ $data) & 0x400) {
$fcs = ($fcs << 1) ^ $genpoly;
} else {
$fcs = ($fcs << 1);
}
$fcs &= 0x7FF;
$data <<= 1;
}
}
2010-06-05 20:12:05 +00:00
return $fcs;
2009-04-15 17:08:37 +00:00
}
2010-06-05 20:12:05 +00:00
2009-04-15 17:08:37 +00:00
/**
* Reverse unsigned short value
2010-12-16 15:28:54 +00:00
* @param $num (int) value to reversr
2009-08-17 16:00:15 +00:00
* @return int reversed value
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-15 17:08:37 +00:00
protected function imb_reverse_us($num) {
$rev = 0;
for ($i = 0; $i < 16; ++$i) {
$rev <<= 1;
$rev |= ($num & 1);
$num >>= 1;
}
return $rev;
}
2010-06-05 20:12:05 +00:00
2009-04-15 17:08:37 +00:00
/**
* generate Nof13 tables used for Intelligent Mail Barcode
2010-12-16 15:28:54 +00:00
* @param $n (int) is the type of table: 2 for 2of13 table, 5 for 5of13table
* @param $size (int) size of table (78 for n=2 and 1287 for n=5)
2009-08-17 16:00:15 +00:00
* @return array requested table
2010-12-16 15:28:54 +00:00
* @protected
2009-08-17 16:00:15 +00:00
*/
2009-04-15 17:08:37 +00:00
protected function imb_tables($n, $size) {
$table = array();
2009-08-17 16:00:15 +00:00
$lli = 0; // LUT lower index
$lui = $size - 1; // LUT upper index
for ($count = 0; $count < 8192; ++$count) {
$bit_count = 0;
2009-04-15 17:08:37 +00:00
for ($bit_index = 0; $bit_index < 13; ++$bit_index) {
$bit_count += intval(($count & (1 << $bit_index)) != 0);
}
2009-08-17 16:00:15 +00:00
// if we don't have the right number of bits on, go on to the next value
if ($bit_count == $n) {
2009-04-15 17:08:37 +00:00
$reverse = ($this->imb_reverse_us($count) >> 3);
// if the reverse is less than count, we have already visited this pair before
if ($reverse >= $count) {
// If count is symmetric, place it at the first free slot from the end of the list.
2009-08-17 16:00:15 +00:00
// 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
if ($reverse == $count) {
$table[$lui] = $count;
--$lui;
} else {
$table[$lli] = $count;
++$lli;
$table[$lli] = $reverse;
++$lli;
}
}
}
}
2009-04-15 17:08:37 +00:00
return $table;
}
2010-06-05 20:12:05 +00:00
2009-08-17 16:00:15 +00:00
} // end of class
//============================================================+
2010-06-05 20:12:05 +00:00
// END OF FILE
2009-08-17 16:00:15 +00:00
//============================================================+