Array.prototype.permutation = (count, callback) ->
  permut = (arr, result) ->
    if result.length is count
      callback result
      return
    for i,index in arr
      return if arr.length - index + result.length < count
      _arr = arr[(index+1)...(arr.length)]
      _result = result.concat()
      _result.push i
      permut _arr, _result
  permut @, []


class QuerySuggester
  constructor: ->
    @count = {}
    setInterval @suggest, 2000

  push: (tuple) ->
    keys = []
    for key in Object.keys(tuple)
      if typeof tuple[key] is 'string'
        keys.push key
    for n in [1..2]
      keys.permutation n, (keys) =>
        _tuple = {}
        for key in keys
          _tuple[key] = tuple[key]
        name = JSON.stringify _tuple
        unless @count[name]
          @count[name] = 1
        else
          @count[name] += 1

  suggest: =>
    count = {}
    for k,v of @count
      if !count[v] or (count[v].length < k.length)
        count[v-(0.001*k.length)] = k
    results = []
    for k in Object.keys(count).sort( (a,b) -> a < b )
      results.push JSON.parse count[k]
    if typeof @on_suggest is 'function'
      @on_suggest results

  onSuggest: (callback) ->
    if typeof callback is 'function'
      @on_suggest = callback


socket = io.connect("#{location.protocol}//#{location.host}")
window.linda = new Linda().connect(socket)
window.ts = linda.tuplespace(name)
window.query_suggester = new QuerySuggester

linda.io.on "connect", ->
  status("connecting")
  console.log "watch start - #{JSON.stringify tuple}"
  ts.watch tuple, (err, res) ->
    return if err
    print res.data
    query_suggester.push res.data

linda.io.on "disconnect", ->
  status("disconnected..")

print = (msg) ->
  $("#log").prepend $("<li>").text(JSON.stringify msg).fadeIn(300)

status = (msg) ->
  console.log msg
  $("#status").text "<socket.io #{msg}>"

create_url = (name, tuple) ->
  _url = "#{location.protocol}//#{location.host}/#{name}"
  query = ""
  for k,v of tuple
    if typeof v is 'number' or typeof v is 'string'
      query += "&" if query.length > 0
      query += "#{k}=#{v}"
  if query.length < 1
    return _url
  return "#{_url}?#{query}"

$ ->
  $("#btn_write").click (e) ->
    ts.write tuple

  $("#tuplespace").editable "click", (e) ->
    _name = e.value.replace(/\//g,'')
    e.target.html _name
    if _name isnt name
      location.href = create_url(_name, tuple)

  $("#tuple").editable "click", (e) ->
    try
      _tuple = JSON.parse e.value
    catch ex
      alert "invalid JSON - #{e.value}"
      e.target.html e.old_value
      return
    if JSON.stringify(_tuple) isnt JSON.stringify(tuple)
      location.href = create_url(name, _tuple)

  window.query_suggester.onSuggest (tuples) ->
    for i,index in tuples by -1
      if JSON.stringify(i) is JSON.stringify(window.tuple)
        tuples.splice index, 1
    if tuples.length > 0
      $("#suggest_box").show()
      suggest_dom = $("#suggest").html('')
      for tuple,index in tuples[0...3]
        suggest_dom.append(if index is 0 then ' watch ' else ' or ').
        append(
          $('<a>').attr('href', create_url(name, tuple)).
          text(JSON.stringify tuple)
        )