{doctypes,elements,normalizeArray,mergeElements,allTags,escape,quote,BagMan} = require '../lib/html-tags'
module.exports = Teacup = class Teacup
  constructor: (@instantiator,@oracle)->
    @bagMan = new BagMan
    @.keepCamelCase = false

  march: (bag)->
    while component = bag.inspect()
     #console.log "March Teacup",component._Halvalla?.birthName || component.toString()
      switch n=component.constructor.name
        when 'Function' then bag.reinspect @instantiator component
        when 'String','Number' then bag.shipOut component.toString()
        when 'Array' then throw new Error 'invalid array from bagman'
        #render the node and append it to the htmlOout string
        else 
          #throw new Error "unclean component",component unless component._Halvalla
          tagName=@oracle.getName component
          if component.tag == '<'
            bag.shipOut @rawMithril component
          else if 'function' == typeof component.tagName
            #this component has not been instantiated yet
            tagConstructor = component.tagName
            if component.attrs
              attrs = component.attrs
            else
              attrs = component.props
            node = new tagConstructor tagName,attrs,component.children
            #console.log "newly instantiated node",node
            unless Teacup::[tagName]  #generate alias for stack dumps
              Teacup::[tagName]= (component, args...) -> @view component,args...
            bag.shipOut @view node
            break
          if @[tagName]
            bag.shipOut @[tagName] component
          else
           #console.log "Component without teacup renderer: #{tagName}"
            if 'string' == typeof component.tag
              y= @tag component
            else 
              y= @view component
            bag.shipOut y
    return null          


  render: (component) ->
    oldBagger = @bagMan
    @bagMan = new BagMan
    @bagMan.context component
    @march @bagMan
    result = @bagMan.harvest().join ''
    @bagMan = oldBagger
   #console.log "Final Render",result
    return result

  # alias render for coffeecup compatibility
  cede: (args...) -> @render(args...)

  renderable: (template) ->
    teacup = @
    return (args...) ->
      if teacup.htmlOut is null
        teacup.htmlOut = ''
        try
          template.apply @, args
        finally
          result = teacup.resetBuffer()
        return result
      else
        template.apply @, args
        
  kebabify: (text)->
    return text if @keepCamelCase
    return text.replace /([A-Z])/g, ($1) -> "-#{$1.toLowerCase()}"

  renderAttr: (name, value) ->
    return " #{@kebabify name}" if not value?
    return '' if value is false

    if name == 'style' && 'object' == typeof value
      return " #{name}=#{quote(((@kebabify k)+':'+v for k,v of value).join ';')}"
      
    if name is 'data' and typeof value is 'object'
      return (@renderAttr "data-#{k}",quote v for k,v of value).join('')
      
    if name is 'aria' and typeof value is 'object'
      return (@renderAttr "aria-#{k}",quote v for k,v of value).join('')
      
    if value is true
      value = name

    return " #{@kebabify name}=#{quote escape value.toString()}"

  attrOrder: ['id', 'class']
  renderAttrs: (obj) ->
    return '' unless obj
    if className=obj.class || obj.className
      obj.class = className
      delete obj.className 
    result = ''

    # render explicitly ordered attributes first
    for name in @attrOrder when name of obj
      result += @renderAttr name, obj[name] unless name == 'dangerouslySetInnerHTML'

    # then unordered attrs
    for name, value of obj
      continue if name in @attrOrder
      result += @renderAttr name, value

    return result

  renderContents: (contents, rest...) ->
    if not contents?
      return
    else if typeof contents is 'function'
      result = contents.apply @, rest
      @textOnly result if typeof result is 'string'
    else
      @textOnly contents

  view: (cell) ->
    {children} = cell
    #console.log "VIEW",cell
    props=@oracle.getProp cell
   #console.log "Teacup::tag Typeof props to render", typeof props
    result = ''
    if cell.tag?.view 
      x= cell.tag.view(props)
      result += @render x
   #console.log "Teacup::view final result", result
    return result

  tag: (cell) ->
    {children} = cell
   #console.log "CELL!",cell
    props=@oracle.getProp cell
   #console.log "Teacup::tag Typeof props to render", typeof props
    tagName=@oracle.getName cell
    @.keepCamelCase = ( tagName == 'svg' )
    result = ''
    result += "<#{tagName}#{@renderAttrs props}>" unless tagName == 'text'
   #console.log "Teacup::tag early result", result
    if cell.text
      result += cell.text
    else if props?.dangerouslySetInnerHTML
      result += props.dangerouslySetInnerHTML.__html
    else
      children = [ children ] if 'String' == children.constructor?.name || !children.length
      for child in children
        if 'String' == child.constructor?.name || 'string' == typeof child
          result += escape child.toString()
        else 
          result += @render child
        
    result += "</#{tagName}>" unless tagName == 'text'
    @.keepCamelCase = false
   #console.log "Teacup::tag final result", result
    return result


  rawMithril:(cell)->
    return cell.children || cell.text

  rawTag: (cell) ->
    {children} = cell
    props=@oracle.getProp cell
    tagName=@oracle.getName cell
    result = "<#{tagName}#{@renderAttrs props}>"
    result += children
    result += "</#{tagName}>"
    return result

  scriptTag: (cell) ->
    {children} = cell
    props=@oracle.getProp cell
    tagName=@oracle.getName cell
    script = (cell.text || cell.children).toString()
    result = "<#{tagName}#{@renderAttrs props}>"
    result += script.replace /<\//g,"<\\/"
    result += "</#{tagName}>"
    return result

  selfClosingTag: (cell) ->
    {children} = cell
    props=@oracle.getProp cell
    tagName=@oracle.getName cell
    if (normalizeArray children).length != 0
      throw new Error "Halvalla: <#{tagName}/> must not have content.  Attempted to nest #{children}"
    return "<#{tagName}#{@renderAttrs props} />"

  commentTag: (text) ->
    return "<!--#{escape (text.children || text.text || text).toString()}-->"

  doctypeTag: (type=5) ->
    return doctypes[type]

  ieTag: (cell)->
    props = @oracle.getProp cell
    result = "<!--[if #{escape props.condition}]>"
    result += @render cell.children
    result += "<![endif]-->"
    return result

  textOnly: (s) ->
    #console.log "text appends ",s? and escape(s.toString()) or ''
    return new String (s? and escape(s.toString()) or '')

# Define tag functions on the prototype for pretty stack traces
for tagName in mergeElements 'regular', 'obsolete'
  do (tagName) ->
    Teacup::[tagName] = (args...) -> @tag args...
Teacup::['<'] = (args...) -> @rawMithril args...
Teacup::['text'] = (args...) -> @tag args...

for tagName in mergeElements 'raw'
  do (tagName) ->
    Teacup::[tagName] = (args...) -> @rawTag args...

for tagName in mergeElements 'script'
  do (tagName) ->
    Teacup::[tagName] = (args...) -> @scriptTag args...

for tagName in ['ie']
  do (tagName) ->
    Teacup::[tagName] = (args...) ->
      @ieTag args...
    
for tagName in mergeElements 'void', 'obsolete_void'
  do (tagName) ->
    Teacup::[tagName] = (args...) -> @selfClosingTag args...