erbse 0.0.1

data/lib/erbse/engine.rb

@@ -0,0 +1,114 @@
+require 'erbse/generator'
+require 'erbse/converter'
+require 'erbse/evaluator'
+require 'erbse/context'
+
+
+module Erbse
+
+
+  ##
+  ## (abstract) abstract engine class.
+  ## subclass must include evaluator and converter module.
+  ##
+  class Engine
+    #include Evaluator
+    #include Converter
+    #include Generator
+
+    def initialize(input=nil, properties={})
+      #@input = input
+      init_generator(properties)
+      init_converter(properties)
+      init_evaluator(properties)
+      @src    = convert(input) if input
+    end
+
+
+    ##
+    ## convert input string and set it to @src
+    ##
+    def convert!(input)
+      @src = convert(input)
+    end
+
+
+    ##
+    ## load file, write cache file, and return engine object.
+    ## this method create code cache file automatically.
+    ## cachefile name can be specified with properties[:cachename],
+    ## or filname + 'cache' is used as default.
+    ##
+    def self.load_file(filename, properties={})
+      cachename = properties[:cachename] || (filename + '.cache')
+      properties[:filename] = filename
+      timestamp = File.mtime(filename)
+      if test(?f, cachename) && timestamp == File.mtime(cachename)
+        engine = self.new(nil, properties)
+        engine.src = File.read(cachename)
+      else
+        input = File.open(filename, 'rb') {|f| f.read }
+        engine = self.new(input, properties)
+        tmpname = cachename + rand().to_s[1,8]
+        File.open(tmpname, 'wb') {|f| f.write(engine.src) }
+        File.rename(tmpname, cachename)
+        File.utime(timestamp, timestamp, cachename)
+      end
+      engine.src.untaint   # ok?
+      return engine
+    end
+
+
+    ##
+    ## helper method to convert and evaluate input text with context object.
+    ## context may be Binding, Hash, or Object.
+    ##
+    def process(input, context=nil, filename=nil)
+      code = convert(input)
+      filename ||= '(erubis)'
+      if context.is_a?(Binding)
+        return eval(code, context, filename)
+      else
+        context = Context.new(context) if context.is_a?(Hash)
+        return context.instance_eval(code, filename)
+      end
+    end
+
+
+    ##
+    ## helper method evaluate Proc object with contect object.
+    ## context may be Binding, Hash, or Object.
+    ##
+    def process_proc(proc_obj, context=nil, filename=nil)
+      if context.is_a?(Binding)
+        filename ||= '(erubis)'
+        return eval(proc_obj, context, filename)
+      else
+        context = Context.new(context) if context.is_a?(Hash)
+        return context.instance_eval(&proc_obj)
+      end
+    end
+
+
+  end  # end of class Engine
+
+
+  ##
+  ## (abstract) base engine class for Eruby, Eperl, Ejava, and so on.
+  ## subclass must include generator.
+  ##
+  class Basic::Engine < Engine
+    include Evaluator
+    include Basic::Converter
+    include Generator
+  end
+
+
+  class PI::Engine < Engine
+    include Evaluator
+    include PI::Converter
+    include Generator
+  end
+
+
+end

data/lib/erbse/engine/ec.rb

@@ -0,0 +1,117 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module CGenerator
+    include Generator
+
+    def self.supported_properties()  # :nodoc:
+      return [
+              [:indent, '',       "indent spaces (ex. '  ')"],
+              [:out,    'stdout', "output file pointer name"],
+            ]
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= "escape"
+      @indent = properties[:indent] || ''
+      @out = properties[:out] || 'stdout'
+    end
+
+    def add_preamble(src)
+      src << "#line 1 \"#{self.filename}\"\n" if self.filename
+    end
+
+    def escape_text(text)
+      @@table_ ||= { "\r"=>"\\r", "\n"=>"\\n", "\t"=>"\\t", '"'=>'\\"', "\\"=>"\\\\" }
+      text.gsub!(/[\r\n\t"\\]/) { |m| @@table_[m] }
+      return text
+    end
+
+    def escaped_expr(code)
+      return "#{@escapefunc}(#{code.strip}, #{@out})"
+    end
+
+    def add_text(src, text)
+      return if text.empty?
+      src << (src.empty? || src[-1] == ?\n ? @indent : ' ')
+      src << "fputs("
+      i = 0
+      text.each_line do |line|
+        src << "\n" << @indent << '      ' if i > 0
+        i += 1
+        src << '"' << escape_text(line) << '"'
+      end
+      src << ", #{@out});"   #<< (text[-1] == ?\n ? "\n" : "")
+      src << "\n" if text[-1] == ?\n
+    end
+
+    def add_stmt(src, code)
+      src << code
+    end
+
+    def add_expr_literal(src, code)
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << " fprintf(#{@out}, " << code.strip << ');'
+    end
+
+    def add_expr_escaped(src, code)
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << ' ' << escaped_expr(code) << ';'
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      s = nil
+      if code =~ /\A\".*?\"\s*,\s*(.*)/
+        s = $1.gsub(/[%"]/, '\\\1') + '='
+      end
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << " fprintf(stderr, \"*** debug: #{s}\" #{code});"
+    end
+
+    def add_postamble(src)
+      # empty
+    end
+
+  end
+
+
+  ##
+  ## engine for C
+  ##
+  class Ec < Basic::Engine
+    include CGenerator
+  end
+
+
+  class EscapedEc < Ec
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEc < Ec
+  #  include EscapeEnhancer
+  #end
+
+  class PI::Ec < PI::Engine
+    include CGenerator
+
+    def init_converter(properties={})
+      @pi = 'c'
+      super(properties)
+    end
+
+  end
+
+
+end

data/lib/erbse/engine/ecpp.rb

@@ -0,0 +1,113 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module CppGenerator
+    include Generator
+
+    def self.supported_properties()  # :nodoc:
+      return [
+              [:indent, '',       "indent spaces (ex. '  ')"],
+              [:bufvar, '_buf',   "buffer variable name"],
+            ]
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= "escape"
+      @indent = properties[:indent] || ''
+      @bufvar = properties[:bufvar] || '_buf'
+    end
+
+    def add_preamble(src)
+      src << "#line 1 \"#{self.filename}\"\n" if self.filename
+    end
+
+    def escape_text(text)
+      @@table_ ||= { "\r"=>"\\r", "\n"=>"\\n", "\t"=>"\\t", '"'=>'\\"', "\\"=>"\\\\" }
+      text.gsub!(/[\r\n\t"\\]/) { |m| @@table_[m] }
+      return text
+    end
+
+    def escaped_expr(code)
+      return "#{@escapefunc}(#{code.strip})"
+    end
+
+    def add_text(src, text)
+      return if text.empty?
+      src << (src.empty? || src[-1] == ?\n ? @indent : ' ')
+      src << "_buf << "
+      i = 0
+      text.each_line do |line|
+        src << "\n" << @indent << "        " if i > 0
+        i += 1
+        src << '"' << escape_text(line) << '"'
+      end
+      src << ";"   #<< (text[-1] == ?\n ? "\n" : "")
+      src << "\n" if text[-1] == ?\n
+    end
+
+    def add_stmt(src, code)
+      src << code
+    end
+
+    def add_expr_literal(src, code)
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << " _buf << (" << code.strip << ");"
+    end
+
+    def add_expr_escaped(src, code)
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << ' ' << escaped_expr(code) << ';'
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << " std::cerr << \"*** debug: #{code.gsub(/(")/, '\\\&')}=\" << (#{code});"
+    end
+
+    def add_postamble(src)
+      # empty
+    end
+
+  end
+
+
+  ##
+  ## engine for C
+  ##
+  class Ecpp < Basic::Engine
+    include CppGenerator
+  end
+
+
+  class EscapedEcpp < Ecpp
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEcpp < Ecpp
+  #  include EscapeEnhancer
+  #end
+
+  class PI::Ecpp < PI::Engine
+    include CppGenerator
+
+    def init_converter(properties={})
+      @pi = 'cpp'
+      super(properties)
+    end
+
+  end
+
+
+end

data/lib/erbse/engine/ejava.rb

@@ -0,0 +1,110 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module JavaGenerator
+    include Generator
+
+    def self.supported_properties()   # :nodoc:
+      return [
+              [:indent,   '',       "indent spaces (ex. '  ')"],
+              [:bufvar,   '_buf',   "output buffer variable name"],
+              [:bufclass, 'StringBuffer', "output buffer class (ex. 'StringBuilder')"],
+            ]
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= 'escape'
+      @indent = properties[:indent] || ''
+      @bufvar = properties[:bufvar] || '_buf'
+      @bufclass = properties[:bufclass] || 'StringBuffer'
+    end
+
+    def add_preamble(src)
+      src << "#{@indent}#{@bufclass} #{@bufvar} = new #{@bufclass}();"
+    end
+
+    def escape_text(text)
+      @@table_ ||= { "\r"=>"\\r", "\n"=>"\\n", "\t"=>"\\t", '"'=>'\\"', "\\"=>"\\\\" }
+      return text.gsub!(/[\r\n\t"\\]/) { |m| @@table_[m] } || text
+    end
+
+    def add_text(src, text)
+      return if text.empty?
+      src << (src.empty? || src[-1] == ?\n ? @indent : ' ')
+      src << @bufvar << ".append("
+      i = 0
+      text.each_line do |line|
+        src << "\n" << @indent << '          + ' if i > 0
+        i += 1
+        src << '"' << escape_text(line) << '"'
+      end
+      src << ");" << (text[-1] == ?\n ? "\n" : "")
+    end
+
+    def add_stmt(src, code)
+      src << code
+    end
+
+    def add_expr_literal(src, code)
+      src << @indent if src.empty? || src[-1] == ?\n
+      code.strip!
+      src << " #{@bufvar}.append(#{code});"
+    end
+
+    def add_expr_escaped(src, code)
+      add_expr_literal(src, escaped_expr(code))
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      src << @indent if src.empty? || src[-1] == ?\n
+      src << " System.err.println(\"*** debug: #{code}=\"+(#{code}));"
+    end
+
+    def add_postamble(src)
+      src << "\n" if src[-1] == ?;
+      src << @indent << "return " << @bufvar << ".toString();\n"
+      #src << @indent << "System.out.print(" << @bufvar << ".toString());\n"
+    end
+
+  end
+
+
+  ##
+  ## engine for Java
+  ##
+  class Ejava < Basic::Engine
+    include JavaGenerator
+  end
+
+
+  class EscapedEjava < Ejava
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEjava < Ejava
+  #  include EscapeEnhancer
+  #end
+
+  class PI::Ejava < PI::Engine
+    include JavaGenerator
+
+    def init_converter(properties={})
+      @pi = 'java'
+      super(properties)
+    end
+
+  end
+
+end