farleyknight-ionize 0.1.0

data/spec/fixtures/postop.php

@@ -0,0 +1,3 @@
+
+
+$i++;

data/spec/fixtures/preop.php

@@ -0,0 +1,7 @@
+
+
+// ! is the boolean preop
+// ++ and -- are the numeric preops
+
+!empty($_GET['locale']);
+

data/spec/fixtures/simple_fun_def.php

@@ -0,0 +1,4 @@
+
+function db_add_column(&$ret, $table, $column, $type, $attributes = array()) { 
+  print "something";
+}

data/spec/fixtures/switch_case.php

@@ -0,0 +1,13 @@
+
+$something = "none";
+switch($something) {
+case "one":
+  return "one";
+  break;
+case "two":
+  return "two";
+  break;
+default:
+  return "none";
+  break;
+}

data/spec/fixtures/switch_case.rb

@@ -0,0 +1,14 @@
+
+
+something = "none"
+case something
+when "one"
+  return "one"
+  break
+when "two"
+  return "two"
+  break
+else
+  return "none"
+  break
+end

data/spec/fixtures/switch_case2.php

@@ -0,0 +1,25 @@
+
+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;
+}

data/spec/fixtures/switch_case3.php

@@ -0,0 +1,40 @@
+
+$mode = 'reply';
+$res = "res";
+$nr = "nr";
+$lang = "lang";
+
+switch( $mode ) {
+case 'reply':
+case 'quote':
+	$is_auth_type = 'auth_reply';
+	break;
+case 'editpost':
+	$is_auth_type = 'auth_edit';
+	break;
+case 'delete':
+case 'poll_delete':
+	$is_auth_type = 'auth_delete';
+	break;
+case 'vote':
+	$is_auth_type = 'auth_vote';
+	break;
+case 'topicreview':
+	$is_auth_type = 'auth_read';
+	break;
+case "ODBC":
+	$row = array();
+	$result = array();
+	$result = odbc_fetch_row($res, $nr);
+	$nf = odbc_num_fields($res); /* Field numbering starts at 1 */
+	for($count=1; $count < $nf+1; $count++)	{
+		$field_name = odbc_field_name($res, $count);
+		$field_value = odbc_result($res, $field_name);
+		$row[$field_name] = $field_value;
+	}
+	return $row;
+	break;
+default:
+	message_die(GENERAL_MESSAGE, $lang['No_post_mode']);
+	break;
+}

data/spec/fixtures/switch_case3.rb

@@ -0,0 +1,42 @@
+
+mode = 'reply'
+res = "res"
+nr = "nr"
+lang = "lang"
+
+case mode
+when 'reply'
+when 'quote'
+  is_auth_type = 'auth_reply'
+  break
+when 'editpost'
+  is_auth_type = 'auth_edit'
+  break
+when 'delete'
+when 'poll_delete'
+  is_auth_type = 'auth_delete';
+  break
+when 'vote'
+  is_auth_type = 'auth_vote'
+  break
+when 'topicreview'
+  is_auth_type = 'auth_read'
+  break
+when 'ODBC'
+  row = array()
+  result = array()
+  result = odbc_fetch_row(res, nr)
+  nf = odbc_num_fields(res)
+  count = 1
+  while count < nf + 1
+    field_name = odbc_field_name(res, count)
+    field_value = odbc_result(res, field_name)
+    row[field_name] = field_value
+    count += 1
+  end
+  return row
+  break
+else
+  message_die(GENERAL_MESSAGE, lang['No_post_mode'])
+  break
+end

data/spec/fixtures/switch_case4.php

@@ -0,0 +1,56 @@
+
+/*
+ * sql_query($query, $id)
+ * executes an SQL statement, returns a result identifier
+ */
+
+function sql_query($query, $id)
+{
+	global $dbtype, $sql_debug;
+	$sql_debug = 0;
+
+	if($sql_debug) echo "SQL query: ".str_replace(",",", ",$query)."<BR>";
+
+	switch ($dbtype) {
+
+	case "MySQL":
+		$res=@mysql_query($query, $id);
+		return $res;
+    break;;
+
+	case "mSQL":
+		$res=@msql_query($query, $id);
+		return $res;
+    break;;
+
+	case "postgres":
+	case "postgres_local":
+		$res=pg_exec($id,$query);
+		$result_set = new ResultSet;
+		$result_set->set_result( $res );
+		$result_set->set_total_rows( sql_num_rows( $result_set ) );
+		$result_set->set_fetched_rows( 0 );
+		return $result_set;
+    break;;
+
+	case "ODBC":
+	case "ODBC_Adabas":
+		$res=@odbc_exec($id,$query);
+		return $res;
+    break;;
+
+	case "Interbase":
+		$res=@ibase_query($id,$query);
+		return $res;
+    break;;
+
+	case "Sybase":
+		$res=@sybase_query($query, $id);
+		return $res;
+    break;;
+
+	default:
+    break;;
+
+	}
+}

data/spec/fixtures/switch_case5.php

@@ -0,0 +1,71 @@
+
+
+function sql_fetch_array(&$res, $nr=0)
+{
+	global $dbtype;
+	switch ($dbtype)
+    {
+    case "MySQL":
+			$row = array();
+			$row = mysql_fetch_array($res);
+			return $row;
+			break;;
+
+    case "mSQL":
+			$row = array();
+			$row = msql_fetch_array($res);
+			return $row;
+			break;;
+
+    case "postgres":
+    case "postgres_local":
+			if( $res->get_total_rows() > $res->get_fetched_rows() ) {
+				$row = array();
+				$row = pg_fetch_array($res->get_result(), $res->get_fetched_rows() );
+				$res->increment_fetched_rows();
+				return $row;
+			} else {
+				return false;
+			}
+			break;;
+			
+    case "ODBC":
+			$row = array();
+			$result = array();
+			$result = odbc_fetch_row($res, $nr);
+			$nf = odbc_num_fields($res); /* Field numbering starts at 1 */
+			for($count=1; $count < $nf+1; $count++)	{
+				$field_name = odbc_field_name($res, $count);
+				$field_value = odbc_result($res, $field_name);
+				$row[$field_name] = $field_value;
+			}
+			return $row;
+			break;;
+				
+    case "ODBC_Adabas":
+			$row = array();
+			$result = array();
+			$result = odbc_fetch_row($res, $nr);
+			
+			$nf = count($result)+2; /* Field numbering starts at 1 */
+			for($count=1; $count < $nf; $count++) {
+				$field_name = odbc_field_name($res, $count);
+				$field_value = odbc_result($res, $field_name);
+				$row[$field_name] = $field_value;
+			}
+			return $row;
+			break;;
+			
+    case "Interbase":
+			$orow=ibase_fetch_object($res);
+			$row=get_object_vars($orow);
+			return $row;
+			break;;
+
+    case "Sybase":
+			$row = sybase_fetch_array($res);
+			return $row;
+			break;;
+
+    }
+}

data/spec/fixtures/switch_case_with_rescue_nil.php

@@ -0,0 +1,43 @@
+
+
+function sql_logout($id)
+{
+  global $dbtype;
+  switch ($dbtype) {
+
+  case "MySQL":
+    $dbi=@mysql_close($id);
+    return $dbi;
+    break;;
+
+  case "mSQL":
+    $dbi=@msql_close($id);
+    return $dbi;
+    break;;
+
+  case "postgres":
+  case "postgres_local":
+    $dbi=@pg_close($id);
+    return $dbi;
+    break;;
+  
+  case "ODBC":
+  case "ODBC_Adabas":
+    $dbi=@odbc_close($id);
+    return $dbi;  
+    break;;
+
+  case "Interbase":
+    $dbi=@ibase_close($id);
+    return $dbi;
+    break;;
+
+  case "Sybase":
+    $dbi=@sybase_close($id);
+    return $dbi;
+    break;;
+
+  default:
+    break;;
+  }
+}

data/spec/fixtures/switch_case_with_rescue_nil.rb

@@ -0,0 +1,35 @@
+
+def sql_logout(id)
+  $dbtype
+
+  case $dbtype
+  when "MySQL"
+    dbi = mysql_close(id) rescue nil
+    return dbi
+    break
+  when "mSQL"
+    dbi = msql_close(id) rescue nil
+    return dbi
+    break
+  when "postgres"
+  when"postgres_local"
+		dbi = pg_close(id) rescue nil
+		return dbi
+    break  
+	when "ODBC"
+  when "ODBC_Adabas"
+		dbi = odbc_close(id) rescue nil
+		return dbi  
+    break
+	when "Interbase"
+		dbi = ibase_close(id) rescue nil
+		return dbi
+    break
+	when "Sybase"
+		dbi = sybase_close(id) rescue nil
+		return dbi
+    break
+  else
+    break
+  end
+end

data/spec/fixtures/tertiary.php

@@ -0,0 +1,3 @@
+
+
+$message = isset($requirement['description']) ? $requirement['description'] : '';

data/spec/helper.rb

@@ -0,0 +1,17 @@
+
+
+module SpecHelperMethods
+    # teh php codez
+  def php_ast(text)
+    Ionize::Php.to_sexp(text)
+  end
+  
+  # teh ruby codez
+  def ruby_ast(text)
+    ParseTree.translate(text)
+  end
+
+  def php_to_ruby_eval(text)
+    eval(Ionize::Php.to_ruby(text))
+  end
+end

data/spec/php_environment_spec.rb

@@ -0,0 +1,83 @@
+
+require 'spec'
+require 'spec/helper'
+require 'lib/ionize'
+
+describe "Transforms Php for posix regex" do
+  include Ionize::Php::Environment, SpecHelperMethods
+
+  it "rewrites ereg" do
+    php_ast(%Q{ $date = "2008-08-09"; $result = ereg("([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})", $date, $matches); }).should ==
+      ruby_ast(%Q{ date = "2008-08-09"; result, matches = date.match(/([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})/) })
+  end
+
+  it "rewrites eregi" do
+    php_ast(%Q{ $date = "2008-08-09"; $result = eregi("([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})", $date, $matches); }).should ==
+      ruby_ast(%Q{ date = "2008-08-09"; result, matches = date.match(/([0-9]{4})-([0-9]{1,2})-([0-9]{1,2})/i) })
+  end  
+end
+
+describe "Transforms Php for miscellaneous functions" do
+  include Ionize::Php::Environment, SpecHelperMethods
+
+  it "rewites var_dump" do
+    php_ast(%Q{ a = "something"; var_dump($a); }).should ==
+      ruby_ast(%Q{ a = "something"; puts a })
+  end
+
+  it "rewrites isset" do
+    php_ast(%Q{ $a = "something"; isset($a); }).should ==
+      ruby_ast(%Q{ a = "something"; a.not_nil? })
+  end
+
+  it "rewrites function_exists" do
+    php_ast(%Q{ function_exists('file_get_contents'); }).should ==
+      ruby_ast(%Q{ respond_to? 'file_get_contents' })
+  end
+end
+
+describe "Transforms Php for miscellaneous functions" do
+  include Ionize::Php::Environment, SpecHelperMethods
+
+  it "evaluates gethostbyaddr to the domain name" do
+    php_to_ruby_eval(%Q{ gethostbyaddr("127.0.0.1"); }).should == "localhost"
+    php_to_ruby_eval(%Q{ gethostbyaddr("75.127.96.35"); }).should == "li22-35.members.linode.com"
+  end
+end
+
+
+describe "Transforms Php for arrays" do
+  include Ionize::Php::Environment, SpecHelperMethods
+  
+
+  it "rewrites array_intersect" do
+    php_ast(%Q{ 
+      $array1 = array("a" => "green", "red", "blue");
+      $array2 = array("b" => "green", "yellow", "red");
+      $result = array_intersect($array1, $array2);
+}).should == ruby_ast(%Q{
+      array1  = array({"a" => "green"}, "red", "blue")
+      array2 = array({"b" => "green"}, "yellow", "red")
+      result = array1.intersect(array2)
+})
+  end
+
+  it "finds common hash values from the first array in the rest of the arrays" do
+    php_to_ruby_eval(%Q{ 
+      $array1 = array("a" => "green", "red", "blue");
+      $array2 = array("b" => "green", "yellow", "red");
+      $result = array_intersect($array1, $array2);
+      $result;
+}).should == array("a" => "green", 0 => "red")
+  end
+  
+  it "creates a 1-based array" do
+    php_to_ruby_eval(%Q{ array(1 => 'January', 'February', 'March'); }).should ==
+      array(1=>"January", 2=>"February", 3=>"March")
+  end
+
+  it "evaluates the order of arguments for array() similar to Php" do
+    php_to_ruby_eval(%Q{ array(1, 1, 1, 1,  1, 8 => 1,  4 => 1, 19, 3 => 13); }).should ==
+      array(0 => 1, 1 => 1, 2 => 1, 3 => 13, 4 => 1, 8 => 1, 9 => 19)
+  end
+end