Proyectos de Subversion Moodle

<?php
/**
 * Data Dictionary for MySQL.
 *
 * 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();

class ADODB2_mysql extends ADODB_DataDict {
        var $databaseType = 'mysql';
        var $alterCol = ' MODIFY COLUMN';
        var $alterTableAddIndex = true;
        var $dropTable = 'DROP TABLE IF EXISTS %s'; // requires mysql 3.22 or later

        var $dropIndex = 'DROP INDEX %s ON %s';
        var $renameColumn = 'ALTER TABLE %s CHANGE COLUMN %s %s %s';    // needs column-definition!

        public $blobAllowsNotNull = true;
        
        function metaType($t,$len=-1,$fieldobj=false)
        {
                
                if (is_object($t)) {
                        $fieldobj = $t;
                        $t = $fieldobj->type;
                        $len = $fieldobj->max_length;
                }
                $is_serial = is_object($fieldobj) && $fieldobj->primary_key && $fieldobj->auto_increment;

                $len = -1; // mysql max_length is not accurate
                        
                $t = strtoupper($t);
                
                if (array_key_exists($t,$this->connection->customActualTypes))
                        return  $this->connection->customActualTypes[$t];
                
                switch ($t) {
                        
                case 'STRING':
                case 'CHAR':
                case 'VARCHAR':
                case 'TINYBLOB':
                case 'TINYTEXT':
                case 'ENUM':
                case 'SET':
                        if ($len <= $this->blobSize) return 'C';

                case 'TEXT':
                case 'LONGTEXT':
                case 'MEDIUMTEXT':
                        return 'X';

                // php_mysql extension always returns 'blob' even if 'text'
                // so we have to check whether binary...
                case 'IMAGE':
                case 'LONGBLOB':
                case 'BLOB':
                case 'MEDIUMBLOB':
                        return !empty($fieldobj->binary) ? 'B' : 'X';

                case 'YEAR':
                case 'DATE': return 'D';

                case 'TIME':
                case 'DATETIME':
                case 'TIMESTAMP': return 'T';

                case 'FLOAT':
                case 'DOUBLE':
                        return 'F';

                case 'INT':
                case 'INTEGER': return $is_serial ? 'R' : 'I';
                case 'TINYINT': return $is_serial ? 'R' : 'I1';
                case 'SMALLINT': return $is_serial ? 'R' : 'I2';
                case 'MEDIUMINT': return $is_serial ? 'R' : 'I4';
                case 'BIGINT':  return $is_serial ? 'R' : 'I8';
                default: 
                        
                        return ADODB_DEFAULT_METATYPE;
                }
        }

        function ActualType($meta)
        {
                
                $meta = strtoupper($meta);
                
                /*
                * Add support for custom meta types. We do this
                * first, that allows us to override existing types
                */
                if (isset($this->connection->customMetaTypes[$meta]))
                        return $this->connection->customMetaTypes[$meta]['actual'];
                                
                switch($meta) 
                {
                
                case 'C': return 'VARCHAR';
                case 'XL':return 'LONGTEXT';
                case 'X': return 'TEXT';

                case 'C2': return 'VARCHAR';
                case 'X2': return 'LONGTEXT';

                case 'B': return 'LONGBLOB';

                case 'D': return 'DATE';
                case 'TS':
                case 'T': return 'DATETIME';
                case 'L': return 'TINYINT';

                case 'R':
                case 'I4':
                case 'I': return 'INTEGER';
                case 'I1': return 'TINYINT';
                case 'I2': return 'SMALLINT';
                case 'I8': return 'BIGINT';

                case 'F': return 'DOUBLE';
                case 'N': return 'NUMERIC';
                        
                default:
                        
                        return $meta;
                }
        }

        // return string must begin with space
        function _CreateSuffix($fname,&$ftype,$fnotnull,$fdefault,$fautoinc,$fconstraint,$funsigned)
        {
                $suffix = '';
                if ($funsigned) $suffix .= ' UNSIGNED';
                if ($fnotnull) $suffix .= ' NOT NULL';
                if (strlen($fdefault)) $suffix .= " DEFAULT $fdefault";
                if ($fautoinc) $suffix .= ' AUTO_INCREMENT';
                if ($fconstraint) $suffix .= ' '.$fconstraint;
                return $suffix;
        }

        /*
        CREATE [TEMPORARY] TABLE [IF NOT EXISTS] tbl_name [(create_definition,...)]
                [table_options] [select_statement]
                create_definition:
                col_name type [NOT NULL | NULL] [DEFAULT default_value] [AUTO_INCREMENT]
                [PRIMARY KEY] [reference_definition]
                or PRIMARY KEY (index_col_name,...)
                or KEY [index_name] (index_col_name,...)
                or INDEX [index_name] (index_col_name,...)
                or UNIQUE [INDEX] [index_name] (index_col_name,...)
                or FULLTEXT [INDEX] [index_name] (index_col_name,...)
                or [CONSTRAINT symbol] FOREIGN KEY [index_name] (index_col_name,...)
                [reference_definition]
                or CHECK (expr)
        */

        /*
        CREATE [UNIQUE|FULLTEXT] INDEX index_name
                ON tbl_name (col_name[(length)],... )
        */

        function _IndexSQL($idxname, $tabname, $flds, $idxoptions)
        {
                $sql = array();

                if ( isset($idxoptions['REPLACE']) || isset($idxoptions['DROP']) ) {
                        if ($this->alterTableAddIndex) $sql[] = "ALTER TABLE $tabname DROP INDEX $idxname";
                        else $sql[] = sprintf($this->dropIndex, $idxname, $tabname);

                        if ( isset($idxoptions['DROP']) )
                                return $sql;
                }

                if ( empty ($flds) ) {
                        return $sql;
                }

                if (isset($idxoptions['FULLTEXT'])) {
                        $unique = ' FULLTEXT';
                } elseif (isset($idxoptions['UNIQUE'])) {
                        $unique = ' UNIQUE';
                } else {
                        $unique = '';
                }

                if ( is_array($flds) ) $flds = implode(', ',$flds);

                if ($this->alterTableAddIndex) $s = "ALTER TABLE $tabname ADD $unique INDEX $idxname ";
                else $s = 'CREATE' . $unique . ' INDEX ' . $idxname . ' ON ' . $tabname;

                $s .= ' (' . $flds . ')';

                if ( isset($idxoptions[$this->upperName]) )
                        $s .= $idxoptions[$this->upperName];

                $sql[] = $s;

                return $sql;
        }
}