Proyectos de Subversion Moodle

<?php
/**
 * Data Dictionary for Firebird.
 *
 * 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_firebird extends ADODB_DataDict
{
        var $databaseType = 'firebird';
        var $seqField = false;
        var $seqPrefix = 's_';
        var $blobSize = 40000;
        var $renameColumn = 'ALTER TABLE %s ALTER %s TO %s';
        var $alterCol = ' ALTER';
        var $dropCol = ' DROP';

        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 'BLOB SUB_TYPE BINARY';
                        case 'X':
                                return 'BLOB SUB_TYPE TEXT';

                        case 'C2':
                                return 'VARCHAR(32765)'; // up to 32K
                        case 'X2':
                                return 'VARCHAR(4096)';

                        case 'V':
                                return 'CHAR';
                        case 'C1':
                                return 'CHAR(1)';

                        case 'B':
                                return 'BLOB';

                        case 'D':
                                return 'DATE';
                        case 'TS':
                        case 'T':
                                return 'TIMESTAMP';

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

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

        function nameQuote($name = null, $allowBrackets = false)
        {
                if (!is_string($name)) {
                        return false;
                }

                $name = trim($name);

                if (!is_object($this->connection)) {
                        return $name;
                }

                $quote = $this->connection->nameQuote;

                // if name is of the form `name`, quote it
                if (preg_match('/^`(.+)`$/', $name, $matches)) {
                        return $quote . $matches[1] . $quote;
                }

                // if name contains special characters, quote it
                if (!preg_match('/^[' . $this->nameRegex . ']+$/', $name)) {
                        return $quote . $name . $quote;
                }

                return $quote . $name . $quote;
        }

        function createDatabase($dbname, $options = false)
        {
                $sql = array();

                $sql[] = "DECLARE EXTERNAL FUNCTION LOWER CSTRING(80) RETURNS CSTRING(80) FREE_IT ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf'";

                return $sql;
        }

        function _dropAutoIncrement($tabname)
        {
                if (strpos($tabname, '.') !== false) {
                        $tarr = explode('.', $tabname);
                        return 'DROP SEQUENCE ' . $tarr[0] . '."s_' . $tarr[1] . '"';
                }
                return 'DROP SEQUENCE s_' . $tabname;
        }


        function _createSuffix($fname, &$ftype, $fnotnull, $fdefault, $fautoinc, $fconstraint, $funsigned)
        {
                $suffix = '';

                if (strlen($fdefault)) {
                        $suffix .= " DEFAULT $fdefault";
                }
                if ($fnotnull) {
                        $suffix .= ' NOT NULL';
                }
                if ($fautoinc) {
                        $this->seqField = $fname;
                }
                $fconstraint = preg_replace("/``/", "\"", $fconstraint);
                if ($fconstraint) {
                        $suffix .= ' ' . $fconstraint;
                }

                return $suffix;
        }

        /**
         * Generate the SQL to create table. Returns an array of sql strings.
         */
        function createTableSQL($tabname, $flds, $tableoptions = array())
        {
                list($lines, $pkey, $idxs) = $this->_GenFields($flds, true);
                // genfields can return FALSE at times
                if ($lines == null) {
                        $lines = array();
                }

                $taboptions = $this->_Options($tableoptions);
                $tabname = $this->TableName($tabname);
                $sql = $this->_TableSQL($tabname, $lines, $pkey, $taboptions);

                if ($this->autoIncrement && !isset($taboptions['DROP'])) {
                        $tsql = $this->_Triggers($tabname, $taboptions);
                        foreach ($tsql as $s) {
                                $sql[] = $s;
                        }
                }

                if (is_array($idxs)) {
                        foreach ($idxs as $idx => $idxdef) {
                                $sql_idxs = $this->CreateIndexSql($idx, $tabname, $idxdef['cols'], $idxdef['opts']);
                                $sql = array_merge($sql, $sql_idxs);
                        }
                }

                return $sql;
        }


        /*
        CREATE or replace TRIGGER jaddress_insert
        before insert on jaddress
        for each row
        begin
        IF ( NEW."seqField" IS NULL OR NEW."seqField" = 0 ) THEN
          NEW."seqField" = GEN_ID("GEN_tabname", 1);
        end;
        */
        function _triggers($tabname, $taboptions)
        {
                if (!$this->seqField) {
                        return array();
                }

                $tab1 = preg_replace('/"/', '', $tabname);
                if ($this->schema) {
                        $t = strpos($tab1, '.');
                        if ($t !== false) {
                                $tab = substr($tab1, $t + 1);
                        } else {
                                $tab = $tab1;
                        }
                        $seqField = $this->seqField;
                        $seqname = $this->schema . '.' . $this->seqPrefix . $tab;
                        $trigname = $this->schema . '.t_' . $this->seqPrefix . $tab;
                } else {
                        $seqField = $this->seqField;
                        $seqname = $this->seqPrefix . $tab1;
                        $trigname = 't_' . $seqname;
                }

                if (isset($taboptions['DROP'])) {
                        $sql[] = "DROP SEQUENCE $seqname";
                } elseif (isset($taboptions['REPLACE'])) {
                        $sql[] = "DROP SEQUENCE \"$seqname\"";
                        $sql[] = "CREATE SEQUENCE \"$seqname\"";
                        $sql[] = "ALTER TRIGGER \"$trigname\" BEFORE INSERT OR UPDATE AS BEGIN IF ( NEW.$seqField IS NULL OR NEW.$seqField = 0 ) THEN NEW.$seqField = GEN_ID(\"$seqname\", 1); END";
                } else {
                        $sql[] = "CREATE SEQUENCE $seqname";
                        $sql[] = "CREATE TRIGGER $trigname FOR $tabname BEFORE INSERT OR UPDATE AS BEGIN IF ( NEW.$seqField IS NULL OR NEW.$seqField = 0 ) THEN NEW.$seqField = GEN_ID($seqname, 1); END";
                }

                $this->seqField = false;
                return $sql;
        }

        /**
         * Change the definition of one column
         *
         * @param string $tabname table-name
         * @param string $flds column-name and type for the changed column
         * @param string $tableflds Unused
         * @param array|string $tableoptions Unused
         *
         * @return array with SQL strings
         */
        public function alterColumnSQL($tabname, $flds, $tableflds = '', $tableoptions = '')
        {
                $tabname = $this->TableName($tabname);
                $sql = array();
                list($lines, , $idxs) = $this->_GenFields($flds);
                // genfields can return FALSE at times

                if ($lines == null) {
                        $lines = array();
                }

                $alter = 'ALTER TABLE ' . $tabname . $this->alterCol . ' ';

                foreach ($lines as $v) {
                        /*
                        * The type must be preceded by the keyword 'TYPE'
                        */
                        $vExplode = explode(' ', $v);
                        $vExplode = array_filter($vExplode);
                        array_splice($vExplode, 1, 0, array('TYPE'));
                        $v = implode(' ', $vExplode);
                        $sql[] = $alter . $v;
                }

                if (is_array($idxs)) {
                        foreach ($idxs as $idx => $idxdef) {
                                $sql_idxs = $this->CreateIndexSql($idx, $tabname, $idxdef['cols'], $idxdef['opts']);
                                $sql = array_merge($sql, $sql_idxs);
                        }

                }
                return $sql;
        }

}