Proyectos de Subversion Moodle

<?php
/**
 * PDO SQLite driver
 *
 * 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
 * @author Diogo Toscano <diogo@scriptcase.net>
 * @author Sid Dunayer <sdunayer@interserv.com>
 */

class ADODB_pdo_sqlite extends ADODB_pdo {
        var $metaTablesSQL   = "SELECT name FROM sqlite_master WHERE type='table'";
        var $sysDate         = 'current_date';
        var $sysTimeStamp    = 'current_timestamp';
        var $nameQuote       = '`';
        var $replaceQuote    = "''";
        var $hasGenID        = true;
        var $_genIDSQL       = "UPDATE %s SET id=id+1 WHERE id=%s";
        var $_genSeqSQL      = "CREATE TABLE %s (id integer)";
        var $_genSeqCountSQL = 'SELECT COUNT(*) FROM %s';
        var $_genSeq2SQL     = 'INSERT INTO %s VALUES(%s)';
        var $_dropSeqSQL     = 'DROP TABLE %s';
        var $concat_operator = '||';
        var $pdoDriver       = false;
        var $random='abs(random())';

        function _init($parentDriver)
        {
                $this->pdoDriver = $parentDriver;
                $parentDriver->_bindInputArray = true;
                $parentDriver->hasTransactions = false; // // should be set to false because of PDO SQLite driver not supporting changing autocommit mode
                $parentDriver->hasInsertID = true;
        }

        function ServerInfo()
        {
                $parent = $this->pdoDriver;
                @($ver = array_pop($parent->GetCol("SELECT sqlite_version()")));
                @($enc = array_pop($parent->GetCol("PRAGMA encoding")));

                $arr['version']     = $ver;
                $arr['description'] = 'SQLite ';
                $arr['encoding']    = $enc;

                return $arr;
        }

        function SelectLimit($sql,$nrows=-1,$offset=-1,$inputarr=false,$secs2cache=0)
        {
                $nrows = (int) $nrows;
                $offset = (int) $offset;
                $parent = $this->pdoDriver;
                $offsetStr = ($offset >= 0) ? " OFFSET $offset" : '';
                $limitStr  = ($nrows >= 0)  ? " LIMIT $nrows" : ($offset >= 0 ? ' LIMIT 999999999' : '');
                if ($secs2cache)
                        $rs = $parent->CacheExecute($secs2cache,$sql."$limitStr$offsetStr",$inputarr);
                else
                        $rs = $parent->Execute($sql."$limitStr$offsetStr",$inputarr);

                return $rs;
        }

        function GenID($seq='adodbseq',$start=1)
        {
                $parent = $this->pdoDriver;
                // if you have to modify the parameter below, your database is overloaded,
                // or you need to implement generation of id's yourself!
                $MAXLOOPS = 100;
                while (--$MAXLOOPS>=0) {
                        @($num = array_pop($parent->GetCol("SELECT id FROM {$seq}")));
                        if ($num === false || !is_numeric($num)) {
                                @$parent->Execute(sprintf($this->_genSeqSQL ,$seq));
                                $start -= 1;
                                $num = '0';
                                $cnt = $parent->GetOne(sprintf($this->_genSeqCountSQL,$seq));
                                if (!$cnt) {
                                        $ok = $parent->Execute(sprintf($this->_genSeq2SQL,$seq,$start));
                                }
                                if (!$ok) return false;
                        }
                        $parent->Execute(sprintf($this->_genIDSQL,$seq,$num));

                        if ($parent->affected_rows() > 0) {
                                $num += 1;
                                $parent->genID = intval($num);
                                return intval($num);
                        }
                }
                if ($fn = $parent->raiseErrorFn) {
                        $fn($parent->databaseType,'GENID',-32000,"Unable to generate unique id after $MAXLOOPS attempts",$seq,$num);
                }
                return false;
        }

        function CreateSequence($seqname='adodbseq',$start=1)
        {
                $parent = $this->pdoDriver;
                $ok = $parent->Execute(sprintf($this->_genSeqSQL,$seqname));
                if (!$ok) return false;
                $start -= 1;
                return $parent->Execute("insert into $seqname values($start)");
        }

        function SetTransactionMode($transaction_mode)
        {
                $parent = $this->pdoDriver;
                $parent->_transmode = strtoupper($transaction_mode);
        }

        function BeginTrans()
        {
                $parent = $this->pdoDriver;
                if ($parent->transOff) return true;
                $parent->transCnt += 1;
                $parent->_autocommit = false;
                return $parent->Execute("BEGIN {$parent->_transmode}");
        }

        function CommitTrans($ok=true)
        {
                $parent = $this->pdoDriver;
                if ($parent->transOff) return true;
                if (!$ok) return $parent->RollbackTrans();
                if ($parent->transCnt) $parent->transCnt -= 1;
                $parent->_autocommit = true;

                $ret = $parent->Execute('COMMIT');
                return $ret;
        }

        function RollbackTrans()
        {
                $parent = $this->pdoDriver;
                if ($parent->transOff) return true;
                if ($parent->transCnt) $parent->transCnt -= 1;
                $parent->_autocommit = true;

                $ret = $parent->Execute('ROLLBACK');
                return $ret;
        }


    // mark newnham
        function MetaColumns($tab,$normalize=true)
        {
                global $ADODB_FETCH_MODE;

                $parent = $this->pdoDriver;
                $false = false;
                $save = $ADODB_FETCH_MODE;
                $ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
                if ($parent->fetchMode !== false) {
                        $savem = $parent->SetFetchMode(false);
                }
                $rs = $parent->Execute("PRAGMA table_info('$tab')");
                if (isset($savem)) {
                        $parent->SetFetchMode($savem);
                }
                if (!$rs) {
                        $ADODB_FETCH_MODE = $save;
                        return $false;
                }
                $arr = array();
                while ($r = $rs->FetchRow()) {
                        $type = explode('(', $r['type']);
                        $size = '';
                        if (sizeof($type) == 2) {
                                $size = trim($type[1], ')');
                        }
                        $fn = strtoupper($r['name']);
                        $fld = new ADOFieldObject;
                        $fld->name = $r['name'];
                        $fld->type = $type[0];
                        $fld->max_length = $size;
                        $fld->not_null = $r['notnull'];
                        $fld->primary_key = $r['pk'];
                        $fld->default_value = $r['dflt_value'];
                        $fld->scale = 0;
                        if ($save == ADODB_FETCH_NUM) {
                                $arr[] = $fld;
                        } else {
                                $arr[strtoupper($fld->name)] = $fld;
                        }
                }
                $rs->Close();
                $ADODB_FETCH_MODE = $save;
                return $arr;
        }

        function MetaTables($ttype=false,$showSchema=false,$mask=false)
        {
                $parent = $this->pdoDriver;

                if ($mask) {
                        $save = $this->metaTablesSQL;
                        $mask = $this->qstr(strtoupper($mask));
                        $this->metaTablesSQL .= " AND name LIKE $mask";
                }

                $ret = $parent->GetCol($this->metaTablesSQL);

                if ($mask) {
                        $this->metaTablesSQL = $save;
                }
                return $ret;
        }

        /**
         * Returns a driver-specific format for a bind parameter
         *
         * @param string $name
         * @param string $type (ignored in driver)
         *
         * @return string
         */
        public function param($name,$type='C')
        {
                return sprintf(':%s', $name);
        }
}