Proyectos de Subversion Moodle

<?php

/**

 * IBM DB2 / Oracle compatibility driver.

 *

 * This driver re-maps ibm :0 bind variables to oracle compatible ? variables.

 *

 * @deprecated

 *

 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.

 *

 * @package ADOdb

 * @link https://adodb.org Project's web site and documentation

 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker

 *

 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause

 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,

 * any later version. This means you can use it in proprietary products.

 * See the LICENSE.md file distributed with this source code for details.

 * @license BSD-3-Clause

 * @license LGPL-2.1-or-later

 *

 * @copyright 2000-2013 John Lim

 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community

 */

// security - hide paths

if (!defined('ADODB_DIR')) die();

include_once(ADODB_DIR."/drivers/adodb-db2.inc.php");

if (!defined('ADODB_DB2OCI')){

define('ADODB_DB2OCI',1);

/**

 * Smart remapping of :0, :1 bind vars to ? ?

 * Handles colons in comments -- and / * * / and in quoted strings.

 * @param string $sql SQL statement

 * @param array  $arr parameters

 * @return array

 */

function _colonparser($sql,$arr)

{

	$lensql = strlen($sql);

	$arrsize = sizeof($arr);

	$state = 'NORM';

	$at = 1;

	$ch = $sql[0];

	$ch2 = @$sql[1];

	$sql2 = '';

	$arr2 = array();

	$nprev = 0;

	while (strlen($ch)) {

		switch($ch) {

		case '/':

			if ($state == 'NORM' && $ch2 == '*') {

				$state = 'COMMENT';

				$at += 1;

				$ch = $ch2;

				$ch2 = $at < $lensql ? $sql[$at] : '';

			}

			break;

		case '*':

			if ($state == 'COMMENT' && $ch2 == '/') {

				$state = 'NORM';

				$at += 1;

				$ch = $ch2;

				$ch2 = $at < $lensql ? $sql[$at] : '';

			}

			break;

		case "\n":

		case "\r":

			if ($state == 'COMMENT2') $state = 'NORM';

			break;

		case "'":

			do {

				$at += 1;

				$ch = $ch2;

				$ch2 = $at < $lensql ? $sql[$at] : '';

			} while ($ch !== "'");

			break;

		case ':':

			if ($state == 'COMMENT' || $state == 'COMMENT2') break;

			//echo "$at=$ch $ch2, ";

			if ('0' <= $ch2 && $ch2 <= '9') {

				$n = '';

				$nat = $at;

				do {

					$at += 1;

					$ch = $ch2;

					$n .= $ch;

					$ch2 = $at < $lensql ? $sql[$at] : '';

				} while ('0' <= $ch && $ch <= '9');

				#echo "$n $arrsize ] ";

				$n = (integer) $n;

				if ($n < $arrsize) {

					$sql2 .= substr($sql,$nprev,$nat-$nprev-1).'?';

					$nprev = $at-1;

					$arr2[] = $arr[$n];

				}

			}

			break;

		case '-':

			if ($state == 'NORM') {

				if ($ch2 == '-') $state = 'COMMENT2';

				$at += 1;

				$ch = $ch2;

				$ch2 = $at < $lensql ? $sql[$at] : '';

			}

			break;

		}

		$at += 1;

		$ch = $ch2;

		$ch2 = $at < $lensql ? $sql[$at] : '';

	}

	if ($nprev == 0) {

		$sql2 = $sql;

	} else {

		$sql2 .= substr($sql,$nprev);

	}

	return array($sql2,$arr2);

}

class ADODB_db2oci extends ADODB_db2 {

	var $databaseType = "db2oci";

	var $sysTimeStamp = 'sysdate';

	var $sysDate = 'trunc(sysdate)';

	var $_bindInputArray = true;

	function Param($name,$type='C')

	{

		return ':'.$name;

	}

	function MetaTables($ttype = false, $schema = false, $mask = false)

	{

	global $ADODB_FETCH_MODE;

		$savem = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		$qid = db2_tables($this->_connectionID);

		$rs = new ADORecordSet_db2($qid);

		$ADODB_FETCH_MODE = $savem;

		if (!$rs) {

			$false = false;

			return $false;

		}

		$arr = $rs->GetArray();

		$rs->Close();

		$arr2 = array();

	//	adodb_pr($arr);

		if ($ttype) {

			$isview = strncmp($ttype,'V',1) === 0;

		}

		for ($i=0; $i < sizeof($arr); $i++) {

			if (!$arr[$i][2]) continue;

			$type = $arr[$i][3];

			$schemaval = ($schema) ? $arr[$i][1].'.' : '';

			$name = $schemaval.$arr[$i][2];

			$owner = $arr[$i][1];

			if (substr($name,0,8) == 'EXPLAIN_') continue;

			if ($ttype) {

				if ($isview) {

					if (strncmp($type,'V',1) === 0) $arr2[] = $name;

				} else if (strncmp($type,'T',1) === 0 && strncmp($owner,'SYS',3) !== 0) $arr2[] = $name;

			} else if (strncmp($type,'T',1) === 0 && strncmp($owner,'SYS',3) !== 0) $arr2[] = $name;

		}

		return $arr2;

	}

	function _Execute($sql, $inputarr=false	)

	{

		if ($inputarr) list($sql,$inputarr) = _colonparser($sql, $inputarr);

		return parent::_Execute($sql, $inputarr);

	}

};

class  ADORecordSet_db2oci extends ADORecordSet_db2 {

	var $databaseType = "db2oci";

}

} //define