- Add support for MDB2's 'sqlsrv' driver (#1486395)

alecpl

2010-01-26 2273d4117fd50ee44dcdaa28fd6444383dc403a0

- Add support for MDB2's 'sqlsrv' driver (#1486395)

 CHANGELOG

@@ -1,6 +1,7 @@
CHANGELOG RoundCube Webmail
===========================

- Add support for MDB2's 'sqlsrv' driver (#1486395)
- Use jQuery-1.4
- Removed problematic browser-caching of messages
- Fix incompatybility with suhosin.executor.disable_emodifier (#1486321)

 config/db.inc.php.dist

@@ -17,7 +17,7 @@
// PEAR database DSN for read/write operations
// format is db_provider://user:password@host/database 
// For examples see http://pear.php.net/manual/en/package.database.mdb2.intro-dsn.php
// currently supported db_providers: mysql, mysqli, pgsql, sqlite, mssql
// currently supported db_providers: mysql, mysqli, pgsql, sqlite, mssql or sqlsrv

$rcmail_config['db_dsnw'] = 'mysql://roundcube:pass@localhost/roundcubemail';
// postgres example: 'pgsql://roundcube:pass@localhost/roundcubemail';

 program/include/rcmail.php

@@ -1051,6 +1051,7 @@
      return;

    $cookie = session_get_cookie_params();

    setcookie($name, $value, $exp, $cookie['path'], $cookie['domain'],
      rcube_https_check(), true);
  }

 program/include/rcube_mdb2.php

@@ -106,7 +106,7 @@
      if (!filesize($dsn_array['database']) && !empty($this->sqlite_initials))
        $this->_sqlite_create_database($dbh, $this->sqlite_initials);
      }
    else if ($this->db_provider!='mssql')
    else if ($this->db_provider!='mssql' && $this->db_provider!='sqlsrv')
      $dbh->setCharset('utf8');

    return $dbh;
@@ -467,6 +467,7 @@
    switch($this->db_provider)
      {
      case 'mssql':
      case 'sqlsrv':
        return "getdate()";

      default:
@@ -511,6 +512,7 @@
        break;

      case 'mssql':
      case 'sqlsrv':
    return "DATEDIFF(second, '19700101', $field) + DATEDIFF(second, GETDATE(), GETUTCDATE())";

      default:

 program/lib/MDB2.php

@@ -43,7 +43,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: MDB2.php,v 1.318 2008/03/08 14:18:38 quipo Exp $
// $Id: MDB2.php 292663 2009-12-26 18:21:46Z quipo $
//

/**
@@ -101,6 +101,7 @@
define('MDB2_ERROR_LOADMODULE',         -34);
define('MDB2_ERROR_INSUFFICIENT_DATA',  -35);
define('MDB2_ERROR_NO_PERMISSION',      -36);
define('MDB2_ERROR_DISCONNECT_FAILED',  -37);

// }}}
// {{{ Verbose constants
@@ -342,6 +343,11 @@
                $err =& MDB2::raiseError(MDB2_ERROR_NOT_FOUND, null, null, $msg);
                return $err;
            }
            if (!MDB2::classExists($class_name)) {
                $msg = "unable to load class '$class_name' from file '$file_name'";
                $err =& MDB2::raiseError(MDB2_ERROR_NOT_FOUND, null, null, $msg);
                return $err;
            }
        }
        return MDB2_OK;
    }
@@ -403,7 +409,7 @@
    // {{{ function &connect($dsn, $options = false)

    /**
     * Create a new MDB2 connection object and connect to the specified
     * Create a new MDB2_Driver_* connection object and connect to the specified
     * database
     *
     * IMPORTANT: In order for MDB2 to work properly it is necessary that
@@ -417,15 +423,15 @@
     *     $db = MDB2::connect($dsn);
     *          ^^
     *
     * @param   mixed   'data source name', see the MDB2::parseDSN
     *                            method for a description of the dsn format.
     *                            Can also be specified as an array of the
     *                            format returned by MDB2::parseDSN.
     * @param   array   An associative array of option names and
     *                            their values.
     * @param mixed $dsn     'data source name', see the MDB2::parseDSN
     *                       method for a description of the dsn format.
     *                       Can also be specified as an array of the
     *                       format returned by MDB2::parseDSN.
     * @param array $options An associative array of option names and
     *                       their values.
     *
     * @return  mixed   a newly created MDB2 connection object, or a MDB2
     *                  error object on error
     * @return mixed a newly created MDB2 connection object, or a MDB2
     *               error object on error
     *
     * @access  public
     * @see     MDB2::parseDSN
@@ -566,7 +572,7 @@
     */
    function apiVersion()
    {
        return '2.5.0b1';
        return '@package_version@';
    }

    // }}}
@@ -627,7 +633,7 @@
    function isError($data, $code = null)
    {
        if (is_a($data, 'MDB2_Error')) {
            if (is_null($code)) {
            if (null === $code) {
                return true;
            } elseif (is_string($code)) {
                return $data->getMessage() === $code;
@@ -767,10 +773,11 @@
                MDB2_ERROR_TRUNCATED          => 'truncated',
                MDB2_ERROR_DEADLOCK           => 'deadlock detected',
                MDB2_ERROR_NO_PERMISSION      => 'no permission',
                MDB2_ERROR_DISCONNECT_FAILED  => 'disconnect failed',
            );
        }

        if (is_null($value)) {
        if (null === $value) {
            return $errorMessages;
        }

@@ -824,7 +831,7 @@
     */
    function parseDSN($dsn)
    {
        $parsed = array();
        $parsed = $GLOBALS['_MDB2_dsninfo_default'];

        if (is_array($dsn)) {
            $dsn = array_merge($parsed, $dsn);
@@ -843,7 +850,6 @@
            $dsn = null;
        }

  
        // Get phptype and dbsyntax
        // $str => phptype(dbsyntax)
        if (preg_match('|^(.+?)\((.*?)\)$|', $str, $arr)) {
@@ -855,7 +861,7 @@
        }

        if (!count($dsn)) {
            return array_merge($GLOBALS['_MDB2_dsninfo_default'], $parsed);
            return $parsed;
        }

        // Get (if found): username and password
@@ -892,7 +898,9 @@
                //"username/password@[//]host[:port][/service_name]"
                //e.g. "scott/tiger@//mymachine:1521/oracle"
                $proto_opts = $dsn;
                $dsn = substr($proto_opts, strrpos($proto_opts, '/') + 1);
                $pos = strrpos($proto_opts, '/');
                $dsn = substr($proto_opts, $pos + 1);
                $proto_opts = substr($proto_opts, 0, $pos);
            } elseif (strpos($dsn, '/') !== false) {
                list($proto_opts, $dsn) = explode('/', $dsn, 2);
            } else {
@@ -930,7 +938,7 @@
                }
                foreach ($opts as $opt) {
                    list($key, $value) = explode('=', $opt);
                    if (!isset($parsed[$key])) {
                    if (!array_key_exists($key, $parsed) || false === $parsed[$key]) {
                        // don't allow params overwrite
                        $parsed[$key] = rawurldecode($value);
                    }
@@ -938,7 +946,7 @@
            }
        }

    return array_merge($GLOBALS['_MDB2_dsninfo_default'], $parsed);
        return $parsed;
    }

    // }}}
@@ -1001,7 +1009,7 @@
    function MDB2_Error($code = MDB2_ERROR, $mode = PEAR_ERROR_RETURN,
              $level = E_USER_NOTICE, $debuginfo = null, $dummy = null)
    {
        if (is_null($code)) {
        if (null === $code) {
            $code = MDB2_ERROR;
        }
        $this->PEAR_Error('MDB2 Error: '.MDB2::errorMessage($code), $code,
@@ -1146,8 +1154,11 @@
     *  <li>$options['emulate_prepared'] -> boolean: force prepared statements to be emulated</li>
     *  <li>$options['datatype_map'] -> array: map user defined datatypes to other primitive datatypes</li>
     *  <li>$options['datatype_map_callback'] -> array: callback function/method that should be called</li>
     *  <li>$options['bindname_format'] -> string: regular expression pattern for named parameters
     *  <li>$options['bindname_format'] -> string: regular expression pattern for named parameters</li>
     *  <li>$options['multi_query'] -> boolean: determines if queries returning multiple result sets should be executed</li>
     *  <li>$options['max_identifiers_length'] -> integer: max identifier length</li>
     *  <li>$options['default_fk_action_onupdate'] -> string: default FOREIGN KEY ON UPDATE action ['RESTRICT'|'NO ACTION'|'SET DEFAULT'|'SET NULL'|'CASCADE']</li>
     *  <li>$options['default_fk_action_ondelete'] -> string: default FOREIGN KEY ON DELETE action ['RESTRICT'|'NO ACTION'|'SET DEFAULT'|'SET NULL'|'CASCADE']</li>
     * </ul>
     *
     * @var     array
@@ -1197,6 +1208,8 @@
        'lob_allow_url_include' => false,
        'bindname_format' => '(?:\d+)|(?:[a-zA-Z][a-zA-Z0-9_]*)',
        'max_identifiers_length' => 30,
        'default_fk_action_onupdate' => 'RESTRICT',
        'default_fk_action_ondelete' => 'RESTRICT',
    );

    /**
@@ -1427,36 +1440,44 @@
     * callbacks etc.  Basically a wrapper for PEAR::raiseError
     * without the message string.
     *
     * @param   mixed   integer error code, or a PEAR error object (all other
     *                  parameters are ignored if this parameter is an object
     * @param   int     error mode, see PEAR_Error docs
     * @param   mixed   If error mode is PEAR_ERROR_TRIGGER, this is the
         *              error level (E_USER_NOTICE etc).  If error mode is
     *                  PEAR_ERROR_CALLBACK, this is the callback function,
     *                  either as a function name, or as an array of an
     *                  object and method name.  For other error modes this
     *                  parameter is ignored.
     * @param   string  Extra debug information.  Defaults to the last
     *                  query and native error code.
     * @param   string  name of the method that triggered the error
     * @param mixed  $code     integer error code, or a PEAR error object (all 
     *                         other parameters are ignored if this parameter is
     *                         an object
     * @param int    $mode     error mode, see PEAR_Error docs
     * @param mixed  $options  If error mode is PEAR_ERROR_TRIGGER, this is the
     *                         error level (E_USER_NOTICE etc). If error mode is
     *                         PEAR_ERROR_CALLBACK, this is the callback function,
     *                         either as a function name, or as an array of an
     *                         object and method name. For other error modes this
     *                         parameter is ignored.
     * @param string $userinfo Extra debug information. Defaults to the last
     *                         query and native error code.
     * @param string $method   name of the method that triggered the error
     * @param string $dummy1   not used
     * @param bool   $dummy2   not used
     *
     * @return PEAR_Error   instance of a PEAR Error object
     *
     * @access  public
     * @see     PEAR_Error
     * @return PEAR_Error instance of a PEAR Error object
     * @access public
     * @see    PEAR_Error
     */
    function &raiseError($code = null, $mode = null, $options = null, $userinfo = null, $method = null)
    {
    function &raiseError($code = null,
                         $mode = null,
                         $options = null,
                         $userinfo = null,
                         $method = null,
                         $dummy1 = null,
                         $dummy2 = false
    ) {
        $userinfo = "[Error message: $userinfo]\n";
        // The error is yet a MDB2 error object
        if (PEAR::isError($code)) {
            // because we use the static PEAR::raiseError, our global
            // handler should be used if it is set
            if (is_null($mode) && !empty($this->_default_error_mode)) {
            if ((null === $mode) && !empty($this->_default_error_mode)) {
                $mode    = $this->_default_error_mode;
                $options = $this->_default_error_options;
            }
            if (is_null($userinfo)) {
            if (null === $userinfo) {
                $userinfo = $code->getUserinfo();
            }
            $code = $code->getCode();
@@ -1469,13 +1490,13 @@
            }
            $native_errno = $native_msg = null;
            list($code, $native_errno, $native_msg) = $this->errorInfo($code);
            if (!is_null($native_errno) && $native_errno !== '') {
            if ((null !== $native_errno) && $native_errno !== '') {
                $userinfo.= "[Native code: $native_errno]\n";
            }
            if (!is_null($native_msg) && $native_msg !== '') {
            if ((null !== $native_msg) && $native_msg !== '') {
                $userinfo.= "[Native message: ". strip_tags($native_msg) ."]\n";
            }
            if (!is_null($method)) {
            if (null !== $method) {
                $userinfo = $method.': '.$userinfo;
            }
        }
@@ -1926,7 +1947,7 @@
                return $err;
            }
            $this->{$property} = new $class_name($this->db_index);
            $this->modules[$module] = $this->{$property};
            $this->modules[$module] =& $this->{$property};
            if ($version) {
                // this will be used in the connect method to determine if the module
                // needs to be loaded with a different version if the server
@@ -1973,7 +1994,7 @@
                }
            }
        }
        if (!is_null($module)) {
        if (null !== $module) {
            return call_user_func_array(array(&$this->modules[$module], $method), $params);
        }
        trigger_error(sprintf('Call to undefined function: %s::%s().', get_class($this), $method), E_USER_ERROR);
@@ -2183,7 +2204,7 @@
     */
    function failNestedTransaction($error = null, $immediately = false)
    {
        if (is_null($error)) {
        if (null !== $error) {
            $error = $this->has_transaction_error ? $this->has_transaction_error : true;
        } elseif (!$error) {
            $error = true;
@@ -2265,11 +2286,10 @@
    /**
     * Log out and disconnect from the database.
     *
     * @param   bool    if the disconnect should be forced even if the
     *                  connection is opened persistently
     * @param boolean $force whether the disconnect should be forced even if the
     *                       connection is opened persistently
     *
     * @return  mixed   true on success, false if not connected and error
     *                  object on error
     * @return mixed true on success, false if not connected and error object on error
     *
     * @access  public
     */
@@ -2382,6 +2402,26 @@
            break;
        }
        return $dsn;
    }

    // }}}
    // {{{ _isNewLinkSet()

    /**
     * Check if the 'new_link' option is set
     *
     * @return boolean
     *
     * @access protected
     */
    function _isNewLinkSet()
    {
        return (isset($this->dsn['new_link'])
            && ($this->dsn['new_link'] === true
             || (is_string($this->dsn['new_link']) && preg_match('/^true$/i', $this->dsn['new_link']))
             || (is_numeric($this->dsn['new_link']) && 0 != (int)$this->dsn['new_link'])
            )
        );
    }

    // }}}
@@ -2563,7 +2603,7 @@
    }

    // }}}
    // {{{ function &_wrapResult($result, $types = array(), $result_class = true, $result_wrap_class = false, $limit = null, $offset = null)
    // {{{ function &_wrapResult($result_resource, $types = array(), $result_class = true, $result_wrap_class = false, $limit = null, $offset = null)

    /**
     * wrap a result set into the correct class
@@ -2634,7 +2674,7 @@
                    'result wrap class does not exist '.$result_wrap_class, __FUNCTION__);
                return $err;
            }
            $result = new $result_wrap_class($result, $this->fetchmode);
            $result = new $result_wrap_class($result_resource, $this->fetchmode);
        }
        return $result;
    }
@@ -2682,7 +2722,7 @@
                'it was not specified a valid selected range row limit', __FUNCTION__);
        }
        $this->limit = $limit;
        if (!is_null($offset)) {
        if (null !== $offset) {
            $offset = (int)$offset;
            if ($offset < 0) {
                return $this->raiseError(MDB2_ERROR_SYNTAX, null, null,
@@ -2739,8 +2779,7 @@
    /**
     * Execute a SQL REPLACE query. A REPLACE query is identical to a INSERT
     * query, except that if there is already a row in the table with the same
     * key field values, the REPLACE query just updates its values instead of
     * inserting a new row.
     * key field values, the old row is deleted before the new row is inserted.
     *
     * The REPLACE type of query does not make part of the SQL standards. Since
     * practically only MySQL and SQLite implement it natively, this type of
@@ -2912,11 +2951,10 @@
            $query = $result;
        }
        $placeholder_type_guess = $placeholder_type = null;
        $question = '?';
        $colon = ':';
        $question  = '?';
        $colon     = ':';
        $positions = array();
        $position = 0;
	
        $position  = 0;
        while ($position < strlen($query)) {
            $q_position = strpos($query, $question, $position);
            $c_position = strpos($query, $colon, $position);
@@ -2929,7 +2967,7 @@
            } else {
                break;
            }
            if (is_null($placeholder_type)) {
            if (null === $placeholder_type) {
                $placeholder_type_guess = $query[$p_position];
            }

@@ -2943,7 +2981,7 @@
            }

            if ($query[$position] == $placeholder_type_guess) {
                if (is_null($placeholder_type)) {
                if (null === $placeholder_type) {
                    $placeholder_type = $query[$p_position];
                    $question = $colon = $placeholder_type;
                    if (!empty($types) && is_array($types)) {
@@ -3007,8 +3045,8 @@
     */
    function _skipDelimitedStrings($query, $position, $p_position)
    {
    $ignores[] = $this->string_quoting;
    $ignores[] = $this->identifier_quoting;
	
        $ignores = $this->string_quoting;
        $ignores[] = $this->identifier_quoting;
        $ignores = array_merge($ignores, $this->sql_comments);
        
        foreach ($ignores as $ignore) {
@@ -3026,10 +3064,12 @@
                            }
                        }
                    } while ($ignore['escape']
                && $end_quote-1 != $start_quote
                && $query[($end_quote - 1)] == $ignore['escape']
                && ($ignore['escape_pattern'] !== $ignore['escape']
                    || $query[($end_quote - 2)] != $ignore['escape']));
                        && $end_quote-1 != $start_quote
                        && $query[($end_quote - 1)] == $ignore['escape']
                        && (   $ignore['escape_pattern'] !== $ignore['escape']
                            || $query[($end_quote - 2)] != $ignore['escape'])
                    );

                    $position = $end_quote + 1;
                    return $position;
                }
@@ -3169,7 +3209,7 @@
    function getIndexName($idx)
    {
        return sprintf($this->options['idxname_format'],
            preg_replace('/[^a-z0-9_\$]/i', '_', $idx));
            preg_replace('/[^a-z0-9_\-\$.]/i', '_', $idx));
    }

    // }}}
@@ -3238,12 +3278,12 @@
     * the first row of the result set and then frees
     * the result set.
     *
     * @param   string  the SELECT query statement to be executed.
     * @param   string  optional argument that specifies the expected
     *       datatype of the result set field, so that an eventual conversion
     *       may be performed. The default datatype is text, meaning that no
     *       conversion is performed
     * @param   int     the column number to fetch
     * @param string $query  the SELECT query statement to be executed.
     * @param string $type   optional argument that specifies the expected
     *                       datatype of the result set field, so that an eventual
     *                       conversion may be performed. The default datatype is
     *                       text, meaning that no conversion is performed
     * @param mixed  $colnum the column number (or name) to fetch
     *
     * @return  mixed   MDB2_OK or field value on success, a MDB2 error on failure
     *
@@ -3299,15 +3339,14 @@
     * Execute the specified query, fetch the value from the first column of
     * each row of the result set into an array and then frees the result set.
     *
     * @param   string  the SELECT query statement to be executed.
     * @param   string  optional argument that specifies the expected
     *       datatype of the result set field, so that an eventual conversion
     *       may be performed. The default datatype is text, meaning that no
     *       conversion is performed
     * @param   int     the row number to fetch
     * @param string $query  the SELECT query statement to be executed.
     * @param string $type   optional argument that specifies the expected
     *                       datatype of the result set field, so that an eventual
     *                       conversion may be performed. The default datatype is text,
     *                       meaning that no conversion is performed
     * @param mixed  $colnum the column number (or name) to fetch
     *
     * @return  mixed   MDB2_OK or data array on success, a MDB2 error on failure
     *
     * @access  public
     */
    function queryCol($query, $type = null, $colnum = 0)
@@ -3517,11 +3556,10 @@
    /**
     * fetch single column from the next row from a result set
     *
     * @param   int     the column number to fetch
     * @param   int     number of the row where the data can be found
     * @param int|string the column number (or name) to fetch
     * @param int        number of the row where the data can be found
     *
     * @return  string  data on success, a MDB2 error on failure
     *
     * @return string data on success, a MDB2 error on failure
     * @access  public
     */
    function fetchOne($colnum = 0, $rownum = null)
@@ -3544,10 +3582,9 @@
    /**
     * Fetch and return a column from the current row pointer position
     *
     * @param   int     the column number to fetch
     * @param int|string the column number (or name) to fetch
     *
     * @return  mixed   data array on success, a MDB2 error on failure
     *
     * @return  mixed data array on success, a MDB2 error on failure
     * @access  public
     */
    function fetchCol($colnum = 0)
@@ -3608,7 +3645,7 @@
        }

        $shift_array = $rekey ? false : null;
        if (!is_null($shift_array)) {
        if (null !== $shift_array) {
            if (is_object($row)) {
                $colnum = count(get_object_vars($row));
            } else {
@@ -3814,7 +3851,7 @@
            $column = $column_names[$column];
        }
        $this->values[$column] =& $value;
        if (!is_null($type)) {
        if (null !== $type) {
            $this->types[$column] = $type;
        }
        return MDB2_OK;
@@ -3984,7 +4021,7 @@
                'Unable to bind to missing placeholder: '.$parameter, __FUNCTION__);
        }
        $this->values[$parameter] = $value;
        if (!is_null($type)) {
        if (null !== $type) {
            $this->types[$parameter] = $type;
        }
        return MDB2_OK;
@@ -4053,7 +4090,7 @@
                'Unable to bind to missing placeholder: '.$parameter, __FUNCTION__);
        }
        $this->values[$parameter] =& $value;
        if (!is_null($type)) {
        if (null !== $type) {
            $this->types[$parameter] = $type;
        }
        return MDB2_OK;
@@ -4094,19 +4131,19 @@
    /**
     * Execute a prepared query statement.
     *
     * @param   array   specifies all necessary information
     *       for bindParam() the array elements must use keys corresponding to
     *       the number of the position of the parameter.
     * @param   mixed   specifies which result class to use
     * @param   mixed   specifies which class to wrap results in
     * @param array specifies all necessary information
     *              for bindParam() the array elements must use keys corresponding
     *              to the number of the position of the parameter.
     * @param mixed specifies which result class to use
     * @param mixed specifies which class to wrap results in
     *
     * @return  mixed   a result handle or MDB2_OK on success, a MDB2 error on failure
     *
     * @access  public
     * @return mixed MDB2_Result or integer (affected rows) on success,
     *               a MDB2 error on failure
     * @access public
     */
    function &execute($values = null, $result_class = true, $result_wrap_class = false)
    {
        if (is_null($this->positions)) {
        if (null === $this->positions) {
            return $this->db->raiseError(MDB2_ERROR, null, null,
                'Prepared statement has already been freed', __FUNCTION__);
        }
@@ -4132,8 +4169,8 @@
     * @param   mixed   specifies which result class to use
     * @param   mixed   specifies which class to wrap results in
     *
     * @return  mixed   MDB2_Result or integer on success, a MDB2 error on failure
     *
     * @return mixed MDB2_Result or integer (affected rows) on success,
     *               a MDB2 error on failure
     * @access  private
     */
    function &_execute($result_class = true, $result_wrap_class = false)
@@ -4184,7 +4221,7 @@
     */
    function free()
    {
        if (is_null($this->positions)) {
        if (null === $this->positions) {
            return $this->db->raiseError(MDB2_ERROR, null, null,
                'Prepared statement has already been freed', __FUNCTION__);
        }
@@ -4325,4 +4362,4 @@
}

// }}}
?>
?>

 program/lib/MDB2/Date.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: Date.php,v 1.10 2006/03/01 12:15:32 lsmith Exp $
// $Id: Date.php 208329 2006-03-01 12:15:38Z lsmith $
//

/**

 program/lib/MDB2/Driver/Datatype/Common.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: Common.php,v 1.137 2008/02/17 18:53:40 afz Exp $
// $Id: Common.php 292715 2009-12-28 14:06:34Z quipo $

require_once 'MDB2/LOB.php';

@@ -232,7 +232,7 @@
     */
    function convertResult($value, $type, $rtrim = true)
    {
        if (is_null($value)) {
        if (null === $value) {
            return null;
        }
        $db =& $this->getDBInstance();
@@ -313,7 +313,7 @@
        if (count($types)) {
            reset($types);
            foreach (array_keys($sorted_types) as $k) {
                if (is_null($sorted_types[$k])) {
                if (null === $sorted_types[$k]) {
                    $sorted_types[$k] = current($types);
                    next($types);
                }
@@ -511,7 +511,7 @@
                    $field['default'] = ' ';
                }
            }
            if (!is_null($field['default'])) {
            if (null !== $field['default']) {
                $default = ' DEFAULT ' . $this->quote($field['default'], $field['type']);
            }
        }
@@ -1119,7 +1119,7 @@
            return $db;
        }

        if (is_null($value)
        if ((null === $value)
            || ($value === '' && $db->options['portability'] & MDB2_PORTABILITY_EMPTY_TO_NULL)
        ) {
            if (!$quote) {
@@ -1128,7 +1128,7 @@
            return 'NULL';
        }

        if (is_null($type)) {
        if (null === $type) {
            switch (gettype($value)) {
            case 'integer':
                $type = 'integer';
@@ -1288,9 +1288,15 @@
     */
    function _quoteLOB($value, $quote, $escape_wildcards)
    {
        $value = $this->_readFile($value);
        if (PEAR::isError($value)) {
            return $value;
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        if ($db->options['lob_allow_url_include']) {
            $value = $this->_readFile($value);
            if (PEAR::isError($value)) {
                return $value;
            }
        }
        return $this->_quoteText($value, $quote, $escape_wildcards);
    }
@@ -1554,7 +1560,7 @@
     */
    function _retrieveLOB(&$lob)
    {
        if (is_null($lob['value'])) {
        if (null === $lob['value']) {
            $lob['value'] = $lob['resource'];
        }
        $lob['loaded'] = true;
@@ -1687,21 +1693,32 @@
        }

        $match = '';
        if (!is_null($operator)) {
        if (null !== $operator) {
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                if (is_null($field)) {
                if (null === $field) {
                    return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                        'case insensitive LIKE matching requires passing the field name', __FUNCTION__);
                }
                $db->loadModule('Function', null, true);
                $match = $db->function->lower($field).' LIKE ';
                break;
            case 'NOT ILIKE':
                if (null === $field) {
                    return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                        'case insensitive NOT ILIKE matching requires passing the field name', __FUNCTION__);
                }
                $db->loadModule('Function', null, true);
                $match = $db->function->lower($field).' NOT LIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = is_null($field) ? 'LIKE ' : $field.' LIKE ';
                $match = (null === $field) ? 'LIKE ' : ($field.' LIKE ');
                break;
            case 'NOT LIKE':
                $match = (null === $field) ? 'NOT LIKE ' : ($field.' NOT LIKE ');
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
@@ -1713,9 +1730,6 @@
            if ($key % 2) {
                $match.= $value;
            } else {
                if ($operator === 'ILIKE') {
                    $value = strtolower($value);
                }
                $escaped = $db->escape($value);
                if (PEAR::isError($escaped)) {
                    return $escaped;
@@ -1821,4 +1835,4 @@
        return $type;
    }
}
?>
?>

 program/lib/MDB2/Driver/Datatype/mssql.php

@@ -44,7 +44,7 @@
// |          Daniel Convissor <danielc@php.net>                          |
// +----------------------------------------------------------------------+
//
// $Id: mssql.php,v 1.65 2008/02/19 14:54:17 afz Exp $
// $Id: mssql.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Datatype/Common.php';
@@ -71,7 +71,7 @@
     */
    function _baseConvertResult($value, $type, $rtrim = true)
    {
        if (is_null($value)) {
        if (null === $value) {
            return null;
        }
        switch ($type) {
@@ -228,7 +228,7 @@
            if ($field['default'] === '') {
                $field['default'] = 0;
            }
            if (is_null($field['default'])) {
            if (null === $field['default']) {
                $default = ' DEFAULT (null)';
            } else {
                $default = ' DEFAULT (' . $this->quote($field['default'], 'integer') . ')';
@@ -339,6 +339,65 @@
    }

    // }}}
    // {{{ matchPattern()

    /**
     * build a pattern matching string
     *
     * @access public
     *
     * @param array $pattern even keys are strings, odd are patterns (% and _)
     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)
     * @param string $field optional field name that is being matched against
     *                  (might be required when emulating ILIKE)
     *
     * @return string SQL pattern
     */
    function matchPattern($pattern, $operator = null, $field = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $match = '';
        if (null !== $operator) {
            $field = (null === $field) ? '' : $field.' ';
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT ILIKE':
                $match = $field.'NOT LIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT LIKE':
                $match = $field.'NOT LIKE ';
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                    'not a supported operator type:'. $operator, __FUNCTION__);
            }
        }
        $match.= "'";
        foreach ($pattern as $key => $value) {
            if ($key % 2) {
                $match.= $value;
            } else {
                $match.= $db->escapePattern($db->escape($value));
            }
        }
        $match.= "'";
        $match.= $this->patternEscapeString();
        return $match;
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
@@ -376,6 +435,7 @@
            $type[0] = 'integer';
            $length = 8;
            break;
        case 'smalldatetime':
        case 'datetime':
            $type[0] = 'timestamp';
            break;

 program/lib/MDB2/Driver/Datatype/mysql.php

@@ -1,553 +1,559 @@
<?php

// vim: set et ts=4 sw=4 fdm=marker:

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysql.php,v 1.65 2008/02/22 19:23:49 quipo Exp $

//



require_once 'MDB2/Driver/Datatype/Common.php';



/**

 * MDB2 MySQL driver

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Datatype_mysql extends MDB2_Driver_Datatype_Common

{

    // {{{ _getCharsetFieldDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to set the CHARACTER SET

     * of a field declaration to be used in statements like CREATE TABLE.

     *

     * @param string $charset   name of the charset

     * @return string  DBMS specific SQL code portion needed to set the CHARACTER SET

     *                 of a field declaration.

     */

    function _getCharsetFieldDeclaration($charset)

    {

        return 'CHARACTER SET '.$charset;

    }



    // }}}

    // {{{ _getCollationFieldDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to set the COLLATION

     * of a field declaration to be used in statements like CREATE TABLE.

     *

     * @param string $collation   name of the collation

     * @return string  DBMS specific SQL code portion needed to set the COLLATION

     *                 of a field declaration.

     */

    function _getCollationFieldDeclaration($collation)

    {

        return 'COLLATE '.$collation;

    }



    // }}}

    // {{{ getTypeDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an text type

     * field to be used in statements like CREATE TABLE.

     *

     * @param array $field  associative array with the name of the properties

     *      of the field being declared as array indexes. Currently, the types

     *      of supported field properties are as follows:

     *

     *      length

     *          Integer value that determines the maximum length of the text

     *          field. If this argument is missing the field should be

     *          declared to have the longest length allowed by the DBMS.

     *

     *      default

     *          Text value to be used as default for this field.

     *

     *      notnull

     *          Boolean flag that indicates whether this field is constrained

     *          to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *      declare the specified field.

     * @access public

     */

    function getTypeDeclaration($field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        switch ($field['type']) {

        case 'text':

            if (empty($field['length']) && array_key_exists('default', $field)) {

                $field['length'] = $db->varchar_max_length;

            }

            $length = !empty($field['length']) ? $field['length'] : false;

            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;

            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR(255)')

                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');

        case 'clob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYTEXT';

                } elseif ($length <= 65532) {

                    return 'TEXT';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMTEXT';

                }

            }

            return 'LONGTEXT';

        case 'blob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYBLOB';

                } elseif ($length <= 65532) {

                    return 'BLOB';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMBLOB';

                }

            }

            return 'LONGBLOB';

        case 'integer':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 1) {

                    return 'TINYINT';

                } elseif ($length == 2) {

                    return 'SMALLINT';

                } elseif ($length == 3) {

                    return 'MEDIUMINT';

                } elseif ($length == 4) {

                    return 'INT';

                } elseif ($length > 4) {

                    return 'BIGINT';

                }

            }

            return 'INT';

        case 'boolean':

            return 'TINYINT(1)';

        case 'date':

            return 'DATE';

        case 'time':

            return 'TIME';

        case 'timestamp':

            return 'DATETIME';

        case 'float':

            return 'DOUBLE';

        case 'decimal':

            $length = !empty($field['length']) ? $field['length'] : 18;

            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];

            return 'DECIMAL('.$length.','.$scale.')';

        }

        return '';

    }



    // }}}

    // {{{ _getIntegerDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an integer type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned integer if

     *                        possible.

     *

     *                       default

     *                        Integer value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getIntegerDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $default = $autoinc = '';

        if (!empty($field['autoincrement'])) {

            $autoinc = ' AUTO_INCREMENT PRIMARY KEY';

        } elseif (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;

    }



    // }}}

    // {{{ _getFloatDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an float type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned float if

     *                        possible.

     *

     *                       default

     *                        float value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getFloatDeclaration($name, $field)

    {

        // Since AUTO_INCREMENT can be used for integer or floating-point types,

        // reuse the INTEGER declaration

        // @see http://bugs.mysql.com/bug.php?id=31032

        return $this->_getIntegerDeclaration($name, $field);

    }



    // }}}

    // {{{ _getDecimalDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an decimal type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned integer if

     *                        possible.

     *

     *                       default

     *                        Decimal value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getDecimalDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $default = '';

        if (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        } elseif (empty($field['notnull'])) {

            $default = ' DEFAULT NULL';

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull;

    }



    // }}}

    // {{{ matchPattern()



    /**

     * build a pattern matching string

     *

     * @access public

     *

     * @param array $pattern even keys are strings, odd are patterns (% and _)

     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)

     * @param string $field optional field name that is being matched against

     *                  (might be required when emulating ILIKE)

     *

     * @return string SQL pattern

     */

    function matchPattern($pattern, $operator = null, $field = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $match = '';

        if (!is_null($operator)) {

            $field = is_null($field) ? '' : $field.' ';

            $operator = strtoupper($operator);

            switch ($operator) {

            // case insensitive

            case 'ILIKE':

                $match = $field.'LIKE ';

                break;

            // case sensitive

            case 'LIKE':

                $match = $field.'LIKE BINARY ';

                break;

            default:

                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                    'not a supported operator type:'. $operator, __FUNCTION__);

            }

        }

        $match.= "'";

        foreach ($pattern as $key => $value) {

            if ($key % 2) {

                $match.= $value;

            } else {

                $match.= $db->escapePattern($db->escape($value));

            }

        }

        $match.= "'";

        $match.= $this->patternEscapeString();

        return $match;

    }



    // }}}

    // {{{ _mapNativeDatatype()



    /**

     * Maps a native array description of a field to a MDB2 datatype and length

     *

     * @param array  $field native field description

     * @return array containing the various possible types, length, sign, fixed

     * @access public

     */

    function _mapNativeDatatype($field)

    {

        $db_type = strtolower($field['type']);

        $db_type = strtok($db_type, '(), ');

        if ($db_type == 'national') {

            $db_type = strtok('(), ');

        }

        if (!empty($field['length'])) {

            $length = strtok($field['length'], ', ');

            $decimal = strtok(', ');

        } else {

            $length = strtok('(), ');

            $decimal = strtok('(), ');

        }

        $type = array();

        $unsigned = $fixed = null;

        switch ($db_type) {

        case 'tinyint':

            $type[] = 'integer';

            $type[] = 'boolean';

            if (preg_match('/^(is|has)/', $field['name'])) {

                $type = array_reverse($type);

            }

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 1;

            break;

        case 'smallint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 2;

            break;

        case 'mediumint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 3;

            break;

        case 'int':

        case 'integer':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 4;

            break;

        case 'bigint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 8;

            break;

        case 'tinytext':

        case 'mediumtext':

        case 'longtext':

        case 'text':

        case 'varchar':

            $fixed = false;

        case 'string':

        case 'char':

            $type[] = 'text';

            if ($length == '1') {

                $type[] = 'boolean';

                if (preg_match('/^(is|has)/', $field['name'])) {

                    $type = array_reverse($type);

                }

            } elseif (strstr($db_type, 'text')) {

                $type[] = 'clob';

                if ($decimal == 'binary') {

                    $type[] = 'blob';

                }

                $type = array_reverse($type);

            }

            if ($fixed !== false) {

                $fixed = true;

            }

            break;

        case 'enum':

            $type[] = 'text';

            preg_match_all('/\'.+\'/U', $field['type'], $matches);

            $length = 0;

            $fixed = false;

            if (is_array($matches)) {

                foreach ($matches[0] as $value) {

                    $length = max($length, strlen($value)-2);

                }

                if ($length == '1' && count($matches[0]) == 2) {

                    $type[] = 'boolean';

                    if (preg_match('/^(is|has)/', $field['name'])) {

                        $type = array_reverse($type);

                    }

                }

            }

            $type[] = 'integer';

        case 'set':

            $fixed = false;

            $type[] = 'text';

            $type[] = 'integer';

            break;

        case 'date':

            $type[] = 'date';

            $length = null;

            break;

        case 'datetime':

        case 'timestamp':

            $type[] = 'timestamp';

            $length = null;

            break;

        case 'time':

            $type[] = 'time';

            $length = null;

            break;

        case 'float':

        case 'double':

        case 'real':

            $type[] = 'float';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            break;

        case 'unknown':

        case 'decimal':

        case 'numeric':

            $type[] = 'decimal';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            if ($decimal !== false) {

                $length = $length.','.$decimal;

            }

            break;

        case 'tinyblob':

        case 'mediumblob':

        case 'longblob':

        case 'blob':

            $type[] = 'blob';

            $length = null;

            break;

        case 'binary':

        case 'varbinary':

            $type[] = 'blob';

            break;

        case 'year':

            $type[] = 'integer';

            $type[] = 'date';

            $length = null;

            break;

        default:

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }



            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                'unknown database attribute type: '.$db_type, __FUNCTION__);

        }



        if ((int)$length <= 0) {

            $length = null;

        }



        return array($type, $length, $unsigned, $fixed);

    }



    // }}}

}



<?php
// vim: set et ts=4 sw=4 fdm=marker:
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysql.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Datatype/Common.php';

/**
 * MDB2 MySQL driver
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Datatype_mysql extends MDB2_Driver_Datatype_Common
{
    // {{{ _getCharsetFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the CHARACTER SET
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $charset   name of the charset
     * @return string  DBMS specific SQL code portion needed to set the CHARACTER SET
     *                 of a field declaration.
     */
    function _getCharsetFieldDeclaration($charset)
    {
        return 'CHARACTER SET '.$charset;
    }

    // }}}
    // {{{ _getCollationFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the COLLATION
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $collation   name of the collation
     * @return string  DBMS specific SQL code portion needed to set the COLLATION
     *                 of a field declaration.
     */
    function _getCollationFieldDeclaration($collation)
    {
        return 'COLLATE '.$collation;
    }

    // }}}
    // {{{ getTypeDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an text type
     * field to be used in statements like CREATE TABLE.
     *
     * @param array $field  associative array with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      length
     *          Integer value that determines the maximum length of the text
     *          field. If this argument is missing the field should be
     *          declared to have the longest length allowed by the DBMS.
     *
     *      default
     *          Text value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *      declare the specified field.
     * @access public
     */
    function getTypeDeclaration($field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        switch ($field['type']) {
        case 'text':
            if (empty($field['length']) && array_key_exists('default', $field)) {
                $field['length'] = $db->varchar_max_length;
            }
            $length = !empty($field['length']) ? $field['length'] : false;
            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR(255)')
                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');
        case 'clob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYTEXT';
                } elseif ($length <= 65532) {
                    return 'TEXT';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMTEXT';
                }
            }
            return 'LONGTEXT';
        case 'blob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYBLOB';
                } elseif ($length <= 65532) {
                    return 'BLOB';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMBLOB';
                }
            }
            return 'LONGBLOB';
        case 'integer':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 1) {
                    return 'TINYINT';
                } elseif ($length == 2) {
                    return 'SMALLINT';
                } elseif ($length == 3) {
                    return 'MEDIUMINT';
                } elseif ($length == 4) {
                    return 'INT';
                } elseif ($length > 4) {
                    return 'BIGINT';
                }
            }
            return 'INT';
        case 'boolean':
            return 'TINYINT(1)';
        case 'date':
            return 'DATE';
        case 'time':
            return 'TIME';
        case 'timestamp':
            return 'DATETIME';
        case 'float':
            return 'DOUBLE';
        case 'decimal':
            $length = !empty($field['length']) ? $field['length'] : 18;
            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
            return 'DECIMAL('.$length.','.$scale.')';
        }
        return '';
    }

    // }}}
    // {{{ _getIntegerDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an integer type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Integer value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getIntegerDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $default = $autoinc = '';
        if (!empty($field['autoincrement'])) {
            $autoinc = ' AUTO_INCREMENT PRIMARY KEY';
        } elseif (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;
    }

    // }}}
    // {{{ _getFloatDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an float type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned float if
     *                        possible.
     *
     *                       default
     *                        float value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getFloatDeclaration($name, $field)
    {
        // Since AUTO_INCREMENT can be used for integer or floating-point types,
        // reuse the INTEGER declaration
        // @see http://bugs.mysql.com/bug.php?id=31032
        return $this->_getIntegerDeclaration($name, $field);
    }

    // }}}
    // {{{ _getDecimalDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an decimal type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Decimal value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getDecimalDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $default = '';
        if (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        } elseif (empty($field['notnull'])) {
            $default = ' DEFAULT NULL';
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull;
    }

    // }}}
    // {{{ matchPattern()

    /**
     * build a pattern matching string
     *
     * @access public
     *
     * @param array $pattern even keys are strings, odd are patterns (% and _)
     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)
     * @param string $field optional field name that is being matched against
     *                  (might be required when emulating ILIKE)
     *
     * @return string SQL pattern
     */
    function matchPattern($pattern, $operator = null, $field = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $match = '';
        if (null !== $operator) {
            $field = (null === $field) ? '' : $field.' ';
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT ILIKE':
                $match = $field.'NOT LIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = $field.'LIKE BINARY ';
                break;
            case 'NOT LIKE':
                $match = $field.'NOT LIKE BINARY ';
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                    'not a supported operator type:'. $operator, __FUNCTION__);
            }
        }
        $match.= "'";
        foreach ($pattern as $key => $value) {
            if ($key % 2) {
                $match.= $value;
            } else {
                $match.= $db->escapePattern($db->escape($value));
            }
        }
        $match.= "'";
        $match.= $this->patternEscapeString();
        return $match;
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
     * Maps a native array description of a field to a MDB2 datatype and length
     *
     * @param array  $field native field description
     * @return array containing the various possible types, length, sign, fixed
     * @access public
     */
    function _mapNativeDatatype($field)
    {
        $db_type = strtolower($field['type']);
        $db_type = strtok($db_type, '(), ');
        if ($db_type == 'national') {
            $db_type = strtok('(), ');
        }
        if (!empty($field['length'])) {
            $length = strtok($field['length'], ', ');
            $decimal = strtok(', ');
        } else {
            $length = strtok('(), ');
            $decimal = strtok('(), ');
        }
        $type = array();
        $unsigned = $fixed = null;
        switch ($db_type) {
        case 'tinyint':
            $type[] = 'integer';
            $type[] = 'boolean';
            if (preg_match('/^(is|has)/', $field['name'])) {
                $type = array_reverse($type);
            }
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 1;
            break;
        case 'smallint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 2;
            break;
        case 'mediumint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 3;
            break;
        case 'int':
        case 'integer':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 4;
            break;
        case 'bigint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 8;
            break;
        case 'tinytext':
        case 'mediumtext':
        case 'longtext':
        case 'text':
        case 'varchar':
            $fixed = false;
        case 'string':
        case 'char':
            $type[] = 'text';
            if ($length == '1') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            } elseif (strstr($db_type, 'text')) {
                $type[] = 'clob';
                if ($decimal == 'binary') {
                    $type[] = 'blob';
                }
                $type = array_reverse($type);
            }
            if ($fixed !== false) {
                $fixed = true;
            }
            break;
        case 'enum':
            $type[] = 'text';
            preg_match_all('/\'.+\'/U', $field['type'], $matches);
            $length = 0;
            $fixed = false;
            if (is_array($matches)) {
                foreach ($matches[0] as $value) {
                    $length = max($length, strlen($value)-2);
                }
                if ($length == '1' && count($matches[0]) == 2) {
                    $type[] = 'boolean';
                    if (preg_match('/^(is|has)/', $field['name'])) {
                        $type = array_reverse($type);
                    }
                }
            }
            $type[] = 'integer';
        case 'set':
            $fixed = false;
            $type[] = 'text';
            $type[] = 'integer';
            break;
        case 'date':
            $type[] = 'date';
            $length = null;
            break;
        case 'datetime':
        case 'timestamp':
            $type[] = 'timestamp';
            $length = null;
            break;
        case 'time':
            $type[] = 'time';
            $length = null;
            break;
        case 'float':
        case 'double':
        case 'real':
            $type[] = 'float';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            break;
        case 'unknown':
        case 'decimal':
        case 'numeric':
            $type[] = 'decimal';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            if ($decimal !== false) {
                $length = $length.','.$decimal;
            }
            break;
        case 'tinyblob':
        case 'mediumblob':
        case 'longblob':
        case 'blob':
            $type[] = 'blob';
            $length = null;
            break;
        case 'binary':
        case 'varbinary':
            $type[] = 'blob';
            break;
        case 'year':
            $type[] = 'integer';
            $type[] = 'date';
            $length = null;
            break;
        default:
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }

            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                'unknown database attribute type: '.$db_type, __FUNCTION__);
        }

        if ((int)$length <= 0) {
            $length = null;
        }

        return array($type, $length, $unsigned, $fixed);
    }

    // }}}
}

?>

 program/lib/MDB2/Driver/Datatype/mysqli.php

@@ -1,590 +1,596 @@
<?php

// vim: set et ts=4 sw=4 fdm=marker:

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysqli.php,v 1.63 2008/02/22 19:23:49 quipo Exp $

//



require_once 'MDB2/Driver/Datatype/Common.php';



/**

 * MDB2 MySQLi driver

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Datatype_mysqli extends MDB2_Driver_Datatype_Common

{

    // {{{ _getCharsetFieldDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to set the CHARACTER SET

     * of a field declaration to be used in statements like CREATE TABLE.

     *

     * @param string $charset   name of the charset

     * @return string  DBMS specific SQL code portion needed to set the CHARACTER SET

     *                 of a field declaration.

     */

    function _getCharsetFieldDeclaration($charset)

    {

        return 'CHARACTER SET '.$charset;

    }



    // }}}

    // {{{ _getCollationFieldDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to set the COLLATION

     * of a field declaration to be used in statements like CREATE TABLE.

     *

     * @param string $collation   name of the collation

     * @return string  DBMS specific SQL code portion needed to set the COLLATION

     *                 of a field declaration.

     */

    function _getCollationFieldDeclaration($collation)

    {

        return 'COLLATE '.$collation;

    }



    // }}}

    // {{{ getTypeDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an text type

     * field to be used in statements like CREATE TABLE.

     *

     * @param array $field  associative array with the name of the properties

     *      of the field being declared as array indexes. Currently, the types

     *      of supported field properties are as follows:

     *

     *      length

     *          Integer value that determines the maximum length of the text

     *          field. If this argument is missing the field should be

     *          declared to have the longest length allowed by the DBMS.

     *

     *      default

     *          Text value to be used as default for this field.

     *

     *      notnull

     *          Boolean flag that indicates whether this field is constrained

     *          to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *      declare the specified field.

     * @access public

     */

    function getTypeDeclaration($field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        switch ($field['type']) {

        case 'text':

            if (empty($field['length']) && array_key_exists('default', $field)) {

                $field['length'] = $db->varchar_max_length;

            }

            $length = !empty($field['length']) ? $field['length'] : false;

            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;

            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR(255)')

                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');

        case 'clob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYTEXT';

                } elseif ($length <= 65532) {

                    return 'TEXT';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMTEXT';

                }

            }

            return 'LONGTEXT';

        case 'blob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYBLOB';

                } elseif ($length <= 65532) {

                    return 'BLOB';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMBLOB';

                }

            }

            return 'LONGBLOB';

        case 'integer':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 1) {

                    return 'TINYINT';

                } elseif ($length == 2) {

                    return 'SMALLINT';

                } elseif ($length == 3) {

                    return 'MEDIUMINT';

                } elseif ($length == 4) {

                    return 'INT';

                } elseif ($length > 4) {

                    return 'BIGINT';

                }

            }

            return 'INT';

        case 'boolean':

            return 'TINYINT(1)';

        case 'date':

            return 'DATE';

        case 'time':

            return 'TIME';

        case 'timestamp':

            return 'DATETIME';

        case 'float':

            return 'DOUBLE';

        case 'decimal':

            $length = !empty($field['length']) ? $field['length'] : 18;

            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];

            return 'DECIMAL('.$length.','.$scale.')';

        }

        return '';

    }



    // }}}

    // {{{ _getIntegerDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an integer type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned integer if

     *                        possible.

     *

     *                       default

     *                        Integer value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getIntegerDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $default = $autoinc = '';

        if (!empty($field['autoincrement'])) {

            $autoinc = ' AUTO_INCREMENT PRIMARY KEY';

        } elseif (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;

    }



    // }}}

    // {{{ _getFloatDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an float type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned float if

     *                        possible.

     *

     *                       default

     *                        float value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getFloatDeclaration($name, $field)

    {

        // Since AUTO_INCREMENT can be used for integer or floating-point types,

        // reuse the INTEGER declaration

        // @see http://bugs.mysql.com/bug.php?id=31032

        return $this->_getIntegerDeclaration($name, $field);

    }



    // }}}

    // {{{ _getDecimalDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an decimal type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned integer if

     *                        possible.

     *

     *                       default

     *                        Decimal value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getDecimalDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $default = '';

        if (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        } elseif (empty($field['notnull'])) {

            $default = ' DEFAULT NULL';

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull;

    }



    // }}}

    // {{{ matchPattern()



    /**

     * build a pattern matching string

     *

     * @access public

     *

     * @param array $pattern even keys are strings, odd are patterns (% and _)

     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)

     * @param string $field optional field name that is being matched against

     *                  (might be required when emulating ILIKE)

     *

     * @return string SQL pattern

     */

    function matchPattern($pattern, $operator = null, $field = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $match = '';

        if (!is_null($operator)) {

            $field = is_null($field) ? '' : $field.' ';

            $operator = strtoupper($operator);

            switch ($operator) {

            // case insensitive

            case 'ILIKE':

                $match = $field.'LIKE ';

                break;

            // case sensitive

            case 'LIKE':

                $match = $field.'LIKE BINARY ';

                break;

            default:

                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                    'not a supported operator type:'. $operator, __FUNCTION__);

            }

        }

        $match.= "'";

        foreach ($pattern as $key => $value) {

            if ($key % 2) {

                $match.= $value;

            } else {

                $match.= $db->escapePattern($db->escape($value));

            }

        }

        $match.= "'";

        $match.= $this->patternEscapeString();

        return $match;

    }



    // }}}

    // {{{ _mapNativeDatatype()



    /**

     * Maps a native array description of a field to a MDB2 datatype and length

     *

     * @param array  $field native field description

     * @return array containing the various possible types, length, sign, fixed

     * @access public

     */

    function _mapNativeDatatype($field)

    {

        $db_type = strtolower($field['type']);

        $db_type = strtok($db_type, '(), ');

        if ($db_type == 'national') {

            $db_type = strtok('(), ');

        }

        if (!empty($field['length'])) {

            $length = strtok($field['length'], ', ');

            $decimal = strtok(', ');

        } else {

            $length = strtok('(), ');

            $decimal = strtok('(), ');

        }

        $type = array();

        $unsigned = $fixed = null;

        switch ($db_type) {

        case 'tinyint':

            $type[] = 'integer';

            $type[] = 'boolean';

            if (preg_match('/^(is|has)/', $field['name'])) {

                $type = array_reverse($type);

            }

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 1;

            break;

        case 'smallint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 2;

            break;

        case 'mediumint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 3;

            break;

        case 'int':

        case 'integer':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 4;

            break;

        case 'bigint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 8;

            break;

        case 'tinytext':

        case 'mediumtext':

        case 'longtext':

        case 'text':

        case 'varchar':

            $fixed = false;

        case 'string':

        case 'char':

            $type[] = 'text';

            if ($length == '1') {

                $type[] = 'boolean';

                if (preg_match('/^(is|has)/', $field['name'])) {

                    $type = array_reverse($type);

                }

            } elseif (strstr($db_type, 'text')) {

                $type[] = 'clob';

                if ($decimal == 'binary') {

                    $type[] = 'blob';

                }

                $type = array_reverse($type);

            }

            if ($fixed !== false) {

                $fixed = true;

            }

            break;

        case 'enum':

            $type[] = 'text';

            preg_match_all('/\'.+\'/U', $field['type'], $matches);

            $length = 0;

            $fixed = false;

            if (is_array($matches)) {

                foreach ($matches[0] as $value) {

                    $length = max($length, strlen($value)-2);

                }

                if ($length == '1' && count($matches[0]) == 2) {

                    $type[] = 'boolean';

                    if (preg_match('/^(is|has)/', $field['name'])) {

                        $type = array_reverse($type);

                    }

                }

            }

            $type[] = 'integer';

        case 'set':

            $fixed = false;

            $type[] = 'text';

            $type[] = 'integer';

            break;

        case 'date':

            $type[] = 'date';

            $length = null;

            break;

        case 'datetime':

        case 'timestamp':

            $type[] = 'timestamp';

            $length = null;

            break;

        case 'time':

            $type[] = 'time';

            $length = null;

            break;

        case 'float':

        case 'double':

        case 'real':

            $type[] = 'float';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            break;

        case 'unknown':

        case 'decimal':

        case 'numeric':

            $type[] = 'decimal';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            if ($decimal !== false) {

                $length = $length.','.$decimal;

            }

            break;

        case 'tinyblob':

        case 'mediumblob':

        case 'longblob':

        case 'blob':

            $type[] = 'blob';

            $length = null;

            break;

        case 'binary':

        case 'varbinary':

            $type[] = 'blob';

            break;

        case 'year':

            $type[] = 'integer';

            $type[] = 'date';

            $length = null;

            break;

        default:

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }



            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                'unknown database attribute type: '.$db_type, __FUNCTION__);

        }



        if ((int)$length <= 0) {

            $length = null;

        }



        return array($type, $length, $unsigned, $fixed);

    }



    // }}}

    // {{{ mapPrepareDatatype()



    /**

     * Maps an MDB2 datatype to native prepare type

     *

     * @param string $type

     * @return string

     * @access public

     */

    function mapPrepareDatatype($type)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!empty($db->options['datatype_map'][$type])) {

            $type = $db->options['datatype_map'][$type];

            if (!empty($db->options['datatype_map_callback'][$type])) {

                $parameter = array('type' => $type);

                return call_user_func_array($db->options['datatype_map_callback'][$type], array(&$db, __FUNCTION__, $parameter));

            }

        }



        switch ($type) {

            case 'integer':

                return 'i';

            case 'float':

                return 'd';

            case 'blob':

                return 'b';

            default:

                break;

        }

        return 's';

    }

    
    // }}}

}

<?php
// vim: set et ts=4 sw=4 fdm=marker:
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysqli.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Datatype/Common.php';

/**
 * MDB2 MySQLi driver
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Datatype_mysqli extends MDB2_Driver_Datatype_Common
{
    // {{{ _getCharsetFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the CHARACTER SET
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $charset   name of the charset
     * @return string  DBMS specific SQL code portion needed to set the CHARACTER SET
     *                 of a field declaration.
     */
    function _getCharsetFieldDeclaration($charset)
    {
        return 'CHARACTER SET '.$charset;
    }

    // }}}
    // {{{ _getCollationFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the COLLATION
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $collation   name of the collation
     * @return string  DBMS specific SQL code portion needed to set the COLLATION
     *                 of a field declaration.
     */
    function _getCollationFieldDeclaration($collation)
    {
        return 'COLLATE '.$collation;
    }

    // }}}
    // {{{ getTypeDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an text type
     * field to be used in statements like CREATE TABLE.
     *
     * @param array $field  associative array with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      length
     *          Integer value that determines the maximum length of the text
     *          field. If this argument is missing the field should be
     *          declared to have the longest length allowed by the DBMS.
     *
     *      default
     *          Text value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *      declare the specified field.
     * @access public
     */
    function getTypeDeclaration($field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        switch ($field['type']) {
        case 'text':
            if (empty($field['length']) && array_key_exists('default', $field)) {
                $field['length'] = $db->varchar_max_length;
            }
            $length = !empty($field['length']) ? $field['length'] : false;
            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR(255)')
                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');
        case 'clob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYTEXT';
                } elseif ($length <= 65532) {
                    return 'TEXT';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMTEXT';
                }
            }
            return 'LONGTEXT';
        case 'blob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYBLOB';
                } elseif ($length <= 65532) {
                    return 'BLOB';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMBLOB';
                }
            }
            return 'LONGBLOB';
        case 'integer':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 1) {
                    return 'TINYINT';
                } elseif ($length == 2) {
                    return 'SMALLINT';
                } elseif ($length == 3) {
                    return 'MEDIUMINT';
                } elseif ($length == 4) {
                    return 'INT';
                } elseif ($length > 4) {
                    return 'BIGINT';
                }
            }
            return 'INT';
        case 'boolean':
            return 'TINYINT(1)';
        case 'date':
            return 'DATE';
        case 'time':
            return 'TIME';
        case 'timestamp':
            return 'DATETIME';
        case 'float':
            return 'DOUBLE';
        case 'decimal':
            $length = !empty($field['length']) ? $field['length'] : 18;
            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
            return 'DECIMAL('.$length.','.$scale.')';
        }
        return '';
    }

    // }}}
    // {{{ _getIntegerDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an integer type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Integer value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getIntegerDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $default = $autoinc = '';
        if (!empty($field['autoincrement'])) {
            $autoinc = ' AUTO_INCREMENT PRIMARY KEY';
        } elseif (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;
    }

    // }}}
    // {{{ _getFloatDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an float type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned float if
     *                        possible.
     *
     *                       default
     *                        float value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getFloatDeclaration($name, $field)
    {
        // Since AUTO_INCREMENT can be used for integer or floating-point types,
        // reuse the INTEGER declaration
        // @see http://bugs.mysql.com/bug.php?id=31032
        return $this->_getIntegerDeclaration($name, $field);
    }

    // }}}
    // {{{ _getDecimalDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an decimal type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Decimal value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getDecimalDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $default = '';
        if (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        } elseif (empty($field['notnull'])) {
            $default = ' DEFAULT NULL';
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull;
    }

    // }}}
    // {{{ matchPattern()

    /**
     * build a pattern matching string
     *
     * @access public
     *
     * @param array $pattern even keys are strings, odd are patterns (% and _)
     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)
     * @param string $field optional field name that is being matched against
     *                  (might be required when emulating ILIKE)
     *
     * @return string SQL pattern
     */
    function matchPattern($pattern, $operator = null, $field = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $match = '';
        if (null !== $operator) {
            $field = (null === $field) ? '' : $field.' ';
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT ILIKE':
                $match = $field.'NOT LIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = $field.'LIKE BINARY ';
                break;
            case 'NOT LIKE':
                $match = $field.'NOT LIKE BINARY ';
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                    'not a supported operator type:'. $operator, __FUNCTION__);
            }
        }
        $match.= "'";
        foreach ($pattern as $key => $value) {
            if ($key % 2) {
                $match.= $value;
            } else {
                $match.= $db->escapePattern($db->escape($value));
            }
        }
        $match.= "'";
        $match.= $this->patternEscapeString();
        return $match;
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
     * Maps a native array description of a field to a MDB2 datatype and length
     *
     * @param array  $field native field description
     * @return array containing the various possible types, length, sign, fixed
     * @access public
     */
    function _mapNativeDatatype($field)
    {
        $db_type = strtolower($field['type']);
        $db_type = strtok($db_type, '(), ');
        if ($db_type == 'national') {
            $db_type = strtok('(), ');
        }
        if (!empty($field['length'])) {
            $length = strtok($field['length'], ', ');
            $decimal = strtok(', ');
        } else {
            $length = strtok('(), ');
            $decimal = strtok('(), ');
        }
        $type = array();
        $unsigned = $fixed = null;
        switch ($db_type) {
        case 'tinyint':
            $type[] = 'integer';
            $type[] = 'boolean';
            if (preg_match('/^(is|has)/', $field['name'])) {
                $type = array_reverse($type);
            }
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 1;
            break;
        case 'smallint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 2;
            break;
        case 'mediumint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 3;
            break;
        case 'int':
        case 'integer':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 4;
            break;
        case 'bigint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 8;
            break;
        case 'tinytext':
        case 'mediumtext':
        case 'longtext':
        case 'text':
        case 'varchar':
            $fixed = false;
        case 'string':
        case 'char':
            $type[] = 'text';
            if ($length == '1') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            } elseif (strstr($db_type, 'text')) {
                $type[] = 'clob';
                if ($decimal == 'binary') {
                    $type[] = 'blob';
                }
                $type = array_reverse($type);
            }
            if ($fixed !== false) {
                $fixed = true;
            }
            break;
        case 'enum':
            $type[] = 'text';
            preg_match_all('/\'.+\'/U', $field['type'], $matches);
            $length = 0;
            $fixed = false;
            if (is_array($matches)) {
                foreach ($matches[0] as $value) {
                    $length = max($length, strlen($value)-2);
                }
                if ($length == '1' && count($matches[0]) == 2) {
                    $type[] = 'boolean';
                    if (preg_match('/^(is|has)/', $field['name'])) {
                        $type = array_reverse($type);
                    }
                }
            }
            $type[] = 'integer';
        case 'set':
            $fixed = false;
            $type[] = 'text';
            $type[] = 'integer';
            break;
        case 'date':
            $type[] = 'date';
            $length = null;
            break;
        case 'datetime':
        case 'timestamp':
            $type[] = 'timestamp';
            $length = null;
            break;
        case 'time':
            $type[] = 'time';
            $length = null;
            break;
        case 'float':
        case 'double':
        case 'real':
            $type[] = 'float';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            break;
        case 'unknown':
        case 'decimal':
        case 'numeric':
            $type[] = 'decimal';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            if ($decimal !== false) {
                $length = $length.','.$decimal;
            }
            break;
        case 'tinyblob':
        case 'mediumblob':
        case 'longblob':
        case 'blob':
            $type[] = 'blob';
            $length = null;
            break;
        case 'binary':
        case 'varbinary':
            $type[] = 'blob';
            break;
        case 'year':
            $type[] = 'integer';
            $type[] = 'date';
            $length = null;
            break;
        default:
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }

            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                'unknown database attribute type: '.$db_type, __FUNCTION__);
        }

        if ((int)$length <= 0) {
            $length = null;
        }

        return array($type, $length, $unsigned, $fixed);
    }

    // }}}
    // {{{ mapPrepareDatatype()

    /**
     * Maps an MDB2 datatype to native prepare type
     *
     * @param string $type
     * @return string
     * @access public
     */
    function mapPrepareDatatype($type)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!empty($db->options['datatype_map'][$type])) {
            $type = $db->options['datatype_map'][$type];
            if (!empty($db->options['datatype_map_callback'][$type])) {
                $parameter = array('type' => $type);
                return call_user_func_array($db->options['datatype_map_callback'][$type], array(&$db, __FUNCTION__, $parameter));
            }
        }

        switch ($type) {
            case 'integer':
                return 'i';
            case 'float':
                return 'd';
            case 'blob':
                return 'b';
            default:
                break;
        }
        return 's';
    }
    
    // }}}
}
?>

 program/lib/MDB2/Driver/Datatype/pgsql.php

@@ -1,555 +1,576 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Paul Cooper <pgc@ucecom.com>                                 |

// +----------------------------------------------------------------------+

//

// $Id: pgsql.php,v 1.91 2008/03/09 12:28:08 quipo Exp $



require_once 'MDB2/Driver/Datatype/Common.php';



/**

 * MDB2 PostGreSQL driver

 *

 * @package MDB2

 * @category Database

 * @author  Paul Cooper <pgc@ucecom.com>

 */

class MDB2_Driver_Datatype_pgsql extends MDB2_Driver_Datatype_Common

{

    // {{{ _baseConvertResult()



    /**

     * General type conversion method

     *

     * @param mixed   $value refernce to a value to be converted

     * @param string  $type  specifies which type to convert to

     * @param boolean $rtrim [optional] when TRUE [default], apply rtrim() to text

     * @return object a MDB2 error on failure

     * @access protected

     */

    function _baseConvertResult($value, $type, $rtrim = true)

    {

        if (is_null($value)) {

            return null;

        }

        switch ($type) {

        case 'boolean':

            return $value == 't';

        case 'float':

            return doubleval($value);

        case 'date':

            return $value;

        case 'time':

            return substr($value, 0, strlen('HH:MM:SS'));

        case 'timestamp':

            return substr($value, 0, strlen('YYYY-MM-DD HH:MM:SS'));

        case 'blob':

            $value = pg_unescape_bytea($value);

            return parent::_baseConvertResult($value, $type, $rtrim);

        }

        return parent::_baseConvertResult($value, $type, $rtrim);

    }



    // }}}

    // {{{ getTypeDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an text type

     * field to be used in statements like CREATE TABLE.

     *

     * @param array $field  associative array with the name of the properties

     *      of the field being declared as array indexes. Currently, the types

     *      of supported field properties are as follows:

     *

     *      length

     *          Integer value that determines the maximum length of the text

     *          field. If this argument is missing the field should be

     *          declared to have the longest length allowed by the DBMS.

     *

     *      default

     *          Text value to be used as default for this field.

     *

     *      notnull

     *          Boolean flag that indicates whether this field is constrained

     *          to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *      declare the specified field.

     * @access public

     */

    function getTypeDeclaration($field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        switch ($field['type']) {

        case 'text':

            $length = !empty($field['length'])

                ? $field['length'] : $db->options['default_text_field_length'];

            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;

            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')

                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');

        case 'clob':

            return 'TEXT';

        case 'blob':

            return 'BYTEA';

        case 'integer':

            if (!empty($field['autoincrement'])) {

                if (!empty($field['length'])) {

                    $length = $field['length'];

                    if ($length > 4) {

                        return 'BIGSERIAL PRIMARY KEY';

                    }

                }

                return 'SERIAL PRIMARY KEY';

            }

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 2) {

                    return 'SMALLINT';

                } elseif ($length == 3 || $length == 4) {

                    return 'INT';

                } elseif ($length > 4) {

                    return 'BIGINT';

                }

            }

            return 'INT';

        case 'boolean':

            return 'BOOLEAN';

        case 'date':

            return 'DATE';

        case 'time':

            return 'TIME without time zone';

        case 'timestamp':

            return 'TIMESTAMP without time zone';

        case 'float':

            return 'FLOAT8';

        case 'decimal':

            $length = !empty($field['length']) ? $field['length'] : 18;

            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];

            return 'NUMERIC('.$length.','.$scale.')';

        }

    }



    // }}}

    // {{{ _getIntegerDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an integer type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string $name name the field to be declared.

     * @param array $field associative array with the name of the properties

     *       of the field being declared as array indexes. Currently, the types

     *       of supported field properties are as follows:

     *

     *       unsigned

     *           Boolean flag that indicates whether the field should be

     *           declared as unsigned integer if possible.

     *

     *       default

     *           Integer value to be used as default for this field.

     *

     *       notnull

     *           Boolean flag that indicates whether this field is constrained

     *           to not be set to null.

     * @return string DBMS specific SQL code portion that should be used to

     *       declare the specified field.

     * @access protected

     */

    function _getIntegerDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!empty($field['unsigned'])) {

            $db->warnings[] = "unsigned integer field \"$name\" is being declared as signed integer";

        }

        if (!empty($field['autoincrement'])) {

            $name = $db->quoteIdentifier($name, true);

            return $name.' '.$this->getTypeDeclaration($field);

        }

        $default = '';

        if (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$default.$notnull;

    }



    // }}}

    // {{{ _quoteCLOB()



    /**

     * Convert a text value into a DBMS specific format that is suitable to

     * compose query statements.

     *

     * @param string $value text string value that is intended to be converted.

     * @param bool $quote determines if the value should be quoted and escaped

     * @param bool $escape_wildcards if to escape escape wildcards

     * @return string text string that represents the given argument value in

     *      a DBMS specific format.

     * @access protected

     */

    function _quoteCLOB($value, $quote, $escape_wildcards)

    {

        return $this->_quoteText($value, $quote, $escape_wildcards);

    }



    // }}}

    // {{{ _quoteBLOB()



    /**

     * Convert a text value into a DBMS specific format that is suitable to

     * compose query statements.

     *

     * @param string $value text string value that is intended to be converted.

     * @param bool $quote determines if the value should be quoted and escaped

     * @param bool $escape_wildcards if to escape escape wildcards

     * @return string text string that represents the given argument value in

     *      a DBMS specific format.

     * @access protected

     */

    function _quoteBLOB($value, $quote, $escape_wildcards)

    {

        if (!$quote) {

            return $value;

        }

        if (version_compare(PHP_VERSION, '5.2.0RC6', '>=')) {

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }

            $connection = $db->getConnection();

            if (PEAR::isError($connection)) {

                return $connection;

            }

            $value = @pg_escape_bytea($connection, $value);

        } else {

            $value = @pg_escape_bytea($value);

        }

        return "'".$value."'";

    }



    // }}}

    // {{{ _quoteBoolean()



    /**

     * Convert a text value into a DBMS specific format that is suitable to

     * compose query statements.

     *

     * @param string $value text string value that is intended to be converted.

     * @param bool $quote determines if the value should be quoted and escaped

     * @param bool $escape_wildcards if to escape escape wildcards

     * @return string text string that represents the given argument value in

     *       a DBMS specific format.

     * @access protected

     */

    function _quoteBoolean($value, $quote, $escape_wildcards)

    {

        $value = $value ? 't' : 'f';

        if (!$quote) {

            return $value;

        }

        return "'".$value."'";

    }



    // }}}

    // {{{ matchPattern()



    /**

     * build a pattern matching string

     *

     * @access public

     *

     * @param array $pattern even keys are strings, odd are patterns (% and _)

     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)

     * @param string $field optional field name that is being matched against

     *                  (might be required when emulating ILIKE)

     *

     * @return string SQL pattern

     */

    function matchPattern($pattern, $operator = null, $field = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $match = '';

        if (!is_null($operator)) {

            $field = is_null($field) ? '' : $field.' ';

            $operator = strtoupper($operator);

            switch ($operator) {

            // case insensitive

            case 'ILIKE':

                $match = $field.'ILIKE ';

                break;

            // case sensitive

            case 'LIKE':

                $match = $field.'LIKE ';

                break;

            default:

                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                    'not a supported operator type:'. $operator, __FUNCTION__);

            }

        }

        $match.= "'";

        foreach ($pattern as $key => $value) {

            if ($key % 2) {

                $match.= $value;

            } else {

                $match.= $db->escapePattern($db->escape($value));

            }

        }

        $match.= "'";

        $match.= $this->patternEscapeString();

        return $match;

    }



    // }}}

    // {{{ patternEscapeString()



    /**

     * build string to define escape pattern string

     *

     * @access public

     *

     *

     * @return string define escape pattern

     */

    function patternEscapeString()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        return ' ESCAPE '.$this->quote($db->string_quoting['escape_pattern']);

    }



    // }}}

    // {{{ _mapNativeDatatype()



    /**

     * Maps a native array description of a field to a MDB2 datatype and length

     *

     * @param array  $field native field description

     * @return array containing the various possible types, length, sign, fixed

     * @access public

     */

    function _mapNativeDatatype($field)

    {

        $db_type = strtolower($field['type']);

        $length = $field['length'];

        $type = array();

        $unsigned = $fixed = null;

        switch ($db_type) {

        case 'smallint':

        case 'int2':

            $type[] = 'integer';

            $unsigned = false;

            $length = 2;

            if ($length == '2') {

                $type[] = 'boolean';

                if (preg_match('/^(is|has)/', $field['name'])) {

                    $type = array_reverse($type);

                }

            }

            break;

        case 'int':

        case 'int4':

        case 'integer':

        case 'serial':

        case 'serial4':

            $type[] = 'integer';

            $unsigned = false;

            $length = 4;

            break;

        case 'bigint':

        case 'int8':

        case 'bigserial':

        case 'serial8':

            $type[] = 'integer';

            $unsigned = false;

            $length = 8;

            break;

        case 'bool':

        case 'boolean':

            $type[] = 'boolean';

            $length = null;

            break;

        case 'text':

        case 'varchar':

            $fixed = false;

        case 'unknown':

        case 'char':

        case 'bpchar':

            $type[] = 'text';

            if ($length == '1') {

                $type[] = 'boolean';

                if (preg_match('/^(is|has)/', $field['name'])) {

                    $type = array_reverse($type);

                }

            } elseif (strstr($db_type, 'text')) {

                $type[] = 'clob';

                $type = array_reverse($type);

            }

            if ($fixed !== false) {

                $fixed = true;

            }

            break;

        case 'date':

            $type[] = 'date';

            $length = null;

            break;

        case 'datetime':

        case 'timestamp':

        case 'timestamptz':

            $type[] = 'timestamp';

            $length = null;

            break;

        case 'time':

            $type[] = 'time';

            $length = null;

            break;

        case 'float':

        case 'float4':

        case 'float8':

        case 'double':

        case 'real':

            $type[] = 'float';

            break;

        case 'decimal':

        case 'money':

        case 'numeric':

            $type[] = 'decimal';

            if (isset($field['scale'])) {

                $length = $length.','.$field['scale'];

            }

            break;

        case 'tinyblob':

        case 'mediumblob':

        case 'longblob':

        case 'blob':

        case 'bytea':

            $type[] = 'blob';

            $length = null;

            break;

        case 'oid':

            $type[] = 'blob';

            $type[] = 'clob';

            $length = null;

            break;

        case 'year':

            $type[] = 'integer';

            $type[] = 'date';

            $length = null;

            break;

        default:

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }

            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                'unknown database attribute type: '.$db_type, __FUNCTION__);

        }



        if ((int)$length <= 0) {

            $length = null;

        }



        return array($type, $length, $unsigned, $fixed);

    }



    // }}}

    // {{{ mapPrepareDatatype()



    /**

     * Maps an mdb2 datatype to native prepare type

     *

     * @param string $type

     * @return string

     * @access public

     */

    function mapPrepareDatatype($type)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!empty($db->options['datatype_map'][$type])) {

            $type = $db->options['datatype_map'][$type];

            if (!empty($db->options['datatype_map_callback'][$type])) {

                $parameter = array('type' => $type);

                return call_user_func_array($db->options['datatype_map_callback'][$type], array(&$db, __FUNCTION__, $parameter));

            }

        }



        switch ($type) {

            case 'integer':

                return 'int';

            case 'boolean':

                return 'bool';

            case 'decimal':

            case 'float':

                return 'numeric';

            case 'clob':

                return 'text';

            case 'blob':

                return 'bytea';

            default:

                break;

        }

        return $type;

    }

    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Paul Cooper <pgc@ucecom.com>                                 |
// +----------------------------------------------------------------------+
//
// $Id: pgsql.php 292715 2009-12-28 14:06:34Z quipo $

require_once 'MDB2/Driver/Datatype/Common.php';

/**
 * MDB2 PostGreSQL driver
 *
 * @package MDB2
 * @category Database
 * @author  Paul Cooper <pgc@ucecom.com>
 */
class MDB2_Driver_Datatype_pgsql extends MDB2_Driver_Datatype_Common
{
    // {{{ _baseConvertResult()

    /**
     * General type conversion method
     *
     * @param mixed   $value refernce to a value to be converted
     * @param string  $type  specifies which type to convert to
     * @param boolean $rtrim [optional] when TRUE [default], apply rtrim() to text
     * @return object a MDB2 error on failure
     * @access protected
     */
    function _baseConvertResult($value, $type, $rtrim = true)
    {
        if (null === $value) {
            return null;
        }
        switch ($type) {
        case 'boolean':
            return $value == 't';
        case 'float':
            return doubleval($value);
        case 'date':
            return $value;
        case 'time':
            return substr($value, 0, strlen('HH:MM:SS'));
        case 'timestamp':
            return substr($value, 0, strlen('YYYY-MM-DD HH:MM:SS'));
        case 'blob':
            $value = pg_unescape_bytea($value);
            return parent::_baseConvertResult($value, $type, $rtrim);
        }
        return parent::_baseConvertResult($value, $type, $rtrim);
    }

    // }}}
    // {{{ getTypeDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an text type
     * field to be used in statements like CREATE TABLE.
     *
     * @param array $field  associative array with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      length
     *          Integer value that determines the maximum length of the text
     *          field. If this argument is missing the field should be
     *          declared to have the longest length allowed by the DBMS.
     *
     *      default
     *          Text value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *      declare the specified field.
     * @access public
     */
    function getTypeDeclaration($field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        switch ($field['type']) {
        case 'text':
            $length = !empty($field['length']) ? $field['length'] : false;
            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')
                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');
        case 'clob':
            return 'TEXT';
        case 'blob':
            return 'BYTEA';
        case 'integer':
            if (!empty($field['autoincrement'])) {
                if (!empty($field['length'])) {
                    $length = $field['length'];
                    if ($length > 4) {
                        return 'BIGSERIAL PRIMARY KEY';
                    }
                }
                return 'SERIAL PRIMARY KEY';
            }
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 2) {
                    return 'SMALLINT';
                } elseif ($length == 3 || $length == 4) {
                    return 'INT';
                } elseif ($length > 4) {
                    return 'BIGINT';
                }
            }
            return 'INT';
        case 'boolean':
            return 'BOOLEAN';
        case 'date':
            return 'DATE';
        case 'time':
            return 'TIME without time zone';
        case 'timestamp':
            return 'TIMESTAMP without time zone';
        case 'float':
            return 'FLOAT8';
        case 'decimal':
            $length = !empty($field['length']) ? $field['length'] : 18;
            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
            return 'NUMERIC('.$length.','.$scale.')';
        }
    }

    // }}}
    // {{{ _getIntegerDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an integer type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string $name name the field to be declared.
     * @param array $field associative array with the name of the properties
     *       of the field being declared as array indexes. Currently, the types
     *       of supported field properties are as follows:
     *
     *       unsigned
     *           Boolean flag that indicates whether the field should be
     *           declared as unsigned integer if possible.
     *
     *       default
     *           Integer value to be used as default for this field.
     *
     *       notnull
     *           Boolean flag that indicates whether this field is constrained
     *           to not be set to null.
     * @return string DBMS specific SQL code portion that should be used to
     *       declare the specified field.
     * @access protected
     */
    function _getIntegerDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!empty($field['unsigned'])) {
            $db->warnings[] = "unsigned integer field \"$name\" is being declared as signed integer";
        }
        if (!empty($field['autoincrement'])) {
            $name = $db->quoteIdentifier($name, true);
            return $name.' '.$this->getTypeDeclaration($field);
        }
        $default = '';
        if (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$default.$notnull;
    }

    // }}}
    // {{{ _quoteCLOB()

    /**
     * Convert a text value into a DBMS specific format that is suitable to
     * compose query statements.
     *
     * @param string $value text string value that is intended to be converted.
     * @param bool $quote determines if the value should be quoted and escaped
     * @param bool $escape_wildcards if to escape escape wildcards
     * @return string text string that represents the given argument value in
     *      a DBMS specific format.
     * @access protected
     */
    function _quoteCLOB($value, $quote, $escape_wildcards)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        if ($db->options['lob_allow_url_include']) {
            $value = $this->_readFile($value);
            if (PEAR::isError($value)) {
                return $value;
            }
        }
        return $this->_quoteText($value, $quote, $escape_wildcards);
    }

    // }}}
    // {{{ _quoteBLOB()

    /**
     * Convert a text value into a DBMS specific format that is suitable to
     * compose query statements.
     *
     * @param string $value text string value that is intended to be converted.
     * @param bool $quote determines if the value should be quoted and escaped
     * @param bool $escape_wildcards if to escape escape wildcards
     * @return string text string that represents the given argument value in
     *      a DBMS specific format.
     * @access protected
     */
    function _quoteBLOB($value, $quote, $escape_wildcards)
    {
        if (!$quote) {
            return $value;
        }
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        if ($db->options['lob_allow_url_include']) {
            $value = $this->_readFile($value);
            if (PEAR::isError($value)) {
                return $value;
            }
        }
        if (version_compare(PHP_VERSION, '5.2.0RC6', '>=')) {
            $connection = $db->getConnection();
            if (PEAR::isError($connection)) {
                return $connection;
            }
            $value = @pg_escape_bytea($connection, $value);
        } else {
            $value = @pg_escape_bytea($value);
        }
        return "'".$value."'";
    }

    // }}}
    // {{{ _quoteBoolean()

    /**
     * Convert a text value into a DBMS specific format that is suitable to
     * compose query statements.
     *
     * @param string $value text string value that is intended to be converted.
     * @param bool $quote determines if the value should be quoted and escaped
     * @param bool $escape_wildcards if to escape escape wildcards
     * @return string text string that represents the given argument value in
     *       a DBMS specific format.
     * @access protected
     */
    function _quoteBoolean($value, $quote, $escape_wildcards)
    {
        $value = $value ? 't' : 'f';
        if (!$quote) {
            return $value;
        }
        return "'".$value."'";
    }

    // }}}
    // {{{ matchPattern()

    /**
     * build a pattern matching string
     *
     * @access public
     *
     * @param array $pattern even keys are strings, odd are patterns (% and _)
     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)
     * @param string $field optional field name that is being matched against
     *                  (might be required when emulating ILIKE)
     *
     * @return string SQL pattern
     */
    function matchPattern($pattern, $operator = null, $field = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $match = '';
        if (null !== $operator) {
            $field = (null === $field) ? '' : $field.' ';
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                $match = $field.'ILIKE ';
                break;
            case 'NOT ILIKE':
                $match = $field.'NOT ILIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT LIKE':
                $match = $field.'NOT LIKE ';
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                    'not a supported operator type:'. $operator, __FUNCTION__);
            }
        }
        $match.= "'";
        foreach ($pattern as $key => $value) {
            if ($key % 2) {
                $match.= $value;
            } else {
                $match.= $db->escapePattern($db->escape($value));
            }
        }
        $match.= "'";
        $match.= $this->patternEscapeString();
        return $match;
    }

    // }}}
    // {{{ patternEscapeString()

    /**
     * build string to define escape pattern string
     *
     * @access public
     *
     *
     * @return string define escape pattern
     */
    function patternEscapeString()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        return ' ESCAPE '.$this->quote($db->string_quoting['escape_pattern']);
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
     * Maps a native array description of a field to a MDB2 datatype and length
     *
     * @param array  $field native field description
     * @return array containing the various possible types, length, sign, fixed
     * @access public
     */
    function _mapNativeDatatype($field)
    {
        $db_type = strtolower($field['type']);
        $length = $field['length'];
        $type = array();
        $unsigned = $fixed = null;
        switch ($db_type) {
        case 'smallint':
        case 'int2':
            $type[] = 'integer';
            $unsigned = false;
            $length = 2;
            if ($length == '2') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            }
            break;
        case 'int':
        case 'int4':
        case 'integer':
        case 'serial':
        case 'serial4':
            $type[] = 'integer';
            $unsigned = false;
            $length = 4;
            break;
        case 'bigint':
        case 'int8':
        case 'bigserial':
        case 'serial8':
            $type[] = 'integer';
            $unsigned = false;
            $length = 8;
            break;
        case 'bool':
        case 'boolean':
            $type[] = 'boolean';
            $length = null;
            break;
        case 'text':
        case 'varchar':
            $fixed = false;
        case 'unknown':
        case 'char':
        case 'bpchar':
            $type[] = 'text';
            if ($length == '1') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            } elseif (strstr($db_type, 'text')) {
                $type[] = 'clob';
                $type = array_reverse($type);
            }
            if ($fixed !== false) {
                $fixed = true;
            }
            break;
        case 'date':
            $type[] = 'date';
            $length = null;
            break;
        case 'datetime':
        case 'timestamp':
        case 'timestamptz':
            $type[] = 'timestamp';
            $length = null;
            break;
        case 'time':
            $type[] = 'time';
            $length = null;
            break;
        case 'float':
        case 'float4':
        case 'float8':
        case 'double':
        case 'real':
            $type[] = 'float';
            break;
        case 'decimal':
        case 'money':
        case 'numeric':
            $type[] = 'decimal';
            if (isset($field['scale'])) {
                $length = $length.','.$field['scale'];
            }
            break;
        case 'tinyblob':
        case 'mediumblob':
        case 'longblob':
        case 'blob':
        case 'bytea':
            $type[] = 'blob';
            $length = null;
            break;
        case 'oid':
            $type[] = 'blob';
            $type[] = 'clob';
            $length = null;
            break;
        case 'year':
            $type[] = 'integer';
            $type[] = 'date';
            $length = null;
            break;
        default:
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }
            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                'unknown database attribute type: '.$db_type, __FUNCTION__);
        }

        if ((int)$length <= 0) {
            $length = null;
        }

        return array($type, $length, $unsigned, $fixed);
    }

    // }}}
    // {{{ mapPrepareDatatype()

    /**
     * Maps an mdb2 datatype to native prepare type
     *
     * @param string $type
     * @return string
     * @access public
     */
    function mapPrepareDatatype($type)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!empty($db->options['datatype_map'][$type])) {
            $type = $db->options['datatype_map'][$type];
            if (!empty($db->options['datatype_map_callback'][$type])) {
                $parameter = array('type' => $type);
                return call_user_func_array($db->options['datatype_map_callback'][$type], array(&$db, __FUNCTION__, $parameter));
            }
        }

        switch ($type) {
            case 'integer':
                return 'int';
            case 'boolean':
                return 'bool';
            case 'decimal':
            case 'float':
                return 'numeric';
            case 'clob':
                return 'text';
            case 'blob':
                return 'bytea';
            default:
                break;
        }
        return $type;
    }
    // }}}
}
?>

 program/lib/MDB2/Driver/Datatype/sqlite.php

@@ -1,409 +1,415 @@
<?php

// vim: set et ts=4 sw=4 fdm=marker:

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: sqlite.php,v 1.67 2008/02/22 19:58:06 quipo Exp $

//



require_once 'MDB2/Driver/Datatype/Common.php';



/**

 * MDB2 SQLite driver

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Datatype_sqlite extends MDB2_Driver_Datatype_Common

{

    // {{{ _getCollationFieldDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to set the COLLATION

     * of a field declaration to be used in statements like CREATE TABLE.

     *

     * @param string $collation name of the collation

     *

     * @return string DBMS specific SQL code portion needed to set the COLLATION

     *                of a field declaration.

     */

    function _getCollationFieldDeclaration($collation)

    {

        return 'COLLATE '.$collation;

    }



    // }}}

    // {{{ getTypeDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an text type

     * field to be used in statements like CREATE TABLE.

     *

     * @param array $field  associative array with the name of the properties

     *      of the field being declared as array indexes. Currently, the types

     *      of supported field properties are as follows:

     *

     *      length

     *          Integer value that determines the maximum length of the text

     *          field. If this argument is missing the field should be

     *          declared to have the longest length allowed by the DBMS.

     *

     *      default

     *          Text value to be used as default for this field.

     *

     *      notnull

     *          Boolean flag that indicates whether this field is constrained

     *          to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *      declare the specified field.

     * @access public

     */

    function getTypeDeclaration($field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        switch ($field['type']) {

        case 'text':

            $length = !empty($field['length'])

                ? $field['length'] : false;

            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;

            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')

                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');

        case 'clob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYTEXT';

                } elseif ($length <= 65532) {

                    return 'TEXT';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMTEXT';

                }

            }

            return 'LONGTEXT';

        case 'blob':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 255) {

                    return 'TINYBLOB';

                } elseif ($length <= 65532) {

                    return 'BLOB';

                } elseif ($length <= 16777215) {

                    return 'MEDIUMBLOB';

                }

            }

            return 'LONGBLOB';

        case 'integer':

            if (!empty($field['length'])) {

                $length = $field['length'];

                if ($length <= 2) {

                    return 'SMALLINT';

                } elseif ($length == 3 || $length == 4) {

                    return 'INTEGER';

                } elseif ($length > 4) {

                    return 'BIGINT';

                }

            }

            return 'INTEGER';

        case 'boolean':

            return 'BOOLEAN';

        case 'date':

            return 'DATE';

        case 'time':

            return 'TIME';

        case 'timestamp':

            return 'DATETIME';

        case 'float':

            return 'DOUBLE'.($db->options['fixed_float'] ? '('.

                ($db->options['fixed_float']+2).','.$db->options['fixed_float'].')' : '');

        case 'decimal':

            $length = !empty($field['length']) ? $field['length'] : 18;

            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];

            return 'DECIMAL('.$length.','.$scale.')';

        }

        return '';

    }



    // }}}

    // {{{ _getIntegerDeclaration()



    /**

     * Obtain DBMS specific SQL code portion needed to declare an integer type

     * field to be used in statements like CREATE TABLE.

     *

     * @param string  $name   name the field to be declared.

     * @param string  $field  associative array with the name of the properties

     *                        of the field being declared as array indexes.

     *                        Currently, the types of supported field

     *                        properties are as follows:

     *

     *                       unsigned

     *                        Boolean flag that indicates whether the field

     *                        should be declared as unsigned integer if

     *                        possible.

     *

     *                       default

     *                        Integer value to be used as default for this

     *                        field.

     *

     *                       notnull

     *                        Boolean flag that indicates whether this field is

     *                        constrained to not be set to null.

     * @return string  DBMS specific SQL code portion that should be used to

     *                 declare the specified field.

     * @access protected

     */

    function _getIntegerDeclaration($name, $field)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $default = $autoinc = '';

        if (!empty($field['autoincrement'])) {

            $autoinc = ' PRIMARY KEY';

        } elseif (array_key_exists('default', $field)) {

            if ($field['default'] === '') {

                $field['default'] = empty($field['notnull']) ? null : 0;

            }

            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');

        }



        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';

        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';

        $name = $db->quoteIdentifier($name, true);

        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;

    }



    // }}}

    // {{{ matchPattern()



    /**

     * build a pattern matching string

     *

     * @access public

     *

     * @param array $pattern even keys are strings, odd are patterns (% and _)

     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)

     * @param string $field optional field name that is being matched against

     *                  (might be required when emulating ILIKE)

     *

     * @return string SQL pattern

     */

    function matchPattern($pattern, $operator = null, $field = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $match = '';

        if (!is_null($operator)) {

            $field = is_null($field) ? '' : $field.' ';

            $operator = strtoupper($operator);

            switch ($operator) {

            // case insensitive

            case 'ILIKE':

                $match = $field.'LIKE ';

                break;

            // case sensitive

            case 'LIKE':

                $match = $field.'LIKE ';

                break;

            default:

                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                    'not a supported operator type:'. $operator, __FUNCTION__);

            }

        }

        $match.= "'";

        foreach ($pattern as $key => $value) {

            if ($key % 2) {

                $match.= $value;

            } else {

                $match.= $db->escapePattern($db->escape($value));

            }

        }

        $match.= "'";

        $match.= $this->patternEscapeString();

        return $match;

    }



    // }}}

    // {{{ _mapNativeDatatype()



    /**

     * Maps a native array description of a field to a MDB2 datatype and length

     *

     * @param array  $field native field description

     * @return array containing the various possible types, length, sign, fixed

     * @access public

     */

    function _mapNativeDatatype($field)

    {

        $db_type = strtolower($field['type']);

        $length = !empty($field['length']) ? $field['length'] : null;

        $unsigned = !empty($field['unsigned']) ? $field['unsigned'] : null;

        $fixed = null;

        $type = array();

        switch ($db_type) {

        case 'boolean':

            $type[] = 'boolean';

            break;

        case 'tinyint':

            $type[] = 'integer';

            $type[] = 'boolean';

            if (preg_match('/^(is|has)/', $field['name'])) {

                $type = array_reverse($type);

            }

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 1;

            break;

        case 'smallint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 2;

            break;

        case 'mediumint':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 3;

            break;

        case 'int':

        case 'integer':

        case 'serial':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 4;

            break;

        case 'bigint':

        case 'bigserial':

            $type[] = 'integer';

            $unsigned = preg_match('/ unsigned/i', $field['type']);

            $length = 8;

            break;

        case 'clob':

            $type[] = 'clob';

            $fixed  = false;

            break;

        case 'tinytext':

        case 'mediumtext':

        case 'longtext':

        case 'text':

        case 'varchar':

        case 'varchar2':

            $fixed = false;

        case 'char':

            $type[] = 'text';

            if ($length == '1') {

                $type[] = 'boolean';

                if (preg_match('/^(is|has)/', $field['name'])) {

                    $type = array_reverse($type);

                }

            } elseif (strstr($db_type, 'text')) {

                $type[] = 'clob';

                $type = array_reverse($type);

            }

            if ($fixed !== false) {

                $fixed = true;

            }

            break;

        case 'date':

            $type[] = 'date';

            $length = null;

            break;

        case 'datetime':

        case 'timestamp':

            $type[] = 'timestamp';

            $length = null;

            break;

        case 'time':

            $type[] = 'time';

            $length = null;

            break;

        case 'float':

        case 'double':

        case 'real':

            $type[] = 'float';

            break;

        case 'decimal':

        case 'numeric':

            $type[] = 'decimal';

            $length = $length.','.$field['decimal'];

            break;

        case 'tinyblob':

        case 'mediumblob':

        case 'longblob':

        case 'blob':

            $type[] = 'blob';

            $length = null;

            break;

        case 'year':

            $type[] = 'integer';

            $type[] = 'date';

            $length = null;

            break;

        default:

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }

            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

                'unknown database attribute type: '.$db_type, __FUNCTION__);

        }



        if ((int)$length <= 0) {

            $length = null;

        }



        return array($type, $length, $unsigned, $fixed);

    }



    // }}}

}



<?php
// vim: set et ts=4 sw=4 fdm=marker:
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: sqlite.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Datatype/Common.php';

/**
 * MDB2 SQLite driver
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Datatype_sqlite extends MDB2_Driver_Datatype_Common
{
    // {{{ _getCollationFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the COLLATION
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $collation name of the collation
     *
     * @return string DBMS specific SQL code portion needed to set the COLLATION
     *                of a field declaration.
     */
    function _getCollationFieldDeclaration($collation)
    {
        return 'COLLATE '.$collation;
    }

    // }}}
    // {{{ getTypeDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an text type
     * field to be used in statements like CREATE TABLE.
     *
     * @param array $field  associative array with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      length
     *          Integer value that determines the maximum length of the text
     *          field. If this argument is missing the field should be
     *          declared to have the longest length allowed by the DBMS.
     *
     *      default
     *          Text value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *      declare the specified field.
     * @access public
     */
    function getTypeDeclaration($field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        switch ($field['type']) {
        case 'text':
            $length = !empty($field['length'])
                ? $field['length'] : false;
            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')
                : ($length ? 'VARCHAR('.$length.')' : 'TEXT');
        case 'clob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYTEXT';
                } elseif ($length <= 65532) {
                    return 'TEXT';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMTEXT';
                }
            }
            return 'LONGTEXT';
        case 'blob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 255) {
                    return 'TINYBLOB';
                } elseif ($length <= 65532) {
                    return 'BLOB';
                } elseif ($length <= 16777215) {
                    return 'MEDIUMBLOB';
                }
            }
            return 'LONGBLOB';
        case 'integer':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 2) {
                    return 'SMALLINT';
                } elseif ($length == 3 || $length == 4) {
                    return 'INTEGER';
                } elseif ($length > 4) {
                    return 'BIGINT';
                }
            }
            return 'INTEGER';
        case 'boolean':
            return 'BOOLEAN';
        case 'date':
            return 'DATE';
        case 'time':
            return 'TIME';
        case 'timestamp':
            return 'DATETIME';
        case 'float':
            return 'DOUBLE'.($db->options['fixed_float'] ? '('.
                ($db->options['fixed_float']+2).','.$db->options['fixed_float'].')' : '');
        case 'decimal':
            $length = !empty($field['length']) ? $field['length'] : 18;
            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
            return 'DECIMAL('.$length.','.$scale.')';
        }
        return '';
    }

    // }}}
    // {{{ _getIntegerDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an integer type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Integer value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getIntegerDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $default = $autoinc = '';
        if (!empty($field['autoincrement'])) {
            $autoinc = ' PRIMARY KEY';
        } elseif (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = empty($field['notnull']) ? null : 0;
            }
            $default = ' DEFAULT '.$this->quote($field['default'], 'integer');
        }

        $notnull = empty($field['notnull']) ? '' : ' NOT NULL';
        $unsigned = empty($field['unsigned']) ? '' : ' UNSIGNED';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$unsigned.$default.$notnull.$autoinc;
    }

    // }}}
    // {{{ matchPattern()

    /**
     * build a pattern matching string
     *
     * @access public
     *
     * @param array $pattern even keys are strings, odd are patterns (% and _)
     * @param string $operator optional pattern operator (LIKE, ILIKE and maybe others in the future)
     * @param string $field optional field name that is being matched against
     *                  (might be required when emulating ILIKE)
     *
     * @return string SQL pattern
     */
    function matchPattern($pattern, $operator = null, $field = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $match = '';
        if (null !== $operator) {
            $field = (null === $field) ? '' : $field.' ';
            $operator = strtoupper($operator);
            switch ($operator) {
            // case insensitive
            case 'ILIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT ILIKE':
                $match = $field.'NOT LIKE ';
                break;
            // case sensitive
            case 'LIKE':
                $match = $field.'LIKE ';
                break;
            case 'NOT LIKE':
                $match = $field.'NOT LIKE ';
                break;
            default:
                return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                    'not a supported operator type:'. $operator, __FUNCTION__);
            }
        }
        $match.= "'";
        foreach ($pattern as $key => $value) {
            if ($key % 2) {
                $match.= $value;
            } else {
                $match.= $db->escapePattern($db->escape($value));
            }
        }
        $match.= "'";
        $match.= $this->patternEscapeString();
        return $match;
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
     * Maps a native array description of a field to a MDB2 datatype and length
     *
     * @param array  $field native field description
     * @return array containing the various possible types, length, sign, fixed
     * @access public
     */
    function _mapNativeDatatype($field)
    {
        $db_type = strtolower($field['type']);
        $length = !empty($field['length']) ? $field['length'] : null;
        $unsigned = !empty($field['unsigned']) ? $field['unsigned'] : null;
        $fixed = null;
        $type = array();
        switch ($db_type) {
        case 'boolean':
            $type[] = 'boolean';
            break;
        case 'tinyint':
            $type[] = 'integer';
            $type[] = 'boolean';
            if (preg_match('/^(is|has)/', $field['name'])) {
                $type = array_reverse($type);
            }
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 1;
            break;
        case 'smallint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 2;
            break;
        case 'mediumint':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 3;
            break;
        case 'int':
        case 'integer':
        case 'serial':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 4;
            break;
        case 'bigint':
        case 'bigserial':
            $type[] = 'integer';
            $unsigned = preg_match('/ unsigned/i', $field['type']);
            $length = 8;
            break;
        case 'clob':
            $type[] = 'clob';
            $fixed  = false;
            break;
        case 'tinytext':
        case 'mediumtext':
        case 'longtext':
        case 'text':
        case 'varchar':
        case 'varchar2':
            $fixed = false;
        case 'char':
            $type[] = 'text';
            if ($length == '1') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            } elseif (strstr($db_type, 'text')) {
                $type[] = 'clob';
                $type = array_reverse($type);
            }
            if ($fixed !== false) {
                $fixed = true;
            }
            break;
        case 'date':
            $type[] = 'date';
            $length = null;
            break;
        case 'datetime':
        case 'timestamp':
            $type[] = 'timestamp';
            $length = null;
            break;
        case 'time':
            $type[] = 'time';
            $length = null;
            break;
        case 'float':
        case 'double':
        case 'real':
            $type[] = 'float';
            break;
        case 'decimal':
        case 'numeric':
            $type[] = 'decimal';
            $length = $length.','.$field['decimal'];
            break;
        case 'tinyblob':
        case 'mediumblob':
        case 'longblob':
        case 'blob':
            $type[] = 'blob';
            $length = null;
            break;
        case 'year':
            $type[] = 'integer';
            $type[] = 'date';
            $length = null;
            break;
        default:
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }
            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                'unknown database attribute type: '.$db_type, __FUNCTION__);
        }

        if ((int)$length <= 0) {
            $length = null;
        }

        return array($type, $length, $unsigned, $fixed);
    }

    // }}}
}

?>

 program/lib/MDB2/Driver/Datatype/sqlsrv.php

New file
@@ -0,0 +1,451 @@
<?php
// vim: set et ts=4 sw=4 fdm=marker:
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2007 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Authors: Lukas Smith <smith@pooteeweet.org>                          |
// |          Daniel Convissor <danielc@php.net>                          |
// +----------------------------------------------------------------------+

require_once 'MDB2/Driver/Datatype/Common.php';

/**
 * MDB2 MS SQL driver
 *
 * @package MDB2
 * @category Database
 */
class MDB2_Driver_Datatype_sqlsrv extends MDB2_Driver_Datatype_Common
{
    // {{{ _baseConvertResult()

    /**
     * general type conversion method
     *
     * @param mixed   $value refernce to a value to be converted
     * @param string  $type  specifies which type to convert to
     * @param boolean $rtrim [optional] when TRUE [default], apply rtrim() to text
     * @return object a MDB2 error on failure
     * @access protected
     */
    function _baseConvertResult($value, $type, $rtrim = true)
    {
        if (null === $value) {
            return null;
        }
        switch ($type) {
        case 'boolean':
            return $value == '1';
        case 'date':
            if (strlen($value) > 10) {
                $value = substr($value,0,10);
            }
            return $value;
        case 'time':
            if (strlen($value) > 8) {
                $value = substr($value,11,8);
            }
            return $value;
        }
        return parent::_baseConvertResult($value, $type, $rtrim);
    }

    // }}}
    // {{{ _getCollationFieldDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to set the COLLATION
     * of a field declaration to be used in statements like CREATE TABLE.
     *
     * @param string $collation name of the collation
     *
     * @return string DBMS specific SQL code portion needed to set the COLLATION
     *                of a field declaration.
     */
    function _getCollationFieldDeclaration($collation)
    {
        return 'COLLATE '.$collation;
    }

    // }}}
    // {{{ getTypeDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an text type
     * field to be used in statements like CREATE TABLE.
     *
     * @param array $field  associative array with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      length
     *          Integer value that determines the maximum length of the text
     *          field. If this argument is missing the field should be
     *          declared to have the longest length allowed by the DBMS.
     *
     *      default
     *          Text value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *      declare the specified field.
     * @access public
     */
    function getTypeDeclaration($field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        switch ($field['type']) {
        case 'text':
            $length = !empty($field['length'])
                ? $field['length'] : false;
            $fixed = !empty($field['fixed']) ? $field['fixed'] : false;
            return $fixed ? ($length ? 'CHAR('.$length.')' : 'CHAR('.$db->options['default_text_field_length'].')')
                : ($length ? 'VARCHAR('.$length.')' : 'VARCHAR(MAX)');
        case 'clob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 8000) {
                    return 'VARCHAR('.$length.')';
                }
             }
             return 'VARCHAR(MAX)';
        case 'blob':
            if (!empty($field['length'])) {
                $length = $field['length'];
                if ($length <= 8000) {
                    return "VARBINARY($length)";
                }
            }
            return 'IMAGE';
        case 'integer':
            return 'INT';
        case 'boolean':
            return 'BIT';
        case 'date':
            return 'CHAR ('.strlen('YYYY-MM-DD').')';
        case 'time':
            return 'CHAR ('.strlen('HH:MM:SS').')';
        case 'timestamp':
            return 'CHAR ('.strlen('YYYY-MM-DD HH:MM:SS').')';
        case 'float':
            return 'FLOAT';
        case 'decimal':
            $length = !empty($field['length']) ? $field['length'] : 18;
            $scale = !empty($field['scale']) ? $field['scale'] : $db->options['decimal_places'];
            return 'DECIMAL('.$length.','.$scale.')';
        }
        return '';
    }

    // }}}
    // {{{ _getIntegerDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an integer type
     * field to be used in statements like CREATE TABLE.
     *
     * @param string  $name   name the field to be declared.
     * @param string  $field  associative array with the name of the properties
     *                        of the field being declared as array indexes.
     *                        Currently, the types of supported field
     *                        properties are as follows:
     *
     *                       unsigned
     *                        Boolean flag that indicates whether the field
     *                        should be declared as unsigned integer if
     *                        possible.
     *
     *                       default
     *                        Integer value to be used as default for this
     *                        field.
     *
     *                       notnull
     *                        Boolean flag that indicates whether this field is
     *                        constrained to not be set to null.
     * @return string  DBMS specific SQL code portion that should be used to
     *                 declare the specified field.
     * @access protected
     */
    function _getIntegerDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
        $default = $autoinc = '';
        if (!empty($field['autoincrement'])) {
            $autoinc = ' IDENTITY PRIMARY KEY';
        } elseif (array_key_exists('default', $field)) {
            if ($field['default'] === '') {
                $field['default'] = 0;
            }
            if (null === $field['default']) {
                $default = ' DEFAULT (NULL)';
            } else {
                $default = ' DEFAULT (' . $this->quote($field['default'], 'integer') . ')';
            }
        }

        if (!empty($field['unsigned'])) {
            $db->warnings[] = "unsigned integer field \"$name\" is being declared as signed integer";
        }

        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$notnull.$default.$autoinc;
    }

    // }}}
    // {{{ _getCLOBDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an character
     * large object type field to be used in statements like CREATE TABLE.
     *
     * @param string $name name the field to be declared.
     * @param array $field associative array with the name of the properties
     *        of the field being declared as array indexes. Currently, the types
     *        of supported field properties are as follows:
     *
     *        length
     *            Integer value that determines the maximum length of the large
     *            object field. If this argument is missing the field should be
     *            declared to have the longest length allowed by the DBMS.
     *
     *        notnull
     *            Boolean flag that indicates whether this field is constrained
     *            to not be set to null.
     * @return string DBMS specific SQL code portion that should be used to
     *        declare the specified field.
     * @access public
     */
    function _getCLOBDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$notnull;
    }

    // }}}
    // {{{ _getBLOBDeclaration()

    /**
     * Obtain DBMS specific SQL code portion needed to declare an binary large
     * object type field to be used in statements like CREATE TABLE.
     *
     * @param string $name name the field to be declared.
     * @param array $field associative array with the name of the properties
     *        of the field being declared as array indexes. Currently, the types
     *        of supported field properties are as follows:
     *
     *        length
     *            Integer value that determines the maximum length of the large
     *            object field. If this argument is missing the field should be
     *            declared to have the longest length allowed by the DBMS.
     *
     *        notnull
     *            Boolean flag that indicates whether this field is constrained
     *            to not be set to null.
     * @return string DBMS specific SQL code portion that should be used to
     *        declare the specified field.
     * @access protected
     */
    function _getBLOBDeclaration($name, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $notnull = empty($field['notnull']) ? ' NULL' : ' NOT NULL';
        $name = $db->quoteIdentifier($name, true);
        return $name.' '.$this->getTypeDeclaration($field).$notnull;
    }

    // }}}
    // {{{ _quoteBLOB()

    /**
     * Convert a text value into a DBMS specific format that is suitable to
     * compose query statements.
     *
     * @param string $value text string value that is intended to be converted.
     * @param bool $quote determines if the value should be quoted and escaped
     * @param bool $escape_wildcards if to escape escape wildcards
     * @return string  text string that represents the given argument value in
     *                 a DBMS specific format.
     * @access protected
     */
    function _quoteBLOB($value, $quote, $escape_wildcards)
    {
        if (!$quote) {
            return $value;
        }
        $value = '0x'.bin2hex($this->_readFile($value));
        return $value;
    }

    // }}}
    // {{{ _mapNativeDatatype()

    /**
     * Maps a native array description of a field to a MDB2 datatype and length
     *
     * @param array  $field native field description
     * @return array containing the various possible types, length, sign, fixed
     * @access public
     */
    function _mapNativeDatatype($field)
    {
        // todo: handle length of various int variations
        $db_type = $field['type'];
        $length = $field['length'];
        $type = array();
        // todo: unsigned handling seems to be missing
        $unsigned = $fixed = null;
        switch ($db_type) {
        case 'bit':
        case SQLSRV_SQLTYPE_BIT:
            $type[0] = 'boolean';
            break;
        case 'tinyint':
        case SQLSRV_SQLTYPE_TINYINT:
            $type[0] = 'integer';
            $length = 1;
            break;
        case 'smallint':
        case SQLSRV_SQLTYPE_SMALLINT:
            $type[0] = 'integer';
            $length = 2;
            break;
        case 'int':
        case SQLSRV_SQLTYPE_INT:
            $type[0] = 'integer';
            $length = 4;
            break;
        case 'bigint':
        case SQLSRV_SQLTYPE_BIGINT:
            $type[0] = 'integer';
            $length = 8;
            break;
        case 'datetime':
        case SQLSRV_SQLTYPE_DATETIME:
            $type[0] = 'timestamp';
            break;
        case 'float':
        case SQLSRV_SQLTYPE_FLOAT:
        case 'real':
        case SQLSRV_SQLTYPE_REAL:
            $type[0] = 'float';
            break;
        case 'numeric':
        case SQLSRV_SQLTYPE_NUMERIC:
        case 'decimal':
        case SQLSRV_SQLTYPE_DECIMAL:
        case 'money':
        case SQLSRV_SQLTYPE_MONEY:
            $type[0] = 'decimal';
            $length = $field['numeric_precision'].','.$field['numeric_scale'];
            break;
        case 'text':
        case SQLSRV_SQLTYPE_TEXT:
        case 'ntext':
        case SQLSRV_SQLTYPE_NTEXT:
        case 'varchar':
        case SQLSRV_SQLTYPE_VARCHAR:
        case 'nvarchar':
        case SQLSRV_SQLTYPE_NVARCHAR:
            $fixed = false;
        case 'char':
        case SQLSRV_SQLTYPE_CHAR:
        case 'nchar':
        case SQLSRV_SQLTYPE_NCHAR:
            $type[0] = 'text';
            if ($length == '1') {
                $type[] = 'boolean';
                if (preg_match('/^(is|has)/', $field['name'])) {
                    $type = array_reverse($type);
                }
            } elseif (strstr($db_type, 'text') || strstr($db_type, SQLSRV_SQLTYPE_TEXT)) {
                $type[] = 'clob';
                $type = array_reverse($type);
            }
            if ($fixed !== false) {
                $fixed = true;
            }
            break;
        case 'image':
        case SQLSRV_SQLTYPE_IMAGE:
        case 'varbinary':
        case SQLSRV_SQLTYPE_VARBINARY:
            $type[] = 'blob';
            $length = null;
            break;
        default:
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }
            return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
                'unknown database attribute type: '.$db_type, __FUNCTION__);
        }

        if ((int)$length <= 0) {
            $length = null;
        }

        return array($type, $length, $unsigned, $fixed);
    }
    // }}}
}

?>

 program/lib/MDB2/Driver/Function/Common.php

@@ -1,293 +1,293 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2006 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: Common.php,v 1.21 2008/02/17 18:51:39 quipo Exp $

//



/**

 * @package  MDB2

 * @category Database

 * @author   Lukas Smith <smith@pooteeweet.org>

 */



/**

 * Base class for the function modules that is extended by each MDB2 driver

 *

 * To load this module in the MDB2 object:

 * $mdb->loadModule('Function');

 *

 * @package  MDB2

 * @category Database

 * @author   Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_Common extends MDB2_Module_Common

{

    // {{{ executeStoredProc()



    /**

     * Execute a stored procedure and return any results

     *

     * @param string $name string that identifies the function to execute

     * @param mixed  $params  array that contains the paramaters to pass the stored proc

     * @param mixed   $types  array that contains the types of the columns in

     *                        the result set

     * @param mixed $result_class string which specifies which result class to use

     * @param mixed $result_wrap_class string which specifies which class to wrap results in

     *

     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

        return $error;

    }



    // }}}

    // {{{ functionTable()



    /**

     * return string for internal table used when calling only a function

     *

     * @return string for internal table used when calling only a function

     * @access public

     */

    function functionTable()

    {

        return '';

    }



    // }}}

    // {{{ now()



    /**

     * Return string to call a variable with the current timestamp inside an SQL statement

     * There are three special variables for current date and time:

     * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)

     * - CURRENT_DATE (date, DATE type)

     * - CURRENT_TIME (time, TIME type)

     *

     * @param string $type 'timestamp' | 'time' | 'date'

     *

     * @return string to call a variable with the current timestamp

     * @access public

     */

    function now($type = 'timestamp')

    {

        switch ($type) {

        case 'time':

            return 'CURRENT_TIME';

        case 'date':

            return 'CURRENT_DATE';

        case 'timestamp':

        default:

            return 'CURRENT_TIMESTAMP';

        }

    }



    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

        return $error;

    }



    // }}}

    // {{{ substring()



    /**

     * return string to call a function to get a substring inside an SQL statement

     *

     * @return string to call a function to get a substring

     * @access public

     */

    function substring($value, $position = 1, $length = null)

    {

        if (!is_null($length)) {

            return "SUBSTRING($value FROM $position FOR $length)";

        }

        return "SUBSTRING($value FROM $position)";

    }



    // }}}

    // {{{ replace()



    /**

     * return string to call a function to get replace inside an SQL statement.

     *

     * @return string to call a function to get a replace

     * @access public

     */

    function replace($str, $from_str, $to_str)

    {

        return "REPLACE($str, $from_str , $to_str)";

    }



    // }}}

    // {{{ concat()



    /**

     * Returns string to concatenate two or more string parameters

     *

     * @param string $value1

     * @param string $value2

     * @param string $values...

     *

     * @return string to concatenate two strings

     * @access public

     */

    function concat($value1, $value2)

    {

        $args = func_get_args();

        return "(".implode(' || ', $args).")";

    }



    // }}}

    // {{{ random()



    /**

     * return string to call a function to get random value inside an SQL statement

     *

     * @return return string to generate float between 0 and 1

     * @access public

     */

    function random()

    {

        return 'RAND()';

    }



    // }}}

    // {{{ lower()



    /**

     * return string to call a function to lower the case of an expression

     *

     * @param string $expression

     *

     * @return return string to lower case of an expression

     * @access public

     */

    function lower($expression)

    {

        return "LOWER($expression)";

    }



    // }}}

    // {{{ upper()



    /**

     * return string to call a function to upper the case of an expression

     *

     * @param string $expression

     *

     * @return return string to upper case of an expression

     * @access public

     */

    function upper($expression)

    {

        return "UPPER($expression)";

    }



    // }}}

    // {{{ length()



    /**

     * return string to call a function to get the length of a string expression

     *

     * @param string $expression

     *

     * @return return string to get the string expression length

     * @access public

     */

    function length($expression)

    {

        return "LENGTH($expression)";

    }



    // }}}

    // {{{ guid()



    /**

     * Returns global unique identifier

     *

     * @return string to get global unique identifier

     * @access public

     */

    function guid()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

        return $error;

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2006 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: Common.php 292715 2009-12-28 14:06:34Z quipo $
//

/**
 * @package  MDB2
 * @category Database
 * @author   Lukas Smith <smith@pooteeweet.org>
 */

/**
 * Base class for the function modules that is extended by each MDB2 driver
 *
 * To load this module in the MDB2 object:
 * $mdb->loadModule('Function');
 *
 * @package  MDB2
 * @category Database
 * @author   Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_Common extends MDB2_Module_Common
{
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     *
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
        return $error;
    }

    // }}}
    // {{{ functionTable()

    /**
     * return string for internal table used when calling only a function
     *
     * @return string for internal table used when calling only a function
     * @access public
     */
    function functionTable()
    {
        return '';
    }

    // }}}
    // {{{ now()

    /**
     * Return string to call a variable with the current timestamp inside an SQL statement
     * There are three special variables for current date and time:
     * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)
     * - CURRENT_DATE (date, DATE type)
     * - CURRENT_TIME (time, TIME type)
     *
     * @param string $type 'timestamp' | 'time' | 'date'
     *
     * @return string to call a variable with the current timestamp
     * @access public
     */
    function now($type = 'timestamp')
    {
        switch ($type) {
        case 'time':
            return 'CURRENT_TIME';
        case 'date':
            return 'CURRENT_DATE';
        case 'timestamp':
        default:
            return 'CURRENT_TIMESTAMP';
        }
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
        return $error;
    }

    // }}}
    // {{{ substring()

    /**
     * return string to call a function to get a substring inside an SQL statement
     *
     * @return string to call a function to get a substring
     * @access public
     */
    function substring($value, $position = 1, $length = null)
    {
        if (null !== $length) {
            return "SUBSTRING($value FROM $position FOR $length)";
        }
        return "SUBSTRING($value FROM $position)";
    }

    // }}}
    // {{{ replace()

    /**
     * return string to call a function to get replace inside an SQL statement.
     *
     * @return string to call a function to get a replace
     * @access public
     */
    function replace($str, $from_str, $to_str)
    {
        return "REPLACE($str, $from_str , $to_str)";
    }

    // }}}
    // {{{ concat()

    /**
     * Returns string to concatenate two or more string parameters
     *
     * @param string $value1
     * @param string $value2
     * @param string $values...
     *
     * @return string to concatenate two strings
     * @access public
     */
    function concat($value1, $value2)
    {
        $args = func_get_args();
        return "(".implode(' || ', $args).")";
    }

    // }}}
    // {{{ random()

    /**
     * return string to call a function to get random value inside an SQL statement
     *
     * @return return string to generate float between 0 and 1
     * @access public
     */
    function random()
    {
        return 'RAND()';
    }

    // }}}
    // {{{ lower()

    /**
     * return string to call a function to lower the case of an expression
     *
     * @param string $expression
     *
     * @return return string to lower case of an expression
     * @access public
     */
    function lower($expression)
    {
        return "LOWER($expression)";
    }

    // }}}
    // {{{ upper()

    /**
     * return string to call a function to upper the case of an expression
     *
     * @param string $expression
     *
     * @return return string to upper case of an expression
     * @access public
     */
    function upper($expression)
    {
        return "UPPER($expression)";
    }

    // }}}
    // {{{ length()

    /**
     * return string to call a function to get the length of a string expression
     *
     * @param string $expression
     *
     * @return return string to get the string expression length
     * @access public
     */
    function length($expression)
    {
        return "LENGTH($expression)";
    }

    // }}}
    // {{{ guid()

    /**
     * Returns global unique identifier
     *
     * @return string to get global unique identifier
     * @access public
     */
    function guid()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
        return $error;
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Function/mssql.php

@@ -1,193 +1,193 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Frank M. Kromann <frank@kromann.info>                        |

// +----------------------------------------------------------------------+

//

// $Id: mssql.php,v 1.16 2008/02/17 18:54:08 quipo Exp $

//



require_once 'MDB2/Driver/Function/Common.php';



// {{{ class MDB2_Driver_Function_mssql

/**

 * MDB2 MSSQL driver for the function modules

 *

 * @package MDB2

 * @category Database

 * @author Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_mssql extends MDB2_Driver_Function_Common

{

    // {{{ executeStoredProc()



    /**

     * Execute a stored procedure and return any results

     *

     * @param string $name string that identifies the function to execute

     * @param mixed  $params  array that contains the paramaters to pass the stored proc

     * @param mixed   $types  array that contains the types of the columns in

     *                        the result set

     * @param mixed $result_class string which specifies which result class to use

     * @param mixed $result_wrap_class string which specifies which class to wrap results in

     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'EXECUTE '.$name;

        $query .= $params ? ' '.implode(', ', $params) : '';

        return $db->query($query, $types, $result_class, $result_wrap_class);

    }



    // }}}

    // {{{ now()



    /**

     * Return string to call a variable with the current timestamp inside an SQL statement

     * There are three special variables for current date and time:

     * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)

     * - CURRENT_DATE (date, DATE type)

     * - CURRENT_TIME (time, TIME type)

     *

     * @return string to call a variable with the current timestamp

     * @access public

     */

    function now($type = 'timestamp')

    {

        switch ($type) {

        case 'time':

        case 'date':

        case 'timestamp':

        default:

            return 'GETDATE()';

        }

    }



    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        return 'DATEDIFF(second, \'19700101\', '. $expression.') + DATEDIFF(second, GETDATE(), GETUTCDATE())';

    }



    // }}}

    // {{{ substring()



    /**

     * return string to call a function to get a substring inside an SQL statement

     *

     * @return string to call a function to get a substring

     * @access public

     */

    function substring($value, $position = 1, $length = null)

    {

        if (!is_null($length)) {

            return "SUBSTRING($value, $position, $length)";

        }

        return "SUBSTRING($value, $position, LEN($value) - $position + 1)";

    }



    // }}}

    // {{{ concat()



    /**

     * Returns string to concatenate two or more string parameters

     *

     * @param string $value1

     * @param string $value2

     * @param string $values...

     * @return string to concatenate two strings

     * @access public

     **/

    function concat($value1, $value2)

    {

        $args = func_get_args();

        return "(".implode(' + ', $args).")";

    }



    // }}}

    // {{{ length()



    /**

     * return string to call a function to get the length of a string expression

     *

     * @param string $expression

     * @return return string to get the string expression length

     * @access public

     */

    function length($expression)

    {

        return "LEN($expression)";

    }



    // }}}

    // {{{ guid()



    /**

     * Returns global unique identifier

     *

     * @return string to get global unique identifier

     * @access public

     */

    function guid()

    {

        return 'NEWID()';

    }



    // }}}

}

// }}}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Frank M. Kromann <frank@kromann.info>                        |
// +----------------------------------------------------------------------+
//
// $Id: mssql.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Function/Common.php';

// {{{ class MDB2_Driver_Function_mssql
/**
 * MDB2 MSSQL driver for the function modules
 *
 * @package MDB2
 * @category Database
 * @author Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_mssql extends MDB2_Driver_Function_Common
{
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'EXECUTE '.$name;
        $query .= $params ? ' '.implode(', ', $params) : '';
        return $db->query($query, $types, $result_class, $result_wrap_class);
    }

    // }}}
    // {{{ now()

    /**
     * Return string to call a variable with the current timestamp inside an SQL statement
     * There are three special variables for current date and time:
     * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)
     * - CURRENT_DATE (date, DATE type)
     * - CURRENT_TIME (time, TIME type)
     *
     * @return string to call a variable with the current timestamp
     * @access public
     */
    function now($type = 'timestamp')
    {
        switch ($type) {
        case 'time':
        case 'date':
        case 'timestamp':
        default:
            return 'GETDATE()';
        }
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'DATEDIFF(second, \'19700101\', '. $expression.') + DATEDIFF(second, GETDATE(), GETUTCDATE())';
    }

    // }}}
    // {{{ substring()

    /**
     * return string to call a function to get a substring inside an SQL statement
     *
     * @return string to call a function to get a substring
     * @access public
     */
    function substring($value, $position = 1, $length = null)
    {
        if (null !== $length) {
            return "SUBSTRING($value, $position, $length)";
        }
        return "SUBSTRING($value, $position, LEN($value) - $position + 1)";
    }

    // }}}
    // {{{ concat()

    /**
     * Returns string to concatenate two or more string parameters
     *
     * @param string $value1
     * @param string $value2
     * @param string $values...
     * @return string to concatenate two strings
     * @access public
     **/
    function concat($value1, $value2)
    {
        $args = func_get_args();
        return "(".implode(' + ', $args).")";
    }

    // }}}
    // {{{ length()

    /**
     * return string to call a function to get the length of a string expression
     *
     * @param string $expression
     * @return return string to get the string expression length
     * @access public
     */
    function length($expression)
    {
        return "LEN($expression)";
    }

    // }}}
    // {{{ guid()

    /**
     * Returns global unique identifier
     *
     * @return string to get global unique identifier
     * @access public
     */
    function guid()
    {
        return 'NEWID()';
    }

    // }}}
}
// }}}
?>

 program/lib/MDB2/Driver/Function/mysql.php

@@ -1,136 +1,136 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysql.php,v 1.12 2008/02/17 18:54:08 quipo Exp $

//



require_once 'MDB2/Driver/Function/Common.php';



/**

 * MDB2 MySQL driver for the function modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_mysql extends MDB2_Driver_Function_Common

{

     // }}}

    // {{{ executeStoredProc()



    /**

     * Execute a stored procedure and return any results

     *

     * @param string $name string that identifies the function to execute

     * @param mixed  $params  array that contains the paramaters to pass the stored proc

     * @param mixed   $types  array that contains the types of the columns in

     *                        the result set

     * @param mixed $result_class string which specifies which result class to use

     * @param mixed $result_wrap_class string which specifies which class to wrap results in

     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'CALL '.$name;

        $query .= $params ? '('.implode(', ', $params).')' : '()';

        return $db->query($query, $types, $result_class, $result_wrap_class);

    }



    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        return 'UNIX_TIMESTAMP('. $expression.')';

    }



    // }}}

    // {{{ concat()



    /**

     * Returns string to concatenate two or more string parameters

     *

     * @param string $value1

     * @param string $value2

     * @param string $values...

     * @return string to concatenate two strings

     * @access public

     **/

    function concat($value1, $value2)

    {

        $args = func_get_args();

        return "CONCAT(".implode(', ', $args).")";

    }



    // }}}

    // {{{ guid()



    /**

     * Returns global unique identifier

     *

     * @return string to get global unique identifier

     * @access public

     */

    function guid()

    {

        return 'UUID()';

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysql.php 253106 2008-02-17 18:54:08Z quipo $
//

require_once 'MDB2/Driver/Function/Common.php';

/**
 * MDB2 MySQL driver for the function modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_mysql extends MDB2_Driver_Function_Common
{
     // }}}
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'CALL '.$name;
        $query .= $params ? '('.implode(', ', $params).')' : '()';
        return $db->query($query, $types, $result_class, $result_wrap_class);
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'UNIX_TIMESTAMP('. $expression.')';
    }

    // }}}
    // {{{ concat()

    /**
     * Returns string to concatenate two or more string parameters
     *
     * @param string $value1
     * @param string $value2
     * @param string $values...
     * @return string to concatenate two strings
     * @access public
     **/
    function concat($value1, $value2)
    {
        $args = func_get_args();
        return "CONCAT(".implode(', ', $args).")";
    }

    // }}}
    // {{{ guid()

    /**
     * Returns global unique identifier
     *
     * @return string to get global unique identifier
     * @access public
     */
    function guid()
    {
        return 'UUID()';
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Function/mysqli.php

@@ -1,144 +1,144 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysqli.php,v 1.14 2008/02/17 18:54:08 quipo Exp $

//



require_once 'MDB2/Driver/Function/Common.php';



/**

 * MDB2 MySQLi driver for the function modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_mysqli extends MDB2_Driver_Function_Common

{

     // }}}

    // {{{ executeStoredProc()



    /**

     * Execute a stored procedure and return any results

     *

     * @param string $name string that identifies the function to execute

     * @param mixed  $params  array that contains the paramaters to pass the stored proc

     * @param mixed   $types  array that contains the types of the columns in

     *                        the result set

     * @param mixed $result_class string which specifies which result class to use

     * @param mixed $result_wrap_class string which specifies which class to wrap results in

     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $multi_query = $db->getOption('multi_query');

        if (!$multi_query) {

            $db->setOption('multi_query', true);

        }

        $query = 'CALL '.$name;

        $query .= $params ? '('.implode(', ', $params).')' : '()';

        $result =& $db->query($query, $types, $result_class, $result_wrap_class);

        if (!$multi_query) {

            $db->setOption('multi_query', false);

        }

        return $result;

    }



    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        return 'UNIX_TIMESTAMP('. $expression.')';

    }



    // }}}

    // {{{ concat()



    /**

     * Returns string to concatenate two or more string parameters

     *

     * @param string $value1

     * @param string $value2

     * @param string $values...

     * @return string to concatenate two strings

     * @access public

     **/

    function concat($value1, $value2)

    {

        $args = func_get_args();

        return "CONCAT(".implode(', ', $args).")";

    }



    // }}}

    // {{{ guid()



    /**

     * Returns global unique identifier

     *

     * @return string to get global unique identifier

     * @access public

     */

    function guid()

    {

        return 'UUID()';

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysqli.php 253106 2008-02-17 18:54:08Z quipo $
//

require_once 'MDB2/Driver/Function/Common.php';

/**
 * MDB2 MySQLi driver for the function modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_mysqli extends MDB2_Driver_Function_Common
{
     // }}}
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $multi_query = $db->getOption('multi_query');
        if (!$multi_query) {
            $db->setOption('multi_query', true);
        }
        $query = 'CALL '.$name;
        $query .= $params ? '('.implode(', ', $params).')' : '()';
        $result =& $db->query($query, $types, $result_class, $result_wrap_class);
        if (!$multi_query) {
            $db->setOption('multi_query', false);
        }
        return $result;
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'UNIX_TIMESTAMP('. $expression.')';
    }

    // }}}
    // {{{ concat()

    /**
     * Returns string to concatenate two or more string parameters
     *
     * @param string $value1
     * @param string $value2
     * @param string $values...
     * @return string to concatenate two strings
     * @access public
     **/
    function concat($value1, $value2)
    {
        $args = func_get_args();
        return "CONCAT(".implode(', ', $args).")";
    }

    // }}}
    // {{{ guid()

    /**
     * Returns global unique identifier
     *
     * @return string to get global unique identifier
     * @access public
     */
    function guid()
    {
        return 'UUID()';
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Function/pgsql.php

@@ -1,115 +1,115 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Paul Cooper <pgc@ucecom.com>                                 |

// +----------------------------------------------------------------------+

//

// $Id: pgsql.php,v 1.10 2008/02/17 18:54:08 quipo Exp $



require_once 'MDB2/Driver/Function/Common.php';



/**

 * MDB2 MySQL driver for the function modules

 *

 * @package MDB2

 * @category Database

 * @author Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_pgsql extends MDB2_Driver_Function_Common

{

    // {{{ executeStoredProc()



    /**

     * Execute a stored procedure and return any results

     *

     * @param string $name string that identifies the function to execute

     * @param mixed  $params  array that contains the paramaters to pass the stored proc

     * @param mixed   $types  array that contains the types of the columns in

     *                        the result set

     * @param mixed $result_class string which specifies which result class to use

     * @param mixed $result_wrap_class string which specifies which class to wrap results in

     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'SELECT * FROM '.$name;

        $query .= $params ? '('.implode(', ', $params).')' : '()';

        return $db->query($query, $types, $result_class, $result_wrap_class);

    }

    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        return 'EXTRACT(EPOCH FROM DATE_TRUNC(\'seconds\', TIMESTAMP '. $expression.'))';

    }



    // }}}

    // {{{ random()



    /**

     * return string to call a function to get random value inside an SQL statement

     *

     * @return return string to generate float between 0 and 1

     * @access public

     */

    function random()

    {

        return 'RANDOM()';

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Paul Cooper <pgc@ucecom.com>                                 |
// +----------------------------------------------------------------------+
//
// $Id: pgsql.php 268669 2008-11-09 19:46:50Z quipo $

require_once 'MDB2/Driver/Function/Common.php';

/**
 * MDB2 MySQL driver for the function modules
 *
 * @package MDB2
 * @category Database
 * @author Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_pgsql extends MDB2_Driver_Function_Common
{
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'SELECT * FROM '.$name;
        $query .= $params ? '('.implode(', ', $params).')' : '()';
        return $db->query($query, $types, $result_class, $result_wrap_class);
    }
    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'EXTRACT(EPOCH FROM DATE_TRUNC(\'seconds\', CAST ((' . $expression . ') AS TIMESTAMP)))';
    }

    // }}}
    // {{{ random()

    /**
     * return string to call a function to get random value inside an SQL statement
     *
     * @return return string to generate float between 0 and 1
     * @access public
     */
    function random()
    {
        return 'RANDOM()';
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Function/sqlite.php

@@ -1,162 +1,162 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: sqlite.php,v 1.10 2008/02/17 18:54:08 quipo Exp $

//



require_once 'MDB2/Driver/Function/Common.php';



/**

 * MDB2 SQLite driver for the function modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Function_sqlite extends MDB2_Driver_Function_Common

{

    // {{{ constructor



    /**

     * Constructor

     */

    function __construct($db_index)

    {

        parent::__construct($db_index);

        // create all sorts of UDFs

    }



    // {{{ now()



    /**

     * Return string to call a variable with the current timestamp inside an SQL statement

     * There are three special variables for current date and time.

     *

     * @return string to call a variable with the current timestamp

     * @access public

     */

    function now($type = 'timestamp')

    {

        switch ($type) {

        case 'time':

            return 'time(\'now\')';

        case 'date':

            return 'date(\'now\')';

        case 'timestamp':

        default:

            return 'datetime(\'now\')';

        }

    }



    // }}}

    // {{{ unixtimestamp()



    /**

     * return string to call a function to get the unix timestamp from a iso timestamp

     *

     * @param string $expression

     *

     * @return string to call a variable with the timestamp

     * @access public

     */

    function unixtimestamp($expression)

    {

        return 'strftime("%s",'. $expression.', "utc")';

    }



    // }}}

    // {{{ substring()



    /**

     * return string to call a function to get a substring inside an SQL statement

     *

     * @return string to call a function to get a substring

     * @access public

     */

    function substring($value, $position = 1, $length = null)

    {

        if (!is_null($length)) {

            return "substr($value,$position,$length)";

        }

        return "substr($value,$position,length($value))";

    }



    // }}}

    // {{{ random()



    /**

     * return string to call a function to get random value inside an SQL statement

     *

     * @return return string to generate float between 0 and 1

     * @access public

     */

    function random()

    {

        return '((RANDOM()+2147483648)/4294967296)';

    }



    // }}}

    // {{{ replace()



    /**

     * return string to call a function to get a replacement inside an SQL statement.

     *

     * @return string to call a function to get a replace

     * @access public

     */

    function replace($str, $from_str, $to_str)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

        return $error;

    }



    // }}}

}

?>

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: sqlite.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Function/Common.php';

/**
 * MDB2 SQLite driver for the function modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Function_sqlite extends MDB2_Driver_Function_Common
{
    // {{{ constructor

    /**
     * Constructor
     */
    function __construct($db_index)
    {
        parent::__construct($db_index);
        // create all sorts of UDFs
    }

    // {{{ now()

    /**
     * Return string to call a variable with the current timestamp inside an SQL statement
     * There are three special variables for current date and time.
     *
     * @return string to call a variable with the current timestamp
     * @access public
     */
    function now($type = 'timestamp')
    {
        switch ($type) {
        case 'time':
            return 'time(\'now\')';
        case 'date':
            return 'date(\'now\')';
        case 'timestamp':
        default:
            return 'datetime(\'now\')';
        }
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'strftime("%s",'. $expression.', "utc")';
    }

    // }}}
    // {{{ substring()

    /**
     * return string to call a function to get a substring inside an SQL statement
     *
     * @return string to call a function to get a substring
     * @access public
     */
    function substring($value, $position = 1, $length = null)
    {
        if (null !== $length) {
            return "substr($value, $position, $length)";
        }
        return "substr($value, $position, length($value))";
    }

    // }}}
    // {{{ random()

    /**
     * return string to call a function to get random value inside an SQL statement
     *
     * @return return string to generate float between 0 and 1
     * @access public
     */
    function random()
    {
        return '((RANDOM()+2147483648)/4294967296)';
    }

    // }}}
    // {{{ replace()

    /**
     * return string to call a function to get a replacement inside an SQL statement.
     *
     * @return string to call a function to get a replace
     * @access public
     */
    function replace($str, $from_str, $to_str)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $error =& $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
        return $error;
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Function/sqlsrv.php

New file
@@ -0,0 +1,189 @@
<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Frank M. Kromann <frank@kromann.info>                        |
// +----------------------------------------------------------------------+

require_once 'MDB2/Driver/Function/Common.php';

// {{{ class MDB2_Driver_Function_sqlsrv
/**
 * MDB2 MSSQL driver for the function modules
 *
 * @package MDB2
 * @category Database
 */
class MDB2_Driver_Function_sqlsrv extends MDB2_Driver_Function_Common
{
    // {{{ executeStoredProc()

    /**
     * Execute a stored procedure and return any results
     *
     * @param string $name string that identifies the function to execute
     * @param mixed  $params  array that contains the paramaters to pass the stored proc
     * @param mixed   $types  array that contains the types of the columns in
     *                        the result set
     * @param mixed $result_class string which specifies which result class to use
     * @param mixed $result_wrap_class string which specifies which class to wrap results in
     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function &executeStoredProc($name, $params = null, $types = null, $result_class = true, $result_wrap_class = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'EXECUTE '.$name;
        $query .= $params ? ' '.implode(', ', $params) : '';
        return $db->query($query, $types, $result_class, $result_wrap_class);
    }

    // }}}
    // {{{ now()

    /**
     * Return string to call a variable with the current timestamp inside an SQL statement
     * There are three special variables for current date and time:
     * - CURRENT_TIMESTAMP (date and time, TIMESTAMP type)
     * - CURRENT_DATE (date, DATE type)
     * - CURRENT_TIME (time, TIME type)
     *
     * @return string to call a variable with the current timestamp
     * @access public
     */
    function now($type = 'timestamp')
    {
        switch ($type) {
        case 'time':
        case 'date':
        case 'timestamp':
        default:
            return 'GETDATE()';
        }
    }

    // }}}
    // {{{ unixtimestamp()

    /**
     * return string to call a function to get the unix timestamp from a iso timestamp
     *
     * @param string $expression
     *
     * @return string to call a variable with the timestamp
     * @access public
     */
    function unixtimestamp($expression)
    {
        return 'DATEDIFF(second, \'19700101\', '. $expression.') + DATEDIFF(second, GETDATE(), GETUTCDATE())';
    }

    // }}}
    // {{{ substring()

    /**
     * return string to call a function to get a substring inside an SQL statement
     *
     * @return string to call a function to get a substring
     * @access public
     */
    function substring($value, $position = 1, $length = null)
    {
        if (null !== $length) {
            return "SUBSTRING($value, $position, $length)";
        }
        return "SUBSTRING($value, $position, LEN($value) - $position + 1)";
    }

    // }}}
    // {{{ concat()

    /**
     * Returns string to concatenate two or more string parameters
     *
     * @param string $value1
     * @param string $value2
     * @param string $values...
     * @return string to concatenate two strings
     * @access public
     **/
    function concat($value1, $value2)
    {
        $args = func_get_args();
        return "(".implode(' + ', $args).")";
    }

    // }}}
    // {{{ length()

    /**
     * return string to call a function to get the length of a string expression
     *
     * @param string $expression
     * @return return string to get the string expression length
     * @access public
     */
    function length($expression)
    {
        return "LEN($expression)";
    }

    // }}}
    // {{{ guid()

    /**
     * Returns global unique identifier
     *
     * @return string to get global unique identifier
     * @access public
     */
    function guid()
    {
        return 'NEWID()';
    }

    // }}}
}
// }}}
?>

 program/lib/MDB2/Driver/Manager/Common.php

@@ -1,1010 +1,1014 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Authors: Lukas Smith <smith@pooteeweet.org>                          |

// |          Lorenzo Alberton <l.alberton@quipo.it>                      |

// +----------------------------------------------------------------------+

//

// $Id: Common.php,v 1.71 2008/02/12 23:12:27 quipo Exp $

//



/**

 * @package  MDB2

 * @category Database

 * @author   Lukas Smith <smith@pooteeweet.org>

 * @author   Lorenzo Alberton <l.alberton@quipo.it>

 */



/**

 * Base class for the management modules that is extended by each MDB2 driver

 *

 * To load this module in the MDB2 object:

 * $mdb->loadModule('Manager');

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Manager_Common extends MDB2_Module_Common

{

    // {{{ splitTableSchema()



    /**

     * Split the "[owner|schema].table" notation into an array

     * @access private

     */

    function splitTableSchema($table)

    {

        $ret = array();

        if (strpos($table, '.') !== false) {

            return explode('.', $table);

        }

        return array(null, $table);

    }



    // }}}

    // {{{ getFieldDeclarationList()



    /**

     * Get declaration of a number of field in bulk

     *

     * @param array $fields  a multidimensional associative array.

     *      The first dimension determines the field name, while the second

     *      dimension is keyed with the name of the properties

     *      of the field being declared as array indexes. Currently, the types

     *      of supported field properties are as follows:

     *

     *      default

     *          Boolean value to be used as default for this field.

     *

     *      notnull

     *          Boolean flag that indicates whether this field is constrained

     *          to not be set to null.

     *

     * @return mixed string on success, a MDB2 error on failure

     * @access public

     */

    function getFieldDeclarationList($fields)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!is_array($fields) || empty($fields)) {

            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

                'missing any fields', __FUNCTION__);

        }

        foreach ($fields as $field_name => $field) {

            $query = $db->getDeclaration($field['type'], $field_name, $field);

            if (PEAR::isError($query)) {

                return $query;

            }

            $query_fields[] = $query;

        }

        return implode(', ', $query_fields);

    }



    // }}}

    // {{{ _fixSequenceName()



    /**

     * Removes any formatting in an sequence name using the 'seqname_format' option

     *

     * @param string $sqn string that containts name of a potential sequence

     * @param bool $check if only formatted sequences should be returned

     * @return string name of the sequence with possible formatting removed

     * @access protected

     */

    function _fixSequenceName($sqn, $check = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $seq_pattern = '/^'.preg_replace('/%s/', '([a-z0-9_]+)', $db->options['seqname_format']).'$/i';

        $seq_name = preg_replace($seq_pattern, '\\1', $sqn);

        if ($seq_name && !strcasecmp($sqn, $db->getSequenceName($seq_name))) {

            return $seq_name;

        }

        if ($check) {

            return false;

        }

        return $sqn;

    }



    // }}}

    // {{{ _fixIndexName()



    /**

     * Removes any formatting in an index name using the 'idxname_format' option

     *

     * @param string $idx string that containts name of anl index

     * @return string name of the index with eventual formatting removed

     * @access protected

     */

    function _fixIndexName($idx)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $idx_pattern = '/^'.preg_replace('/%s/', '([a-z0-9_]+)', $db->options['idxname_format']).'$/i';

        $idx_name = preg_replace($idx_pattern, '\\1', $idx);

        if ($idx_name && !strcasecmp($idx, $db->getIndexName($idx_name))) {

            return $idx_name;

        }

        return $idx;

    }



    // }}}

    // {{{ createDatabase()



    /**

     * create a new database

     *

     * @param string $name    name of the database that should be created

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createDatabase($database, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ alterDatabase()



    /**

     * alter an existing database

     *

     * @param string $name    name of the database that should be created

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function alterDatabase($database, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ dropDatabase()



    /**

     * drop an existing database

     *

     * @param string $name name of the database that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropDatabase($database)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ _getCreateTableQuery()



    /**

     * Create a basic SQL query for a new table creation

     *

     * @param string $name    Name of the database that should be created

     * @param array  $fields  Associative array that contains the definition of each field of the new table

     * @param array  $options An associative array of table options

     *

     * @return mixed string (the SQL query) on success, a MDB2 error on failure

     * @see createTable()

     */

    function _getCreateTableQuery($name, $fields, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!$name) {

            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,

                'no valid table name specified', __FUNCTION__);

        }

        if (empty($fields)) {

            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,

                'no fields specified for table "'.$name.'"', __FUNCTION__);

        }

        $query_fields = $this->getFieldDeclarationList($fields);

        if (PEAR::isError($query_fields)) {

            return $query_fields;

        }

        if (!empty($options['primary'])) {

            $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';

        }



        $name = $db->quoteIdentifier($name, true);

        $result = 'CREATE ';

        if (!empty($options['temporary'])) {

            $result .= $this->_getTemporaryTableQuery();

        }

        $result .= " TABLE $name ($query_fields)";

        return $result;

    }



    // }}}

    // {{{ _getTemporaryTableQuery()



    /**

     * A method to return the required SQL string that fits between CREATE ... TABLE

     * to create the table as a temporary table.

     *

     * Should be overridden in driver classes to return the correct string for the

     * specific database type.

     *

     * The default is to return the string "TEMPORARY" - this will result in a

     * SQL error for any database that does not support temporary tables, or that

     * requires a different SQL command from "CREATE TEMPORARY TABLE".

     *

     * @return string The string required to be placed between "CREATE" and "TABLE"

     *                to generate a temporary table, if possible.

     */

    function _getTemporaryTableQuery()

    {

        return 'TEMPORARY';

    }



    // }}}

    // {{{ createTable()



    /**

     * create a new table

     *

     * @param string $name   Name of the database that should be created

     * @param array $fields  Associative array that contains the definition of each field of the new table

     *                       The indexes of the array entries are the names of the fields of the table an

     *                       the array entry values are associative arrays like those that are meant to be

     *                       passed with the field definitions to get[Type]Declaration() functions.

     *                          array(

     *                              'id' => array(

     *                                  'type' => 'integer',

     *                                  'unsigned' => 1

     *                                  'notnull' => 1

     *                                  'default' => 0

     *                              ),

     *                              'name' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              ),

     *                              'password' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              )

     *                          );

     * @param array $options  An associative array of table options:

     *                          array(

     *                              'comment' => 'Foo',

     *                              'temporary' => true|false,

     *                          );

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createTable($name, $fields, $options = array())

    {

        $query = $this->_getCreateTableQuery($name, $fields, $options);

        if (PEAR::isError($query)) {

            return $query;

        }

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        $result = $db->exec($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropTable()



    /**

     * drop an existing table

     *

     * @param string $name name of the table that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("DROP TABLE $name");

    }



    // }}}

    // {{{ truncateTable()



    /**

     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,

     * it falls back to a DELETE FROM TABLE query)

     *

     * @param string $name name of the table that should be truncated

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function truncateTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("DELETE FROM $name");

    }



    // }}}

    // {{{ vacuum()



    /**

     * Optimize (vacuum) all the tables in the db (or only the specified table)

     * and optionally run ANALYZE.

     *

     * @param string $table table name (all the tables if empty)

     * @param array  $options an array with driver-specific options:

     *               - timeout [int] (in seconds) [mssql-only]

     *               - analyze [boolean] [pgsql and mysql]

     *               - full [boolean] [pgsql-only]

     *               - freeze [boolean] [pgsql-only]

     *

     * @return mixed MDB2_OK success, a MDB2 error on failure

     * @access public

     */

    function vacuum($table = null, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ alterTable()



    /**

     * alter an existing table

     *

     * @param string $name         name of the table that is intended to be changed.

     * @param array $changes     associative array that contains the details of each type

     *                             of change that is intended to be performed. The types of

     *                             changes that are currently supported are defined as follows:

     *

     *                             name

     *

     *                                New name for the table.

     *

     *                            add

     *

     *                                Associative array with the names of fields to be added as

     *                                 indexes of the array. The value of each entry of the array

     *                                 should be set to another associative array with the properties

     *                                 of the fields to be added. The properties of the fields should

     *                                 be the same as defined by the MDB2 parser.

     *

     *

     *                            remove

     *

     *                                Associative array with the names of fields to be removed as indexes

     *                                 of the array. Currently the values assigned to each entry are ignored.

     *                                 An empty array should be used for future compatibility.

     *

     *                            rename

     *

     *                                Associative array with the names of fields to be renamed as indexes

     *                                 of the array. The value of each entry of the array should be set to

     *                                 another associative array with the entry named name with the new

     *                                 field name and the entry named Declaration that is expected to contain

     *                                 the portion of the field declaration already in DBMS specific SQL code

     *                                 as it is used in the CREATE TABLE statement.

     *

     *                            change

     *

     *                                Associative array with the names of the fields to be changed as indexes

     *                                 of the array. Keep in mind that if it is intended to change either the

     *                                 name of a field and any other properties, the change array entries

     *                                 should have the new names of the fields as array indexes.

     *

     *                                The value of each entry of the array should be set to another associative

     *                                 array with the properties of the fields to that are meant to be changed as

     *                                 array entries. These entries should be assigned to the new values of the

     *                                 respective properties. The properties of the fields should be the same

     *                                 as defined by the MDB2 parser.

     *

     *                            Example

     *                                array(

     *                                    'name' => 'userlist',

     *                                    'add' => array(

     *                                        'quota' => array(

     *                                            'type' => 'integer',

     *                                            'unsigned' => 1

     *                                        )

     *                                    ),

     *                                    'remove' => array(

     *                                        'file_limit' => array(),

     *                                        'time_limit' => array()

     *                                    ),

     *                                    'change' => array(

     *                                        'name' => array(

     *                                            'length' => '20',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 20,

     *                                            ),

     *                                        )

     *                                    ),

     *                                    'rename' => array(

     *                                        'sex' => array(

     *                                            'name' => 'gender',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 1,

     *                                                'default' => 'M',

     *                                            ),

     *                                        )

     *                                    )

     *                                )

     *

     * @param boolean $check     indicates whether the function should just check if the DBMS driver

     *                             can perform the requested table alterations if the value is true or

     *                             actually perform them otherwise.

     * @access public

     *

      * @return mixed MDB2_OK on success, a MDB2 error on failure

     */

    function alterTable($name, $changes, $check)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listDatabases()



    /**

     * list all databases

     *

     * @return mixed array of database names on success, a MDB2 error on failure

     * @access public

     */

    function listDatabases()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implementedd', __FUNCTION__);

    }



    // }}}

    // {{{ listUsers()



    /**

     * list all users

     *

     * @return mixed array of user names on success, a MDB2 error on failure

     * @access public

     */

    function listUsers()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listViews()



    /**

     * list all views in the current database

     *

     * @param string database, the current is default

     *               NB: not all the drivers can get the view names from

     *               a database other than the current one

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listViews($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listTableViews()



    /**

     * list the views in the database that reference a given table

     *

     * @param string table for which all referenced views should be found

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listTableViews($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listTableTriggers()



    /**

     * list all triggers in the database that reference a given table

     *

     * @param string table for which all referenced triggers should be found

     * @return mixed array of trigger names on success, a MDB2 error on failure

     * @access public

     */

    function listTableTriggers($table = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listFunctions()



    /**

     * list all functions in the current database

     *

     * @return mixed array of function names on success, a MDB2 error on failure

     * @access public

     */

    function listFunctions()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listTables()



    /**

     * list all tables in the current database

     *

     * @param string database, the current is default.

     *               NB: not all the drivers can get the table names from

     *               a database other than the current one

     * @return mixed array of table names on success, a MDB2 error on failure

     * @access public

     */

    function listTables($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listTableFields()



    /**

     * list all fields in a table in the current database

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of field names on success, a MDB2 error on failure

     * @access public

     */

    function listTableFields($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ createIndex()



    /**

     * Get the stucture of a field into an array

     *

     * @param string    $table         name of the table on which the index is to be created

     * @param string    $name         name of the index to be created

     * @param array     $definition        associative array that defines properties of the index to be created.

     *                                 Currently, only one property named FIELDS is supported. This property

     *                                 is also an associative with the names of the index fields as array

     *                                 indexes. Each entry of this array is set to another type of associative

     *                                 array that specifies properties of the index that are specific to

     *                                 each field.

     *

     *                                Currently, only the sorting property is supported. It should be used

     *                                 to define the sorting direction of the index. It may be set to either

     *                                 ascending or descending.

     *

     *                                Not all DBMS support index sorting direction configuration. The DBMS

     *                                 drivers of those that do not support it ignore this property. Use the

     *                                 function supports() to determine whether the DBMS driver can manage indexes.

     *

     *                                 Example

     *                                    array(

     *                                        'fields' => array(

     *                                            'user_name' => array(

     *                                                'sorting' => 'ascending'

     *                                            ),

     *                                            'last_login' => array()

     *                                        )

     *                                    )

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createIndex($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "CREATE INDEX $name ON $table";

        $fields = array();

        foreach (array_keys($definition['fields']) as $field) {

            $fields[] = $db->quoteIdentifier($field, true);

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        return $db->exec($query);

    }



    // }}}

    // {{{ dropIndex()



    /**

     * drop existing index

     *

     * @param string    $table         name of table that should be used in method

     * @param string    $name         name of the index to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropIndex($table, $name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        return $db->exec("DROP INDEX $name");

    }



    // }}}

    // {{{ listTableIndexes()



    /**

     * list all indexes in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of index names on success, a MDB2 error on failure

     * @access public

     */

    function listTableIndexes($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ _getAdvancedFKOptions()



    /**

     * Return the FOREIGN KEY query section dealing with non-standard options

     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...

     *

     * @param array $definition

     * @return string

     * @access protected

     */

    function _getAdvancedFKOptions($definition)

    {

        return '';

    }



    // }}}

    // {{{ createConstraint()



    /**

     * create a constraint on a table

     *

     * @param string    $table       name of the table on which the constraint is to be created

     * @param string    $name        name of the constraint to be created

     * @param array     $definition  associative array that defines properties of the constraint to be created.

     *                               The full structure of the array looks like this:

     *          <pre>

     *          array (

     *              [primary] => 0

     *              [unique]  => 0

     *              [foreign] => 1

     *              [check]   => 0

     *              [fields] => array (

     *                  [field1name] => array() // one entry per each field covered

     *                  [field2name] => array() // by the index

     *                  [field3name] => array(

     *                      [sorting]  => ascending

     *                      [position] => 3

     *                  )

     *              )

     *              [references] => array(

     *                  [table] => name

     *                  [fields] => array(

     *                      [field1name] => array(  //one entry per each referenced field

     *                           [position] => 1

     *                      )

     *                  )

     *              )

     *              [deferrable] => 0

     *              [initiallydeferred] => 0

     *              [onupdate] => CASCADE|RESTRICT|SET NULL|SET DEFAULT|NO ACTION

     *              [ondelete] => CASCADE|RESTRICT|SET NULL|SET DEFAULT|NO ACTION

     *              [match] => SIMPLE|PARTIAL|FULL

     *          );

     *          </pre>

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createConstraint($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "ALTER TABLE $table ADD CONSTRAINT $name";

        if (!empty($definition['primary'])) {

            $query.= ' PRIMARY KEY';

        } elseif (!empty($definition['unique'])) {

            $query.= ' UNIQUE';

        } elseif (!empty($definition['foreign'])) {

            $query.= ' FOREIGN KEY';

        }

        $fields = array();

        foreach (array_keys($definition['fields']) as $field) {

            $fields[] = $db->quoteIdentifier($field, true);

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        if (!empty($definition['foreign'])) {

            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);

            $referenced_fields = array();

            foreach (array_keys($definition['references']['fields']) as $field) {

                $referenced_fields[] = $db->quoteIdentifier($field, true);

            }

            $query .= ' ('. implode(', ', $referenced_fields) . ')';

            $query .= $this->_getAdvancedFKOptions($definition);

        }

        return $db->exec($query);

    }



    // }}}

    // {{{ dropConstraint()



    /**

     * drop existing constraint

     *

     * @param string    $table        name of table that should be used in method

     * @param string    $name         name of the constraint to be dropped

     * @param string    $primary      hint if the constraint is primary

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropConstraint($table, $name, $primary = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        return $db->exec("ALTER TABLE $table DROP CONSTRAINT $name");

    }



    // }}}

    // {{{ listTableConstraints()



    /**

     * list all constraints in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of constraint names on success, a MDB2 error on failure

     * @access public

     */

    function listTableConstraints($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ createSequence()



    /**

     * create sequence

     *

     * @param string    $seq_name     name of the sequence to be created

     * @param string    $start         start value of the sequence; default is 1

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createSequence($seq_name, $start = 1)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ dropSequence()



    /**

     * drop existing sequence

     *

     * @param string    $seq_name     name of the sequence to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropSequence($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

    // {{{ listSequences()



    /**

     * list all sequences in the current database

     *

     * @param string database, the current is default

     *               NB: not all the drivers can get the sequence names from

     *               a database other than the current one

     * @return mixed array of sequence names on success, a MDB2 error on failure

     * @access public

     */

    function listSequences($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'method not implemented', __FUNCTION__);

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Authors: Lukas Smith <smith@pooteeweet.org>                          |
// |          Lorenzo Alberton <l.alberton@quipo.it>                      |
// +----------------------------------------------------------------------+
//
// $Id: Common.php 273526 2009-01-14 15:01:21Z quipo $
//

/**
 * @package  MDB2
 * @category Database
 * @author   Lukas Smith <smith@pooteeweet.org>
 * @author   Lorenzo Alberton <l.alberton@quipo.it>
 */

/**
 * Base class for the management modules that is extended by each MDB2 driver
 *
 * To load this module in the MDB2 object:
 * $mdb->loadModule('Manager');
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Manager_Common extends MDB2_Module_Common
{
    // {{{ splitTableSchema()

    /**
     * Split the "[owner|schema].table" notation into an array
     *
     * @param string $table [schema and] table name
     *
     * @return array array(schema, table)
     * @access private
     */
    function splitTableSchema($table)
    {
        $ret = array();
        if (strpos($table, '.') !== false) {
            return explode('.', $table);
        }
        return array(null, $table);
    }

    // }}}
    // {{{ getFieldDeclarationList()

    /**
     * Get declaration of a number of field in bulk
     *
     * @param array $fields  a multidimensional associative array.
     *      The first dimension determines the field name, while the second
     *      dimension is keyed with the name of the properties
     *      of the field being declared as array indexes. Currently, the types
     *      of supported field properties are as follows:
     *
     *      default
     *          Boolean value to be used as default for this field.
     *
     *      notnull
     *          Boolean flag that indicates whether this field is constrained
     *          to not be set to null.
     *
     * @return mixed string on success, a MDB2 error on failure
     * @access public
     */
    function getFieldDeclarationList($fields)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!is_array($fields) || empty($fields)) {
            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,
                'missing any fields', __FUNCTION__);
        }
        foreach ($fields as $field_name => $field) {
            $query = $db->getDeclaration($field['type'], $field_name, $field);
            if (PEAR::isError($query)) {
                return $query;
            }
            $query_fields[] = $query;
        }
        return implode(', ', $query_fields);
    }

    // }}}
    // {{{ _fixSequenceName()

    /**
     * Removes any formatting in an sequence name using the 'seqname_format' option
     *
     * @param string $sqn string that containts name of a potential sequence
     * @param bool $check if only formatted sequences should be returned
     * @return string name of the sequence with possible formatting removed
     * @access protected
     */
    function _fixSequenceName($sqn, $check = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $seq_pattern = '/^'.preg_replace('/%s/', '([a-z0-9_]+)', $db->options['seqname_format']).'$/i';
        $seq_name = preg_replace($seq_pattern, '\\1', $sqn);
        if ($seq_name && !strcasecmp($sqn, $db->getSequenceName($seq_name))) {
            return $seq_name;
        }
        if ($check) {
            return false;
        }
        return $sqn;
    }

    // }}}
    // {{{ _fixIndexName()

    /**
     * Removes any formatting in an index name using the 'idxname_format' option
     *
     * @param string $idx string that containts name of anl index
     * @return string name of the index with eventual formatting removed
     * @access protected
     */
    function _fixIndexName($idx)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $idx_pattern = '/^'.preg_replace('/%s/', '([a-z0-9_]+)', $db->options['idxname_format']).'$/i';
        $idx_name = preg_replace($idx_pattern, '\\1', $idx);
        if ($idx_name && !strcasecmp($idx, $db->getIndexName($idx_name))) {
            return $idx_name;
        }
        return $idx;
    }

    // }}}
    // {{{ createDatabase()

    /**
     * create a new database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createDatabase($database, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ alterDatabase()

    /**
     * alter an existing database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function alterDatabase($database, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ dropDatabase()

    /**
     * drop an existing database
     *
     * @param string $name name of the database that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropDatabase($database)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ _getCreateTableQuery()

    /**
     * Create a basic SQL query for a new table creation
     *
     * @param string $name    Name of the database that should be created
     * @param array  $fields  Associative array that contains the definition of each field of the new table
     * @param array  $options An associative array of table options
     *
     * @return mixed string (the SQL query) on success, a MDB2 error on failure
     * @see createTable()
     */
    function _getCreateTableQuery($name, $fields, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!$name) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no valid table name specified', __FUNCTION__);
        }
        if (empty($fields)) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no fields specified for table "'.$name.'"', __FUNCTION__);
        }
        $query_fields = $this->getFieldDeclarationList($fields);
        if (PEAR::isError($query_fields)) {
            return $query_fields;
        }
        if (!empty($options['primary'])) {
            $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';
        }

        $name = $db->quoteIdentifier($name, true);
        $result = 'CREATE ';
        if (!empty($options['temporary'])) {
            $result .= $this->_getTemporaryTableQuery();
        }
        $result .= " TABLE $name ($query_fields)";
        return $result;
    }

    // }}}
    // {{{ _getTemporaryTableQuery()

    /**
     * A method to return the required SQL string that fits between CREATE ... TABLE
     * to create the table as a temporary table.
     *
     * Should be overridden in driver classes to return the correct string for the
     * specific database type.
     *
     * The default is to return the string "TEMPORARY" - this will result in a
     * SQL error for any database that does not support temporary tables, or that
     * requires a different SQL command from "CREATE TEMPORARY TABLE".
     *
     * @return string The string required to be placed between "CREATE" and "TABLE"
     *                to generate a temporary table, if possible.
     */
    function _getTemporaryTableQuery()
    {
        return 'TEMPORARY';
    }

    // }}}
    // {{{ createTable()

    /**
     * create a new table
     *
     * @param string $name   Name of the database that should be created
     * @param array $fields  Associative array that contains the definition of each field of the new table
     *                       The indexes of the array entries are the names of the fields of the table an
     *                       the array entry values are associative arrays like those that are meant to be
     *                       passed with the field definitions to get[Type]Declaration() functions.
     *                          array(
     *                              'id' => array(
     *                                  'type' => 'integer',
     *                                  'unsigned' => 1
     *                                  'notnull' => 1
     *                                  'default' => 0
     *                              ),
     *                              'name' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              ),
     *                              'password' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              )
     *                          );
     * @param array $options  An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'temporary' => true|false,
     *                          );
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createTable($name, $fields, $options = array())
    {
        $query = $this->_getCreateTableQuery($name, $fields, $options);
        if (PEAR::isError($query)) {
            return $query;
        }
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $result = $db->exec($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropTable()

    /**
     * drop an existing table
     *
     * @param string $name name of the table that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("DROP TABLE $name");
    }

    // }}}
    // {{{ truncateTable()

    /**
     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,
     * it falls back to a DELETE FROM TABLE query)
     *
     * @param string $name name of the table that should be truncated
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function truncateTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("DELETE FROM $name");
    }

    // }}}
    // {{{ vacuum()

    /**
     * Optimize (vacuum) all the tables in the db (or only the specified table)
     * and optionally run ANALYZE.
     *
     * @param string $table table name (all the tables if empty)
     * @param array  $options an array with driver-specific options:
     *               - timeout [int] (in seconds) [mssql-only]
     *               - analyze [boolean] [pgsql and mysql]
     *               - full [boolean] [pgsql-only]
     *               - freeze [boolean] [pgsql-only]
     *
     * @return mixed MDB2_OK success, a MDB2 error on failure
     * @access public
     */
    function vacuum($table = null, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ alterTable()

    /**
     * alter an existing table
     *
     * @param string $name         name of the table that is intended to be changed.
     * @param array $changes     associative array that contains the details of each type
     *                             of change that is intended to be performed. The types of
     *                             changes that are currently supported are defined as follows:
     *
     *                             name
     *
     *                                New name for the table.
     *
     *                            add
     *
     *                                Associative array with the names of fields to be added as
     *                                 indexes of the array. The value of each entry of the array
     *                                 should be set to another associative array with the properties
     *                                 of the fields to be added. The properties of the fields should
     *                                 be the same as defined by the MDB2 parser.
     *
     *
     *                            remove
     *
     *                                Associative array with the names of fields to be removed as indexes
     *                                 of the array. Currently the values assigned to each entry are ignored.
     *                                 An empty array should be used for future compatibility.
     *
     *                            rename
     *
     *                                Associative array with the names of fields to be renamed as indexes
     *                                 of the array. The value of each entry of the array should be set to
     *                                 another associative array with the entry named name with the new
     *                                 field name and the entry named Declaration that is expected to contain
     *                                 the portion of the field declaration already in DBMS specific SQL code
     *                                 as it is used in the CREATE TABLE statement.
     *
     *                            change
     *
     *                                Associative array with the names of the fields to be changed as indexes
     *                                 of the array. Keep in mind that if it is intended to change either the
     *                                 name of a field and any other properties, the change array entries
     *                                 should have the new names of the fields as array indexes.
     *
     *                                The value of each entry of the array should be set to another associative
     *                                 array with the properties of the fields to that are meant to be changed as
     *                                 array entries. These entries should be assigned to the new values of the
     *                                 respective properties. The properties of the fields should be the same
     *                                 as defined by the MDB2 parser.
     *
     *                            Example
     *                                array(
     *                                    'name' => 'userlist',
     *                                    'add' => array(
     *                                        'quota' => array(
     *                                            'type' => 'integer',
     *                                            'unsigned' => 1
     *                                        )
     *                                    ),
     *                                    'remove' => array(
     *                                        'file_limit' => array(),
     *                                        'time_limit' => array()
     *                                    ),
     *                                    'change' => array(
     *                                        'name' => array(
     *                                            'length' => '20',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 20,
     *                                            ),
     *                                        )
     *                                    ),
     *                                    'rename' => array(
     *                                        'sex' => array(
     *                                            'name' => 'gender',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 1,
     *                                                'default' => 'M',
     *                                            ),
     *                                        )
     *                                    )
     *                                )
     *
     * @param boolean $check     indicates whether the function should just check if the DBMS driver
     *                             can perform the requested table alterations if the value is true or
     *                             actually perform them otherwise.
     * @access public
     *
      * @return mixed MDB2_OK on success, a MDB2 error on failure
     */
    function alterTable($name, $changes, $check)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listDatabases()

    /**
     * list all databases
     *
     * @return mixed array of database names on success, a MDB2 error on failure
     * @access public
     */
    function listDatabases()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implementedd', __FUNCTION__);
    }

    // }}}
    // {{{ listUsers()

    /**
     * list all users
     *
     * @return mixed array of user names on success, a MDB2 error on failure
     * @access public
     */
    function listUsers()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listViews()

    /**
     * list all views in the current database
     *
     * @param string database, the current is default
     *               NB: not all the drivers can get the view names from
     *               a database other than the current one
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listViews($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listTableViews()

    /**
     * list the views in the database that reference a given table
     *
     * @param string table for which all referenced views should be found
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listTableViews($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listTableTriggers()

    /**
     * list all triggers in the database that reference a given table
     *
     * @param string table for which all referenced triggers should be found
     * @return mixed array of trigger names on success, a MDB2 error on failure
     * @access public
     */
    function listTableTriggers($table = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listFunctions()

    /**
     * list all functions in the current database
     *
     * @return mixed array of function names on success, a MDB2 error on failure
     * @access public
     */
    function listFunctions()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listTables()

    /**
     * list all tables in the current database
     *
     * @param string database, the current is default.
     *               NB: not all the drivers can get the table names from
     *               a database other than the current one
     * @return mixed array of table names on success, a MDB2 error on failure
     * @access public
     */
    function listTables($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listTableFields()

    /**
     * list all fields in a table in the current database
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of field names on success, a MDB2 error on failure
     * @access public
     */
    function listTableFields($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ createIndex()

    /**
     * Get the stucture of a field into an array
     *
     * @param string    $table         name of the table on which the index is to be created
     * @param string    $name         name of the index to be created
     * @param array     $definition        associative array that defines properties of the index to be created.
     *                                 Currently, only one property named FIELDS is supported. This property
     *                                 is also an associative with the names of the index fields as array
     *                                 indexes. Each entry of this array is set to another type of associative
     *                                 array that specifies properties of the index that are specific to
     *                                 each field.
     *
     *                                Currently, only the sorting property is supported. It should be used
     *                                 to define the sorting direction of the index. It may be set to either
     *                                 ascending or descending.
     *
     *                                Not all DBMS support index sorting direction configuration. The DBMS
     *                                 drivers of those that do not support it ignore this property. Use the
     *                                 function supports() to determine whether the DBMS driver can manage indexes.
     *
     *                                 Example
     *                                    array(
     *                                        'fields' => array(
     *                                            'user_name' => array(
     *                                                'sorting' => 'ascending'
     *                                            ),
     *                                            'last_login' => array()
     *                                        )
     *                                    )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createIndex($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "CREATE INDEX $name ON $table";
        $fields = array();
        foreach (array_keys($definition['fields']) as $field) {
            $fields[] = $db->quoteIdentifier($field, true);
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        return $db->exec($query);
    }

    // }}}
    // {{{ dropIndex()

    /**
     * drop existing index
     *
     * @param string    $table         name of table that should be used in method
     * @param string    $name         name of the index to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropIndex($table, $name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        return $db->exec("DROP INDEX $name");
    }

    // }}}
    // {{{ listTableIndexes()

    /**
     * list all indexes in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of index names on success, a MDB2 error on failure
     * @access public
     */
    function listTableIndexes($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ _getAdvancedFKOptions()

    /**
     * Return the FOREIGN KEY query section dealing with non-standard options
     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
     *
     * @param array $definition
     * @return string
     * @access protected
     */
    function _getAdvancedFKOptions($definition)
    {
        return '';
    }

    // }}}
    // {{{ createConstraint()

    /**
     * create a constraint on a table
     *
     * @param string    $table       name of the table on which the constraint is to be created
     * @param string    $name        name of the constraint to be created
     * @param array     $definition  associative array that defines properties of the constraint to be created.
     *                               The full structure of the array looks like this:
     *          <pre>
     *          array (
     *              [primary] => 0
     *              [unique]  => 0
     *              [foreign] => 1
     *              [check]   => 0
     *              [fields] => array (
     *                  [field1name] => array() // one entry per each field covered
     *                  [field2name] => array() // by the index
     *                  [field3name] => array(
     *                      [sorting]  => ascending
     *                      [position] => 3
     *                  )
     *              )
     *              [references] => array(
     *                  [table] => name
     *                  [fields] => array(
     *                      [field1name] => array(  //one entry per each referenced field
     *                           [position] => 1
     *                      )
     *                  )
     *              )
     *              [deferrable] => 0
     *              [initiallydeferred] => 0
     *              [onupdate] => CASCADE|RESTRICT|SET NULL|SET DEFAULT|NO ACTION
     *              [ondelete] => CASCADE|RESTRICT|SET NULL|SET DEFAULT|NO ACTION
     *              [match] => SIMPLE|PARTIAL|FULL
     *          );
     *          </pre>
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createConstraint($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "ALTER TABLE $table ADD CONSTRAINT $name";
        if (!empty($definition['primary'])) {
            $query.= ' PRIMARY KEY';
        } elseif (!empty($definition['unique'])) {
            $query.= ' UNIQUE';
        } elseif (!empty($definition['foreign'])) {
            $query.= ' FOREIGN KEY';
        }
        $fields = array();
        foreach (array_keys($definition['fields']) as $field) {
            $fields[] = $db->quoteIdentifier($field, true);
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        if (!empty($definition['foreign'])) {
            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);
            $referenced_fields = array();
            foreach (array_keys($definition['references']['fields']) as $field) {
                $referenced_fields[] = $db->quoteIdentifier($field, true);
            }
            $query .= ' ('. implode(', ', $referenced_fields) . ')';
            $query .= $this->_getAdvancedFKOptions($definition);
        }
        return $db->exec($query);
    }

    // }}}
    // {{{ dropConstraint()

    /**
     * drop existing constraint
     *
     * @param string    $table        name of table that should be used in method
     * @param string    $name         name of the constraint to be dropped
     * @param string    $primary      hint if the constraint is primary
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropConstraint($table, $name, $primary = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        return $db->exec("ALTER TABLE $table DROP CONSTRAINT $name");
    }

    // }}}
    // {{{ listTableConstraints()

    /**
     * list all constraints in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of constraint names on success, a MDB2 error on failure
     * @access public
     */
    function listTableConstraints($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ createSequence()

    /**
     * create sequence
     *
     * @param string    $seq_name     name of the sequence to be created
     * @param string    $start         start value of the sequence; default is 1
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createSequence($seq_name, $start = 1)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ dropSequence()

    /**
     * drop existing sequence
     *
     * @param string    $seq_name     name of the sequence to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropSequence($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
    // {{{ listSequences()

    /**
     * list all sequences in the current database
     *
     * @param string database, the current is default
     *               NB: not all the drivers can get the sequence names from
     *               a database other than the current one
     * @return mixed array of sequence names on success, a MDB2 error on failure
     * @access public
     */
    function listSequences($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'method not implemented', __FUNCTION__);
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Manager/mssql.php

@@ -44,7 +44,7 @@
// |          Lorenzo Alberton <l.alberton@quipo.it>                      |
// +----------------------------------------------------------------------+
//
// $Id: mssql.php,v 1.109 2008/03/05 12:55:57 afz Exp $
// $Id: mssql.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Manager/Common.php';
@@ -715,11 +715,11 @@
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $table = $db->quote($table, 'text');
        $columns = $db->queryCol("SELECT c.name
                                    FROM syscolumns c
                               LEFT JOIN sysobjects o ON c.id = o.id
                                   WHERE o.name = '$table'");
                                   WHERE o.name = $table");
        if (PEAR::isError($columns)) {
            return $columns;
        }
@@ -893,7 +893,7 @@
                    FROM sysobjects o
                   WHERE xtype = 'TR'
                     AND OBJECTPROPERTY(o.id, 'IsMSShipped') = 0";
        if (!is_null($table)) {
        if (null !== $table) {
            $query .= " AND object_name(parent_obj) = $table";
        }

@@ -994,12 +994,12 @@
        if (PEAR::isError($db)) {
            return $db;
        }
        $table = $db->quoteIdentifier($table, true);
        $table = $db->quote($table, 'text');

        $query = "SELECT c.constraint_name
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS c
                   WHERE c.constraint_catalog = DB_NAME()
                     AND c.table_name = '$table'";
                     AND c.table_name = $table";
        $constraints = $db->queryCol($query);
        if (PEAR::isError($constraints)) {
            return $constraints;

 program/lib/MDB2/Driver/Manager/mysql.php

@@ -1,1418 +1,1438 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysql.php,v 1.108 2008/03/11 19:58:12 quipo Exp $

//



require_once 'MDB2/Driver/Manager/Common.php';



/**

 * MDB2 MySQL driver for the management modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Manager_mysql extends MDB2_Driver_Manager_Common

{



    // }}}

    // {{{ createDatabase()



    /**

     * create a new database

     *

     * @param string $name    name of the database that should be created

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createDatabase($name, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name  = $db->quoteIdentifier($name, true);

        $query = 'CREATE DATABASE ' . $name;

        if (!empty($options['charset'])) {

            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');

        }

        if (!empty($options['collation'])) {

            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');

        }

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ alterDatabase()



    /**

     * alter an existing database

     *

     * @param string $name    name of the database that is intended to be changed

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function alterDatabase($name, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true);

        if (!empty($options['charset'])) {

            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');

        }

        if (!empty($options['collation'])) {

            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');

        }

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ dropDatabase()



    /**

     * drop an existing database

     *

     * @param string $name name of the database that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropDatabase($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        $query = "DROP DATABASE $name";

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ _getAdvancedFKOptions()



    /**

     * Return the FOREIGN KEY query section dealing with non-standard options

     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...

     *

     * @param array $definition

     * @return string

     * @access protected

     */

    function _getAdvancedFKOptions($definition)

    {

        $query = '';

        if (!empty($definition['match'])) {

            $query .= ' MATCH '.$definition['match'];

        }

        if (!empty($definition['onupdate'])) {

            $query .= ' ON UPDATE '.$definition['onupdate'];

        }

        if (!empty($definition['ondelete'])) {

            $query .= ' ON DELETE '.$definition['ondelete'];

        }

        return $query;

    }



    // }}}

    // {{{ createTable()



    /**

     * create a new table

     *

     * @param string $name   Name of the database that should be created

     * @param array $fields  Associative array that contains the definition of each field of the new table

     *                       The indexes of the array entries are the names of the fields of the table an

     *                       the array entry values are associative arrays like those that are meant to be

     *                       passed with the field definitions to get[Type]Declaration() functions.

     *                          array(

     *                              'id' => array(

     *                                  'type' => 'integer',

     *                                  'unsigned' => 1

     *                                  'notnull' => 1

     *                                  'default' => 0

     *                              ),

     *                              'name' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              ),

     *                              'password' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              )

     *                          );

     * @param array $options  An associative array of table options:

     *                          array(

     *                              'comment' => 'Foo',

     *                              'charset' => 'utf8',

     *                              'collate' => 'utf8_unicode_ci',

     *                              'type'    => 'innodb',

     *                          );

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createTable($name, $fields, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        // if we have an AUTO_INCREMENT column and a PK on more than one field,

        // we have to handle it differently...

        $autoincrement = null;

        if (empty($options['primary'])) {

            $pk_fields = array();

            foreach ($fields as $fieldname => $def) {

                if (!empty($def['primary'])) {

                    $pk_fields[$fieldname] = true;

                }

                if (!empty($def['autoincrement'])) {

                    $autoincrement = $fieldname;

                }

            }

            if (!is_null($autoincrement) && count($pk_fields) > 1) {

                $options['primary'] = $pk_fields;

            } else {

                // the PK constraint is on max one field => OK

                $autoincrement = null;

            }

        }



        $query = $this->_getCreateTableQuery($name, $fields, $options);

        if (PEAR::isError($query)) {

            return $query;

        }



        if (!is_null($autoincrement)) {

            // we have to remove the PK clause added by _getIntegerDeclaration()

            $query = str_replace('AUTO_INCREMENT PRIMARY KEY', 'AUTO_INCREMENT', $query);

        }



        $options_strings = array();



        if (!empty($options['comment'])) {

            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');

        }



        if (!empty($options['charset'])) {

            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];

            if (!empty($options['collate'])) {

                $options_strings['charset'].= ' COLLATE '.$options['collate'];

            }

        }



        $type = false;

        if (!empty($options['type'])) {

            $type = $options['type'];

        } elseif ($db->options['default_table_type']) {

            $type = $db->options['default_table_type'];

        }

        if ($type) {

            $options_strings[] = "ENGINE = $type";

        }



        if (!empty($options_strings)) {

            $query .= ' '.implode(' ', $options_strings);

        }

        $result = $db->exec($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropTable()



    /**

     * drop an existing table

     *

     * @param string $name name of the table that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        //delete the triggers associated to existing FK constraints

        $constraints = $this->listTableConstraints($name);

        if (!PEAR::isError($constraints) && !empty($constraints)) {

            $db->loadModule('Reverse', null, true);

            foreach ($constraints as $constraint) {

                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);

                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }



        return parent::dropTable($name);

    }



    // }}}

    // {{{ truncateTable()



    /**

     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,

     * it falls back to a DELETE FROM TABLE query)

     *

     * @param string $name name of the table that should be truncated

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function truncateTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("TRUNCATE TABLE $name");

    }



    // }}}

    // {{{ vacuum()



    /**

     * Optimize (vacuum) all the tables in the db (or only the specified table)

     * and optionally run ANALYZE.

     *

     * @param string $table table name (all the tables if empty)

     * @param array  $options an array with driver-specific options:

     *               - timeout [int] (in seconds) [mssql-only]

     *               - analyze [boolean] [pgsql and mysql]

     *               - full [boolean] [pgsql-only]

     *               - freeze [boolean] [pgsql-only]

     *

     * @return mixed MDB2_OK success, a MDB2 error on failure

     * @access public

     */

    function vacuum($table = null, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (empty($table)) {

            $table = $this->listTables();

            if (PEAR::isError($table)) {

                return $table;

            }

        }

        if (is_array($table)) {

            foreach (array_keys($table) as $k) {

                $table[$k] = $db->quoteIdentifier($table[$k], true);

            }

            $table = implode(', ', $table);

        } else {

            $table = $db->quoteIdentifier($table, true);

        }

        
        $result = $db->exec('OPTIMIZE TABLE '.$table);

        if (PEAR::isError($result)) {

            return $result;

        }

        if (!empty($options['analyze'])) {

            return $db->exec('ANALYZE TABLE '.$table);

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ alterTable()



    /**

     * alter an existing table

     *

     * @param string $name         name of the table that is intended to be changed.

     * @param array $changes     associative array that contains the details of each type

     *                             of change that is intended to be performed. The types of

     *                             changes that are currently supported are defined as follows:

     *

     *                             name

     *

     *                                New name for the table.

     *

     *                            add

     *

     *                                Associative array with the names of fields to be added as

     *                                 indexes of the array. The value of each entry of the array

     *                                 should be set to another associative array with the properties

     *                                 of the fields to be added. The properties of the fields should

     *                                 be the same as defined by the MDB2 parser.

     *

     *

     *                            remove

     *

     *                                Associative array with the names of fields to be removed as indexes

     *                                 of the array. Currently the values assigned to each entry are ignored.

     *                                 An empty array should be used for future compatibility.

     *

     *                            rename

     *

     *                                Associative array with the names of fields to be renamed as indexes

     *                                 of the array. The value of each entry of the array should be set to

     *                                 another associative array with the entry named name with the new

     *                                 field name and the entry named Declaration that is expected to contain

     *                                 the portion of the field declaration already in DBMS specific SQL code

     *                                 as it is used in the CREATE TABLE statement.

     *

     *                            change

     *

     *                                Associative array with the names of the fields to be changed as indexes

     *                                 of the array. Keep in mind that if it is intended to change either the

     *                                 name of a field and any other properties, the change array entries

     *                                 should have the new names of the fields as array indexes.

     *

     *                                The value of each entry of the array should be set to another associative

     *                                 array with the properties of the fields to that are meant to be changed as

     *                                 array entries. These entries should be assigned to the new values of the

     *                                 respective properties. The properties of the fields should be the same

     *                                 as defined by the MDB2 parser.

     *

     *                            Example

     *                                array(

     *                                    'name' => 'userlist',

     *                                    'add' => array(

     *                                        'quota' => array(

     *                                            'type' => 'integer',

     *                                            'unsigned' => 1

     *                                        )

     *                                    ),

     *                                    'remove' => array(

     *                                        'file_limit' => array(),

     *                                        'time_limit' => array()

     *                                    ),

     *                                    'change' => array(

     *                                        'name' => array(

     *                                            'length' => '20',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 20,

     *                                            ),

     *                                        )

     *                                    ),

     *                                    'rename' => array(

     *                                        'sex' => array(

     *                                            'name' => 'gender',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 1,

     *                                                'default' => 'M',

     *                                            ),

     *                                        )

     *                                    )

     *                                )

     *

     * @param boolean $check     indicates whether the function should just check if the DBMS driver

     *                             can perform the requested table alterations if the value is true or

     *                             actually perform them otherwise.

     * @access public

     *

      * @return mixed MDB2_OK on success, a MDB2 error on failure

     */

    function alterTable($name, $changes, $check)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        foreach ($changes as $change_name => $change) {

            switch ($change_name) {

            case 'add':

            case 'remove':

            case 'change':

            case 'rename':

            case 'name':

                break;

            default:

                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,

                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);

            }

        }



        if ($check) {

            return MDB2_OK;

        }



        $query = '';

        if (!empty($changes['name'])) {

            $change_name = $db->quoteIdentifier($changes['name'], true);

            $query .= 'RENAME TO ' . $change_name;

        }



        if (!empty($changes['add']) && is_array($changes['add'])) {

            foreach ($changes['add'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                $query.= 'ADD ' . $db->getDeclaration($field['type'], $field_name, $field);

            }

        }



        if (!empty($changes['remove']) && is_array($changes['remove'])) {

            foreach ($changes['remove'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                $field_name = $db->quoteIdentifier($field_name, true);

                $query.= 'DROP ' . $field_name;

            }

        }



        $rename = array();

        if (!empty($changes['rename']) && is_array($changes['rename'])) {

            foreach ($changes['rename'] as $field_name => $field) {

                $rename[$field['name']] = $field_name;

            }

        }



        if (!empty($changes['change']) && is_array($changes['change'])) {

            foreach ($changes['change'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                if (isset($rename[$field_name])) {

                    $old_field_name = $rename[$field_name];

                    unset($rename[$field_name]);

                } else {

                    $old_field_name = $field_name;

                }

                $old_field_name = $db->quoteIdentifier($old_field_name, true);

                $query.= "CHANGE $old_field_name " . $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);

            }

        }



        if (!empty($rename) && is_array($rename)) {

            foreach ($rename as $rename_name => $renamed_field) {

                if ($query) {

                    $query.= ', ';

                }

                $field = $changes['rename'][$renamed_field];

                $renamed_field = $db->quoteIdentifier($renamed_field, true);

                $query.= 'CHANGE ' . $renamed_field . ' ' . $db->getDeclaration($field['definition']['type'], $field['name'], $field['definition']);

            }

        }



        if (!$query) {

            return MDB2_OK;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("ALTER TABLE $name $query");

    }



    // }}}

    // {{{ listDatabases()



    /**

     * list all databases

     *

     * @return mixed array of database names on success, a MDB2 error on failure

     * @access public

     */

    function listDatabases()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $result = $db->queryCol('SHOW DATABASES');

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listUsers()



    /**

     * list all users

     *

     * @return mixed array of user names on success, a MDB2 error on failure

     * @access public

     */

    function listUsers()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->queryCol('SELECT DISTINCT USER FROM mysql.USER');

    }



    // }}}

    // {{{ listFunctions()



    /**

     * list all functions in the current database

     *

     * @return mixed array of function names on success, a MDB2 error on failure

     * @access public

     */

    function listFunctions()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM mysql.proc";

        /*

        SELECT ROUTINE_NAME

          FROM INFORMATION_SCHEMA.ROUTINES

         WHERE ROUTINE_TYPE = 'FUNCTION'

        */

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableTriggers()



    /**

     * list all triggers in the database that reference a given table

     *

     * @param string table for which all referenced triggers should be found

     * @return mixed array of trigger names on success, a MDB2 error on failure

     * @access public

     */

    function listTableTriggers($table = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'SHOW TRIGGERS';

        if (!is_null($table)) {

            $table = $db->quote($table, 'text');

            $query .= " LIKE $table";

        }

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTables()



    /**

     * list all tables in the current database

     *

     * @param string database, the current is default

     * @return mixed array of table names on success, a MDB2 error on failure

     * @access public

     */

    function listTables($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SHOW /*!50002 FULL*/ TABLES";

        if (!is_null($database)) {

            $query .= " FROM $database";

        }

        $query.= "/*!50002  WHERE Table_type = 'BASE TABLE'*/";



        $table_names = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }



        $result = array();

        foreach ($table_names as $table) {

            if (!$this->_fixSequenceName($table[0], true)) {

                $result[] = $table[0];

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listViews()



    /**

     * list all views in the current database

     *

     * @param string database, the current is default

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listViews($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'SHOW FULL TABLES';

        if (!is_null($database)) {

            $query.= " FROM $database";

        }

        $query.= " WHERE Table_type = 'VIEW'";



        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableFields()



    /**

     * list all fields in a table in the current database

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of field names on success, a MDB2 error on failure

     * @access public

     */

    function listTableFields($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $result = $db->queryCol("SHOW COLUMNS FROM $table");

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ createIndex()



    /**

     * Get the stucture of a field into an array

     *

     * @author Leoncx

     * @param string $table      name of the table on which the index is to be created

     * @param string $name       name of the index to be created

     * @param array  $definition associative array that defines properties of the index to be created.

     *                           Currently, only one property named FIELDS is supported. This property

     *                           is also an associative with the names of the index fields as array

     *                           indexes. Each entry of this array is set to another type of associative

     *                           array that specifies properties of the index that are specific to

     *                           each field.

     *

     *                           Currently, only the sorting property is supported. It should be used

     *                           to define the sorting direction of the index. It may be set to either

     *                           ascending or descending.

     *

     *                           Not all DBMS support index sorting direction configuration. The DBMS

     *                           drivers of those that do not support it ignore this property. Use the

     *                           function supports() to determine whether the DBMS driver can manage indexes.

     *

     *                           Example

     *                               array(

     *                                   'fields' => array(

     *                                       'user_name' => array(

     *                                           'sorting' => 'ascending'

     *                                           'length' => 10

     *                                       ),

     *                                       'last_login' => array()

     *                                    )

     *                                )

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createIndex($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "CREATE INDEX $name ON $table";

        $fields = array();

        foreach ($definition['fields'] as $field => $fieldinfo) {

            if (!empty($fieldinfo['length'])) {

                $fields[] = $db->quoteIdentifier($field, true) . '(' . $fieldinfo['length'] . ')';

            } else {

                $fields[] = $db->quoteIdentifier($field, true);

            }

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        return $db->exec($query);

    }



    // }}}

    // {{{ dropIndex()



    /**

     * drop existing index

     *

     * @param string    $table         name of table that should be used in method

     * @param string    $name         name of the index to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropIndex($table, $name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        return $db->exec("DROP INDEX $name ON $table");

    }



    // }}}

    // {{{ listTableIndexes()



    /**

     * list all indexes in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of index names on success, a MDB2 error on failure

     * @access public

     */

    function listTableIndexes($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $key_name = 'Key_name';

        $non_unique = 'Non_unique';

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            if ($db->options['field_case'] == CASE_LOWER) {

                $key_name = strtolower($key_name);

                $non_unique = strtolower($non_unique);

            } else {

                $key_name = strtoupper($key_name);

                $non_unique = strtoupper($non_unique);

            }

        }



        $table = $db->quoteIdentifier($table, true);

        $query = "SHOW INDEX FROM $table";

        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $index_data) {

            if ($index_data[$non_unique] && ($index = $this->_fixIndexName($index_data[$key_name]))) {

                $result[$index] = true;

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createConstraint()



    /**

     * create a constraint on a table

     *

     * @param string    $table        name of the table on which the constraint is to be created

     * @param string    $name         name of the constraint to be created

     * @param array     $definition   associative array that defines properties of the constraint to be created.

     *                                Currently, only one property named FIELDS is supported. This property

     *                                is also an associative with the names of the constraint fields as array

     *                                constraints. Each entry of this array is set to another type of associative

     *                                array that specifies properties of the constraint that are specific to

     *                                each field.

     *

     *                                Example

     *                                   array(

     *                                       'fields' => array(

     *                                           'user_name' => array(),

     *                                           'last_login' => array()

     *                                       )

     *                                   )

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createConstraint($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $type = '';

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        if (!empty($definition['primary'])) {

            $type = 'PRIMARY';

            $name = 'KEY';

        } elseif (!empty($definition['unique'])) {

            $type = 'UNIQUE';

        } elseif (!empty($definition['foreign'])) {

            $type = 'CONSTRAINT';

        }

        if (empty($type)) {

            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

                'invalid definition, could not create constraint', __FUNCTION__);

        }



        $table_quoted = $db->quoteIdentifier($table, true);

        $query = "ALTER TABLE $table_quoted ADD $type $name";

        if (!empty($definition['foreign'])) {

            $query .= ' FOREIGN KEY';

        }

        $fields = array();

        foreach (array_keys($definition['fields']) as $field) {

            $fields[] = $db->quoteIdentifier($field, true);

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        if (!empty($definition['foreign'])) {

            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);

            $referenced_fields = array();

            foreach (array_keys($definition['references']['fields']) as $field) {

                $referenced_fields[] = $db->quoteIdentifier($field, true);

            }

            $query .= ' ('. implode(', ', $referenced_fields) . ')';

            $query .= $this->_getAdvancedFKOptions($definition);

        }

        $res = $db->exec($query);

        if (PEAR::isError($res)) {

            return $res;

        }

        if (!empty($definition['foreign'])) {

            return $this->_createFKTriggers($table, array($name => $definition));

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropConstraint()



    /**

     * drop existing constraint

     *

     * @param string    $table        name of table that should be used in method

     * @param string    $name         name of the constraint to be dropped

     * @param string    $primary      hint if the constraint is primary

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropConstraint($table, $name, $primary = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if ($primary || strtolower($name) == 'primary') {

            $query = 'ALTER TABLE '. $db->quoteIdentifier($table, true) .' DROP PRIMARY KEY';

            return $db->exec($query);

        }



        //is it a FK constraint? If so, also delete the associated triggers

        $db->loadModule('Reverse', null, true);

        $definition = $db->reverse->getTableConstraintDefinition($table, $name);

        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

            //first drop the FK enforcing triggers

            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);

            if (PEAR::isError($result)) {

                return $result;

            }

            //then drop the constraint itself

            $table = $db->quoteIdentifier($table, true);

            $name = $db->quoteIdentifier($db->getIndexName($name), true);

            $query = "ALTER TABLE $table DROP FOREIGN KEY $name";

            return $db->exec($query);

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "ALTER TABLE $table DROP INDEX $name";

        return $db->exec($query);

    }



    // }}}

    // {{{ _createFKTriggers()



    /**

     * Create triggers to enforce the FOREIGN KEY constraint on the table

     *

     * NB: since there's no RAISE_APPLICATION_ERROR facility in mysql,

     * we call a non-existent procedure to raise the FK violation message.

     * @see http://forums.mysql.com/read.php?99,55108,71877#msg-71877

     *

     * @param string $table        table name

     * @param array  $foreign_keys FOREIGN KEY definitions

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access private

     */

    function _createFKTriggers($table, $foreign_keys)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        // create triggers to enforce FOREIGN KEY constraints

        if ($db->supports('triggers') && !empty($foreign_keys)) {

            $table = $db->quoteIdentifier($table, true);

            foreach ($foreign_keys as $fkname => $fkdef) {

                if (empty($fkdef)) {

                    continue;

                }

                //set actions to 'RESTRICT' if not set

                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? 'RESTRICT' : strtoupper($fkdef['onupdate']);

                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? 'RESTRICT' : strtoupper($fkdef['ondelete']);



                $trigger_names = array(

                    'insert'    => $fkname.'_insert_trg',

                    'update'    => $fkname.'_update_trg',

                    'pk_update' => $fkname.'_pk_update_trg',

                    'pk_delete' => $fkname.'_pk_delete_trg',

                );

                $table_fields = array_keys($fkdef['fields']);

                $referenced_fields = array_keys($fkdef['references']['fields']);



                //create the ON [UPDATE|DELETE] triggers on the primary table

                $restrict_action = ' IF (SELECT ';

                $aliased_fields = array();

                foreach ($table_fields as $field) {

                    $aliased_fields[] = $table .'.'.$field .' AS '.$field;

                }

                $restrict_action .= implode(',', $aliased_fields)

                       .' FROM '.$table

                       .' WHERE ';

                $conditions  = array();

                $new_values  = array();

                $null_values = array();

                for ($i=0; $i<count($table_fields); $i++) {

                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];

                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];

                    $null_values[] = $table_fields[$i] .' = NULL';

                }

                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL'

                                .' THEN CALL %s_ON_TABLE_'.$table.'_VIOLATES_FOREIGN_KEY_CONSTRAINT();'

                                .' END IF;';



                $cascade_action_update = 'UPDATE '.$table.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions). ';';

                $cascade_action_delete = 'DELETE FROM '.$table.' WHERE '.implode(' AND ', $conditions). ';';

                $setnull_action        = 'UPDATE '.$table.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions). ';';



                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {

                    $db->loadModule('Reverse', null, true);

                    $default_values = array();

                    foreach ($table_fields as $table_field) {

                        $field_definition = $db->reverse->getTableFieldDefinition($table, $field);

                        if (PEAR::isError($field_definition)) {

                            return $field_definition;

                        }

                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];

                    }

                    $setdefault_action = 'UPDATE '.$table.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions). ';';

                }



                $query = 'CREATE TRIGGER %s'

                        .' %s ON '.$fkdef['references']['table']

                        .' FOR EACH ROW BEGIN '

                        .' SET FOREIGN_KEY_CHECKS = 0; ';  //only really needed for ON UPDATE CASCADE



                if ('CASCADE' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE',  'update') . $cascade_action_update;

                } elseif ('SET NULL' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action;

                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action;

                } elseif ('NO ACTION' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update');

                } else {

                    //'RESTRICT'

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update');

                }

                if ('CASCADE' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE',  'delete') . $cascade_action_delete;

                } elseif ('SET NULL' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action;

                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action;

                } elseif ('NO ACTION' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete');

                } else {

                    //'RESTRICT'

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete');

                }

                $sql_update .= ' SET FOREIGN_KEY_CHECKS = 1; END;';

                $sql_delete .= ' SET FOREIGN_KEY_CHECKS = 1; END;';



                $db->pushErrorHandling(PEAR_ERROR_RETURN);

                $db->expectError(MDB2_ERROR_CANNOT_CREATE);

                $result = $db->exec($sql_delete);

                $expected_errmsg = 'This MySQL version doesn\'t support multiple triggers with the same action time and event for one table';

                $db->popExpect();

                $db->popErrorHandling();

                if (PEAR::isError($result)) {

                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                        return $result;

                    }

                    $db->warnings[] = $expected_errmsg;

                }

                $db->pushErrorHandling(PEAR_ERROR_RETURN);

                $db->expectError(MDB2_ERROR_CANNOT_CREATE);

                $result = $db->exec($sql_update);

                $db->popExpect();

                $db->popErrorHandling();

                if (PEAR::isError($result) && $result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                        return $result;

                    }

                    $db->warnings[] = $expected_errmsg;

                }

            }

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ _dropFKTriggers()



    /**

     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table

     *

     * @param string $table            table name

     * @param string $fkname           FOREIGN KEY constraint name

     * @param string $referenced_table referenced table name

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access private

     */

    function _dropFKTriggers($table, $fkname, $referenced_table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $triggers  = $this->listTableTriggers($table);

        $triggers2 = $this->listTableTriggers($referenced_table);

        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {

            $triggers = array_merge($triggers, $triggers2);

            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';

            foreach ($triggers as $trigger) {

                if (preg_match($pattern, $trigger)) {

                    $result = $db->exec('DROP TRIGGER '.$trigger);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ listTableConstraints()



    /**

     * list all constraints in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of constraint names on success, a MDB2 error on failure

     * @access public

     */

    function listTableConstraints($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $key_name = 'Key_name';

        $non_unique = 'Non_unique';

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            if ($db->options['field_case'] == CASE_LOWER) {

                $key_name = strtolower($key_name);

                $non_unique = strtolower($non_unique);

            } else {

                $key_name = strtoupper($key_name);

                $non_unique = strtoupper($non_unique);

            }

        }



        $query = 'SHOW INDEX FROM ' . $db->quoteIdentifier($table, true);

        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $index_data) {

            if (!$index_data[$non_unique]) {

                if ($index_data[$key_name] !== 'PRIMARY') {

                    $index = $this->_fixIndexName($index_data[$key_name]);

                } else {

                    $index = 'PRIMARY';

                }

                if (!empty($index)) {

                    $result[$index] = true;

                }

            }

        }

        
        //list FOREIGN KEY constraints...

        $query = 'SHOW CREATE TABLE '. $db->escape($table);

        $definition = $db->queryOne($query, 'text', 1);

        if (!PEAR::isError($definition) && !empty($definition)) {

            $pattern = '/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN KEY\b/Uims';

            if (preg_match_all($pattern, str_replace('`', '', $definition), $matches) > 0) {

                foreach ($matches[1] as $constraint) {

                    $result[$constraint] = true;

                }

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createSequence()



    /**

     * create sequence

     *

     * @param string    $seq_name name of the sequence to be created

     * @param string    $start    start value of the sequence; default is 1

     * @param array     $options  An associative array of table options:

     *                          array(

     *                              'comment' => 'Foo',

     *                              'charset' => 'utf8',

     *                              'collate' => 'utf8_unicode_ci',

     *                              'type'    => 'innodb',

     *                          );

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createSequence($seq_name, $start = 1, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);

        
        $options_strings = array();



        if (!empty($options['comment'])) {

            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');

        }



        if (!empty($options['charset'])) {

            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];

            if (!empty($options['collate'])) {

                $options_strings['charset'].= ' COLLATE '.$options['collate'];

            }

        }



        $type = false;

        if (!empty($options['type'])) {

            $type = $options['type'];

        } elseif ($db->options['default_table_type']) {

            $type = $db->options['default_table_type'];

        }

        if ($type) {

            $options_strings[] = "ENGINE = $type";

        }



        $query = "CREATE TABLE $sequence_name ($seqcol_name INT NOT NULL AUTO_INCREMENT, PRIMARY KEY ($seqcol_name))";

        if (!empty($options_strings)) {

            $query .= ' '.implode(' ', $options_strings);

        }

        $res = $db->exec($query);

        if (PEAR::isError($res)) {

            return $res;

        }



        if ($start == 1) {

            return MDB2_OK;

        }



        $query = "INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')';

        $res = $db->exec($query);

        if (!PEAR::isError($res)) {

            return MDB2_OK;

        }



        // Handle error

        $result = $db->exec("DROP TABLE $sequence_name");

        if (PEAR::isError($result)) {

            return $db->raiseError($result, null, null,

                'could not drop inconsistent sequence table', __FUNCTION__);

        }



        return $db->raiseError($res, null, null,

            'could not create sequence table', __FUNCTION__);

    }



    // }}}

    // {{{ dropSequence()



    /**

     * drop existing sequence

     *

     * @param string    $seq_name     name of the sequence to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropSequence($seq_name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        return $db->exec("DROP TABLE $sequence_name");

    }



    // }}}

    // {{{ listSequences()



    /**

     * list all sequences in the current database

     *

     * @param string database, the current is default

     * @return mixed array of sequence names on success, a MDB2 error on failure

     * @access public

     */

    function listSequences($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SHOW TABLES";

        if (!is_null($database)) {

            $query .= " FROM $database";

        }

        $table_names = $db->queryCol($query);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }



        $result = array();

        foreach ($table_names as $table_name) {

            if ($sqn = $this->_fixSequenceName($table_name, true)) {

                $result[] = $sqn;

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysql.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Manager/Common.php';

/**
 * MDB2 MySQL driver for the management modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Manager_mysql extends MDB2_Driver_Manager_Common
{

    // }}}
    // {{{ createDatabase()

    /**
     * create a new database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name  = $db->quoteIdentifier($name, true);
        $query = 'CREATE DATABASE ' . $name;
        if (!empty($options['charset'])) {
            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');
        }
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ alterDatabase()

    /**
     * alter an existing database
     *
     * @param string $name    name of the database that is intended to be changed
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function alterDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true);
        if (!empty($options['charset'])) {
            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');
        }
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ dropDatabase()

    /**
     * drop an existing database
     *
     * @param string $name name of the database that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropDatabase($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        $query = "DROP DATABASE $name";
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ _getAdvancedFKOptions()

    /**
     * Return the FOREIGN KEY query section dealing with non-standard options
     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
     *
     * @param array $definition
     * @return string
     * @access protected
     */
    function _getAdvancedFKOptions($definition)
    {
        $query = '';
        if (!empty($definition['match'])) {
            $query .= ' MATCH '.$definition['match'];
        }
        if (!empty($definition['onupdate'])) {
            $query .= ' ON UPDATE '.$definition['onupdate'];
        }
        if (!empty($definition['ondelete'])) {
            $query .= ' ON DELETE '.$definition['ondelete'];
        }
        return $query;
    }

    // }}}
    // {{{ createTable()

    /**
     * create a new table
     *
     * @param string $name   Name of the database that should be created
     * @param array $fields  Associative array that contains the definition of each field of the new table
     *                       The indexes of the array entries are the names of the fields of the table an
     *                       the array entry values are associative arrays like those that are meant to be
     *                       passed with the field definitions to get[Type]Declaration() functions.
     *                          array(
     *                              'id' => array(
     *                                  'type' => 'integer',
     *                                  'unsigned' => 1
     *                                  'notnull' => 1
     *                                  'default' => 0
     *                              ),
     *                              'name' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              ),
     *                              'password' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              )
     *                          );
     * @param array $options  An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'charset' => 'utf8',
     *                              'collate' => 'utf8_unicode_ci',
     *                              'type'    => 'innodb',
     *                          );
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createTable($name, $fields, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        // if we have an AUTO_INCREMENT column and a PK on more than one field,
        // we have to handle it differently...
        $autoincrement = null;
        if (empty($options['primary'])) {
            $pk_fields = array();
            foreach ($fields as $fieldname => $def) {
                if (!empty($def['primary'])) {
                    $pk_fields[$fieldname] = true;
                }
                if (!empty($def['autoincrement'])) {
                    $autoincrement = $fieldname;
                }
            }
            if ((null !== $autoincrement) && count($pk_fields) > 1) {
                $options['primary'] = $pk_fields;
            } else {
                // the PK constraint is on max one field => OK
                $autoincrement = null;
            }
        }

        $query = $this->_getCreateTableQuery($name, $fields, $options);
        if (PEAR::isError($query)) {
            return $query;
        }

        if (null !== $autoincrement) {
            // we have to remove the PK clause added by _getIntegerDeclaration()
            $query = str_replace('AUTO_INCREMENT PRIMARY KEY', 'AUTO_INCREMENT', $query);
        }

        $options_strings = array();

        if (!empty($options['comment'])) {
            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');
        }

        if (!empty($options['charset'])) {
            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];
            if (!empty($options['collate'])) {
                $options_strings['charset'].= ' COLLATE '.$options['collate'];
            }
        }

        $type = false;
        if (!empty($options['type'])) {
            $type = $options['type'];
        } elseif ($db->options['default_table_type']) {
            $type = $db->options['default_table_type'];
        }
        if ($type) {
            $options_strings[] = "ENGINE = $type";
        }

        if (!empty($options_strings)) {
            $query .= ' '.implode(' ', $options_strings);
        }
        $result = $db->exec($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropTable()

    /**
     * drop an existing table
     *
     * @param string $name name of the table that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        //delete the triggers associated to existing FK constraints
        $constraints = $this->listTableConstraints($name);
        if (!PEAR::isError($constraints) && !empty($constraints)) {
            $db->loadModule('Reverse', null, true);
            foreach ($constraints as $constraint) {
                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);
                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }

        return parent::dropTable($name);
    }

    // }}}
    // {{{ truncateTable()

    /**
     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,
     * it falls back to a DELETE FROM TABLE query)
     *
     * @param string $name name of the table that should be truncated
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function truncateTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("TRUNCATE TABLE $name");
    }

    // }}}
    // {{{ vacuum()

    /**
     * Optimize (vacuum) all the tables in the db (or only the specified table)
     * and optionally run ANALYZE.
     *
     * @param string $table table name (all the tables if empty)
     * @param array  $options an array with driver-specific options:
     *               - timeout [int] (in seconds) [mssql-only]
     *               - analyze [boolean] [pgsql and mysql]
     *               - full [boolean] [pgsql-only]
     *               - freeze [boolean] [pgsql-only]
     *
     * @return mixed MDB2_OK success, a MDB2 error on failure
     * @access public
     */
    function vacuum($table = null, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (empty($table)) {
            $table = $this->listTables();
            if (PEAR::isError($table)) {
                return $table;
            }
        }
        if (is_array($table)) {
            foreach (array_keys($table) as $k) {
                $table[$k] = $db->quoteIdentifier($table[$k], true);
            }
            $table = implode(', ', $table);
        } else {
            $table = $db->quoteIdentifier($table, true);
        }
        
        $result = $db->exec('OPTIMIZE TABLE '.$table);
        if (PEAR::isError($result)) {
            return $result;
        }
        if (!empty($options['analyze'])) {
            return $db->exec('ANALYZE TABLE '.$table);
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ alterTable()

    /**
     * alter an existing table
     *
     * @param string $name         name of the table that is intended to be changed.
     * @param array $changes     associative array that contains the details of each type
     *                             of change that is intended to be performed. The types of
     *                             changes that are currently supported are defined as follows:
     *
     *                             name
     *
     *                                New name for the table.
     *
     *                            add
     *
     *                                Associative array with the names of fields to be added as
     *                                 indexes of the array. The value of each entry of the array
     *                                 should be set to another associative array with the properties
     *                                 of the fields to be added. The properties of the fields should
     *                                 be the same as defined by the MDB2 parser.
     *
     *
     *                            remove
     *
     *                                Associative array with the names of fields to be removed as indexes
     *                                 of the array. Currently the values assigned to each entry are ignored.
     *                                 An empty array should be used for future compatibility.
     *
     *                            rename
     *
     *                                Associative array with the names of fields to be renamed as indexes
     *                                 of the array. The value of each entry of the array should be set to
     *                                 another associative array with the entry named name with the new
     *                                 field name and the entry named Declaration that is expected to contain
     *                                 the portion of the field declaration already in DBMS specific SQL code
     *                                 as it is used in the CREATE TABLE statement.
     *
     *                            change
     *
     *                                Associative array with the names of the fields to be changed as indexes
     *                                 of the array. Keep in mind that if it is intended to change either the
     *                                 name of a field and any other properties, the change array entries
     *                                 should have the new names of the fields as array indexes.
     *
     *                                The value of each entry of the array should be set to another associative
     *                                 array with the properties of the fields to that are meant to be changed as
     *                                 array entries. These entries should be assigned to the new values of the
     *                                 respective properties. The properties of the fields should be the same
     *                                 as defined by the MDB2 parser.
     *
     *                            Example
     *                                array(
     *                                    'name' => 'userlist',
     *                                    'add' => array(
     *                                        'quota' => array(
     *                                            'type' => 'integer',
     *                                            'unsigned' => 1
     *                                        )
     *                                    ),
     *                                    'remove' => array(
     *                                        'file_limit' => array(),
     *                                        'time_limit' => array()
     *                                    ),
     *                                    'change' => array(
     *                                        'name' => array(
     *                                            'length' => '20',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 20,
     *                                            ),
     *                                        )
     *                                    ),
     *                                    'rename' => array(
     *                                        'sex' => array(
     *                                            'name' => 'gender',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 1,
     *                                                'default' => 'M',
     *                                            ),
     *                                        )
     *                                    )
     *                                )
     *
     * @param boolean $check     indicates whether the function should just check if the DBMS driver
     *                             can perform the requested table alterations if the value is true or
     *                             actually perform them otherwise.
     * @access public
     *
      * @return mixed MDB2_OK on success, a MDB2 error on failure
     */
    function alterTable($name, $changes, $check)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        foreach ($changes as $change_name => $change) {
            switch ($change_name) {
            case 'add':
            case 'remove':
            case 'change':
            case 'rename':
            case 'name':
                break;
            default:
                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);
            }
        }

        if ($check) {
            return MDB2_OK;
        }

        $query = '';
        if (!empty($changes['name'])) {
            $change_name = $db->quoteIdentifier($changes['name'], true);
            $query .= 'RENAME TO ' . $change_name;
        }

        if (!empty($changes['add']) && is_array($changes['add'])) {
            foreach ($changes['add'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                $query.= 'ADD ' . $db->getDeclaration($field['type'], $field_name, $field);
            }
        }

        if (!empty($changes['remove']) && is_array($changes['remove'])) {
            foreach ($changes['remove'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                $field_name = $db->quoteIdentifier($field_name, true);
                $query.= 'DROP ' . $field_name;
            }
        }

        $rename = array();
        if (!empty($changes['rename']) && is_array($changes['rename'])) {
            foreach ($changes['rename'] as $field_name => $field) {
                $rename[$field['name']] = $field_name;
            }
        }

        if (!empty($changes['change']) && is_array($changes['change'])) {
            foreach ($changes['change'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                if (isset($rename[$field_name])) {
                    $old_field_name = $rename[$field_name];
                    unset($rename[$field_name]);
                } else {
                    $old_field_name = $field_name;
                }
                $old_field_name = $db->quoteIdentifier($old_field_name, true);
                $query.= "CHANGE $old_field_name " . $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);
            }
        }

        if (!empty($rename) && is_array($rename)) {
            foreach ($rename as $rename_name => $renamed_field) {
                if ($query) {
                    $query.= ', ';
                }
                $field = $changes['rename'][$renamed_field];
                $renamed_field = $db->quoteIdentifier($renamed_field, true);
                $query.= 'CHANGE ' . $renamed_field . ' ' . $db->getDeclaration($field['definition']['type'], $field['name'], $field['definition']);
            }
        }

        if (!$query) {
            return MDB2_OK;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("ALTER TABLE $name $query");
    }

    // }}}
    // {{{ listDatabases()

    /**
     * list all databases
     *
     * @return mixed array of database names on success, a MDB2 error on failure
     * @access public
     */
    function listDatabases()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $result = $db->queryCol('SHOW DATABASES');
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listUsers()

    /**
     * list all users
     *
     * @return mixed array of user names on success, a MDB2 error on failure
     * @access public
     */
    function listUsers()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->queryCol('SELECT DISTINCT USER FROM mysql.USER');
    }

    // }}}
    // {{{ listFunctions()

    /**
     * list all functions in the current database
     *
     * @return mixed array of function names on success, a MDB2 error on failure
     * @access public
     */
    function listFunctions()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM mysql.proc";
        /*
        SELECT ROUTINE_NAME
          FROM INFORMATION_SCHEMA.ROUTINES
         WHERE ROUTINE_TYPE = 'FUNCTION'
        */
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableTriggers()

    /**
     * list all triggers in the database that reference a given table
     *
     * @param string table for which all referenced triggers should be found
     * @return mixed array of trigger names on success, a MDB2 error on failure
     * @access public
     */
    function listTableTriggers($table = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'SHOW TRIGGERS';
        if (null !== $table) {
            $table = $db->quote($table, 'text');
            $query .= " LIKE $table";
        }
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTables()

    /**
     * list all tables in the current database
     *
     * @param string database, the current is default
     * @return mixed array of table names on success, a MDB2 error on failure
     * @access public
     */
    function listTables($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SHOW /*!50002 FULL*/ TABLES";
        if (null !== $database) {
            $query .= " FROM $database";
        }
        $query.= "/*!50002  WHERE Table_type = 'BASE TABLE'*/";

        $table_names = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }

        $result = array();
        foreach ($table_names as $table) {
            if (!$this->_fixSequenceName($table[0], true)) {
                $result[] = $table[0];
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listViews()

    /**
     * list all views in the current database
     *
     * @param string database, the current is default
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listViews($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'SHOW FULL TABLES';
        if (null !== $database) {
            $query.= " FROM $database";
        }
        $query.= " WHERE Table_type = 'VIEW'";

        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableFields()

    /**
     * list all fields in a table in the current database
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of field names on success, a MDB2 error on failure
     * @access public
     */
    function listTableFields($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $result = $db->queryCol("SHOW COLUMNS FROM $table");
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ createIndex()

    /**
     * Get the stucture of a field into an array
     *
     * @author Leoncx
     * @param string $table      name of the table on which the index is to be created
     * @param string $name       name of the index to be created
     * @param array  $definition associative array that defines properties of the index to be created.
     *                           Currently, only one property named FIELDS is supported. This property
     *                           is also an associative with the names of the index fields as array
     *                           indexes. Each entry of this array is set to another type of associative
     *                           array that specifies properties of the index that are specific to
     *                           each field.
     *
     *                           Currently, only the sorting property is supported. It should be used
     *                           to define the sorting direction of the index. It may be set to either
     *                           ascending or descending.
     *
     *                           Not all DBMS support index sorting direction configuration. The DBMS
     *                           drivers of those that do not support it ignore this property. Use the
     *                           function supports() to determine whether the DBMS driver can manage indexes.
     *
     *                           Example
     *                               array(
     *                                   'fields' => array(
     *                                       'user_name' => array(
     *                                           'sorting' => 'ascending'
     *                                           'length' => 10
     *                                       ),
     *                                       'last_login' => array()
     *                                    )
     *                                )
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createIndex($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "CREATE INDEX $name ON $table";
        $fields = array();
        foreach ($definition['fields'] as $field => $fieldinfo) {
            if (!empty($fieldinfo['length'])) {
                $fields[] = $db->quoteIdentifier($field, true) . '(' . $fieldinfo['length'] . ')';
            } else {
                $fields[] = $db->quoteIdentifier($field, true);
            }
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        return $db->exec($query);
    }

    // }}}
    // {{{ dropIndex()

    /**
     * drop existing index
     *
     * @param string    $table         name of table that should be used in method
     * @param string    $name         name of the index to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropIndex($table, $name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        return $db->exec("DROP INDEX $name ON $table");
    }

    // }}}
    // {{{ listTableIndexes()

    /**
     * list all indexes in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of index names on success, a MDB2 error on failure
     * @access public
     */
    function listTableIndexes($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $key_name = 'Key_name';
        $non_unique = 'Non_unique';
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $key_name = strtolower($key_name);
                $non_unique = strtolower($non_unique);
            } else {
                $key_name = strtoupper($key_name);
                $non_unique = strtoupper($non_unique);
            }
        }

        $table = $db->quoteIdentifier($table, true);
        $query = "SHOW INDEX FROM $table";
        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $index_data) {
            if ($index_data[$non_unique] && ($index = $this->_fixIndexName($index_data[$key_name]))) {
                $result[$index] = true;
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createConstraint()

    /**
     * create a constraint on a table
     *
     * @param string    $table        name of the table on which the constraint is to be created
     * @param string    $name         name of the constraint to be created
     * @param array     $definition   associative array that defines properties of the constraint to be created.
     *                                Currently, only one property named FIELDS is supported. This property
     *                                is also an associative with the names of the constraint fields as array
     *                                constraints. Each entry of this array is set to another type of associative
     *                                array that specifies properties of the constraint that are specific to
     *                                each field.
     *
     *                                Example
     *                                   array(
     *                                       'fields' => array(
     *                                           'user_name' => array(),
     *                                           'last_login' => array()
     *                                       )
     *                                   )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createConstraint($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $type = '';
        $idx_name = $db->quoteIdentifier($db->getIndexName($name), true);
        if (!empty($definition['primary'])) {
            $type = 'PRIMARY';
            $idx_name = 'KEY';
        } elseif (!empty($definition['unique'])) {
            $type = 'UNIQUE';
        } elseif (!empty($definition['foreign'])) {
            $type = 'CONSTRAINT';
        }
        if (empty($type)) {
            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,
                'invalid definition, could not create constraint', __FUNCTION__);
        }

        $table_quoted = $db->quoteIdentifier($table, true);
        $query = "ALTER TABLE $table_quoted ADD $type $idx_name";
        if (!empty($definition['foreign'])) {
            $query .= ' FOREIGN KEY';
        }
        $fields = array();
        foreach ($definition['fields'] as $field => $fieldinfo) {
            $quoted = $db->quoteIdentifier($field, true);
            if (!empty($fieldinfo['length'])) {
                $quoted .= '(' . $fieldinfo['length'] . ')';
            }
            $fields[] = $quoted;
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        if (!empty($definition['foreign'])) {
            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);
            $referenced_fields = array();
            foreach (array_keys($definition['references']['fields']) as $field) {
                $referenced_fields[] = $db->quoteIdentifier($field, true);
            }
            $query .= ' ('. implode(', ', $referenced_fields) . ')';
            $query .= $this->_getAdvancedFKOptions($definition);

            // add index on FK column(s) or we can't add a FK constraint
            // @see http://forums.mysql.com/read.php?22,19755,226009
            $result = $this->createIndex($table, $name.'_fkidx', $definition);
            if (PEAR::isError($result)) {
                return $result;
            }
        }
        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }
        if (!empty($definition['foreign'])) {
            return $this->_createFKTriggers($table, array($name => $definition));
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropConstraint()

    /**
     * drop existing constraint
     *
     * @param string    $table        name of table that should be used in method
     * @param string    $name         name of the constraint to be dropped
     * @param string    $primary      hint if the constraint is primary
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropConstraint($table, $name, $primary = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if ($primary || strtolower($name) == 'primary') {
            $query = 'ALTER TABLE '. $db->quoteIdentifier($table, true) .' DROP PRIMARY KEY';
            return $db->exec($query);
        }

        //is it a FK constraint? If so, also delete the associated triggers
        $db->loadModule('Reverse', null, true);
        $definition = $db->reverse->getTableConstraintDefinition($table, $name);
        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
            //first drop the FK enforcing triggers
            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);
            if (PEAR::isError($result)) {
                return $result;
            }
            //then drop the constraint itself
            $table = $db->quoteIdentifier($table, true);
            $name = $db->quoteIdentifier($db->getIndexName($name), true);
            $query = "ALTER TABLE $table DROP FOREIGN KEY $name";
            return $db->exec($query);
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "ALTER TABLE $table DROP INDEX $name";
        return $db->exec($query);
    }

    // }}}
    // {{{ _createFKTriggers()

    /**
     * Create triggers to enforce the FOREIGN KEY constraint on the table
     *
     * NB: since there's no RAISE_APPLICATION_ERROR facility in mysql,
     * we call a non-existent procedure to raise the FK violation message.
     * @see http://forums.mysql.com/read.php?99,55108,71877#msg-71877
     *
     * @param string $table        table name
     * @param array  $foreign_keys FOREIGN KEY definitions
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access private
     */
    function _createFKTriggers($table, $foreign_keys)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        // create triggers to enforce FOREIGN KEY constraints
        if ($db->supports('triggers') && !empty($foreign_keys)) {
            $table_quoted = $db->quoteIdentifier($table, true);
            foreach ($foreign_keys as $fkname => $fkdef) {
                if (empty($fkdef)) {
                    continue;
                }
                //set actions to default if not set
                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? $db->options['default_fk_action_onupdate'] : strtoupper($fkdef['onupdate']);
                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? $db->options['default_fk_action_ondelete'] : strtoupper($fkdef['ondelete']);

                $trigger_names = array(
                    'insert'    => $fkname.'_insert_trg',
                    'update'    => $fkname.'_update_trg',
                    'pk_update' => $fkname.'_pk_update_trg',
                    'pk_delete' => $fkname.'_pk_delete_trg',
                );
                $table_fields = array_keys($fkdef['fields']);
                $referenced_fields = array_keys($fkdef['references']['fields']);

                //create the ON [UPDATE|DELETE] triggers on the primary table
                $restrict_action = ' IF (SELECT ';
                $aliased_fields = array();
                foreach ($table_fields as $field) {
                    $aliased_fields[] = $table_quoted .'.'.$field .' AS '.$field;
                }
                $restrict_action .= implode(',', $aliased_fields)
                       .' FROM '.$table_quoted
                       .' WHERE ';
                $conditions  = array();
                $new_values  = array();
                $null_values = array();
                for ($i=0; $i<count($table_fields); $i++) {
                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];
                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];
                    $null_values[] = $table_fields[$i] .' = NULL';
                }
                $conditions2 = array();
                if ('NO ACTION' != $fkdef['ondelete']) {
                    // There is no NEW row in on DELETE trigger
                    for ($i=0; $i<count($referenced_fields); $i++) {
                        $conditions2[]  = 'NEW.'.$referenced_fields[$i] .' <> OLD.'.$referenced_fields[$i];
                    }
                }

                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL';
                if (!empty($conditions2)) {
                    $restrict_action .= ' AND (' .implode(' OR ', $conditions2) .')';
                }
                $restrict_action .= ' THEN CALL %s_ON_TABLE_'.$table.'_VIOLATES_FOREIGN_KEY_CONSTRAINT();'
                                   .' END IF;';

                $cascade_action_update = 'UPDATE '.$table_quoted.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions). ';';
                $cascade_action_delete = 'DELETE FROM '.$table_quoted.' WHERE '.implode(' AND ', $conditions). ';';
                $setnull_action        = 'UPDATE '.$table_quoted.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions). ';';

                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {
                    $db->loadModule('Reverse', null, true);
                    $default_values = array();
                    foreach ($table_fields as $table_field) {
                        $field_definition = $db->reverse->getTableFieldDefinition($table, $field);
                        if (PEAR::isError($field_definition)) {
                            return $field_definition;
                        }
                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];
                    }
                    $setdefault_action = 'UPDATE '.$table_quoted.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions). ';';
                }

                $query = 'CREATE TRIGGER %s'
                        .' %s ON '.$fkdef['references']['table']
                        .' FOR EACH ROW BEGIN '
                        .' SET FOREIGN_KEY_CHECKS = 0; ';  //only really needed for ON UPDATE CASCADE

                if ('CASCADE' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE',  'update') . $cascade_action_update;
                } elseif ('SET NULL' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action;
                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action;
                } elseif ('NO ACTION' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update');
                } elseif ('RESTRICT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update');
                }
                if ('CASCADE' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE',  'delete') . $cascade_action_delete;
                } elseif ('SET NULL' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action;
                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action;
                } elseif ('NO ACTION' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete');
                } elseif ('RESTRICT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete');
                }
                $sql_update .= ' SET FOREIGN_KEY_CHECKS = 1; END;';
                $sql_delete .= ' SET FOREIGN_KEY_CHECKS = 1; END;';

                $db->pushErrorHandling(PEAR_ERROR_RETURN);
                $db->expectError(MDB2_ERROR_CANNOT_CREATE);
                $result = $db->exec($sql_delete);
                $expected_errmsg = 'This MySQL version doesn\'t support multiple triggers with the same action time and event for one table';
                $db->popExpect();
                $db->popErrorHandling();
                if (PEAR::isError($result)) {
                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                        return $result;
                    }
                    $db->warnings[] = $expected_errmsg;
                }
                $db->pushErrorHandling(PEAR_ERROR_RETURN);
                $db->expectError(MDB2_ERROR_CANNOT_CREATE);
                $result = $db->exec($sql_update);
                $db->popExpect();
                $db->popErrorHandling();
                if (PEAR::isError($result) && $result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                        return $result;
                    }
                    $db->warnings[] = $expected_errmsg;
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ _dropFKTriggers()

    /**
     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table
     *
     * @param string $table            table name
     * @param string $fkname           FOREIGN KEY constraint name
     * @param string $referenced_table referenced table name
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access private
     */
    function _dropFKTriggers($table, $fkname, $referenced_table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $triggers  = $this->listTableTriggers($table);
        $triggers2 = $this->listTableTriggers($referenced_table);
        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {
            $triggers = array_merge($triggers, $triggers2);
            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';
            foreach ($triggers as $trigger) {
                if (preg_match($pattern, $trigger)) {
                    $result = $db->exec('DROP TRIGGER '.$trigger);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ listTableConstraints()

    /**
     * list all constraints in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of constraint names on success, a MDB2 error on failure
     * @access public
     */
    function listTableConstraints($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $key_name = 'Key_name';
        $non_unique = 'Non_unique';
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $key_name = strtolower($key_name);
                $non_unique = strtolower($non_unique);
            } else {
                $key_name = strtoupper($key_name);
                $non_unique = strtoupper($non_unique);
            }
        }

        $query = 'SHOW INDEX FROM ' . $db->quoteIdentifier($table, true);
        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $index_data) {
            if (!$index_data[$non_unique]) {
                if ($index_data[$key_name] !== 'PRIMARY') {
                    $index = $this->_fixIndexName($index_data[$key_name]);
                } else {
                    $index = 'PRIMARY';
                }
                if (!empty($index)) {
                    $result[$index] = true;
                }
            }
        }
        
        //list FOREIGN KEY constraints...
        $query = 'SHOW CREATE TABLE '. $db->escape($table);
        $definition = $db->queryOne($query, 'text', 1);
        if (!PEAR::isError($definition) && !empty($definition)) {
            $pattern = '/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN KEY\b/Uims';
            if (preg_match_all($pattern, str_replace('`', '', $definition), $matches) > 0) {
                foreach ($matches[1] as $constraint) {
                    $result[$constraint] = true;
                }
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createSequence()

    /**
     * create sequence
     *
     * @param string    $seq_name name of the sequence to be created
     * @param string    $start    start value of the sequence; default is 1
     * @param array     $options  An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'charset' => 'utf8',
     *                              'collate' => 'utf8_unicode_ci',
     *                              'type'    => 'innodb',
     *                          );
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createSequence($seq_name, $start = 1, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);
        
        $options_strings = array();

        if (!empty($options['comment'])) {
            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');
        }

        if (!empty($options['charset'])) {
            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];
            if (!empty($options['collate'])) {
                $options_strings['charset'].= ' COLLATE '.$options['collate'];
            }
        }

        $type = false;
        if (!empty($options['type'])) {
            $type = $options['type'];
        } elseif ($db->options['default_table_type']) {
            $type = $db->options['default_table_type'];
        }
        if ($type) {
            $options_strings[] = "ENGINE = $type";
        }

        $query = "CREATE TABLE $sequence_name ($seqcol_name INT NOT NULL AUTO_INCREMENT, PRIMARY KEY ($seqcol_name))";
        if (!empty($options_strings)) {
            $query .= ' '.implode(' ', $options_strings);
        }
        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }

        if ($start == 1) {
            return MDB2_OK;
        }

        $query = "INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')';
        $res = $db->exec($query);
        if (!PEAR::isError($res)) {
            return MDB2_OK;
        }

        // Handle error
        $result = $db->exec("DROP TABLE $sequence_name");
        if (PEAR::isError($result)) {
            return $db->raiseError($result, null, null,
                'could not drop inconsistent sequence table', __FUNCTION__);
        }

        return $db->raiseError($res, null, null,
            'could not create sequence table', __FUNCTION__);
    }

    // }}}
    // {{{ dropSequence()

    /**
     * drop existing sequence
     *
     * @param string    $seq_name     name of the sequence to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropSequence($seq_name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        return $db->exec("DROP TABLE $sequence_name");
    }

    // }}}
    // {{{ listSequences()

    /**
     * list all sequences in the current database
     *
     * @param string database, the current is default
     * @return mixed array of sequence names on success, a MDB2 error on failure
     * @access public
     */
    function listSequences($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SHOW TABLES";
        if (null !== $database) {
            $query .= " FROM $database";
        }
        $table_names = $db->queryCol($query);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }

        $result = array();
        foreach ($table_names as $table_name) {
            if ($sqn = $this->_fixSequenceName($table_name, true)) {
                $result[] = $sqn;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Manager/mysqli.php

@@ -1,1418 +1,1438 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith                                         |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Author: Lukas Smith <smith@pooteeweet.org>                           |

// +----------------------------------------------------------------------+

//

// $Id: mysqli.php,v 1.95 2008/03/11 19:58:12 quipo Exp $

//



require_once 'MDB2/Driver/Manager/Common.php';



/**

 * MDB2 MySQLi driver for the management modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 */

class MDB2_Driver_Manager_mysqli extends MDB2_Driver_Manager_Common

{



    // }}}

    // {{{ createDatabase()



    /**

     * create a new database

     *

     * @param string $name    name of the database that should be created

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createDatabase($name, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name  = $db->quoteIdentifier($name, true);

        $query = 'CREATE DATABASE ' . $name;

        if (!empty($options['charset'])) {

            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');

        }

        if (!empty($options['collation'])) {

            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');

        }

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ alterDatabase()



    /**

     * alter an existing database

     *

     * @param string $name    name of the database that is intended to be changed

     * @param array  $options array with charset, collation info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function alterDatabase($name, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true);

        if (!empty($options['charset'])) {

            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');

        }

        if (!empty($options['collation'])) {

            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');

        }

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ dropDatabase()



    /**

     * drop an existing database

     *

     * @param string $name name of the database that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropDatabase($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        $query = "DROP DATABASE $name";

        return $db->standaloneQuery($query, null, true);

    }



    // }}}

    // {{{ _getAdvancedFKOptions()



    /**

     * Return the FOREIGN KEY query section dealing with non-standard options

     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...

     *

     * @param array $definition

     * @return string

     * @access protected

     */

    function _getAdvancedFKOptions($definition)

    {

        $query = '';

        if (!empty($definition['match'])) {

            $query .= ' MATCH '.$definition['match'];

        }

        if (!empty($definition['onupdate'])) {

            $query .= ' ON UPDATE '.$definition['onupdate'];

        }

        if (!empty($definition['ondelete'])) {

            $query .= ' ON DELETE '.$definition['ondelete'];

        }

        return $query;

    }



    // }}}

    // {{{ createTable()



    /**

     * create a new table

     *

     * @param string $name   Name of the database that should be created

     * @param array $fields  Associative array that contains the definition of each field of the new table

     *                       The indexes of the array entries are the names of the fields of the table an

     *                       the array entry values are associative arrays like those that are meant to be

     *                       passed with the field definitions to get[Type]Declaration() functions.

     *                          array(

     *                              'id' => array(

     *                                  'type' => 'integer',

     *                                  'unsigned' => 1

     *                                  'notnull' => 1

     *                                  'default' => 0

     *                              ),

     *                              'name' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              ),

     *                              'password' => array(

     *                                  'type' => 'text',

     *                                  'length' => 12

     *                              )

     *                          );

     * @param array $options  An associative array of table options:

     *                          array(

     *                              'comment' => 'Foo',

     *                              'charset' => 'utf8',

     *                              'collate' => 'utf8_unicode_ci',

     *                              'type'    => 'innodb',

     *                          );

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createTable($name, $fields, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        // if we have an AUTO_INCREMENT column and a PK on more than one field,

        // we have to handle it differently...

        $autoincrement = null;

        if (empty($options['primary'])) {

            $pk_fields = array();

            foreach ($fields as $fieldname => $def) {

                if (!empty($def['primary'])) {

                    $pk_fields[$fieldname] = true;

                }

                if (!empty($def['autoincrement'])) {

                    $autoincrement = $fieldname;

                }

            }

            if (!is_null($autoincrement) && count($pk_fields) > 1) {

                $options['primary'] = $pk_fields;

            } else {

                // the PK constraint is on max one field => OK

                $autoincrement = null;

            }

        }



        $query = $this->_getCreateTableQuery($name, $fields, $options);

        if (PEAR::isError($query)) {

            return $query;

        }



        if (!is_null($autoincrement)) {

            // we have to remove the PK clause added by _getIntegerDeclaration()

            $query = str_replace('AUTO_INCREMENT PRIMARY KEY', 'AUTO_INCREMENT', $query);

        }



        $options_strings = array();



        if (!empty($options['comment'])) {

            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');

        }



        if (!empty($options['charset'])) {

            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];

            if (!empty($options['collate'])) {

                $options_strings['charset'].= ' COLLATE '.$options['collate'];

            }

        }



        $type = false;

        if (!empty($options['type'])) {

            $type = $options['type'];

        } elseif ($db->options['default_table_type']) {

            $type = $db->options['default_table_type'];

        }

        if ($type) {

            $options_strings[] = "ENGINE = $type";

        }



        if (!empty($options_strings)) {

            $query .= ' '.implode(' ', $options_strings);

        }

        $result = $db->exec($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropTable()



    /**

     * drop an existing table

     *

     * @param string $name name of the table that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        //delete the triggers associated to existing FK constraints

        $constraints = $this->listTableConstraints($name);

        if (!PEAR::isError($constraints) && !empty($constraints)) {

            $db->loadModule('Reverse', null, true);

            foreach ($constraints as $constraint) {

                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);

                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }



        return parent::dropTable($name);

    }



    // }}}

    // {{{ truncateTable()



    /**

     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,

     * it falls back to a DELETE FROM TABLE query)

     *

     * @param string $name name of the table that should be truncated

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function truncateTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("TRUNCATE TABLE $name");

    }



    // }}}

    // {{{ vacuum()



    /**

     * Optimize (vacuum) all the tables in the db (or only the specified table)

     * and optionally run ANALYZE.

     *

     * @param string $table table name (all the tables if empty)

     * @param array  $options an array with driver-specific options:

     *               - timeout [int] (in seconds) [mssql-only]

     *               - analyze [boolean] [pgsql and mysql]

     *               - full [boolean] [pgsql-only]

     *               - freeze [boolean] [pgsql-only]

     *

     * @return mixed MDB2_OK success, a MDB2 error on failure

     * @access public

     */

    function vacuum($table = null, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (empty($table)) {

            $table = $this->listTables();

            if (PEAR::isError($table)) {

                return $table;

            }

        }

        if (is_array($table)) {

            foreach (array_keys($table) as $k) {

                $table[$k] = $db->quoteIdentifier($table[$k], true);

            }

            $table = implode(', ', $table);

        } else {

            $table = $db->quoteIdentifier($table, true);

        }



        $result = $db->exec('OPTIMIZE TABLE '.$table);

        if (PEAR::isError($result)) {

            return $result;

        }

        if (!empty($options['analyze'])) {

            return $db->exec('ANALYZE TABLE '.$table);

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ alterTable()



    /**

     * alter an existing table

     *

     * @param string $name         name of the table that is intended to be changed.

     * @param array $changes     associative array that contains the details of each type

     *                             of change that is intended to be performed. The types of

     *                             changes that are currently supported are defined as follows:

     *

     *                             name

     *

     *                                New name for the table.

     *

     *                            add

     *

     *                                Associative array with the names of fields to be added as

     *                                 indexes of the array. The value of each entry of the array

     *                                 should be set to another associative array with the properties

     *                                 of the fields to be added. The properties of the fields should

     *                                 be the same as defined by the MDB2 parser.

     *

     *

     *                            remove

     *

     *                                Associative array with the names of fields to be removed as indexes

     *                                 of the array. Currently the values assigned to each entry are ignored.

     *                                 An empty array should be used for future compatibility.

     *

     *                            rename

     *

     *                                Associative array with the names of fields to be renamed as indexes

     *                                 of the array. The value of each entry of the array should be set to

     *                                 another associative array with the entry named name with the new

     *                                 field name and the entry named Declaration that is expected to contain

     *                                 the portion of the field declaration already in DBMS specific SQL code

     *                                 as it is used in the CREATE TABLE statement.

     *

     *                            change

     *

     *                                Associative array with the names of the fields to be changed as indexes

     *                                 of the array. Keep in mind that if it is intended to change either the

     *                                 name of a field and any other properties, the change array entries

     *                                 should have the new names of the fields as array indexes.

     *

     *                                The value of each entry of the array should be set to another associative

     *                                 array with the properties of the fields to that are meant to be changed as

     *                                 array entries. These entries should be assigned to the new values of the

     *                                 respective properties. The properties of the fields should be the same

     *                                 as defined by the MDB2 parser.

     *

     *                            Example

     *                                array(

     *                                    'name' => 'userlist',

     *                                    'add' => array(

     *                                        'quota' => array(

     *                                            'type' => 'integer',

     *                                            'unsigned' => 1

     *                                        )

     *                                    ),

     *                                    'remove' => array(

     *                                        'file_limit' => array(),

     *                                        'time_limit' => array()

     *                                    ),

     *                                    'change' => array(

     *                                        'name' => array(

     *                                            'length' => '20',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 20,

     *                                            ),

     *                                        )

     *                                    ),

     *                                    'rename' => array(

     *                                        'sex' => array(

     *                                            'name' => 'gender',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 1,

     *                                                'default' => 'M',

     *                                            ),

     *                                        )

     *                                    )

     *                                )

     *

     * @param boolean $check     indicates whether the function should just check if the DBMS driver

     *                             can perform the requested table alterations if the value is true or

     *                             actually perform them otherwise.

     * @access public

     *

      * @return mixed MDB2_OK on success, a MDB2 error on failure

     */

    function alterTable($name, $changes, $check)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        foreach ($changes as $change_name => $change) {

            switch ($change_name) {

            case 'add':

            case 'remove':

            case 'change':

            case 'rename':

            case 'name':

                break;

            default:

                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,

                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);

            }

        }



        if ($check) {

            return MDB2_OK;

        }



        $query = '';

        if (!empty($changes['name'])) {

            $change_name = $db->quoteIdentifier($changes['name'], true);

            $query .= 'RENAME TO ' . $change_name;

        }



        if (!empty($changes['add']) && is_array($changes['add'])) {

            foreach ($changes['add'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                $query.= 'ADD ' . $db->getDeclaration($field['type'], $field_name, $field);

            }

        }



        if (!empty($changes['remove']) && is_array($changes['remove'])) {

            foreach ($changes['remove'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                $field_name = $db->quoteIdentifier($field_name, true);

                $query.= 'DROP ' . $field_name;

            }

        }



        $rename = array();

        if (!empty($changes['rename']) && is_array($changes['rename'])) {

            foreach ($changes['rename'] as $field_name => $field) {

                $rename[$field['name']] = $field_name;

            }

        }



        if (!empty($changes['change']) && is_array($changes['change'])) {

            foreach ($changes['change'] as $field_name => $field) {

                if ($query) {

                    $query.= ', ';

                }

                if (isset($rename[$field_name])) {

                    $old_field_name = $rename[$field_name];

                    unset($rename[$field_name]);

                } else {

                    $old_field_name = $field_name;

                }

                $old_field_name = $db->quoteIdentifier($old_field_name, true);

                $query.= "CHANGE $old_field_name " . $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);

            }

        }



        if (!empty($rename) && is_array($rename)) {

            foreach ($rename as $rename_name => $renamed_field) {

                if ($query) {

                    $query.= ', ';

                }

                $field = $changes['rename'][$renamed_field];

                $renamed_field = $db->quoteIdentifier($renamed_field, true);

                $query.= 'CHANGE ' . $renamed_field . ' ' . $db->getDeclaration($field['definition']['type'], $field['name'], $field['definition']);

            }

        }



        if (!$query) {

            return MDB2_OK;

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("ALTER TABLE $name $query");

    }



    // }}}

    // {{{ listDatabases()



    /**

     * list all databases

     *

     * @return mixed array of database names on success, a MDB2 error on failure

     * @access public

     */

    function listDatabases()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $result = $db->queryCol('SHOW DATABASES');

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listUsers()



    /**

     * list all users

     *

     * @return mixed array of user names on success, a MDB2 error on failure

     * @access public

     */

    function listUsers()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->queryCol('SELECT DISTINCT USER FROM mysql.USER');

    }



    // }}}

    // {{{ listFunctions()



    /**

     * list all functions in the current database

     *

     * @return mixed array of function names on success, a MDB2 error on failure

     * @access public

     */

    function listFunctions()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM mysql.proc";

        /*

        SELECT ROUTINE_NAME

          FROM INFORMATION_SCHEMA.ROUTINES

         WHERE ROUTINE_TYPE = 'FUNCTION'

        */

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableTriggers()



    /**

     * list all triggers in the database that reference a given table

     *

     * @param string table for which all referenced triggers should be found

     * @return mixed array of trigger names on success, a MDB2 error on failure

     * @access public

     */

    function listTableTriggers($table = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'SHOW TRIGGERS';

        if (!is_null($table)) {

            $table = $db->quote($table, 'text');

            $query .= " LIKE $table";

        }

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTables()



    /**

     * list all tables in the current database

     *

     * @param string database, the current is default

     * @return mixed array of table names on success, a MDB2 error on failure

     * @access public

     */

    function listTables($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SHOW /*!50002 FULL*/ TABLES";

        if (!is_null($database)) {

            $query .= " FROM $database";

        }

        $query.= "/*!50002  WHERE Table_type = 'BASE TABLE'*/";



        $table_names = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }



        $result = array();

        foreach ($table_names as $table) {

            if (!$this->_fixSequenceName($table[0], true)) {

                $result[] = $table[0];

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listViews()



    /**

     * list all views in the current database

     *

     * @param string database, the current is default

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listViews($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'SHOW FULL TABLES';

        if (!is_null($database)) {

            $query.= " FROM $database";

        }

        $query.= " WHERE Table_type = 'VIEW'";



        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableFields()



    /**

     * list all fields in a table in the current database

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of field names on success, a MDB2 error on failure

     * @access public

     */

    function listTableFields($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $result = $db->queryCol("SHOW COLUMNS FROM $table");

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ createIndex()



    /**

     * Get the stucture of a field into an array

     *

     * @author Leoncx

     * @param string    $table         name of the table on which the index is to be created

     * @param string    $name         name of the index to be created

     * @param array     $definition        associative array that defines properties of the index to be created.

     *                                 Currently, only one property named FIELDS is supported. This property

     *                                 is also an associative with the names of the index fields as array

     *                                 indexes. Each entry of this array is set to another type of associative

     *                                 array that specifies properties of the index that are specific to

     *                                 each field.

     *

     *                                Currently, only the sorting property is supported. It should be used

     *                                 to define the sorting direction of the index. It may be set to either

     *                                 ascending or descending.

     *

     *                                Not all DBMS support index sorting direction configuration. The DBMS

     *                                 drivers of those that do not support it ignore this property. Use the

     *                                 function supports() to determine whether the DBMS driver can manage indexes.

     *

     *                                 Example

     *                                    array(

     *                                        'fields' => array(

     *                                            'user_name' => array(

     *                                                'sorting' => 'ascending'

     *                                                'length' => 10

     *                                            ),

     *                                            'last_login' => array()

     *                                        )

     *                                    )

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createIndex($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "CREATE INDEX $name ON $table";

        $fields = array();

        foreach ($definition['fields'] as $field => $fieldinfo) {

            if (!empty($fieldinfo['length'])) {

                $fields[] = $db->quoteIdentifier($field, true) . '(' . $fieldinfo['length'] . ')';

            } else {

                $fields[] = $db->quoteIdentifier($field, true);

            }

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        return $db->exec($query);

    }



    // }}}

    // {{{ dropIndex()



    /**

     * drop existing index

     *

     * @param string    $table         name of table that should be used in method

     * @param string    $name         name of the index to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropIndex($table, $name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        return $db->exec("DROP INDEX $name ON $table");

    }



    // }}}

    // {{{ listTableIndexes()



    /**

     * list all indexes in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of index names on success, a MDB2 error on failure

     * @access public

     */

    function listTableIndexes($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $key_name = 'Key_name';

        $non_unique = 'Non_unique';

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            if ($db->options['field_case'] == CASE_LOWER) {

                $key_name = strtolower($key_name);

                $non_unique = strtolower($non_unique);

            } else {

                $key_name = strtoupper($key_name);

                $non_unique = strtoupper($non_unique);

            }

        }



        $table = $db->quoteIdentifier($table, true);

        $query = "SHOW INDEX FROM $table";

        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $index_data) {

            if ($index_data[$non_unique] && ($index = $this->_fixIndexName($index_data[$key_name]))) {

                $result[$index] = true;

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createConstraint()



    /**

     * create a constraint on a table

     *

     * @param string    $table         name of the table on which the constraint is to be created

     * @param string    $name         name of the constraint to be created

     * @param array     $definition        associative array that defines properties of the constraint to be created.

     *                                 Currently, only one property named FIELDS is supported. This property

     *                                 is also an associative with the names of the constraint fields as array

     *                                 constraints. Each entry of this array is set to another type of associative

     *                                 array that specifies properties of the constraint that are specific to

     *                                 each field.

     *

     *                                 Example

     *                                    array(

     *                                        'fields' => array(

     *                                            'user_name' => array(),

     *                                            'last_login' => array()

     *                                        )

     *                                    )

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createConstraint($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $type = '';

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        if (!empty($definition['primary'])) {

            $type = 'PRIMARY';

            $name = 'KEY';

        } elseif (!empty($definition['unique'])) {

            $type = 'UNIQUE';

        } elseif (!empty($definition['foreign'])) {

            $type = 'CONSTRAINT';

        }

        if (empty($type)) {

            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

                'invalid definition, could not create constraint', __FUNCTION__);

        }



        $table_quoted = $db->quoteIdentifier($table, true);

        $query = "ALTER TABLE $table_quoted ADD $type $name";

        if (!empty($definition['foreign'])) {

            $query .= ' FOREIGN KEY';

        }

        $fields = array();

        foreach (array_keys($definition['fields']) as $field) {

            $fields[] = $db->quoteIdentifier($field, true);

        }

        $query .= ' ('. implode(', ', $fields) . ')';

        if (!empty($definition['foreign'])) {

            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);

            $referenced_fields = array();

            foreach (array_keys($definition['references']['fields']) as $field) {

                $referenced_fields[] = $db->quoteIdentifier($field, true);

            }

            $query .= ' ('. implode(', ', $referenced_fields) . ')';

            $query .= $this->_getAdvancedFKOptions($definition);

        }

        $res = $db->exec($query);

        if (PEAR::isError($res)) {

            return $res;

        }

        if (!empty($definition['foreign'])) {

            return $this->_createFKTriggers($table, array($name => $definition));

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropConstraint()



    /**

     * drop existing constraint

     *

     * @param string    $table        name of table that should be used in method

     * @param string    $name         name of the constraint to be dropped

     * @param string    $primary      hint if the constraint is primary

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropConstraint($table, $name, $primary = false)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        
        if ($primary || strtolower($name) == 'primary') {

            $query = 'ALTER TABLE '. $db->quoteIdentifier($table, true) .' DROP PRIMARY KEY';

            return $db->exec($query);

        }

        
        //is it a FK constraint? If so, also delete the associated triggers

        $db->loadModule('Reverse', null, true);

        $definition = $db->reverse->getTableConstraintDefinition($table, $name);

        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

            //first drop the FK enforcing triggers

            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);

            if (PEAR::isError($result)) {

                return $result;

            }

            //then drop the constraint itself

            $table = $db->quoteIdentifier($table, true);

            $name = $db->quoteIdentifier($db->getIndexName($name), true);

            $query = "ALTER TABLE $table DROP FOREIGN KEY $name";

            return $db->exec($query);

        }



        $table = $db->quoteIdentifier($table, true);

        $name = $db->quoteIdentifier($db->getIndexName($name), true);

        $query = "ALTER TABLE $table DROP INDEX $name";

        return $db->exec($query);

    }



    // }}}

    // {{{ _createFKTriggers()



    /**

     * Create triggers to enforce the FOREIGN KEY constraint on the table

     *

     * NB: since there's no RAISE_APPLICATION_ERROR facility in mysql,

     * we call a non-existent procedure to raise the FK violation message.

     * @see http://forums.mysql.com/read.php?99,55108,71877#msg-71877

     *

     * @param string $table        table name

     * @param array  $foreign_keys FOREIGN KEY definitions

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access private

     */

    function _createFKTriggers($table, $foreign_keys)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        // create triggers to enforce FOREIGN KEY constraints

        if ($db->supports('triggers') && !empty($foreign_keys)) {

            $table = $db->quoteIdentifier($table, true);

            foreach ($foreign_keys as $fkname => $fkdef) {

                if (empty($fkdef)) {

                    continue;

                }

                //set actions to 'RESTRICT' if not set

                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? 'RESTRICT' : strtoupper($fkdef['onupdate']);

                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? 'RESTRICT' : strtoupper($fkdef['ondelete']);



                $trigger_names = array(

                    'insert'    => $fkname.'_insert_trg',

                    'update'    => $fkname.'_update_trg',

                    'pk_update' => $fkname.'_pk_update_trg',

                    'pk_delete' => $fkname.'_pk_delete_trg',

                );

                $table_fields = array_keys($fkdef['fields']);

                $referenced_fields = array_keys($fkdef['references']['fields']);



                //create the ON [UPDATE|DELETE] triggers on the primary table

                $restrict_action = ' IF (SELECT ';

                $aliased_fields = array();

                foreach ($table_fields as $field) {

                    $aliased_fields[] = $table .'.'.$field .' AS '.$field;

                }

                $restrict_action .= implode(',', $aliased_fields)

                       .' FROM '.$table

                       .' WHERE ';

                $conditions  = array();

                $new_values  = array();

                $null_values = array();

                for ($i=0; $i<count($table_fields); $i++) {

                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];

                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];

                    $null_values[] = $table_fields[$i] .' = NULL';

                }

                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL'

                                .' THEN CALL %s_ON_TABLE_'.$table.'_VIOLATES_FOREIGN_KEY_CONSTRAINT();'

                                .' END IF;';



                $cascade_action_update = 'UPDATE '.$table.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions). ';';

                $cascade_action_delete = 'DELETE FROM '.$table.' WHERE '.implode(' AND ', $conditions). ';';

                $setnull_action        = 'UPDATE '.$table.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions). ';';



                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {

                    $db->loadModule('Reverse', null, true);

                    $default_values = array();

                    foreach ($table_fields as $table_field) {

                        $field_definition = $db->reverse->getTableFieldDefinition($table, $field);

                        if (PEAR::isError($field_definition)) {

                            return $field_definition;

                        }

                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];

                    }

                    $setdefault_action = 'UPDATE '.$table.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions). ';';

                }



                $query = 'CREATE TRIGGER %s'

                        .' %s ON '.$fkdef['references']['table']

                        .' FOR EACH ROW BEGIN '

                        .' SET FOREIGN_KEY_CHECKS = 0; ';  //only really needed for ON UPDATE CASCADE



                if ('CASCADE' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE',  'update') . $cascade_action_update;

                } elseif ('SET NULL' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action;

                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action;

                } elseif ('NO ACTION' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update');

                } else {

                    //'RESTRICT'

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update');

                }

                if ('CASCADE' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE',  'delete') . $cascade_action_delete;

                } elseif ('SET NULL' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action;

                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action;

                } elseif ('NO ACTION' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete');

                } else {

                    //'RESTRICT'

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete');

                }

                $sql_update .= ' SET FOREIGN_KEY_CHECKS = 1; END;';

                $sql_delete .= ' SET FOREIGN_KEY_CHECKS = 1; END;';



                $db->pushErrorHandling(PEAR_ERROR_RETURN);

                $db->expectError(MDB2_ERROR_CANNOT_CREATE); 
                $result = $db->exec($sql_delete);

                $expected_errmsg = 'This MySQL version doesn\'t support multiple triggers with the same action time and event for one table';

                $db->popExpect();

                $db->popErrorHandling();

                if (PEAR::isError($result)) {

                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                        return $result;

                    }

                    $db->warnings[] = $expected_errmsg;

                }

                $db->pushErrorHandling(PEAR_ERROR_RETURN);

                $db->expectError(MDB2_ERROR_CANNOT_CREATE);

                $result = $db->exec($sql_update);

                $db->popExpect();

                $db->popErrorHandling();

                if (PEAR::isError($result) && $result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {

                        return $result;

                    }

                    $db->warnings[] = $expected_errmsg;

                }

            }

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ _dropFKTriggers()



    /**

     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table

     *

     * @param string $table            table name

     * @param string $fkname           FOREIGN KEY constraint name

     * @param string $referenced_table referenced table name

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access private

     */

    function _dropFKTriggers($table, $fkname, $referenced_table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $triggers  = $this->listTableTriggers($table);

        $triggers2 = $this->listTableTriggers($referenced_table);

        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {

            $triggers = array_merge($triggers, $triggers2);

            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';

            foreach ($triggers as $trigger) {

                if (preg_match($pattern, $trigger)) {

                    $result = $db->exec('DROP TRIGGER '.$trigger);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ listTableConstraints()



    /**

     * list all constraints in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of constraint names on success, a MDB2 error on failure

     * @access public

     */

    function listTableConstraints($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $key_name = 'Key_name';

        $non_unique = 'Non_unique';

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            if ($db->options['field_case'] == CASE_LOWER) {

                $key_name = strtolower($key_name);

                $non_unique = strtolower($non_unique);

            } else {

                $key_name = strtoupper($key_name);

                $non_unique = strtoupper($non_unique);

            }

        }



        $query = 'SHOW INDEX FROM ' . $db->quoteIdentifier($table, true);

        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $index_data) {

            if (!$index_data[$non_unique]) {

                if ($index_data[$key_name] !== 'PRIMARY') {

                    $index = $this->_fixIndexName($index_data[$key_name]);

                } else {

                    $index = 'PRIMARY';

                }

                if (!empty($index)) {

                    $result[$index] = true;

                }

            }

        }



        //list FOREIGN KEY constraints...

        $query = 'SHOW CREATE TABLE '. $db->escape($table);

        $definition = $db->queryOne($query, 'text', 1);

        if (!PEAR::isError($definition) && !empty($definition)) {

            $pattern = '/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN KEY\b/Uims';

            if (preg_match_all($pattern, str_replace('`', '', $definition), $matches) > 0) {

                foreach ($matches[1] as $constraint) {

                    $result[$constraint] = true;

                }

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createSequence()



    /**

     * create sequence

     *

     * @param string    $seq_name name of the sequence to be created

     * @param string    $start    start value of the sequence; default is 1

     * @param array     $options  An associative array of table options:

     *                          array(

     *                              'comment' => 'Foo',

     *                              'charset' => 'utf8',

     *                              'collate' => 'utf8_unicode_ci',

     *                              'type'    => 'innodb',

     *                          );

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createSequence($seq_name, $start = 1, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);

        
        $options_strings = array();



        if (!empty($options['comment'])) {

            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');

        }



        if (!empty($options['charset'])) {

            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];

            if (!empty($options['collate'])) {

                $options_strings['charset'].= ' COLLATE '.$options['collate'];

            }

        }



        $type = false;

        if (!empty($options['type'])) {

            $type = $options['type'];

        } elseif ($db->options['default_table_type']) {

            $type = $db->options['default_table_type'];

        }

        if ($type) {

            $options_strings[] = "ENGINE = $type";

        }



        $query = "CREATE TABLE $sequence_name ($seqcol_name INT NOT NULL AUTO_INCREMENT, PRIMARY KEY ($seqcol_name))";

        if (!empty($options_strings)) {

            $query .= ' '.implode(' ', $options_strings);

        }

        $res = $db->exec($query);

        if (PEAR::isError($res)) {

            return $res;

        }



        if ($start == 1) {

            return MDB2_OK;

        }



        $query = "INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')';

        $res = $db->exec($query);

        if (!PEAR::isError($res)) {

            return MDB2_OK;

        }



        // Handle error

        $result = $db->exec("DROP TABLE $sequence_name");

        if (PEAR::isError($result)) {

            return $db->raiseError($result, null, null,

                'could not drop inconsistent sequence table', __FUNCTION__);

        }



        return $db->raiseError($res, null, null,

            'could not create sequence table', __FUNCTION__);

    }



    // }}}

    // {{{ dropSequence()



    /**

     * drop existing sequence

     *

     * @param string    $seq_name     name of the sequence to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropSequence($seq_name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        return $db->exec("DROP TABLE $sequence_name");

    }



    // }}}

    // {{{ listSequences()



    /**

     * list all sequences in the current database

     *

     * @param string database, the current is default

     * @return mixed array of sequence names on success, a MDB2 error on failure

     * @access public

     */

    function listSequences($database = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SHOW TABLES";

        if (!is_null($database)) {

            $query .= " FROM $database";

        }

        $table_names = $db->queryCol($query);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }



        $result = array();

        foreach ($table_names as $table_name) {

            if ($sqn = $this->_fixSequenceName($table_name, true)) {

                $result[] = $sqn;

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysqli.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Manager/Common.php';

/**
 * MDB2 MySQLi driver for the management modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 */
class MDB2_Driver_Manager_mysqli extends MDB2_Driver_Manager_Common
{

    // }}}
    // {{{ createDatabase()

    /**
     * create a new database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name  = $db->quoteIdentifier($name, true);
        $query = 'CREATE DATABASE ' . $name;
        if (!empty($options['charset'])) {
            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');
        }
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ alterDatabase()

    /**
     * alter an existing database
     *
     * @param string $name    name of the database that is intended to be changed
     * @param array  $options array with charset, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function alterDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true);
        if (!empty($options['charset'])) {
            $query .= ' DEFAULT CHARACTER SET ' . $db->quote($options['charset'], 'text');
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $db->quote($options['collation'], 'text');
        }
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ dropDatabase()

    /**
     * drop an existing database
     *
     * @param string $name name of the database that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropDatabase($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        $query = "DROP DATABASE $name";
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ _getAdvancedFKOptions()

    /**
     * Return the FOREIGN KEY query section dealing with non-standard options
     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
     *
     * @param array $definition
     * @return string
     * @access protected
     */
    function _getAdvancedFKOptions($definition)
    {
        $query = '';
        if (!empty($definition['match'])) {
            $query .= ' MATCH '.$definition['match'];
        }
        if (!empty($definition['onupdate'])) {
            $query .= ' ON UPDATE '.$definition['onupdate'];
        }
        if (!empty($definition['ondelete'])) {
            $query .= ' ON DELETE '.$definition['ondelete'];
        }
        return $query;
    }

    // }}}
    // {{{ createTable()

    /**
     * create a new table
     *
     * @param string $name   Name of the database that should be created
     * @param array $fields  Associative array that contains the definition of each field of the new table
     *                       The indexes of the array entries are the names of the fields of the table an
     *                       the array entry values are associative arrays like those that are meant to be
     *                       passed with the field definitions to get[Type]Declaration() functions.
     *                          array(
     *                              'id' => array(
     *                                  'type' => 'integer',
     *                                  'unsigned' => 1
     *                                  'notnull' => 1
     *                                  'default' => 0
     *                              ),
     *                              'name' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              ),
     *                              'password' => array(
     *                                  'type' => 'text',
     *                                  'length' => 12
     *                              )
     *                          );
     * @param array $options  An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'charset' => 'utf8',
     *                              'collate' => 'utf8_unicode_ci',
     *                              'type'    => 'innodb',
     *                          );
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createTable($name, $fields, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        // if we have an AUTO_INCREMENT column and a PK on more than one field,
        // we have to handle it differently...
        $autoincrement = null;
        if (empty($options['primary'])) {
            $pk_fields = array();
            foreach ($fields as $fieldname => $def) {
                if (!empty($def['primary'])) {
                    $pk_fields[$fieldname] = true;
                }
                if (!empty($def['autoincrement'])) {
                    $autoincrement = $fieldname;
                }
            }
            if ((null !== $autoincrement) && count($pk_fields) > 1) {
                $options['primary'] = $pk_fields;
            } else {
                // the PK constraint is on max one field => OK
                $autoincrement = null;
            }
        }

        $query = $this->_getCreateTableQuery($name, $fields, $options);
        if (PEAR::isError($query)) {
            return $query;
        }

        if (null !== $autoincrement) {
            // we have to remove the PK clause added by _getIntegerDeclaration()
            $query = str_replace('AUTO_INCREMENT PRIMARY KEY', 'AUTO_INCREMENT', $query);
        }

        $options_strings = array();

        if (!empty($options['comment'])) {
            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');
        }

        if (!empty($options['charset'])) {
            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];
            if (!empty($options['collate'])) {
                $options_strings['charset'].= ' COLLATE '.$options['collate'];
            }
        }

        $type = false;
        if (!empty($options['type'])) {
            $type = $options['type'];
        } elseif ($db->options['default_table_type']) {
            $type = $db->options['default_table_type'];
        }
        if ($type) {
            $options_strings[] = "ENGINE = $type";
        }

        if (!empty($options_strings)) {
            $query .= ' '.implode(' ', $options_strings);
        }
        $result = $db->exec($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropTable()

    /**
     * drop an existing table
     *
     * @param string $name name of the table that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        //delete the triggers associated to existing FK constraints
        $constraints = $this->listTableConstraints($name);
        if (!PEAR::isError($constraints) && !empty($constraints)) {
            $db->loadModule('Reverse', null, true);
            foreach ($constraints as $constraint) {
                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);
                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }

        return parent::dropTable($name);
    }

    // }}}
    // {{{ truncateTable()

    /**
     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,
     * it falls back to a DELETE FROM TABLE query)
     *
     * @param string $name name of the table that should be truncated
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function truncateTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("TRUNCATE TABLE $name");
    }

    // }}}
    // {{{ vacuum()

    /**
     * Optimize (vacuum) all the tables in the db (or only the specified table)
     * and optionally run ANALYZE.
     *
     * @param string $table table name (all the tables if empty)
     * @param array  $options an array with driver-specific options:
     *               - timeout [int] (in seconds) [mssql-only]
     *               - analyze [boolean] [pgsql and mysql]
     *               - full [boolean] [pgsql-only]
     *               - freeze [boolean] [pgsql-only]
     *
     * @return mixed MDB2_OK success, a MDB2 error on failure
     * @access public
     */
    function vacuum($table = null, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (empty($table)) {
            $table = $this->listTables();
            if (PEAR::isError($table)) {
                return $table;
            }
        }
        if (is_array($table)) {
            foreach (array_keys($table) as $k) {
                $table[$k] = $db->quoteIdentifier($table[$k], true);
            }
            $table = implode(', ', $table);
        } else {
            $table = $db->quoteIdentifier($table, true);
        }

        $result = $db->exec('OPTIMIZE TABLE '.$table);
        if (PEAR::isError($result)) {
            return $result;
        }
        if (!empty($options['analyze'])) {
            return $db->exec('ANALYZE TABLE '.$table);
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ alterTable()

    /**
     * alter an existing table
     *
     * @param string $name         name of the table that is intended to be changed.
     * @param array $changes     associative array that contains the details of each type
     *                             of change that is intended to be performed. The types of
     *                             changes that are currently supported are defined as follows:
     *
     *                             name
     *
     *                                New name for the table.
     *
     *                            add
     *
     *                                Associative array with the names of fields to be added as
     *                                 indexes of the array. The value of each entry of the array
     *                                 should be set to another associative array with the properties
     *                                 of the fields to be added. The properties of the fields should
     *                                 be the same as defined by the MDB2 parser.
     *
     *
     *                            remove
     *
     *                                Associative array with the names of fields to be removed as indexes
     *                                 of the array. Currently the values assigned to each entry are ignored.
     *                                 An empty array should be used for future compatibility.
     *
     *                            rename
     *
     *                                Associative array with the names of fields to be renamed as indexes
     *                                 of the array. The value of each entry of the array should be set to
     *                                 another associative array with the entry named name with the new
     *                                 field name and the entry named Declaration that is expected to contain
     *                                 the portion of the field declaration already in DBMS specific SQL code
     *                                 as it is used in the CREATE TABLE statement.
     *
     *                            change
     *
     *                                Associative array with the names of the fields to be changed as indexes
     *                                 of the array. Keep in mind that if it is intended to change either the
     *                                 name of a field and any other properties, the change array entries
     *                                 should have the new names of the fields as array indexes.
     *
     *                                The value of each entry of the array should be set to another associative
     *                                 array with the properties of the fields to that are meant to be changed as
     *                                 array entries. These entries should be assigned to the new values of the
     *                                 respective properties. The properties of the fields should be the same
     *                                 as defined by the MDB2 parser.
     *
     *                            Example
     *                                array(
     *                                    'name' => 'userlist',
     *                                    'add' => array(
     *                                        'quota' => array(
     *                                            'type' => 'integer',
     *                                            'unsigned' => 1
     *                                        )
     *                                    ),
     *                                    'remove' => array(
     *                                        'file_limit' => array(),
     *                                        'time_limit' => array()
     *                                    ),
     *                                    'change' => array(
     *                                        'name' => array(
     *                                            'length' => '20',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 20,
     *                                            ),
     *                                        )
     *                                    ),
     *                                    'rename' => array(
     *                                        'sex' => array(
     *                                            'name' => 'gender',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 1,
     *                                                'default' => 'M',
     *                                            ),
     *                                        )
     *                                    )
     *                                )
     *
     * @param boolean $check     indicates whether the function should just check if the DBMS driver
     *                             can perform the requested table alterations if the value is true or
     *                             actually perform them otherwise.
     * @access public
     *
      * @return mixed MDB2_OK on success, a MDB2 error on failure
     */
    function alterTable($name, $changes, $check)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        foreach ($changes as $change_name => $change) {
            switch ($change_name) {
            case 'add':
            case 'remove':
            case 'change':
            case 'rename':
            case 'name':
                break;
            default:
                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);
            }
        }

        if ($check) {
            return MDB2_OK;
        }

        $query = '';
        if (!empty($changes['name'])) {
            $change_name = $db->quoteIdentifier($changes['name'], true);
            $query .= 'RENAME TO ' . $change_name;
        }

        if (!empty($changes['add']) && is_array($changes['add'])) {
            foreach ($changes['add'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                $query.= 'ADD ' . $db->getDeclaration($field['type'], $field_name, $field);
            }
        }

        if (!empty($changes['remove']) && is_array($changes['remove'])) {
            foreach ($changes['remove'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                $field_name = $db->quoteIdentifier($field_name, true);
                $query.= 'DROP ' . $field_name;
            }
        }

        $rename = array();
        if (!empty($changes['rename']) && is_array($changes['rename'])) {
            foreach ($changes['rename'] as $field_name => $field) {
                $rename[$field['name']] = $field_name;
            }
        }

        if (!empty($changes['change']) && is_array($changes['change'])) {
            foreach ($changes['change'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                if (isset($rename[$field_name])) {
                    $old_field_name = $rename[$field_name];
                    unset($rename[$field_name]);
                } else {
                    $old_field_name = $field_name;
                }
                $old_field_name = $db->quoteIdentifier($old_field_name, true);
                $query.= "CHANGE $old_field_name " . $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);
            }
        }

        if (!empty($rename) && is_array($rename)) {
            foreach ($rename as $rename_name => $renamed_field) {
                if ($query) {
                    $query.= ', ';
                }
                $field = $changes['rename'][$renamed_field];
                $renamed_field = $db->quoteIdentifier($renamed_field, true);
                $query.= 'CHANGE ' . $renamed_field . ' ' . $db->getDeclaration($field['definition']['type'], $field['name'], $field['definition']);
            }
        }

        if (!$query) {
            return MDB2_OK;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("ALTER TABLE $name $query");
    }

    // }}}
    // {{{ listDatabases()

    /**
     * list all databases
     *
     * @return mixed array of database names on success, a MDB2 error on failure
     * @access public
     */
    function listDatabases()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $result = $db->queryCol('SHOW DATABASES');
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listUsers()

    /**
     * list all users
     *
     * @return mixed array of user names on success, a MDB2 error on failure
     * @access public
     */
    function listUsers()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->queryCol('SELECT DISTINCT USER FROM mysql.USER');
    }

    // }}}
    // {{{ listFunctions()

    /**
     * list all functions in the current database
     *
     * @return mixed array of function names on success, a MDB2 error on failure
     * @access public
     */
    function listFunctions()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM mysql.proc";
        /*
        SELECT ROUTINE_NAME
          FROM INFORMATION_SCHEMA.ROUTINES
         WHERE ROUTINE_TYPE = 'FUNCTION'
        */
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableTriggers()

    /**
     * list all triggers in the database that reference a given table
     *
     * @param string table for which all referenced triggers should be found
     * @return mixed array of trigger names on success, a MDB2 error on failure
     * @access public
     */
    function listTableTriggers($table = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'SHOW TRIGGERS';
        if (null !== $table) {
            $table = $db->quote($table, 'text');
            $query .= " LIKE $table";
        }
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTables()

    /**
     * list all tables in the current database
     *
     * @param string database, the current is default
     * @return mixed array of table names on success, a MDB2 error on failure
     * @access public
     */
    function listTables($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SHOW /*!50002 FULL*/ TABLES";
        if (null !== $database) {
            $query .= " FROM $database";
        }
        $query.= "/*!50002  WHERE Table_type = 'BASE TABLE'*/";

        $table_names = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }

        $result = array();
        foreach ($table_names as $table) {
            if (!$this->_fixSequenceName($table[0], true)) {
                $result[] = $table[0];
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listViews()

    /**
     * list all views in the current database
     *
     * @param string database, the current is default
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listViews($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'SHOW FULL TABLES';
        if (null !== $database) {
            $query.= " FROM $database";
        }
        $query.= " WHERE Table_type = 'VIEW'";

        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableFields()

    /**
     * list all fields in a table in the current database
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of field names on success, a MDB2 error on failure
     * @access public
     */
    function listTableFields($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $result = $db->queryCol("SHOW COLUMNS FROM $table");
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ createIndex()

    /**
     * Get the stucture of a field into an array
     *
     * @author Leoncx
     * @param string    $table         name of the table on which the index is to be created
     * @param string    $name         name of the index to be created
     * @param array     $definition        associative array that defines properties of the index to be created.
     *                                 Currently, only one property named FIELDS is supported. This property
     *                                 is also an associative with the names of the index fields as array
     *                                 indexes. Each entry of this array is set to another type of associative
     *                                 array that specifies properties of the index that are specific to
     *                                 each field.
     *
     *                                Currently, only the sorting property is supported. It should be used
     *                                 to define the sorting direction of the index. It may be set to either
     *                                 ascending or descending.
     *
     *                                Not all DBMS support index sorting direction configuration. The DBMS
     *                                 drivers of those that do not support it ignore this property. Use the
     *                                 function supports() to determine whether the DBMS driver can manage indexes.
     *
     *                                 Example
     *                                    array(
     *                                        'fields' => array(
     *                                            'user_name' => array(
     *                                                'sorting' => 'ascending'
     *                                                'length' => 10
     *                                            ),
     *                                            'last_login' => array()
     *                                        )
     *                                    )
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createIndex($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "CREATE INDEX $name ON $table";
        $fields = array();
        foreach ($definition['fields'] as $field => $fieldinfo) {
            if (!empty($fieldinfo['length'])) {
                $fields[] = $db->quoteIdentifier($field, true) . '(' . $fieldinfo['length'] . ')';
            } else {
                $fields[] = $db->quoteIdentifier($field, true);
            }
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        return $db->exec($query);
    }

    // }}}
    // {{{ dropIndex()

    /**
     * drop existing index
     *
     * @param string    $table         name of table that should be used in method
     * @param string    $name         name of the index to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropIndex($table, $name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        return $db->exec("DROP INDEX $name ON $table");
    }

    // }}}
    // {{{ listTableIndexes()

    /**
     * list all indexes in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of index names on success, a MDB2 error on failure
     * @access public
     */
    function listTableIndexes($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $key_name = 'Key_name';
        $non_unique = 'Non_unique';
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $key_name = strtolower($key_name);
                $non_unique = strtolower($non_unique);
            } else {
                $key_name = strtoupper($key_name);
                $non_unique = strtoupper($non_unique);
            }
        }

        $table = $db->quoteIdentifier($table, true);
        $query = "SHOW INDEX FROM $table";
        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $index_data) {
            if ($index_data[$non_unique] && ($index = $this->_fixIndexName($index_data[$key_name]))) {
                $result[$index] = true;
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createConstraint()

    /**
     * create a constraint on a table
     *
     * @param string    $table         name of the table on which the constraint is to be created
     * @param string    $name         name of the constraint to be created
     * @param array     $definition        associative array that defines properties of the constraint to be created.
     *                                 Currently, only one property named FIELDS is supported. This property
     *                                 is also an associative with the names of the constraint fields as array
     *                                 constraints. Each entry of this array is set to another type of associative
     *                                 array that specifies properties of the constraint that are specific to
     *                                 each field.
     *
     *                                 Example
     *                                    array(
     *                                        'fields' => array(
     *                                            'user_name' => array(),
     *                                            'last_login' => array()
     *                                        )
     *                                    )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createConstraint($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $type = '';
        $idx_name = $db->quoteIdentifier($db->getIndexName($name), true);
        if (!empty($definition['primary'])) {
            $type = 'PRIMARY';
            $idx_name = 'KEY';
        } elseif (!empty($definition['unique'])) {
            $type = 'UNIQUE';
        } elseif (!empty($definition['foreign'])) {
            $type = 'CONSTRAINT';
        }
        if (empty($type)) {
            return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,
                'invalid definition, could not create constraint', __FUNCTION__);
        }

        $table_quoted = $db->quoteIdentifier($table, true);
        $query = "ALTER TABLE $table_quoted ADD $type $idx_name";
        if (!empty($definition['foreign'])) {
            $query .= ' FOREIGN KEY';
        }
        $fields = array();
        foreach ($definition['fields'] as $field => $fieldinfo) {
            $quoted = $db->quoteIdentifier($field, true);
            if (!empty($fieldinfo['length'])) {
                $quoted .= '(' . $fieldinfo['length'] . ')';
            }
            $fields[] = $quoted;
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        if (!empty($definition['foreign'])) {
            $query.= ' REFERENCES ' . $db->quoteIdentifier($definition['references']['table'], true);
            $referenced_fields = array();
            foreach (array_keys($definition['references']['fields']) as $field) {
                $referenced_fields[] = $db->quoteIdentifier($field, true);
            }
            $query .= ' ('. implode(', ', $referenced_fields) . ')';
            $query .= $this->_getAdvancedFKOptions($definition);

            // add index on FK column(s) or we can't add a FK constraint
            // @see http://forums.mysql.com/read.php?22,19755,226009
            $result = $this->createIndex($table, $name.'_fkidx', $definition);
            if (PEAR::isError($result)) {
                return $result;
            }
        }
        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }
        if (!empty($definition['foreign'])) {
            return $this->_createFKTriggers($table, array($name => $definition));
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropConstraint()

    /**
     * drop existing constraint
     *
     * @param string    $table        name of table that should be used in method
     * @param string    $name         name of the constraint to be dropped
     * @param string    $primary      hint if the constraint is primary
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropConstraint($table, $name, $primary = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        
        if ($primary || strtolower($name) == 'primary') {
            $query = 'ALTER TABLE '. $db->quoteIdentifier($table, true) .' DROP PRIMARY KEY';
            return $db->exec($query);
        }
        
        //is it a FK constraint? If so, also delete the associated triggers
        $db->loadModule('Reverse', null, true);
        $definition = $db->reverse->getTableConstraintDefinition($table, $name);
        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
            //first drop the FK enforcing triggers
            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);
            if (PEAR::isError($result)) {
                return $result;
            }
            //then drop the constraint itself
            $table = $db->quoteIdentifier($table, true);
            $name = $db->quoteIdentifier($db->getIndexName($name), true);
            $query = "ALTER TABLE $table DROP FOREIGN KEY $name";
            return $db->exec($query);
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        $query = "ALTER TABLE $table DROP INDEX $name";
        return $db->exec($query);
    }

    // }}}
    // {{{ _createFKTriggers()

    /**
     * Create triggers to enforce the FOREIGN KEY constraint on the table
     *
     * NB: since there's no RAISE_APPLICATION_ERROR facility in mysql,
     * we call a non-existent procedure to raise the FK violation message.
     * @see http://forums.mysql.com/read.php?99,55108,71877#msg-71877
     *
     * @param string $table        table name
     * @param array  $foreign_keys FOREIGN KEY definitions
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access private
     */
    function _createFKTriggers($table, $foreign_keys)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        // create triggers to enforce FOREIGN KEY constraints
        if ($db->supports('triggers') && !empty($foreign_keys)) {
            $table_quoted = $db->quoteIdentifier($table, true);
            foreach ($foreign_keys as $fkname => $fkdef) {
                if (empty($fkdef)) {
                    continue;
                }
                //set actions to default if not set
                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? $db->options['default_fk_action_onupdate'] : strtoupper($fkdef['onupdate']);
                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? $db->options['default_fk_action_ondelete'] : strtoupper($fkdef['ondelete']);

                $trigger_names = array(
                    'insert'    => $fkname.'_insert_trg',
                    'update'    => $fkname.'_update_trg',
                    'pk_update' => $fkname.'_pk_update_trg',
                    'pk_delete' => $fkname.'_pk_delete_trg',
                );
                $table_fields = array_keys($fkdef['fields']);
                $referenced_fields = array_keys($fkdef['references']['fields']);

                //create the ON [UPDATE|DELETE] triggers on the primary table
                $restrict_action = ' IF (SELECT ';
                $aliased_fields = array();
                foreach ($table_fields as $field) {
                    $aliased_fields[] = $table_quoted .'.'.$field .' AS '.$field;
                }
                $restrict_action .= implode(',', $aliased_fields)
                       .' FROM '.$table_quoted
                       .' WHERE ';
                $conditions  = array();
                $new_values  = array();
                $null_values = array();
                for ($i=0; $i<count($table_fields); $i++) {
                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];
                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];
                    $null_values[] = $table_fields[$i] .' = NULL';
                }
                $conditions2 = array();
                if ('NO ACTION' != $fkdef['ondelete']) {
                    // There is no NEW row in on DELETE trigger
                    for ($i=0; $i<count($referenced_fields); $i++) {
                        $conditions2[]  = 'NEW.'.$referenced_fields[$i] .' <> OLD.'.$referenced_fields[$i];
                    }
                }

                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL';
                if (!empty($conditions2)) {
                    $restrict_action .= ' AND (' .implode(' OR ', $conditions2) .')';
                }
                $restrict_action .= ' THEN CALL %s_ON_TABLE_'.$table.'_VIOLATES_FOREIGN_KEY_CONSTRAINT();'
                                   .' END IF;';

                $cascade_action_update = 'UPDATE '.$table_quoted.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions). ';';
                $cascade_action_delete = 'DELETE FROM '.$table_quoted.' WHERE '.implode(' AND ', $conditions). ';';
                $setnull_action        = 'UPDATE '.$table_quoted.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions). ';';

                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {
                    $db->loadModule('Reverse', null, true);
                    $default_values = array();
                    foreach ($table_fields as $table_field) {
                        $field_definition = $db->reverse->getTableFieldDefinition($table, $field);
                        if (PEAR::isError($field_definition)) {
                            return $field_definition;
                        }
                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];
                    }
                    $setdefault_action = 'UPDATE '.$table_quoted.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions). ';';
                }

                $query = 'CREATE TRIGGER %s'
                        .' %s ON '.$fkdef['references']['table']
                        .' FOR EACH ROW BEGIN '
                        .' SET FOREIGN_KEY_CHECKS = 0; ';  //only really needed for ON UPDATE CASCADE

                if ('CASCADE' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE',  'update') . $cascade_action_update;
                } elseif ('SET NULL' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action;
                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action;
                } elseif ('NO ACTION' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update');
                } elseif ('RESTRICT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update');
                }
                if ('CASCADE' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE',  'delete') . $cascade_action_delete;
                } elseif ('SET NULL' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action;
                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action;
                } elseif ('NO ACTION' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete');
                } elseif ('RESTRICT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete');
                }
                $sql_update .= ' SET FOREIGN_KEY_CHECKS = 1; END;';
                $sql_delete .= ' SET FOREIGN_KEY_CHECKS = 1; END;';

                $db->pushErrorHandling(PEAR_ERROR_RETURN);
                $db->expectError(MDB2_ERROR_CANNOT_CREATE); 
                $result = $db->exec($sql_delete);
                $expected_errmsg = 'This MySQL version doesn\'t support multiple triggers with the same action time and event for one table';
                $db->popExpect();
                $db->popErrorHandling();
                if (PEAR::isError($result)) {
                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                        return $result;
                    }
                    $db->warnings[] = $expected_errmsg;
                }
                $db->pushErrorHandling(PEAR_ERROR_RETURN);
                $db->expectError(MDB2_ERROR_CANNOT_CREATE);
                $result = $db->exec($sql_update);
                $db->popExpect();
                $db->popErrorHandling();
                if (PEAR::isError($result) && $result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                    if ($result->getCode() != MDB2_ERROR_CANNOT_CREATE) {
                        return $result;
                    }
                    $db->warnings[] = $expected_errmsg;
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ _dropFKTriggers()

    /**
     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table
     *
     * @param string $table            table name
     * @param string $fkname           FOREIGN KEY constraint name
     * @param string $referenced_table referenced table name
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access private
     */
    function _dropFKTriggers($table, $fkname, $referenced_table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $triggers  = $this->listTableTriggers($table);
        $triggers2 = $this->listTableTriggers($referenced_table);
        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {
            $triggers = array_merge($triggers, $triggers2);
            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';
            foreach ($triggers as $trigger) {
                if (preg_match($pattern, $trigger)) {
                    $result = $db->exec('DROP TRIGGER '.$trigger);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ listTableConstraints()

    /**
     * list all constraints in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of constraint names on success, a MDB2 error on failure
     * @access public
     */
    function listTableConstraints($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $key_name = 'Key_name';
        $non_unique = 'Non_unique';
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $key_name = strtolower($key_name);
                $non_unique = strtolower($non_unique);
            } else {
                $key_name = strtoupper($key_name);
                $non_unique = strtoupper($non_unique);
            }
        }

        $query = 'SHOW INDEX FROM ' . $db->quoteIdentifier($table, true);
        $indexes = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $index_data) {
            if (!$index_data[$non_unique]) {
                if ($index_data[$key_name] !== 'PRIMARY') {
                    $index = $this->_fixIndexName($index_data[$key_name]);
                } else {
                    $index = 'PRIMARY';
                }
                if (!empty($index)) {
                    $result[$index] = true;
                }
            }
        }

        //list FOREIGN KEY constraints...
        $query = 'SHOW CREATE TABLE '. $db->escape($table);
        $definition = $db->queryOne($query, 'text', 1);
        if (!PEAR::isError($definition) && !empty($definition)) {
            $pattern = '/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN KEY\b/Uims';
            if (preg_match_all($pattern, str_replace('`', '', $definition), $matches) > 0) {
                foreach ($matches[1] as $constraint) {
                    $result[$constraint] = true;
                }
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createSequence()

    /**
     * create sequence
     *
     * @param string    $seq_name name of the sequence to be created
     * @param string    $start    start value of the sequence; default is 1
     * @param array     $options  An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'charset' => 'utf8',
     *                              'collate' => 'utf8_unicode_ci',
     *                              'type'    => 'innodb',
     *                          );
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createSequence($seq_name, $start = 1, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);
        
        $options_strings = array();

        if (!empty($options['comment'])) {
            $options_strings['comment'] = 'COMMENT = '.$db->quote($options['comment'], 'text');
        }

        if (!empty($options['charset'])) {
            $options_strings['charset'] = 'DEFAULT CHARACTER SET '.$options['charset'];
            if (!empty($options['collate'])) {
                $options_strings['charset'].= ' COLLATE '.$options['collate'];
            }
        }

        $type = false;
        if (!empty($options['type'])) {
            $type = $options['type'];
        } elseif ($db->options['default_table_type']) {
            $type = $db->options['default_table_type'];
        }
        if ($type) {
            $options_strings[] = "ENGINE = $type";
        }

        $query = "CREATE TABLE $sequence_name ($seqcol_name INT NOT NULL AUTO_INCREMENT, PRIMARY KEY ($seqcol_name))";
        if (!empty($options_strings)) {
            $query .= ' '.implode(' ', $options_strings);
        }
        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }

        if ($start == 1) {
            return MDB2_OK;
        }

        $query = "INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')';
        $res = $db->exec($query);
        if (!PEAR::isError($res)) {
            return MDB2_OK;
        }

        // Handle error
        $result = $db->exec("DROP TABLE $sequence_name");
        if (PEAR::isError($result)) {
            return $db->raiseError($result, null, null,
                'could not drop inconsistent sequence table', __FUNCTION__);
        }

        return $db->raiseError($res, null, null,
            'could not create sequence table', __FUNCTION__);
    }

    // }}}
    // {{{ dropSequence()

    /**
     * drop existing sequence
     *
     * @param string    $seq_name     name of the sequence to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropSequence($seq_name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        return $db->exec("DROP TABLE $sequence_name");
    }

    // }}}
    // {{{ listSequences()

    /**
     * list all sequences in the current database
     *
     * @param string database, the current is default
     * @return mixed array of sequence names on success, a MDB2 error on failure
     * @access public
     */
    function listSequences($database = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SHOW TABLES";
        if (null !== $database) {
            $query .= " FROM $database";
        }
        $table_names = $db->queryCol($query);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }

        $result = array();
        foreach ($table_names as $table_name) {
            if ($sqn = $this->_fixSequenceName($table_name, true)) {
                $result[] = $sqn;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Manager/pgsql.php

@@ -42,7 +42,7 @@
// | Author: Paul Cooper <pgc@ucecom.com>                                 |
// +----------------------------------------------------------------------+
//
// $Id: pgsql.php,v 1.82 2008/03/05 12:55:57 afz Exp $
// $Id: pgsql.php 292715 2009-12-28 14:06:34Z quipo $

require_once 'MDB2/Driver/Manager/Common.php';

@@ -349,6 +349,8 @@
            return MDB2_OK;
        }

        $name = $db->quoteIdentifier($name, true);

        if (!empty($changes['remove']) && is_array($changes['remove'])) {
            foreach ($changes['remove'] as $field_name => $field) {
                $field_name = $db->quoteIdentifier($field_name, true);
@@ -393,7 +395,8 @@
                            'changing column type for "'.$change_name.'\" requires PostgreSQL 8.0 or above', __FUNCTION__);
                    }
                    $db->loadModule('Datatype', null, true);
                    $query = "ALTER $field_name TYPE ".$db->datatype->getTypeDeclaration($field['definition']);
                    $type = $db->datatype->getTypeDeclaration($field['definition']);
                    $query = "ALTER $field_name TYPE $type USING CAST($field_name AS $type)";
                    $result = $db->exec("ALTER TABLE $name $query");
                    if (PEAR::isError($result)) {
                        return $result;
@@ -406,7 +409,7 @@
                        return $result;
                    }
                }
                if (!empty($field['definition']['notnull'])) {
                if (array_key_exists('notnull', $field['definition'])) {
                    $query = "ALTER $field_name ".($field['definition']['notnull'] ? 'SET' : 'DROP').' NOT NULL';
                    $result = $db->exec("ALTER TABLE $name $query");
                    if (PEAR::isError($result)) {
@@ -416,7 +419,6 @@
            }
        }

        $name = $db->quoteIdentifier($name, true);
        if (!empty($changes['name'])) {
            $change_name = $db->quoteIdentifier($changes['name'], true);
            $result = $db->exec("ALTER TABLE $name RENAME TO ".$change_name);
@@ -606,9 +608,9 @@
                    FROM pg_trigger trg,
                         pg_class tbl
                   WHERE trg.tgrelid = tbl.oid';
        if (!is_null($table)) {
        if (null !== $table) {
            $table = $db->quote(strtoupper($table), 'text');
            $query .= " AND tbl.relname = $table";
            $query .= " AND UPPER(tbl.relname) = $table";
        }
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
@@ -683,7 +685,12 @@
            return $db;
        }

        list($schema, $table) = $this->splitTableSchema($table);

        $table = $db->quoteIdentifier($table, true);
        if (!empty($schema)) {
            $table = $db->quoteIdentifier($schema, true) . '.' .$table;
        }
        $db->setLimit(1);
        $result2 = $db->query("SELECT * FROM $table");
        if (PEAR::isError($result2)) {
@@ -714,9 +721,19 @@
            return $db;
        }

        list($schema, $table) = $this->splitTableSchema($table);

        $table = $db->quote($table, 'text');
        $subquery = "SELECT indexrelid FROM pg_index, pg_class";
        $subquery.= " WHERE pg_class.relname=$table AND pg_class.oid=pg_index.indrelid AND indisunique != 't' AND indisprimary != 't'";
        $subquery = "SELECT indexrelid
                       FROM pg_index
                  LEFT JOIN pg_class ON pg_class.oid = pg_index.indrelid
                  LEFT JOIN pg_namespace ON pg_class.relnamespace = pg_namespace.oid
                      WHERE pg_class.relname = $table
                        AND indisunique != 't'
                        AND indisprimary != 't'";
        if (!empty($schema)) {
            $subquery .= ' AND pg_namespace.nspname = '.$db->quote($schema, 'text');
        }
        $query = "SELECT relname FROM pg_class WHERE oid IN ($subquery)";
        $indexes = $db->queryCol($query, 'text');
        if (PEAR::isError($indexes)) {
@@ -738,6 +755,57 @@
    }

    // }}}
    // {{{ dropConstraint()

    /**
     * drop existing constraint
     *
     * @param string $table   name of table that should be used in method
     * @param string $name    name of the constraint to be dropped
     * @param string $primary hint if the constraint is primary
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropConstraint($table, $name, $primary = false)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        // is it an UNIQUE index?
        $query = 'SELECT relname
                    FROM pg_class
                   WHERE oid IN (
                         SELECT indexrelid
                           FROM pg_index, pg_class
                          WHERE pg_class.relname = '.$db->quote($table, 'text').'
                            AND pg_class.oid = pg_index.indrelid
                            AND indisunique = \'t\')
                  EXCEPT
                  SELECT conname
                   FROM pg_constraint, pg_class
                  WHERE pg_constraint.conrelid = pg_class.oid
                    AND relname = '. $db->quote($table, 'text');
        $unique = $db->queryCol($query, 'text');
        if (PEAR::isError($unique) || empty($unique)) {
            // not an UNIQUE index, maybe a CONSTRAINT
            return parent::dropConstraint($table, $name, $primary);
        }

        if (in_array($name, $unique)) {
            return $db->exec('DROP INDEX '.$db->quoteIdentifier($name, true));
        }
        $idxname = $db->getIndexName($name);
        if (in_array($idxname, $unique)) {
            return $db->exec('DROP INDEX '.$db->quoteIdentifier($idxname, true));
        }
        return $db->raiseError(MDB2_ERROR_NOT_FOUND, null, null,
            $name . ' is not an existing constraint for table ' . $table, __FUNCTION__);
    }

    // }}}
    // {{{ listTableConstraints()

    /**
@@ -754,11 +822,32 @@
            return $db;
        }

        list($schema, $table) = $this->splitTableSchema($table);

        $table = $db->quote($table, 'text');
        $query = 'SELECT conname
                    FROM pg_constraint, pg_class
                   WHERE pg_constraint.conrelid = pg_class.oid
                     AND relname = ' .$table;
                    FROM pg_constraint
               LEFT JOIN pg_class ON pg_constraint.conrelid = pg_class.oid
               LEFT JOIN pg_namespace ON pg_class.relnamespace = pg_namespace.oid
                   WHERE relname = ' .$table;
        if (!empty($schema)) {
            $query .= ' AND pg_namespace.nspname = ' . $db->quote($schema, 'text');
        }
        $query .= '
                   UNION DISTINCT
                  SELECT relname
                    FROM pg_class
                   WHERE oid IN (
                         SELECT indexrelid
                           FROM pg_index
                      LEFT JOIN pg_class ON pg_class.oid = pg_index.indrelid
                      LEFT JOIN pg_namespace ON pg_class.relnamespace = pg_namespace.oid
                          WHERE pg_class.relname = '.$table.'
                            AND indisunique = \'t\'';
        if (!empty($schema)) {
            $query .= ' AND pg_namespace.nspname = ' . $db->quote($schema, 'text');
        }
        $query .= ')';
        $constraints = $db->queryCol($query);
        if (PEAR::isError($constraints)) {
            return $constraints;

 program/lib/MDB2/Driver/Manager/sqlite.php

@@ -1,1356 +1,1362 @@
<?php

// +----------------------------------------------------------------------+

// | PHP versions 4 and 5                                                 |

// +----------------------------------------------------------------------+

// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

// | Stig. S. Bakken, Lukas Smith, Lorenzo Alberton                       |

// | All rights reserved.                                                 |

// +----------------------------------------------------------------------+

// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

// | API as well as database abstraction for PHP applications.            |

// | This LICENSE is in the BSD license style.                            |

// |                                                                      |

// | Redistribution and use in source and binary forms, with or without   |

// | modification, are permitted provided that the following conditions   |

// | are met:                                                             |

// |                                                                      |

// | Redistributions of source code must retain the above copyright       |

// | notice, this list of conditions and the following disclaimer.        |

// |                                                                      |

// | Redistributions in binary form must reproduce the above copyright    |

// | notice, this list of conditions and the following disclaimer in the  |

// | documentation and/or other materials provided with the distribution. |

// |                                                                      |

// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

// | Lukas Smith nor the names of his contributors may be used to endorse |

// | or promote products derived from this software without specific prior|

// | written permission.                                                  |

// |                                                                      |

// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

// | POSSIBILITY OF SUCH DAMAGE.                                          |

// +----------------------------------------------------------------------+

// | Authors: Lukas Smith <smith@pooteeweet.org>                          |

// |          Lorenzo Alberton <l.alberton@quipo.it>                      |

// +----------------------------------------------------------------------+

//

// $Id: sqlite.php,v 1.74 2008/03/05 11:08:53 quipo Exp $

//



require_once 'MDB2/Driver/Manager/Common.php';



/**

 * MDB2 SQLite driver for the management modules

 *

 * @package MDB2

 * @category Database

 * @author  Lukas Smith <smith@pooteeweet.org>

 * @author  Lorenzo Alberton <l.alberton@quipo.it>

 */

class MDB2_Driver_Manager_sqlite extends MDB2_Driver_Manager_Common

{

    // {{{ createDatabase()



    /**

     * create a new database

     *

     * @param string $name    name of the database that should be created

     * @param array  $options array with charset info

     *

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createDatabase($name, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $database_file = $db->_getDatabaseFile($name);

        if (file_exists($database_file)) {

            return $db->raiseError(MDB2_ERROR_ALREADY_EXISTS, null, null,

                'database already exists', __FUNCTION__);

        }

        $php_errormsg = '';

        $handle = @sqlite_open($database_file, $db->dsn['mode'], $php_errormsg);

        if (!$handle) {

            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,

                (isset($php_errormsg) ? $php_errormsg : 'could not create the database file'), __FUNCTION__);

        }

        if (!empty($options['charset'])) {

            $query = 'PRAGMA encoding = ' . $db->quote($options['charset'], 'text');

            @sqlite_query($query, $handle);

        }

        @sqlite_close($handle);

        return MDB2_OK;

    }



    // }}}

    // {{{ dropDatabase()



    /**

     * drop an existing database

     *

     * @param string $name name of the database that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropDatabase($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $database_file = $db->_getDatabaseFile($name);

        if (!@file_exists($database_file)) {

            return $db->raiseError(MDB2_ERROR_CANNOT_DROP, null, null,

                'database does not exist', __FUNCTION__);

        }

        $result = @unlink($database_file);

        if (!$result) {

            return $db->raiseError(MDB2_ERROR_CANNOT_DROP, null, null,

                (isset($php_errormsg) ? $php_errormsg : 'could not remove the database file'), __FUNCTION__);

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ _getAdvancedFKOptions()



    /**

     * Return the FOREIGN KEY query section dealing with non-standard options

     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...

     *

     * @param array $definition

     * @return string

     * @access protected

     */

    function _getAdvancedFKOptions($definition)

    {

        $query = '';

        if (!empty($definition['match'])) {

            $query .= ' MATCH '.$definition['match'];

        }

        if (!empty($definition['onupdate']) && (strtoupper($definition['onupdate']) != 'NO ACTION')) {

            $query .= ' ON UPDATE '.$definition['onupdate'];

        }

        if (!empty($definition['ondelete']) && (strtoupper($definition['ondelete']) != 'NO ACTION')) {

            $query .= ' ON DELETE '.$definition['ondelete'];

        }

        if (!empty($definition['deferrable'])) {

            $query .= ' DEFERRABLE';

        } else {

            $query .= ' NOT DEFERRABLE';

        }

        if (!empty($definition['initiallydeferred'])) {

            $query .= ' INITIALLY DEFERRED';

        } else {

            $query .= ' INITIALLY IMMEDIATE';

        }

        return $query;

    }



    // }}}

    // {{{ _getCreateTableQuery()



    /**

     * Create a basic SQL query for a new table creation

     * @param string $name   Name of the database that should be created

     * @param array $fields  Associative array that contains the definition of each field of the new table

     * @param array $options  An associative array of table options

     * @return mixed string (the SQL query) on success, a MDB2 error on failure

     * @see createTable()

     */

    function _getCreateTableQuery($name, $fields, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!$name) {

            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,

                'no valid table name specified', __FUNCTION__);

        }

        if (empty($fields)) {

            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,

                'no fields specified for table "'.$name.'"', __FUNCTION__);

        }

        $query_fields = $this->getFieldDeclarationList($fields);

        if (PEAR::isError($query_fields)) {

            return $query_fields;

        }

        if (!empty($options['primary'])) {

            $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';

        }

        if (!empty($options['foreign_keys'])) {

            foreach ($options['foreign_keys'] as $fkname => $fkdef) {

                if (empty($fkdef)) {

                    continue;

                }

                $query_fields.= ', CONSTRAINT '.$fkname.' FOREIGN KEY ('.implode(', ', array_keys($fkdef['fields'])).')';

                $query_fields.= ' REFERENCES '.$fkdef['references']['table'].' ('.implode(', ', array_keys($fkdef['references']['fields'])).')';

                $query_fields.= $this->_getAdvancedFKOptions($fkdef);

            }

        }



        $name = $db->quoteIdentifier($name, true);

        $result = 'CREATE ';

        if (!empty($options['temporary'])) {

            $result .= $this->_getTemporaryTableQuery();

        }

        $result .= " TABLE $name ($query_fields)";

        return $result;

    }



    // }}}

    // {{{ createTable()



    /**

     * create a new table

     *

     * @param string $name   Name of the database that should be created

     * @param array $fields  Associative array that contains the definition of each field of the new table

     * @param array $options  An associative array of table options

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createTable($name, $fields, $options = array())

    {

        $result = parent::createTable($name, $fields, $options);

        if (PEAR::isError($result)) {

            return $result;

        }

        // create triggers to enforce FOREIGN KEY constraints

        if (!empty($options['foreign_keys'])) {

            $db =& $this->getDBInstance();

            if (PEAR::isError($db)) {

                return $db;

            }

            foreach ($options['foreign_keys'] as $fkname => $fkdef) {

                if (empty($fkdef)) {

                    continue;

                }

                //set actions to 'RESTRICT' if not set

                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? 'RESTRICT' : strtoupper($fkdef['onupdate']);

                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? 'RESTRICT' : strtoupper($fkdef['ondelete']);



                $trigger_names = array(

                    'insert'    => $fkname.'_insert_trg',

                    'update'    => $fkname.'_update_trg',

                    'pk_update' => $fkname.'_pk_update_trg',

                    'pk_delete' => $fkname.'_pk_delete_trg',

                );

                
                //create the [insert|update] triggers on the FK table

                $table_fields = array_keys($fkdef['fields']);

                $referenced_fields = array_keys($fkdef['references']['fields']);

                $query = 'CREATE TRIGGER %s BEFORE %s ON '.$name

                        .' FOR EACH ROW BEGIN'

                        .' SELECT RAISE(ROLLBACK, \'%s on table "'.$name.'" violates FOREIGN KEY constraint "'.$fkname.'"\')'

                        .' WHERE  (SELECT ';

                $aliased_fields = array();

                foreach ($referenced_fields as $field) {

                    $aliased_fields[] = $fkdef['references']['table'] .'.'.$field .' AS '.$field;

                }

                $query .= implode(',', $aliased_fields)

                       .' FROM '.$fkdef['references']['table']

                       .' WHERE ';

                $conditions = array();

                for ($i=0; $i<count($table_fields); $i++) {

                    $conditions[] = $referenced_fields[$i] .' = NEW.'.$table_fields[$i];

                }

                $query .= implode(' AND ', $conditions).') IS NULL; END;';

                $result = $db->exec(sprintf($query, $trigger_names['insert'], 'INSERT', 'insert'));

                if (PEAR::isError($result)) {

                    return $result;

                }



                $result = $db->exec(sprintf($query, $trigger_names['update'], 'UPDATE', 'update'));

                if (PEAR::isError($result)) {

                    return $result;

                }

                
                //create the ON [UPDATE|DELETE] triggers on the primary table

                $restrict_action = 'SELECT RAISE(ROLLBACK, \'%s on table "'.$name.'" violates FOREIGN KEY constraint "'.$fkname.'"\')'

                                  .' WHERE  (SELECT ';

                $aliased_fields = array();

                foreach ($table_fields as $field) {

                    $aliased_fields[] = $name .'.'.$field .' AS '.$field;

                }

                $restrict_action .= implode(',', $aliased_fields)

                       .' FROM '.$name

                       .' WHERE ';

                $conditions  = array();

                $new_values  = array();

                $null_values = array();

                for ($i=0; $i<count($table_fields); $i++) {

                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];

                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];

                    $null_values[] = $table_fields[$i] .' = NULL';

                }

                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL';



                $cascade_action_update = 'UPDATE '.$name.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions);

                $cascade_action_delete = 'DELETE FROM '.$name.' WHERE '.implode(' AND ', $conditions);

                $setnull_action        = 'UPDATE '.$name.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions);



                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {

                    $db->loadModule('Reverse', null, true);

                    $default_values = array();

                    foreach ($table_fields as $table_field) {

                        $field_definition = $db->reverse->getTableFieldDefinition($name, $field);

                        if (PEAR::isError($field_definition)) {

                            return $field_definition;

                        }

                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];

                    }

                    $setdefault_action = 'UPDATE '.$name.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions);

                }



                $query = 'CREATE TRIGGER %s'

                        .' %s ON '.$fkdef['references']['table']

                        .' FOR EACH ROW BEGIN ';



                if ('CASCADE' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'AFTER UPDATE',  'update') . $cascade_action_update. '; END;';

                } elseif ('SET NULL' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action. '; END;';

                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action. '; END;';

                } elseif ('NO ACTION' == $fkdef['onupdate']) {

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update') . '; END;';

                } else {

                    //'RESTRICT'

                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . '; END;';

                }

                if ('CASCADE' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'AFTER DELETE',  'delete') . $cascade_action_delete. '; END;';

                } elseif ('SET NULL' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action. '; END;';

                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action. '; END;';

                } elseif ('NO ACTION' == $fkdef['ondelete']) {

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete')  . '; END;';

                } else {

                    //'RESTRICT'

                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . '; END;';

                }



                if (PEAR::isError($result)) {

                    return $result;

                }

                $result = $db->exec($sql_delete);

                if (PEAR::isError($result)) {

                    return $result;

                }

                $result = $db->exec($sql_update);

                if (PEAR::isError($result)) {

                    return $result;

                }

            }

        }

        if (PEAR::isError($result)) {

            return $result;

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ dropTable()



    /**

     * drop an existing table

     *

     * @param string $name name of the table that should be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropTable($name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }

        
        //delete the triggers associated to existing FK constraints

        $constraints = $this->listTableConstraints($name);

        if (!PEAR::isError($constraints) && !empty($constraints)) {

            $db->loadModule('Reverse', null, true);

            foreach ($constraints as $constraint) {

                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);

                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }



        $name = $db->quoteIdentifier($name, true);

        return $db->exec("DROP TABLE $name");

    }



    // }}}

    // {{{ vacuum()



    /**

     * Optimize (vacuum) all the tables in the db (or only the specified table)

     * and optionally run ANALYZE.

     *

     * @param string $table table name (all the tables if empty)

     * @param array  $options an array with driver-specific options:

     *               - timeout [int] (in seconds) [mssql-only]

     *               - analyze [boolean] [pgsql and mysql]

     *               - full [boolean] [pgsql-only]

     *               - freeze [boolean] [pgsql-only]

     *

     * @return mixed MDB2_OK success, a MDB2 error on failure

     * @access public

     */

    function vacuum($table = null, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = 'VACUUM';

        if (!empty($table)) {

            $query .= ' '.$db->quoteIdentifier($table, true);

        }

        return $db->exec($query);

    }



    // }}}

    // {{{ alterTable()



    /**

     * alter an existing table

     *

     * @param string $name         name of the table that is intended to be changed.

     * @param array $changes     associative array that contains the details of each type

     *                             of change that is intended to be performed. The types of

     *                             changes that are currently supported are defined as follows:

     *

     *                             name

     *

     *                                New name for the table.

     *

     *                            add

     *

     *                                Associative array with the names of fields to be added as

     *                                 indexes of the array. The value of each entry of the array

     *                                 should be set to another associative array with the properties

     *                                 of the fields to be added. The properties of the fields should

     *                                 be the same as defined by the MDB2 parser.

     *

     *

     *                            remove

     *

     *                                Associative array with the names of fields to be removed as indexes

     *                                 of the array. Currently the values assigned to each entry are ignored.

     *                                 An empty array should be used for future compatibility.

     *

     *                            rename

     *

     *                                Associative array with the names of fields to be renamed as indexes

     *                                 of the array. The value of each entry of the array should be set to

     *                                 another associative array with the entry named name with the new

     *                                 field name and the entry named Declaration that is expected to contain

     *                                 the portion of the field declaration already in DBMS specific SQL code

     *                                 as it is used in the CREATE TABLE statement.

     *

     *                            change

     *

     *                                Associative array with the names of the fields to be changed as indexes

     *                                 of the array. Keep in mind that if it is intended to change either the

     *                                 name of a field and any other properties, the change array entries

     *                                 should have the new names of the fields as array indexes.

     *

     *                                The value of each entry of the array should be set to another associative

     *                                 array with the properties of the fields to that are meant to be changed as

     *                                 array entries. These entries should be assigned to the new values of the

     *                                 respective properties. The properties of the fields should be the same

     *                                 as defined by the MDB2 parser.

     *

     *                            Example

     *                                array(

     *                                    'name' => 'userlist',

     *                                    'add' => array(

     *                                        'quota' => array(

     *                                            'type' => 'integer',

     *                                            'unsigned' => 1

     *                                        )

     *                                    ),

     *                                    'remove' => array(

     *                                        'file_limit' => array(),

     *                                        'time_limit' => array()

     *                                    ),

     *                                    'change' => array(

     *                                        'name' => array(

     *                                            'length' => '20',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 20,

     *                                            ),

     *                                        )

     *                                    ),

     *                                    'rename' => array(

     *                                        'sex' => array(

     *                                            'name' => 'gender',

     *                                            'definition' => array(

     *                                                'type' => 'text',

     *                                                'length' => 1,

     *                                                'default' => 'M',

     *                                            ),

     *                                        )

     *                                    )

     *                                )

     *

     * @param boolean $check     indicates whether the function should just check if the DBMS driver

     *                             can perform the requested table alterations if the value is true or

     *                             actually perform them otherwise.

     * @access public

     *

      * @return mixed MDB2_OK on success, a MDB2 error on failure

     */

    function alterTable($name, $changes, $check, $options = array())

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        foreach ($changes as $change_name => $change) {

            switch ($change_name) {

            case 'add':

            case 'remove':

            case 'change':

            case 'name':

            case 'rename':

                break;

            default:

                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,

                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);

            }

        }



        if ($check) {

            return MDB2_OK;

        }



        $db->loadModule('Reverse', null, true);



        // actually sqlite 2.x supports no ALTER TABLE at all .. so we emulate it

        $fields = $db->manager->listTableFields($name);

        if (PEAR::isError($fields)) {

            return $fields;

        }



        $fields = array_flip($fields);

        foreach ($fields as $field => $value) {

            $definition = $db->reverse->getTableFieldDefinition($name, $field);

            if (PEAR::isError($definition)) {

                return $definition;

            }

            $fields[$field] = $definition[0];

        }



        $indexes = $db->manager->listTableIndexes($name);

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $indexes = array_flip($indexes);

        foreach ($indexes as $index => $value) {

            $definition = $db->reverse->getTableIndexDefinition($name, $index);

            if (PEAR::isError($definition)) {

                return $definition;

            }

            $indexes[$index] = $definition;

        }



        $constraints = $db->manager->listTableConstraints($name);

        if (PEAR::isError($constraints)) {

            return $constraints;

        }



        if (!array_key_exists('foreign_keys', $options)) {

            $options['foreign_keys'] = array();

        }

        $constraints = array_flip($constraints);

        foreach ($constraints as $constraint => $value) {

            if (!empty($definition['primary'])) {

                if (!array_key_exists('primary', $options)) {

                    $options['primary'] = $definition['fields'];

                    //remove from the $constraint array, it's already handled by createTable()

                    unset($constraints[$constraint]);

                }

            } else {

                $c_definition = $db->reverse->getTableConstraintDefinition($name, $constraint);

                if (PEAR::isError($c_definition)) {

                    return $c_definition;

                }

                if (!empty($c_definition['foreign'])) {

                    if (!array_key_exists($constraint, $options['foreign_keys'])) {

                        $options['foreign_keys'][$constraint] = $c_definition;

                    }

                    //remove from the $constraint array, it's already handled by createTable()

                    unset($constraints[$constraint]);

                } else {

                    $constraints[$constraint] = $c_definition;

                }

            }

        }



        $name_new = $name;

        $create_order = $select_fields = array_keys($fields);

        foreach ($changes as $change_name => $change) {

            switch ($change_name) {

            case 'add':

                foreach ($change as $field_name => $field) {

                    $fields[$field_name] = $field;

                    $create_order[] = $field_name;

                }

                break;

            case 'remove':

                foreach ($change as $field_name => $field) {

                    unset($fields[$field_name]);

                    $select_fields = array_diff($select_fields, array($field_name));

                    $create_order = array_diff($create_order, array($field_name));

                }

                break;

            case 'change':

                foreach ($change as $field_name => $field) {

                    $fields[$field_name] = $field['definition'];

                }

                break;

            case 'name':

                $name_new = $change;

                break;

            case 'rename':

                foreach ($change as $field_name => $field) {

                    unset($fields[$field_name]);

                    $fields[$field['name']] = $field['definition'];

                    $create_order[array_search($field_name, $create_order)] = $field['name'];

                }

                break;

            default:

                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,

                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);

            }

        }



        $data = null;

        if (!empty($select_fields)) {

            $query = 'SELECT '.implode(', ', $select_fields).' FROM '.$db->quoteIdentifier($name, true);

            $data = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);

        }



        $result = $this->dropTable($name);

        if (PEAR::isError($result)) {

            return $result;

        }



        $result = $this->createTable($name_new, $fields, $options);

        if (PEAR::isError($result)) {

            return $result;

        }



        foreach ($indexes as $index => $definition) {

            $this->createIndex($name_new, $index, $definition);

        }



        foreach ($constraints as $constraint => $definition) {

            $this->createConstraint($name_new, $constraint, $definition);

        }



        if (!empty($select_fields) && !empty($data)) {

            $query = 'INSERT INTO '.$db->quoteIdentifier($name_new, true);

            $query.= '('.implode(', ', array_slice(array_keys($fields), 0, count($select_fields))).')';

            $query.=' VALUES (?'.str_repeat(', ?', (count($select_fields) - 1)).')';

            $stmt =& $db->prepare($query, null, MDB2_PREPARE_MANIP);

            if (PEAR::isError($stmt)) {

                return $stmt;

            }

            foreach ($data as $row) {

                $result = $stmt->execute($row);

                if (PEAR::isError($result)) {

                    return $result;

                }

            }

        }

        return MDB2_OK;

    }



    // }}}

    // {{{ listDatabases()



    /**

     * list all databases

     *

     * @return mixed array of database names on success, a MDB2 error on failure

     * @access public

     */

    function listDatabases()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'list databases is not supported', __FUNCTION__);

    }



    // }}}

    // {{{ listUsers()



    /**

     * list all users

     *

     * @return mixed array of user names on success, a MDB2 error on failure

     * @access public

     */

    function listUsers()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,

            'list databases is not supported', __FUNCTION__);

    }



    // }}}

    // {{{ listViews()



    /**

     * list all views in the current database

     *

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listViews()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM sqlite_master WHERE type='view' AND sql NOT NULL";

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableViews()



    /**

     * list the views in the database that reference a given table

     *

     * @param string table for which all referenced views should be found

     * @return mixed array of view names on success, a MDB2 error on failure

     * @access public

     */

    function listTableViews($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name, sql FROM sqlite_master WHERE type='view' AND sql NOT NULL";

        $views = $db->queryAll($query, array('text', 'text'), MDB2_FETCHMODE_ASSOC);

        if (PEAR::isError($views)) {

            return $views;

        }

        $result = array();

        foreach ($views as $row) {

            if (preg_match("/^create view .* \bfrom\b\s+\b{$table}\b /i", $row['sql'])) {

                if (!empty($row['name'])) {

                    $result[$row['name']] = true;

                }

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ listTables()



    /**

     * list all tables in the current database

     *

     * @return mixed array of table names on success, a MDB2 error on failure

     * @access public

     */

    function listTables()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM sqlite_master WHERE type='table' AND sql NOT NULL ORDER BY name";

        $table_names = $db->queryCol($query);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }

        $result = array();

        foreach ($table_names as $table_name) {

            if (!$this->_fixSequenceName($table_name, true)) {

                $result[] = $table_name;

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ listTableFields()



    /**

     * list all fields in a table in the current database

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of field names on success, a MDB2 error on failure

     * @access public

     */

    function listTableFields($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $result = $db->loadModule('Reverse', null, true);

        if (PEAR::isError($result)) {

            return $result;

        }

        $query = "SELECT sql FROM sqlite_master WHERE type='table' AND ";

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $query.= 'LOWER(name)='.$db->quote(strtolower($table), 'text');

        } else {

            $query.= 'name='.$db->quote($table, 'text');

        }

        $sql = $db->queryOne($query);

        if (PEAR::isError($sql)) {

            return $sql;

        }

        $columns = $db->reverse->_getTableColumns($sql);

        $fields = array();

        foreach ($columns as $column) {

            if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

                if ($db->options['field_case'] == CASE_LOWER) {

                    $column['name'] = strtolower($column['name']);

                } else {

                    $column['name'] = strtoupper($column['name']);

                }

            } else {

                $column = array_change_key_case($column, $db->options['field_case']);

            }

            $fields[] = $column['name'];

        }

        return $fields;

    }



    // }}}

    // {{{ listTableTriggers()



    /**

     * list all triggers in the database that reference a given table

     *

     * @param string table for which all referenced triggers should be found

     * @return mixed array of trigger names on success, a MDB2 error on failure

     * @access public

     */

    function listTableTriggers($table = null)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM sqlite_master WHERE type='trigger' AND sql NOT NULL";

        if (!is_null($table)) {

            if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

                $query.= ' AND LOWER(tbl_name)='.$db->quote(strtolower($table), 'text');

            } else {

                $query.= ' AND tbl_name='.$db->quote($table, 'text');

            }

        }

        $result = $db->queryCol($query);

        if (PEAR::isError($result)) {

            return $result;

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

    // {{{ createIndex()



    /**

     * Get the stucture of a field into an array

     *

     * @param string    $table         name of the table on which the index is to be created

     * @param string    $name         name of the index to be created

     * @param array     $definition        associative array that defines properties of the index to be created.

     *                                 Currently, only one property named FIELDS is supported. This property

     *                                 is also an associative with the names of the index fields as array

     *                                 indexes. Each entry of this array is set to another type of associative

     *                                 array that specifies properties of the index that are specific to

     *                                 each field.

     *

     *                                Currently, only the sorting property is supported. It should be used

     *                                 to define the sorting direction of the index. It may be set to either

     *                                 ascending or descending.

     *

     *                                Not all DBMS support index sorting direction configuration. The DBMS

     *                                 drivers of those that do not support it ignore this property. Use the

     *                                 function support() to determine whether the DBMS driver can manage indexes.



     *                                 Example

     *                                    array(

     *                                        'fields' => array(

     *                                            'user_name' => array(

     *                                                'sorting' => 'ascending'

     *                                            ),

     *                                            'last_login' => array()

     *                                        )

     *                                    )

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createIndex($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quoteIdentifier($table, true);

        $name  = $db->getIndexName($name);

        $query = "CREATE INDEX $name ON $table";

        $fields = array();

        foreach ($definition['fields'] as $field_name => $field) {

            $field_string = $field_name;

            if (!empty($field['sorting'])) {

                switch ($field['sorting']) {

                case 'ascending':

                    $field_string.= ' ASC';

                    break;

                case 'descending':

                    $field_string.= ' DESC';

                    break;

                }

            }

            $fields[] = $field_string;

        }

        $query .= ' ('.implode(', ', $fields) . ')';

        return $db->exec($query);

    }



    // }}}

    // {{{ dropIndex()



    /**

     * drop existing index

     *

     * @param string    $table         name of table that should be used in method

     * @param string    $name         name of the index to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropIndex($table, $name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $name = $db->getIndexName($name);

        return $db->exec("DROP INDEX $name");

    }



    // }}}

    // {{{ listTableIndexes()



    /**

     * list all indexes in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of index names on success, a MDB2 error on failure

     * @access public

     */

    function listTableIndexes($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quote($table, 'text');

        $query = "SELECT sql FROM sqlite_master WHERE type='index' AND ";

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $query.= 'LOWER(tbl_name)='.strtolower($table);

        } else {

            $query.= "tbl_name=$table";

        }

        $query.= " AND sql NOT NULL ORDER BY name";

        $indexes = $db->queryCol($query, 'text');

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $sql) {

            if (preg_match("/^create index ([^ ]+) on /i", $sql, $tmp)) {

                $index = $this->_fixIndexName($tmp[1]);

                if (!empty($index)) {

                    $result[$index] = true;

                }

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createConstraint()



    /**

     * create a constraint on a table

     *

     * @param string $table      name of the table on which the constraint is to be created

     * @param string $name       name of the constraint to be created

     * @param array  $definition associative array that defines properties of the constraint to be created.

     *                           Currently, only one property named FIELDS is supported. This property

     *                           is also an associative with the names of the constraint fields as array

     *                           constraints. Each entry of this array is set to another type of associative

     *                           array that specifies properties of the constraint that are specific to

     *                           each field.

     *

     *                           Example

     *                              array(

     *                                  'fields' => array(

     *                                      'user_name' => array(),

     *                                      'last_login' => array()

     *                                  )

     *                              )

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createConstraint($table, $name, $definition)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        if (!empty($definition['primary'])) {

            return $db->manager->alterTable($table, array(), false, array('primary' => $definition['fields']));

        }

        
        if (!empty($definition['foreign'])) {

            return $db->manager->alterTable($table, array(), false, array('foreign_keys' => array($name => $definition)));

        }



        $table = $db->quoteIdentifier($table, true);

        $name  = $db->getIndexName($name);

        $query = "CREATE UNIQUE INDEX $name ON $table";

        $fields = array();

        foreach ($definition['fields'] as $field_name => $field) {

            $field_string = $field_name;

            if (!empty($field['sorting'])) {

                switch ($field['sorting']) {

                case 'ascending':

                    $field_string.= ' ASC';

                    break;

                case 'descending':

                    $field_string.= ' DESC';

                    break;

                }

            }

            $fields[] = $field_string;

        }

        $query .= ' ('.implode(', ', $fields) . ')';

        return $db->exec($query);

    }



    // }}}

    // {{{ dropConstraint()



    /**

     * drop existing constraint

     *

     * @param string    $table        name of table that should be used in method

     * @param string    $name         name of the constraint to be dropped

     * @param string    $primary      hint if the constraint is primary

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropConstraint($table, $name, $primary = false)

    {

        if ($primary || $name == 'PRIMARY') {

            return $this->alterTable($table, array(), false, array('primary' => null));

        }



        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        //is it a FK constraint? If so, also delete the associated triggers

        $db->loadModule('Reverse', null, true);

        $definition = $db->reverse->getTableConstraintDefinition($table, $name);

        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {

            //first drop the FK enforcing triggers

            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);

            if (PEAR::isError($result)) {

                return $result;

            }

            //then drop the constraint itself

            return $this->alterTable($table, array(), false, array('foreign_keys' => array($name => null)));

        }



        $name = $db->getIndexName($name);

        return $db->exec("DROP INDEX $name");

    }



    // }}}

    // {{{ _dropFKTriggers()

    
    /**

     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table

     *

     * @param string $table  table name

     * @param string $fkname FOREIGN KEY constraint name

     * @param string $referenced_table  referenced table name

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access private

     */

    function _dropFKTriggers($table, $fkname, $referenced_table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $triggers  = $this->listTableTriggers($table);

        $triggers2 = $this->listTableTriggers($referenced_table);

        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {

            $triggers = array_merge($triggers, $triggers2);

            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';

            foreach ($triggers as $trigger) {

                if (preg_match($pattern, $trigger)) {

                    $result = $db->exec('DROP TRIGGER '.$trigger);

                    if (PEAR::isError($result)) {

                        return $result;

                    }

                }

            }

        }

        return MDB2_OK;

    }



    // }]]

    // {{{ listTableConstraints()



    /**

     * list all constraints in a table

     *

     * @param string $table name of table that should be used in method

     * @return mixed array of constraint names on success, a MDB2 error on failure

     * @access public

     */

    function listTableConstraints($table)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $table = $db->quote($table, 'text');

        $query = "SELECT sql FROM sqlite_master WHERE type='index' AND ";

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $query.= 'LOWER(tbl_name)='.strtolower($table);

        } else {

            $query.= "tbl_name=$table";

        }

        $query.= " AND sql NOT NULL ORDER BY name";

        $indexes = $db->queryCol($query, 'text');

        if (PEAR::isError($indexes)) {

            return $indexes;

        }



        $result = array();

        foreach ($indexes as $sql) {

            if (preg_match("/^create unique index ([^ ]+) on /i", $sql, $tmp)) {

                $index = $this->_fixIndexName($tmp[1]);

                if (!empty($index)) {

                    $result[$index] = true;

                }

            }

        }

        
        // also search in table definition for PRIMARY KEYs...

        $query = "SELECT sql FROM sqlite_master WHERE type='table' AND ";

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $query.= 'LOWER(name)='.strtolower($table);

        } else {

            $query.= "name=$table";

        }

        $query.= " AND sql NOT NULL ORDER BY name";

        $table_def = $db->queryOne($query, 'text');

        if (PEAR::isError($table_def)) {

            return $table_def;

        }

        if (preg_match("/\bPRIMARY\s+KEY\b/i", $table_def, $tmp)) {

            $result['primary'] = true;

        }



        // ...and for FOREIGN KEYs

        if (preg_match_all("/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN\s+KEY/imsx", $table_def, $tmp)) {

            foreach ($tmp[1] as $fk) {

                $result[$fk] = true;

            }

        }



        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_change_key_case($result, $db->options['field_case']);

        }

        return array_keys($result);

    }



    // }}}

    // {{{ createSequence()



    /**

     * create sequence

     *

     * @param string    $seq_name     name of the sequence to be created

     * @param string    $start         start value of the sequence; default is 1

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function createSequence($seq_name, $start = 1)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);

        $query = "CREATE TABLE $sequence_name ($seqcol_name INTEGER PRIMARY KEY DEFAULT 0 NOT NULL)";

        $res = $db->exec($query);

        if (PEAR::isError($res)) {

            return $res;

        }

        if ($start == 1) {

            return MDB2_OK;

        }

        $res = $db->exec("INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')');

        if (!PEAR::isError($res)) {

            return MDB2_OK;

        }

        // Handle error

        $result = $db->exec("DROP TABLE $sequence_name");

        if (PEAR::isError($result)) {

            return $db->raiseError($result, null, null,

                'could not drop inconsistent sequence table', __FUNCTION__);

        }

        return $db->raiseError($res, null, null,

            'could not create sequence table', __FUNCTION__);

    }



    // }}}

    // {{{ dropSequence()



    /**

     * drop existing sequence

     *

     * @param string    $seq_name     name of the sequence to be dropped

     * @return mixed MDB2_OK on success, a MDB2 error on failure

     * @access public

     */

    function dropSequence($seq_name)

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);

        return $db->exec("DROP TABLE $sequence_name");

    }



    // }}}

    // {{{ listSequences()



    /**

     * list all sequences in the current database

     *

     * @return mixed array of sequence names on success, a MDB2 error on failure

     * @access public

     */

    function listSequences()

    {

        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {

            return $db;

        }



        $query = "SELECT name FROM sqlite_master WHERE type='table' AND sql NOT NULL ORDER BY name";

        $table_names = $db->queryCol($query);

        if (PEAR::isError($table_names)) {

            return $table_names;

        }

        $result = array();

        foreach ($table_names as $table_name) {

            if ($sqn = $this->_fixSequenceName($table_name, true)) {

                $result[] = $sqn;

            }

        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);

        }

        return $result;

    }



    // }}}

}

<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith, Lorenzo Alberton                       |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Authors: Lukas Smith <smith@pooteeweet.org>                          |
// |          Lorenzo Alberton <l.alberton@quipo.it>                      |
// +----------------------------------------------------------------------+
//
// $Id: sqlite.php 292715 2009-12-28 14:06:34Z quipo $
//

require_once 'MDB2/Driver/Manager/Common.php';

/**
 * MDB2 SQLite driver for the management modules
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@pooteeweet.org>
 * @author  Lorenzo Alberton <l.alberton@quipo.it>
 */
class MDB2_Driver_Manager_sqlite extends MDB2_Driver_Manager_Common
{
    // {{{ createDatabase()

    /**
     * create a new database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with charset info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $database_file = $db->_getDatabaseFile($name);
        if (file_exists($database_file)) {
            return $db->raiseError(MDB2_ERROR_ALREADY_EXISTS, null, null,
                'database already exists', __FUNCTION__);
        }
        $php_errormsg = '';
        $handle = @sqlite_open($database_file, $db->dsn['mode'], $php_errormsg);
        if (!$handle) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                (isset($php_errormsg) ? $php_errormsg : 'could not create the database file'), __FUNCTION__);
        }
        if (!empty($options['charset'])) {
            $query = 'PRAGMA encoding = ' . $db->quote($options['charset'], 'text');
            @sqlite_query($query, $handle);
        }
        @sqlite_close($handle);
        return MDB2_OK;
    }

    // }}}
    // {{{ dropDatabase()

    /**
     * drop an existing database
     *
     * @param string $name name of the database that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropDatabase($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $database_file = $db->_getDatabaseFile($name);
        if (!@file_exists($database_file)) {
            return $db->raiseError(MDB2_ERROR_CANNOT_DROP, null, null,
                'database does not exist', __FUNCTION__);
        }
        $result = @unlink($database_file);
        if (!$result) {
            return $db->raiseError(MDB2_ERROR_CANNOT_DROP, null, null,
                (isset($php_errormsg) ? $php_errormsg : 'could not remove the database file'), __FUNCTION__);
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ _getAdvancedFKOptions()

    /**
     * Return the FOREIGN KEY query section dealing with non-standard options
     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
     *
     * @param array $definition
     * @return string
     * @access protected
     */
    function _getAdvancedFKOptions($definition)
    {
        $query = '';
        if (!empty($definition['match'])) {
            $query .= ' MATCH '.$definition['match'];
        }
        if (!empty($definition['onupdate']) && (strtoupper($definition['onupdate']) != 'NO ACTION')) {
            $query .= ' ON UPDATE '.$definition['onupdate'];
        }
        if (!empty($definition['ondelete']) && (strtoupper($definition['ondelete']) != 'NO ACTION')) {
            $query .= ' ON DELETE '.$definition['ondelete'];
        }
        if (!empty($definition['deferrable'])) {
            $query .= ' DEFERRABLE';
        } else {
            $query .= ' NOT DEFERRABLE';
        }
        if (!empty($definition['initiallydeferred'])) {
            $query .= ' INITIALLY DEFERRED';
        } else {
            $query .= ' INITIALLY IMMEDIATE';
        }
        return $query;
    }

    // }}}
    // {{{ _getCreateTableQuery()

    /**
     * Create a basic SQL query for a new table creation
     * @param string $name   Name of the database that should be created
     * @param array $fields  Associative array that contains the definition of each field of the new table
     * @param array $options  An associative array of table options
     * @return mixed string (the SQL query) on success, a MDB2 error on failure
     * @see createTable()
     */
    function _getCreateTableQuery($name, $fields, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!$name) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no valid table name specified', __FUNCTION__);
        }
        if (empty($fields)) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no fields specified for table "'.$name.'"', __FUNCTION__);
        }
        $query_fields = $this->getFieldDeclarationList($fields);
        if (PEAR::isError($query_fields)) {
            return $query_fields;
        }
        if (!empty($options['primary'])) {
            $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';
        }
        if (!empty($options['foreign_keys'])) {
            foreach ($options['foreign_keys'] as $fkname => $fkdef) {
                if (empty($fkdef)) {
                    continue;
                }
                $query_fields.= ', CONSTRAINT '.$fkname.' FOREIGN KEY ('.implode(', ', array_keys($fkdef['fields'])).')';
                $query_fields.= ' REFERENCES '.$fkdef['references']['table'].' ('.implode(', ', array_keys($fkdef['references']['fields'])).')';
                $query_fields.= $this->_getAdvancedFKOptions($fkdef);
            }
        }

        $name = $db->quoteIdentifier($name, true);
        $result = 'CREATE ';
        if (!empty($options['temporary'])) {
            $result .= $this->_getTemporaryTableQuery();
        }
        $result .= " TABLE $name ($query_fields)";
        return $result;
    }

    // }}}
    // {{{ createTable()

    /**
     * create a new table
     *
     * @param string $name    Name of the database that should be created
     * @param array  $fields  Associative array that contains the definition
     *                        of each field of the new table
     * @param array  $options An associative array of table options
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createTable($name, $fields, $options = array())
    {
        $result = parent::createTable($name, $fields, $options);
        if (PEAR::isError($result)) {
            return $result;
        }
        // create triggers to enforce FOREIGN KEY constraints
        if (!empty($options['foreign_keys'])) {
            $db =& $this->getDBInstance();
            if (PEAR::isError($db)) {
                return $db;
            }
            foreach ($options['foreign_keys'] as $fkname => $fkdef) {
                if (empty($fkdef)) {
                    continue;
                }
                //set actions to default if not set
                $fkdef['onupdate'] = empty($fkdef['onupdate']) ? $db->options['default_fk_action_onupdate'] : strtoupper($fkdef['onupdate']);
                $fkdef['ondelete'] = empty($fkdef['ondelete']) ? $db->options['default_fk_action_ondelete'] : strtoupper($fkdef['ondelete']);

                $trigger_names = array(
                    'insert'    => $fkname.'_insert_trg',
                    'update'    => $fkname.'_update_trg',
                    'pk_update' => $fkname.'_pk_update_trg',
                    'pk_delete' => $fkname.'_pk_delete_trg',
                );
                
                //create the [insert|update] triggers on the FK table
                $table_fields = array_keys($fkdef['fields']);
                $referenced_fields = array_keys($fkdef['references']['fields']);
                $query = 'CREATE TRIGGER %s BEFORE %s ON '.$name
                        .' FOR EACH ROW BEGIN'
                        .' SELECT RAISE(ROLLBACK, \'%s on table "'.$name.'" violates FOREIGN KEY constraint "'.$fkname.'"\')'
                        .' WHERE  (SELECT ';
                $aliased_fields = array();
                foreach ($referenced_fields as $field) {
                    $aliased_fields[] = $fkdef['references']['table'] .'.'.$field .' AS '.$field;
                }
                $query .= implode(',', $aliased_fields)
                       .' FROM '.$fkdef['references']['table']
                       .' WHERE ';
                $conditions = array();
                for ($i=0; $i<count($table_fields); $i++) {
                    $conditions[] = $referenced_fields[$i] .' = NEW.'.$table_fields[$i];
                }
                $query .= implode(' AND ', $conditions).') IS NULL; END;';
                $result = $db->exec(sprintf($query, $trigger_names['insert'], 'INSERT', 'insert'));
                if (PEAR::isError($result)) {
                    return $result;
                }

                $result = $db->exec(sprintf($query, $trigger_names['update'], 'UPDATE', 'update'));
                if (PEAR::isError($result)) {
                    return $result;
                }
                
                //create the ON [UPDATE|DELETE] triggers on the primary table
                $restrict_action = 'SELECT RAISE(ROLLBACK, \'%s on table "'.$name.'" violates FOREIGN KEY constraint "'.$fkname.'"\')'
                                  .' WHERE  (SELECT ';
                $aliased_fields = array();
                foreach ($table_fields as $field) {
                    $aliased_fields[] = $name .'.'.$field .' AS '.$field;
                }
                $restrict_action .= implode(',', $aliased_fields)
                       .' FROM '.$name
                       .' WHERE ';
                $conditions  = array();
                $new_values  = array();
                $null_values = array();
                for ($i=0; $i<count($table_fields); $i++) {
                    $conditions[]  = $table_fields[$i] .' = OLD.'.$referenced_fields[$i];
                    $new_values[]  = $table_fields[$i] .' = NEW.'.$referenced_fields[$i];
                    $null_values[] = $table_fields[$i] .' = NULL';
                }
                $conditions2 = array();
                for ($i=0; $i<count($referenced_fields); $i++) {
                    $conditions2[]  = 'NEW.'.$referenced_fields[$i] .' <> OLD.'.$referenced_fields[$i];
                }
                $restrict_action .= implode(' AND ', $conditions).') IS NOT NULL'
                                 .' AND (' .implode(' OR ', $conditions2) .')';

                $cascade_action_update = 'UPDATE '.$name.' SET '.implode(', ', $new_values) .' WHERE '.implode(' AND ', $conditions);
                $cascade_action_delete = 'DELETE FROM '.$name.' WHERE '.implode(' AND ', $conditions);
                $setnull_action        = 'UPDATE '.$name.' SET '.implode(', ', $null_values).' WHERE '.implode(' AND ', $conditions);

                if ('SET DEFAULT' == $fkdef['onupdate'] || 'SET DEFAULT' == $fkdef['ondelete']) {
                    $db->loadModule('Reverse', null, true);
                    $default_values = array();
                    foreach ($table_fields as $table_field) {
                        $field_definition = $db->reverse->getTableFieldDefinition($name, $field);
                        if (PEAR::isError($field_definition)) {
                            return $field_definition;
                        }
                        $default_values[] = $table_field .' = '. $field_definition[0]['default'];
                    }
                    $setdefault_action = 'UPDATE '.$name.' SET '.implode(', ', $default_values).' WHERE '.implode(' AND ', $conditions);
                }

                $query = 'CREATE TRIGGER %s'
                        .' %s ON '.$fkdef['references']['table']
                        .' FOR EACH ROW BEGIN ';

                if ('CASCADE' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'AFTER UPDATE',  'update') . $cascade_action_update. '; END;';
                } elseif ('SET NULL' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setnull_action. '; END;';
                } elseif ('SET DEFAULT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . $setdefault_action. '; END;';
                } elseif ('NO ACTION' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'AFTER UPDATE', 'update') . '; END;';
                } elseif ('RESTRICT' == $fkdef['onupdate']) {
                    $sql_update = sprintf($query.$restrict_action, $trigger_names['pk_update'], 'BEFORE UPDATE', 'update') . '; END;';
                }
                if ('CASCADE' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'AFTER DELETE',  'delete') . $cascade_action_delete. '; END;';
                } elseif ('SET NULL' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setnull_action. '; END;';
                } elseif ('SET DEFAULT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . $setdefault_action. '; END;';
                } elseif ('NO ACTION' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'AFTER DELETE', 'delete')  . '; END;';
                } elseif ('RESTRICT' == $fkdef['ondelete']) {
                    $sql_delete = sprintf($query.$restrict_action, $trigger_names['pk_delete'], 'BEFORE DELETE', 'delete') . '; END;';
                }

                if (PEAR::isError($result)) {
                    return $result;
                }
                $result = $db->exec($sql_delete);
                if (PEAR::isError($result)) {
                    return $result;
                }
                $result = $db->exec($sql_update);
                if (PEAR::isError($result)) {
                    return $result;
                }
            }
        }
        if (PEAR::isError($result)) {
            return $result;
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropTable()

    /**
     * drop an existing table
     *
     * @param string $name name of the table that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        
        //delete the triggers associated to existing FK constraints
        $constraints = $this->listTableConstraints($name);
        if (!PEAR::isError($constraints) && !empty($constraints)) {
            $db->loadModule('Reverse', null, true);
            foreach ($constraints as $constraint) {
                $definition = $db->reverse->getTableConstraintDefinition($name, $constraint);
                if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
                    $result = $this->_dropFKTriggers($name, $constraint, $definition['references']['table']);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("DROP TABLE $name");
    }

    // }}}
    // {{{ vacuum()

    /**
     * Optimize (vacuum) all the tables in the db (or only the specified table)
     * and optionally run ANALYZE.
     *
     * @param string $table table name (all the tables if empty)
     * @param array  $options an array with driver-specific options:
     *               - timeout [int] (in seconds) [mssql-only]
     *               - analyze [boolean] [pgsql and mysql]
     *               - full [boolean] [pgsql-only]
     *               - freeze [boolean] [pgsql-only]
     *
     * @return mixed MDB2_OK success, a MDB2 error on failure
     * @access public
     */
    function vacuum($table = null, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'VACUUM';
        if (!empty($table)) {
            $query .= ' '.$db->quoteIdentifier($table, true);
        }
        return $db->exec($query);
    }

    // }}}
    // {{{ alterTable()

    /**
     * alter an existing table
     *
     * @param string $name         name of the table that is intended to be changed.
     * @param array $changes     associative array that contains the details of each type
     *                             of change that is intended to be performed. The types of
     *                             changes that are currently supported are defined as follows:
     *
     *                             name
     *
     *                                New name for the table.
     *
     *                            add
     *
     *                                Associative array with the names of fields to be added as
     *                                 indexes of the array. The value of each entry of the array
     *                                 should be set to another associative array with the properties
     *                                 of the fields to be added. The properties of the fields should
     *                                 be the same as defined by the MDB2 parser.
     *
     *
     *                            remove
     *
     *                                Associative array with the names of fields to be removed as indexes
     *                                 of the array. Currently the values assigned to each entry are ignored.
     *                                 An empty array should be used for future compatibility.
     *
     *                            rename
     *
     *                                Associative array with the names of fields to be renamed as indexes
     *                                 of the array. The value of each entry of the array should be set to
     *                                 another associative array with the entry named name with the new
     *                                 field name and the entry named Declaration that is expected to contain
     *                                 the portion of the field declaration already in DBMS specific SQL code
     *                                 as it is used in the CREATE TABLE statement.
     *
     *                            change
     *
     *                                Associative array with the names of the fields to be changed as indexes
     *                                 of the array. Keep in mind that if it is intended to change either the
     *                                 name of a field and any other properties, the change array entries
     *                                 should have the new names of the fields as array indexes.
     *
     *                                The value of each entry of the array should be set to another associative
     *                                 array with the properties of the fields to that are meant to be changed as
     *                                 array entries. These entries should be assigned to the new values of the
     *                                 respective properties. The properties of the fields should be the same
     *                                 as defined by the MDB2 parser.
     *
     *                            Example
     *                                array(
     *                                    'name' => 'userlist',
     *                                    'add' => array(
     *                                        'quota' => array(
     *                                            'type' => 'integer',
     *                                            'unsigned' => 1
     *                                        )
     *                                    ),
     *                                    'remove' => array(
     *                                        'file_limit' => array(),
     *                                        'time_limit' => array()
     *                                    ),
     *                                    'change' => array(
     *                                        'name' => array(
     *                                            'length' => '20',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 20,
     *                                            ),
     *                                        )
     *                                    ),
     *                                    'rename' => array(
     *                                        'sex' => array(
     *                                            'name' => 'gender',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 1,
     *                                                'default' => 'M',
     *                                            ),
     *                                        )
     *                                    )
     *                                )
     *
     * @param boolean $check     indicates whether the function should just check if the DBMS driver
     *                             can perform the requested table alterations if the value is true or
     *                             actually perform them otherwise.
     * @access public
     *
      * @return mixed MDB2_OK on success, a MDB2 error on failure
     */
    function alterTable($name, $changes, $check, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        foreach ($changes as $change_name => $change) {
            switch ($change_name) {
            case 'add':
            case 'remove':
            case 'change':
            case 'name':
            case 'rename':
                break;
            default:
                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);
            }
        }

        if ($check) {
            return MDB2_OK;
        }

        $db->loadModule('Reverse', null, true);

        // actually sqlite 2.x supports no ALTER TABLE at all .. so we emulate it
        $fields = $db->manager->listTableFields($name);
        if (PEAR::isError($fields)) {
            return $fields;
        }

        $fields = array_flip($fields);
        foreach ($fields as $field => $value) {
            $definition = $db->reverse->getTableFieldDefinition($name, $field);
            if (PEAR::isError($definition)) {
                return $definition;
            }
            $fields[$field] = $definition[0];
        }

        $indexes = $db->manager->listTableIndexes($name);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $indexes = array_flip($indexes);
        foreach ($indexes as $index => $value) {
            $definition = $db->reverse->getTableIndexDefinition($name, $index);
            if (PEAR::isError($definition)) {
                return $definition;
            }
            $indexes[$index] = $definition;
        }

        $constraints = $db->manager->listTableConstraints($name);
        if (PEAR::isError($constraints)) {
            return $constraints;
        }

        if (!array_key_exists('foreign_keys', $options)) {
            $options['foreign_keys'] = array();
        }
        $constraints = array_flip($constraints);
        foreach ($constraints as $constraint => $value) {
            if (!empty($definition['primary'])) {
                if (!array_key_exists('primary', $options)) {
                    $options['primary'] = $definition['fields'];
                    //remove from the $constraint array, it's already handled by createTable()
                    unset($constraints[$constraint]);
                }
            } else {
                $c_definition = $db->reverse->getTableConstraintDefinition($name, $constraint);
                if (PEAR::isError($c_definition)) {
                    return $c_definition;
                }
                if (!empty($c_definition['foreign'])) {
                    if (!array_key_exists($constraint, $options['foreign_keys'])) {
                        $options['foreign_keys'][$constraint] = $c_definition;
                    }
                    //remove from the $constraint array, it's already handled by createTable()
                    unset($constraints[$constraint]);
                } else {
                    $constraints[$constraint] = $c_definition;
                }
            }
        }

        $name_new = $name;
        $create_order = $select_fields = array_keys($fields);
        foreach ($changes as $change_name => $change) {
            switch ($change_name) {
            case 'add':
                foreach ($change as $field_name => $field) {
                    $fields[$field_name] = $field;
                    $create_order[] = $field_name;
                }
                break;
            case 'remove':
                foreach ($change as $field_name => $field) {
                    unset($fields[$field_name]);
                    $select_fields = array_diff($select_fields, array($field_name));
                    $create_order = array_diff($create_order, array($field_name));
                }
                break;
            case 'change':
                foreach ($change as $field_name => $field) {
                    $fields[$field_name] = $field['definition'];
                }
                break;
            case 'name':
                $name_new = $change;
                break;
            case 'rename':
                foreach ($change as $field_name => $field) {
                    unset($fields[$field_name]);
                    $fields[$field['name']] = $field['definition'];
                    $create_order[array_search($field_name, $create_order)] = $field['name'];
                }
                break;
            default:
                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);
            }
        }

        $data = null;
        if (!empty($select_fields)) {
            $query = 'SELECT '.implode(', ', $select_fields).' FROM '.$db->quoteIdentifier($name, true);
            $data = $db->queryAll($query, null, MDB2_FETCHMODE_ORDERED);
        }

        $result = $this->dropTable($name);
        if (PEAR::isError($result)) {
            return $result;
        }

        $result = $this->createTable($name_new, $fields, $options);
        if (PEAR::isError($result)) {
            return $result;
        }

        foreach ($indexes as $index => $definition) {
            $this->createIndex($name_new, $index, $definition);
        }

        foreach ($constraints as $constraint => $definition) {
            $this->createConstraint($name_new, $constraint, $definition);
        }

        if (!empty($select_fields) && !empty($data)) {
            $query = 'INSERT INTO '.$db->quoteIdentifier($name_new, true);
            $query.= '('.implode(', ', array_slice(array_keys($fields), 0, count($select_fields))).')';
            $query.=' VALUES (?'.str_repeat(', ?', (count($select_fields) - 1)).')';
            $stmt =& $db->prepare($query, null, MDB2_PREPARE_MANIP);
            if (PEAR::isError($stmt)) {
                return $stmt;
            }
            foreach ($data as $row) {
                $result = $stmt->execute($row);
                if (PEAR::isError($result)) {
                    return $result;
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ listDatabases()

    /**
     * list all databases
     *
     * @return mixed array of database names on success, a MDB2 error on failure
     * @access public
     */
    function listDatabases()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'list databases is not supported', __FUNCTION__);
    }

    // }}}
    // {{{ listUsers()

    /**
     * list all users
     *
     * @return mixed array of user names on success, a MDB2 error on failure
     * @access public
     */
    function listUsers()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        return $db->raiseError(MDB2_ERROR_UNSUPPORTED, null, null,
            'list databases is not supported', __FUNCTION__);
    }

    // }}}
    // {{{ listViews()

    /**
     * list all views in the current database
     *
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listViews()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM sqlite_master WHERE type='view' AND sql NOT NULL";
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableViews()

    /**
     * list the views in the database that reference a given table
     *
     * @param string table for which all referenced views should be found
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listTableViews($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name, sql FROM sqlite_master WHERE type='view' AND sql NOT NULL";
        $views = $db->queryAll($query, array('text', 'text'), MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($views)) {
            return $views;
        }
        $result = array();
        foreach ($views as $row) {
            if (preg_match("/^create view .* \bfrom\b\s+\b{$table}\b /i", $row['sql'])) {
                if (!empty($row['name'])) {
                    $result[$row['name']] = true;
                }
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ listTables()

    /**
     * list all tables in the current database
     *
     * @return mixed array of table names on success, a MDB2 error on failure
     * @access public
     */
    function listTables()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM sqlite_master WHERE type='table' AND sql NOT NULL ORDER BY name";
        $table_names = $db->queryCol($query);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }
        $result = array();
        foreach ($table_names as $table_name) {
            if (!$this->_fixSequenceName($table_name, true)) {
                $result[] = $table_name;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableFields()

    /**
     * list all fields in a table in the current database
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of field names on success, a MDB2 error on failure
     * @access public
     */
    function listTableFields($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $result = $db->loadModule('Reverse', null, true);
        if (PEAR::isError($result)) {
            return $result;
        }
        $query = "SELECT sql FROM sqlite_master WHERE type='table' AND ";
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $query.= 'LOWER(name)='.$db->quote(strtolower($table), 'text');
        } else {
            $query.= 'name='.$db->quote($table, 'text');
        }
        $sql = $db->queryOne($query);
        if (PEAR::isError($sql)) {
            return $sql;
        }
        $columns = $db->reverse->_getTableColumns($sql);
        $fields = array();
        foreach ($columns as $column) {
            if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
                if ($db->options['field_case'] == CASE_LOWER) {
                    $column['name'] = strtolower($column['name']);
                } else {
                    $column['name'] = strtoupper($column['name']);
                }
            } else {
                $column = array_change_key_case($column, $db->options['field_case']);
            }
            $fields[] = $column['name'];
        }
        return $fields;
    }

    // }}}
    // {{{ listTableTriggers()

    /**
     * list all triggers in the database that reference a given table
     *
     * @param string table for which all referenced triggers should be found
     * @return mixed array of trigger names on success, a MDB2 error on failure
     * @access public
     */
    function listTableTriggers($table = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM sqlite_master WHERE type='trigger' AND sql NOT NULL";
        if (null !== $table) {
            if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
                $query.= ' AND LOWER(tbl_name)='.$db->quote(strtolower($table), 'text');
            } else {
                $query.= ' AND tbl_name='.$db->quote($table, 'text');
            }
        }
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ createIndex()

    /**
     * Get the stucture of a field into an array
     *
     * @param string    $table         name of the table on which the index is to be created
     * @param string    $name         name of the index to be created
     * @param array     $definition        associative array that defines properties of the index to be created.
     *                                 Currently, only one property named FIELDS is supported. This property
     *                                 is also an associative with the names of the index fields as array
     *                                 indexes. Each entry of this array is set to another type of associative
     *                                 array that specifies properties of the index that are specific to
     *                                 each field.
     *
     *                                Currently, only the sorting property is supported. It should be used
     *                                 to define the sorting direction of the index. It may be set to either
     *                                 ascending or descending.
     *
     *                                Not all DBMS support index sorting direction configuration. The DBMS
     *                                 drivers of those that do not support it ignore this property. Use the
     *                                 function support() to determine whether the DBMS driver can manage indexes.

     *                                 Example
     *                                    array(
     *                                        'fields' => array(
     *                                            'user_name' => array(
     *                                                'sorting' => 'ascending'
     *                                            ),
     *                                            'last_login' => array()
     *                                        )
     *                                    )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createIndex($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name  = $db->getIndexName($name);
        $query = "CREATE INDEX $name ON $table";
        $fields = array();
        foreach ($definition['fields'] as $field_name => $field) {
            $field_string = $field_name;
            if (!empty($field['sorting'])) {
                switch ($field['sorting']) {
                case 'ascending':
                    $field_string.= ' ASC';
                    break;
                case 'descending':
                    $field_string.= ' DESC';
                    break;
                }
            }
            $fields[] = $field_string;
        }
        $query .= ' ('.implode(', ', $fields) . ')';
        return $db->exec($query);
    }

    // }}}
    // {{{ dropIndex()

    /**
     * drop existing index
     *
     * @param string    $table         name of table that should be used in method
     * @param string    $name         name of the index to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropIndex($table, $name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->getIndexName($name);
        return $db->exec("DROP INDEX $name");
    }

    // }}}
    // {{{ listTableIndexes()

    /**
     * list all indexes in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of index names on success, a MDB2 error on failure
     * @access public
     */
    function listTableIndexes($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quote($table, 'text');
        $query = "SELECT sql FROM sqlite_master WHERE type='index' AND ";
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $query.= 'LOWER(tbl_name)='.strtolower($table);
        } else {
            $query.= "tbl_name=$table";
        }
        $query.= " AND sql NOT NULL ORDER BY name";
        $indexes = $db->queryCol($query, 'text');
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $sql) {
            if (preg_match("/^create index ([^ ]+) on /i", $sql, $tmp)) {
                $index = $this->_fixIndexName($tmp[1]);
                if (!empty($index)) {
                    $result[$index] = true;
                }
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createConstraint()

    /**
     * create a constraint on a table
     *
     * @param string $table      name of the table on which the constraint is to be created
     * @param string $name       name of the constraint to be created
     * @param array  $definition associative array that defines properties of the constraint to be created.
     *                           Currently, only one property named FIELDS is supported. This property
     *                           is also an associative with the names of the constraint fields as array
     *                           constraints. Each entry of this array is set to another type of associative
     *                           array that specifies properties of the constraint that are specific to
     *                           each field.
     *
     *                           Example
     *                              array(
     *                                  'fields' => array(
     *                                      'user_name' => array(),
     *                                      'last_login' => array()
     *                                  )
     *                              )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createConstraint($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!empty($definition['primary'])) {
            return $db->manager->alterTable($table, array(), false, array('primary' => $definition['fields']));
        }
        
        if (!empty($definition['foreign'])) {
            return $db->manager->alterTable($table, array(), false, array('foreign_keys' => array($name => $definition)));
        }

        $table = $db->quoteIdentifier($table, true);
        $name  = $db->getIndexName($name);
        $query = "CREATE UNIQUE INDEX $name ON $table";
        $fields = array();
        foreach ($definition['fields'] as $field_name => $field) {
            $field_string = $field_name;
            if (!empty($field['sorting'])) {
                switch ($field['sorting']) {
                case 'ascending':
                    $field_string.= ' ASC';
                    break;
                case 'descending':
                    $field_string.= ' DESC';
                    break;
                }
            }
            $fields[] = $field_string;
        }
        $query .= ' ('.implode(', ', $fields) . ')';
        return $db->exec($query);
    }

    // }}}
    // {{{ dropConstraint()

    /**
     * drop existing constraint
     *
     * @param string    $table        name of table that should be used in method
     * @param string    $name         name of the constraint to be dropped
     * @param string    $primary      hint if the constraint is primary
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropConstraint($table, $name, $primary = false)
    {
        if ($primary || $name == 'PRIMARY') {
            return $this->alterTable($table, array(), false, array('primary' => null));
        }

        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        //is it a FK constraint? If so, also delete the associated triggers
        $db->loadModule('Reverse', null, true);
        $definition = $db->reverse->getTableConstraintDefinition($table, $name);
        if (!PEAR::isError($definition) && !empty($definition['foreign'])) {
            //first drop the FK enforcing triggers
            $result = $this->_dropFKTriggers($table, $name, $definition['references']['table']);
            if (PEAR::isError($result)) {
                return $result;
            }
            //then drop the constraint itself
            return $this->alterTable($table, array(), false, array('foreign_keys' => array($name => null)));
        }

        $name = $db->getIndexName($name);
        return $db->exec("DROP INDEX $name");
    }

    // }}}
    // {{{ _dropFKTriggers()
    
    /**
     * Drop the triggers created to enforce the FOREIGN KEY constraint on the table
     *
     * @param string $table  table name
     * @param string $fkname FOREIGN KEY constraint name
     * @param string $referenced_table  referenced table name
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access private
     */
    function _dropFKTriggers($table, $fkname, $referenced_table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $triggers  = $this->listTableTriggers($table);
        $triggers2 = $this->listTableTriggers($referenced_table);
        if (!PEAR::isError($triggers2) && !PEAR::isError($triggers)) {
            $triggers = array_merge($triggers, $triggers2);
            $pattern = '/^'.$fkname.'(_pk)?_(insert|update|delete)_trg$/i';
            foreach ($triggers as $trigger) {
                if (preg_match($pattern, $trigger)) {
                    $result = $db->exec('DROP TRIGGER '.$trigger);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ listTableConstraints()

    /**
     * list all constraints in a table
     *
     * @param string $table name of table that should be used in method
     * @return mixed array of constraint names on success, a MDB2 error on failure
     * @access public
     */
    function listTableConstraints($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quote($table, 'text');
        $query = "SELECT sql FROM sqlite_master WHERE type='index' AND ";
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $query.= 'LOWER(tbl_name)='.strtolower($table);
        } else {
            $query.= "tbl_name=$table";
        }
        $query.= " AND sql NOT NULL ORDER BY name";
        $indexes = $db->queryCol($query, 'text');
        if (PEAR::isError($indexes)) {
            return $indexes;
        }

        $result = array();
        foreach ($indexes as $sql) {
            if (preg_match("/^create unique index ([^ ]+) on /i", $sql, $tmp)) {
                $index = $this->_fixIndexName($tmp[1]);
                if (!empty($index)) {
                    $result[$index] = true;
                }
            }
        }
        
        // also search in table definition for PRIMARY KEYs...
        $query = "SELECT sql FROM sqlite_master WHERE type='table' AND ";
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $query.= 'LOWER(name)='.strtolower($table);
        } else {
            $query.= "name=$table";
        }
        $query.= " AND sql NOT NULL ORDER BY name";
        $table_def = $db->queryOne($query, 'text');
        if (PEAR::isError($table_def)) {
            return $table_def;
        }
        if (preg_match("/\bPRIMARY\s+KEY\b/i", $table_def, $tmp)) {
            $result['primary'] = true;
        }

        // ...and for FOREIGN KEYs
        if (preg_match_all("/\bCONSTRAINT\b\s+([^\s]+)\s+\bFOREIGN\s+KEY/imsx", $table_def, $tmp)) {
            foreach ($tmp[1] as $fk) {
                $result[$fk] = true;
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ createSequence()

    /**
     * create sequence
     *
     * @param string    $seq_name     name of the sequence to be created
     * @param string    $start         start value of the sequence; default is 1
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createSequence($seq_name, $start = 1)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);
        $query = "CREATE TABLE $sequence_name ($seqcol_name INTEGER PRIMARY KEY DEFAULT 0 NOT NULL)";
        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }
        if ($start == 1) {
            return MDB2_OK;
        }
        $res = $db->exec("INSERT INTO $sequence_name ($seqcol_name) VALUES (".($start-1).')');
        if (!PEAR::isError($res)) {
            return MDB2_OK;
        }
        // Handle error
        $result = $db->exec("DROP TABLE $sequence_name");
        if (PEAR::isError($result)) {
            return $db->raiseError($result, null, null,
                'could not drop inconsistent sequence table', __FUNCTION__);
        }
        return $db->raiseError($res, null, null,
            'could not create sequence table', __FUNCTION__);
    }

    // }}}
    // {{{ dropSequence()

    /**
     * drop existing sequence
     *
     * @param string    $seq_name     name of the sequence to be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropSequence($seq_name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        return $db->exec("DROP TABLE $sequence_name");
    }

    // }}}
    // {{{ listSequences()

    /**
     * list all sequences in the current database
     *
     * @return mixed array of sequence names on success, a MDB2 error on failure
     * @access public
     */
    function listSequences()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM sqlite_master WHERE type='table' AND sql NOT NULL ORDER BY name";
        $table_names = $db->queryCol($query);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }
        $result = array();
        foreach ($table_names as $table_name) {
            if ($sqn = $this->_fixSequenceName($table_name, true)) {
                $result[] = $sqn;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
}
?>

 program/lib/MDB2/Driver/Manager/sqlsrv.php

New file
@@ -0,0 +1,1383 @@
<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith                                         |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Authors: Frank M. Kromann <frank@kromann.info>                       |
// |          David Coallier <davidc@php.net>                             |
// |          Lorenzo Alberton <l.alberton@quipo.it>                      |
// +----------------------------------------------------------------------+

require_once 'MDB2/Driver/Manager/Common.php';

// {{{ class MDB2_Driver_Manager_sqlsrv

/**
 * MDB2 MSSQL driver for the management modules
 *
 * @package MDB2
 * @category Database
 * @author  Frank M. Kromann <frank@kromann.info>
 * @author  David Coallier <davidc@php.net>
 * @author  Lorenzo Alberton <l.alberton@quipo.it>
 */
class MDB2_Driver_Manager_sqlsrv extends MDB2_Driver_Manager_Common
{
    // {{{ createDatabase()
    /**
     * create a new database
     *
     * @param string $name    name of the database that should be created
     * @param array  $options array with collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        $query = "CREATE DATABASE $name";
        if ($db->options['database_device']) {
            $query.= ' ON '.$db->options['database_device'];
            $query.= $db->options['database_size'] ? '=' .
                     $db->options['database_size'] : '';
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $options['collation'];
        }
        return $db->standaloneQuery($query, null, true);
    }

    // }}}
    // {{{ alterDatabase()

    /**
     * alter an existing database
     *
     * @param string $name    name of the database that is intended to be changed
     * @param array  $options array with name, collation info
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function alterDatabase($name, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = '';
        if (!empty($options['name'])) {
            $query .= ' MODIFY NAME = ' .$db->quoteIdentifier($options['name'], true);
        }
        if (!empty($options['collation'])) {
            $query .= ' COLLATE ' . $options['collation'];
        }
        if (!empty($query)) {
            $query = 'ALTER DATABASE '. $db->quoteIdentifier($name, true) . $query;
            return $db->standaloneQuery($query, null, true);
        }
        return MDB2_OK;
    }

    // }}}
    // {{{ dropDatabase()

    /**
     * drop an existing database
     *
     * @param string $name name of the database that should be dropped
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropDatabase($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->standaloneQuery("DROP DATABASE $name", null, true);
    }

    // }}}
    // {{{ dropTable()

    /**
     * drop an existing table
     *
     * @param string $name name of the table that should be dropped
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $name = $db->quoteIdentifier($name, true);
        return $db->exec("IF EXISTS (SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME='$name') DROP TABLE $name");
    }

    // }}}	
    // {{{ _getTemporaryTableQuery()

    /**
     * Override the parent method.
     *
     * @return string The string required to be placed between "CREATE" and "TABLE"
     *                to generate a temporary table, if possible.
     */
    function _getTemporaryTableQuery()
    {
        return '';
    }

    // }}}
    // {{{ _getAdvancedFKOptions()

    /**
     * Return the FOREIGN KEY query section dealing with non-standard options
     * as MATCH, INITIALLY DEFERRED, ON UPDATE, ...
     *
     * @param array $definition
     *
     * @return string
     * @access protected
     */
    function _getAdvancedFKOptions($definition)
    {
        $query = '';
        if (!empty($definition['onupdate'])) {
            $query .= ' ON UPDATE '.$definition['onupdate'];
        }
        if (!empty($definition['ondelete'])) {
            $query .= ' ON DELETE '.$definition['ondelete'];
        }
        return $query;
    }

    // }}}
    // {{{ createTable()

    /**
     * create a new table
     *
     * @param string $name   Name of the database that should be created
     * @param array  $fields Associative array that contains the definition of each field of the new table
     *                       The indexes of the array entries are the names of the fields of the table an
     *                       the array entry values are associative arrays like those that are meant to be
     *                       passed with the field definitions to get[Type]Declaration() functions.
     *
     *                      Example
     *                        array(
     *
     *                            'id' => array(
     *                                'type' => 'integer',
     *                                'unsigned' => 1,
     *                                'notnull' => 1,
     *                                'default' => 0,
     *                            ),
     *                            'name' => array(
     *                                'type' => 'text',
     *                                'length' => 12,
     *                            ),
     *                            'description' => array(
     *                                'type' => 'text',
     *                                'length' => 12,
     *                            )
     *                        );
     * @param array $options An associative array of table options:
     *                          array(
     *                              'comment' => 'Foo',
     *                              'temporary' => true|false,
     *                          );
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createTable($name, $fields, $options = array())
    {
        /*if (!empty($options['temporary'])) {
            $name = '#'.$name;//would make subsequent calls fail because it would go out ot scope and be destroyed already
        }*/
        return parent::createTable($name, $fields, $options);
    }

    // }}}
    // {{{ truncateTable()

    /**
     * Truncate an existing table (if the TRUNCATE TABLE syntax is not supported,
     * it falls back to a DELETE FROM TABLE query)
     *
     * @param string $name name of the table that should be truncated
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function truncateTable($name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $name = $db->quoteIdentifier($name, true);
        return $db->exec("TRUNCATE TABLE $name");
    }

    // }}}
    // {{{ vacuum()

    /**
     * Optimize (vacuum) all the tables in the db (or only the specified table)
     * and optionally run ANALYZE.
     *
     * @param string $table table name (all the tables if empty)
     * @param array  $options an array with driver-specific options:
     *               - timeout [int] (in seconds) [mssql-only]
     *               - analyze [boolean] [pgsql and mysql]
     *               - full [boolean] [pgsql-only]
     *               - freeze [boolean] [pgsql-only]
     *
     * NB: you have to run the NSControl Create utility to enable VACUUM
     *
     * @return mixed MDB2_OK success, a MDB2 error on failure
     * @access public
     */
    function vacuum($table = null, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $timeout = isset($options['timeout']) ? (int)$options['timeout'] : 300;

        $query = 'NSControl Create';
        $result = $db->exec($query);
        if (PEAR::isError($result)) {
            return $result;
        }

        return $db->exec('EXEC NSVacuum '.$timeout);
    }

    // }}}
    // {{{ alterTable()

    /**
     * alter an existing table
     *
     * @param string  $name    name of the table that is intended to be changed.
     * @param array   $changes associative array that contains the details of each type
     *                         of change that is intended to be performed. The types of
     *                         changes that are currently supported are defined as follows:
     *
     *                             name
     *
     *                                New name for the table.
     *
     *                            add
     *
     *                                Associative array with the names of fields to be added as
     *                                 indexes of the array. The value of each entry of the array
     *                                 should be set to another associative array with the properties
     *                                 of the fields to be added. The properties of the fields should
     *                                 be the same as defined by the MDB2 parser.
     *
     *
     *                            remove
     *
     *                                Associative array with the names of fields to be removed as indexes
     *                                 of the array. Currently the values assigned to each entry are ignored.
     *                                 An empty array should be used for future compatibility.
     *
     *                            rename
     *
     *                                Associative array with the names of fields to be renamed as indexes
     *                                 of the array. The value of each entry of the array should be set to
     *                                 another associative array with the entry named name with the new
     *                                 field name and the entry named Declaration that is expected to contain
     *                                 the portion of the field declaration already in DBMS specific SQL code
     *                                 as it is used in the CREATE TABLE statement.
     *
     *                            change
     *
     *                                Associative array with the names of the fields to be changed as indexes
     *                                 of the array. Keep in mind that if it is intended to change either the
     *                                 name of a field and any other properties, the change array entries
     *                                 should have the new names of the fields as array indexes.
     *
     *                                The value of each entry of the array should be set to another associative
     *                                 array with the properties of the fields to that are meant to be changed as
     *                                 array entries. These entries should be assigned to the new values of the
     *                                 respective properties. The properties of the fields should be the same
     *                                 as defined by the MDB2 parser.
     *
     *                            Example
     *                                array(
     *                                    'name' => 'userlist',
     *                                    'add' => array(
     *                                        'quota' => array(
     *                                            'type' => 'integer',
     *                                            'unsigned' => 1
     *                                        )
     *                                    ),
     *                                    'remove' => array(
     *                                        'file_limit' => array(),
     *                                        'time_limit' => array()
     *                                    ),
     *                                    'change' => array(
     *                                        'name' => array(
     *                                            'length' => '20',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 20,
     *                                            ),
     *                                        )
     *                                    ),
     *                                    'rename' => array(
     *                                        'sex' => array(
     *                                            'name' => 'gender',
     *                                            'definition' => array(
     *                                                'type' => 'text',
     *                                                'length' => 1,
     *                                                'default' => 'M',
     *                                            ),
     *                                        )
     *                                    )
     *                                )
     *
     * @param boolean $check   indicates whether the function should just check if the DBMS driver
     *                         can perform the requested table alterations if the value is true or
     *                         actually perform them otherwise.
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function alterTable($name, $changes, $check)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $name_quoted = $db->quoteIdentifier($name, true);

        foreach ($changes as $change_name => $change) {
            switch ($change_name) {
            case 'remove':
            case 'rename':
            case 'add':
            case 'change':
            case 'name':
                break;
            default:
                return $db->raiseError(MDB2_ERROR_CANNOT_ALTER, null, null,
                    'change type "'.$change_name.'" not yet supported', __FUNCTION__);
            }
        }

        if ($check) {
            return MDB2_OK;
        }

        $idxname_format = $db->getOption('idxname_format');
        $db->setOption('idxname_format', '%s');

        if (!empty($changes['remove']) && is_array($changes['remove'])) {
            $result = $this->_dropConflictingIndices($name, array_keys($changes['remove']));
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }
            $result = $this->_dropConflictingConstraints($name, array_keys($changes['remove']));
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }

            $query = '';
            foreach ($changes['remove'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                }
                $field_name = $db->quoteIdentifier($field_name, true);
                $query.= 'COLUMN ' . $field_name;
            }

            $result = $db->exec("ALTER TABLE $name_quoted DROP $query");
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }
        }

        if (!empty($changes['rename']) && is_array($changes['rename'])) {
            foreach ($changes['rename'] as $field_name => $field) {
                $field_name = $db->quoteIdentifier($field_name, true);
                $result = $db->exec("sp_rename '$name_quoted.$field_name', '".$field['name']."', 'COLUMN'");
                if (PEAR::isError($result)) {
                    $db->setOption('idxname_format', $idxname_format);
                    return $result;
                }
            }
        }

        if (!empty($changes['add']) && is_array($changes['add'])) {
            $query = '';
            foreach ($changes['add'] as $field_name => $field) {
                if ($query) {
                    $query.= ', ';
                } else {
                    $query.= 'ADD ';
                }
                $query.= $db->getDeclaration($field['type'], $field_name, $field);
            }

            $result = $db->exec("ALTER TABLE $name_quoted $query");
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }
        }

        $dropped_indices     = array();
        $dropped_constraints = array();

        if (!empty($changes['change']) && is_array($changes['change'])) {
            $dropped = $this->_dropConflictingIndices($name, array_keys($changes['change']));
            if (PEAR::isError($dropped)) {
                $db->setOption('idxname_format', $idxname_format);
                return $dropped;
            }
            $dropped_indices = array_merge($dropped_indices, $dropped);
            $dropped = $this->_dropConflictingConstraints($name, array_keys($changes['change']));
            if (PEAR::isError($dropped)) {
                $db->setOption('idxname_format', $idxname_format);
                return $dropped;
            }
            $dropped_constraints = array_merge($dropped_constraints, $dropped);

            foreach ($changes['change'] as $field_name => $field) {
                //MSSQL doesn't allow multiple ALTER COLUMNs in one query
                $query = 'ALTER COLUMN ';

                //MSSQL doesn't allow changing the DEFAULT value of a field in altering mode
                if (array_key_exists('default', $field['definition'])) {
                    unset($field['definition']['default']);
                }

                $query .= $db->getDeclaration($field['definition']['type'], $field_name, $field['definition']);
                $result = $db->exec("ALTER TABLE $name_quoted $query");
                if (PEAR::isError($result)) {
                    $db->setOption('idxname_format', $idxname_format);
                    return $result;
                }
            }
        }

        // restore the dropped conflicting indices and constraints
        foreach ($dropped_indices as $index_name => $index) {
            $result = $this->createIndex($name, $index_name, $index);
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }
        }
        foreach ($dropped_constraints as $constraint_name => $constraint) {
            $result = $this->createConstraint($name, $constraint_name, $constraint);
            if (PEAR::isError($result)) {
                $db->setOption('idxname_format', $idxname_format);
                return $result;
            }
        }

        $db->setOption('idxname_format', $idxname_format);

        if (!empty($changes['name'])) {
            $new_name = $db->quoteIdentifier($changes['name'], true);
            $result = $db->exec("sp_rename '$name_quoted', '$new_name'");
            if (PEAR::isError($result)) {
                return $result;
            }
        }

        return MDB2_OK;
    }

    // }}}
    // {{{ _dropConflictingIndices()

    /**
     * Drop the indices that prevent a successful ALTER TABLE action
     *
     * @param string $table  table name
     * @param array  $fields array of names of the fields affected by the change
     *
     * @return array dropped indices definitions
     */
    function _dropConflictingIndices($table, $fields)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $dropped = array();
        $index_names = $this->listTableIndexes($table);
        if (PEAR::isError($index_names)) {
            return $index_names;
        }
        $db->loadModule('Reverse');
        $indexes = array();
        foreach ($index_names as $index_name) {
            $idx_def = $db->reverse->getTableIndexDefinition($table, $index_name);
            if (!PEAR::isError($idx_def)) {
                $indexes[$index_name] = $idx_def;
            }
        }
        foreach ($fields as $field_name) {
            foreach ($indexes as $index_name => $index) {
                if (!isset($dropped[$index_name]) && array_key_exists($field_name, $index['fields'])) {
                    $dropped[$index_name] = $index;
                    $result = $this->dropIndex($table, $index_name);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
        }

        return $dropped;
    }

    // }}}
    // {{{ _dropConflictingConstraints()

    /**
     * Drop the constraints that prevent a successful ALTER TABLE action
     *
     * @param string $table  table name
     * @param array  $fields array of names of the fields affected by the change
     *
     * @return array dropped constraints definitions
     */
    function _dropConflictingConstraints($table, $fields)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $dropped = array();
        $constraint_names = $this->listTableConstraints($table);
        if (PEAR::isError($constraint_names)) {
            return $constraint_names;
        }
        $db->loadModule('Reverse');
        $constraints = array();
        foreach ($constraint_names as $constraint_name) {
            $cons_def = $db->reverse->getTableConstraintDefinition($table, $constraint_name);
            if (!PEAR::isError($cons_def)) {
                $constraints[$constraint_name] = $cons_def;
            }
        }
        foreach ($fields as $field_name) {
            foreach ($constraints as $constraint_name => $constraint) {
                if (!isset($dropped[$constraint_name]) && array_key_exists($field_name, $constraint['fields'])) {
                    $dropped[$constraint_name] = $constraint;
                    $result = $this->dropConstraint($table, $constraint_name);
                    if (PEAR::isError($result)) {
                        return $result;
                    }
                }
            }
            // also drop implicit DEFAULT constraints
            $default = $this->_getTableFieldDefaultConstraint($table, $field_name);
            if (!PEAR::isError($default) && !empty($default)) {
                $result = $this->dropConstraint($table, $default);
                if (PEAR::isError($result)) {
                    return $result;
                }
            }
        }

        return $dropped;
    }

    // }}}
    // {{{ _getTableFieldDefaultConstraint()

    /**
     * Get the default constraint for a table field
     *
     * @param string $table name of table that should be used in method
     * @param string $field name of field that should be used in method
     *
     * @return mixed name of default constraint on success, a MDB2 error on failure
     * @access private
     */
    function _getTableFieldDefaultConstraint($table, $field)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $field = $db->quote($field, 'text');
        $query = "SELECT OBJECT_NAME(syscolumns.cdefault)
                    FROM syscolumns
                   WHERE syscolumns.id = object_id('$table')
                     AND syscolumns.name = $field
                     AND syscolumns.cdefault <> 0";
        return $db->queryOne($query);
    }

    // }}}
    // {{{ listTables()

    /**
     * list all tables in the current database
     *
     * @return mixed array of table names on success, a MDB2 error on failure
     * @access public
     */
    function listTables()
    {
        $db =& $this->getDBInstance();

        if (PEAR::isError($db)) {
            return $db;
        }

        $query = 'EXEC sp_tables @table_type = "\'TABLE\'"';
        $table_names = $db->queryCol($query, null, 2);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }
        $result = array();
        foreach ($table_names as $table_name) {
            if (!$this->_fixSequenceName($table_name, true)) {
                $result[] = $table_name;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ?
                        'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableFields()

    /**
     * list all fields in a table in the current database
     *
     * @param string $table name of table that should be used in method
     *
     * @return mixed array of field names on success, a MDB2 error on failure
     * @access public
     */
    function listTableFields($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $columns = $db->queryCol("SELECT c.name
                                    FROM syscolumns c
                               LEFT JOIN sysobjects o ON c.id = o.id
                                   WHERE o.name = '$table'");
        if (PEAR::isError($columns)) {
            return $columns;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $columns = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $columns);
        }
        return $columns;
    }

    // }}}
    // {{{ listTableIndexes()

    /**
     * list all indexes in a table
     *
     * @param string $table name of table that should be used in method
     *
     * @return mixed array of index names on success, a MDB2 error on failure
     * @access public
     */
    function listTableIndexes($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $key_name = 'INDEX_NAME';
        $pk_name = 'PK_NAME';
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            if ($db->options['field_case'] == CASE_LOWER) {
                $key_name = strtolower($key_name);
                $pk_name  = strtolower($pk_name);
            } else {
                $key_name = strtoupper($key_name);
                $pk_name  = strtoupper($pk_name);
            }
        }
        $table = $db->quote($table, 'text');
        $query = "EXEC sp_statistics @table_name=$table";
        $indexes = $db->queryCol($query, 'text', $key_name);
        if (PEAR::isError($indexes)) {
            return $indexes;
        }
        $query = "EXEC sp_pkeys @table_name=$table";
        $pk_all = $db->queryCol($query, 'text', $pk_name);
        $result = array();
        foreach ($indexes as $index) {
            if (!in_array($index, $pk_all) && ($index = $this->_fixIndexName($index))) {
                $result[$index] = true;
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{ listDatabases()

    /**
     * list all databases
     *
     * @return mixed array of database names on success, a MDB2 error on failure
     * @access public
     */
    function listDatabases()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $result = $db->queryCol('SELECT name FROM sys.databases');
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listUsers()

    /**
     * list all users
     *
     * @return mixed array of user names on success, a MDB2 error on failure
     * @access public
     */
    function listUsers()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $result = $db->queryCol('SELECT DISTINCT loginame FROM master..sysprocesses');
        if (PEAR::isError($result) || empty($result)) {
            return $result;
        }
        foreach (array_keys($result) as $k) {
            $result[$k] = trim($result[$k]);
        }
        return $result;
    }

    // }}}
    // {{{ listFunctions()

    /**
     * list all functions in the current database
     *
     * @return mixed array of function names on success, a MDB2 error on failure
     * @access public
     */
    function listFunctions()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name
                    FROM sysobjects
                   WHERE objectproperty(id, N'IsMSShipped') = 0
                    AND (objectproperty(id, N'IsTableFunction') = 1
                     OR objectproperty(id, N'IsScalarFunction') = 1)";
        /*
        SELECT ROUTINE_NAME
          FROM INFORMATION_SCHEMA.ROUTINES
         WHERE ROUTINE_TYPE = 'FUNCTION'
        */
        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ? 'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listTableTriggers()

    /**
     * list all triggers in the database that reference a given table
     *
     * @param string table for which all referenced triggers should be found
     *
     * @return mixed array of trigger names on success,  otherwise, false which
     *               could be a db error if the db is not instantiated or could
     *               be the results of the error that occured during the
     *               querying of the sysobject module.
     * @access public
     */
    function listTableTriggers($table = null)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quote($table, 'text');
        $query = "SELECT o.name
                    FROM sysobjects o
                   WHERE xtype = 'TR'
                     AND OBJECTPROPERTY(o.id, 'IsMSShipped') = 0";
        if (null !== $table) {
            $query .= " AND object_name(parent_obj) = $table";
        }

        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE &&
            $db->options['field_case'] == CASE_LOWER)
        {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ?
                'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ listViews()

    /**
     * list all views in the current database
     *
     * @param string database, the current is default
     *
     * @return mixed array of view names on success, a MDB2 error on failure
     * @access public
     */
    function listViews()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name
                    FROM sysobjects
                   WHERE xtype = 'V'";
        /*
        SELECT *
          FROM sysobjects
         WHERE objectproperty(id, N'IsMSShipped') = 0
           AND objectproperty(id, N'IsView') = 1
        */

        $result = $db->queryCol($query);
        if (PEAR::isError($result)) {
            return $result;
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE &&
            $db->options['field_case'] == CASE_LOWER)
        {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ?
                          'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    // {{{ dropIndex()

    /**
     * drop existing index
     *
     * @param string $table name of table that should be used in method
     * @param string $name  name of the index to be dropped
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropIndex($table, $name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        return $db->exec("DROP INDEX $table.$name");
    }

    // }}}
    // {{{ listTableConstraints()

    /**
     * list all constraints in a table
     *
     * @param string $table name of table that should be used in method
     *
     * @return mixed array of constraint names on success, a MDB2 error on failure
     * @access public
     */
    function listTableConstraints($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $query = "SELECT c.constraint_name
                    FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS c
                   WHERE c.constraint_catalog = DB_NAME()
                     AND c.table_name = '$table'";
        $constraints = $db->queryCol($query);
        if (PEAR::isError($constraints)) {
            return $constraints;
        }

        $result = array();
        foreach ($constraints as $constraint) {
            $constraint = $this->_fixIndexName($constraint);
            if (!empty($constraint)) {
                $result[$constraint] = true;
            }
        }

        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_change_key_case($result, $db->options['field_case']);
        }
        return array_keys($result);
    }

    // }}}
    // {{{

    /**
     * Create a basic SQL query for a new table creation
     *
     * @param string $name   Name of the database that should be created
     * @param array $fields  Associative array that contains the definition of each field of the new table
     * @param array $options An associative array of table options
     *                          Supported options are:
     *                          'primary'   An array of column names in the array keys
     *                                      that form the primary key of the table
     *                          'temporary' If true, creates the table as a temporary table
     * @return mixed string  The SQL query on success, or MDB2 error on failure
     * @see createTable()
     */
    function _getCreateTableQuery($name, $fields, $options = array())
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        if (!$name) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no valid table name specified', __FUNCTION__);
        }
        if (empty($fields)) {
            return $db->raiseError(MDB2_ERROR_CANNOT_CREATE, null, null,
                'no fields specified for table "'.$name.'"', __FUNCTION__);
        }
        $query_fields = $this->getFieldDeclarationList($fields);
        if (PEAR::isError($query_fields)) {
            return $query_fields;
        }
        /*Removed since you can't get the PK name from Schema here, will result in a redefinition of PK index error
        if (!empty($options['primary'])) {
            $query_fields.= ', PRIMARY KEY ('.implode(', ', array_keys($options['primary'])).')';
        }*/

        $name = $db->quoteIdentifier($name, true);
        $result = 'CREATE ';
        if (!empty($options['temporary']) && $options['temporary']) {
            $result .= $this->_getTemporaryTableQuery() . ' ';
        }
        $result .= "TABLE $name ($query_fields)";
        return $result;
    }

    // }}}
    // {{{ createSequence()

    /**
     * create sequence
     *
     * @param string $seq_name name of the sequence to be created
     * @param string $start    start value of the sequence; default is 1
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createSequence($seq_name, $start = 1)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        $seqcol_name = $db->quoteIdentifier($db->options['seqcol_name'], true);
        $query = "CREATE TABLE $sequence_name ($seqcol_name " .
                 "INT PRIMARY KEY CLUSTERED IDENTITY($start,1) NOT NULL)";

        $res = $db->exec($query);
        if (PEAR::isError($res)) {
            return $res;
        }

        $query = "SET IDENTITY_INSERT $sequence_name ON ".
                 "INSERT INTO $sequence_name ($seqcol_name) VALUES ($start)";
        $res = $db->exec($query);

        if (!PEAR::isError($res)) {
            return MDB2_OK;
        }

        $result = $db->exec("DROP TABLE $sequence_name");
        if (PEAR::isError($result)) {
            return $db->raiseError($result, null, null,
                'could not drop inconsistent sequence table', __FUNCTION__);
        }

        return $db->raiseError($res, null, null,
            'could not create sequence table', __FUNCTION__);
    }

    // }}}
    // {{{ dropSequence()

    /**
     * This function drops an existing sequence
     *
     * @param string $seq_name name of the sequence to be dropped
     *
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function dropSequence($seq_name)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $sequence_name = $db->quoteIdentifier($db->getSequenceName($seq_name), true);
        return $db->exec("DROP TABLE $sequence_name");
    }

    // }}}
    // {{{ listSequences()

    /**
     * list all sequences in the current database
     *
     * @return mixed array of sequence names on success, a MDB2 error on failure
     * @access public
     */
    function listSequences()
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query = "SELECT name FROM sysobjects WHERE xtype = 'U'";
        $table_names = $db->queryCol($query);
        if (PEAR::isError($table_names)) {
            return $table_names;
        }
        $result = array();
        foreach ($table_names as $table_name) {
            if ($sqn = $this->_fixSequenceName($table_name, true)) {
                $result[] = $sqn;
            }
        }
        if ($db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {
            $result = array_map(($db->options['field_case'] == CASE_LOWER ?
                          'strtolower' : 'strtoupper'), $result);
        }
        return $result;
    }

    // }}}
    /**
     * New OPENX method to check table name according to specifications:
     *  http://msdn.microsoft.com/en-us/library/aa258255(SQL.80).aspx
     *
     *  Table names must conform to the rules for identifiers. The combination of owner.table_name 
     *  must be unique within the database. table_name can contain a maximum of 128 characters, 
     *  except for local temporary table names (names prefixed with a single number sign (#)) that 
     *  cannot exceed 116 characters.
     *
     * @param string $name table name to check
     * @return true if name is correct and PEAR error on failure
     */
    function validateTableName($name)
    {
        // Table name maximum length is 128
        if (strlen($name) > 128) {
            return PEAR::raiseError(
               'SQL Server table names are limited to 128 characters in length');
        }
        return true;
    }

    /**
     * New OpenX method
     *
     * @param string $table
     * @return array
     */
    function getTableStatus($table)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }

        $query      = "exec sp_spaceused '{$table}'";
        $result     = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($result))
        {
            return array();
        }
        $result[0]['data_length'] = (isset($result[0]['data'])) ? $result[0]['data'] : 0;
        $result[0]['data_free'] = (isset($result[0]['unused'])) ? $result[0]['unused'] : 0;
        //data_length,rows,auto_increment,data_free
        $query      = "SELECT IDENT_CURRENT ('{$table}') + IDENT_INCR ('{$table}') AS auto_increment";
        $resultIdentity     = $db->queryAll($query, null, MDB2_FETCHMODE_ASSOC);
        $result[0]['auto_increment'] = (isset($resultIdentity[0]['auto_increment'])) ? $resultIdentity[0]['auto_increment'] : 0;
        return $result;
    }

    function checkTable($tableName)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $query  = 'CHECK TABLE '.$tableName;
        $result = $db->queryRow($query, null, MDB2_FETCHMODE_ASSOC);
        if (PEAR::isError($result))
        {
            return array('msg_text' => $result->getUserInfo());
        }
        return $result;
    }

    /**
     * New OPENX method to check database name according to specifications:
     *  Mysql specification: http://dev.mysql.com/doc/refman/4.1/en/identifiers.html
     *  Mysql specification: http://dev.mysql.com/doc/refman/5.0/en/identifiers.html
     *  For 4.0, 4.1, 5.0 seem to be the same
     *
     * @param string $name database name to check
     * @return true in name is correct and PEAR error on failure
     */
    function validateDatabaseName($name)
    {
        return $this->_validateEntityName($name, 'Database');
    }

    /**
     * New OPENX method to check entity name according to specifications:
     *  Mysql specification: http://dev.mysql.com/doc/refman/4.1/en/identifiers.html
     *  Mysql specification: http://dev.mysql.com/doc/refman/5.0/en/identifiers.html
     *  For 4.0, 4.1, 5.0 seem to be the same
     *
     *  There are some restrictions on the characters that may appear in identifiers:
     *  - No identifier can contain ASCII 0 (0x00) or a byte with a value of 255.
     *  - Before MySQL 4.1, identifier quote characters should not be used in identifiers.
     *  - Database, table, and column names should not end with space characters.
     *  - Database and table names cannot contain “/”, “\”, “.”, or characters that are not allowed in filenames.
     *
     *  Table/Database name maximum length:
     *  - 64
     *
     * @param string $name table name to check
     * @return true if name is correct and PEAR error on failure
     *      *
     * @param unknown_type $name
     * @param unknown_type $entityType
     * @return unknown
     */
    function _validateEntityName($name, $entityType)
    {
        // Table name maximum length is 64
        if (strlen($name) > 64) {
            return PEAR::raiseError(
               $entityType.' names are limited to 64 characters in length');
        }

        // Database, table, and column names should not end with space characters.
        // Extended for leading and ending spaces
        if ($name != trim($name)) {
            return PEAR::raiseError(
                $entityType.' names should not start or end with space characters');
        }

        // No identifier can contain ASCII 0 (0x00) or a byte with a value of 255.
        if (preg_match( '/([\x00\xff])/', $name)) {
            return PEAR::raiseError(
               $entityType.' names cannot contain ASCII 0 (0x00) or a byte with a value of 255');
        }

        //Before MySQL 4.1, identifier quote characters should not be used in identifiers.
        //we actually extend that and disallow quoting at all
        if (preg_match( '/(\\\\|\/|\.|\"|\\\'| |\\(|\\)|\\:|\\;)/', $name)) {
            return PEAR::raiseError(
                $entityType.' names cannot contain "/", "\\", ".", or characters that are not allowed in filenames');
        }

        return true;
    }

    // {{{ createConstraint()

    /**
     * create a constraint on a table
     *
     * @param string    $table         name of the table on which the constraint is to be created
     * @param string    $name         name of the constraint to be created
     * @param array     $definition        associative array that defines properties of the constraint to be created.
     *                                 Currently, only one property named FIELDS is supported. This property
     *                                 is also an associative with the names of the constraint fields as array
     *                                 constraints. Each entry of this array is set to another type of associative
     *                                 array that specifies properties of the constraint that are specific to
     *                                 each field.
     *
     *                                 Example
     *                                    array(
     *                                        'fields' => array(
     *                                            'user_name' => array(),
     *                                            'last_login' => array()
     *                                        )
     *                                    )
     * @return mixed MDB2_OK on success, a MDB2 error on failure
     * @access public
     */
    function createConstraint($table, $name, $definition)
    {
        $db =& $this->getDBInstance();
        if (PEAR::isError($db)) {
            return $db;
        }
        $table = $db->quoteIdentifier($table, true);
        $name = $db->quoteIdentifier($db->getIndexName($name), true);
        if (!empty($definition['primary']) && empty($definition['unique'])) {
            $query = "ALTER TABLE $table ADD CONSTRAINT $name";
            if (!empty($definition['primary'])) {
                $query.= ' PRIMARY KEY';
            } elseif (!empty($definition['unique'])) {
                $query.= ' UNIQUE';
            }
        } elseif (!empty($definition['unique'])) {
            $query = "CREATE UNIQUE NONCLUSTERED INDEX $name ON $table";
        }
        $fields = array();
        foreach (array_keys($definition['fields']) as $field) {
            $fields[] = $db->quoteIdentifier($field, true);
        }
        $query .= ' ('. implode(', ', $fields) . ')';
        //deals with NULL values and UNIQUE indexes, this solution is only available in SQL Server 2008
        //https://connect.microsoft.com/SQLServer/feedback/ViewFeedback.aspx?FeedbackID=299229
        if (!empty($definition['unique']) && empty($definition['primary'])) {
            for($i=0;$i<count($fields);$i++) $fields[$i] .= ' is NOT NULL';
            $query .= ' WHERE '. implode(' AND ', $fields);
        }
        return $db->exec($query);
    }

    // }}}
	
}

// }}}
?>

 program/lib/MDB2/Driver/Native/Common.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: Common.php,v 1.2 2007/09/09 13:47:36 quipo Exp $
// $Id: Common.php 242348 2007-09-09 13:47:36Z quipo $
//

/**

 program/lib/MDB2/Driver/Native/mssql.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mssql.php,v 1.9 2006/06/18 21:59:05 lsmith Exp $
// $Id: mssql.php 215004 2006-06-18 21:59:05Z lsmith $
//

require_once 'MDB2/Driver/Native/Common.php';

 program/lib/MDB2/Driver/Native/mysql.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysql.php,v 1.9 2006/06/18 21:59:05 lsmith Exp $
// $Id: mysql.php 215004 2006-06-18 21:59:05Z lsmith $
//

require_once 'MDB2/Driver/Native/Common.php';

 program/lib/MDB2/Driver/Native/mysqli.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: mysqli.php,v 1.8 2006/06/18 21:59:05 lsmith Exp $
// $Id: mysqli.php 215004 2006-06-18 21:59:05Z lsmith $
//

require_once 'MDB2/Driver/Native/Common.php';

 program/lib/MDB2/Driver/Native/pgsql.php

@@ -42,7 +42,7 @@
// | Author: Paul Cooper <pgc@ucecom.com>                                 |
// +----------------------------------------------------------------------+
//
// $Id: pgsql.php,v 1.12 2006/07/15 13:07:15 lsmith Exp $
// $Id: pgsql.php 216444 2006-07-15 13:07:15Z lsmith $

require_once 'MDB2/Driver/Native/Common.php';


 program/lib/MDB2/Driver/Native/sqlite.php

@@ -42,7 +42,7 @@
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+
//
// $Id: sqlite.php,v 1.9 2006/06/18 21:59:05 lsmith Exp $
// $Id: sqlite.php 215004 2006-06-18 21:59:05Z lsmith $
//

require_once 'MDB2/Driver/Native/Common.php';

 program/lib/MDB2/Driver/Native/sqlsrv.php

New file
@@ -0,0 +1,57 @@
<?php
// +----------------------------------------------------------------------+
// | PHP versions 4 and 5                                                 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1998-2006 Manuel Lemos, Tomas V.V.Cox,                 |
// | Stig. S. Bakken, Lukas Smith, Frank M. Kromann                       |
// | All rights reserved.                                                 |
// +----------------------------------------------------------------------+
// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |
// | API as well as database abstraction for PHP applications.            |
// | This LICENSE is in the BSD license style.                            |
// |                                                                      |
// | Redistribution and use in source and binary forms, with or without   |
// | modification, are permitted provided that the following conditions   |
// | are met:                                                             |
// |                                                                      |
// | Redistributions of source code must retain the above copyright       |
// | notice, this list of conditions and the following disclaimer.        |
// |                                                                      |
// | Redistributions in binary form must reproduce the above copyright    |
// | notice, this list of conditions and the following disclaimer in the  |
// | documentation and/or other materials provided with the distribution. |
// |                                                                      |
// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |
// | Lukas Smith nor the names of his contributors may be used to endorse |
// | or promote products derived from this software without specific prior|
// | written permission.                                                  |
// |                                                                      |
// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |
// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |
// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |
// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |
// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |
// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |
// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|
// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |
// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |
// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|
// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |
// | POSSIBILITY OF SUCH DAMAGE.                                          |
// +----------------------------------------------------------------------+
// | Author: Lukas Smith <smith@pooteeweet.org>                           |
// +----------------------------------------------------------------------+

require_once 'MDB2/Driver/Native/Common.php';

/**
 * MDB2 MSSQL driver for the native module
 *
 * @package MDB2
 * @category Database
 * @author  Lukas Smith <smith@dybnet.de>
 */
class MDB2_Driver_Native_sqlsrv extends MDB2_Driver_Native_Common
{
}
?>

Diff truncated after the above file
program/lib/MDB2/Driver/Reverse/Common.php
program/lib/MDB2/Driver/Reverse/mssql.php
program/lib/MDB2/Driver/Reverse/mysql.php
program/lib/MDB2/Driver/Reverse/mysqli.php
program/lib/MDB2/Driver/Reverse/pgsql.php
program/lib/MDB2/Driver/Reverse/sqlite.php
program/lib/MDB2/Driver/Reverse/sqlsrv.php
program/lib/MDB2/Driver/mssql.php
program/lib/MDB2/Driver/mysql.php
program/lib/MDB2/Driver/mysqli.php
program/lib/MDB2/Driver/pgsql.php
program/lib/MDB2/Driver/sqlite.php
program/lib/MDB2/Driver/sqlsrv.php
program/lib/MDB2/Extended.php
program/lib/MDB2/Iterator.php
program/lib/MDB2/LOB.php