rewrite 0.0.1 → 0.0.2

data/lib/rewrite/variables.rb

@@ -0,0 +1,76 @@
+$:.unshift File.dirname(__FILE__)
+
+require 'rubygems'
+require 'parse_tree'
+require 'sexp_processor'
+require 'sexp'
+
+module Rewrite
+    
+  class VariableRewriter < SexpProcessor
+    
+    attr_reader :replacement_sexp
+    
+    def initialize symbol, replacement_sexp
+      @symbol, @replacement_sexp = symbol, replacement_sexp
+      super()
+    end
+    
+    #missing: rewriting assignment. Hmmm.
+    
+    def subprocess (something)
+      process(something) if something
+    end
+    
+    def process_dvar(exp)
+      exp.shift
+      variable = exp.shift
+      if @symbol == variable
+        replacement_sexp # not a deep copy. problem? replace with a block call??
+      else
+        s(:dvar, variable)
+      end
+    end
+    
+    def process_iter(exp) # don't handle subtrees where we redefine the variable, including lambda and proc
+      original = exp.to_a.dup
+      exp.shift
+      callee_expr = exp.shift # we process in our context
+      params_exp = exp.shift
+      block_body = exp.shift
+      params = if params_exp.nil?
+        []
+      elsif params_exp.first == :dasgn || params_exp.first == :dasgn_curr
+        [ params_exp[1] ]
+      elsif params_exp.first == :masgn
+        raise "Can't handle  #{original.inspect}" unless params_exp[1].first == :array
+        params_exp[1][1..-1].map { |assignment| assignment[1] }
+      else
+        raise "Can't handle #{original.inspect}"
+      end
+      if params.include? @symbol
+        s(:iter, subprocess(callee_expr), params_exp, block_body) # we're DONE
+      else
+        s(:iter, subprocess(callee_expr), params_exp, subprocess(block_body)) # we're still in play
+      end
+    end
+    
+  end
+  
+  class RewriteVariablesAsThunkCalls
+    
+    attr_reader :list_of_variables
+    
+    def initialize(*list_of_variables)
+      @list_of_variables = list_of_variables
+    end
+    
+    def process(sexp)
+      list_of_variables().inject(sexp) { |result, variable| 
+        VariableRewriter.new(variable, s(:call, s(:dvar, variable), :call)).process(result)
+      }
+    end
+    
+  end
+  
+end

data/lib/rewrite/version.rb

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

data/lib/rewrite/with.rb

@@ -0,0 +1,49 @@
+$:.unshift File.dirname(__FILE__)
+  
+require 'rubygems'
+require 'ruby2ruby'
+
+module Rewrite
+  
+  module With
+    
+    def self.with(*sexp_processors, &body)
+      rewritten = sexp_processors.flatten.inject(body.to_sexp.last) { |sexp, sexp_processor_parameter|  
+        if sexp_processor_parameter.respond_to?(:new) && sexp_processor_parameter.kind_of?(Class)
+          sexp_processor = sexp_processor_parameter.new
+        else
+          sexp_processor = sexp_processor_parameter
+        end
+        sexp_processor.process(sexp)
+      }
+      rewritten = eval(rewritten.to_s) # i don't know why i need this!!
+      ruby = Ruby2Ruby.new.process(rewritten)
+      eval(ruby, body.binding())
+    end
+      
+    module ClassMethods
+      
+      def with(*sexp_processors, &body)
+        Rewrite::With.with(sexp_processors, &body)
+      end
+      
+    end
+    
+    module InstanceMethods
+      
+      def with(*sexp_processors, &body)
+        Rewrite::With.with(sexp_processors, &body)
+      end
+      
+    end
+    
+    def self.included(receiver)
+      receiver.extend         ClassMethods
+      receiver.send :include, InstanceMethods
+    end
+    
+  end
+  
+  include With
+  
+end

data/lib/rewrite.rb

@@ -0,0 +1,60 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+  
+require 'rubygems'
+require 'ruby2ruby'
+
+Dir["#{File.dirname(__FILE__)}/rewrite/*.rb"].each do |element|
+   require element
+end
+
+module Rewrite
+  
+  module ClassMethods
+  
+    #--
+    # I really want to express this somehow as pattern {
+    #   lambda { _ }
+    # }
+    # and have it extract _ automatically, and somehow also 
+    # use the exact same pattern to compose a sexp, much as
+    # I used to have binary pattern expressions
+    def sexp_for &proc
+      sexp = proc.to_sexp
+      return if sexp.length != 3
+      return if sexp[0] != :proc
+      return unless sexp[1].nil?
+      sexp[2]
+    end
+    
+    def arr_for &proc
+      sexp_for(&proc).to_a
+    end
+    
+  end
+  extend ClassMethods
+      
+  # Provide a symbol that is extremely unlikely to be used elsewhere.
+  # 
+  # Rewriters use this when they need to name something. For example,
+  # Andand converts code like this:
+  #
+  #   numbers.andand.inject(&:+)
+  #
+  # Into:
+  #
+  #  lambda { |__1234567890__|
+  #    if __1234567890__.nil?
+  #      nil
+  #    else
+  #      __1234567890__.inject(&:+)
+  #    end
+  #  }.call(numbers)
+  #
+  # It uses Rewrite.gensym to generate __1234567890__.
+  #
+  def self.gensym
+    :"__#{Time.now.to_i}#{rand(100000)}__"
+  end
+  
+end

data/script/console

@@ -0,0 +1,10 @@
+#!/usr/bin/env ruby
+# File: script/console
+irb = RUBY_PLATFORM =~ /(:?mswin|mingw)/ ? 'irb.bat' : 'irb'
+
+libs =  " -r irb/completion"
+# Perhaps use a console_lib to store any extra methods I may want available in the cosole
+# libs << " -r #{File.dirname(__FILE__) + '/../lib/console_lib/console_logger.rb'}"
+libs <<  " -r #{File.dirname(__FILE__) + '/../lib/rewrite.rb'}"
+puts "Loading rewrite gem"
+exec "#{irb} #{libs} --simple-prompt"

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.join(File.dirname(__FILE__), '..')
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.join(File.dirname(__FILE__), '..')
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/script/txt2html

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby
+
+GEM_NAME = 'rewrite' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'rewrite'
+
+require 'rubygems'
+begin
+  require 'newgem'
+  require 'rubyforge'
+rescue LoadError
+  puts "\n\nGenerating the website requires the newgem RubyGem"
+  puts "Install: gem install newgem\n\n"
+  exit(1)
+end
+require 'redcloth'
+require 'syntax/convertors/html'
+require 'erb'
+require File.dirname(__FILE__) + "/../lib/#{GEM_NAME}/version.rb"
+
+version  = Rewrite::VERSION::STRING
+download = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+def rubyforge_project_id
+  RubyForge.new.autoconfig["group_ids"][RUBYFORGE_PROJECT]
+end
+
+class Fixnum
+  def ordinal
+    # teens
+    return 'th' if (10..19).include?(self % 100)
+    # others
+    case self % 10
+    when 1: return 'st'
+    when 2: return 'nd'
+    when 3: return 'rd'
+    else    return 'th'
+    end
+  end
+end
+
+class Time
+  def pretty
+    return "#{mday}#{mday.ordinal} #{strftime('%B')} #{year}"
+  end
+end
+
+def convert_syntax(syntax, source)
+  return Syntax::Convertors::HTML.for_syntax(syntax).convert(source).gsub(%r!^<pre>|</pre>$!,'')
+end
+
+if ARGV.length >= 1
+  src, template = ARGV
+  template ||= File.join(File.dirname(__FILE__), '/../website/template.html.erb')
+else
+  puts("Usage: #{File.split($0).last} source.txt [template.html.erb] > output.html")
+  exit!
+end
+
+template = ERB.new(File.open(template).read)
+
+title = nil
+body = nil
+File.open(src) do |fsrc|
+  title_text = fsrc.readline
+  body_text_template = fsrc.read
+  body_text = ERB.new(body_text_template).result(binding)
+  syntax_items = []
+  body_text.gsub!(%r!<(pre|code)[^>]*?syntax=['"]([^'"]+)[^>]*>(.*?)</\1>!m){
+    ident = syntax_items.length
+    element, syntax, source = $1, $2, $3
+    syntax_items << "<#{element} class='syntax'>#{convert_syntax(syntax, source)}</#{element}>"
+    "syntax-temp-#{ident}"
+  }
+  title = RedCloth.new(title_text).to_html.gsub(%r!<.*?>!,'').strip
+  body = RedCloth.new(body_text).to_html
+  body.gsub!(%r!(?:<pre><code>)?syntax-temp-(\d+)(?:</code></pre>)?!){ syntax_items[$1.to_i] }
+end
+stat = File.stat(src)
+created = stat.ctime
+modified = stat.mtime
+
+$stdout << template.result(binding)