PageRenderTime 68ms CodeModel.GetById 28ms RepoModel.GetById 1ms app.codeStats 0ms

/application/third_party/tcpdf/barcodes.php

https://bitbucket.org/machaven/limesurvey
PHP | 2288 lines | 1835 code | 39 blank | 414 comment | 244 complexity | 20a584b0129038aa113bb3a9edc686db MD5 | raw file
Possible License(s): GPL-2.0, LGPL-2.1, BSD-3-Clause, GPL-3.0, LGPL-3.0

Large files files are truncated, but you can click here to view the full file

    

  1. <?php
    2. 

  2. //============================================================+
    3. 

  3. // File name   : barcodes.php
    4. 

  4. // Version     : 1.0.021
    5. 

  5. // Begin       : 2008-06-09
    6. 

  6. // Last Update : 2011-09-15
    7. 

  7. // Author      : Nicola Asuni - Tecnick.com S.r.l - Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - info@tecnick.com
    8. 

  8. // License     : GNU-LGPL v3 (http://www.gnu.org/copyleft/lesser.html)
    9. 

  9. // -------------------------------------------------------------------
    10. 

  10. // Copyright (C) 2008-2011  Nicola Asuni - Tecnick.com S.r.l.
    11. 

  11. //
    12. 

  12. // This file is part of TCPDF software library.
    13. 

  13. //
    14. 

  14. // TCPDF is free software: you can redistribute it and/or modify it
    15. 

  15. // under the terms of the GNU Lesser General Public License as
    16. 

  16. // published by the Free Software Foundation, either version 3 of the
    17. 

  17. // License, or (at your option) any later version.
    18. 

  18. //
    19. 

  19. // TCPDF is distributed in the hope that it will be useful, but
    20. 

  20. // WITHOUT ANY WARRANTY; without even the implied warranty of
    21. 

  21. // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    22. 

  22. // See the GNU Lesser General Public License for more details.
    23. 

  23. //
    24. 

  24. // You should have received a copy of the GNU Lesser General Public License
    25. 

  25. // along with TCPDF.  If not, see <http://www.gnu.org/licenses/>.
    26. 

  26. //
    27. 

  27. // See LICENSE.TXT file for more information.
    28. 

  28. // -------------------------------------------------------------------
    29. 

  29. //
    30. 

  30. // Description : PHP class to creates array representations for
    31. 

  31. //               common 1D barcodes to be used with TCPDF.
    32. 

  32. //
    33. 

  33. //============================================================+
    34. 

  34. 

  35. /**
    36. 

  36.  * @file
    37. 

  37.  * PHP class to creates array representations for common 1D barcodes to be used with TCPDF.
    38. 

  38.  * @package com.tecnick.tcpdf
    39. 

  39.  * @author Nicola Asuni
    40. 

  40.  * @version 1.0.021
    41. 

  41.  */
    42. 

  42. 

  43. /**
    44. 

  44.  * @class TCPDFBarcode
    45. 

  45.  * PHP class to creates array representations for common 1D barcodes to be used with TCPDF (http://www.tcpdf.org).<br>
    46. 

  46.  * @package com.tecnick.tcpdf
    47. 

  47.  * @version 1.0.021
    48. 

  48.  * @author Nicola Asuni
    49. 

  49.  */
    50. 

  50. class TCPDFBarcode {
    51. 

  51. 

  52. 	/**
    53. 

  53. 	 * Array representation of barcode.
    54. 

  54. 	 * @protected
    55. 

  55. 	 */
    56. 

  56. 	protected $barcode_array;
    57. 

  57. 

  58. 	/**
    59. 

  59. 	 * This is the class constructor.
    60. 

  60. 	 * Return an array representations for common 1D barcodes:<ul>
    61. 

  61. 	 * <li>$arrcode['code'] code to be printed on text label</li>
    62. 

  62. 	 * <li>$arrcode['maxh'] max barcode height</li>
    63. 

  63. 	 * <li>$arrcode['maxw'] max barcode width</li>
    64. 

  64. 	 * <li>$arrcode['bcode'][$k] single bar or space in $k position</li>
    65. 

  65. 	 * <li>$arrcode['bcode'][$k]['t'] bar type: true = bar, false = space.</li>
    66. 

  66. 	 * <li>$arrcode['bcode'][$k]['w'] bar width in units.</li>
    67. 

  67. 	 * <li>$arrcode['bcode'][$k]['h'] bar height in units.</li>
    68. 

  68. 	 * <li>$arrcode['bcode'][$k]['p'] bar top position (0 = top, 1 = middle)</li></ul>
    69. 

  69. 	 * @param $code (string) code to print
    70. 

  70.  	 * @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>
    71. 

  71.  	 * @public
    72. 

  72. 	 */
    73. 

  73. 	public function __construct($code, $type) {
    74. 

  74. 		$this->setBarcode($code, $type);
    75. 

  75. 	}
    76. 

  76. 

  77. 	/**
    78. 

  78. 	 * Return an array representations of barcode.
    79. 

  79.  	 * @return array
    80. 

  80.  	 * @public
    81. 

  81. 	 */
    82. 

  82. 	public function getBarcodeArray() {
    83. 

  83. 		return $this->barcode_array;
    84. 

  84. 	}
    85. 

  85. 

  86. 	/**
    87. 

  87. 	 * Send barcode as SVG image object to the standard output.
    88. 

  88. 	 * @param $w (int) Minimum width of a single bar in user units.
    89. 

  89. 	 * @param $h (int) Height of barcode in user units.
    90. 

  90. 	 * @param $color (string) Foreground color (in SVG format) for bar elements (background is transparent).
    91. 

  91.  	 * @public
    92. 

  92. 	 */
    93. 

  93. 	public function getBarcodeSVG($w=2, $h=30, $color='black') {
    94. 

  94. 		// send headers
    95. 

  95. 		$code = $this->getBarcodeSVGcode($w, $h, $color);
    96. 

  96. 		header('Content-Type: application/svg+xml');
    97. 

  97. 		header('Cache-Control: public, must-revalidate, max-age=0'); // HTTP/1.1
    98. 

  98. 		header('Pragma: public');
    99. 

  99. 		header('Expires: Sat, 26 Jul 1997 05:00:00 GMT'); // Date in the past
    100. 

  100. 		header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
    101. 

  101. 		header('Content-Disposition: inline; filename="'.md5($code).'.svg";');
    102. 

  102. 		//header('Content-Length: '.strlen($code));
    103. 

  103. 		echo $code;
    104. 

  104. 	}
    105. 

  105. 

  106. 	/**
    107. 

  107. 	 * Return a SVG string representation of barcode.
    108. 

  108. 	 * @param $w (int) Minimum width of a single bar in user units.
    109. 

  109. 	 * @param $h (int) Height of barcode in user units.
    110. 

  110. 	 * @param $color (string) Foreground color (in SVG format) for bar elements (background is transparent).
    111. 

  111.  	 * @return string SVG code.
    112. 

  112.  	 * @public
    113. 

  113. 	 */
    114. 

  114. 	public function getBarcodeSVGcode($w=2, $h=30, $color='black') {
    115. 

  115. 		// replace table for special characters
    116. 

  116. 		$repstr = array("\0" => '', '&' => '&amp;', '<' => '&lt;', '>' => '&gt;');
    117. 

  117. 		$svg = '<'.'?'.'xml version="1.0" standalone="no"'.'?'.'>'."\n";
    118. 

  118. 		$svg .= '<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">'."\n";
    119. 

  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. 

  120. 		$svg .= "\t".'<desc>'.strtr($this->barcode_array['code'], $repstr).'</desc>'."\n";
    121. 

  121. 		$svg .= "\t".'<g id="bars" fill="'.$color.'" stroke="none">'."\n";
    122. 

  122. 		// print bars
    123. 

  123. 		$x = 0;
    124. 

  124. 		foreach ($this->barcode_array['bcode'] as $k => $v) {
    125. 

  125. 			$bw = round(($v['w'] * $w), 3);
    126. 

  126. 			$bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
    127. 

  127. 			if ($v['t']) {
    128. 

  128. 				$y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
    129. 

  129. 				// draw a vertical bar
    130. 

  130. 				$svg .= "\t\t".'<rect x="'.$x.'" y="'.$y.'" width="'.$bw.'" height="'.$bh.'" />'."\n";
    131. 

  131. 			}
    132. 

  132. 			$x += $bw;
    133. 

  133. 		}
    134. 

  134. 		$svg .= "\t".'</g>'."\n";
    135. 

  135. 		$svg .= '</svg>'."\n";
    136. 

  136. 		return $svg;
    137. 

  137. 	}
    138. 

  138. 

  139. 	/**
    140. 

  140. 	 * Return an HTML representation of barcode.
    141. 

  141. 	 * @param $w (int) Width of a single bar element in pixels.
    142. 

  142. 	 * @param $h (int) Height of a single bar element in pixels.
    143. 

  143. 	 * @param $color (string) Foreground color for bar elements (background is transparent).
    144. 

  144.  	 * @return string HTML code.
    145. 

  145.  	 * @public
    146. 

  146. 	 */
    147. 

  147. 	public function getBarcodeHTML($w=2, $h=30, $color='black') {
    148. 

  148. 		// replace table for special characters
    149. 

  149. 		$html = '<div style="font-size:0;position:relative;">'."\n";
    150. 

  150. 		// print bars
    151. 

  151. 		$x = 0;
    152. 

  152. 		foreach ($this->barcode_array['bcode'] as $k => $v) {
    153. 

  153. 			$bw = round(($v['w'] * $w), 3);
    154. 

  154. 			$bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
    155. 

  155. 			if ($v['t']) {
    156. 

  156. 				$y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
    157. 

  157. 				// draw a vertical bar
    158. 

  158. 				$html .= '<div style="background-color:'.$color.';width:'.$bw.'px;height:'.$bh.'px;position:absolute;left:'.$x.'px;top:'.$y.'px;">&nbsp;</div>'."\n";
    159. 

  159. 			}
    160. 

  160. 			$x += $bw;
    161. 

  161. 		}
    162. 

  162. 		$html .= '</div>'."\n";
    163. 

  163. 		return $html;
    164. 

  164. 	}
    165. 

  165. 

  166. 	/**
    167. 

  167. 	 * Return a PNG image representation of barcode (requires GD or Imagick library).
    168. 

  168. 	 * @param $w (int) Width of a single bar element in pixels.
    169. 

  169. 	 * @param $h (int) Height of a single bar element in pixels.
    170. 

  170. 	 * @param $color (array) RGB (0-255) foreground color for bar elements (background is transparent).
    171. 

  171.  	 * @return image or false in case of error.
    172. 

  172.  	 * @public
    173. 

  173. 	 */
    174. 

  174. 	public function getBarcodePNG($w=2, $h=30, $color=array(0,0,0)) {
    175. 

  175. 		// calculate image size
    176. 

  176. 		$width = ($this->barcode_array['maxw'] * $w);
    177. 

  177. 		$height = $h;
    178. 

  178. 		if (function_exists('imagecreate')) {
    179. 

  179. 			// GD library
    180. 

  180. 			$imagick = false;
    181. 

  181. 			$png = imagecreate($width, $height);
    182. 

  182. 			$bgcol = imagecolorallocate($png, 255, 255, 255);
    183. 

  183. 			imagecolortransparent($png, $bgcol);
    184. 

  184. 			$fgcol = imagecolorallocate($png, $color[0], $color[1], $color[2]);
    185. 

  185. 		} elseif (extension_loaded('imagick')) {
    186. 

  186. 			$imagick = true;
    187. 

  187. 			$bgcol = new imagickpixel('rgb(255,255,255');
    188. 

  188. 			$fgcol = new imagickpixel('rgb('.$color[0].','.$color[1].','.$color[2].')');
    189. 

  189. 			$png = new Imagick();
    190. 

  190. 			$png->newImage($width, $height, 'none', 'png');
    191. 

  191. 			$bar = new imagickdraw();
    192. 

  192. 			$bar->setfillcolor($fgcol);
    193. 

  193. 		} else {
    194. 

  194. 			return false;
    195. 

  195. 		}
    196. 

  196. 		// print bars
    197. 

  197. 		$x = 0;
    198. 

  198. 		foreach ($this->barcode_array['bcode'] as $k => $v) {
    199. 

  199. 			$bw = round(($v['w'] * $w), 3);
    200. 

  200. 			$bh = round(($v['h'] * $h / $this->barcode_array['maxh']), 3);
    201. 

  201. 			if ($v['t']) {
    202. 

  202. 				$y = round(($v['p'] * $h / $this->barcode_array['maxh']), 3);
    203. 

  203. 				// draw a vertical bar
    204. 

  204. 				if ($imagick) {
    205. 

  205. 					$bar->rectangle($x, $y, ($x + $bw), ($y + $bh));
    206. 

  206. 				} else {
    207. 

  207. 					imagefilledrectangle($png, $x, $y, ($x + $bw), ($y + $bh), $fgcol);
    208. 

  208. 				}
    209. 

  209. 			}
    210. 

  210. 			$x += $bw;
    211. 

  211. 		}
    212. 

  212. 		// send headers
    213. 

  213. 		header('Content-Type: image/png');
    214. 

  214. 		header('Cache-Control: public, must-revalidate, max-age=0'); // HTTP/1.1
    215. 

  215. 		header('Pragma: public');
    216. 

  216. 		header('Expires: Sat, 26 Jul 1997 05:00:00 GMT'); // Date in the past
    217. 

  217. 		header('Last-Modified: '.gmdate('D, d M Y H:i:s').' GMT');
    218. 

  218. 		if ($imagick) {
    219. 

  219. 			$png->drawimage($bar);
    220. 

  220. 			echo $png;
    221. 

  221. 		} else {
    222. 

  222. 			imagepng($png);
    223. 

  223. 			imagedestroy($png);
    224. 

  224. 		}
    225. 

  225. 	}
    226. 

  226. 

  227. 	/**
    228. 

  228. 	 * Set the barcode.
    229. 

  229. 	 * @param $code (string) code to print
    230. 

  230.  	 * @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>
    231. 

  231.  	 * @return array barcode array
    232. 

  232.  	 * @public
    233. 

  233. 	 */
    234. 

  234. 	public function setBarcode($code, $type) {
    235. 

  235. 		switch (strtoupper($type)) {
    236. 

  236. 			case 'C39': { // CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
    237. 

  237. 				$arrcode = $this->barcode_code39($code, false, false);
    238. 

  238. 				break;
    239. 

  239. 			}
    240. 

  240. 			case 'C39+': { // CODE 39 with checksum
    241. 

  241. 				$arrcode = $this->barcode_code39($code, false, true);
    242. 

  242. 				break;
    243. 

  243. 			}
    244. 

  244. 			case 'C39E': { // CODE 39 EXTENDED
    245. 

  245. 				$arrcode = $this->barcode_code39($code, true, false);
    246. 

  246. 				break;
    247. 

  247. 			}
    248. 

  248. 			case 'C39E+': { // CODE 39 EXTENDED + CHECKSUM
    249. 

  249. 				$arrcode = $this->barcode_code39($code, true, true);
    250. 

  250. 				break;
    251. 

  251. 			}
    252. 

  252. 			case 'C93': { // CODE 93 - USS-93
    253. 

  253. 				$arrcode = $this->barcode_code93($code);
    254. 

  254. 				break;
    255. 

  255. 			}
    256. 

  256. 			case 'S25': { // Standard 2 of 5
    257. 

  257. 				$arrcode = $this->barcode_s25($code, false);
    258. 

  258. 				break;
    259. 

  259. 			}
    260. 

  260. 			case 'S25+': { // Standard 2 of 5 + CHECKSUM
    261. 

  261. 				$arrcode = $this->barcode_s25($code, true);
    262. 

  262. 				break;
    263. 

  263. 			}
    264. 

  264. 			case 'I25': { // Interleaved 2 of 5
    265. 

  265. 				$arrcode = $this->barcode_i25($code, false);
    266. 

  266. 				break;
    267. 

  267. 			}
    268. 

  268. 			case 'I25+': { // Interleaved 2 of 5 + CHECKSUM
    269. 

  269. 				$arrcode = $this->barcode_i25($code, true);
    270. 

  270. 				break;
    271. 

  271. 			}
    272. 

  272. 			case 'C128': { // CODE 128
    273. 

  273. 				$arrcode = $this->barcode_c128($code, '');
    274. 

  274. 				break;
    275. 

  275. 			}
    276. 

  276. 			case 'C128A': { // CODE 128 A
    277. 

  277. 				$arrcode = $this->barcode_c128($code, 'A');
    278. 

  278. 				break;
    279. 

  279. 			}
    280. 

  280. 			case 'C128B': { // CODE 128 B
    281. 

  281. 				$arrcode = $this->barcode_c128($code, 'B');
    282. 

  282. 				break;
    283. 

  283. 			}
    284. 

  284. 			case 'C128C': { // CODE 128 C
    285. 

  285. 				$arrcode = $this->barcode_c128($code, 'C');
    286. 

  286. 				break;
    287. 

  287. 			}
    288. 

  288. 			case 'EAN2': { // 2-Digits UPC-Based Extention
    289. 

  289. 				$arrcode = $this->barcode_eanext($code, 2);
    290. 

  290. 				break;
    291. 

  291. 			}
    292. 

  292. 			case 'EAN5': { // 5-Digits UPC-Based Extention
    293. 

  293. 				$arrcode = $this->barcode_eanext($code, 5);
    294. 

  294. 				break;
    295. 

  295. 			}
    296. 

  296. 			case 'EAN8': { // EAN 8
    297. 

  297. 				$arrcode = $this->barcode_eanupc($code, 8);
    298. 

  298. 				break;
    299. 

  299. 			}
    300. 

  300. 			case 'EAN13': { // EAN 13
    301. 

  301. 				$arrcode = $this->barcode_eanupc($code, 13);
    302. 

  302. 				break;
    303. 

  303. 			}
    304. 

  304. 			case 'UPCA': { // UPC-A
    305. 

  305. 				$arrcode = $this->barcode_eanupc($code, 12);
    306. 

  306. 				break;
    307. 

  307. 			}
    308. 

  308. 			case 'UPCE': { // UPC-E
    309. 

  309. 				$arrcode = $this->barcode_eanupc($code, 6);
    310. 

  310. 				break;
    311. 

  311. 			}
    312. 

  312. 			case 'MSI': { // MSI (Variation of Plessey code)
    313. 

  313. 				$arrcode = $this->barcode_msi($code, false);
    314. 

  314. 				break;
    315. 

  315. 			}
    316. 

  316. 			case 'MSI+': { // MSI + CHECKSUM (modulo 11)
    317. 

  317. 				$arrcode = $this->barcode_msi($code, true);
    318. 

  318. 				break;
    319. 

  319. 			}
    320. 

  320. 			case 'POSTNET': { // POSTNET
    321. 

  321. 				$arrcode = $this->barcode_postnet($code, false);
    322. 

  322. 				break;
    323. 

  323. 			}
    324. 

  324. 			case 'PLANET': { // PLANET
    325. 

  325. 				$arrcode = $this->barcode_postnet($code, true);
    326. 

  326. 				break;
    327. 

  327. 			}
    328. 

  328. 			case 'RMS4CC': { // RMS4CC (Royal Mail 4-state Customer Code) - CBC (Customer Bar Code)
    329. 

  329. 				$arrcode = $this->barcode_rms4cc($code, false);
    330. 

  330. 				break;
    331. 

  331. 			}
    332. 

  332. 			case 'KIX': { // KIX (Klant index - Customer index)
    333. 

  333. 				$arrcode = $this->barcode_rms4cc($code, true);
    334. 

  334. 				break;
    335. 

  335. 			}
    336. 

  336. 			case 'IMB': { // IMB - Intelligent Mail Barcode - Onecode - USPS-B-3200
    337. 

  337. 				$arrcode = $this->barcode_imb($code);
    338. 

  338. 				break;
    339. 

  339. 			}
    340. 

  340. 			case 'CODABAR': { // CODABAR
    341. 

  341. 				$arrcode = $this->barcode_codabar($code);
    342. 

  342. 				break;
    343. 

  343. 			}
    344. 

  344. 			case 'CODE11': { // CODE 11
    345. 

  345. 				$arrcode = $this->barcode_code11($code);
    346. 

  346. 				break;
    347. 

  347. 			}
    348. 

  348. 			case 'PHARMA': { // PHARMACODE
    349. 

  349. 				$arrcode = $this->barcode_pharmacode($code);
    350. 

  350. 				break;
    351. 

  351. 			}
    352. 

  352. 			case 'PHARMA2T': { // PHARMACODE TWO-TRACKS
    353. 

  353. 				$arrcode = $this->barcode_pharmacode2t($code);
    354. 

  354. 				break;
    355. 

  355. 			}
    356. 

  356. 			default: {
    357. 

  357. 				$this->barcode_array = false;
    358. 

  358. 				$arrcode = false;
    359. 

  359. 				break;
    360. 

  360. 			}
    361. 

  361. 		}
    362. 

  362. 		$this->barcode_array = $arrcode;
    363. 

  363. 	}
    364. 

  364. 

  365. 	/**
    366. 

  366. 	 * CODE 39 - ANSI MH10.8M-1983 - USD-3 - 3 of 9.
    367. 

  367. 	 * General-purpose code in very wide use world-wide
    368. 

  368. 	 * @param $code (string) code to represent.
    369. 

  369. 	 * @param $extended (boolean) if true uses the extended mode.
    370. 

  370. 	 * @param $checksum (boolean) if true add a checksum to the code.
    371. 

  371. 	 * @return array barcode representation.
    372. 

  372. 	 * @protected
    373. 

  373. 	 */
    374. 

  374. 	protected function barcode_code39($code, $extended=false, $checksum=false) {
    375. 

  375. 		$chr['0'] = '111331311';
    376. 

  376. 		$chr['1'] = '311311113';
    377. 

  377. 		$chr['2'] = '113311113';
    378. 

  378. 		$chr['3'] = '313311111';
    379. 

  379. 		$chr['4'] = '111331113';
    380. 

  380. 		$chr['5'] = '311331111';
    381. 

  381. 		$chr['6'] = '113331111';
    382. 

  382. 		$chr['7'] = '111311313';
    383. 

  383. 		$chr['8'] = '311311311';
    384. 

  384. 		$chr['9'] = '113311311';
    385. 

  385. 		$chr['A'] = '311113113';
    386. 

  386. 		$chr['B'] = '113113113';
    387. 

  387. 		$chr['C'] = '313113111';
    388. 

  388. 		$chr['D'] = '111133113';
    389. 

  389. 		$chr['E'] = '311133111';
    390. 

  390. 		$chr['F'] = '113133111';
    391. 

  391. 		$chr['G'] = '111113313';
    392. 

  392. 		$chr['H'] = '311113311';
    393. 

  393. 		$chr['I'] = '113113311';
    394. 

  394. 		$chr['J'] = '111133311';
    395. 

  395. 		$chr['K'] = '311111133';
    396. 

  396. 		$chr['L'] = '113111133';
    397. 

  397. 		$chr['M'] = '313111131';
    398. 

  398. 		$chr['N'] = '111131133';
    399. 

  399. 		$chr['O'] = '311131131';
    400. 

  400. 		$chr['P'] = '113131131';
    401. 

  401. 		$chr['Q'] = '111111333';
    402. 

  402. 		$chr['R'] = '311111331';
    403. 

  403. 		$chr['S'] = '113111331';
    404. 

  404. 		$chr['T'] = '111131331';
    405. 

  405. 		$chr['U'] = '331111113';
    406. 

  406. 		$chr['V'] = '133111113';
    407. 

  407. 		$chr['W'] = '333111111';
    408. 

  408. 		$chr['X'] = '131131113';
    409. 

  409. 		$chr['Y'] = '331131111';
    410. 

  410. 		$chr['Z'] = '133131111';
    411. 

  411. 		$chr['-'] = '131111313';
    412. 

  412. 		$chr['.'] = '331111311';
    413. 

  413. 		$chr[' '] = '133111311';
    414. 

  414. 		$chr['$'] = '131313111';
    415. 

  415. 		$chr['/'] = '131311131';
    416. 

  416. 		$chr['+'] = '131113131';
    417. 

  417. 		$chr['%'] = '111313131';
    418. 

  418. 		$chr['*'] = '131131311';
    419. 

  419. 		$code = strtoupper($code);
    420. 

  420. 		if ($extended) {
    421. 

  421. 			// extended mode
    422. 

  422. 			$code = $this->encode_code39_ext($code);
    423. 

  423. 		}
    424. 

  424. 		if ($code === false) {
    425. 

  425. 			return false;
    426. 

  426. 		}
    427. 

  427. 		if ($checksum) {
    428. 

  428. 			// checksum
    429. 

  429. 			$code .= $this->checksum_code39($code);
    430. 

  430. 		}
    431. 

  431. 		// add start and stop codes
    432. 

  432. 		$code = '*'.$code.'*';
    433. 

  433. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    434. 

  434. 		$k = 0;
    435. 

  435. 		$clen = strlen($code);
    436. 

  436. 		for ($i = 0; $i < $clen; ++$i) {
    437. 

  437. 			$char = $code{$i};
    438. 

  438. 			if(!isset($chr[$char])) {
    439. 

  439. 				// invalid character
    440. 

  440. 				return false;
    441. 

  441. 			}
    442. 

  442. 			for ($j = 0; $j < 9; ++$j) {
    443. 

  443. 				if (($j % 2) == 0) {
    444. 

  444. 					$t = true; // bar
    445. 

  445. 				} else {
    446. 

  446. 					$t = false; // space
    447. 

  447. 				}
    448. 

  448. 				$w = $chr[$char]{$j};
    449. 

  449. 				$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    450. 

  450. 				$bararray['maxw'] += $w;
    451. 

  451. 				++$k;
    452. 

  452. 			}
    453. 

  453. 			// intercharacter gap
    454. 

  454. 			$bararray['bcode'][$k] = array('t' => false, 'w' => 1, 'h' => 1, 'p' => 0);
    455. 

  455. 			$bararray['maxw'] += 1;
    456. 

  456. 			++$k;
    457. 

  457. 		}
    458. 

  458. 		return $bararray;
    459. 

  459. 	}
    460. 

  460. 

  461. 	/**
    462. 

  462. 	 * Encode a string to be used for CODE 39 Extended mode.
    463. 

  463. 	 * @param $code (string) code to represent.
    464. 

  464. 	 * @return encoded string.
    465. 

  465. 	 * @protected
    466. 

  466. 	 */
    467. 

  467. 	protected function encode_code39_ext($code) {
    468. 

  468. 		$encode = array(
    469. 

  469. 			chr(0) => '%U', chr(1) => '$A', chr(2) => '$B', chr(3) => '$C',
    470. 

  470. 			chr(4) => '$D', chr(5) => '$E', chr(6) => '$F', chr(7) => '$G',
    471. 

  471. 			chr(8) => '$H', chr(9) => '$I', chr(10) => '$J', chr(11) => '£K',
    472. 

  472. 			chr(12) => '$L', chr(13) => '$M', chr(14) => '$N', chr(15) => '$O',
    473. 

  473. 			chr(16) => '$P', chr(17) => '$Q', chr(18) => '$R', chr(19) => '$S',
    474. 

  474. 			chr(20) => '$T', chr(21) => '$U', chr(22) => '$V', chr(23) => '$W',
    475. 

  475. 			chr(24) => '$X', chr(25) => '$Y', chr(26) => '$Z', chr(27) => '%A',
    476. 

  476. 			chr(28) => '%B', chr(29) => '%C', chr(30) => '%D', chr(31) => '%E',
    477. 

  477. 			chr(32) => ' ', chr(33) => '/A', chr(34) => '/B', chr(35) => '/C',
    478. 

  478. 			chr(36) => '/D', chr(37) => '/E', chr(38) => '/F', chr(39) => '/G',
    479. 

  479. 			chr(40) => '/H', chr(41) => '/I', chr(42) => '/J', chr(43) => '/K',
    480. 

  480. 			chr(44) => '/L', chr(45) => '-', chr(46) => '.', chr(47) => '/O',
    481. 

  481. 			chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
    482. 

  482. 			chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
    483. 

  483. 			chr(56) => '8', chr(57) => '9', chr(58) => '/Z', chr(59) => '%F',
    484. 

  484. 			chr(60) => '%G', chr(61) => '%H', chr(62) => '%I', chr(63) => '%J',
    485. 

  485. 			chr(64) => '%V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
    486. 

  486. 			chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
    487. 

  487. 			chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
    488. 

  488. 			chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
    489. 

  489. 			chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
    490. 

  490. 			chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
    491. 

  491. 			chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => '%K',
    492. 

  492. 			chr(92) => '%L', chr(93) => '%M', chr(94) => '%N', chr(95) => '%O',
    493. 

  493. 			chr(96) => '%W', chr(97) => '+A', chr(98) => '+B', chr(99) => '+C',
    494. 

  494. 			chr(100) => '+D', chr(101) => '+E', chr(102) => '+F', chr(103) => '+G',
    495. 

  495. 			chr(104) => '+H', chr(105) => '+I', chr(106) => '+J', chr(107) => '+K',
    496. 

  496. 			chr(108) => '+L', chr(109) => '+M', chr(110) => '+N', chr(111) => '+O',
    497. 

  497. 			chr(112) => '+P', chr(113) => '+Q', chr(114) => '+R', chr(115) => '+S',
    498. 

  498. 			chr(116) => '+T', chr(117) => '+U', chr(118) => '+V', chr(119) => '+W',
    499. 

  499. 			chr(120) => '+X', chr(121) => '+Y', chr(122) => '+Z', chr(123) => '%P',
    500. 

  500. 			chr(124) => '%Q', chr(125) => '%R', chr(126) => '%S', chr(127) => '%T');
    501. 

  501. 		$code_ext = '';
    502. 

  502. 		$clen = strlen($code);
    503. 

  503. 		for ($i = 0 ; $i < $clen; ++$i) {
    504. 

  504. 			if (ord($code{$i}) > 127) {
    505. 

  505. 				return false;
    506. 

  506. 			}
    507. 

  507. 			$code_ext .= $encode[$code{$i}];
    508. 

  508. 		}
    509. 

  509. 		return $code_ext;
    510. 

  510. 	}
    511. 

  511. 

  512. 	/**
    513. 

  513. 	 * Calculate CODE 39 checksum (modulo 43).
    514. 

  514. 	 * @param $code (string) code to represent.
    515. 

  515. 	 * @return char checksum.
    516. 

  516. 	 * @protected
    517. 

  517. 	 */
    518. 

  518. 	protected function checksum_code39($code) {
    519. 

  519. 		$chars = array(
    520. 

  520. 			'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
    521. 

  521. 			'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
    522. 

  522. 			'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
    523. 

  523. 			'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%');
    524. 

  524. 		$sum = 0;
    525. 

  525. 		$clen = strlen($code);
    526. 

  526. 		for ($i = 0 ; $i < $clen; ++$i) {
    527. 

  527. 			$k = array_keys($chars, $code{$i});
    528. 

  528. 			$sum += $k[0];
    529. 

  529. 		}
    530. 

  530. 		$j = ($sum % 43);
    531. 

  531. 		return $chars[$j];
    532. 

  532. 	}
    533. 

  533. 

  534. 	/**
    535. 

  535. 	 * CODE 93 - USS-93
    536. 

  536. 	 * Compact code similar to Code 39
    537. 

  537. 	 * @param $code (string) code to represent.
    538. 

  538. 	 * @return array barcode representation.
    539. 

  539. 	 * @protected
    540. 

  540. 	 */
    541. 

  541. 	protected function barcode_code93($code) {
    542. 

  542. 		$chr[48] = '131112'; // 0
    543. 

  543. 		$chr[49] = '111213'; // 1
    544. 

  544. 		$chr[50] = '111312'; // 2
    545. 

  545. 		$chr[51] = '111411'; // 3
    546. 

  546. 		$chr[52] = '121113'; // 4
    547. 

  547. 		$chr[53] = '121212'; // 5
    548. 

  548. 		$chr[54] = '121311'; // 6
    549. 

  549. 		$chr[55] = '111114'; // 7
    550. 

  550. 		$chr[56] = '131211'; // 8
    551. 

  551. 		$chr[57] = '141111'; // 9
    552. 

  552. 		$chr[65] = '211113'; // A
    553. 

  553. 		$chr[66] = '211212'; // B
    554. 

  554. 		$chr[67] = '211311'; // C
    555. 

  555. 		$chr[68] = '221112'; // D
    556. 

  556. 		$chr[69] = '221211'; // E
    557. 

  557. 		$chr[70] = '231111'; // F
    558. 

  558. 		$chr[71] = '112113'; // G
    559. 

  559. 		$chr[72] = '112212'; // H
    560. 

  560. 		$chr[73] = '112311'; // I
    561. 

  561. 		$chr[74] = '122112'; // J
    562. 

  562. 		$chr[75] = '132111'; // K
    563. 

  563. 		$chr[76] = '111123'; // L
    564. 

  564. 		$chr[77] = '111222'; // M
    565. 

  565. 		$chr[78] = '111321'; // N
    566. 

  566. 		$chr[79] = '121122'; // O
    567. 

  567. 		$chr[80] = '131121'; // P
    568. 

  568. 		$chr[81] = '212112'; // Q
    569. 

  569. 		$chr[82] = '212211'; // R
    570. 

  570. 		$chr[83] = '211122'; // S
    571. 

  571. 		$chr[84] = '211221'; // T
    572. 

  572. 		$chr[85] = '221121'; // U
    573. 

  573. 		$chr[86] = '222111'; // V
    574. 

  574. 		$chr[87] = '112122'; // W
    575. 

  575. 		$chr[88] = '112221'; // X
    576. 

  576. 		$chr[89] = '122121'; // Y
    577. 

  577. 		$chr[90] = '123111'; // Z
    578. 

  578. 		$chr[45] = '121131'; // -
    579. 

  579. 		$chr[46] = '311112'; // .
    580. 

  580. 		$chr[32] = '311211'; //
    581. 

  581. 		$chr[36] = '321111'; // $
    582. 

  582. 		$chr[47] = '112131'; // /
    583. 

  583. 		$chr[43] = '113121'; // +
    584. 

  584. 		$chr[37] = '211131'; // %
    585. 

  585. 		$chr[128] = '121221'; // ($)
    586. 

  586. 		$chr[129] = '311121'; // (/)
    587. 

  587. 		$chr[130] = '122211'; // (+)
    588. 

  588. 		$chr[131] = '312111'; // (%)
    589. 

  589. 		$chr[42] = '111141'; // start-stop
    590. 

  590. 		$code = strtoupper($code);
    591. 

  591. 		$encode = array(
    592. 

  592. 			chr(0) => chr(131).'U', chr(1) => chr(128).'A', chr(2) => chr(128).'B', chr(3) => chr(128).'C',
    593. 

  593. 			chr(4) => chr(128).'D', chr(5) => chr(128).'E', chr(6) => chr(128).'F', chr(7) => chr(128).'G',
    594. 

  594. 			chr(8) => chr(128).'H', chr(9) => chr(128).'I', chr(10) => chr(128).'J', chr(11) => '£K',
    595. 

  595. 			chr(12) => chr(128).'L', chr(13) => chr(128).'M', chr(14) => chr(128).'N', chr(15) => chr(128).'O',
    596. 

  596. 			chr(16) => chr(128).'P', chr(17) => chr(128).'Q', chr(18) => chr(128).'R', chr(19) => chr(128).'S',
    597. 

  597. 			chr(20) => chr(128).'T', chr(21) => chr(128).'U', chr(22) => chr(128).'V', chr(23) => chr(128).'W',
    598. 

  598. 			chr(24) => chr(128).'X', chr(25) => chr(128).'Y', chr(26) => chr(128).'Z', chr(27) => chr(131).'A',
    599. 

  599. 			chr(28) => chr(131).'B', chr(29) => chr(131).'C', chr(30) => chr(131).'D', chr(31) => chr(131).'E',
    600. 

  600. 			chr(32) => ' ', chr(33) => chr(129).'A', chr(34) => chr(129).'B', chr(35) => chr(129).'C',
    601. 

  601. 			chr(36) => chr(129).'D', chr(37) => chr(129).'E', chr(38) => chr(129).'F', chr(39) => chr(129).'G',
    602. 

  602. 			chr(40) => chr(129).'H', chr(41) => chr(129).'I', chr(42) => chr(129).'J', chr(43) => chr(129).'K',
    603. 

  603. 			chr(44) => chr(129).'L', chr(45) => '-', chr(46) => '.', chr(47) => chr(129).'O',
    604. 

  604. 			chr(48) => '0', chr(49) => '1', chr(50) => '2', chr(51) => '3',
    605. 

  605. 			chr(52) => '4', chr(53) => '5', chr(54) => '6', chr(55) => '7',
    606. 

  606. 			chr(56) => '8', chr(57) => '9', chr(58) => chr(129).'Z', chr(59) => chr(131).'F',
    607. 

  607. 			chr(60) => chr(131).'G', chr(61) => chr(131).'H', chr(62) => chr(131).'I', chr(63) => chr(131).'J',
    608. 

  608. 			chr(64) => chr(131).'V', chr(65) => 'A', chr(66) => 'B', chr(67) => 'C',
    609. 

  609. 			chr(68) => 'D', chr(69) => 'E', chr(70) => 'F', chr(71) => 'G',
    610. 

  610. 			chr(72) => 'H', chr(73) => 'I', chr(74) => 'J', chr(75) => 'K',
    611. 

  611. 			chr(76) => 'L', chr(77) => 'M', chr(78) => 'N', chr(79) => 'O',
    612. 

  612. 			chr(80) => 'P', chr(81) => 'Q', chr(82) => 'R', chr(83) => 'S',
    613. 

  613. 			chr(84) => 'T', chr(85) => 'U', chr(86) => 'V', chr(87) => 'W',
    614. 

  614. 			chr(88) => 'X', chr(89) => 'Y', chr(90) => 'Z', chr(91) => chr(131).'K',
    615. 

  615. 			chr(92) => chr(131).'L', chr(93) => chr(131).'M', chr(94) => chr(131).'N', chr(95) => chr(131).'O',
    616. 

  616. 			chr(96) => chr(131).'W', chr(97) => chr(130).'A', chr(98) => chr(130).'B', chr(99) => chr(130).'C',
    617. 

  617. 			chr(100) => chr(130).'D', chr(101) => chr(130).'E', chr(102) => chr(130).'F', chr(103) => chr(130).'G',
    618. 

  618. 			chr(104) => chr(130).'H', chr(105) => chr(130).'I', chr(106) => chr(130).'J', chr(107) => chr(130).'K',
    619. 

  619. 			chr(108) => chr(130).'L', chr(109) => chr(130).'M', chr(110) => chr(130).'N', chr(111) => chr(130).'O',
    620. 

  620. 			chr(112) => chr(130).'P', chr(113) => chr(130).'Q', chr(114) => chr(130).'R', chr(115) => chr(130).'S',
    621. 

  621. 			chr(116) => chr(130).'T', chr(117) => chr(130).'U', chr(118) => chr(130).'V', chr(119) => chr(130).'W',
    622. 

  622. 			chr(120) => chr(130).'X', chr(121) => chr(130).'Y', chr(122) => chr(130).'Z', chr(123) => chr(131).'P',
    623. 

  623. 			chr(124) => chr(131).'Q', chr(125) => chr(131).'R', chr(126) => chr(131).'S', chr(127) => chr(131).'T');
    624. 

  624. 		$code_ext = '';
    625. 

  625. 		$clen = strlen($code);
    626. 

  626. 		for ($i = 0 ; $i < $clen; ++$i) {
    627. 

  627. 			if (ord($code{$i}) > 127) {
    628. 

  628. 				return false;
    629. 

  629. 			}
    630. 

  630. 			$code_ext .= $encode[$code{$i}];
    631. 

  631. 		}
    632. 

  632. 		// checksum
    633. 

  633. 		$code_ext .= $this->checksum_code93($code_ext);
    634. 

  634. 		// add start and stop codes
    635. 

  635. 		$code = '*'.$code_ext.'*';
    636. 

  636. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    637. 

  637. 		$k = 0;
    638. 

  638. 		$clen = strlen($code);
    639. 

  639. 		for ($i = 0; $i < $clen; ++$i) {
    640. 

  640. 			$char = ord($code{$i});
    641. 

  641. 			if(!isset($chr[$char])) {
    642. 

  642. 				// invalid character
    643. 

  643. 				return false;
    644. 

  644. 			}
    645. 

  645. 			for ($j = 0; $j < 6; ++$j) {
    646. 

  646. 				if (($j % 2) == 0) {
    647. 

  647. 					$t = true; // bar
    648. 

  648. 				} else {
    649. 

  649. 					$t = false; // space
    650. 

  650. 				}
    651. 

  651. 				$w = $chr[$char]{$j};
    652. 

  652. 				$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    653. 

  653. 				$bararray['maxw'] += $w;
    654. 

  654. 				++$k;
    655. 

  655. 			}
    656. 

  656. 		}
    657. 

  657. 		$bararray['bcode'][$k] = array('t' => true, 'w' => 1, 'h' => 1, 'p' => 0);
    658. 

  658. 		$bararray['maxw'] += 1;
    659. 

  659. 		++$k;
    660. 

  660. 		return $bararray;
    661. 

  661. 	}
    662. 

  662. 

  663. 	/**
    664. 

  664. 	 * Calculate CODE 93 checksum (modulo 47).
    665. 

  665. 	 * @param $code (string) code to represent.
    666. 

  666. 	 * @return string checksum code.
    667. 

  667. 	 * @protected
    668. 

  668. 	 */
    669. 

  669. 	protected function checksum_code93($code) {
    670. 

  670. 		$chars = array(
    671. 

  671. 			'0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
    672. 

  672. 			'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K',
    673. 

  673. 			'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V',
    674. 

  674. 			'W', 'X', 'Y', 'Z', '-', '.', ' ', '$', '/', '+', '%',
    675. 

  675. 			'<', '=', '>', '?');
    676. 

  676. 		// translate special characters
    677. 

  677. 		$code = strtr($code, chr(128).chr(131).chr(129).chr(130), '<=>?');
    678. 

  678. 		$len = strlen($code);
    679. 

  679. 		// calculate check digit C
    680. 

  680. 		$p = 1;
    681. 

  681. 		$check = 0;
    682. 

  682. 		for ($i = ($len - 1); $i >= 0; --$i) {
    683. 

  683. 			$k = array_keys($chars, $code{$i});
    684. 

  684. 			$check += ($k[0] * $p);
    685. 

  685. 			++$p;
    686. 

  686. 			if ($p > 20) {
    687. 

  687. 				$p = 1;
    688. 

  688. 			}
    689. 

  689. 		}
    690. 

  690. 		$check %= 47;
    691. 

  691. 		$c = $chars[$check];
    692. 

  692. 		$code .= $c;
    693. 

  693. 		// calculate check digit K
    694. 

  694. 		$p = 1;
    695. 

  695. 		$check = 0;
    696. 

  696. 		for ($i = $len; $i >= 0; --$i) {
    697. 

  697. 			$k = array_keys($chars, $code{$i});
    698. 

  698. 			$check += ($k[0] * $p);
    699. 

  699. 			++$p;
    700. 

  700. 			if ($p > 15) {
    701. 

  701. 				$p = 1;
    702. 

  702. 			}
    703. 

  703. 		}
    704. 

  704. 		$check %= 47;
    705. 

  705. 		$k = $chars[$check];
    706. 

  706. 		$checksum = $c.$k;
    707. 

  707. 		// resto respecial characters
    708. 

  708. 		$checksum = strtr($checksum, '<=>?', chr(128).chr(131).chr(129).chr(130));
    709. 

  709. 		return $checksum;
    710. 

  710. 	}
    711. 

  711. 

  712. 	/**
    713. 

  713. 	 * Checksum for standard 2 of 5 barcodes.
    714. 

  714. 	 * @param $code (string) code to process.
    715. 

  715. 	 * @return int checksum.
    716. 

  716. 	 * @protected
    717. 

  717. 	 */
    718. 

  718. 	protected function checksum_s25($code) {
    719. 

  719. 		$len = strlen($code);
    720. 

  720. 		$sum = 0;
    721. 

  721. 		for ($i = 0; $i < $len; $i+=2) {
    722. 

  722. 			$sum += $code{$i};
    723. 

  723. 		}
    724. 

  724. 		$sum *= 3;
    725. 

  725. 		for ($i = 1; $i < $len; $i+=2) {
    726. 

  726. 			$sum += ($code{$i});
    727. 

  727. 		}
    728. 

  728. 		$r = $sum % 10;
    729. 

  729. 		if($r > 0) {
    730. 

  730. 			$r = (10 - $r);
    731. 

  731. 		}
    732. 

  732. 		return $r;
    733. 

  733. 	}
    734. 

  734. 

  735. 	/**
    736. 

  736. 	 * MSI.
    737. 

  737. 	 * Variation of Plessey code, with similar applications
    738. 

  738. 	 * Contains digits (0 to 9) and encodes the data only in the width of bars.
    739. 

  739. 	 * @param $code (string) code to represent.
    740. 

  740. 	 * @param $checksum (boolean) if true add a checksum to the code (modulo 11)
    741. 

  741. 	 * @return array barcode representation.
    742. 

  742. 	 * @protected
    743. 

  743. 	 */
    744. 

  744. 	protected function barcode_msi($code, $checksum=false) {
    745. 

  745. 		$chr['0'] = '100100100100';
    746. 

  746. 		$chr['1'] = '100100100110';
    747. 

  747. 		$chr['2'] = '100100110100';
    748. 

  748. 		$chr['3'] = '100100110110';
    749. 

  749. 		$chr['4'] = '100110100100';
    750. 

  750. 		$chr['5'] = '100110100110';
    751. 

  751. 		$chr['6'] = '100110110100';
    752. 

  752. 		$chr['7'] = '100110110110';
    753. 

  753. 		$chr['8'] = '110100100100';
    754. 

  754. 		$chr['9'] = '110100100110';
    755. 

  755. 		$chr['A'] = '110100110100';
    756. 

  756. 		$chr['B'] = '110100110110';
    757. 

  757. 		$chr['C'] = '110110100100';
    758. 

  758. 		$chr['D'] = '110110100110';
    759. 

  759. 		$chr['E'] = '110110110100';
    760. 

  760. 		$chr['F'] = '110110110110';
    761. 

  761. 		if ($checksum) {
    762. 

  762. 			// add checksum
    763. 

  763. 			$clen = strlen($code);
    764. 

  764. 			$p = 2;
    765. 

  765. 			$check = 0;
    766. 

  766. 			for ($i = ($clen - 1); $i >= 0; --$i) {
    767. 

  767. 				$check += (hexdec($code{$i}) * $p);
    768. 

  768. 				++$p;
    769. 

  769. 				if ($p > 7) {
    770. 

  770. 					$p = 2;
    771. 

  771. 				}
    772. 

  772. 			}
    773. 

  773. 			$check %= 11;
    774. 

  774. 			if ($check > 0) {
    775. 

  775. 				$check = 11 - $check;
    776. 

  776. 			}
    777. 

  777. 			$code .= $check;
    778. 

  778. 		}
    779. 

  779. 		$seq = '110'; // left guard
    780. 

  780. 		$clen = strlen($code);
    781. 

  781. 		for ($i = 0; $i < $clen; ++$i) {
    782. 

  782. 			$digit = $code{$i};
    783. 

  783. 			if (!isset($chr[$digit])) {
    784. 

  784. 				// invalid character
    785. 

  785. 				return false;
    786. 

  786. 			}
    787. 

  787. 			$seq .= $chr[$digit];
    788. 

  788. 		}
    789. 

  789. 		$seq .= '1001'; // right guard
    790. 

  790. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    791. 

  791. 		return $this->binseq_to_array($seq, $bararray);
    792. 

  792. 	}
    793. 

  793. 

  794. 	/**
    795. 

  795. 	 * Standard 2 of 5 barcodes.
    796. 

  796. 	 * Used in airline ticket marking, photofinishing
    797. 

  797. 	 * Contains digits (0 to 9) and encodes the data only in the width of bars.
    798. 

  798. 	 * @param $code (string) code to represent.
    799. 

  799. 	 * @param $checksum (boolean) if true add a checksum to the code
    800. 

  800. 	 * @return array barcode representation.
    801. 

  801. 	 * @protected
    802. 

  802. 	 */
    803. 

  803. 	protected function barcode_s25($code, $checksum=false) {
    804. 

  804. 		$chr['0'] = '10101110111010';
    805. 

  805. 		$chr['1'] = '11101010101110';
    806. 

  806. 		$chr['2'] = '10111010101110';
    807. 

  807. 		$chr['3'] = '11101110101010';
    808. 

  808. 		$chr['4'] = '10101110101110';
    809. 

  809. 		$chr['5'] = '11101011101010';
    810. 

  810. 		$chr['6'] = '10111011101010';
    811. 

  811. 		$chr['7'] = '10101011101110';
    812. 

  812. 		$chr['8'] = '10101110111010';
    813. 

  813. 		$chr['9'] = '10111010111010';
    814. 

  814. 		if ($checksum) {
    815. 

  815. 			// add checksum
    816. 

  816. 			$code .= $this->checksum_s25($code);
    817. 

  817. 		}
    818. 

  818. 		if((strlen($code) % 2) != 0) {
    819. 

  819. 			// add leading zero if code-length is odd
    820. 

  820. 			$code = '0'.$code;
    821. 

  821. 		}
    822. 

  822. 		$seq = '11011010';
    823. 

  823. 		$clen = strlen($code);
    824. 

  824. 		for ($i = 0; $i < $clen; ++$i) {
    825. 

  825. 			$digit = $code{$i};
    826. 

  826. 			if (!isset($chr[$digit])) {
    827. 

  827. 				// invalid character
    828. 

  828. 				return false;
    829. 

  829. 			}
    830. 

  830. 			$seq .= $chr[$digit];
    831. 

  831. 		}
    832. 

  832. 		$seq .= '1101011';
    833. 

  833. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    834. 

  834. 		return $this->binseq_to_array($seq, $bararray);
    835. 

  835. 	}
    836. 

  836. 

  837. 	/**
    838. 

  838. 	 * Convert binary barcode sequence to TCPDF barcode array.
    839. 

  839. 	 * @param $seq (string) barcode as binary sequence.
    840. 

  840. 	 * @param $bararray (array) barcode array.
    841. 

  841. 	 * òparam array $bararray TCPDF barcode array to fill up
    842. 

  842. 	 * @return array barcode representation.
    843. 

  843. 	 * @protected
    844. 

  844. 	 */
    845. 

  845. 	protected function binseq_to_array($seq, $bararray) {
    846. 

  846. 		$len = strlen($seq);
    847. 

  847. 		$w = 0;
    848. 

  848. 		$k = 0;
    849. 

  849. 		for ($i = 0; $i < $len; ++$i) {
    850. 

  850. 			$w += 1;
    851. 

  851. 			if (($i == ($len - 1)) OR (($i < ($len - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
    852. 

  852. 				if ($seq{$i} == '1') {
    853. 

  853. 					$t = true; // bar
    854. 

  854. 				} else {
    855. 

  855. 					$t = false; // space
    856. 

  856. 				}
    857. 

  857. 				$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    858. 

  858. 				$bararray['maxw'] += $w;
    859. 

  859. 				++$k;
    860. 

  860. 				$w = 0;
    861. 

  861. 			}
    862. 

  862. 		}
    863. 

  863. 		return $bararray;
    864. 

  864. 	}
    865. 

  865. 

  866. 	/**
    867. 

  867. 	 * Interleaved 2 of 5 barcodes.
    868. 

  868. 	 * Compact numeric code, widely used in industry, air cargo
    869. 

  869. 	 * Contains digits (0 to 9) and encodes the data in the width of both bars and spaces.
    870. 

  870. 	 * @param $code (string) code to represent.
    871. 

  871. 	 * @param $checksum (boolean) if true add a checksum to the code
    872. 

  872. 	 * @return array barcode representation.
    873. 

  873. 	 * @protected
    874. 

  874. 	 */
    875. 

  875. 	protected function barcode_i25($code, $checksum=false) {
    876. 

  876. 		$chr['0'] = '11221';
    877. 

  877. 		$chr['1'] = '21112';
    878. 

  878. 		$chr['2'] = '12112';
    879. 

  879. 		$chr['3'] = '22111';
    880. 

  880. 		$chr['4'] = '11212';
    881. 

  881. 		$chr['5'] = '21211';
    882. 

  882. 		$chr['6'] = '12211';
    883. 

  883. 		$chr['7'] = '11122';
    884. 

  884. 		$chr['8'] = '21121';
    885. 

  885. 		$chr['9'] = '12121';
    886. 

  886. 		$chr['A'] = '11';
    887. 

  887. 		$chr['Z'] = '21';
    888. 

  888. 		if ($checksum) {
    889. 

  889. 			// add checksum
    890. 

  890. 			$code .= $this->checksum_s25($code);
    891. 

  891. 		}
    892. 

  892. 		if((strlen($code) % 2) != 0) {
    893. 

  893. 			// add leading zero if code-length is odd
    894. 

  894. 			$code = '0'.$code;
    895. 

  895. 		}
    896. 

  896. 		// add start and stop codes
    897. 

  897. 		$code = 'AA'.strtolower($code).'ZA';
    898. 

  898. 

  899. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    900. 

  900. 		$k = 0;
    901. 

  901. 		$clen = strlen($code);
    902. 

  902. 		for ($i = 0; $i < $clen; $i = ($i + 2)) {
    903. 

  903. 			$char_bar = $code{$i};
    904. 

  904. 			$char_space = $code{$i+1};
    905. 

  905. 			if((!isset($chr[$char_bar])) OR (!isset($chr[$char_space]))) {
    906. 

  906. 				// invalid character
    907. 

  907. 				return false;
    908. 

  908. 			}
    909. 

  909. 			// create a bar-space sequence
    910. 

  910. 			$seq = '';
    911. 

  911. 			$chrlen = strlen($chr[$char_bar]);
    912. 

  912. 			for ($s = 0; $s < $chrlen; $s++){
    913. 

  913. 				$seq .= $chr[$char_bar]{$s} . $chr[$char_space]{$s};
    914. 

  914. 			}
    915. 

  915. 			$seqlen = strlen($seq);
    916. 

  916. 			for ($j = 0; $j < $seqlen; ++$j) {
    917. 

  917. 				if (($j % 2) == 0) {
    918. 

  918. 					$t = true; // bar
    919. 

  919. 				} else {
    920. 

  920. 					$t = false; // space
    921. 

  921. 				}
    922. 

  922. 				$w = $seq{$j};
    923. 

  923. 				$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    924. 

  924. 				$bararray['maxw'] += $w;
    925. 

  925. 				++$k;
    926. 

  926. 			}
    927. 

  927. 		}
    928. 

  928. 		return $bararray;
    929. 

  929. 	}
    930. 

  930. 

  931. 	/**
    932. 

  932. 	 * C128 barcodes.
    933. 

  933. 	 * Very capable code, excellent density, high reliability; in very wide use world-wide
    934. 

  934. 	 * @param $code (string) code to represent.
    935. 

  935. 	 * @param $type (string) barcode type: A, B, C or empty for automatic switch (AUTO mode)
    936. 

  936. 	 * @return array barcode representation.
    937. 

  937. 	 * @protected
    938. 

  938. 	 */
    939. 

  939. 	protected function barcode_c128($code, $type='') {
    940. 

  940. 		$chr = array(
    941. 

  941. 			'212222', /* 00 */
    942. 

  942. 			'222122', /* 01 */
    943. 

  943. 			'222221', /* 02 */
    944. 

  944. 			'121223', /* 03 */
    945. 

  945. 			'121322', /* 04 */
    946. 

  946. 			'131222', /* 05 */
    947. 

  947. 			'122213', /* 06 */
    948. 

  948. 			'122312', /* 07 */
    949. 

  949. 			'132212', /* 08 */
    950. 

  950. 			'221213', /* 09 */
    951. 

  951. 			'221312', /* 10 */
    952. 

  952. 			'231212', /* 11 */
    953. 

  953. 			'112232', /* 12 */
    954. 

  954. 			'122132', /* 13 */
    955. 

  955. 			'122231', /* 14 */
    956. 

  956. 			'113222', /* 15 */
    957. 

  957. 			'123122', /* 16 */
    958. 

  958. 			'123221', /* 17 */
    959. 

  959. 			'223211', /* 18 */
    960. 

  960. 			'221132', /* 19 */
    961. 

  961. 			'221231', /* 20 */
    962. 

  962. 			'213212', /* 21 */
    963. 

  963. 			'223112', /* 22 */
    964. 

  964. 			'312131', /* 23 */
    965. 

  965. 			'311222', /* 24 */
    966. 

  966. 			'321122', /* 25 */
    967. 

  967. 			'321221', /* 26 */
    968. 

  968. 			'312212', /* 27 */
    969. 

  969. 			'322112', /* 28 */
    970. 

  970. 			'322211', /* 29 */
    971. 

  971. 			'212123', /* 30 */
    972. 

  972. 			'212321', /* 31 */
    973. 

  973. 			'232121', /* 32 */
    974. 

  974. 			'111323', /* 33 */
    975. 

  975. 			'131123', /* 34 */
    976. 

  976. 			'131321', /* 35 */
    977. 

  977. 			'112313', /* 36 */
    978. 

  978. 			'132113', /* 37 */
    979. 

  979. 			'132311', /* 38 */
    980. 

  980. 			'211313', /* 39 */
    981. 

  981. 			'231113', /* 40 */
    982. 

  982. 			'231311', /* 41 */
    983. 

  983. 			'112133', /* 42 */
    984. 

  984. 			'112331', /* 43 */
    985. 

  985. 			'132131', /* 44 */
    986. 

  986. 			'113123', /* 45 */
    987. 

  987. 			'113321', /* 46 */
    988. 

  988. 			'133121', /* 47 */
    989. 

  989. 			'313121', /* 48 */
    990. 

  990. 			'211331', /* 49 */
    991. 

  991. 			'231131', /* 50 */
    992. 

  992. 			'213113', /* 51 */
    993. 

  993. 			'213311', /* 52 */
    994. 

  994. 			'213131', /* 53 */
    995. 

  995. 			'311123', /* 54 */
    996. 

  996. 			'311321', /* 55 */
    997. 

  997. 			'331121', /* 56 */
    998. 

  998. 			'312113', /* 57 */
    999. 

  999. 			'312311', /* 58 */
    1000. 

  1000. 			'332111', /* 59 */
    1001. 

  1001. 			'314111', /* 60 */
    1002. 

  1002. 			'221411', /* 61 */
    1003. 

  1003. 			'431111', /* 62 */
    1004. 

  1004. 			'111224', /* 63 */
    1005. 

  1005. 			'111422', /* 64 */
    1006. 

  1006. 			'121124', /* 65 */
    1007. 

  1007. 			'121421', /* 66 */
    1008. 

  1008. 			'141122', /* 67 */
    1009. 

  1009. 			'141221', /* 68 */
    1010. 

  1010. 			'112214', /* 69 */
    1011. 

  1011. 			'112412', /* 70 */
    1012. 

  1012. 			'122114', /* 71 */
    1013. 

  1013. 			'122411', /* 72 */
    1014. 

  1014. 			'142112', /* 73 */
    1015. 

  1015. 			'142211', /* 74 */
    1016. 

  1016. 			'241211', /* 75 */
    1017. 

  1017. 			'221114', /* 76 */
    1018. 

  1018. 			'413111', /* 77 */
    1019. 

  1019. 			'241112', /* 78 */
    1020. 

  1020. 			'134111', /* 79 */
    1021. 

  1021. 			'111242', /* 80 */
    1022. 

  1022. 			'121142', /* 81 */
    1023. 

  1023. 			'121241', /* 82 */
    1024. 

  1024. 			'114212', /* 83 */
    1025. 

  1025. 			'124112', /* 84 */
    1026. 

  1026. 			'124211', /* 85 */
    1027. 

  1027. 			'411212', /* 86 */
    1028. 

  1028. 			'421112', /* 87 */
    1029. 

  1029. 			'421211', /* 88 */
    1030. 

  1030. 			'212141', /* 89 */
    1031. 

  1031. 			'214121', /* 90 */
    1032. 

  1032. 			'412121', /* 91 */
    1033. 

  1033. 			'111143', /* 92 */
    1034. 

  1034. 			'111341', /* 93 */
    1035. 

  1035. 			'131141', /* 94 */
    1036. 

  1036. 			'114113', /* 95 */
    1037. 

  1037. 			'114311', /* 96 */
    1038. 

  1038. 			'411113', /* 97 */
    1039. 

  1039. 			'411311', /* 98 */
    1040. 

  1040. 			'113141', /* 99 */
    1041. 

  1041. 			'114131', /* 100 */
    1042. 

  1042. 			'311141', /* 101 */
    1043. 

  1043. 			'411131', /* 102 */
    1044. 

  1044. 			'211412', /* 103 START A */
    1045. 

  1045. 			'211214', /* 104 START B */
    1046. 

  1046. 			'211232', /* 105 START C */
    1047. 

  1047. 			'233111', /* STOP */
    1048. 

  1048. 			'200000'  /* END */
    1049. 

  1049. 		);
    1050. 

  1050. 		// ASCII characters for code A (ASCII 00 - 95)
    1051. 

  1051. 		$keys_a = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_';
    1052. 

  1052. 		$keys_a .= chr(0).chr(1).chr(2).chr(3).chr(4).chr(5).chr(6).chr(7).chr(8).chr(9);
    1053. 

  1053. 		$keys_a .= chr(10).chr(11).chr(12).chr(13).chr(14).chr(15).chr(16).chr(17).chr(18).chr(19);
    1054. 

  1054. 		$keys_a .= chr(20).chr(21).chr(22).chr(23).chr(24).chr(25).chr(26).chr(27).chr(28).chr(29);
    1055. 

  1055. 		$keys_a .= chr(30).chr(31);
    1056. 

  1056. 		// ASCII characters for code B (ASCII 32 - 127)
    1057. 

  1057. 		$keys_b = ' !"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~'.chr(127);
    1058. 

  1058. 		// special codes
    1059. 

  1059. 		$fnc_a = array(241 => 102, 242 => 97, 243 => 96, 244 => 101);
    1060. 

  1060. 		$fnc_b = array(241 => 102, 242 => 97, 243 => 96, 244 => 100);
    1061. 

  1061. 		// array of symbols
    1062. 

  1062. 		$code_data = array();
    1063. 

  1063. 		// lenght of the code
    1064. 

  1064. 		$len = strlen($code);
    1065. 

  1065. 		switch(strtoupper($type)) {
    1066. 

  1066. 			case 'A': { // MODE A
    1067. 

  1067. 				$startid = 103;
    1068. 

  1068. 				for ($i = 0; $i < $len; ++$i) {
    1069. 

  1069. 					$char = $code{$i};
    1070. 

  1070. 					$char_id = ord($char);
    1071. 

  1071. 					if (($char_id >= 241) AND ($char_id <= 244)) {
    1072. 

  1072. 						$code_data[] = $fnc_a[$char_id];
    1073. 

  1073. 					} elseif (($char_id >= 0) AND ($char_id <= 95)) {
    1074. 

  1074. 						$code_data[] = strpos($keys_a, $char);
    1075. 

  1075. 					} else {
    1076. 

  1076. 						return false;
    1077. 

  1077. 					}
    1078. 

  1078. 				}
    1079. 

  1079. 				break;
    1080. 

  1080. 			}
    1081. 

  1081. 			case 'B': { // MODE B
    1082. 

  1082. 				$startid = 104;
    1083. 

  1083. 				for ($i = 0; $i < $len; ++$i) {
    1084. 

  1084. 					$char = $code{$i};
    1085. 

  1085. 					$char_id = ord($char);
    1086. 

  1086. 					if (($char_id >= 241) AND ($char_id <= 244)) {
    1087. 

  1087. 						$code_data[] = $fnc_b[$char_id];
    1088. 

  1088. 					} elseif (($char_id >= 32) AND ($char_id <= 127)) {
    1089. 

  1089. 						$code_data[] = strpos($keys_b, $char);
    1090. 

  1090. 					} else {
    1091. 

  1091. 						return false;
    1092. 

  1092. 					}
    1093. 

  1093. 				}
    1094. 

  1094. 				break;
    1095. 

  1095. 			}
    1096. 

  1096. 			case 'C': { // MODE C
    1097. 

  1097. 				$startid = 105;
    1098. 

  1098. 				if (ord($code{0}) == 241) {
    1099. 

  1099. 					$code_data[] = 102;
    1100. 

  1100. 					$code = substr($code, 1);
    1101. 

  1101. 					--$len;
    1102. 

  1102. 				}
    1103. 

  1103. 				if (($len % 2) != 0) {
    1104. 

  1104. 					// the length must be even
    1105. 

  1105. 					return false;
    1106. 

  1106. 				}
    1107. 

  1107. 				for ($i = 0; $i < $len; $i+=2) {
    1108. 

  1108. 					$chrnum = $code{$i}.$code{$i+1};
    1109. 

  1109. 					if (preg_match('/([0-9]{2})/', $chrnum) > 0) {
    1110. 

  1110. 						$code_data[] = intval($chrnum);
    1111. 

  1111. 					} else {
    1112. 

  1112. 						return false;
    1113. 

  1113. 					}
    1114. 

  1114. 				}
    1115. 

  1115. 				break;
    1116. 

  1116. 			}
    1117. 

  1117. 			default: { // MODE AUTO
    1118. 

  1118. 				// split code into sequences
    1119. 

  1119. 				$sequence = array();
    1120. 

  1120. 				// get numeric sequences (if any)
    1121. 

  1121. 				$numseq = array();
    1122. 

  1122. 				preg_match_all('/([0-9]{4,})/', $code, $numseq, PREG_OFFSET_CAPTURE);
    1123. 

  1123. 				if (isset($numseq[1]) AND !empty($numseq[1])) {
    1124. 

  1124. 					$end_offset = 0;
    1125. 

  1125. 					foreach ($numseq[1] as $val) {
    1126. 

  1126. 						$offset = $val[1];
    1127. 

  1127. 						if ($offset > $end_offset) {
    1128. 

  1128. 							// non numeric sequence
    1129. 

  1129. 							$sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset, ($offset - $end_offset))));
    1130. 

  1130. 						}
    1131. 

  1131. 						// numeric sequence
    1132. 

  1132. 						$slen = strlen($val[0]);
    1133. 

  1133. 						if (($slen % 2) != 0) {
    1134. 

  1134. 							// the length must be even
    1135. 

  1135. 							--$slen;
    1136. 

  1136. 						}
    1137. 

  1137. 						$sequence[] = array('C', substr($code, $offset, $slen), $slen);
    1138. 

  1138. 						$end_offset = $offset + $slen;
    1139. 

  1139. 					}
    1140. 

  1140. 					if ($end_offset < $len) {
    1141. 

  1141. 						$sequence = array_merge($sequence, $this->get128ABsequence(substr($code, $end_offset)));
    1142. 

  1142. 					}
    1143. 

  1143. 				} else {
    1144. 

  1144. 					// text code (non C mode)
    1145. 

  1145. 					$sequence = array_merge($sequence, $this->get128ABsequence($code));
    1146. 

  1146. 				}
    1147. 

  1147. 				// process the sequence
    1148. 

  1148. 				foreach ($sequence as $key => $seq) {
    1149. 

  1149. 					switch($seq[0]) {
    1150. 

  1150. 						case 'A': {
    1151. 

  1151. 							if ($key == 0) {
    1152. 

  1152. 								$startid = 103;
    1153. 

  1153. 							} elseif ($sequence[($key - 1)][0] != 'A') {
    1154. 

  1154. 								if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'B') AND (!isset($sequence[($key - 1)][3]))) {
    1155. 

  1155. 									// single character shift
    1156. 

  1156. 									$code_data[] = 98;
    1157. 

  1157. 									// mark shift
    1158. 

  1158. 									$sequence[$key][3] = true;
    1159. 

  1159. 								} elseif (!isset($sequence[($key - 1)][3])) {
    1160. 

  1160. 									$code_data[] = 101;
    1161. 

  1161. 								}
    1162. 

  1162. 							}
    1163. 

  1163. 							for ($i = 0; $i < $seq[2]; ++$i) {
    1164. 

  1164. 								$char = $seq[1]{$i};
    1165. 

  1165. 								$char_id = ord($char);
    1166. 

  1166. 								if (($char_id >= 241) AND ($char_id <= 244)) {
    1167. 

  1167. 									$code_data[] = $fnc_a[$char_id];
    1168. 

  1168. 								} else {
    1169. 

  1169. 									$code_data[] = strpos($keys_a, $char);
    1170. 

  1170. 								}
    1171. 

  1171. 							}
    1172. 

  1172. 							break;
    1173. 

  1173. 						}
    1174. 

  1174. 						case 'B': {
    1175. 

  1175. 							if ($key == 0) {
    1176. 

  1176. 								$tmpchr = ord($seq[1]{0});
    1177. 

  1177. 								if (($seq[2] == 1) AND ($tmpchr >= 241) AND ($tmpchr <= 244) AND isset($sequence[($key + 1)]) AND ($sequence[($key + 1)][0] != 'B')) {
    1178. 

  1178. 									switch ($sequence[($key + 1)][0]) {
    1179. 

  1179. 										case 'A': {
    1180. 

  1180. 											$startid = 103;
    1181. 

  1181. 											$sequence[$key][0] = 'A';
    1182. 

  1182. 											$code_data[] = $fnc_a[$tmpchr];
    1183. 

  1183. 											break;
    1184. 

  1184. 										}
    1185. 

  1185. 										case 'C': {
    1186. 

  1186. 											$startid = 105;
    1187. 

  1187. 											$sequence[$key][0] = 'C';
    1188. 

  1188. 											$code_data[] = $fnc_a[$tmpchr];
    1189. 

  1189. 											break;
    1190. 

  1190. 										}
    1191. 

  1191. 									}
    1192. 

  1192. 									break;
    1193. 

  1193. 								} else {
    1194. 

  1194. 									$startid = 104;
    1195. 

  1195. 								}
    1196. 

  1196. 							} elseif ($sequence[($key - 1)][0] != 'B') {
    1197. 

  1197. 								if (($seq[2] == 1) AND ($key > 0) AND ($sequence[($key - 1)][0] == 'A') AND (!isset($sequence[($key - 1)][3]))) {
    1198. 

  1198. 									// single character shift
    1199. 

  1199. 									$code_data[] = 98;
    1200. 

  1200. 									// mark shift
    1201. 

  1201. 									$sequence[$key][3] = true;
    1202. 

  1202. 								} elseif (!isset($sequence[($key - 1)][3])) {
    1203. 

  1203. 									$code_data[] = 100;
    1204. 

  1204. 								}
    1205. 

  1205. 							}
    1206. 

  1206. 							for ($i = 0; $i < $seq[2]; ++$i) {
    1207. 

  1207. 								$char = $seq[1]{$i};
    1208. 

  1208. 								$char_id = ord($char);
    1209. 

  1209. 								if (($char_id >= 241) AND ($char_id <= 244)) {
    1210. 

  1210. 									$code_data[] = $fnc_b[$char_id];
    1211. 

  1211. 								} else {
    1212. 

  1212. 									$code_data[] = strpos($keys_b, $char);
    1213. 

  1213. 								}
    1214. 

  1214. 							}
    1215. 

  1215. 							break;
    1216. 

  1216. 						}
    1217. 

  1217. 						case 'C': {
    1218. 

  1218. 							if ($key == 0) {
    1219. 

  1219. 								$startid = 105;
    1220. 

  1220. 							} elseif ($sequence[($key - 1)][0] != 'C') {
    1221. 

  1221. 								$code_data[] = 99;
    1222. 

  1222. 							}
    1223. 

  1223. 							for ($i = 0; $i < $seq[2]; $i+=2) {
    1224. 

  1224. 								$chrnum = $seq[1]{$i}.$seq[1]{$i+1};
    1225. 

  1225. 								$code_data[] = intval($chrnum);
    1226. 

  1226. 							}
    1227. 

  1227. 							break;
    1228. 

  1228. 						}
    1229. 

  1229. 					}
    1230. 

  1230. 				}
    1231. 

  1231. 			}
    1232. 

  1232. 		}
    1233. 

  1233. 		// calculate check character
    1234. 

  1234. 		$sum = $startid;
    1235. 

  1235. 		foreach ($code_data as $key => $val) {
    1236. 

  1236. 			$sum += ($val * ($key + 1));
    1237. 

  1237. 		}
    1238. 

  1238. 		// add check character
    1239. 

  1239. 		$code_data[] = ($sum % 103);
    1240. 

  1240. 		// add stop sequence
    1241. 

  1241. 		$code_data[] = 106;
    1242. 

  1242. 		$code_data[] = 107;
    1243. 

  1243. 		// add start code at the beginning
    1244. 

  1244. 		array_unshift($code_data, $startid);
    1245. 

  1245. 		// build barcode array
    1246. 

  1246. 		$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    1247. 

  1247. 		foreach ($code_data as $val) {
    1248. 

  1248. 			$seq = $chr[$val];
    1249. 

  1249. 			for ($j = 0; $j < 6; ++$j) {
    1250. 

  1250. 				if (($j % 2) == 0) {
    1251. 

  1251. 					$t = true; // bar
    1252. 

  1252. 				} else {
    1253. 

  1253. 					$t = false; // space
    1254. 

  1254. 				}
    1255. 

  1255. 				$w = $seq{$j};
    1256. 

  1256. 				$bararray['bcode'][] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    1257. 

  1257. 				$bararray['maxw'] += $w;
    1258. 

  1258. 			}
    1259. 

  1259. 		}
    1260. 

  1260. 		return $bararray;
    1261. 

  1261. 	}
    1262. 

  1262. 

  1263. 	/**
    1264. 

  1264. 	 * Split text code in A/B sequence for 128 code
    1265. 

  1265. 	 * @param $code (string) code to split.
    1266. 

  1266. 	 * @return array sequence
    1267. 

  1267. 	 * @protected
    1268. 

  1268. 	 */
    1269. 

  1269. 	protected function get128ABsequence($code) {
    1270. 

  1270. 		$len = strlen($code);
    1271. 

  1271. 		$sequence = array();
    1272. 

  1272. 		// get A sequences (if any)
    1273. 

  1273. 		$numseq = array();
    1274. 

  1274. 		preg_match_all('/([\0-\31])/', $code, $numseq, PREG_OFFSET_CAPTURE);
    1275. 

  1275. 		if (isset($numseq[1]) AND !empty($numseq[1])) {
    1276. 

  1276. 			$end_offset = 0;
    1277. 

  1277. 			foreach ($numseq[1] as $val) {
    1278. 

  1278. 				$offset = $val[1];
    1279. 

  1279. 				if ($offset > $end_offset) {
    1280. 

  1280. 					// B sequence
    1281. 

  1281. 					$sequence[] = array('B', substr($code, $end_offset, ($offset - $end_offset)), ($offset - $end_offset));
    1282. 

  1282. 				}
    1283. 

  1283. 				// A sequence
    1284. 

  1284. 				$slen = strlen($val[0]);
    1285. 

  1285. 				$sequence[] = array('A', substr($code, $offset, $slen), $slen);
    1286. 

  1286. 				$end_offset = $offset + $slen;
    1287. 

  1287. 			}
    1288. 

  1288. 			if ($end_offset < $len) {
    1289. 

  1289. 				$sequence[] = array('B', substr($code, $end_offset), ($len - $end_offset));
    1290. 

  1290. 			}
    1291. 

  1291. 		} else {
    1292. 

  1292. 			// only B sequence
    1293. 

  1293. 			$sequence[] = array('B', $code, $len);
    1294. 

  1294. 		}
    1295. 

  1295. 		return $sequence;
    1296. 

  1296. 	}
    1297. 

  1297. 

  1298. 	/**
    1299. 

  1299. 	 * EAN13 and UPC-A barcodes.
    1300. 

  1300. 	 * EAN13: European Article Numbering international retail product code
    1301. 

  1301. 	 * UPC-A: Universal product code seen on almost all retail products in the USA and Canada
    1302. 

  1302. 	 * UPC-E: Short version of UPC symbol
    1303. 

  1303. 	 * @param $code (string) code to represent.
    1304. 

  1304. 	 * @param $len (string) barcode type: 6 = UPC-E, 8 = EAN8, 13 = EAN13, 12 = UPC-A
    1305. 

  1305. 	 * @return array barcode representation.
    1306. 

  1306. 	 * @protected
    1307. 

  1307. 	 */
    1308. 

  1308. 	protected function barcode_eanupc($code, $len=13) {
    1309. 

  1309. 		$upce = false;
    1310. 

  1310. 		if ($len == 6) {
    1311. 

  1311. 			$len = 12; // UPC-A
    1312. 

  1312. 			$upce = true; // UPC-E mode
    1313. 

  1313. 		}
    1314. 

  1314. 		$data_len = $len - 1;
    1315. 

  1315. 		//Padding
    1316. 

  1316. 		$code = str_pad($code, $data_len, '0', STR_PAD_LEFT);
    1317. 

  1317. 		$code_len = strlen($code);
    1318. 

  1318. 		// calculate check digit
    1319. 

  1319. 		$sum_a = 0;
    1320. 

  1320. 		for ($i = 1; $i < $data_len; $i+=2) {
    1321. 

  1321. 			$sum_a += $code{$i};
    1322. 

  1322. 		}
    1323. 

  1323. 		if ($len > 12) {
    1324. 

  1324. 			$sum_a *= 3;
    1325. 

  1325. 		}
    1326. 

  1326. 		$sum_b = 0;
    1327. 

  1327. 		for ($i = 0; $i < $data_len; $i+=2) {
    1328. 

  1328. 			$sum_b += ($code{$i});
    1329. 

  1329. 		}
    1330. 

  1330. 		if ($len < 13) {
    1331. 

  1331. 			$sum_b *= 3;
    1332. 

  1332. 		}
    1333. 

  1333. 		$r = ($sum_a + $sum_b) % 10;
    1334. 

  1334. 		if($r > 0) {
    1335. 

  1335. 			$r = (10 - $r);
    1336. 

  1336. 		}
    1337. 

  1337. 		if ($code_len == $data_len) {
    1338. 

  1338. 			// add check digit
    1339. 

  1339. 			$code .= $r;
    1340. 

  1340. 		} elseif ($r !== intval($code{$data_len})) {
    1341. 

  1341. 			// wrong checkdigit
    1342. 

  1342. 			return false;
    1343. 

  1343. 		}
    1344. 

  1344. 		if ($len == 12) {
    1345. 

  1345. 			// UPC-A
    1346. 

  1346. 			$code = '0'.$code;
    1347. 

  1347. 			++$len;
    1348. 

  1348. 		}
    1349. 

  1349. 		if ($upce) {
    1350. 

  1350. 			// convert UPC-A to UPC-E
    1351. 

  1351. 			$tmp = substr($code, 4, 3);
    1352. 

  1352. 			if (($tmp == '000') OR ($tmp == '100') OR ($tmp == '200')) {
    1353. 

  1353. 				// manufacturer code ends in 000, 100, or 200
    1354. 

  1354. 				$upce_code = substr($code, 2, 2).substr($code, 9, 3).substr($code, 4, 1);
    1355. 

  1355. 			} else {
    1356. 

  1356. 				$tmp = substr($code, 5, 2);
    1357. 

  1357. 				if ($tmp == '00') {
    1358. 

  1358. 					// manufacturer code ends in 00
    1359. 

  1359. 					$upce_code = substr($code, 2, 3).substr($code, 10, 2).'3';
    1360. 

  1360. 				} else {
    1361. 

  1361. 					$tmp = substr($code, 6, 1);
    1362. 

  1362. 					if ($tmp == '0') {
    1363. 

  1363. 						// manufacturer code ends in 0
    1364. 

  1364. 						$upce_code = substr($code, 2, 4).substr($code, 11, 1).'4';
    1365. 

  1365. 					} else {
    1366. 

  1366. 						// manufacturer code does not end in zero
    1367. 

  1367. 						$upce_code = substr($code, 2, 5).substr($code, 11, 1);
    1368. 

  1368. 					}
    1369. 

  1369. 				}
    1370. 

  1370. 			}
    1371. 

  1371. 		}
    1372. 

  1372. 		//Convert digits to bars
    1373. 

  1373. 		$codes = array(
    1374. 

  1374. 			'A'=>array( // left odd parity
    1375. 

  1375. 				'0'=>'0001101',
    1376. 

  1376. 				'1'=>'0011001',
    1377. 

  1377. 				'2'=>'0010011',
    1378. 

  1378. 				'3'=>'0111101',
    1379. 

  1379. 				'4'=>'0100011',
    1380. 

  1380. 				'5'=>'0110001',
    1381. 

  1381. 				'6'=>'0101111',
    1382. 

  1382. 				'7'=>'0111011',
    1383. 

  1383. 				'8'=>'0110111',
    1384. 

  1384. 				'9'=>'0001011'),
    1385. 

  1385. 			'B'=>array( // left even parity
    1386. 

  1386. 				'0'=>'0100111',
    1387. 

  1387. 				'1'=>'0110011',
    1388. 

  1388. 				'2'=>'0011011',
    1389. 

  1389. 				'3'=>'0100001',
    1390. 

  1390. 				'4'=>'0011101',
    1391. 

  1391. 				'5'=>'0111001',
    1392. 

  1392. 				'6'=>'0000101',
    1393. 

  1393. 				'7'=>'0010001',
    1394. 

  1394. 				'8'=>'0001001',
    1395. 

  1395. 				'9'=>'0010111'),
    1396. 

  1396. 			'C'=>array( // right
    1397. 

  1397. 				'0'=>'1110010',
    1398. 

  1398. 				'1'=>'1100110',
    1399. 

  1399. 				'2'=>'1101100',
    1400. 

  1400. 				'3'=>'1000010',
    1401. 

  1401. 				'4'=>'1011100',
    1402. 

  1402. 				'5'=>'1001110',
    1403. 

  1403. 				'6'=>'1010000',
    1404. 

  1404. 				'7'=>'1000100',
    1405. 

  1405. 				'8'=>'1001000',
    1406. 

  1406. 				'9'=>'1110100')
    1407. 

  1407. 		);
    1408. 

  1408. 		$parities = array(
    1409. 

  1409. 			'0'=>array('A','A','A','A','A','A'),
    1410. 

  1410. 			'1'=>array('A','A','B','A','B','B'),
    1411. 

  1411. 			'2'=>array('A','A','B','B','A','B'),
    1412. 

  1412. 			'3'=>array('A','A','B','B','B','A'),
    1413. 

  1413. 			'4'=>array('A','B','A','A','B','B'),
    1414. 

  1414. 			'5'=>array('A','B','B','A','A','B'),
    1415. 

  1415. 			'6'=>array('A','B','B','B','A','A'),
    1416. 

  1416. 			'7'=>array('A','B','A','B','A','B'),
    1417. 

  1417. 			'8'=>array('A','B','A','B','B','A'),
    1418. 

  1418. 			'9'=>array('A','B','B','A','B','A')
    1419. 

  1419. 		);
    1420. 

  1420. 		$upce_parities = array();
    1421. 

  1421. 		$upce_parities[0] = array(
    1422. 

  1422. 			'0'=>array('B','B','B','A','A','A'),
    1423. 

  1423. 			'1'=>array('B','B','A','B','A','A'),
    1424. 

  1424. 			'2'=>array('B','B','A','A','B','A'),
    1425. 

  1425. 			'3'=>array('B','B','A','A','A','B'),
    1426. 

  1426. 			'4'=>array('B','A','B','B','A','A'),
    1427. 

  1427. 			'5'=>array('B','A','A','B','B','A'),
    1428. 

  1428. 			'6'=>array('B','A','A','A','B','B'),
    1429. 

  1429. 			'7'=>array('B','A','B','A','B','A'),
    1430. 

  1430. 			'8'=>array('B','A','B','A','A','B'),
    1431. 

  1431. 			'9'=>array('B','A','A','B','A','B')
    1432. 

  1432. 		);
    1433. 

  1433. 		$upce_parities[1] = array(
    1434. 

  1434. 			'0'=>array('A','A','A','B','B','B'),
    1435. 

  1435. 			'1'=>array('A','A','B','A','B','B'),
    1436. 

  1436. 			'2'=>array('A','A','B','B','A','B'),
    1437. 

  1437. 			'3'=>array('A','A','B','B','B','A'),
    1438. 

  1438. 			'4'=>array('A','B','A','A','B','B'),
    1439. 

  1439. 			'5'=>array('A','B','B','A','A','B'),
    1440. 

  1440. 			'6'=>array('A','B','B','B','A','A'),
    1441. 

  1441. 			'7'=>array('A','B','A','B','A','B'),
    1442. 

  1442. 			'8'=>array('A','B','A','B','B','A'),
    1443. 

  1443. 			'9'=>array('A','B','B','A','B','A')
    1444. 

  1444. 		);
    1445. 

  1445. 		$k = 0;
    1446. 

  1446. 		$seq = '101'; // left guard bar
    1447. 

  1447. 		if ($upce) {
    1448. 

  1448. 			$bararray = array('code' => $upce_code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    1449. 

  1449. 			$p = $upce_parities[$code{1}][$r];
    1450. 

  1450. 			for ($i = 0; $i < 6; ++$i) {
    1451. 

  1451. 				$seq .= $codes[$p[$i]][$upce_code{$i}];
    1452. 

  1452. 			}
    1453. 

  1453. 			$seq .= '010101'; // right guard bar
    1454. 

  1454. 		} else {
    1455. 

  1455. 			$bararray = array('code' => $code, 'maxw' => 0, 'maxh' => 1, 'bcode' => array());
    1456. 

  1456. 			$half_len = ceil($len / 2);
    1457. 

  1457. 			if ($len == 8) {
    1458. 

  1458. 				for ($i = 0; $i < $half_len; ++$i) {
    1459. 

  1459. 					$seq .= $codes['A'][$code{$i}];
    1460. 

  1460. 				}
    1461. 

  1461. 			} else {
    1462. 

  1462. 				$p = $parities[$code{0}];
    1463. 

  1463. 				for ($i = 1; $i < $half_len; ++$i) {
    1464. 

  1464. 					$seq .= $codes[$p[$i-1]][$code{$i}];
    1465. 

  1465. 				}
    1466. 

  1466. 			}
    1467. 

  1467. 			$seq .= '01010'; // center guard bar
    1468. 

  1468. 			for ($i = $half_len; $i < $len; ++$i) {
    1469. 

  1469. 				$seq .= $codes['C'][$code{$i}];
    1470. 

  1470. 			}
    1471. 

  1471. 			$seq .= '101'; // right guard bar
    1472. 

  1472. 		}
    1473. 

  1473. 		$clen = strlen($seq);
    1474. 

  1474. 		$w = 0;
    1475. 

  1475. 		for ($i = 0; $i < $clen; ++$i) {
    1476. 

  1476. 			$w += 1;
    1477. 

  1477. 			if (($i == ($clen - 1)) OR (($i < ($clen - 1)) AND ($seq{$i} != $seq{($i+1)}))) {
    1478. 

  1478. 				if ($seq{$i} == '1') {
    1479. 

  1479. 					$t = true; // bar
    1480. 

  1480. 				} else {
    1481. 

  1481. 					$t = false; // space
    1482. 

  1482. 				}
    1483. 

  1483. 				$bararray['bcode'][$k] = array('t' => $t, 'w' => $w, 'h' => 1, 'p' => 0);
    1484. 

  1484. 				$bararray['maxw'] += $w;
    1485. 

  1485. 				++$k;
    1486. 

  1486. 				$w = 0;
    1487. 

  1487. 			}
    1488. 

  1488. 		}
    1489. 

  1489. 		return $bararray;
    1490. 

  1490. 	}
    1491. 

  1491. 

  1492. 	/**
    1493. 

  1493. 	 * UPC-Based Extentions
    1494. 

  1494. 	 * 2-Digit Ext.: Used to indicate magazines and newspaper issue numbers
    1495. 

  1495. 	 * 5-Digit Ext.: Used to mark suggested retail price of books
    1496. 

  1496. 	 * @param $code (string) code to represent.
    1497. 

  1497. 	 * @param $len (string) barcode type: 2 = 2-Digit, 5 = 5-Digit
    1498. 

  1498. 	 * @return array barcode representation.
    1499. 

  1499. 	 * @protected
    1500. 

  1500. 	 */
    1501. 

  1501. 	protected function barcode_eanext($code, $len=5) {
    1502. 

  1502. 		//Padding
    1503. 

  1503. 		$code = str_pad($code, $len, '0', STR_PAD_LEFT);
    1504. 

  1504. 		// calculate check digit
    1505. 

  1505. 		if ($len == 2) {
    1506. 

  1506. 			$r = $code % 4;
    1507. 

  1507. 		} elseif ($len == 5) {
    1508. 

  1508. 			$r = (3 * ($code{0} + $code{2} + $code{4})) + (9 * ($code{1} + $code{3}));
    1509. 

  1509. 			$r %= 10;
    1510. 

  1510. 		} else {
    1511. 

  1511. 			return false;
    1512. 

  1512. 		}
    1513. 

  1513. 		//Convert digits to bars
    1514. 

  1514. 		$codes = array(
    1515. 

  1515. 			'A'=>array( // left odd parity
    1516. 

  1516. 				'0'=>'0001101',
    1517. 

  1517. 				'1'=>'0011001',
    1518. 

  1518. 				'2'=>'0010011',
    1519. 

  1519. 				'3'=>'0111101',
    1520. 

  1520. 				'4'=>'0100011',
    1521. 

  1521. 				'5'=>'0110001',
    1522. 

  1522. 				'6'=>'0101111',
    1523. 

  1523. 				'7'=>'0111011',
    1524. 

  1524. 				'8'=>'0110111',
    1525. 

  1525. 				'9'=>'0001011'),
    1526. 

  1526. 			'B'=>array( // left even parity
    1527. 

  1527. 				'0'=>'0100111',
    1528. 

  1528. 				'1'=>'0110011',
    1529. 

  1529. 				'2'=>'0011011',
    1530. 

  1530. 				'3'=>'0100001',
    1531. 

  1531. 				'4'=>'0011101',
    1532. 

  1532. 				'5'=>'0111001',
    1533. 

  1533. 				'6'=>'0000101',
    1534. 

  1534. 				'7'=>'0010001',
    1535. 

  1535. 				'8'=>'0001001',
    1536. 

  1536. 				'9'=>'0010111')
    1537. 

  1537. 		);
    1538. 

  1538. 		$parities = array();
    1539. 

  1539. 		$parities[2] = array(
    1540. 

  1540. 			'0'=>array('A','A'),
    1541. 

  1541. 			'1'=>array('A','B'),
    1542. 

  1542. 			'2'=>array('B','A'),
    1543. 

  1543. 			'3'=>array('B','B')
    1544. 

  1544. 		);
    1545. 

  1545. 		$parities[5] = array(
    1546. 

  1546. 			'0'=>array('B','B','A','A','A'),
    1547. 

  1547. 			'1'=>array('B','A','B','A','A'),
    1548. 

  1548. 			'2'=>array('B','A','A','B','A'),
    1549. 

  1549. 			'3'=>array('B','A','A','A','B'),
    1550. 

  1550. 			'4'=>array('A','B','B','A','A'),
    1551. 

  1551. 			'5'=>array('A','A','B','B','A'),
    1552. 

  1552. 			'6'=>arr…
    1553.

Large files files are truncated, but you can click here to view the full file