commit 7cab779213f8c78d1a8a5661a566f318b70cd0ea
Author: Damien Tournoud <damien@tournoud.net>
Date:   Fri Oct 31 20:11:19 2008 +0100

    SQLite patch.

diff --git includes/database/sqlite/database.inc includes/database/sqlite/database.inc
new file mode 100644
index 0000000..1d33bef
--- /dev/null
+++ includes/database/sqlite/database.inc
@@ -0,0 +1,105 @@
+<?php
+// $Id$
+
+/**
+ * @file
+ * Database interface code for SQLite embedded database engine.
+ */
+
+/**
+ * @ingroup database
+ * @{
+ */
+
+class DatabaseConnection_sqlite extends DatabaseConnection {
+  public function __construct(Array $connection_options = array()) {
+    parent::__construct('sqlite:'. $connection_options['database'], '', '');
+    $this->setAttribute(PDO::ATTR_STATEMENT_CLASS, array('DatabaseStatement_sqlite', array($this)));
+    $this->sqliteCreateFunction('length', 'strlen', 1);
+    $this->sqliteCreateFunction('substring', '_sqlite_substring', 3);
+  }
+
+  public function queryRange($query, Array $args, $from, $count, Array $options) {
+    // Backward compatibility hack, temporary.
+    $query = str_replace(array('%d' , '%f' , '%b' , "'%s'"), '?', $query);
+
+    return $this->query($query . ' LIMIT ' . $from . ', ' . $count, $args, $options);
+  }
+
+  public function queryTemporary($query, Array $args, $tablename, $options = array()) {
+    $query = preg_replace('/^SELECT/i', 'CREATE TEMPORARY TABLE ' . $tablename . ' SELECT', $this->prefixTables($query));
+
+    return $this->query($query, $args, $options);
+  }
+
+  public function driver() {
+    return 'sqlite';
+  }
+
+  public function databaseType() {
+    return 'sqlite';
+  }
+
+  public function supportsTransactions() {
+    return FALSE;
+  }
+
+  public function escapeTable($table) {
+    return preg_replace('/[^A-Za-z0-9_]+/', '', $table);
+  }
+
+  public function mapConditionOperator($operator) {
+    // We don't want to override any of the defaults.
+    return NULL;
+  }
+
+  function prepareQuery($query) {
+    return parent::prepare(self::prefixTables($query));
+  }
+
+  /**
+   * @todo Remove this as soon as db_rewrite_sql() has been exterminated.
+   */
+  public function distinctField($table, $field, $query) {
+    $field_to_select = 'DISTINCT(' . $table . '.' . $field . ')';
+    // (?<!text) is a negative look-behind (no need to rewrite queries that already use DISTINCT).
+    return preg_replace('/(SELECT.*)(?:' . $table . '\.|\s)(?<!DISTINCT\()(?<!DISTINCT\(' . $table . '\.)' . $field . '(.*FROM )/AUsi', '\1 ' . $field_to_select . '\2', $query);
+  }
+}
+
+function _sqlite_substring($string, $from, $length) {
+  return substr($string, $from - 1, $length);
+}
+
+
+class DatabaseStatement_sqlite extends DatabaseStatement {
+  
+  /**
+   * Executes a prepared statement
+   *
+   * @param $args
+   *   An array of values with as many elements as there are bound parameters in the SQL statement being executed.
+   * @param $options
+   *   An array of options for this query.
+   * @return
+   *   TRUE on success, or FALSE on failure.
+   */
+  public function execute($args, $options) {
+    $return = parent::execute($args, $options);
+    $this->dbh->lastStatement = new SQLiteFakeStatement($this->dbh->lastStatement->rowCount());
+  }
+}
+
+class SQLiteFakeStatement {
+  private $count;
+  public function __construct($count) {
+    $this->count = $count;
+  }
+  public function rowCount() {
+    return $count;
+  }
+}
+
+/**
+ * @} End of "ingroup database".
+ */
diff --git includes/database/sqlite/install.inc includes/database/sqlite/install.inc
new file mode 100644
index 0000000..0eaac20
--- /dev/null
+++ includes/database/sqlite/install.inc
@@ -0,0 +1,12 @@
+<?php
+// $Id$
+
+// SQLite specific install functions
+
+class DatabaseInstaller_sqlite extends DatabaseInstaller {
+  protected $pdoDriver = 'sqlite';
+  public function name() {
+    return 'SQLite';
+  }
+}
+
diff --git includes/database/sqlite/query.inc includes/database/sqlite/query.inc
new file mode 100644
index 0000000..1c9e9a6
--- /dev/null
+++ includes/database/sqlite/query.inc
@@ -0,0 +1,72 @@
+<?php
+// $Id: query.inc,v 1.1 2008/08/21 19:36:36 dries Exp $
+
+/**
+ * @ingroup database
+ * @{
+ */
+
+class InsertQuery_sqlite extends InsertQuery {
+
+  public function execute() {
+    if (count($this->insertFields)) {
+      return parent::execute();
+    }
+    else {
+      return $this->connection->query('INSERT INTO {'. $this->table .'} DEFAULT VALUES', array(), $this->queryOptions);
+    }
+  }
+
+  public function __toString() {
+    $placeholders = array_pad(array(), count($this->insertFields), '?');
+    return 'INSERT INTO {'. $this->table .'} ('. implode(', ', $this->insertFields) .') VALUES ('. implode(', ', $placeholders) .')';
+  }
+
+}
+
+class MergeQuery_sqlite extends MergeQuery {
+
+  public function execute() {
+    if ($this->expressionFields || $this->updateFields || $this->excludeFields) {
+      return parent::execute();
+    }
+
+    $insert_fields = $this->insertFields + $this->keyFields;
+
+    $max_placeholder = 0;
+    $values = array();
+    // We assume that the order here is the same as in __toString().  If that's
+    // not the case, then we have serious problems.
+    foreach ($insert_fields as $value) {
+      $values[':db_insert_placeholder_' . $max_placeholder++] = $value;
+    }
+
+    $last_insert_id = $this->connection->query((string)$this, $values, $this->queryOptions);
+
+    return $last_insert_id;
+  }
+
+
+  public function __toString() {
+    if ($this->expressionFields || $this->updateFields || $this->excludeFields) {
+      return parent::_toString();
+    }
+
+    $insert_fields = $this->insertFields + $this->keyFields;
+
+    $query = "INSERT OR REPLACE INTO {" . $this->table . '} (' . implode(', ', array_keys($insert_fields)) . ') VALUES ';
+
+    $max_placeholder = 0;
+    $values = array();
+    // We don't need the $field, but this is a convenient way to count.
+    foreach ($insert_fields as $field) {
+      $values[] = ':db_insert_placeholder_' . $max_placeholder++;
+    }
+    $query .= '(' . implode(', ', $values) . ')';
+    return $query;
+  }
+}
+
+/**
+ * @} End of "ingroup database".
+ */
diff --git includes/database/sqlite/schema.inc includes/database/sqlite/schema.inc
new file mode 100644
index 0000000..c02c30d
--- /dev/null
+++ includes/database/sqlite/schema.inc
@@ -0,0 +1,528 @@
+<?php
+// $Id$
+
+/**
+ * @file
+ * Database schema code for SQLite databases.
+ */
+
+
+/**
+ * @ingroup schemaapi
+ * @{
+ */
+
+class DatabaseSchema_sqlite extends DatabaseSchema {
+
+  public function tableExists($table) {
+    return (bool) $this->connection->query("SELECT name FROM sqlite_master WHERE type = 'table' AND name LIKE '{" . $table . "}'", array(), array())->fetchField();
+  }
+
+  public function columnExists($table, $column) {
+    $schema = $this->introspectSchema($table);
+    return $schema['fields'][$column];
+  }
+
+  /**
+   * Generate SQL to create a new table from a Drupal schema definition.
+   *
+   * @param $name
+   *   The name of the table to create.
+   * @param $table
+   *   A Schema API table definition array.
+   * @return
+   *   An array of SQL statements to create the table.
+   */
+  public function createTableSql($name, $table) {
+    $sql = array();
+    $sql[] = "CREATE TABLE {". $name ."} (\n". $this->buildColsSql($name, $table) ."\n);\n";
+    return array_merge($sql, $this->createIndexSql($name, $table));
+  }
+
+  protected function createIndexSql($tablename, $schema) {
+    $sql = array();
+    if (!empty($schema['unique keys'])) {
+      foreach ($schema['unique keys'] as $key => $fields) {
+        $sql[] = 'CREATE UNIQUE INDEX {'. $tablename .'}_'. $key .' ON {'. $tablename .'} ('. $this->createKeySql($fields) ."); \n";
+      }
+    }
+    if (!empty($schema['indexes'])) {
+      foreach ($schema['indexes'] as $index => $fields) {
+        $sql[] = 'CREATE INDEX {'. $tablename .'}_'. $index .' ON {'. $tablename .'} ('. $this->createKeySql($fields) ."); \n";
+      }
+    }
+    return $sql;
+  }
+
+  protected function buildColsSql($tablename, $schema) {
+    $sql = "";
+
+    // Add the SQL statement for each field.
+    foreach ($schema['fields'] as $name => $field) {
+      if ($field['type'] == 'serial') {
+        if (isset($schema['primary key']) && ($key = array_search($name, $schema['primary key'])) !== false) {
+          unset($schema['primary key'][$key]);
+        }
+      }
+      $sql .= $this->createFieldSql($name, $this->processField($field)) .", \n";
+    }
+
+    // Process keys.
+    if (!empty($schema['primary key'])) {
+      $sql .= " PRIMARY KEY (". $this->createKeySql($schema['primary key']) ."), \n";
+    }
+
+    // Remove the last comma and space.
+    $sql = substr($sql, 0, -3);
+    return $sql;
+  }
+
+  protected function createKeySql($fields) {
+    $ret = array();
+    foreach ($fields as $field) {
+      if (is_array($field)) {
+        $ret[] = $field[0];
+      }
+      else {
+        $ret[] = $field;
+      }
+    }
+    return implode(', ', $ret);
+  }
+
+  /**
+   * Set database-engine specific properties for a field.
+   *
+   * @param $field
+   *   A field description array, as specified in the schema documentation.
+   */
+  protected function processField($field) {
+    if (!isset($field['size'])) {
+      $field['size'] = 'normal';
+    }
+    // Set the correct database-engine specific datatype.
+    if (!isset($field['sqlite_type'])) {
+      $map = db_type_map();
+      $field['sqlite_type'] = $map[$field['type'] .':'. $field['size']];
+    }
+
+    if ($field['type'] == 'serial') { // this should check if field is a primary key
+      $field['auto_increment'] = TRUE;
+    }
+
+    return $field;
+  }
+
+  /**
+  * Create an SQL string for a field to be used in table creation or alteration.
+  *
+  * Before passing a field out of a schema definition into this function it has
+  * to be processed by db_processField().
+  *
+  * @param $name
+  *    Name of the field.
+  * @param $spec
+  *    The field specification, as per the schema data structure format.
+  */
+  protected function createFieldSql($name, $spec) {
+    if (!empty($spec['auto_increment'])) {
+      $sql = "". $name ." INTEGER PRIMARY KEY AUTOINCREMENT";
+    }
+    else {
+      $sql = "". $name ." ". $spec['sqlite_type'];
+
+      if (isset($spec['length'])) {
+        $sql .= '('. $spec['length'] .')';
+      }
+      //TODO: does scale apply for sqlite ??
+      elseif (isset($spec['precision']) && isset($spec['scale'])) {
+        $sql .= '('. $spec['scale'] .', '. $spec['precision'] .')';
+      }
+
+      if (!empty($spec['not null'])) {
+        $sql .= ' NOT NULL';
+      }
+
+      if (isset($spec['default'])) {
+        if (is_string($spec['default'])) {
+          $spec['default'] = "'". $spec['default'] ."'";
+        }
+        $sql .= ' DEFAULT '. $spec['default'];
+      }
+
+      if (empty($spec['not null']) && !isset($spec['default'])) {
+        $sql .= ' DEFAULT NULL';
+      }
+    }
+    return $sql;
+  }
+
+  /**
+   * This maps a generic data type in combination with its data size
+   * to the engine-specific data type.
+   */
+  public function getFieldTypeMap() {
+    // Put :normal last so it gets preserved by array_flip.  This makes
+    // it much easier for modules (such as schema.module) to map
+    // database types back into schema types.
+    /*
+    a VARCHAR(10),
+    b NVARCHAR(15),
+    c TEXT,
+    d INTEGER,
+    e FLOAT,
+    f BOOLEAN,
+    g CLOB,
+    h BLOB,
+    i TIMESTAMP,
+    j NUMERIC(10,5)
+    k VARYING CHARACTER (24),
+    l NATIONAL VARYING CHARACTER(16)
+    */
+    $map = array(
+      'varchar:normal'  => 'VARCHAR',
+
+      'text:tiny'       => 'TEXT',
+      'text:small'      => 'TEXT',
+      'text:medium'     => 'TEXT',
+      'text:big'        => 'TEXT',
+      'text:normal'     => 'TEXT',
+
+      'serial:tiny'     => 'INTEGER',
+      'serial:small'    => 'INTEGER',
+      'serial:medium'   => 'INTEGER',
+      'serial:big'      => 'INTEGER',
+      'serial:normal'   => 'INTEGER',
+
+      'int:tiny'        => 'INTEGER',
+      'int:small'       => 'INTEGER',
+      'int:medium'      => 'INTEGER',
+      'int:big'         => 'INTEGER',
+      'int:normal'      => 'INTEGER',
+
+      'float:tiny'      => 'FLOAT',
+      'float:small'     => 'FLOAT',
+      'float:medium'    => 'FLOAT',
+      'float:big'       => 'FLOAT',
+      'float:normal'    => 'FLOAT',
+
+      'numeric:normal'  => 'NUMERIC',
+
+      'blob:big'        => 'BLOB',
+      'blob:normal'     => 'BLOB',
+
+      'datetime:normal' => 'TIMESTAMP',
+    );
+    return $map;
+  }
+
+  /**
+  * Rename a table.
+  *
+  * @param $ret
+  *   Array to which query results will be added.
+  * @param $table
+  *   The table to be renamed.
+  * @param $new_name
+  *   The new name for the table.
+  */
+  public function renameTable(&$ret, $table, $new_name) {
+    $ret[] = update_sql('ALTER TABLE {'. $table .'} RENAME TO {'. $new_name .'}');
+  }
+
+  /**
+   * Drop a table.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be dropped.
+   */
+  public function dropTable(&$ret, $table) {
+    $ret[] = update_sql('DROP TABLE {' . $table . '}');
+  }
+
+  /**
+   * Add a new field to a table.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   Name of the table to be altered.
+   * @param $field
+   *   Name of the field to be added.
+   * @param $spec
+   *   The field specification array, as taken from a schema definition
+   */
+  public function addField(&$ret, $table, $field, $spec, $keys_new = array()) {
+    // TODO: keys_new
+    $query = 'ALTER TABLE {'. $table .'} ADD ';
+    $query .= $this->createFieldSql($field, $this->processField($spec));
+    $ret[] = update_sql($query);
+  }
+
+  /**
+   * Recreate a table with a new schema with the old content.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   Name of the table to be altered.
+   * @param $new_schema
+   *   The new schema array for the table.
+   */
+  protected function createNewTableWithOldData(&$ret, $table, $new_schema) {
+    $i = 0;
+    do {
+      $new_table = $table . '_' . $i++;
+    } while ($this->tableExists($new_table));
+    $this->createTable($ret, $new_table, $new_schema);
+    $fields = implode(', ', array_keys($new_schema['fields']));
+    $ret[] = update_sql('INSERT INTO {'. $new_table ."} ($fields) SELECT $fields FROM {". $table . '}');
+    $old_count = db_query('SELECT COUNT(*) FROM {'. $table .'}')->fetchField;
+    $new_count = db_query('SELECT COUNT(*) FROM {'. $new_table .'}')->fetchField;
+    if ($old_count == $new_count) {
+      do {
+        $temp_table = $table . '_' . $i++;
+      } while ($this->tableExists($temp_table));
+      $this->renameTable($ret, $table, $temp_table);
+      $this->renameTable($ret, $new_table, $table);
+      $this->dropTable($ret, $temp_table);
+    }
+  }
+
+  protected function introspectSchema($table) {
+    $schema = array();
+    foreach (db_query("PRAGMA table_info('{" . $table . "}')") as $row) {
+      $schema['fields'][$row->name] = array(
+        'type' => $row->type,
+        'not null' => !empty($row->notnull),
+        'default' => trim($row->dflt_value, "'"),
+      );
+      if ($row->pk) {
+        $schema['primary key'][] = $row->name;
+      }
+    }
+    $indexes = array();
+    foreach (db_query("PRAGMA index_list('{" . $table . "}')") as $row) {
+      if (strpos($row->name, 'sqlite_autoindex_') !== 0) {
+        $indexes[] = array(
+          'schema_key' => $row->unique ? 'unique keys' : 'indexes',
+          'name' => $row->name,
+        );
+      }
+    }
+    $n = strlen($table) + 1;
+    foreach ($indexes as $index) {
+      $name = $index['name'];
+      $index_name = substr($name, $n);
+      foreach (db_query("PRAGMA index_info('$name')") as $row) {
+        $schema[$index['schema_key']][$index_name][] = $row->name;
+      }
+    }
+    return $schema;
+  }
+
+  /**
+   * Drop a field.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $field
+   *   The field to be dropped.
+   */
+  public function dropField(&$ret, $table, $field) {
+    $new_schema = $this->introspectSchema($table);
+    unset($new_schema['fields'][$field]);
+    foreach ($new_schema['indexes'] as $index => $fields) {
+      foreach ($fields as $key => $field_name) {
+        if ($field_name == $field) {
+          unset($new_schema['indexes'][$index][$key]);
+        }
+      }
+      if (empty($new_schema['indexes'][$index])) {
+        unset($new_schema['indexes'][$index]);
+      }
+    }
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Change a field definition.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   Name of the table.
+   * @param $field
+   *   Name of the field to change.
+   * @param $field_new
+   *   New name for the field (set to the same as $field if you don't want to change the name).
+   * @param $spec
+   *   The field specification for the new field.
+   * @param $keys_new
+   *   Optional keys and indexes specification to be created on the
+   *   table along with changing the field. The format is the same as a
+   *   table specification but without the 'fields' element.
+   */
+  public function changeField(&$ret, $table, $field, $field_new, $spec, $keys_new = array()) {
+    $new_schema = $this->introspectSchema($table);
+    unset($new_schema['fields'][$field]);
+    $new_schema['fields'][$field_new] = $spec;
+    if (isset($keys_new['primary keys'])) {
+      $new_schema['primary keys'] = $keys_new['primary keys'];
+      $keys_new['primary keys'];
+    }
+    foreach (array('unique keys', 'indexes') as $k) {
+      if (!empty($keys_new[$k])) {
+        $new_schema[$k] = $keys_new[$k] + $new_schema[$k];
+      }
+    }
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Add an index.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $name
+   *   The name of the index.
+   * @param $fields
+   *   An array of field names.
+   */
+  public function addIndex(&$ret, $table, $name, $fields) {
+    $schema['indexes'][$name] = $fields;
+    $ret[] = update_sql($this->createIndexSql($table, $schema));
+  }
+
+  /**
+   * Drop an index.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $name
+   *   The name of the index.
+   */
+  public function dropIndex(&$ret, $table, $name) {
+    $ret[] = update_sql('DROP INDEX ' . '{' . $table . '}_' . $name);
+  }
+
+  /**
+   * Add a unique key.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $name
+   *   The name of the key.
+   * @param $fields
+   *   An array of field names.
+   */
+  public function addUniqueKey(&$ret, $table, $name, $fields) {
+    $schema['unique keys'][$name] = $fields;
+    $ret[] = update_sql($this->createIndexSql($table, $schema));
+
+  }
+
+  /**
+   * Drop a unique key.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $name
+   *   The name of the key.
+   */
+  public function dropUniqueKey(&$ret, $table, $name) {
+    $ret[] = update_sql('DROP INDEX ' . '{' . $table . '}_' . $name);
+  }
+
+  /**
+   * Add a primary key.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $fields
+   *   Fields for the primary key.
+   */
+  public function addPrimaryKey(&$ret, $table, $fields) {
+    $new_schema = $this->introspectSchema($table);
+    $new_schema['primary key'] = $fields;
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Drop the primary key.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   */
+  public function dropPrimaryKey(&$ret, $table) {
+    $new_schema = $this->introspectSchema($table);
+    unset($new_schema['primary key']);
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Set the default value for a field.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $field
+   *   The field to be altered.
+   * @param $default
+   *   Default value to be set. NULL for 'default NULL'.
+   */
+  public function fieldSetDefault(&$ret, $table, $field, $default) {
+    $new_schema = $this->introspectSchema($table);
+    $new_schema['fields'][$field]['default'] = $default;
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Set a field to have no default value.
+   *
+   * @param $ret
+   *   Array to which query results will be added.
+   * @param $table
+   *   The table to be altered.
+   * @param $field
+   *   The field to be altered.
+   */
+  public function fieldSetNoDefault(&$ret, $table, $field) {
+    $new_schema = $this->introspectSchema($table);
+    unset($new_schema['fields'][$field]['default']);
+    $this->createNewTableWithOldData($ret, $table, $new_schema);
+  }
+
+  /**
+   * Find all tables that are like the specified base table name.
+   *
+   * @param $table_expression
+   *   An SQL expression, for example "simpletest%" (without the quotes).
+   *   BEWARE: this is not prefixed, the caller should take care of that.
+   * @return
+   *   Array, both the keys and the values are the matching tables.
+   */
+  public function findTables($table_expression) {
+    $result = db_query("SELECT name FROM sqlite_master WHERE name LIKE :table_name", array(
+      ':table_name' => $table_expression,
+    ));
+    return $result->fetchAllKeyed(0, 0);
+  }
+}
diff --git install.php install.php
index ecf60cb..38b9c32 100644
--- install.php
+++ install.php
@@ -271,7 +271,6 @@ function install_settings_form(&$form_state, $profile, $install_locale, $setting
       '#default_value' => empty($database['username']) ? '' : $database['username'],
       '#size' => 45,
       '#maxlength' => 45,
-      '#required' => TRUE,
     );
 
     // Database username
