erbse 0.0.1

data/lib/erbse/engine/ejavascript.rb

@@ -0,0 +1,119 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module JavascriptGenerator
+    include Generator
+
+    def self.supported_properties()   # :nodoc:
+      list = []
+      #list << [:indent,   '',       "indent spaces (ex. '  ')"]
+      #list << [:bufvar,      '_buf',   "output buffer variable name"]
+      list << [:docwrite, true,     "use 'document.write()' when true"]
+      return list
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= 'escape'
+      @indent = properties[:indent] || ''
+      @bufvar = properties[:bufvar] || '_buf'
+      @docwrite = properties[:docwrite] != false  # '!= false' will be removed in the next release
+    end
+
+    def add_preamble(src)
+      src << "#{@indent}var #{@bufvar} = [];"
+    end
+
+    def escape_text(text)
+      @@table_ ||= { "\r"=>"\\r", "\n"=>"\\n\\\n", "\t"=>"\\t", '"'=>'\\"', "\\"=>"\\\\" }
+      return text.gsub!(/[\r\n\t"\\]/) { |m| @@table_[m] } || text
+    end
+
+    def add_indent(src, indent)
+      src << (src.empty? || src[-1] == ?\n ? indent : ' ')
+    end
+
+    def add_text(src, text)
+      return if text.empty?
+      add_indent(src, @indent)
+      src << @bufvar << '.push("'
+      s = escape_text(text)
+      if s[-1] == ?\n
+        s[-2, 2] = ''
+        src << s << "\");\n"
+      else
+        src << s << "\");"
+      end
+    end
+
+    def add_stmt(src, code)
+      src << code
+    end
+
+    def add_expr_literal(src, code)
+      add_indent(src, @indent)
+      code.strip!
+      src << "#{@bufvar}.push(#{code});"
+    end
+
+    def add_expr_escaped(src, code)
+      add_expr_literal(src, escaped_expr(code))
+    end
+
+    def add_expr_debug(src, code)
+      add_indent(src, @indent)
+      code.strip!
+      src << "alert(\"*** debug: #{code}=\"+(#{code}));"
+    end
+
+    def add_postamble(src)
+      src << "\n" if src[-1] == ?;
+      if @docwrite
+        src << @indent << 'document.write(' << @bufvar << ".join(\"\"));\n"
+      else
+        src << @indent << @bufvar << ".join(\"\");\n"
+      end
+    end
+
+  end
+
+
+  ##
+  ## engine for JavaScript
+  ##
+  class Ejavascript < Basic::Engine
+    include JavascriptGenerator
+  end
+
+
+  class EscapedEjavascript < Ejavascript
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEjavascript < Ejavascript
+  #  include EscapeEnhancer
+  #end
+
+
+  class PI::Ejavascript < PI::Engine
+    include JavascriptGenerator
+
+    def init_converter(properties={})
+      @pi = 'js'
+      super(properties)
+    end
+
+  end
+
+
+end

data/lib/erbse/engine/enhanced.rb

@@ -0,0 +1,126 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/enhancer'
+require 'erubis/engine/eruby'
+
+
+module Erubis
+
+
+  #--
+  ## moved to engine/ruby.rb
+  #class EscapedEruby < Eruby
+  #  include EscapeEnhancer
+  #end
+  #++
+
+
+  #--
+  ### (obsolete)
+  #class FastEruby < Eruby
+  #  include FastEnhancer
+  #end
+  #++
+
+
+  class StdoutEruby < Eruby
+    include StdoutEnhancer
+  end
+
+
+  class PrintOutEruby < Eruby
+    include PrintOutEnhancer
+  end
+
+
+  class PrintEnabledEruby < Eruby
+    include PrintEnabledEnhancer
+  end
+
+
+  class ArrayEruby < Eruby
+    include ArrayEnhancer
+  end
+
+
+  class ArrayBufferEruby < Eruby
+    include ArrayBufferEnhancer
+  end
+
+
+  class StringBufferEruby < Eruby
+    include StringBufferEnhancer
+  end
+
+
+  class StringIOEruby < Eruby
+    include StringIOEnhancer
+  end
+
+
+  class ErboutEruby < Eruby
+    include ErboutEnhancer
+  end
+
+
+  class NoTextEruby < Eruby
+    include NoTextEnhancer
+  end
+
+
+  class NoCodeEruby < Eruby
+    include NoCodeEnhancer
+  end
+
+
+  class SimplifiedEruby < Eruby
+    include SimplifyEnhancer
+  end
+
+
+  class StdoutSimplifiedEruby < Eruby
+    include StdoutEnhancer
+    include SimplifyEnhancer
+  end
+
+
+  class PrintOutSimplifiedEruby < Eruby
+    include PrintOutEnhancer
+    include SimplifyEnhancer
+  end
+
+
+  class BiPatternEruby < Eruby
+    include BiPatternEnhancer
+  end
+
+
+  class PercentLineEruby < Eruby
+    include PercentLineEnhancer
+  end
+
+
+  class PrefixedLineEruby < Eruby
+    include PrefixedLineEnhancer
+  end
+
+
+  class HeaderFooterEruby < Eruby
+    include HeaderFooterEnhancer
+  end
+
+
+  class DeleteIndentEruby < Eruby
+    include DeleteIndentEnhancer
+  end
+
+
+  class InterpolationEruby < Eruby
+    include InterpolationEnhancer
+  end
+
+
+end

data/lib/erbse/engine/eperl.rb

@@ -0,0 +1,95 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module PerlGenerator
+    include Generator
+
+    def self.supported_properties()  # :nodoc:
+      return [
+              [:func, 'print', "function name"],
+              ]
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= 'encode_entities'
+      @func = properties[:func] || 'print'
+    end
+
+    def add_preamble(src)
+      src << "use HTML::Entities; ";
+    end
+
+    def escape_text(text)
+      return text.gsub!(/['\\]/, '\\\\\&') || text
+    end
+
+    def add_text(src, text)
+      src << @func << "('" << escape_text(text) << "'); " unless text.empty?
+    end
+
+    def add_expr_literal(src, code)
+      code.strip!
+      src << @func << "(" << code << "); "
+    end
+
+    def add_expr_escaped(src, code)
+      add_expr_literal(src, escaped_expr(code))
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      s = code.gsub(/\'/, "\\'")
+      src << @func << "('*** debug: #{code}=', #{code}, \"\\n\");"
+    end
+
+    def add_stmt(src, code)
+      src << code
+    end
+
+    def add_postamble(src)
+      src << "\n" unless src[-1] == ?\n
+    end
+
+  end
+
+
+  ##
+  ## engine for Perl
+  ##
+  class Eperl < Basic::Engine
+    include PerlGenerator
+  end
+
+
+  class EscapedEperl < Eperl
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEperl < Eperl
+  #  include EscapeEnhancer
+  #end
+
+
+  class PI::Eperl < PI::Engine
+    include PerlGenerator
+
+    def init_converter(properties={})
+      @pi = 'perl'
+      super(properties)
+    end
+
+  end
+
+
+end

data/lib/erbse/engine/ephp.rb

@@ -0,0 +1,99 @@
+##
+## $Release: 2.7.0 $
+## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
+##
+
+require 'erubis/engine'
+require 'erubis/enhancer'
+
+
+module Erubis
+
+
+  module PhpGenerator
+    include Generator
+
+    def self.supported_properties()  # :nodoc:
+      return []
+    end
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= 'htmlspecialchars'
+    end
+
+    def add_preamble(src)
+      # empty
+    end
+
+    def escape_text(text)
+      return text.gsub!(/<\?xml\b/, '<<?php ?>?xml') || text
+    end
+
+    def add_text(src, text)
+      src << escape_text(text)
+    end
+
+    def add_expr_literal(src, code)
+      code.strip!
+      src << "<?php echo #{code}; ?>"
+    end
+
+    def add_expr_escaped(src, code)
+      add_expr_literal(src, escaped_expr(code))
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      s = code.gsub(/\'/, "\\'")
+      src << "<?php error_log('*** debug: #{s}='.(#{code}), 0); ?>"
+    end
+
+    def add_stmt(src, code)
+      src << "<?php"
+      src << " " if code[0] != ?\ #
+      if code[-1] == ?\n
+        code.chomp!
+        src << code << "?>\n"
+      else
+        src << code << "?>"
+      end
+    end
+
+    def add_postamble(src)
+      # empty
+    end
+
+  end
+
+
+  ##
+  ## engine for PHP
+  ##
+  class Ephp < Basic::Engine
+    include PhpGenerator
+  end
+
+
+  class EscapedEphp < Ephp
+    include EscapeEnhancer
+  end
+
+
+  #class XmlEphp < Ephp
+  #  include EscapeEnhancer
+  #end
+
+
+  class PI::Ephp < PI::Engine
+    include PhpGenerator
+
+    def init_converter(properties={})
+      @pi = 'php'
+      super(properties)
+    end
+
+  end
+
+
+end

data/lib/erbse/engine/eruby.rb

@@ -0,0 +1,119 @@
+require 'erbse/enhancer'
+
+
+module Erbse
+
+
+  ##
+  ## code generator for Ruby
+  ##
+  module RubyGenerator
+    include Generator
+    #include ArrayBufferEnhancer
+    include StringBufferEnhancer
+
+    def init_generator(properties={})
+      super
+      @escapefunc ||= "Erubis::XmlHelper.escape_xml"
+      @bufvar     = properties[:bufvar] || "_buf"
+    end
+
+    def self.supported_properties()  # :nodoc:
+      return []
+    end
+
+    def escape_text(text)
+      text.gsub(/['\\]/, '\\\\\&')   # "'" => "\\'",  '\\' => '\\\\'
+    end
+
+    def escaped_expr(code)
+      return "#{@escapefunc}(#{code})"
+    end
+
+    #--
+    #def add_preamble(src)
+    #  src << "#{@bufvar} = [];"
+    #end
+    #++
+
+    def add_text(src, text)
+      src << " #{@bufvar} << '" << escape_text(text) << "';" unless text.empty?
+    end
+
+    def add_stmt(src, code)
+      #src << code << ';'
+      src << code
+      src << ';' unless code[-1] == ?\n
+    end
+
+    def add_expr_literal(src, code)
+      src << " #{@bufvar} << (" << code << ').to_s;'
+    end
+
+    def add_expr_escaped(src, code)
+      src << " #{@bufvar} << " << escaped_expr(code) << ';'
+    end
+
+    def add_expr_debug(src, code)
+      code.strip!
+      s = (code.dump =~ /\A"(.*)"\z/) && $1
+      src << ' $stderr.puts("*** debug: ' << s << '=#{(' << code << ').inspect}");'
+    end
+
+    #--
+    #def add_postamble(src)
+    #  src << "\n#{@bufvar}.join\n"
+    #end
+    #++
+
+  end
+
+
+  ##
+  ## engine for Ruby
+  ##
+  class Eruby < Basic::Engine
+    include RubyEvaluator
+    include RubyGenerator
+  end
+
+
+  ##
+  ## fast engine for Ruby
+  ##
+  class FastEruby < Eruby
+    include InterpolationEnhancer
+  end
+
+
+  ##
+  ## swtich '<%= %>' to escaped and '<%== %>' to not escaped
+  ##
+  class EscapedEruby < Eruby
+    include EscapeEnhancer
+  end
+
+
+  ##
+  ## sanitize expression (<%= ... %>) by default
+  ##
+  ## this is equivalent to EscapedEruby and is prepared only for compatibility.
+  ##
+  class XmlEruby < Eruby
+    include EscapeEnhancer
+  end
+
+
+  class PI::Eruby < PI::Engine
+    include RubyEvaluator
+    include RubyGenerator
+
+    def init_converter(properties={})
+      @pi = 'rb'
+      super(properties)
+    end
+
+  end
+
+
+end