ext/Makefile ext/extconf.rb ext/ionize_php_ext.c ext/ionize_php_ext.o ext/ionize_php_ext.so lib/ionize/environment/includes.rb lib/ionize/environment/to_bool.rb lib/ionize/tool.rb lib/ionize/treetop/ext.rb spec/fixtures/call_user_func_array.php spec/fixtures/split.php spec/fixtures/uasort.php spec/fixtures/usort.php @@ -12,4 +12,6 @@ website/db/production.sqlite3 *~ -website/access.log \ No newline at end of file +website/access.log + +etc/* \ No newline at end of file .gitignore @@ -12,13 +12,9 @@ a compatibility library to execute the converted code. Check out http://ionize.farleyknight.com for a live demo of the library, so you can see what works and what doesn't. -== SYNOPSIS: - -?? (What's this?) - == REQUIREMENTS: -Treetop, ParseTree, and Ruby2Ruby to translate +Treetop, ParseTree, and Ruby2Ruby (1.1.9) to translate Rack to run the Php compat environment README.rdoc @@ -4,75 +4,13 @@ require 'logger' module Ionize def self.root_dir require 'pathname' - Pathname.new(File.dirname(File.dirname(__FILE__))).realpath.to_s + File.dirname(File.dirname(Pathname.new(__FILE__).realpath.to_s)) end end require "#{Ionize.root_dir}/lib/ionize" - -module Ionize - module Php - class Convert - def initialize - if File.exists? "debug.log" - FileUtils.rm "debug.log" - end - @logger = Logger.new("debug.log") - end - - def run - @logger.debug "Got #{ARGV.inspect} as arguments" - ARGV.each do |file_name| - if File.exists? file_name - convert_file(file_name) - elsif File.directory? file_name - @logger.debug "#{file_name} was a directory. Converting.." - convert_directory(file_name) - files.each do |file| - convert_file(file) - end - else - # Should actually print the usage here.. - @logger.debug "Couldn't determine what to do with #{file_name}, not a php file or directory" - end - end - end - - def convert_file(php_file, ruby_file = nil) - @logger.debug "Converting #{php_file}" - ruby_file ||= php_file + ".rb" - - ruby_dir = File.dirname(ruby_file) - FileUtils.mkdir_p(ruby_dir) unless File.exists?(ruby_dir) - - begin - File.open(ruby_file, "w+") do |f| - f.write(Ionize::Php.to_ruby(File.read(php_file))) - end - rescue => error - FileUtils.rm ruby_file - @logger.debug "Couldn't convert #{php_file}" - @logger.debug "Error: #{error.inspect}" - error.backtrace.each_with_index do |line, i| - @logger.debug "#{i}: #{line}" - end - end - @logger.debug "Converted file #{php_file} and stored it as #{ruby_file}" - end - - def convert_directory(php_directory, ruby_directory = nil) - ruby_directory ||= "#{php_directory}-ruby" - FileUtils.mkdir ruby_directory unless File.exists?(ruby_directory) and File.stat(ruby_directory).directory? - Dir["#{php_directory}/**/*"].select {|f| f =~ /\.php$/ }.each do |php_file| - ruby_file = php_file.gsub(php_directory, ruby_directory).gsub(".php", ".rb") - @logger.debug "Found file #{php_file}" - convert_file(php_file, ruby_file) - end - end - end - end -end +require "#{Ionize.root_dir}/lib/ionize/tool" if __FILE__ == $0 - Ionize::Php::Convert.new.run + Ionize::Php::Tool.new(ARGV.first, ARGV.rest) end bin/ionize @@ -79,9 +79,9 @@ extout = extout_prefix = target_prefix = LOCAL_LIBS = -LIBS = -ldl -lcrypt -lm -lc -SRCS = binding_new.c -OBJS = binding_new.o +LIBS = -ldl -lcrypt -lm -lc -L/usr/local/lib/ -lphp5 +SRCS = php_interp.c +OBJS = php_interp.o TARGET = php_interp DLLIB = $(TARGET).so EXTSTATIC = etc/php_interp/Makefile @@ -13,6 +13,7 @@ $INCFLAGS << " -I/usr/include/php5/main/" $INCFLAGS << " -I/usr/include/php5/Zend/" $INCFLAGS << " -I/usr/include/php5/TSRM/" +$LIBS << " -L/usr/local/lib/ -lphp5" # Do the work create_makefile(extension_name) etc/php_interp/extconf.rb @@ -1,5 +1,9 @@ +/*************************************************** + Includes +***************************************************/ +#include <stdio.h> #include <php_config.h> #include <zend_config.h> @@ -11,13 +15,296 @@ #include <php.h> #include <php_ini.h> #include <php_main.h> - +#include <sapi/embed/php_embed.h> #include <SAPI.h> -#include <TSRM.h> +#include <TSRM.h> #include "ruby.h" -static VALUE global_stuff() + +/*************************************************** + Typedefs +***************************************************/ + +typedef struct { + void *ctx; + int ref; + VALUE *output_handler; +} PhpInterp; + +ZEND_BEGIN_MODULE_GLOBALS(php_interp) +// struct perlistats ps_stats; + PhpInterp *php; +ZEND_END_MODULE_GLOBALS(php_interp) + +ZEND_DECLARE_MODULE_GLOBALS(php_interp); + +/*************************************************** + Defines +***************************************************/ + +#define INTERP_CTX_ENTER(ctx) +#define INTERP_CTX_LEAVE() + +#define PhpInterpG(v) (php_interp_globals.v) + + +PHP_FUNCTION(php_interp_test) +{ + RETURN_STRING("It works!!", 1); +} + + +/*************************************************** + Globals +***************************************************/ + +static VALUE rb_cPhpInterp; + +static int ze_started = 0; +static PhpInterp *one_true_interp = NULL; + +static function_entry php_interp_functions[] = { + PHP_FE(php_interp_test, NULL) + {NULL, NULL, NULL} +}; + +zend_module_entry php_interp_module_entry = { + STANDARD_MODULE_HEADER, + "php_interp", + php_interp_functions, + NULL, // PHP_MINIT(php_interp), + NULL, + NULL, + NULL, + NULL, // PHP_MINFO(php_interp), + NULL, + STANDARD_MODULE_PROPERTIES +}; + +static sapi_module_struct php_interp_sapi = { + "php_interp", + "Ionize::Php::Interpreter", + NULL, /* startup */ + zend_shutdown, /* shutdown */ + NULL, /* activate */ + NULL, /* deactivate */ + NULL, // sandwich_sapi_ub_write, + NULL, /* flush */ + NULL, /* get uid */ + NULL, /* getenv */ + zend_error, + NULL, // sandwich_sapi_header_handler, + NULL, // sandwich_sapi_send_headers, + NULL, /* send header */ + NULL, /* read POST */ + NULL, // sandwich_sapi_read_cookies, + NULL, // sandwich_sapi_reg_server_vars, + NULL, // sandwich_sapi_log_message, + STANDARD_SAPI_MODULE_PROPERTIES +}; + + +PhpInterp *php_interp_setup(); + + +int php_interpreter_create() +{ + zend_compiler_globals *compiler_globals; + zend_executor_globals *executor_globals; + php_core_globals *core_globals; + sapi_globals_struct *sapi_globals; + void ***tsrm_ls; + + if(ze_started) { + return 0; + } + + sapi_startup(&php_interp_sapi); + ze_started = 1; + if (FAILURE == php_module_startup(&php_interp_sapi, &php_interp_module_entry, 1)) { + fprintf(stderr, "Failed to initialize PHP\n"); + return -1; + } + + return 0; +} + + + +static void php_interp_mark() { } +static void php_interp_free() { } + +PhpInterp *php_interp_setup() +{ + PhpInterp *info; + + if(one_true_interp) + return one_true_interp; + + printf("Allocating space for intepreter\n"); + info = calloc(sizeof(*info), 1); + info->ref = 1; + + one_true_interp = info; + + printf("Beginning context for intepreter\n"); + info->ref = 1; + printf("INTERP_CTX_ENTER intepreter\n"); + INTERP_CTX_ENTER(info->ctx); + { + printf("Starting TSRMLS_FETCH();\n"); + TSRMLS_FETCH(); + + printf("Calling ini entries for intepreter\n"); + // zend_alter_ini_entry("register_argc_argv", 19, "0", 1, PHP_INI_SYSTEM, PHP_INI_STAGE_ACTIVATE); + // zend_alter_ini_entry("html_errors", 12, "0", 1, PHP_INI_SYSTEM, PHP_INI_STAGE_ACTIVATE); + // zend_alter_ini_entry("implicit_flush", 15, "1", 1, PHP_INI_SYSTEM, PHP_INI_STAGE_ACTIVATE); + // zend_alter_ini_entry("max_execution_time", 19, "0", 1, PHP_INI_SYSTEM, PHP_INI_STAGE_ACTIVATE); + + printf("Setting up global variables for intepreter\n"); + SG(headers_sent) = 1; + SG(request_info).no_headers = 1; + SG(server_context) = info; + SG(options) = SAPI_OPTION_NO_CHDIR; + // php_request_startup(TSRMLS_C); + PG(during_request_startup) = 0; + PhpInterpG(php) = info; + INTERP_CTX_LEAVE(); + } + + return info; +} + + +static VALUE php_interp_alloc(VALUE klass) +{ + if (php_interpreter_create() == -1) { + // We should raise an error here.. + // "Error creating Zend Runtime\n" + return Qnil; + } + + PhpInterp *interp; + printf("Creating intepreter\n"); + interp = php_interp_setup(); + + printf("Returning intepreter\n"); + return Data_Wrap_Struct (klass, php_interp_mark, php_interp_free, interp); +} + +int php_interp_eval_for_real_this_time(char *str, zval *retval_ptr, char *string_name TSRMLS_DC) { - return INT2FIX(0); + printf("Code is:\n"); + // rb_warn(str); + + zval pv; + zend_op_array *new_op_array; + zend_op_array *original_active_op_array = EG(active_op_array); + zend_function_state *original_function_state_ptr = EG(function_state_ptr); + zend_uchar original_handle_op_arrays; + int retval; + + printf("Checking for return value pointer\n"); + if (retval_ptr) { + pv.value.str.len = strlen(str) + sizeof(" return true;") -1; + pv.value.str.val = emalloc(pv.value.str.len + 1); + strcpy(pv.value.str.val, str); + strcat(pv.value.str.val, " return true;"); + } + + pv.type = IS_STRING; + + printf("Swapping original op array with a temp 0 value\n"); + original_handle_op_arrays = CG(handle_op_arrays); + CG(handle_op_arrays) = 0; + + printf("Compiling the string to an array\n"); + new_op_array = compile_string(&pv, string_name TSRMLS_CC); + + printf("Swapping op array back to original\n"); + CG(handle_op_arrays) = original_handle_op_arrays; + + printf("Managing the op arrays\n"); + if (new_op_array) { + printf("Setting local retval..\n"); + + zval *local_retval_ptr=NULL; + zval **original_return_value_ptr_ptr = EG(return_value_ptr_ptr); + zend_op **original_opline_ptr = EG(opline_ptr); + + printf("Executing the op array..\n"); + EG(return_value_ptr_ptr) = &local_retval_ptr; + EG(active_op_array) = new_op_array; + EG(no_extensions)=1; + zend_execute(new_op_array TSRMLS_CC); + + printf("Branches related to local_retval..\n"); + if (local_retval_ptr) { + if (retval_ptr) { + COPY_PZVAL_TO_ZVAL(*retval_ptr, local_retval_ptr); + } else { + zval_ptr_dtor(&local_retval_ptr); + } + } else { + if (retval_ptr) { + INIT_ZVAL(*retval_ptr); + } + } + + printf("Cleaning up..\n"); + + EG(no_extensions)=0; + EG(opline_ptr) = original_opline_ptr; + EG(active_op_array) = original_active_op_array; + EG(function_state_ptr) = original_function_state_ptr; + destroy_op_array(new_op_array TSRMLS_CC); + efree(new_op_array); + EG(return_value_ptr_ptr) = original_return_value_ptr_ptr; + retval = SUCCESS; + } else { + retval = FAILURE; + } + + printf("Setting return value and finishing\n"); + zval_dtor(&pv); + return retval; +} + + +VALUE php_interp_real_eval(PhpInterp *interp, char *code) +{ + char *argv[1] = {NULL}; + + printf("Embed init\n"); + php_embed_init(0, argv PTSRMLS_CC); + + printf("First try\n"); + zend_first_try { + printf("Before eval string\n"); + zend_eval_string("echo 'Hello World';", NULL, "Embedded Code" TSRMLS_CC); + printf("After eval string\n"); + } zend_catch { + /* int exit_status = EG(exit_status); */ + } zend_end_try(); + php_embed_shutdown(TSRMLS_C); + + + return Qnil; +} + +static VALUE php_interp_eval(VALUE self, VALUE code) +{ + + PhpInterp *interp; + Data_Get_Struct(self, PhpInterp, interp); + + VALUE new_str = rb_str_dup(code); + return php_interp_real_eval(interp, StringValuePtr(new_str)); +} + +void Init_php_interp() { + rb_cPhpInterp = rb_define_class("PhpInterp", rb_cObject); + rb_define_alloc_func(rb_cPhpInterp, php_interp_alloc); + rb_define_method(rb_cPhpInterp, "eval", php_interp_eval, 1); } etc/php_interp/php_interp.c etc/php_interp/php_interp.so @@ -2,18 +2,20 @@ $:.unshift(File.dirname(__FILE__)) unless $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__))) require 'rubygems' - require 'rack' -gem "ruby2ruby", "1.1.9" +gem "ParseTree", "2.2.0" require 'parse_tree' +gem "ruby2ruby", "1.1.9" +require 'ruby2ruby' + require 'ionize/ext' require 'ionize/translate' require 'ionize/environment' -require 'ionize/dhaka' require 'ionize/treetop' +require 'ionize/php_to_ruby' module Ionize def self.root_dir @@ -23,38 +25,37 @@ module Ionize module Php CharacterLimit = 50000 - def self.to_tokens(string) - const_get(parser).to_tokens(string) - end - - def self.to_ast(string) - const_get(parser).to_ast(string) - end - - def self.to_sexp(string) - const_get(parser).to_sexp(string) - end - - def self.to_raw_sexp(string) - const_get(parser).to_raw_sexp(string) - end - - def self.to_ruby(string) - const_get(parser).to_ruby(string) - end - - # The parser we will use to parse Php - # Set to Dhaka by default - def self.parser -# @@parser ||= :Dhaka - @@parser ||= :Treetop - end - - # Specify the parser. Either :Dhaka or :Treetop - def self.parser=(other) - raise "Parser can only be :Dhaka or :Treetop!" unless [:Dhaka, :Treetop].include? other - require other.to_s.downcase - @@parser = other + class << self + def to_tokens(string) + const_get(parser).to_tokens(string) + end + + def to_ast(string) + const_get(parser).to_ast(string) + end + + def to_sexp(string) + const_get(parser).to_sexp(string) + end + + def to_raw_sexp(string) + const_get(parser).to_raw_sexp(string) + end + + def to_ruby(string) + const_get(parser).to_ruby(string) + end + + def parser + @@parser ||= :Treetop + end + + # Specify the parser. Either :Dhaka or :Treetop + def parser=(other) + raise "Parser can only be :Dhaka or :Treetop!" unless [:Dhaka, :Treetop].include? other + require other.to_s.downcase + @@parser = other + end end end end lib/ionize.rb @@ -20,7 +20,11 @@ module Ionize def ruby_from(ast) ast = php_ast(ast) if ast.is_a? String - Ruby2Ruby.new.process(ast) + Php::Php2Ruby.new.process(ast) + end + + def php_to_ruby_eval(text) + eval(Ionize::Php.to_ruby(text)) end end end lib/ionize/console.rb @@ -2,61 +2,49 @@ load File.dirname(__FILE__) + '/environment/php_array.rb' load File.dirname(__FILE__) + '/environment/application.rb' load File.dirname(__FILE__) + '/environment/reference.rb' +load File.dirname(__FILE__) + '/environment/includes.rb' module Ionize module Php - Config = { - "magic_quotes_gpc" => true, - "magic_quotes_runtime" => true - } + class Response + def self.current + @response ||= build_response + end + + def self.build_response + self.new + end + + attr_accessor :header + + def header + @header ||= {} + end + end + + class Config + def self.hash + @hash ||= defaults + end + + def self.defaults + { + "magic_quotes_gpc" => true, + "magic_quotes_runtime" => true + } + end + + def self.[](other) + hash[other] + end + end + module Environment - def self.included(target) - Kernel.module_eval do - def array(*args) - PhpArray.from_mixed(*args) - end - - def get_magic_quotes_gpc - Php::Config["magic_quotes_gpc"] ? 1 : 0 - end - - def get_magic_quotes_runtime - Php::Config["magic_quotes_runtime"] ? 1 : 0 - end - - def gethostbyaddr(string) - address = string.split(".").map {|n| n.to_i }.pack("CCCC") - Socket.gethostbyaddr(address).first - end - - def reference(&block) - # Taken from: - # http://onestepback.org/index.cgi/Tech/Ruby/RubyBindings.rdoc/style/print - Reference.new(block.call, block.binding) - end - alias :ref :reference - end - - String.class_eval do - def preg_match(regex) - matches = match(regex) - return [!matches.nil?, matches.to_a] - end - - def preg_match_all(regex) - copy = self.dup - results = [] - - match = copy.match(regex) - while match - results << match.to_a - copy.gsub!(match.to_a.first, "") - match = copy.match(regex) - end - - [results.length - 1, results.transpose] - end + def self.included(base) + Includes.constants.each do |const| + base.send :include, Includes.const_get(const) end + require 'lib/ionize/environment/to_bool' end end end lib/ionize/environment.rb @@ -1,67 +1,108 @@ +require 'rbtree' + module Ionize module Php module Environment - class PhpArray < Hash - def initialize(*args, &block) + class PhpArray + def initialize(hash = nil) @index = 0 - super(*args, &block) + @hash = hash || RBTree.new + sort! + end + + def internal_hash + @hash end + alias :ihash :internal_hash - def join(*args) - values.join(*args) + def [](key) + @hash[key] end - def hash? - keys.any? {|k| k.class != Fixnum } + def []=(key, value) + if key.is_a? Fixnum and key >= @index + @index = key + 1 + end + @hash[key] = value end + alias :put :[]= - def array? - keys.all? {|k| k.class == Fixnum } + def <<(value) + put(@index, value) end + alias :add :<< def combine(second) - array = self.class.new - second.values.each_with_index do |val, key| - array.put(self[key], val) - end - array + + end + + def shift + tmp, return_value = @hash.shift + @hash = RBTree[*@hash.map do |key, value| + if key.is_a? Numeric + [key-1, value] + else + [key, value] + end + end.flatten] + return_value end def intersect(second) array = self.class.new - second.values.each do |value| - if self.values.include? value - key = self.to_a.select {|k,v| v == value }.first.first - array.put(key, value) + + @hash.each do |key, value| + if second.ihash.any? {|k, v| v == value } + array[key] = value end end + array end - def add(value) - put(@index, value) + def numeric_keys? + @hash.keys.all? {|k| k.is_a? Numeric } end - def put(key, value) - if key.is_a? Fixnum and key >= @index - @index = key+1 + def sort! + @hash.readjust do |f, s| + if f.class == s.class + f <=> s + else + 1 + end end - self[key] = value end - def to_hash - Hash[*(self.to_a).flatten] + def count + @hash.size end - def merge(other) - if self.array? and other.array? - self.class.from_array(*(self.values + other.values)) - else - self.class.from_hash(super(other)) + def each(&block) + if block.arity == 1 + @hash.values.each(&block) + elsif block.arity == 2 + @hash.each(&block) end end + def sort_by_function(name) + @hash.readjust {|f, s| send(name, f, s) } + end + + def to_a + @hash.values + end + + def empty? + @hash.empty? + end + + def merge(other) + + end + def self.from_mixed(*args) array = self.new args.each do |arg| @@ -71,23 +112,47 @@ module Ionize array.add(arg) end end + array.sort! array end def self.from_hash(hash) array = self.new hash.each {|key, value| array.put(key, value)} + array.sort! array end def self.from_array(*args) array = self.new args.each {|arg| array.add(arg)} + array.sort! array end def inspect - "array(" + super.gsub("{", "").gsub("}", "") + ")" + "array(" + hash_inspect + ")" + end + + def hash_inspect + # @hash.to_hash.inspect.gsub("{", "").gsub("}", "") + @hash.to_a.map {|k, v| "#{k}=>#{v}" }.join(", ") + end + + def ==(other) + if other.is_a? PhpArray + @hash.to_hash == other.ihash.to_hash + else + false + end + end + + def to_bool + if self.empty? + true + else + false + end end end end lib/ionize/environment/php_array.rb @@ -1,78 +1,78 @@ - class Array - {:second => 1, :third => 2, :fourth => 3, :fifth => 4, :sixth => 5}.each do |name, value| - define_method(name) { self[value] } - end +class Array + {:second => 1, :third => 2, :fourth => 3, :fifth => 4, :sixth => 5}.each do |name, value| + define_method(name) { self[value] } + end - def rest - self[1..-1] - end + def rest + self[1..-1] + end - def replace_pattern(pattern, value) - copy = self.dup - (0..copy.length).each do |i| - if copy[i] == pattern - copy[i] = value - elsif copy[i].is_a? Array - copy[i] = copy[i].replace_pattern(pattern, value) - end - end - copy - end + def replace_pattern(pattern, value) + copy = self.dup + (0..copy.length).each do |i| + if copy[i] == pattern + copy[i] = value + elsif copy[i].is_a? Array + copy[i] = copy[i].replace_pattern(pattern, value) + end + end + copy + end - def composite_node? - first.is_a? Array - end + def composite_node? + first.is_a? Array + end - def unbox - if composite_node? and length == 1 - first.unbox - else - self - end - end + def unbox + if composite_node? and length == 1 + first.unbox + else + self + end + end - def to_block - if composite_node? - if length > 1 - [:block] + self - else - first - end - else - self - end - end + def to_block + if composite_node? + if length > 1 + [:block] + self + else + first + end + else + self + end + end - def to_block! - result = to_block - if result.first != :block - if result.composite_node? - [:block] + result - else - [:block, result] - end - else - result - end - end + def to_block! + result = to_block + if result.first != :block + if result.composite_node? + [:block] + result + else + [:block, result] + end + else + result + end + end - def tail - if last.is_a? Array - last.tail - else - self - end - end + def tail + if last.is_a? Array + last.tail + else + self + end + end - def tail=(other) - if last.is_a? Array - last.tail = other - else - self.replace(other) - end - end - end + def tail=(other) + if last.is_a? Array + last.tail = other + else + self.replace(other) + end + end +end class Symbol def to_global_id lib/ionize/ext.rb @@ -1,30 +1,6 @@ require 'ruby2ruby' -# Some kind of weird hack in ParseTree causing masgn to screw up.. -# This is a fix.. -UnifiedRuby.module_eval do - def rewrite_masgn(exp) - t, lhs, lhs_splat, rhs = exp - - lhs ||= s(:array) - - if lhs_splat then - case lhs_splat.first - when :array then - lhs_splat = lhs_splat.last if lhs_splat.last.first == :splat - when :splat then - # do nothing - else - lhs_splat = s(:splat, lhs_splat) - end - lhs << lhs_splat - end - - s(t, lhs, rhs).compact - end -end - module Ionize module Php class Php2Ruby < Ruby2Ruby @@ -75,7 +51,6 @@ module Ionize exp.shift end - def process_masgn(exp) lhs = exp.shift rhs = exp.empty? ? nil : exp.shift lib/ionize/php_to_ruby.rb @@ -1,66 +1,71 @@ require 'treetop' -load 'ionize/treetop/pre_parser.rb' +require 'ionize/treetop/pre_parser' +require 'ionize/treetop/ext' module Ionize module Php module Treetop class ParseError < RuntimeError; end + class ValidationError < RuntimeError; end - def self.load! - ::Treetop.load "#{Ionize.root_dir}/lib/ionize/treetop/php" - end + class << self + def load! + ::Treetop.load "#{Ionize.root_dir}/lib/ionize/treetop/php" + end - def self.to_tokens(string, opts = {}) - load! - parser = PhpParser.new - result = parser.parse(PreParser.new(string).run) - if result - result - else - raise ParseError.new(parser.failure_reason) + def to_tokens(string, opts = {}) + load! + parser = PhpParser.new + result = parser.parse(PreParser.new(string).run) + if result + result + else + raise ParseError.new(parser.failure_reason) + end end - end - def self.to_sexp(string, opts = {}) - $globals = [] - if opts[:validate] == false - sexpify(to_tokens(string, opts)) - else - valid?(sexpify(to_tokens(string))) + def to_sexp(string, opts = {}) + $globals = [] + if opts[:validate] == false + sexpify(to_tokens(string, opts)) + else + valid?(sexpify(to_tokens(string))) + end end - end + alias :to_ast :to_sexp - def self.to_ruby(string) - Php::Dhaka::Translate::Php2Ruby.new.process(to_sexp(string)) - end + def to_ruby(string) + Php2Ruby.new.process(to_sexp(string)) + end - def self.sexpify(ast) - if ast.respond_to? :to_ast and (not ast.nil?) - ast.to_ast - elsif ast.respond_to? :elements - sexpify(ast.elements) - elsif ast.is_a? Array - result = ast.map {|e| sexpify(e) }.reject {|e| e == nil or e == [] } - if result.length == 1 and result.first.is_a? Array - result.first + def sexpify(ast) + if ast.respond_to? :to_ast and (not ast.nil?) + ast.to_ast + elsif ast.respond_to? :elements + sexpify(ast.elements) + elsif ast.is_a? Array + result = ast.map {|e| sexpify(e) }.reject {|e| e == nil or e == [] } + if result.length == 1 and result.first.is_a? Array + result.first + else + result + end + elsif ast.nil? + nil else - result + raise "Can't handle ast #{ast.inspect}!" end - elsif ast.nil? - nil - else - raise "Can't handle ast #{ast.inspect}!" end - end - def self.valid?(ast, parent = nil) - if ast.is_a? Array - if ast.empty? - raise "Caught empty node with parent #{parent.inspect}" - elsif ast.composite_node? - raise "Caught composite node #{ast.inspect} with parent #{parent.inspect}" - else - ast.each {|node| valid? node, ast } + def valid?(ast, parent = nil) + if ast.is_a? Array + if ast.empty? + raise ValidationError.new("Caught empty node with parent #{parent.inspect}") + elsif ast.composite_node? + raise ValidationError.new("Caught composite node #{ast.inspect} with parent #{parent.inspect}") + else + ast.each {|node| valid? node, ast } + end end end end @@ -69,76 +74,3 @@ module Ionize end -Treetop::Runtime::SyntaxNode.class_eval do - def method_missing(method, *args, &block) - error = "Couldn't find #{method} on SyntaxNode with text_value #{text_value.inspect} and extension modules #{extension_modules.inspect}" - raise NoMethodError, error - end - - def sexpify(ast) -# puts "sexpifying #{ast.inspect}" - if ast.nil? - nil - elsif ast.is_a? Array - sexpify_array(ast) - elsif ast.astable? and not ast.null? - [ast.to_ast].unbox - elsif ast.elements? - sexpify(ast.elements) - elsif ast.blank? or ast.space? - nil - else - raise "Cannot sexpify #{ast.text_value}!" - end - end - - def sexpify_array(ast) - ast.map do |e| - sexpify(e) - end.reject do |e| - e == nil or e == [] or e == [nil] - end.map do |e| - e.unbox - end.unbox - end - - def to_sym - text_value.to_sym - end - - def unbox - elements.first - end - - def size - elements.size - end - - def has?(element) - respond_to? element and not send(element).blank? - end - - def blank? - text_value == "" - end - - def space? - text_value =~ /\s*/ - end - - def astable? - respond_to? :to_ast - end - - def null? - false - end - - def elements? - respond_to? :elements - end - - def textable? - respond_to? :text_value - end -end lib/ionize/treetop.rb @@ -14,4 +14,8 @@ module SpecHelperMethods def php_to_ruby_eval(text) eval(Ionize::Php.to_ruby(text)) end + + def php_to_ruby_eval_file(file) + eval(Ionize::Php.to_ruby(File.read(file))) + end end spec/helper.rb @@ -3,76 +3,264 @@ require 'spec' require 'spec/helper' require 'lib/ionize' -describe "Transforms Php for posix regex" do +describe "Compatible with Posix regex functions" 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})/) }) + pending 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 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) }) + pending 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 end -describe "Transforms Php for miscellaneous functions" do +describe "Compatible with FunctionHandling functions" do + # http://us2.php.net/manual/en/ref.funchand.php 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 }) + it "supports function_exists" do + php_to_ruby_eval(%q{ function_exists('array'); }).should == true + php_to_ruby_eval(%q{ function_exists('doesnt_exist'); }).should == false 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' }) + it "supports call_user_func_array" do + php_to_ruby_eval_file("spec/fixtures/call_user_func_array.php").should == 3 end end -describe "Transforms Php for miscellaneous functions" do +describe "Compatible with NetworkHandling 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 + + it "supports header" do + header('Location: http://www.example.com/') + Ionize::Php::Response.current.header.should == {"Location" => "http://www.example.com/"} + + header('Content-type: application/pdf') + Ionize::Php::Response.current.header.should == {"Location" => "http://www.example.com/", "Content-type" => "application/pdf"} + + header('Content-Disposition: attachment; filename="downloaded.pdf"') + Ionize::Php::Response.current.header.should == {"Location" => "http://www.example.com/", "Content-type" => "application/pdf", "Content-Disposition" => 'attachment; filename="downloaded.pdf"'} + + pending do + header("HTTP/1.0 404 Not Found") + Ionize::Php::Response.current.code.should == 404 + end + end +end + +describe "Compatible with PCRE functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports preg_match_all" do + pending do + raise "TODO" + end + end + + it "supports preg_split" do + preg_split("/[\s,]+/", "hypertext language, programming").should == array(0=>hypertext, 1=>language, 2=>programming) + end + + it "supports preg_replace" do + string = 'April 15, 2003' + pattern = '/(\w+) (\d+), (\d+)/i' + replacement = '${1}1,$3' + preg_replace(pattern, replacement, string).should == "April1,2003" + + string = 'The quick brown fox jumped over the lazy dog.' + + patterns = array() + patterns[0] = '/quick/' + patterns[1] = '/brown/' + patterns[2] = '/fox/' + + replacements = array() + replacements[2] = 'bear' + replacements[1] = 'black' + replacements[0] = 'slow' + + preg_replace(patterns, replacements, string).should == "The bear black slow jumped over the lazy dog." + + ksort(patterns) + ksort(replacements) + preg_replace(patterns, replacements, string).should == "The slow black bear jumped over the lazy dog." + end + + it "supports preg_replace with several regexes" do + patterns = array('/(19|20)(\d{2})-(\d{1,2})-(\d{1,2})/', '/^\s*{(\w+)}\s*=/') + replace = array('\3/\4/\1\2', '$\1 =') + preg_replace(patterns, replace, '{startDate} = 1999-5-27').should == "$startDate = 5/27/1999" + end + + it "supports preg_replace" do + pending do + raise "TODO" + end + end + + it "supports preg_match" do + pending do + raise "TODO" + end + end + + it "supports preg_replace_callback" do + pending do + raise "TODO" + end + end + + it "supports preg_split" do + pending do + raise "TODO" + end + end + + it "supports preg_match_all" do + pending do + raise "TODO" + end + end + + it "supports preg_quote" do + pending do + raise "TODO" + end + end + + it "supports preg_grep" do + pending do + raise "TODO" + end + end end -describe "Transforms Php for arrays" do +describe "Compatible with PhpArray functions" do include Ionize::Php::Environment, SpecHelperMethods + + it "supports array_intersect" do + php_to_ruby_eval(%q{ $array1 = array("a" => "green", "red", "blue"); $array2 = array("b" => "green", "yellow", "red"); array_intersect($array1, $array2); }).should == array(0=>"red", "a"=>"green") + end + + it "supports array_shift" do + stack = array("orange", "banana", "apple", "raspberry") + fruit = array_shift(stack) + fruit.should == "orange" + stack.should == array(0=>"banana", 1=>"apple", 2=>"raspberry") + end + + it "supports array_pop" do + stack = array("orange", "banana", "apple", "raspberry") + fruit = array_pop(stack) + fruit.should == "raspberry" + stack.should == array("orange", "banana", "apple") + end + it "supports array_merge" do + array1 = array({"color" => "red"}, 2, 4) + array2 = array("a", "b", {"color" => "green", "shape" => "trapezoid"}, 4) + result = array_merge(array1, array2) + result.should == array(0 => 2, 1 => 4, 2 => 'a', 3 => 'b', 4 => 4, 'shape' => 'trapezoid', 'color' => 'green') + + array1 = array() + array2 = array(1 => "data") + result = array_merge(array1, array2) + result.should == array(0 => "data") + end + + it "supports array_keys" do + array1 = array(0 => 100, "color" => "red") + array_keys(array1).should == array(0 => 0, 1 => 'color') + + array2 = array("blue", "red", "green", "blue", "blue") + array_keys(array2, "blue").should == array(0 => 0, 1 => 3, 2 => 4) + + array3 = array("color" => array("blue", "red", "green"), "size" => array("small", "medium", "large")) + array_keys(array3).should == array(0 => 'color', 1 => 'size') + end + + it "supports + on arrays" do + array1 = array() + array2 = array(1 => "data") + result = array1 + array2 + result.should == array(1 => "data") + end + + it "inserts pairs in the order received" do + php_to_ruby_eval(%Q{ array("d"=>"lemon", "a"=>"orange", "b"=>"banana", "c"=>"apple") }).pairs.should == + [["d", "lemon"], ["a", "orange"], ["b", "banana"], ["c", "apple"]] + + array1 = array() + array1[2] = "foo" + array1[0] = "bar" + array1[1] = "baz" - 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) -}) + array1.pairs.should == [[2, "foo"], [0, "bar"], [1, "baz"]] 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") + it "supports ksort" do + fruits = array("d"=>"lemon", "a"=>"orange", "b"=>"banana", "c"=>"apple") + + ksort(fruits) + fruits.pairs.first.should == [["a", "orange"], ["b", "banana"], ["c", "apple"], ["d", "lemon"]] + end + + it "supports array_filter with a callback" do + def even(var) + var & 1 + end + + def odd(var) + !(var & 1) + end + + array1 = array("a"=>1, "b"=>2, "c"=>3, "d"=>4, "e"=>5) + array2 = array(6, 7, 8, 9, 10, 11, 12) + + array_filter(array1, "odd").should == array('a' => 1, 'c' => 3, 'e' => 5) + array_filter(array2, "even").should == array(0 => 6, 2 => 8, 4 => 10, 6 => 12) end - it "parses a crazy regexp without crashing" do - php_to_ruby_eval(%Q{ $ext = preg_replace( '|.*/([a-z0-9]+)|', '$1', $_SERVER['CONTENT_TYPE'] ); }) + it "supports array_filter without a callback" do + entry = array(0 => 'foo', 1 => false, 2 => -1, 3 => nil, 4 => '') + array_filter(entry).should == array(0 => 'foo', 2 => -1) + end + + it "supports array_unshift" do + queue = array("bar") + arary_unshift(queue, "foo") + queue.should == array("foo", "bar") + + queue = array("orange", "banana") + array_unshift(queue, "apple", "raspberry") + queue.should == array("apple", "raspberry", "orange", "banana") + end + + it "supports in_array" do + os = array("Mac", "NT", "Irix", "Linux") + in_array("Irix", os).should == true + in_array("mac", os).should == false + + in_array(array('1', '2', '3'), 2).should == true + in_array(array('1', '2', '3'), 2, true).should == false + end + + it "supports array_key_exists" do + search_array = array('first' => 1, 'second' => 4) + array_key_exists('first', search_array).should == true end it "creates a 1-based array" do @@ -84,4 +272,1707 @@ describe "Transforms Php for arrays" 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 + + it "supports count" do + php_to_ruby_eval(%Q{ $a = array(1,2,3); count($a); }).should == 3 + php_to_ruby_eval(%Q{ $a = array(0 => 7, 5 => 9, 10 => 11); count($a); }).should == 3 + php_to_ruby_eval(%Q{ count(null); }).should == 0 + php_to_ruby_eval(%Q{ count(false); }).should == 1 + end + + it "supports uasort" do + php_to_ruby_eval_file("spec/fixtures/uasort.php").should == + array( + 100 => array('id' => 'cent', 'aa' => 100100), + 2 => array('id' => 'deux', 'aa' => 22), + 10 => array('id' => 'dix', 'aa' => 1010), + 7 => array('id' => 'sept', 'aa' => 77) + ) + end + + it "supports usort" do + php_to_ruby_eval_file("spec/fixtures/usort.php").should == + array(0 => 1, 1 => 2, 2 => 3, 3 => 5, 4 => 6) + end + + it "supports strtr with two args" do + php_to_ruby_eval(%Q{ $trans = array("hello" => "hi", "hi" => "hello"); strtr("hi all, I said hello", $trans); }).should == + "hello all, I said hi" + end + it "supports array_splice" do + pending do + raise "TODO" + end + end + + it "supports array_slice" do + pending do + raise "TODO" + end + end + + it "supports natcasesort" do + pending do + raise "TODO" + end + end + + it "supports array_walk" do + pending do + raise "TODO" + end + end + + it "supports array_search" do + pending do + raise "TODO" + end + end + + it "supports key" do + pending do + raise "TODO" + end + end + + it "supports array_key_exists" do + pending do + raise "TODO" + end + end + + it "supports array_flip" do + pending do + raise "TODO" + end + end + + it "supports array_unique" do + pending do + raise "TODO" + end + end + + it "supports array_keys" do + pending do + raise "TODO" + end + end + + it "supports reset" do + pending do + raise "TODO" + end + end + + it "supports array_values" do + pending do + raise "TODO" + end + end + + it "supports sizeof" do + pending do + raise "TODO" + end + end + + it "supports rsort" do + pending do + raise "TODO" + end + end + + it "supports array_merge_recursive" do + pending do + raise "TODO" + end + end + + it "supports array_map" do + pending do + raise "TODO" + end + end + + it "supports count" do + pending do + raise "TODO" + end + end + + it "supports array_multisort" do + pending do + raise "TODO" + end + end + + it "supports asort" do + pending do + raise "TODO" + end + end + + it "supports array_diff" do + pending do + raise "TODO" + end + end + + it "supports array_unshift" do + pending do + raise "TODO" + end + end + + it "supports array_reverse" do + pending do + raise "TODO" + end + end + + it "supports array_intersect" do + pending do + raise "TODO" + end + end + + it "supports list" do + pending do + raise "TODO" + end + end + + it "supports array_merge" do + pending do + raise "TODO" + end + end + + it "supports sort" do + pending do + raise "TODO" + end + end + + it "supports in_array" do + pending do + raise "TODO" + end + end + + it "supports range" do + pending do + raise "TODO" + end + end + + it "supports current" do + pending do + raise "TODO" + end + end + + it "supports uasort" do + pending do + raise "TODO" + end + end + + it "supports prev" do + pending do + raise "TODO" + end + end + + it "supports array_filter" do + pending do + raise "TODO" + end + end + + it "supports array_pop" do + pending do + raise "TODO" + end + end + + it "supports next" do + pending do + raise "TODO" + end + end + + it "supports array_shift" do + pending do + raise "TODO" + end + end + + it "supports each" do + pending do + raise "TODO" + end + end + + it "supports ksort" do + pending do + raise "TODO" + end + end + + it "supports arsort" do + pending do + raise "TODO" + end + end + + it "supports usort" do + pending do + raise "TODO" + end + end + + it "supports array_fill" do + pending do + raise "TODO" + end + end + + it "supports array_pad" do + pending do + raise "TODO" + end + end + + it "supports extract" do + pending do + raise "TODO" + end + end + + it "supports krsort" do + pending do + raise "TODO" + end + end +end + +describe "Compatible with String functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports strcmp" do + strcmp("foo", "fop").should == 1 + strcmp("fop", "foo").should == -1 + strcmp("foo", "foo").should == 0 + end + + it "supports substr" do + substr("abcdef", -1).should == "f" + substr("abcdef", -2).should == "ef" + substr("abcdef", -3, 1).should == "d" + substr("abcdef", 0, -1).should == "abcde" + substr("abcdef", 2, -1).should == "cde" + substr("abcdef", 4, -4).should == "" + substr("abcdef", -3, -1).should == "de" + end + + it "supports strstr" do + email = 'name@example.com' + strstr(email, '@').should == "@example.com" + end + + it "supports strip_tags" do + text = '<p>Test paragraph.</p><!-- Comment --> <a href="#fragment">Other text</a>'; + strip_tags(text).should == "Test paragraph. Other text" + strip_tags(text, '<p><a>').should == '<p>Test paragraph.</p> <a href="#fragment">Other text</a>' + end + + it "supports explode" do + pizza = "piece1 piece2 piece3 piece4 piece5 piece6" + pieces = explode(" ", pizza) + pieces.should == array(0=>"piece1", 1=>"piece2", 2=>"piece3", 3=>"piece4", 4=>"piece5", 5=>"piece6") + + str = 'one|two|three|four' + explode('|', str, 2).should == array(0 => "one", 1 => "two|three|four") + explode('|', str, -1).should == array(0 => "one", 1 => "two", 2 => "three") + end + + it "supports implode" do + imploded_array = array('lastname', 'email', 'phone') + comma_separated = implode(",", imploded_array) + comma_separated.should == "lastname,email,phone" + end + + it "supports split" do + php_to_ruby_eval_file("spec/fixtures/split.php").should == + array("04", "30", "1973") + end + + it "supports rtrim" do + text = "\t\tThese are a few words :) ... " + rtrim(text).should == "\t\tThese are a few words :) ..." + rtrim(text, " \t.").should == "\t\tThese are a few words :)" + + hello = "Hello World" + rtrim(hello, "Hdle").should == "Hello Wor" + end + + it "supports ltrim" do + text = "\t\tThese are a few words :) ... " + ltrim(text).should == "These are a few words :) ... " + ltrim(text, " \t.").should == "These are a few words :) ... " + + hello = "Hello World" + ltrim(hello, "Hdle").should == "o World" + end + + it "supports trim" do + text = "\t\tThese are a few words :) ... " + trim(text).should == "These are a few words :) ..." + trim(text, " \t.").should == "These are a few words :)" + + hello = "Hello World" + trim(hello, "Hdle").should == "o Wor" + end + + it "supports strpos" do + strpos("abcdef", "a").should == 0 + strpos("abcdef", "b").should == 1 + strpos("abcdef", "x").should == false + strpos("abcdefa", "a", 1).should == 7 + end + + it "supports str_replace" do + bodytag = str_replace("%body%", "black", "<body text='%body%'>") + bodytag.should == "<body text='black'>" + + vowels = array("a", "e", "i", "o", "u", "A", "E", "I", "O", "U") + onlyconsonants = str_replace(vowels, "", "Hello World of PHP") + onlyconsonants.should == "Hll Wrld f PHP" + + phrase = "You should eat fruits, vegetables, and fiber every day." + healthy = array("fruits", "vegetables", "fiber") + yummy = array("pizza", "beer", "ice cream") + newphrase = str_replace(healthy, yummy, phrase) + + newphrase.should == "You should eat pizza, beer, and ice cream every day." + + letters = array('a', 'p') + fruit = array('apple', 'pear') + text = 'a p' + output = str_replace(letters, fruit, text) + output.should == "apearpearle pear" + end + + it "supports strlen" do + str = 'abcdef' + strlen(str).should == 6 + + str = ' ab cd ' + strlen(str).should == 7 + end + + it "supports md5" do + str = 'apple' + md5(str).should == '1f3870be274f6c49b3e31a0c6728957f' + end + + it "supports chr" do + chr(97).should == "a" + chr(98).should == "b" + chr(99).should == "c" + end + + it "supports ord" do + ord('a').should == 97 + ord('b').should == 98 + ord('c').should == 99 + end + + it "supports strtolower" do + str = "Mary Had A Little Lamb and She LOVED It So" + strtolower(str).should == "mary had a little lamb and she loved it so" + end + + it "supports strip_tags" do + text = '<p>Test paragraph.</p><!-- Comment --> <a href="#fragment">Other text</a>' + strip_tags(text).should == "Test paragraph. Other text" + strip_tags(text, '<p><a>').should == %q{<p>Test paragraph.</p> <a href="#fragment">Other text</a>} + end + + it "supports stripslashes" do + pending do + raise "TODO" + end + end + + it "supports strrev" do + pending do + raise "TODO" + end + end + + it "supports strcasecmp" do + pending do + raise "TODO" + end + end + + it "supports stristr" do + pending do + raise "TODO" + end + end + + it "supports md5" do + pending do + raise "TODO" + end + end + + it "supports substr_count" do + pending do + raise "TODO" + end + end + + it "supports ord" do + pending do + raise "TODO" + end + end + + it "supports chr" do + pending do + raise "TODO" + end + end + + it "supports sprintf" do + pending do + raise "TODO" + end + end + + it "supports sha1" do + pending do + raise "TODO" + end + end + + it "supports implode" do + pending do + raise "TODO" + end + end + + it "supports strstr" do + pending do + raise "TODO" + end + end + + it "supports explode" do + pending do + raise "TODO" + end + end + + it "supports substr" do + pending do + raise "TODO" + end + end + + it "supports strrpos" do + pending do + raise "TODO" + end + end + + it "supports str_repeat" do + pending do + raise "TODO" + end + end + + it "supports str_word_count" do + pending do + raise "TODO" + end + end + + it "supports htmlspecialchars" do + pending do + raise "TODO" + end + end + + it "supports strpos" do + pending do + raise "TODO" + end + end + + it "supports addslashes" do + pending do + raise "TODO" + end + end + + it "supports strip_tags" do + pending do + raise "TODO" + end + end + + it "supports wordwrap" do + pending do + raise "TODO" + end + end + + it "supports str_replace" do + pending do + raise "TODO" + end + end + + it "supports join" do + pending do + raise "TODO" + end + end + + it "supports print" do + pending do + raise "TODO" + end + end + + it "supports strcmp" do + pending do + raise "TODO" + end + end + + it "supports printf" do + pending do + raise "TODO" + end + end + + it "supports nl2br" do + pending do + raise "TODO" + end + end + + it "supports quoted_printable_decode" do + pending do + raise "TODO" + end + end + + it "supports strtr" do + pending do + raise "TODO" + end + end + + it "supports setlocale" do + pending do + raise "TODO" + end + end + + it "supports str_pad" do + pending do + raise "TODO" + end + end + + it "supports addcslashes" do + pending do + raise "TODO" + end + end + + it "supports strncmp" do + pending do + raise "TODO" + end + end + + it "supports stripcslashes" do + pending do + raise "TODO" + end + end + + it "supports strtoupper" do + pending do + raise "TODO" + end + end + + it "supports strtolower" do + pending do + raise "TODO" + end + end + + it "supports chop" do + pending do + raise "TODO" + end + end + + it "supports get_html_translation_table" do + pending do + raise "TODO" + end + end +end + + +describe "Compatible with type comparisons functions" do + include Ionize::Php::Environment, SpecHelperMethods + + # http://www.blueshoes.org/en/developer/php_cheat_sheet/ + it "supports type comparisons" do + (true == 1).should == true + (true == -1).should == true + (true == "1").should == true + (true == "0").should == false + (true == "-1").should == true + (true == "1.3").should == true + (true == "1.30").should == true + (true == 1.3).should == true + (true == 1.30).should == true + (true == array()).should == false + (true == "foo").should == true + (true == "").should == false + + (false == 0).should == true + (false == -1).should == false + (false == "-1").should == false + (false == "0").should == false + (false == "1.3").should == false + (false == "1.30").should == false + (false == 1.3).should == false + (false == 1.30).should == false + (false == array()).should == false + (false == "").should == false + + (1 == "1").should == true + (0 == "0").should == true + (0 == "foo").should == true + (0 == "").should == true + (-1 == "-1").should == true + ("1.3" == "1.30").should == true + ("1.3" == 1.3).should == true + (1.3 == "1.30").should == true + end + + # http://us2.php.net/language.types.boolean + it "supports conversion from cast as (bool) => to_bool" do + "".to_bool.should == false + 1.to_bool.should == true + -2.to_bool.should == true + "foo".to_bool.should == true + 2.3e5.to_bool.should == true + array(12).to_bool.should == true + array().to_bool.should == false + "false".to_bool.should == true + + false.to_bool.should == false + 0.to_bool.should == false + 0.0.to_bool.should == false + "0".to_bool.should == false + nil.to_bool.should == false + + # Huh? + # an object with zero member variables (PHP 4 only) + + # Where? + # SimpleXML objects created from empty tags + end +end + + +describe "Compatible with MiscFunctions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports define" do + define('GREETING', 'Hello world') + GREETING.should == "Hello world" + end + + it "supports constant" do + pending do + raise "TODO" + end + end + + it "supports defined" do + pending do + raise "TODO" + end + end + + it "supports exit" do + pending do + raise "TODO" + end + end + + it "supports define" do + pending do + raise "TODO" + end + end + + it "supports die" do + pending do + raise "TODO" + end + end + + it "supports eval" do + pending do + raise "TODO" + end + end + + it "supports unpack" do + pending do + raise "TODO" + end + end + + it "supports uniqid" do + pending do + raise "TODO" + end + end + + it "supports pack" do + pending do + raise "TODO" + end + end +end + + +describe "Compatible with Math functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports mt_rand" do + pending do + raise "How do I write a test for this?" + end + end + + it "supports max" do + max(1, 3, 5, 6, 7).should == 7 + max(array(2, 4, 5)).should = 5 + max(0, 'hello').should == 0 + max('hello', 0).should == 'hello' + max(-1, 'hello').should == 'hello' + max(array(2, 4, 8), array(2, 5, 7)).should == array(2,5,7) + max('string', array(2, 5, 7), 42).should == array(2,5,7) + end + + it "supports min" do + min(2, 3, 1, 6, 7).should == 1 + min(array(2, 4, 5)).should == 2 + min(0, 'hello').should == 0 + min('hello', 0).should == 'hello' + min('hello', -1).should == -1 + min(array(2, 4, 8), array(2, 5, 1)).should == array(2, 4, 8) + min('string', array(2, 5, 7), 42).should == 'string' + end + + it "supports round" do + round(3.4).should == 3 + round(3.5).should == 4 + round(3.6).should == 4 + round(3.6, 0).should == 4 + round(5.045, 2).should == 5.05 + round(5.055, 2).should == 5.06 + round(1.95583, 2).should == 1.96 + round(1241757, -3).should == 1242000 + end + + it "supports abs" do + pending do + raise "TODO" + end + end + + it "supports hexdec" do + pending do + raise "TODO" + end + end + + it "supports pow" do + pending do + raise "TODO" + end + end + + it "supports ceil" do + pending do + raise "TODO" + end + end + + it "supports base_convert" do + pending do + raise "TODO" + end + end + + it "supports round" do + pending do + raise "TODO" + end + end + + it "supports log10" do + pending do + raise "TODO" + end + end + + it "supports sqrt" do + pending do + raise "TODO" + end + end + + it "supports floor" do + pending do + raise "TODO" + end + end + + it "supports dechex" do + pending do + raise "TODO" + end + end +end + + +describe "Compatible with DateTime functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports date and mktime" do + ("July 1, 2000 is on a " + date("l", mktime(0, 0, 0, 7, 1, 2000))).should == "July 1, 2000 is on a Saturday" + + date("M-d-Y", mktime(0, 0, 0, 12, 32, 1997)).should == "Jan-01-1998" + date("M-d-Y", mktime(0, 0, 0, 13, 1, 1997)).should == "Jan-01-1998" + date("M-d-Y", mktime(0, 0, 0, 1, 1, 1998)).should == "Jan-01-1998" + date("M-d-Y", mktime(0, 0, 0, 1, 1, 98)).should == "Jan-01-1998" + end + + it "supports mktime" do + pending do + raise "TODO" + end + end + + it "supports checkdate" do + pending do + raise "TODO" + end + end + + it "supports gmdate" do + pending do + raise "TODO" + end + end + + it "supports time" do + pending do + raise "TODO" + end + end + + it "supports date" do + pending do + raise "TODO" + end + end + + it "supports gmmktime" do + pending do + raise "TODO" + end + end + + it "supports strtotime" do + pending do + raise "TODO" + end + end + + it "supports gmstrftime" do + pending do + raise "TODO" + end + end + + it "supports microtime" do + pending do + raise "TODO" + end + end +end + +describe "Compatible with Filesystem functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports file_exists" do + file_exists("spec/php_environment_spec.rb").should == true + file_exists("/foo/bar/biz/quux").should == false + end + + it "supports dirname" do + path = "/etc/passwd" + dirname(path).should == "/etc" + end + + it "supports basename" do + path = "/home/httpd/html/index.php" + basename(path).should == "index.php" + basename(path, ".php").should == "index" + end + it "supports unlink" do + pending do + raise "TODO" + end + end + + it "supports filectime" do + pending do + raise "TODO" + end + end + + it "supports realpath" do + pending do + raise "TODO" + end + end + + it "supports is_executable" do + pending do + raise "TODO" + end + end + + it "supports file" do + pending do + raise "TODO" + end + end + + it "supports pathinfo" do + pending do + raise "TODO" + end + end + + it "supports is_readable" do + pending do + raise "TODO" + end + end + + it "supports rmdir" do + pending do + raise "TODO" + end + end + + it "supports clearstatcache" do + pending do + raise "TODO" + end + end + + it "supports fgets" do + pending do + raise "TODO" + end + end + + it "supports file_get_contents" do + pending do + raise "TODO" + end + end + + it "supports is_file" do + pending do + raise "TODO" + end + end + + it "supports mkdir" do + pending do + raise "TODO" + end + end + + it "supports is_uploaded_file" do + pending do + raise "TODO" + end + end + + it "supports fclose" do + pending do + raise "TODO" + end + end + + it "supports dirname" do + pending do + raise "TODO" + end + end + + it "supports fopen" do + pending do + raise "TODO" + end + end + + it "supports fputs" do + pending do + raise "TODO" + end + end + + it "supports feof" do + pending do + raise "TODO" + end + end + + it "supports is_writable" do + pending do + raise "TODO" + end + end + + it "supports move_uploaded_file" do + pending do + raise "TODO" + end + end + + it "supports chmod" do + pending do + raise "TODO" + end + end + + it "supports copy" do + pending do + raise "TODO" + end + end + + it "supports fileperms" do + pending do + raise "TODO" + end + end + + it "supports tempnam" do + pending do + raise "TODO" + end + end + + it "supports basename" do + pending do + raise "TODO" + end + end + + it "supports filesize" do + pending do + raise "TODO" + end + end + + it "supports file_exists" do + pending do + raise "TODO" + end + end + + it "supports is_dir" do + pending do + raise "TODO" + end + end + + it "supports fwrite" do + pending do + raise "TODO" + end + end + + it "supports fread" do + pending do + raise "TODO" + end + end + + +end + + + +describe "Compatible with VariableHandling functions" do + # http://us3.php.net/manual/en/ref.var.php + include Ionize::Php::Environment, SpecHelperMethods + + it "supports var_dump" do + pending do + raise "Not used in Drupal" + end + end + + it "supports is_array" do + pending do + raise "TODO" + end + end + + it "supports gettype" do + pending do + raise "TODO" + end + end + + it "supports intval" do + pending do + raise "TODO" + end + end + + it "supports empty" do + pending do + raise "TODO" + end + end + + it "supports is_string" do + pending do + raise "TODO" + end + end + + it "supports is_double" do + pending do + raise "TODO" + end + end + + it "supports is_float" do + pending do + raise "TODO" + end + end + + it "supports serialize" do + pending do + raise "TODO" + end + end + + it "supports unserialize" do + pending do + raise "TODO" + end + end + + it "supports is_null" do + pending do + raise "TODO" + end + end + + it "supports is_bool" do + pending do + raise "TODO" + end + end + + it "supports print_r" do + pending do + raise "TODO" + end + end + + it "supports is_numeric" do + pending do + raise "TODO" + end + end + + it "supports unset" do + pending do + raise "TODO" + end + end + + it "supports is_object" do + pending do + raise "TODO" + end + end + + it "supports is_int" do + pending do + raise "TODO" + end + end + + it "supports strval" do + pending do + raise "TODO" + end + end + + it "supports isset" do + pending do + raise "TODO" + end + end + + + it "supports isset" do + php_to_ruby_eval(%q{ $a = "test"; isset($a); }).should == true + php_to_ruby_eval(%q{ $a = "test"; unset($a); isset($a); }).should == false + php_to_ruby_eval(%q{ $a = array('test' => 1, 'hello' => NULL); isset($a['test']); }).should == true + php_to_ruby_eval(%q{ $a = array('test' => 1, 'hello' => NULL); isset($a['foo']); }).should == false + php_to_ruby_eval(%q{ $a = array('test' => 1, 'hello' => NULL); isset($a['hello']); }).should == false + end + + it "supports empty" do + php_to_ruby_eval(%q{ empty(0); }).should == true + php_to_ruby_eval(%q{ empty("0"); }).should == true + php_to_ruby_eval(%q{ empty(""); }).should == true + php_to_ruby_eval(%q{ empty(false); }).should == true + php_to_ruby_eval(%q{ empty(null); }).should == true + php_to_ruby_eval(%q{ empty(array()); }).should == true + end + + it "supports is_array" do + php_to_ruby_eval(%q{ $yes = array('this', 'is', 'an array'); is_array($yes); }).should == true + php_to_ruby_eval(%q{ $no = 'this is a string'; is_array($no); }).should == false + end + + it "supports is_numeric" do + is_numeric("42").should == true + is_numeric(1337).should == true + is_numeric("1e4").should == true + is_numeric("not numeric").should == false + is_numeric(array()).should == false + is_numeric(9.1).should == true + end + + it "supports intval" do + intval(42).should == 42 + intval(4.2).should == 4 + intval('42').should == 42 + intval('+42').should == 42 + intval('-42').should == -42 + intval(042).should == 34 + intval('042').should == 42 + intval(1e10).should == 1410065408 + intval('1e10').should == 1 + intval(0x1A).should == 26 + intval(42000000).should == 42000000 + intval(420000000000000000000).should == 0 + intval('420000000000000000000').should == 2147483647 + end + + it "supports intval with a base" do + intval(42, 8).should == 42 + intval('42', 8).should == 34 + end + + it "supports is_null" do + foo = nil + is_null(foo).should == true + end + + it "supports serialize" do + pending do + raise "Not sure how to test for this.. Is it correct if it doesn't serialize to Php's version? " + end + end + + it "supports unserialize" do + pending do + raise "Not sure how to test for this.. Is it correct if it doesn't serialize to Php's version? " + end + end +end + +describe "Compatible with Php info functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports extension_loaded" do + pending do + raise "TODO" + end + end + + it "supports set_time_limit" do + pending do + raise "TODO" + end + end + + it "supports get_extension_funcs" do + pending do + raise "TODO" + end + end + + it "supports ini_get" do + pending do + raise "TODO" + end + end + + it "supports version_compare" do + pending do + raise "TODO" + end + end + + it "supports phpversion" do + pending do + raise "TODO" + end + end + + it "supports memory_get_usage" do + pending do + raise "TODO" + end + end + + it "supports get_cfg_var" do + pending do + raise "TODO" + end + end + + it "supports phpinfo" do + pending do + raise "TODO" + end + end + + it "supports ini_set" do + pending do + raise "TODO" + end + end +end + + +describe "Compatible with Url functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports urldecode" do + urldecode('Hello+%3Cb%3Ethere%21%3C%2Fb%3E').should == 'Hello <b>there!</b>' + end + + it "support parse_url" do + url = 'http://username:password@hostname/path?arg=value#anchor' + result = parse_url(url) + result.should == array('scheme' => 'http', 'host' => 'hostname', 'user' => 'username', 'pass' => 'password', 'path' => '/path', 'query' => 'arg=value', 'fragment' => 'anchor') + end +end + +describe "Compatible with Output control functions" do + include Ionize::Php::Environment, SpecHelperMethods + it "supports ob_end_clean" do + pending do + raise "TODO" + end + end + + it "supports ob_start" do + pending do + raise "TODO" + end + end + + it "supports ob_get_contents" do + pending do + raise "TODO" + end + end + + it "supports ob_end_flush" do + pending do + raise "TODO" + end + end + + it "supports ob_get_level" do + pending do + raise "TODO" + end + end +end + +describe "Compatible with Mysql functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports mysql_error" do + pending do + raise "TODO" + end + end + + it "supports mysqli_query" do + pending do + raise "TODO" + end + end + + it "supports mysql_query" do + pending do + raise "TODO" + end + end + + it "supports mysqli_error" do + pending do + raise "TODO" + end + end + + it "supports mysqli_connect_errno" do + pending do + raise "TODO" + end + end + + it "supports mysql_connect" do + pending do + raise "TODO" + end + end + + it "supports mysqli_connect_error" do + pending do + raise "TODO" + end + end + + it "supports mysqli_real_escape_string" do + pending do + raise "TODO" + end + end + + it "supports mysql_errno" do + pending do + raise "TODO" + end + end + + it "supports mysqli_real_connect" do + pending do + raise "TODO" + end + end + + it "supports mysql_real_escape_string" do + pending do + raise "TODO" + end + end + + it "supports mysql_select_db" do + pending do + raise "TODO" + end + end + + it "supports mysqli_errno" do + pending do + raise "TODO" + end + end + + it "supports mysqli_init" do + pending do + raise "TODO" + end + end + + it "supports mysqli_fetch_array" do + pending do + raise "TODO" + end + end + + it "supports mysqli_close" do + pending do + raise "TODO" + end + end + + it "supports mysql_affected_rows" do + pending do + raise "TODO" + end + end + + it "supports mysqli_affected_rows" do + pending do + raise "TODO" + end + end + + it "supports mysqli_get_server_info" do + pending do + raise "TODO" + end + end + + it "supports mysql_fetch_array" do + pending do + raise "TODO" + end + end + + it "supports mysqli_fetch_row" do + pending do + raise "TODO" + end + end + + it "supports mysql_fetch_object" do + pending do + raise "TODO" + end + end + + it "supports mysql_get_server_info" do + pending do + raise "TODO" + end + end + + it "supports mysql_close" do + pending do + raise "TODO" + end + end + + it "supports mysqli_num_rows" do + pending do + raise "TODO" + end + end + + it "supports mysqli_fetch_object" do + pending do + raise "TODO" + end + end + + it "supports mysql_num_rows" do + pending do + raise "TODO" + end + end + + it "supports mysql_fetch_row" do + pending do + raise "TODO" + end + end +end + +describe "Compatible with Mysql functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports trigger_error" do + pending do + raise "TODO" + end + end + + it "supports debug_backtrace" do + pending do + raise "TODO" + end + end + + it "supports error_reporting" do + pending do + raise "TODO" + end + end + + it "supports set_error_handler" do + pending do + raise "TODO" + end + end +end + + +describe "Compatible with Zlib functions" do + include Ionize::Php::Environment, SpecHelperMethods + + it "supports gzinflate" do + pending do + raise "TODO" + end + end + + it "supports zlib_get_coding_type" do + pending do + raise "TODO" + end + end + + it "supports gzencode" do + pending do + raise "TODO" + end + end +end + +describe "Compatible with Zlib functions" do + include Ionize::Php::Environment, SpecHelperMethods + it "supports iconv" do + pending do + raise "TODO" + end + end end spec/php_environment_spec.rb lib/ionize/compiled_parser.rb lib/ionize/dhaka/translate/php_to_ruby.rb lib/ionize/parser.rb lib/ionize/tokenizer.rb 1d969271581c13456312839a3262ea35d4f45940 farleyknight farleyknight+github@gmail.com http://github.com/farleyknight/ionize/commit/0bb5e63ecc6e972508b26e42daab1c87a3bb986e 0bb5e63ecc6e972508b26e42daab1c87a3bb986e 2008-11-25T16:36:22-08:00 2008-11-25T16:36:22-08:00 Added Php extension 5d08a47da46afbef1c263c65cad71317fc3547a9 farleyknight farleyknight+github@gmail.com