module QRstr {
	// function set(&$srctab, $x, $y, $repl, $replLen = false) {
	//     $srctab[$y] = substr_replace($srctab[$y], ($replLen != false)?substr($repl,0,$replLen):$repl, $x, ($replLen != false)?$replLen:strlen($repl));
	// }
	function set($srctab, $x, $y, $repl, $replLen = false) {
		var tmpRepl = $repl;
		var tmpReplLen = $repl.size();
		if($replLen != false) {
			// tmpRepl = php::substr($repl,0,$replLen);
			tmpRepl = php::array_slice($repl,0,$replLen);
			tmpReplLen = $replLen;
		}
	
		$srctab[$y] = substr_replace_($srctab[$y], tmpRepl , $x, tmpReplLen);
	}
	function substr_replace_(srctabArr, replArr, x , len){
		var tmpLen = 0;
		var returnSrctabArr = [];
		if(srctabArr && srctabArr.size()){
			var tmpReplArrLen = replArr.size();
			var tmpSrctabArrLen = srctabArr.size();

			for(var i= 0;i<srctabArr.size();i+=0){
				if(i >= x && i < x+len){
					var k = 0;
					for(var j = i; j < x+len; j++){
						if(k < tmpReplArrLen){
							returnSrctabArr.add(replArr[k]);
						}
						
						i++;
						k++;
					}
				}else{
					returnSrctabArr.add(srctabArr[i]);
					i++;
				}
			}
		}
		return returnSrctabArr;
	}
}