class Opal::Nodes::ZsuperNode

def block_name
  case def_scope
  when Opal::Nodes::IterNode
    def_scope.block_name
  when Opal::Nodes::DefNode
    def_scope.block_name
  else
    raise "Don't know what to do with super in the scope #{def_scope}"
  end
end

def compile
  if def_scope
    implicit_args = implicit_arglist
    # If the method we're in has a block and we're using a default super call with no args, we need to grab the block
    # If an iter (block via braces) is provided, that takes precedence
    if block_name && !iter
      block_pass = s(:block_pass, s(:lvar, block_name))
      implicit_args << block_pass
    end
    @arglist = s(:arglist, *implicit_args)
  end
  compile_using_send
end

def implicit_arglist
  args = []
  kwargs = []
  same_arg_counter = Hash.new(0)
  def_scope.original_args.children.each do |sexp|
    arg_name = sexp.meta[:arg_name]
    case sexp.type
    when :arg, :optarg
      arg_node = s(:lvar, arg_name)
      #   def m(_, _)
      # is compiled to
      #   function $$m(_, __$2)
      # See Opal::Node::ArgsNode
      if arg_name[0] == '_'
        same_arg_counter[arg_name] += 1
        arg_node = s(:js_tmp, "#{arg_name}_$#{same_arg_counter[arg_name]}") if same_arg_counter[arg_name] > 1
      end
      args << arg_node
    when :restarg
      arg_node = arg_name ? s(:lvar, arg_name) : s(:js_tmp, '$rest_arg')
      args << s(:splat, arg_node)
    when :kwarg, :kwoptarg
      kwargs << s(:pair, s(:sym, arg_name), s(:lvar, arg_name))
    when :kwrestarg
      arg_node = arg_name ? s(:lvar, arg_name) : s(:js_tmp, '$kw_rest_arg')
      kwargs << s(:kwsplat, arg_node)
    end
  end
  args << s(:hash, *kwargs) unless kwargs.empty?
  args
end

def implicit_arguments_param
  'true'
end

def initialize(*)
  super
  # preserve a block if we have one already but otherwise, assume a block is coming from higher
  # up the chain
  unless iter.type == :iter
    # Need to support passing block up even if it's not referenced in this method at all
    scope.uses_block!
    @iter = s(:js_tmp, '$iter')
  end
end