使用Ruby解析Tcl DSL

proc foo {name} {
  puts \"Foo --> $name\"
}    

foo bar

foo

Foo --> bar

bar

def foo(name)
  puts \"Foo --> #{name}\"
end

tcl = <<-TCL.gsub(/^\\s+/, \"\").chop
  foo bar
TCL
instance_eval(tcl)

bar

def method_missing(meth, *args)
    puts meth.to_s + \" --> args.to_s
end

to_hash --> []
bar --> []
foo --> [nil]

.puts

nil

irb(main):003:0> puts \"42\"
42
=> nil

def foo(name)
  puts \"Foo --> #{name}\"
end

def method_missing(meth, *args)
     meth.to_s unless meth.to_s  == \"to_hash\"
end

tcl = <<-TCL.gsub(/^\\s+/, \"\").chop
  foo bar
TCL

instance_eval(tcl)

=> Foo --> bar

class TCL
  class << self
    alias run instance_eval
    def proc(n, &b)
      self.class.__send__(:define_method, n, &b)
    end
    def method_missing(n, *a, &b)
      n.to_s
    end
  end
end

TCL.run do

  proc(:foo) { |name|
    puts \"Foo --> #{name}\"
  }

  foo bar

end

# prints Foo --> bar