Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ec.rb	2.37 KB	-rw-r--r--
ecpp.rb	2.29 KB	-rw-r--r--
ejava.rb	2.46 KB	-rw-r--r--
ejavascript.rb	2.49 KB	-rw-r--r--
enhanced.rb	1.72 KB	-rw-r--r--
eperl.rb	1.6 KB	-rw-r--r--
ephp.rb	1.55 KB	-rw-r--r--
eruby.rb	2.23 KB	-rw-r--r--
escheme.rb	2.21 KB	-rw-r--r--
optimized.rb	2.63 KB	-rw-r--r--

Code Editor : escheme.rb

##
## $Release: 2.7.0 $
## copyright(c) 2006-2011 kuwata-lab.com all rights reserved.
##

require 'erubis/engine'
require 'erubis/enhancer'

module Erubis

module SchemeGenerator
    include Generator

def self.supported_properties()  # :nodoc:
      return [
              [:func,  '_add',   "function name (ex. 'display')"],
              ]
    end

def init_generator(properties={})
      super
      @escapefunc ||= 'escape'
      @func = properties[:func] || '_add'   # or 'display'
    end

def add_preamble(src)
      return unless @func == '_add'
      src << "(let ((_buf '())) " + \
               "(define (_add x) (set! _buf (cons x _buf))) "
      #src << "(let* ((_buf '())" + \
      #             " (_add (lambda (x) (set! _buf (cons x _buf))))) "
    end

def escape_text(text)
      @table_ ||= { '"'=>'\\"', '\\'=>'\\\\' }
      text.gsub!(/["\\]/) { |m| @table_[m] }
      return text
    end

def escaped_expr(code)
      code.strip!
      return "(#{@escapefunc} #{code})"
    end

def add_text(src, text)
      return if text.empty?
      t = escape_text(text)
      if t[-1] == ?\n
        t[-1, 1] = ''
        src << "(#{@func} \"" << t << "\\n\")\n"
      else
        src << "(#{@func} \"" << t << '")'
      end
    end

def add_stmt(src, code)
      src << code
    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)
      s = (code.strip! || code).gsub(/\"/, '\\"')
      src << "(display \"*** debug: #{s}=\")(display #{code.strip})(display \"\\n\")"
    end

def add_postamble(src)
      return unless @func == '_add'
      src << "\n" unless src[-1] == ?\n
      src << "  (reverse _buf))\n"
    end

end

##
  ## engine for Scheme
  ##
  class Escheme < Basic::Engine
    include SchemeGenerator
  end

class EscapedEscheme < Escheme
    include EscapeEnhancer
  end

#class XmlEscheme < Escheme
  #  include EscapeEnhancer
  #end

class PI::Escheme < PI::Engine
    include SchemeGenerator

def init_converter(properties={})
      @pi = 'scheme'
      super(properties)
    end

end

${this.title}

Code Editor : escheme.rb