concept.coffee

conceptBuilder = (json) ->
  switch json.dataType
    when "DvQuantity"
      new DvQuantity(json)
    when "DV_CODED_TEXT"
      new DvCodedText(json)
    when "DV_BOOLEAN"
      new DvBoolean(json)
    when "DV_TEXT"
      new DvText(json)
    when "DV_COUNT"
      new DvCount(json)
    when "DvOrdinal"
      new DvOrdinal(json)
    when "DV_MULTIMEDIA"
      new DvMultiMedia(json)
    when "DV_DATE_TIME"
      new DvDateTime(json)
    when "DV_INTERVAL"
      new DvInterval(json)
    when "DV_PROPORTION"
      new DvProportion(json)
    when "DV_URI"
      new DvUri(json)
    when "DvMultipleElements"
      new DvMultipleElements(json)
    when "DvCluster"
      new DvCluster(json)
    else
      new DvAny(json)

class Concept
  constructor: (json) ->
    @name = json.name
    @path = json.path.replace(/\./g, "___")
    @type = json.dataType

  # <input type="text" value="@value" aqbe:path="@path" />
  inputBuilder: (placeholder="") ->
    $("<input>").attr("type", "text").attr("value", "").attr("aqbe:path", @path).attr("aqbe:type", @type).attr("placeholder", placeholder)

  # <input type="text" value="@value" aqbe:path="@path" id="fieldDate" />
  calenderBuilder: () ->
    @inputBuilder().attr("id", "fieldDate")

  # <select aqbe:path="@path"><option value="">Please Select</option></select>
  selectBuilder: (path=@path, type=@type, require=false) ->
    selecter = $("<select>").attr("aqbe:path", path).attr("aqbe:type", type)
    if require
      selecter
    else
      selecter.append("""<option value="">Please Select</option>""")


  getHtml: ->
    $("<tr>").append($("<td>").text(@name))

class DvQuantity extends Concept
  constructor: (json) ->
    super json
    @path = @path + "/magnitude"
    @unitPath = @path.replace("/magnitude", "/units")
    @min  = if json.min[0]? then json.min else [-999999]
    @max  = if json.max[0]? then json.max else [999999]
    @unit = json.unit
  getHtml: ->
    input = @inputBuilder("0.0").attr("aqbe:min", @min[0]).attr("aqbe:max", @max[0])
    unitSelecter = @selectBuilder(path=@unitPath, type="DvQuantityUnit", require=true)
    for k, v in @unit
      unitSelecter.append("<option value=\"#{v}\">#{k}</option>")
    unitSelecter.change =>
      index = unitSelecter.val()
      $(input).attr("aqbe:min", @min[index]).attr("aqbe:max", @max[index])
    super.append($("<td>").append(input).append(" ").append(unitSelecter).append("<span class=\"error\">"))

class DvCodedText extends Concept
  constructor: (json) ->
    super json
    @codeList = json.codeList
  getHtml: ->
    select = @selectBuilder()
    for code in @codeList
      select.append("<option value=\"#{code}\">#{code}</option>")
    super.append($("<td>").append(select))

class DvBoolean extends Concept
  constructor: (json) ->
    super json
  getHtml: ->
    super.append($("<td>").append(@selectBuilder().append("""<option value="true">true</option>""").append("""<option value="false">false</option>""")))

class DvText extends Concept
  constructor: (json) ->
    super json
  getHtml: ->
    super.append($("<td>").append(@inputBuilder("Freetext")))

class DvCount extends Concept
  constructor: (json) ->
    super json
    @min  = if json.min? then json.min else -999999
    @max  = if json.max? then json.max else 999999
  getHtml: ->
    super.append($("<td>").append(@inputBuilder("0").attr("aqbe:min", @min).attr("aqbe:max", @max)).append("<span class=\"error\">"))

class DvOrdinal extends Concept
  constructor: (json) ->
    super json
    @codeList = json.codeList
  getHtml: ->
    select = @selectBuilder()
    for c in @codeList
      select.append("<option value=\"#{c._1}\">#{c._2}</option>")
    super.append($("<td>").append(select))

class DvMultiMedia extends Concept
  constructor: (json) ->
    super json
    @codeList = json.codeList
  getHtml: ->
    select = @selectBuilder()
    for c in @codeList
      select.append("<option value=\"#{c}\">#{c}</option>")
    super.append($("<td>").append(select))

class DvDateTime extends Concept
  constructor: (json) ->
    super json
  getHtml: ->
    super.append($("<td>").append(@calenderBuilder("Date Time")).append("""<input type="hidden" value="" aqbe:type="DvDateTimeInteger" aqbe:path=""" + @path + """ />"""))

class DvInterval extends Concept
  constructor: (json) ->
    super json
    @interval = json.interval
  getHtml: ->
    newTable = $("<table>").attr("class", "adl")
    for c in @interval
      cc = conceptBuilder(c)
      newTable.append(cc.getHtml())
    super.append($("<td>").append(newTable))

class DvProportion extends Concept
  constructor: (json) ->
    super json
    @minNum = json.minNum
    @maxNum = json.maxNum
    @minDen = json.minDen
    @maxDen = json.maxDen
  getHtml: ->
    @min = @minNum
    @max = @maxNum
    num = @inputBuilder("0")
    @min = @minDen
    @max = @maxNum
    den = @inputBuilder("0")
    super.append($("<td>").append(num.append(" : ").den))

class DvUri extends Concept
  constructor: (json) ->
    super json
  getHtml: ->
    super.append($("<td>").append(@inputBuilder("input", "url").attr("placeholder", "URL")))

class DvAny extends Concept
  constructor: (json) ->
    super json
  getHtml: ->
    super.append($("<td>").append("""<span class="any">[Any]<span>"""))

class DvCluster extends Concept
  constructor: (json) ->
    super json
    @cluster = json.cluster
  getHtml: ->
    newTable = $("<table>").attr("class", "adl2")
    for c in @cluster
      cc = conceptBuilder(c)
      newTable.append(cc.getHtml())
    super.append($("<td>").append(newTable))

class DvMultipleElements extends Concept
  constructor: (json) ->
    super json
    @elements = json.elements
  getHtml: ->
    newTable = $("<table>").attr("class", "adl2")
    for c in @elements
      cc = conceptBuilder(c._2)
      newTable.append(cc.getHtml())
    super.append($("<td>").append(newTable))