require 'socket'

module SocketSpecs
  # helper to get the hostname associated to 127.0.0.1
  def self.hostname
    # Calculate each time, without caching, since the result might
    # depend on things like do_not_reverse_lookup mode, which is
    # changing from test to test
    Socket.getaddrinfo("127.0.0.1", nil)[0][2]
  end

  def self.hostnamev6
    Socket.getaddrinfo("::1", nil)[0][2]
  end

  def self.addr(which=:ipv4)
    case which
    when :ipv4
      host = "127.0.0.1"
    when :ipv6
      host = "::1"
    end
    Socket.getaddrinfo(host, nil)[0][3]
  end

  def self.port
    43191
  end

  def self.str_port
    "43191"
  end

  def self.local_port
    @base ||= $$
    @base += 1
    local_port = (@base % (0xffff-1024)) + 1024
    local_port += 1 if local_port == port
    local_port
  end

  def self.sockaddr_in(port, host)
    Socket::SockAddr_In.new(Socket.sockaddr_in(port, host))
  end

  def self.socket_path
    tmp("unix_server_spec.socket", false)
  end

  # TCPServer that does not block waiting for connections. Each
  # connection is serviced in a separate thread. The data read
  # from the socket is echoed back. The server is shutdown when
  # the spec process exits.
  class SpecTCPServer
    @spec_server = nil

    def self.start(host=nil, port=nil, logger=nil)
      return if @spec_server

      @spec_server = new host, port, logger
      @spec_server.start

      at_exit do
        SocketSpecs::SpecTCPServer.shutdown
      end
    end

    def self.get
      @spec_server
    end

    # Clean up any waiting handlers.
    def self.cleanup
      @spec_server.cleanup if @spec_server
    end

    # Exit completely.
    def self.shutdown
      @spec_server.shutdown if @spec_server
    end

    attr_accessor :hostname, :port, :logger

    def initialize(host=nil, port=nil, logger=nil)
      @hostname = host || SocketSpecs.hostname
      @port = port || SocketSpecs.port
      @logger = logger
      @cleanup = false
      @shutdown = false
      @accepted = false
      @main = nil
      @server = nil
      @threads = []
    end

    def start
      @main = Thread.new do
        log "SpecTCPServer starting on #{@hostname}:#{@port}"
        @server = TCPServer.new @hostname, @port

        wait_for @server do
          socket = @server.accept
          log "SpecTCPServer accepted connection: #{socket}"
          service socket

          @accepted = true
        end
      end

      Thread.pass until @server
    end

    def service(socket)
      thr = Thread.new do
        begin
          wait_for socket do
            break if cleanup?

            data = socket.recv(1024)
            break if data.empty?
            log "SpecTCPServer received: #{data.inspect}"

            break if data == "QUIT"

            socket.send data, 0
          end
        ensure
          socket.close unless socket.closed?
        end
      end

      @threads << thr
    end

    def wait_for(io)
      return unless io

      loop do
        read, _, _ = IO.select([io], [], [], 0.25)
        return false if shutdown?
        yield if read
      end
    end

    def shutdown?
      @shutdown
    end

    def cleanup?
      @cleanup
    end

    def cleanup
      @cleanup = true
      log "SpecTCPServer cleaning up"

      @threads.each { |thr| thr.join }
      @cleanup = false
    end

    def shutdown
      @shutdown = true
      log "SpecTCPServer shutting down"

      @threads.each { |thr| thr.join }
      @main.join
      @server.close if @accepted and !@server.closed?
    end

    def log(message)
      @logger.puts message if @logger
    end
  end
end