eval_macro.cr

puts `crystal eval "#{ARGV[0]}"`

macros.cr

module Makrokode
  macro crystal_macro(*args, &block)
    {% arr = "" %}
    {% for a,i in args %}
      {% arr += "#{a.id}" %}
      {% arr += "," if i < args.size-1 %}
    {% end %}
    {% arr += "" %}
    {%
      body = "#{yield}".id
      str = "def m(*args); #{body.id}; end; m(#{arr.id})".gsub(/"/, "\\\"")
      x = run("./makrokode/eval_macro.cr", str)
    %}
    puts {{str}}
    {{x}}
  end
end

makrokode_spec.cr

require "./spec_helper"

describe Makrokode do
  it "works" do
    f = Makrokode.crystal_macro({1,2,{"3",{4}}}) do
      #puts "{"+args[0].to_s.gsub("{", "").gsub("}", "")+"}"
      puts args[0]
    end

    p typeof(f)
    p f
  end
end