farleyknight-ionize 0.1.0

data/lib/ionize/translate/switch_case_statements.rb

@@ -0,0 +1,52 @@
+module Ionize
+  module Php
+    module Translate
+      module SwitchCaseStatements        
+        def handle_switch_case_statement(node)
+          condition = transform(node.third)
+          body      = transform(node[5])
+          
+          debug "Switch case condition #{condition.inspect}"
+          debug "Switch case body #{body.inspect}"
+          [:case, condition] + body
+        end
+        
+        def handle_multi_case(node)
+          debug "Multi_case #{node.inspect}"
+
+          body = transform(node.first)
+          
+          debug "Multi case body #{body.inspect}"
+          
+          result = if body.composite_node?
+                     # Example: [:case, [:true]] + [[:when, ... ]]
+                     body + [send(:one_case, node[1..-1])]
+                   else
+                     # Example: [...] + [:when, ... ]
+                     [body] + [send(:one_case, node[1..-1])]
+                   end
+          debug "Result is #{result.inspect}"
+          result
+        end
+
+        def handle_default_case(node)      
+          transform(node.first) + [transform(node[3]).to_block]
+        end
+
+        def handle_one_case(node)
+          case_body = if (result = transform(node[3])).nil?
+                        nil
+                      else
+                        result.to_block
+                      end
+          
+          [:when, [:array, transform(node.second)], case_body]
+        end
+
+        def handle_line_statement(node)
+          transform(node.first)
+        end
+      end
+    end
+  end
+end

data/lib/ionize/translate/term_statements.rb

@@ -0,0 +1,76 @@
+module Ionize
+  module Php
+    module Translate
+      module TermStatements
+        def handle_term_error_guard(node)
+          [:rescue, transform(node.second), [:resbody, nil, [:nil]]]
+        end
+        
+        def handle_term_assign(node)
+          Rewrites.new(self).handle_term_assign(node)
+        end
+
+        def handle_term_array_append(node)
+
+        end
+
+        def handle_term_array_assign(node)
+          term, lb, attr, rb, eq, expr = *node
+          [:attrasgn, transform(term), :[]=, [:array, transform(attr), transform(expr)]]
+        end
+
+        def handle_term_and_expr(node)
+          term, op, expr = *node
+          [:and, transform(term), transform(expr)]
+        end
+
+        def handle_term_and_expr_with_and(node)
+          term, op, expr = *node
+          [:and, transform(term), transform(expr)]
+        end
+
+        def handle_term_op_expr(node)
+          term, op, expr = *node
+          [:call, transform(term), transform(op), [:array, transform(expr)]]
+        end
+
+        def handle_term_or_expr(node)
+          term, op, expr = *node
+          [:or, transform(term), transform(expr)]
+        end
+
+        def handle_term_or_expr_with_or(node)
+          term, op, expr = *node
+          [:or, transform(term), transform(expr)]
+        end
+
+        def handle_term_not_equals_expr(node)
+          term, op, expr = *node
+          [:not, [:call, transform(term), :==, [:array, transform(expr)]]]
+        end
+        
+        def handle_term_hashs_to_expr(node)
+          [:hash, transform(node.first), transform(node.third)]
+        end
+
+        def handle_reference_term(node)
+          # For now, I say screw references..
+          transform(node.rest)
+          # TODO: But we might change this in the future.. Who knows.
+        end
+
+        { "plus"          => :+,
+          "minus"         => :-,
+          "less_than"     => :<,
+          "greater_than"  => :>,
+          "concat"        => :+,
+        }.each do |type, operator|
+          define_method "handle_term_#{type}_expr" do |node|
+            term, op, expr = *node
+            [:call, transform(term), operator, [:array, transform(expr)]]
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ionize/translate/translator.rb

@@ -0,0 +1,52 @@
+
+module Ionize
+  module Php
+    module Translate
+      class Translator
+        attr_accessor :parent
+
+        def initialize(parent)
+          @parent = parent
+        end
+
+        def transform(ast)
+          if ast.is_a? Array 
+            if ast.length == 1
+              transform(ast.first)
+            else
+              ast.map {|node| transform(node) }.compact
+            end
+          elsif ast.is_a? Hash and ast.length == 1
+            debug "Ast is hash #{ast.inspect}"
+            first, second = *(ast.to_a).first
+            send(first, second)
+          end          
+        end
+
+        def send(method, arg)
+          if methods.include? "handle_#{method}"
+            __send__("handle_#{method}", arg)
+          else
+            raise "Couldn't find handler for #{method.inspect} in class #{self.class.name} for argument #{arg.inspect}"
+          end
+        end
+
+        def handle_num(node)
+          [:lit, node.to_i]
+        end
+
+        def self.handle_node(*names, &block)
+          names.each do |name|
+            define_method("handle_#{name}", &block)
+          end
+        end
+
+        SimpleTransforms = ["single_string", "double_string", "fun_call", "a_string", "positive_number", "number"]
+
+        handle_node *SimpleTransforms do |node|
+          transform(node)
+        end
+      end
+    end
+  end
+end

data/lib/ionize/version.rb

@@ -0,0 +1,9 @@
+module Ionize #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 0
+    MINOR = 7
+    TINY  = 0
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/spec/fixtures/array_lookup.php

@@ -0,0 +1,10 @@
+
+
+// Keep in mind that the array lookup node has to come befor
+// the variable node.. Otherwise it will not consider the brackets
+// and then have a parse error
+
+$_GET[1];
+
+
+$_GET['content'];

data/spec/fixtures/boolean_operators.php

@@ -0,0 +1,5 @@
+
+$something = "value";
+
+if ((($something == $something) && !($something == $something)) || ($something == $something))
+     print "wtf..?";

data/spec/fixtures/boolean_operators.rb

@@ -0,0 +1,6 @@
+
+something = "value"
+
+if ((something == something) and (not (something == something))) or (something == something)
+  print "wtf..?"
+end

data/spec/fixtures/class_def.php

@@ -0,0 +1,34 @@
+
+class ResultSet {
+	var $result;
+	var $total_rows;
+	var $fetched_rows;
+
+	function set_result( $res ) {
+		$this->result = $res;
+	}
+
+	function get_result() {
+		return $this->result;
+	}
+
+	function set_total_rows( $rows ) {
+		$this->total_rows = $rows;
+	}
+
+	function get_total_rows() {
+		return $this->total_rows;
+	}
+
+	function set_fetched_rows( $rows ) {
+		$this->fetched_rows = $rows;
+	}
+
+	function get_fetched_rows() {
+		return $this->fetched_rows;
+	}
+
+	function increment_fetched_rows() {
+		$this->fetched_rows = $this->fetched_rows + 1;
+	}
+}

data/spec/fixtures/class_def.rb

@@ -0,0 +1,34 @@
+
+class ResultSet
+	attr_accessor :result
+	attr_accessor :total_rows
+	attr_accessor :fetched_rows
+
+	def set_result(res) 
+		self.result = res
+  end
+
+	def get_result 
+		return self.result
+	end
+
+	def set_total_rows(rows) 
+		self.total_rows = rows
+	end
+
+	def get_total_rows 
+		return self.total_rows
+	end
+
+	def set_fetched_rows(rows) 
+		self.fetched_rows = rows
+	end
+
+	def get_fetched_rows 
+		return self.fetched_rows
+	end
+
+	def increment_fetched_rows 
+		self.fetched_rows = self.fetched_rows + 1
+	end
+end

data/spec/fixtures/dangling_else.php

@@ -0,0 +1,8 @@
+
+
+$something = "value";
+if ($something == "value")
+  if ($something == "value")
+    print "value";
+  else
+    print "not value";

data/spec/fixtures/dangling_else.rb

@@ -0,0 +1,12 @@
+
+
+
+something = "value"
+
+if something == "value"
+  if something == "value"
+    print "value"
+  else
+    print "not value"
+  end
+end

data/spec/fixtures/drupal_1.php

@@ -0,0 +1,663 @@
+// $Id: update.php,v 1.252 2008/02/03 18:41:16 goba Exp $
+
+/**
+ * @file
+ * Administrative page for handling updates from one Drupal version to another.
+ *
+ * Point your browser to "http://www.example.com/update.php" and follow the
+ * instructions.
+ *
+ * If you are not logged in as administrator, you will need to modify the access
+ * check statement inside your settings.php file. After finishing the upgrade,
+ * be sure to open settings.php again, and change it back to its original state!
+ */
+
+/**
+ * Global flag to identify update.php run, and so avoid various unwanted
+ * operations, such as hook_init() and hook_exit() invokes, css/js preprocessing
+ * and translation, and solve some theming issues. This flag is checked on several
+ * places in Drupal code (not just update.php).
+ */
+define('MAINTENANCE_MODE', 'update');
+
+/**
+ * Add a column to a database using syntax appropriate for PostgreSQL.
+ * Save result of SQL commands in $ret array.
+ *
+ * Note: when you add a column with NOT NULL and you are not sure if there are
+ * already rows in the table, you MUST also add DEFAULT. Otherwise PostgreSQL
+ * won't work when the table is not empty, and db_add_column() will fail.
+ * To have an empty string as the default, you must use: 'default' => "''"
+ * in the $attributes array. If NOT NULL and DEFAULT are set the PostgreSQL
+ * version will set values of the added column in old rows to the
+ * DEFAULT value.
+ *
+ * @param $ret
+ *   Array to which results will be added.
+ * @param $table
+ *   Name of the table, without {}
+ * @param $column
+ *   Name of the column
+ * @param $type
+ *   Type of column
+ * @param $attributes
+ *   Additional optional attributes. Recognized attributes:
+ *     not null => TRUE|FALSE
+ *     default  => NULL|FALSE|value (the value must be enclosed in '' marks)
+ * @return
+ *   nothing, but modifies $ret parameter.
+ */
+function db_add_column(&$ret, $table, $column, $type, $attributes = array()) {
+  if (array_key_exists('not null', $attributes) and $attributes['not null']) {
+    $not_null = 'NOT NULL';
+  }
+  if (array_key_exists('default', $attributes)) {
+    if (is_null($attributes['default'])) {
+      $default_val = 'NULL';
+      $default = 'default NULL';
+    }
+    elseif ($attributes['default'] === FALSE) {
+      $default = '';
+    }
+    else {
+      $default_val = "$attributes[default]";
+      $default = "default $attributes[default]";
+    }
+  }
+
+  $ret[] = update_sql("ALTER TABLE {". $table ."} ADD $column $type");
+  if (!empty($default)) {
+    $ret[] = update_sql("ALTER TABLE {". $table ."} ALTER $column SET $default");
+  }
+  if (!empty($not_null)) {
+    if (!empty($default)) {
+      $ret[] = update_sql("UPDATE {". $table ."} SET $column = $default_val");
+    }
+    $ret[] = update_sql("ALTER TABLE {". $table ."} ALTER $column SET NOT NULL");
+  }
+}
+
+/**
+ * Change a column definition using syntax appropriate for PostgreSQL.
+ * Save result of SQL commands in $ret array.
+ *
+ * Remember that changing a column definition involves adding a new column
+ * and dropping an old one. This means that any indices, primary keys and
+ * sequences from serial-type columns are dropped and might need to be
+ * recreated.
+ *
+ * @param $ret
+ *   Array to which results will be added.
+ * @param $table
+ *   Name of the table, without {}
+ * @param $column
+ *   Name of the column to change
+ * @param $column_new
+ *   New name for the column (set to the same as $column if you don't want to change the name)
+ * @param $type
+ *   Type of column
+ * @param $attributes
+ *   Additional optional attributes. Recognized attributes:
+ *     not null => TRUE|FALSE
+ *     default  => NULL|FALSE|value (with or without '', it won't be added)
+ * @return
+ *   nothing, but modifies $ret parameter.
+ */
+function db_change_column(&$ret, $table, $column, $column_new, $type, $attributes = array()) {
+  if (array_key_exists('not null', $attributes) and $attributes['not null']) {
+    $not_null = 'NOT NULL';
+  }
+  if (array_key_exists('default', $attributes)) {
+    if (is_null($attributes['default'])) {
+      $default_val = 'NULL';
+      $default = 'default NULL';
+    }
+    elseif ($attributes['default'] === FALSE) {
+      $default = '';
+    }
+    else {
+      $default_val = "$attributes[default]";
+      $default = "default $attributes[default]";
+    }
+  }
+
+  $ret[] = update_sql("ALTER TABLE {". $table ."} RENAME $column TO ". $column ."_old");
+  $ret[] = update_sql("ALTER TABLE {". $table ."} ADD $column_new $type");
+  $ret[] = update_sql("UPDATE {". $table ."} SET $column_new = ". $column ."_old");
+  if ($default) { $ret[] = update_sql("ALTER TABLE {". $table ."} ALTER $column_new SET $default"); }
+  if ($not_null) { $ret[] = update_sql("ALTER TABLE {". $table ."} ALTER $column_new SET NOT NULL"); }
+  $ret[] = update_sql("ALTER TABLE {". $table ."} DROP ". $column ."_old");
+}
+
+/**
+ * Perform one update and store the results which will later be displayed on
+ * the finished page.
+ *
+ * An update function can force the current and all later updates for this
+ * module to abort by returning a $ret array with an element like:
+ * $ret['#abort'] = array('success' => FALSE, 'query' => 'What went wrong');
+ * The schema version will not be updated in this case, and all the
+ * aborted updates will continue to appear on update.php as updates that
+ * have not yet been run.
+ *
+ * @param $module
+ *   The module whose update will be run.
+ * @param $number
+ *   The update number to run.
+ * @param $context
+ *   The batch context array
+ */
+function update_do_one($module, $number, &$context) {
+  // If updates for this module have been aborted
+  // in a previous step, go no further.
+  if (!empty($context['results'][$module]['#abort'])) {
+    return;
+  }
+
+  $function = $module .'_update_'. $number;
+  if (function_exists($function)) {
+    $ret = $function($context['sandbox']);
+  }
+
+  if (isset($ret['#finished'])) {
+    $context['finished'] = $ret['#finished'];
+    unset($ret['#finished']);
+  }
+
+  if (!isset($context['results'][$module])) {
+    $context['results'][$module] = array();
+  }
+  if (!isset($context['results'][$module][$number])) {
+    $context['results'][$module][$number] = array();
+  }
+  $context['results'][$module][$number] = array_merge($context['results'][$module][$number], $ret);
+
+  if (!empty($ret['#abort'])) {
+    $context['results'][$module]['#abort'] = TRUE;
+  }
+  // Record the schema update if it was completed successfully.
+  if ($context['finished'] == 1 && empty($context['results'][$module]['#abort'])) {
+    drupal_set_installed_schema_version($module, $number);
+  }
+
+  $context['message'] = 'Updating '. check_plain($module) .' module';
+}
+
+function update_selection_page() {
+  $output = '<p>The version of Drupal you are updating from has been automatically detected. You can select a different version, but you should not need to.</p>';
+  $output .= '<p>Click Update to start the update process.</p>';
+
+  drupal_set_title('Drupal database update');
+  $output .= drupal_get_form('update_script_selection_form');
+
+  update_task_list('select');
+
+  return $output;
+}
+
+function update_script_selection_form() {
+  $form = array();
+  $form['start'] = array(
+    '#tree' => TRUE,
+    '#type' => 'fieldset',
+    '#title' => 'Select versions',
+    '#collapsible' => TRUE,
+    '#collapsed' => TRUE,
+  );
+
+  // Ensure system.module's updates appear first
+  $form['start']['system'] = array();
+
+  $modules = drupal_get_installed_schema_version(NULL, FALSE, TRUE);
+  foreach ($modules as $module => $schema_version) {
+    $updates = drupal_get_schema_versions($module);
+    // Skip incompatible module updates completely, otherwise test schema versions.
+    if (!update_check_incompatibility($module) && $updates !== FALSE && $schema_version >= 0) {
+      // module_invoke returns NULL for nonexisting hooks, so if no updates
+      // are removed, it will == 0.
+      $last_removed = module_invoke($module, 'update_last_removed');
+      if ($schema_version < $last_removed) {
+        $form['start'][$module] = array(
+          '#value'  => '<em>'. $module .'</em> module can not be updated. Its schema version is '. $schema_version .'. Updates up to and including '. $last_removed .' have been removed in this release. In order to update <em>'. $module .'</em> module, you will first <a href="http://drupal.org/upgrade">need to upgrade</a> to the last version in which these updates were available.',
+          '#prefix' => '<div class="warning">',
+          '#suffix' => '</div>',
+        );
+        $form['start']['#collapsed'] = FALSE;
+        continue;
+      }
+      $updates = drupal_map_assoc($updates);
+      $updates[] = 'No updates available';
+      $default = $schema_version;
+      foreach (array_keys($updates) as $update) {
+        if ($update > $schema_version) {
+          $default = $update;
+          break;
+        }
+      }
+      $form['start'][$module] = array(
+        '#type' => 'select',
+        '#title' => $module .' module',
+        '#default_value' => $default,
+        '#options' => $updates,
+      );
+    }
+  }
+
+  $form['has_js'] = array(
+    '#type' => 'hidden',
+    '#default_value' => FALSE,
+    '#attributes' => array('id' => 'edit-has_js'),
+  );
+  $form['submit'] = array(
+    '#type' => 'submit',
+    '#value' => 'Update',
+  );
+  return $form;
+}
+
+function update_batch() {
+  global $base_url;
+
+  $operations = array();
+  // Set the installed version so updates start at the correct place.
+  foreach ($_POST['start'] as $module => $version) {
+    drupal_set_installed_schema_version($module, $version - 1);
+    $updates = drupal_get_schema_versions($module);
+    $max_version = max($updates);
+    if ($version <= $max_version) {
+      foreach ($updates as $update) {
+        if ($update >= $version) {
+          $operations[] = array('update_do_one', array($module, $update));
+        }
+      }
+    }
+  }
+  $batch = array(
+    'operations' => $operations,
+    'title' => 'Updating',
+    'init_message' => 'Starting updates',
+    'error_message' => 'An unrecoverable error has occurred. You can find the error message below. It is advised to copy it to the clipboard for reference.',
+    'finished' => 'update_finished',
+  );
+  batch_set($batch);
+  batch_process($base_url .'/update.php?op=results', $base_url .'/update.php');
+}
+
+function update_finished($success, $results, $operations) {
+  // clear the caches in case the data has been updated.
+  drupal_flush_all_caches();
+
+  $_SESSION['update_results'] = $results;
+  $_SESSION['update_success'] = $success;
+  $_SESSION['updates_remaining'] = $operations;
+}
+
+function update_results_page() {
+  drupal_set_title('Drupal database update');
+  // NOTE: we can't use l() here because the URL would point to 'update.php?q=admin'.
+  $links[] = '<a href="'. base_path() .'">Main page</a>';
+  $links[] = '<a href="'. base_path() .'?q=admin">Administration pages</a>';
+
+  update_task_list();
+  // Report end result
+  if (module_exists('dblog')) {
+    $log_message = ' All errors have been <a href="'. base_path() .'?q=admin/reports/dblog">logged</a>.';
+  }
+  else {
+    $log_message = ' All errors have been logged.';
+  }
+
+  if ($_SESSION['update_success']) {
+    $output = '<p>Updates were attempted. If you see no failures below, you may proceed happily to the <a href="'. base_path() .'?q=admin">administration pages</a>. Otherwise, you may need to update your database manually.'. $log_message .'</p>';
+  }
+  else {
+    list($module, $version) = array_pop(reset($_SESSION['updates_remaining']));
+    $output = '<p class="error">The update process was aborted prematurely while running <strong>update #'. $version .' in '. $module .'.module</strong>.'. $log_message;
+    if (module_exists('dblog')) {
+      $output .= ' You may need to check the <code>watchdog</code> database table manually.';
+    }
+    $output .= '</p>';
+  }
+
+  if (!empty($GLOBALS['update_free_access'])) {
+    $output .= "<p><strong>Reminder: don't forget to set the <code>\$update_free_access</code> value in your <code>settings.php</code> file back to <code>FALSE</code>.</strong></p>";
+  }
+
+  $output .= theme('item_list', $links);
+
+  // Output a list of queries executed
+  if (!empty($_SESSION['update_results'])) {
+    $output .= '<div id="update-results">';
+    $output .= '<h2>The following queries were executed</h2>';
+    foreach ($_SESSION['update_results'] as $module => $updates) {
+      $output .= '<h3>'. $module .' module</h3>';
+      foreach ($updates as $number => $queries) {
+        if ($number != '#abort') {
+          $output .= '<h4>Update #'. $number .'</h4>';
+          $output .= '<ul>';
+          foreach ($queries as $query) {
+            if ($query['success']) {
+              $output .= '<li class="success">'. $query['query'] .'</li>';
+            }
+            else {
+              $output .= '<li class="failure"><strong>Failed:</strong> '. $query['query'] .'</li>';
+            }
+          }
+          if (!count($queries)) {
+            $output .= '<li class="none">No queries</li>';
+          }
+        }
+        $output .= '</ul>';
+      }
+    }
+    $output .= '</div>';
+  }
+  unset($_SESSION['update_results']);
+  unset($_SESSION['update_success']);
+
+  return $output;
+}
+
+function update_info_page() {
+  // Change query-strings on css/js files to enforce reload for all users.
+  _drupal_flush_css_js();
+  // Flush the cache of all data for the update status module.
+  if (db_table_exists('cache_update')) {
+    cache_clear_all('*', 'cache_update', TRUE);
+  }
+
+  update_task_list('info');
+  drupal_set_title('Drupal database update');
+  $output = '<p>Use this utility to update your database whenever a new release of Drupal or a module is installed.</p><p>For more detailed information, see the <a href="http://drupal.org/node/258">Installation and upgrading handbook</a>. If you are unsure what these terms mean you should probably contact your hosting provider.</p>';
+  $output .= "<ol>\n";
+  $output .= "<li><strong>Back up your database</strong>. This process will change your database values and in case of emergency you may need to revert to a backup.</li>\n";
+  $output .= "<li><strong>Back up your code</strong>. Hint: when backing up module code, do not leave that backup in the 'modules' or 'sites/*/modules' directories as this may confuse Drupal's auto-discovery mechanism.</li>\n";
+  $output .= '<li>Put your site into <a href="'. base_path() .'?q=admin/settings/site-maintenance">maintenance mode</a>.</li>'."\n";
+  $output .= "<li>Install your new files in the appropriate location, as described in the handbook.</li>\n";
+  $output .= "</ol>\n";
+  $output .= "<p>When you have performed the steps above, you may proceed.</p>\n";
+  $output .= '<form method="post" action="update.php?op=selection"><input type="submit" value="Continue" /></form>';
+  $output .= "\n";
+  return $output;
+}
+
+// Refactored the original to use several one-line strings instead of
+// one huge-ass string.. Our parser cant handle big string yet :(
+function update_access_denied_page() {
+  drupal_set_title('Access denied');
+	$output = '<p>Access denied. You are not authorized to access this page. Please log in as the admin user (the first user you created). If you cannot log in, you will have to edit <code>settings.php</code> to bypass this access check. To do this:</p>';
+	$output .= '<ol>';
+	$output .= '<li>With a text editor find the settings.php file on your system. From the main Drupal directory that you installed all the files into, go to <code>sites/your_site_name</code> if such directory exists, or else to <code>sites/default</code> which applies otherwise.</li>';
+	$output .= '<li>There is a line inside your settings.php file that says <code>$update_free_access = FALSE;</code>. Change it to <code>$update_free_access = TRUE;</code>.</li>';
+	$output .= '<li>As soon as the update.php script is done, you must change the settings.php file back to its original form with <code>$update_free_access = FALSE;</code>.</li>';
+	$output .= '<li>To avoid having this problem in future, remember to log in to your website as the admin user (the user you first created) before you backup your database at the beginning of the update process.</li>';
+	$output .= '</ol>';
+  return $output;
+}
+
+/**
+ * Create the batch table.
+ *
+ * This is part of the Drupal 5.x to 6.x migration.
+ */
+function update_create_batch_table() {
+
+  // If batch table exists, update is not necessary
+  if (db_table_exists('batch')) {
+    return;
+  }
+
+  $schema['batch'] = array(
+    'fields' => array(
+      'bid'       => array('type' => 'serial', 'unsigned' => TRUE, 'not null' => TRUE),
+      'token'     => array('type' => 'varchar', 'length' => 64, 'not null' => TRUE),
+      'timestamp' => array('type' => 'int', 'not null' => TRUE),
+      'batch'     => array('type' => 'text', 'not null' => FALSE, 'size' => 'big')
+    ),
+    'primary key' => array('bid'),
+    'indexes' => array('token' => array('token')),
+  );
+
+  $ret = array();
+  db_create_table($ret, 'batch', $schema['batch']);
+  return $ret;
+}
+
+/**
+ * Disable anything in the {system} table that is not compatible with the
+ * current version of Drupal core.
+ */
+function update_fix_compatibility() {
+  $ret = array();
+  $incompatible = array();
+  $query = db_query("SELECT name, type, status FROM {system} WHERE status = 1 AND type IN ('module','theme')");
+  while ($result = db_fetch_object($query)) {
+    if (update_check_incompatibility($result->name, $result->type)) {
+      $incompatible[] = $result->name;
+    }
+  }
+  if (!empty($incompatible)) {
+    $ret[] = update_sql("UPDATE {system} SET status = 0 WHERE name IN ('". implode("','", $incompatible) ."')");
+  }
+  return $ret;
+}
+
+/**
+ * Helper function to test compatibility of a module or theme.
+ */
+function update_check_incompatibility($name, $type = 'module') {
+  static $themes, $modules;
+
+  // Store values of expensive functions for future use.
+  if (empty($themes) || empty($modules)) {
+    $themes = system_theme_data();
+    $modules = module_rebuild_cache();
+  }
+
+  if ($type == 'module' && isset($modules[$name])) {
+    $file = $modules[$name];
+  }
+  else if ($type == 'theme' && isset($themes[$name])) {
+    $file = $themes[$name];
+  }
+  if (!isset($file)
+      || !isset($file->info['core'])
+      || $file->info['core'] != DRUPAL_CORE_COMPATIBILITY
+      || version_compare(phpversion(), $file->info['php']) < 0) {
+    return TRUE;
+  }
+  return FALSE;
+}
+
+/**
+ * Perform Drupal 5.x to 6.x updates that are required for update.php
+ * to function properly.
+ *
+ * This function runs when update.php is run the first time for 6.x,
+ * even before updates are selected or performed.  It is important
+ * that if updates are not ultimately performed that no changes are
+ * made which make it impossible to continue using the prior version.
+ * Just adding columns is safe.  However, renaming the
+ * system.description column to owner is not.  Therefore, we add the
+ * system.owner column and leave it to system_update_6008() to copy
+ * the data from description and remove description. The same for
+ * renaming locales_target.locale to locales_target.language, which
+ * will be finished by locale_update_6002().
+ */
+function update_fix_d6_requirements() {
+  $ret = array();
+
+  if (drupal_get_installed_schema_version('system') < 6000 && !variable_get('update_d6_requirements', FALSE)) {
+    $spec = array('type' => 'int', 'size' => 'small', 'default' => 0, 'not null' => TRUE);
+    db_add_field($ret, 'cache', 'serialized', $spec);
+    db_add_field($ret, 'cache_filter', 'serialized', $spec);
+    db_add_field($ret, 'cache_page', 'serialized', $spec);
+    db_add_field($ret, 'cache_menu', 'serialized', $spec);
+
+    db_add_field($ret, 'system', 'info', array('type' => 'text'));
+    db_add_field($ret, 'system', 'owner', array('type' => 'varchar', 'length' => 255, 'not null' => TRUE, 'default' => ''));
+    if (db_table_exists('locales_target')) {
+      db_add_field($ret, 'locales_target', 'language', array('type' => 'varchar', 'length' => 12, 'not null' => TRUE, 'default' => ''));
+    }
+    if (db_table_exists('locales_source')) {
+      db_add_field($ret, 'locales_source', 'textgroup', array('type' => 'varchar', 'length' => 255, 'not null' => TRUE, 'default' => 'default'));
+      db_add_field($ret, 'locales_source', 'version', array('type' => 'varchar', 'length' => 20, 'not null' => TRUE, 'default' => 'none'));
+    }
+    variable_set('update_d6_requirements', TRUE);
+
+    // Create the cache_block table. See system_update_6027() for more details.
+    $schema['cache_block'] = array(
+      'fields' => array(
+        'cid'        => array('type' => 'varchar', 'length' => 255, 'not null' => TRUE, 'default' => ''),
+        'data'       => array('type' => 'blob', 'not null' => FALSE, 'size' => 'big'),
+        'expire'     => array('type' => 'int', 'not null' => TRUE, 'default' => 0),
+        'created'    => array('type' => 'int', 'not null' => TRUE, 'default' => 0),
+        'headers'    => array('type' => 'text', 'not null' => FALSE),
+        'serialized' => array('type' => 'int', 'size' => 'small', 'not null' => TRUE, 'default' => 0)
+      ),
+      'indexes' => array('expire' => array('expire')),
+      'primary key' => array('cid'),
+    );
+    db_create_table($ret, 'cache_block', $schema['cache_block']);
+  }
+
+  return $ret;
+}
+
+/**
+ * Add the update task list to the current page.
+ */
+function update_task_list($active = NULL) {
+  // Default list of tasks.
+  $tasks = array(
+    'info' => 'Overview',
+    'select' => 'Select updates',
+    'run' => 'Run updates',
+    'finished' => 'Review log',
+  );
+
+  drupal_set_content('left', theme('task_list', $tasks, $active));
+}
+
+/**
+ * Check update requirements and report any errors.
+ */
+function update_check_requirements() {
+  // Check the system module requirements only.
+  $requirements = module_invoke('system', 'requirements', 'update');
+  $severity = drupal_requirements_severity($requirements);
+
+  // If there are issues, report them.
+  if ($severity != REQUIREMENT_OK) {
+    foreach ($requirements as $requirement) {
+      if (isset($requirement['severity']) && $requirement['severity'] != REQUIREMENT_OK) {
+        $message = isset($requirement['description']) ? $requirement['description'] : '';
+        if (isset($requirement['value']) && $requirement['value']) {
+          $message .= ' (Currently using '. $requirement['title'] .' '. $requirement['value'] .')';
+        }
+        drupal_set_message($message, 'warning');
+      }
+    }
+  }
+}
+
+// Some unavoidable errors happen because the database is not yet up-to-date.
+// Our custom error handler is not yet installed, so we just suppress them.
+ini_set('display_errors', FALSE);
+
+require_once './includes/bootstrap.inc';
+
+// We only load DRUPAL_BOOTSTRAP_CONFIGURATION for the update requirements
+// check to avoid reaching the PHP memory limit.
+$op = isset($_REQUEST['op']) ? $_REQUEST['op'] : '';
+if (empty($op)) {
+  // Minimum load of components.
+  drupal_bootstrap(DRUPAL_BOOTSTRAP_CONFIGURATION);
+
+  require_once './includes/install.inc';
+  require_once './includes/file.inc';
+  require_once './modules/system/system.install';
+
+  // Load module basics.
+  include_once './includes/module.inc';
+  $module_list['system']['filename'] = 'modules/system/system.module';
+  $module_list['filter']['filename'] = 'modules/filter/filter.module';
+  module_list(TRUE, FALSE, FALSE, $module_list);
+  drupal_load('module', 'system');
+  drupal_load('module', 'filter');
+
+  // Set up $language, since the installer components require it.
+  drupal_init_language();
+
+  // Set up theme system for the maintenance page.
+  drupal_maintenance_theme();
+
+  // Check the update requirements for Drupal.
+  update_check_requirements();
+
+  // Display the warning messages (if any) in a dedicated maintenance page,
+  // or redirect to the update information page if no message.
+  $messages = drupal_set_message();
+  if (!empty($messages['warning'])) {
+    drupal_maintenance_theme();
+    print theme('update_page', '<form method="post" action="update.php?op=info"><input type="submit" value="Continue" /></form>', FALSE);
+    exit;
+  }
+  install_goto('update.php?op=info');
+}
+
+drupal_bootstrap(DRUPAL_BOOTSTRAP_FULL);
+drupal_maintenance_theme();
+
+// This must happen *after* drupal_bootstrap(), since it calls
+// variable_(get|set), which only works after a full bootstrap.
+update_create_batch_table();
+
+// Turn error reporting back on. From now on, only fatal errors (which are
+// not passed through the error handler) will cause a message to be printed.
+ini_set('display_errors', TRUE);
+
+// Access check:
+if (!empty($update_free_access) || $user->uid == 1) {
+
+  include_once './includes/install.inc';
+  include_once './includes/batch.inc';
+  drupal_load_updates();
+
+  update_fix_d6_requirements();
+  update_fix_compatibility();
+
+  $op = isset($_REQUEST['op']) ? $_REQUEST['op'] : '';
+  switch ($op) {
+    // update.php ops
+    case 'info':
+      $output = update_info_page();
+      break;
+
+    case 'selection':
+      $output = update_selection_page();
+      break;
+
+    case 'Update':
+      update_batch();
+      break;
+
+    case 'results':
+      $output = update_results_page();
+      break;
+
+    // Regular batch ops : defer to batch processing API
+    default:
+      update_task_list('run');
+      $output = _batch_page();
+      break;
+  }
+}
+else {
+  $output = update_access_denied_page();
+}
+if (isset($output) && $output) {
+  // We defer the display of messages until all updates are done.
+  $progress_page = ($batch = batch_get()) && isset($batch['running']);
+  print theme('update_page', $output, !$progress_page);
+}