class Ruby2Ruby

# File lib/ruby2ruby.rb, line 377
def __var name
  case context[1]
  when /_pat$/ then
    "^#{name}"
  when :in then
    "^#{name}"
  else
    name.to_s
  end
end

# File lib/ruby2ruby.rb, line 1316
def cond_loop(exp, name)
  _, cond, body, head_controlled = exp

  cond = process cond
  body = process body

  body = indent(body).chomp if body

  code = []
  if head_controlled then
    code << "#{name} #{cond} do"
    code << body if body
    code << "end"
  else
    code << "begin"
    code << body if body
    code << "end #{name} #{cond}"
  end

  code.join("\n")
end

# File lib/ruby2ruby.rb, line 1341
def dthing_escape type, lit
  # TODO: this needs more testing
  case type
  when :dregx then
    lit.gsub(/(\A|[^\\])\//, '\1\/')
  when :dstr, :dsym then
    lit.dump[1..-2]
  when :dxstr then
    lit.gsub(/`/, '\`')
  else
    raise "unsupported type #{type.inspect}"
  end
end

# File lib/ruby2ruby.rb, line 1358
def indent s
  s.to_s.split(/\n/).map{|line| @indent + line}.join("\n")
end

# File lib/ruby2ruby.rb, line 1365
def parenthesize exp
  case context[1]
  when nil, :defn, :defs, :class, :sclass, :if, :iter, :resbody, :when, :while then
    exp
  else
    "(#{exp})"
  end
end

# File lib/ruby2ruby.rb, line 547
def process_forward_args exp
  "..."
end

# File lib/ruby2ruby.rb, line 796
def process_kwsplat(exp)
  _, kw = exp
  "**#{process kw}"
end

# File lib/ruby2ruby.rb, line 1377
def re_opt options
  bits = (0..8).map { |n| options[n] * 2**n }
  bits.delete 0
  bits.map { |n| Regexp::CODES[n] }.join
end

# File lib/ruby2ruby.rb, line 1386
def splat(sym)
  :"*#{sym}"
end

# File lib/ruby2ruby.rb, line 1393
def util_dthing(type, exp)
  _, str, *rest = exp

  # first item in sexp is a string literal
  str = dthing_escape(type, str)

  rest = rest.map { |pt|
    case pt.sexp_type
    when :str then
      dthing_escape(type, pt.last)
    when :evstr then
      '#{%s}' % [process(pt)]
    else
      raise "unknown type: #{pt.inspect}"
    end
  }

  [str, rest].join
end

# File lib/ruby2ruby.rb, line 1416
def util_module_or_class exp, is_class = false
  result = []

  _, name, *body = exp
  superk = body.shift if is_class

  name = process name if Sexp === name

  result << name

  if superk then
    superk = process superk
    result << " < #{superk}" if superk
  end

  result << "\n"

  body = body.map { |sexp|
    process(sexp).chomp
  }

  body = unless body.empty? then
           indent(body.join("\n\n")) + "\n"
         else
           ""
         end

  result << body
  result << "end"

  result.join
end