module RBS::Prototype::Helpers

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 80
def any_node?(node, nodes: [], &block)
  if yield(node)
    nodes << node
  end

  each_child node do |child|
    any_node? child, nodes: nodes, &block
  end

  nodes.empty? ? nil : nodes
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 104
def args_from_node(args_node)
  args_node&.children || [0, nil, nil, nil, 0, nil, nil, nil, nil, nil]
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 6
def block_from_body(node)
  _, args_node, body_node = node.children

  _pre_num, _pre_init, _opt, _first_post, _post_num, _post_init, _rest, _kw, _kwrest, block = args_from_node(args_node)

  method_block = nil

  if block
    method_block = Types::Block.new(
      # HACK: The `block` is :& on `def m(...)` syntax.
      #       In this case the block looks optional in most cases, so it marks optional.
      #       In other cases, we can't determine which is required or optional, so it marks required.
      required: block != :&,
      type: Types::Function.empty(untyped)
    )
  end

  if body_node
    if (yields = any_node?(body_node) {|n| n.type == :YIELD })
      method_block = Types::Block.new(
        required: true,
        type: Types::Function.empty(untyped)
      )

      yields.each do |yield_node|
        array_content = yield_node.children[0]&.children&.compact || []

        positionals, keywords = if keyword_hash?(array_content.last)
                                  [array_content.take(array_content.size - 1), array_content.last]
                                else
                                  [array_content, nil]
                                end

        if (diff = positionals.size - method_block.type.required_positionals.size) > 0
          diff.times do
            method_block.type.required_positionals << Types::Function::Param.new(
              type: untyped,
              name: nil
            )
          end
        end

        if keywords
          keywords.children[0].children.each_slice(2) do |key_node, value_node|
            if key_node
              key = key_node.children[0]
              method_block.type.required_keywords[key] ||=
                Types::Function::Param.new(
                  type: untyped,
                  name: nil
                )
            end
          end
        end
      end
    end
  end

  method_block
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 67
def each_child(node, &block)
  each_node node.children, &block
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 71
def each_node(nodes)
  nodes.each do |child|
    if child.is_a?(RubyVM::AbstractSyntaxTree::Node)
      yield child
    end
  end
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 92
def keyword_hash?(node)
  if node
    if node.type == :HASH
      node.children[0].children.compact.each_slice(2).all? {|key, _|
        key.type == :LIT && key.children[0].is_a?(Symbol)
      }
    end
  end
end

# File rbs-2.1.0/lib/rbs/prototype/helpers.rb, line 108
def untyped
  @untyped ||= Types::Bases::Any.new(location: nil)
end