ruby-perl 0.99.15j

data/.autotest

@@ -0,0 +1 @@
+require "autotest/bundler"

data/Gemfile

@@ -0,0 +1,11 @@
+source :rubygems
+
+gem 'ffi'
+
+group :development do
+  gem 'autotest'
+  gem 'passenger'
+  gem 'rack'
+  gem 'rspec'
+  gem 'thin'
+end

data/Gemfile.lock

@@ -0,0 +1,49 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    ZenTest (4.5.0)
+    autotest (4.4.6)
+      ZenTest (>= 4.4.1)
+    daemon_controller (0.2.6)
+    daemons (1.1.0)
+    diff-lcs (1.1.2)
+    eventmachine (0.12.10)
+    fastthread (1.0.7)
+    ffi (1.0.6)
+      rake (>= 0.8.7)
+    file-tail (1.0.5)
+      spruz (>= 0.1.0)
+    passenger (3.0.5)
+      daemon_controller (>= 0.2.5)
+      fastthread (>= 1.0.1)
+      file-tail
+      rack
+      rake (>= 0.8.1)
+    rack (1.2.1)
+    rake (0.8.7)
+    rspec (2.0.1)
+      rspec-core (~> 2.0.1)
+      rspec-expectations (~> 2.0.1)
+      rspec-mocks (~> 2.0.1)
+    rspec-core (2.0.1)
+    rspec-expectations (2.0.1)
+      diff-lcs (>= 1.1.2)
+    rspec-mocks (2.0.1)
+      rspec-core (~> 2.0.1)
+      rspec-expectations (~> 2.0.1)
+    spruz (0.2.5)
+    thin (1.2.8)
+      daemons (>= 1.0.9)
+      eventmachine (>= 0.12.6)
+      rack (>= 1.0.0)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  autotest
+  ffi
+  passenger
+  rack
+  rspec
+  thin

data/README.md

@@ -0,0 +1,123 @@
+ruby-perl
+=========
+
+    Ruby and Perl, sitting in a tree K-I-S-S-I-N-G
+
+For rubyists:
+-------------
+
+ruby-perl lets you evaluate and run Perl code within the same binary, without
+any heavy-weight forking of sub-processes. Enjoy the compactness, robustness
+and maintainability of Perl!
+
+For perlists:
+-------------
+
+Run your Perl application over industry-standard, enterprise-grade MRI Ruby,
+Rack and Passenger!
+
+Getting started
+===============
+
+On the command line
+-------------------
+
+Install the gem:
+
+    gem install ruby-perl
+
+Run a Perl program:
+
+    rperl examples/hello.pl
+
+Or play around in the Perl interactive shell:
+
+    rperl -de 0
+
+Web applications
+----------------
+
+You can run your Perl webapp with Rack using the provided Rack adapter:
+
+    thin -R examples/perl.ru
+
+ruby-perl supports [PSGI](http://search.cpan.org/~miyagawa/PSGI-1.03/PSGI.pod)
+(Perl Web Server Gateway Interface Specification); as such it can run any
+webapp written in any conforming framework, such as
+[Mason](http://www.masonhq.com/).
+
+However, for the time you have to provide your own Rackup file. Luckily a
+typical Rackup file for ruby-perl is fairly simple (just take a look at
+[examples/perl.ru](examples/perl.ru) in the repository), and it boils down to:
+
+    run Perl::Rack.new("examples/webapp.psgi")
+
+ruby-perl has been developed with [Thin](http://code.macournoyer.com/thin/)
+in mind, but since [Phusion Passenger](http://www.modrails.com/) is 100%
+compatible with Rack, you can use it too: just stick a config.ru file in your
+document root (together with the mandatory public/ and tmp/ subdirectories)
+and you are ready to go. Read The Fine [Passenger Manual](http://www.modrails.com/documentation/Users%20guide%20Apache.html#_deploying_a_rack_based_ruby_application)
+for more info.
+
+In your own application: evaluating Perl code
+---------------------------------------------
+
+You can embed Perl code directly in your Ruby application in a nice and
+friendly way:
+
+    require 'perl'
+    
+    def foo(arg)
+      Perl.run %Q{$_=#{arg};(1x$_)!~/^1?$|^(11+?)\\1+$/&&print"$_\n"}
+    end
+    
+    foo(42)
+    foo(13)
+
+For additional eye-candy, more styles are supported:
+
+    Perl <<-PERL
+      return 0 if $_[0] =~ 
+      /(?:[\.\-\_]{2,})|(?:@[\.\-\_])|(?:[\.\-\_]@)|(?:\A\.)/;
+      return 1 if $_[0] =~ 
+      /^[\w\.\-\_]+\@\[?[\w\.\-\_]+\.(?:[\w\.\-\_]{2,}|[0-9])\]?$/;
+      return 0;
+    PERL
+
+or:
+
+    Perl do
+      run <<-PERL
+        my @sorted_ips = #sort by ip
+          map substr($_, 4) =>
+            sort map pack('C4' =>
+              split /\./)
+                . $_ => (@unsorted_ips);
+      PERL
+    end
+
+Embedded Perl however has a some pretty big limitation, the biggest being
+that you cannot easily pass data from Ruby to Perl and vice-versa, except
+by string interpolation as shown in the first example.
+
+In your own application: invoking Perl code
+-------------------------------------------
+
+ruby-perl lets you invoke arbitrary Perl code you have loaded or evaluated.
+In other words, you can implement some functionality in Perl and seamlessly
+call it from Ruby:
+
+    require 'perl'
+    
+    Perl do
+      @func = eval %Q{sub { $arg = shift; print "You said: $arg\n"; };}
+      
+      ...
+      
+      call @func, "42", :scalar
+    end
+
+In the previous snippet we first define a Perl `sub` and we assign it to
+the `@func` instance variable; we then call it passing a String. For all
+intents and purposes, `@func` is now a lambda you can pass around and call,
+only it's implemented in Perl.

data/Rakefile

@@ -0,0 +1,5 @@
+require 'rspec/core/rake_task'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/autotest/discover.rb

@@ -0,0 +1 @@
+Autotest.add_discovery { "rspec2" }

data/bin/rperl

@@ -0,0 +1,23 @@
+#! /usr/bin/env ruby
+
+# This allows us to run easily from a git checkout without install.
+def fallback_load_path(path)
+  retried = false
+  begin
+    yield
+  rescue LoadError
+    unless retried
+      $: << path
+      retried = true
+      retry
+    end
+    raise
+  end
+end
+
+fallback_load_path(File.join(File.dirname(__FILE__), '..', 'lib')) do
+  require 'perl'
+  require 'perl/shell'
+end
+
+Perl::Shell.run

data/examples/hello.pl

@@ -0,0 +1 @@
+''=~('(?{'.('_/)@^['^'/]@.*{').'"'.('/+<][}}{|'^']^^${;),^').',$/})')

data/examples/hello.rb

@@ -0,0 +1,9 @@
+require 'perl'
+
+# you can run a Perl program from a string...
+Perl.run "print 'hello world!\n'"
+
+# or better yet, a here-document
+Perl <<-PERL
+  ''=~('(?{'.('_/)@^['^'/]@.*{').'"'.('/+<][}}{|'^']^^${;),^').',$/})')
+PERL

data/examples/hello_block.rb

@@ -0,0 +1,5 @@
+require 'perl'
+
+Perl do
+  run "print 'hello world!\n'"
+end

data/examples/hello_here.rb

@@ -0,0 +1,5 @@
+require 'perl'
+
+Perl <<-PERL
+  print 'hello world!\n'
+PERL

data/examples/passenger/config.ru

@@ -0,0 +1,3 @@
+require 'perl/rack'
+
+run Perl::Rack.new("webapp.psgi")

data/examples/passenger/webapp.psgi

@@ -0,0 +1,16 @@
+my $app = sub {
+  print STDERR "just in app\n";
+  my $env = shift;
+  my @ret;
+
+  print STDERR "\$env = '$env'";
+  while (my ($k, $v) = each %$env) {
+    push(@ret, "<p>key: $k, value: $v.</p>\n");
+  }
+
+  return [
+      '200',
+      [ 'Content-Type' => 'text/plain' ],
+      \@ret, # or IO::Handle-like object
+  ];
+}

data/examples/perl.ru

@@ -0,0 +1,4 @@
+$: << 'lib'
+require 'perl/rack'
+
+run Perl::Rack.new("examples/webapp.psgi")

data/examples/webapp.psgi

@@ -0,0 +1,16 @@
+my $app = sub {
+  print STDERR "just in app\n";
+  my $env = shift;
+  my @ret;
+
+  print STDERR "\$env = '$env'";
+  while (my ($k, $v) = each %$env) {
+    push(@ret, "<p>key: $k, value: $v.</p>\n");
+  }
+
+  return [
+      '200',
+      [ 'Content-Type' => 'text/plain' ],
+      \@ret, # or IO::Handle-like object
+  ];
+}

data/lib/perl.rb

@@ -0,0 +1,43 @@
+require 'rubygems'
+require 'ffi'
+
+require 'perl/ffi_lib'
+require 'perl/common'
+require 'perl/interpreter'
+
+module Perl
+  include Perl::FFILib
+  extend Perl::Common
+
+  @initialized = false
+  @mutex = Mutex.new
+
+  def setup
+    @mutex.synchronize do
+      return if @initialized
+
+      argc, argv = argv_to_ffi
+
+      Perl.Perl_sys_init3(argc, argv, nil)
+
+      at_exit { shutdown }
+      @initialized = true
+    end
+  end
+  module_function :setup
+
+  def shutdown
+    Perl.Perl_sys_term
+    @initialized = false
+  end
+  module_function :shutdown
+
+  def run(args)
+    Interpreter.new.eval(args)
+  end
+  module_function :run
+end
+
+require 'perl/ext/hash'
+require 'perl/ext/object'
+require 'perl/ext/string'

data/lib/perl/common.rb

@@ -0,0 +1,64 @@
+module Perl
+  module Common
+    PERL_EXIT_EXPECTED      = 0x01
+    PERL_EXIT_DESTRUCT_END  = 0x02
+
+    def start
+      Perl.setup
+      argc, argv = embedded_argv_to_ffi
+
+      @my_perl = Perl.perl_alloc
+      Perl.perl_construct(@my_perl)
+
+      Perl.curinterp[:Iexit_flags] |= PERL_EXIT_DESTRUCT_END
+
+      Perl.perl_parse(@my_perl, nil, argc, argv, nil)
+      Perl.perl_run(@my_perl)
+    end
+
+    def stop
+      Perl.perl_destruct(@my_perl)
+      Perl.perl_free(@my_perl)
+
+      @my_perl = nil
+      Perl.PL_curinterp = nil
+    end
+
+    #
+    # Returns a C-style tuple of <argc,argv> corresponding to the real
+    # arguments the application was invoked with.
+    #
+    def argv_to_ffi
+      array_to_ffi(ARGV)
+    end
+
+    #
+    # Returns a C-style tuple of <argc,argv> suitable for running an
+    # embedded Perl interpreter.
+    #
+    def embedded_argv_to_ffi
+      array_to_ffi(%w[-e 0])
+    end
+
+  protected
+    def array_to_ffi(array)
+      strptrs = [].tap do |ptrs|
+        ptrs << FFI::MemoryPointer.from_string("")  # XXX
+        array.each do |arg|
+          ptrs << FFI::MemoryPointer.from_string(arg)
+        end
+        ptrs << nil
+      end
+
+      [strptrs.length-1, array_ptr(strptrs)]
+    end
+
+    def array_ptr(list)
+      FFI::MemoryPointer.new(:pointer, list.length).tap do |argv|
+        list.each_with_index do |p, i|
+          argv[i].put_pointer(0,  p)
+        end
+      end
+    end
+  end
+end

data/lib/perl/ext/hash.rb

@@ -0,0 +1,10 @@
+require 'perl/value/hash'
+
+class Hash
+  #
+  # Returns a pointer suitable for passing to Perl.
+  #
+  def to_perl
+    Perl::Value::Hash.to_perl(self)
+  end
+end

data/lib/perl/ext/object.rb

@@ -0,0 +1,30 @@
+require 'perl/interpreter'
+
+class Object
+  #
+  # Evaluate Perl code.
+  #
+  # You can provide the code as a String:
+  #
+  #    Perl 'print STDERR "hello world\n"'
+  #
+  # An alternative is to pass a block, which will be evaluated in the context
+  # of a Perl::Interpreter instance. This means all Perl::Interpreter methods
+  # will be available, so you can write:
+  #
+  #   Perl do
+  #     load 'test.pl'
+  #     eval 'sub { ... }'
+  #     run 'print "hi there!\n";'
+  #   end
+  #
+  def Perl(args = nil, &block)
+    @_perl ||= Perl::Interpreter.new
+
+    if args
+      @_perl.eval(args)
+    else
+      @_perl.instance_eval(&block)
+    end
+  end
+end