<?
/*
	AUTHOR: Walter Cattebeke
	DATE: 08-July-2004
	EMAIL: cachiweb@telesurf.com.py
	LICENSE: This code is free. You can use it and/or modify it.
		I only want to be mentioned and notified if you intend to do either.

	Please read the notes.txt !

	Keep this module free of echo's. Just delete or comment any line I've forgotten to do so.
*/

	define("BC_TYPE_CODE39", 1);
	define("BC_TYPE_INTER25", 2);
	define("BC_TYPE_STD25", 3);
	define("BC_TYPE_CODE93", 4);
	define("BC_TYPE_ROYMAIL4", 5);
	define("BC_TYPE_POSTNET", 6);

	define("BC_IMG_TYPE_PNG", 1);
	define("BC_IMG_TYPE_JPG", 2);
	define("BC_IMG_TYPE_GIF", 3);
	define("BC_IMG_TYPE_WBMP", 4);

	define("BC_ROTATE_0", 0);
	define("BC_ROTATE_90", 1);
	define("BC_ROTATE_180", 2);
	define("BC_ROTATE_270", 3);

	function getBarcodeText($i, $txt){
		switch ($i) {
			case BC_TYPE_CODE39:
			/*
				Code 39 needs starting and ending special control chars (ascii asterisk).
			*/
				return strtoupper("*" . $txt . "*"); // add starting and ending control chars to original text
				break;
			case BC_TYPE_INTER25:
			/*
				Interleaved 2 of 5 needs an even number of chars and starting - ending special control chars.
				Because of the "interleave" this control chars are made of the "asterisk asterisk" (**) and
				"plus minus" (+-) combinations.
			*/
				if (strlen($txt) % 2 == 0){ return "**" . $txt . "+-"; } // OK, even length
				else{ return "**" . "0" . $txt . "+-"; } // make it even by adding a starting 0
				break;
			case BC_TYPE_STD25:
			/*
				Standard 2 of 5 needs narrow spaces between bars. This is done by "interleaving" chars with
				special control char "dollar" ($).
				It also uses a special start (%!) stop (&!) combination.
			*/
				$txt1 = $txt . $txt;
				for ($j=0; $j<strlen($txt); $j++){
					$txt1[$j*2] = $txt[$j];
					$txt1[$j*2+1] = "$";
				}
				return "%!" . $txt1 . "&!";
				break;
			case BC_TYPE_CODE93:
			/*
				Code 93 needs starting and ending special control chars (ascii asterisk).
				Special @ sign is used to put safe final bar
			*/
				return strtoupper("*" . $txt . "*" . "@"); // add starting and ending control chars to original text
				break;
			case BC_TYPE_ROYMAIL4:
			/*
				Royal Mail needs starting and ending special control chars (ascii '(' and ')').
			*/
				return strtoupper("*" . $txt . "+"); // add starting and ending control chars to original text
				break;
			case BC_TYPE_POSTNET: 
			/*
				Postnet needs starting and ending special control chars (ascii asterisk).
			*/
				return strtoupper("*" . $txt . "*"); // add starting and ending control chars to original text
				break;
			default:
				return $txt;
				break;
		}
	}

	function checkCheckDigit($type, $ck){
		switch ($type) {
			case BC_TYPE_CODE93:
			case BC_TYPE_ROYMAIL4:
			case BC_TYPE_POSTNET:
				return TRUE; // mandatory check digit
				break;
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25:
			case BC_TYPE_CODE39:
				return $ck; // user selection
				break;
			default:
				return FALSE; // no check digit
				break;
		}
	}

	function checkCharGap($i, $ig){
		switch ($i) {
			case BC_TYPE_CODE39:
			case BC_TYPE_ROYMAIL4:
			case BC_TYPE_POSTNET:
				return $ig; // use gap
				break;
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25:
			case BC_TYPE_CODE93:
				return 0; // no gap
				break;
			default:
				return 1; // return 1 pixel width gap
				break;
		}
	}

	function checkWideToNarrow($i, $wtn){
		switch ($i) {
			case BC_TYPE_CODE39:
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25:
				return $wtn; // user selection
				break;
			case BC_TYPE_CODE93:
			case BC_TYPE_ROYMAIL4:
			case BC_TYPE_POSTNET:
				return 1; // no wide2narrow in this type
				break;
			default:
				return 2; // return wide to narrow factor of 2
				break;
		}
	}

	function getCharCount($i, $txt){
		switch ($i) {
			case BC_TYPE_CODE39:
			case BC_TYPE_CODE93:
			case BC_TYPE_ROYMAIL4:
			case BC_TYPE_POSTNET:
				return strlen($txt); // same as message length
				break;
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25:
				return strlen($txt) / 2; // half the message length (interleaved)
				break;
			default:
				return strlen($txt); // same as message length
				break;
		}
	}

	function getBarcodeLength($i, $txt, $xd, $wtn, $qz, $ig){
		switch ($i) {
			case BC_TYPE_CODE39:
				return strlen($txt) * ( 6 * $xd + 3 * $xd * $wtn) // message width
					+  (strlen($txt) - 1) * $ig // interchar gap width
					+ 2 * $qz; // quiet zone width
				break;
			case BC_TYPE_INTER25:
				return (strlen($txt) - 4) * ( 3 * $xd + 2 * $xd * $wtn) // message width
					+ 2 * $qz // quiet zone width
					+ ( 6 * $xd + 1 * $xd * $wtn); // control chars width
				break;
			case BC_TYPE_STD25:
				return (strlen($txt) - 4) / 2 * ( 3 * $xd + 2 * $xd * $wtn) // message width
					+ (strlen($txt) - 4) / 2 * ( 5 * $ig ) // interchar gap width
					+ 2 * $qz // quiet zone width
					+ ( 8 * $xd + 4 * $xd * $wtn); // control chars width
				break;
			case BC_TYPE_CODE93:
				return (strlen($txt) - 1) * 9 * $xd // message width
					+ 2 * $qz // quiet zone width
					+ 1 * $xd; // final bar width
				break;
			case BC_TYPE_ROYMAIL4:
				return (strlen($txt) - 2) * 7 * $xd + 2 * $xd // message width
					+ (strlen($txt) - 1) * $ig // interchar gap width
					+ 2 * $qz; // quiet zone width
				break;
			case BC_TYPE_POSTNET:
				return (strlen($txt) - 2) * 9 * $xd + 2 * $xd // message width
					+ (strlen($txt) - 1) * $ig // interchar gap width
					+ 2 * $qz; // quiet zone width
				break;
			default:
				return 0;
				break;
		}
	}

	function barcodeImgFunction($i){
		switch ($i) {
			case BC_IMG_TYPE_PNG: return "imagepng"; break;
			case BC_IMG_TYPE_JPG: return "imagejpeg"; break;
			case BC_IMG_TYPE_GIF: return "imagegif"; break;
			case BC_IMG_TYPE_WBMP: return "imagewbmp"; break;
			default: return "imagepng"; break;
		}
	}

	function barcodeFileExt($i){
		switch ($i) {
			case BC_IMG_TYPE_PNG: return "png"; break;
			case BC_IMG_TYPE_JPG: return "jpg"; break;
			case BC_IMG_TYPE_GIF: return "gif"; break;
			case BC_IMG_TYPE_WBMP: return "wbmp"; break;
			default: return "png"; break;
		}
	}


	function barcodeHeaderContent($i){
		switch ($i) {
			case BC_IMG_TYPE_PNG: return "image/png"; break;
			case BC_IMG_TYPE_JPG: return "image/jpeg"; break;
			case BC_IMG_TYPE_GIF: return "image/gif"; break;
			case BC_IMG_TYPE_WBMP: return "image/vnd.wap.wbmp"; break;
			default: return "image/png"; break;
		}
	}

	function code39spec($i) {
	/*
		Code 39 specification for symbols (index represented by ascii codes)
		n -> narrow bar
		w -> wide bar
	*/
		$arrSpec = array (
			 48 => "nnnwwnwnn", // 0
			 49 => "wnnwnnnnw", // 1
			 50 => "nnwwnnnnw", // 2
			 51 => "wnwwnnnnn", // 3
			 52 => "nnnwwnnnw", // 4
			 53 => "wnnwwnnnn", // 5
			 54 => "nnwwwnnnn", // 6
			 55 => "nnnwnnwnw", // 7
			 56 => "wnnwnnwnn", // 8
			 57 => "nnwwnnwnn", // 9
			 65 => "wnnnnwnnw", // A
			 66 => "nnwnnwnnw", // B
			 67 => "wnwnnwnnn", // C
			 68 => "nnnnwwnnw", // D
			 69 => "wnnnwwnnn", // E
			 70 => "nnwnwwnnn", // F
			 71 => "nnnnnwwnw", // G
			 72 => "wnnnnwwnn", // H
			 73 => "nnwnnwwnn", // I
			 74 => "nnnnwwwnn", // J
			 75 => "wnnnnnnww", // K
			 76 => "nnwnnnnww", // L
			 77 => "wnwnnnnwn", // M
			 78 => "nnnnwnnww", // N
			 79 => "wnnnwnnwn", // O
			 80 => "nnwnwnnwn", // P
			 81 => "nnnnnnwww", // Q
			 82 => "wnnnnnwwn", // R
			 83 => "nnwnnnwwn", // S
			 84 => "nnnnwnwwn", // T
			 85 => "wwnnnnnnw", // U
			 86 => "nwwnnnnnw", // V
			 87 => "wwwnnnnnn", // W
			 88 => "nwnnwnnnw", // X
			 89 => "wwnnwnnnn", // Y
			 90 => "nwwnwnnnn", // Z
			 45 => "nwnnnnwnw", // -
			 46 => "wwnnnnwnn", // .
			 32 => "nwwnnnwnn", // SPACE
			 36 => "nwnwnwnnn", // $
			 47 => "nwnwnnnwn", // /
			 43 => "nwnnnwnwn", // +
			 37 => "nnnwnwnwn", // %
			 42 => "nwnnwnwnn"  // *
		);
		return $arrSpec[$i];

	}

	function code93spec($i) {
	/*
		Code 93 specification for symbols (index represented by ascii codes)
		1 -> bar (black bar)
		0 -> space (white bar)
	*/
		$arrSpec = array (
			 48 => "100010100", // 0
			 49 => "101001000", // 1
			 50 => "101000100", // 2
			 51 => "101000010", // 3
			 52 => "100101000", // 4
			 53 => "100100100", // 5
			 54 => "100100010", // 6
			 55 => "101010000", // 7
			 56 => "100010010", // 8
			 57 => "100001010", // 9
			 65 => "110101000", // A
			 66 => "110100100", // B
			 67 => "110100010", // C
			 68 => "110010100", // D
			 69 => "110010010", // E
			 70 => "110001010", // F
			 71 => "101101000", // G
			 72 => "101100100", // H
			 73 => "101100010", // I
			 74 => "100110100", // J
			 75 => "100011010", // K
			 76 => "101011000", // L
			 77 => "101001100", // M
			 78 => "101000110", // N
			 79 => "100101100", // O
			 80 => "100010110", // P
			 81 => "110110100", // Q
			 82 => "110110010", // R
			 83 => "110101100", // S
			 84 => "110100110", // T
			 85 => "110010110", // U
			 86 => "110011010", // V
			 87 => "101101100", // W
			 88 => "101100110", // X
			 89 => "100110110", // Y
			 90 => "100111010", // Z
			 45 => "100101110", // -
			 46 => "111010100", // .
			 32 => "111010010", // SPACE
			 36 => "111001010", // $
			 47 => "101101110", // /
			 43 => "101110110", // +
			 37 => "110101110", // %
			 60 => "100100110", // < -> ($)
			 61 => "111011010", // = -> (%)
			 62 => "111010110", // > -> (/)
			 63 => "100110010", // ? -> (+)
			 42 => "101011110", // *
			 64 => "1        "  // @ special safe final bar !!!
		);
		return trim($arrSpec[$i]);

	}

	function code393char2value($i) {
	/*
		Code 93 specification for symbols (index represented by ascii codes)
		Used for check digit calculation.
	*/
		$arrSpec = array (
			 48 => "0", // 0
			 49 => "1", // 1
			 50 => "2", // 2
			 51 => "3", // 3
			 52 => "4", // 4
			 53 => "5", // 5
			 54 => "6", // 6
			 55 => "7", // 7
			 56 => "8", // 8
			 57 => "9", // 9
			 65 => "10", // A
			 66 => "11", // B
			 67 => "12", // C
			 68 => "13", // D
			 69 => "14", // E
			 70 => "15", // F
			 71 => "16", // G
			 72 => "17", // H
			 73 => "18", // I
			 74 => "19", // J
			 75 => "20", // K
			 76 => "21", // L
			 77 => "22", // M
			 78 => "23", // N
			 79 => "24", // O
			 80 => "25", // P
			 81 => "26", // Q
			 82 => "27", // R
			 83 => "28", // S
			 84 => "29", // T
			 85 => "30", // U
			 86 => "31", // V
			 87 => "32", // W
			 88 => "33", // X
			 89 => "34", // Y
			 90 => "35", // Z
			 45 => "36", // -
			 46 => "37", // .
			 32 => "38", // SPACE
			 36 => "39", // $
			 47 => "40", // /
			 43 => "41", // +
			 37 => "42", // %
			 60 => "43", // < -> ($)
			 61 => "44", // = -> (%)
			 62 => "45", // > -> (/)
			 63 => "46", // ? -> (+)
			 64 => "1        "  // @ special safe final bar !!!
		);
		return trim($arrSpec[$i]);

	}

	function code393value2char($i) {
	/*
		Code 93 specification for symbols (index represented by ascii codes)
		Used for check digit calculation.
	*/
		$arrSpec = array (
			 0 => "0", // 0
			 1 => "1", // 1
			 2 => "2", // 2
			 3 => "3", // 3
			 4 => "4", // 4
			 5 => "5", // 5
			 6 => "6", // 6
			 7 => "7", // 7
			 8 => "8", // 8
			 9 => "9", // 9
			 10 => "A", // A
			 11 => "B", // B
			 12 => "C", // C
			 13 => "D", // D
			 14 => "E", // E
			 15 => "F", // F
			 16 => "G", // G
			 17 => "H", // H
			 18 => "I", // I
			 19 => "J", // J
			 20 => "K", // K
			 21 => "L", // L
			 22 => "M", // M
			 23 => "N", // N
			 24 => "O", // O
			 25 => "P", // P
			 26 => "Q", // Q
			 27 => "R", // R
			 28 => "S", // S
			 29 => "T", // T
			 30 => "U", // U
			 31 => "V", // V
			 32 => "W", // W
			 33 => "X", // X
			 34 => "Y", // Y
			 35 => "Z", // Z
			 36 => "-", // -
			 37 => ".", // .
			 38 => " ", // SPACE
			 39 => "$", // $
			 40 => "/", // /
			 41 => "+", // +
			 42 => "%", // %
			 43 => "<", // < -> ($)
			 44 => "=", // = -> (%)
			 45 => ">", // > -> (/)
			 46 => "?", // ? -> (+)
		);
		return $arrSpec[$i];

	}

	function std25spec($i) {
	/*
		Standard 2 of 5 specification for symbols (index represented by ascii codes).
		Also used for Interleaved 2 of 5.
		Some special signs ($*+-%&!) are introduced to manage special control chars.
		n -> narrow bar
		w -> wide bar
	*/
		$arrSpec = array (
			 48 => "nnwwn", // 0
			 49 => "wnnnw", // 1
			 50 => "nwnnw", // 2
			 51 => "wwnnn", // 3
			 52 => "nnwnw", // 4
			 53 => "wnwnn", // 5
			 54 => "nwwnn", // 6
			 55 => "nnnww", // 7
			 56 => "wnnwn", // 8
			 57 => "nwnwn", // 9
			 36 => "nnnnn", // dollar sign ($) used for standard 2 of 5
			 37 => "wwn  ", // percent sign (%) used for control char
			 38 => "wnw  ", // ampersand sign (&) used for control char
			 33 => "nnn  ", //  sign (!) used for control char
			 42 => "nn   ", // asterisk sign (*) used for control char
			 43 => "wn   ", // plus sign (+) used for control char
			 45 => "n    "  // minus sign (-) used for control char
		);
		return $arrSpec[$i];

	}

	function postnetspec($i) {
	/*
		Royal Mail 4-State specification for symbols (index represented by ascii codes).
		Some special signs (*) are introduced to manage special control chars.
		f -> full bar
		u -> upper half bar
		l -> lower half bar
	*/
		$arrSpec = array (
			 48 => "fffflflfl", // 0
			 49 => "lflflffff", // 1
			 50 => "lflffflff", // 2
			 51 => "lflfffffl", // 3
			 52 => "lffflflff", // 4
			 53 => "lffflfffl", // 5
			 54 => "lffffflfl", // 6
			 55 => "fflflflff", // 7
			 56 => "fflflfffl", // 8
			 57 => "fflffflfl", // 9
			 42 => "f        ", // asterisk sign '*' used for start & stop bar
		);
		return $arrSpec[$i];

	}

	function roymail4spec($i) {
	/*
		Royal Mail 4-State specification for symbols (index represented by ascii codes).
		Some special signs, '*' & '+', are introduced to manage special control chars.
		f -> full bar
		t -> track only bar
		a -> track & ascender bar
		d -> track & descender bar
	*/
		$arrSpec = array (
			 48 => "tftffff", // 0
			 49 => "tfdfaff", // 1
			 50 => "tfdfffa", // 2
			 51 => "dftfaff", // 3
			 52 => "dftfffa", // 4
			 53 => "dfdfafa", // 5
			 54 => "tfafdff", // 6
			 55 => "tffftff", // 7
			 56 => "tfffdfa", // 8
			 57 => "dfaftff", // 9
			 65 => "dfafdfa", // A
			 66 => "dffftfa", // B
			 67 => "tfafffd", // C
			 68 => "tfffafd", // D
			 69 => "tffffft", // E
			 70 => "dfafafd", // F
			 71 => "dfaffft", // G
			 72 => "dfffaft", // H
			 73 => "aftfdff", // I
			 74 => "afdftff", // J
			 75 => "afdfdfa", // K
			 76 => "fftftff", // L
			 77 => "fftfdfa", // M
			 78 => "ffdftfa", // N
			 79 => "aftfffd", // O
			 80 => "afdfafd", // P
			 81 => "afdffft", // Q
			 82 => "fftfafd", // R
			 83 => "fftffft", // S
			 84 => "ffdfaft", // T
			 85 => "afafdfd", // U
			 86 => "affftfd", // V
			 87 => "afffdft", // W
			 88 => "ffaftfd", // X
			 89 => "ffafdft", // Y
			 90 => "fffftft", // Z
			 42 => "      a", // parenthesis sign '*' used for start char
			 43 => "f      " // parenthesis sign '+' used for stop char
		);
		return $arrSpec[$i];

	}

	function roymail4value2char($row, $col) {
	/*
		Royal Mail 4-State check digit calculation table.
	*/
		$arrSpec = array (
			 1 => "501234", // 0
			 2 => "B6789A", // 1
			 3 => "HCDEFG", // 2
			 4 => "NIJKLM", // 3
			 5 => "TOPQRS", // 4
			 0 => "ZUVWXY" // 5
		);
		return $arrSpec[$row][$col];

	}

	function interleaveChars($c1, $c2) {
		$tmp1 = std25spec($c1);
		$tmp2 = std25spec($c2);
		$tmp = $tmp1 . $tmp2;
		for ($i=0; $i<strlen($tmp1); $i++) {
			$tmp[$i*2] = $tmp1[$i];
			$tmp[($i*2)+1] = $tmp2[$i];
		}
		return trim($tmp);
	}

	function safeStr($i, $auxStr){ // check whether a string has only valid chars or not
		switch ($i) {
			case BC_TYPE_CODE39:
			case BC_TYPE_CODE93:
				$charList = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"; // asterisk (*) not included
				break;
			case BC_TYPE_INTER25:
			case BC_TYPE_STD25:
			case BC_TYPE_POSTNET:
				$charList = "0123456789";
				break;
			case BC_TYPE_ROYMAIL4:
				$charList = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
				break;
			default:
				return 0;
				break;
		}
		for($j=0; $j<strlen($auxStr); $j++){
			if (strpos($charList, $auxStr[$j]) === FALSE){
				return FALSE;
			}
		}
		return TRUE;
	}


	function getSpec($type, $txt, $i) {
		switch ($type) {
			case BC_TYPE_CODE39:
				return code39spec(ord($txt[$i]));
				break;
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25:
				return interleaveChars(ord($txt[$i*2]), ord($txt[$i*2+1]));
				break;
			case BC_TYPE_CODE93:
				return code93spec(ord($txt[$i]));
				break;
			case BC_TYPE_ROYMAIL4:
				return roymail4spec(ord($txt[$i]));
				break;
			case BC_TYPE_POSTNET:
				return postnetspec(ord($txt[$i]));
				break;
			default: // treat as code39
				return code39spec(ord($txt[$i]));
				break;
		}

	}

	function getCheckDigit($type, $txt) {
		$stLen = strlen($txt);
		switch ($type) {
			case BC_TYPE_CODE39: // modulo 43
				$ck = 0;
				for ($i=0; $i<$stLen; $i++){
					$ck = $ck + code393char2value(ord($txt[$i]));
				}
				return $txt . code393value2char($ck % 43);
				break;
			case BC_TYPE_CODE93: // C y K check digits. Modulo 47
				$ck = 0;
				for ($i=0; $i<$stLen; $i++){
					$ck = $ck + code393char2value(ord($txt[$stLen - $i -1])) * ($i % 20 + 1);
				}
				$txt1 = $txt . code393value2char($ck % 47);
				$stLen++;
				$ck = 0;
				for ($i=0; $i<$stLen; $i++){
					$ck = $ck + code393char2value(ord($txt1[$stLen - $i -1])) * ($i % 15 + 1);
				}
				return $txt1 . code393value2char($ck % 47);
				break;
			case BC_TYPE_STD25:
			case BC_TYPE_INTER25: // modulo 10
				$ck = 0;
				for ($i=0; $i<$stLen; $i++){
					$w = ($i%2==0)?3:1;
					$ck = $ck + $txt[$stLen -1 -$i] * $w;
				}
				$ex = (10 - ($ck % 10)) % 10;
				return $txt . $ex;
				break;
			case BC_TYPE_ROYMAIL4:
				$lh = 0;
				$uh = 0;
				for ($i=0; $i<$stLen; $i++){
					$chrSpec = strrev(getSpec($type, $txt, $i));
					$tlh = 0;
					$tuh = 0;
					for ($j=0; $j<4; $j++) {
						switch (ord($chrSpec[$j*2])) {
							case ord("f"):
								$um=1;
								$lm=1;
								break;
							case ord("t"):
								$um=0;
								$lm=0;
								break;
							case ord("a"):
								$um=1;
								$lm=0;
								break;
							case ord("d"):
								$um=0;
								$lm=1;
								break;
							default:
								$um=0;
								$lm=0;
								break;
						}
						if ($j > 0)
							$bw = pow(2, $j-1);
						else
							$bw = 0;
						$tlh = $tlh + $bw * $lm;
						$tuh = $tuh + $bw * $um;
					}
					if ($tlh == 6)
						$tlh = 0;
					if ($tuh == 6)
						$tuh = 0;
					$uh = $uh + $tuh;
					$lh = $lh + $tlh;
				}				
				return $txt . roymail4value2char($uh % 6, $lh % 6);
				break;
			case BC_TYPE_POSTNET:
				$ck = 0;
				for ($i=0; $i<$stLen; $i++){
					$ck = $ck + $txt[$i];
				}
				$ex = (10 - ($ck % 10)) % 10;
				return $txt . $ex;
				break;
			default:
				return $txt;
				break;
		}
	}

?>
