phuby 1.0.0

data/.autotest

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require 'autotest/restart'
+
+# Autotest.add_hook :initialize do |at|
+#   at.extra_files << "../some/external/dependency.rb"
+#
+#   at.libs << ":../some/external"
+#
+#   at.add_exception 'vendor'
+#
+#   at.add_mapping(/dependency.rb/) do |f, _|
+#     at.files_matching(/test_.*rb$/)
+#   end
+#
+#   %w(TestA TestB).each do |klass|
+#     at.extra_class_map[klass] = "test/test_misc.rb"
+#   end
+# end
+
+# Autotest.add_hook :run_command do |at|
+#   system "rake build"
+# end

data/CHANGELOG.rdoc

@@ -0,0 +1,6 @@
+=== 1.0.0 / 2009-07-31
+
+* 1 major enhancement
+
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,35 @@
+.autotest
+CHANGELOG.rdoc
+Manifest.txt
+README.rdoc
+Rakefile
+bin/phrack
+bin/phuby
+bin/phuby_server
+ext/phuby/extconf.rb
+ext/phuby/phuby.c
+ext/phuby/phuby.h
+ext/phuby/phuby_array.c
+ext/phuby/phuby_array.h
+ext/phuby/phuby_conversions.c
+ext/phuby/phuby_conversions.h
+ext/phuby/phuby_runtime.c
+ext/phuby/phuby_runtime.h
+lib/phuby.rb
+lib/phuby/array.rb
+lib/phuby/events.rb
+lib/phuby/php_handler.rb
+lib/phuby/rails.rb
+lib/phuby/runtime.rb
+php.patch
+test/assets/hello_world.php
+test/assets/htdocs/index.php
+test/helper.rb
+test/test_array.rb
+test/test_handlers.rb
+test/test_header_sent.rb
+test/test_nil.rb
+test/test_object.rb
+test/test_php_handler.rb
+test/test_phuby.rb
+test/test_runtime.rb

data/README.rdoc

@@ -0,0 +1,96 @@
+= phuby
+
+* http://github.com/tenderlove/phuby
+
+== DESCRIPTION:
+
+Phuby wraps PHP in a loving embrace.  Exposes a PHP runtime in ruby
+
+== FEATURES/PROBLEMS:
+
+* many
+
+== SYNOPSIS:
+
+  rt = Phuby::Runtime.new
+  rt.start
+
+  rt.eval('$hello = "world"')
+  assert_equal "world", rt['hello']
+
+  rt.stop
+
+== REQUIREMENTS:
+
+* php
+
+== BUILD INSTRUCTIONS:
+
+* Download php-5.3.0
+
+The following instructions apply to OS X (probably not needed on linux):
+
+DO NOT change the prefix... No, I don't know why yet.
+
+=== Install iconv with macports
+
+  $ sudo port install iconv
+
+=== Install MySQL with macports
+
+  $ sudo port install mysql5 mysql5-server
+
+Set some symbolic links:
+
+  $ cd /opt/local
+  $ sudo ln -s mysql5/mysql include/mysql
+  $ sudo ln -s mysql5/mysql/libmysqlclient.15.dylib lib/libmysqlclient.dylib
+
+=== Patch and configure php
+
+If you're on OS X, apply php.patch to the downloaded php.  Then configure
+php with the proper flags.  These paths are for OS X, but you should be able
+to adjust them for linux:
+
+  $ patch -p0 < ../path/to/php.patch
+
+  $ ./configure --enable-debug \
+      --enable-embed \
+      --disable-cli  \
+      --with-mysql=/opt/local \
+      --with-mysqli=/opt/local/lib/mysql5/bin/mysql_config \
+      --with-mysql-sock=/opt/local/var/run/mysql5/mysqld.sock \
+      --prefix=/usr/local
+
+  $ make && sudo make install
+
+Then, either install the gem, or rake test
+
+== INSTALL:
+
+* No.
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) Aaron Patterson and Ryan Davis of Seattle.rb
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,23 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+gem 'rake-compiler', '>= 0.4.1'
+require "rake/extensiontask"
+
+HOE = Hoe.spec 'phuby' do
+  developer('Aaron Patterson', 'aaronp@rubyforge.org')
+  self.readme_file   = 'README.rdoc'
+  self.history_file  = 'CHANGELOG.rdoc'
+  self.extra_rdoc_files  = FileList['*.rdoc']
+
+  self.spec_extras = { :extensions => ["ext/phuby/extconf.rb"] }
+end
+
+RET = Rake::ExtensionTask.new("phuby", HOE.spec) do |ext|
+  ext.lib_dir = File.join('lib', 'phuby')
+end
+
+Rake::Task[:test].prerequisites << :compile
+
+# vim: syntax=ruby

data/bin/phrack

@@ -0,0 +1,50 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'phuby'
+require 'rack'
+
+##
+# Rack::Phrack is a Rack handler that will evaulate and serve PHP files.
+
+class Rack::Phrack < Rack::File
+  class Events < Struct.new(:code, :headers, :body)
+    def write string; body << string; end
+    def send_headers response_code;   end
+
+    def header value, op
+      k, v = value.split(': ', 2)
+      self.code = 302 if k == 'Location'
+      headers[k] = [headers[k], Rack::Utils.unescape(v)].compact.join "\n"
+    end
+  end
+
+  def call env
+    events = Events.new 200, {}, ''
+    file   = File.join @root, env['PATH_INFO']
+    file   = File.join file, "index.php" if File.directory?(file)
+
+    return super unless file =~ /php$/
+
+    Dir.chdir(File.dirname(file)) do
+      Phuby::Runtime.php do |rt|
+        rt.eval "date_default_timezone_set('America/Los_Angeles');" # *shrug*
+
+        { Rack::Utils.parse_query(env['QUERY_STRING'])     => "_GET",
+          Rack::Utils.parse_query(env['rack.input'].read)  => "_POST",
+          Rack::Utils.parse_query(env['HTTP_COOKIE'], ';') => "_COOKIE",
+        }.each do |from, to|
+          from.each { |k,v| rt[to][k] = v }
+        end
+
+        env.each { |k,v| rt['_SERVER'][k] = v || '' unless k =~ /^rack/ }
+        rt["_SERVER"]['REQUEST_URI'] = env['PATH_INFO']
+
+        rt.with_events(events) { open(file) { |f| rt.eval f } } # RUN!
+      end
+    end
+    events.to_a
+  end
+end
+
+Rack::Handler::WEBrick.run(Rack::Phrack.new(ARGV[0] || Dir.pwd), :Port => 10101)

data/bin/phuby

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+
+abort "you need to write me"

data/bin/phuby_server

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'phuby'
+require 'webrick'
+
+s = WEBrick::HTTPServer.new(:Port => 10101, :DocumentRoot => ARGV[0])
+
+s.mount('/', Phuby::PHPHandler)
+
+trap('INT') { s.shutdown }
+s.start

data/ext/phuby/extconf.rb

@@ -0,0 +1,24 @@
+ENV['RC_ARCHS'] = '' if RUBY_PLATFORM =~ /darwin/
+
+# :stopdoc:
+
+require 'mkmf'
+
+config = Dir["/{usr,opt}/local/bin/php-config"]
+prefix = `#{config} --prefix`.chomp
+
+php_inc, php_lib = dir_config("php5", "#{prefix}/include", "#{prefix}/lib")
+
+$INCFLAGS = "-I#{File.join(php_inc, "php").quote} #{$INCFLAGS}"
+
+%w{ Zend TSRM main }.each do |dir|
+  $INCFLAGS = "-I#{File.join(php_inc, "php", dir).quote} #{$INCFLAGS}"
+end
+
+unless find_library("php5", "php_embed_init", php_lib)
+  abort "php is missing!"
+end
+
+create_makefile("phuby/phuby")
+
+# :startdoc:

data/ext/phuby/phuby.c

@@ -0,0 +1,11 @@
+#include <phuby.h>
+
+VALUE mPhuby;
+
+void Init_phuby()
+{
+  mPhuby = rb_define_module("Phuby");
+
+  init_phuby_runtime();
+  init_phuby_array();
+}

data/ext/phuby/phuby.h

@@ -0,0 +1,14 @@
+#ifndef PHUBY
+#define PHUBY
+
+#include <stdlib.h>
+#include <ruby.h>
+#include <sapi/embed/php_embed.h>
+
+#include <phuby_conversions.h>
+#include <phuby_runtime.h>
+#include <phuby_array.h>
+
+extern VALUE mPhuby;
+
+#endif

data/ext/phuby/phuby_array.c

@@ -0,0 +1,92 @@
+#include <phuby.h>
+
+VALUE cPhubyArray;
+
+VALUE Data_Wrap_PhubyArray(VALUE rt, zval * value)
+{
+  VALUE arry = Data_Wrap_Struct(cPhubyArray, 0, 0, value);
+  rb_iv_set(arry, "@runtime", rt);
+  return arry;
+}
+
+static VALUE length(VALUE self)
+{
+  zval * array;
+
+  Data_Get_Struct(self, zval, array);
+
+  return INT2NUM(zend_hash_num_elements(Z_ARRVAL_P(array)));
+}
+
+static VALUE get(VALUE self, VALUE key)
+{
+  zval * array;
+  zval **value;
+
+  Data_Get_Struct(self, zval, array);
+
+  switch(TYPE(key))
+  {
+    case T_FIXNUM:
+      if(SUCCESS == zend_hash_index_find(
+            Z_ARRVAL_P(array),
+            NUM2INT(key),
+            (void **)&value
+      )) {
+        return ZVAL2VALUE(rb_iv_get(self, "@runtime"), *value);
+      }
+      break;
+    default:
+      if(SUCCESS == zend_hash_find(
+          Z_ARRVAL_P(array),
+          StringValuePtr(key),
+          RSTRING_LEN(key) + 1, // Add one for the NULL byte
+          (void **)&value
+      )) {
+        return ZVAL2VALUE(rb_iv_get(self, "@runtime"), *value);
+      }
+  }
+
+  return Qnil;
+}
+
+static VALUE set(VALUE self, VALUE key, VALUE value)
+{
+  zval * array;
+
+  Data_Get_Struct(self, zval, array);
+
+  VALUE s_key = rb_funcall(key, rb_intern("to_s"), 0);
+
+  add_assoc_zval(array,
+      StringValuePtr(s_key),
+      VALUE2ZVAL(rb_iv_get(self, "@runtime"), value)
+  );
+
+  return self;
+}
+
+static VALUE key_eh(VALUE self, VALUE key)
+{
+  zval * array;
+  zval **value;
+
+  Data_Get_Struct(self, zval, array);
+
+  if(zend_hash_exists(Z_ARRVAL_P(array),
+        StringValuePtr(key), RSTRING_LEN(key) + 1)) {
+    return Qtrue;
+  }
+
+  return Qfalse;
+}
+
+void init_phuby_array()
+{
+  cPhubyArray = rb_define_class_under(mPhuby, "Array", rb_cObject);
+
+  rb_define_method(cPhubyArray, "length", length, 0);
+  rb_define_method(cPhubyArray, "get", get, 1);
+  rb_define_method(cPhubyArray, "set", set, 2);
+  rb_define_method(cPhubyArray, "key?", key_eh, 1);
+}

data/ext/phuby/phuby_array.h

@@ -0,0 +1,9 @@
+#ifndef PHUBY_ARRAY
+#define PHUBY_ARRAY
+
+extern VALUE cPhubyArray;
+
+void init_phuby_array();
+VALUE Data_Wrap_PhubyArray(VALUE rt, zval * value);
+
+#endif

data/ext/phuby/phuby_conversions.c

@@ -0,0 +1,92 @@
+#include <phuby.h>
+
+zval * Phuby_value_to_zval(VALUE rt, VALUE value)
+{
+  zval *php_value;
+
+  MAKE_STD_ZVAL(php_value);
+
+  switch(TYPE(value))
+  {
+    case T_FIXNUM:
+      ZVAL_LONG(php_value, NUM2INT(value));
+      break;
+
+    case T_TRUE:
+    case T_FALSE:
+      ZVAL_BOOL(php_value, value == Qtrue ? 1 : 0);
+      break;
+
+    case T_FLOAT:
+    case T_BIGNUM:
+      ZVAL_DOUBLE(php_value, NUM2DBL(value));
+      break;
+
+    case T_STRING:
+      ZVAL_STRINGL(php_value, StringValuePtr(value), RSTRING_LEN(value), 1);
+      break;
+    case T_OBJECT:
+    case T_DATA:
+      {
+        object_init_ex(php_value, php_ruby_proxy);
+        VALUE map = rb_iv_get(rt, "@proxy_map");
+        rb_hash_aset(map, INT2NUM((int)php_value), value);
+      }
+      break;
+    case T_ARRAY:
+      {
+        array_init(php_value);
+        int i;
+        for(i = 0; i < RARRAY_LEN(value); i++) {
+          VALUE key = rb_funcall(INT2NUM(i), rb_intern("to_s"), 0);
+          VALUE thing = RARRAY_PTR(value)[i];
+          add_assoc_zval(php_value, StringValuePtr(key), Phuby_value_to_zval(rt, thing));
+        }
+        VALUE map = rb_iv_get(rt, "@proxy_map");
+        rb_hash_aset(map, INT2NUM((int)php_value), value);
+      }
+      break;
+    case T_NIL:
+      ZVAL_NULL(php_value);
+      break;
+    default:
+      rb_raise(rb_eRuntimeError, "Can't convert ruby object: %s %d", rb_class2name(CLASS_OF(value)), TYPE(value));
+  }
+
+  return php_value;
+}
+
+VALUE Phuby_zval_to_value(VALUE rt, zval * value)
+{
+  switch(Z_TYPE_P(value)) {
+    case IS_NULL:
+      return Qnil;
+      break;
+    case IS_BOOL:
+      if(Z_BVAL_P(value))
+        return Qtrue;
+      else
+        return Qfalse;
+      break;
+    case IS_LONG:
+      return INT2NUM(Z_LVAL_P(value));
+      break;
+    case IS_DOUBLE:
+      return rb_float_new(Z_DVAL_P(value));
+      break;
+    case IS_STRING:
+      return rb_str_new(Z_STRVAL_P(value), Z_STRLEN_P(value));
+      break;
+    case IS_ARRAY:
+      return Data_Wrap_PhubyArray(rt, value);
+      break;
+    case IS_OBJECT:
+      {
+        VALUE map = rb_iv_get(rt, "@proxy_map");
+        return rb_hash_aref(map, INT2NUM((int)value));
+      }
+    default:
+      rb_raise(rb_eRuntimeError, "Whoa, I don't know how to convert that");
+  }
+}
+