#region MIT License
/**
 * WebSocketServer.cs
 *
 * A C# implementation of a WebSocket protocol server.
 *
 * The MIT License
 *
 * Copyright (c) 2012 sta.blockhead
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
 * THE SOFTWARE.
 */
#endregion

using System;
using System.Collections;
using System.Collections.Generic;
using System.Diagnostics;
using System.Net;
using System.Net.Sockets;
using System.Threading;
using WebSocketSharp.Frame;

namespace WebSocketSharp.Server {

  public class WebSocketServer<T>
    where T : WebSocketService, new()
  {
    #region Fields

    private Thread                               _acceptClientThread;
    private bool                                 _isSelfHost;
    private Dictionary<string, WebSocketService> _services;
    private TcpListener                          _tcpListener;
    private Uri                                  _uri;

    #endregion

    #region Internal Constructor

    internal WebSocketServer()
    {
      _services   = new Dictionary<string, WebSocketService>();
      _isSelfHost = false;
    }

    #endregion

    #region Public Constructors

    public WebSocketServer(string url)
    {
      _uri = new Uri(url);
      if (!isValidScheme(_uri))
      {
        var msg = "Unsupported WebSocket URI scheme: " + _uri.Scheme;
        throw new ArgumentException(msg);
      }

      var host = _uri.DnsSafeHost;
      var ips  = Dns.GetHostAddresses(host);
      if (ips.Length == 0)
      {
        var msg = "Invalid WebSocket URI host: " + host;
        throw new ArgumentException(msg);
      }

      var scheme = _uri.Scheme;
      var port   = _uri.Port;
      if (port <= 0)
      {
        port = 80;
        if (scheme == "wss")
          port = 443;
      }

      _tcpListener = new TcpListener(ips[0], port);
      _services    = new Dictionary<string, WebSocketService>();
      _isSelfHost  = true;
    }

    public WebSocketServer(int port)
      : this(port, "/")
    {
    }

    public WebSocketServer(int port, string absPath)
    {
      _uri = new Uri(absPath, UriKind.Relative);

      if (port <= 0)
        port = 80;

      _tcpListener = new TcpListener(IPAddress.Any, port);
      _services    = new Dictionary<string, WebSocketService>();
      _isSelfHost  = true;
    }

    #endregion

    #region Properties

    public IPAddress Address
    {
      get { return Endpoint.Address; }
    }

    public IPEndPoint Endpoint
    {
      get { return (IPEndPoint)_tcpListener.LocalEndpoint; }
    }

    public bool IsSelfHost {
      get { return _isSelfHost; }
    }

    public int Port
    {
      get { return Endpoint.Port; }
    }

    public string Url
    {
      get { return _uri.ToString(); }
    }

    #endregion

    #region Events

    public event EventHandler<ErrorEventArgs> OnError;

    #endregion

    #region Private Methods

    private void acceptClient()
    {
      while (true)
      {
        try {
          var client = _tcpListener.AcceptTcpClient();
          startService(client);
        }
        catch (SocketException)
        {
          // TcpListener has been stopped.
          break;
        }
        catch (Exception ex)
        {
          error(ex.Message);
          break;
        }
      }
    }

    private void error(string message)
    {
      #if DEBUG
      var callerFrame = new StackFrame(1);
      var caller      = callerFrame.GetMethod();
      Console.WriteLine("WSSV: Error@{0}: {1}", caller.Name, message);
      #endif
      OnError.Emit(this, new ErrorEventArgs(message));
    }

    private bool isValidScheme(Uri uri)
    {
      var scheme = uri.Scheme;
      if (scheme == "ws" || scheme == "wss")
        return true;

      return false;
    }

    private void startAcceptClientThread()
    {
      _acceptClientThread = new Thread(new ThreadStart(acceptClient)); 
      _acceptClientThread.IsBackground = true;
      _acceptClientThread.Start();
    }

    private void startService(TcpClient client)
    {
      WaitCallback startSv = (state) =>
      {
        try {
          var socket = new WebSocket(_uri, client);
          BindWebSocket(socket);
        }
        catch (Exception ex)
        {
          error(ex.Message);
        }
      };
      ThreadPool.QueueUserWorkItem(startSv);
    }

    #endregion

    #region Public Methods

    public void BindWebSocket(WebSocket socket)
    {
      T service = new T();
      service.Bind(socket, _services);
      service.Start();
    }

    public void Start()
    {
      if (!_isSelfHost)
        return;

      _tcpListener.Start();
      startAcceptClientThread();
    }

    public void Stop()
    {
      if (_isSelfHost)
      {
        _tcpListener.Stop();
        _acceptClientThread.Join(5 * 1000);
      }

      StopServices();
    }

    public void StopServices()
    {
      StopServices(CloseStatusCode.NORMAL, String.Empty);
    }

    public void StopServices(CloseStatusCode code, string reason)
    {
      lock (((ICollection)_services).SyncRoot)
      {
        foreach (WebSocketService service in _services.Values)
          service.Stop(code, reason);
      }
    }

    #endregion
  }
}