/*
 * Copyright (c) 2022 bitlap
 *
 * 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.
 */

package org.bitlap.csv.core.macros

import scala.reflect.macros.blackbox

/**
 * @author 梦境迷离
 * @version 1.0,2022/4/29
 */
object DeriveToCaseClass {

  def apply[T <: Product](line: String, columnSeparator: Char): Option[T] = macro Macro.macroImpl[T]

  class Macro(override val c: blackbox.Context) extends AbstractMacroProcessor(c) {
    import c.universe._

    private val packageName = q"_root_.org.bitlap.csv.core"

    def macroImpl[T <: Product: c.WeakTypeTag](
      line: c.Expr[String],
      columnSeparator: c.Expr[Char]
    ): c.Expr[Option[T]] = {
      val clazzName = c.weakTypeOf[T].typeSymbol.name
      val innerVarTermName = TermName("_columns")
      val fields = (columns: TermName) =>
        checkCaseClassZipAll[T](columns).map { idxType =>
          val columnValues = idxType._1._2
          if (idxType._2 <:< typeOf[Option[_]]) {
            val genericType = c.typecheck(q"${idxType._2}", c.TYPEmode).tpe.typeArgs.head
            q"$packageName.Converter[${genericType.typeSymbol.name.toTypeName}].toScala($columnValues)"
          } else {
            val caseClassFieldTypeName = TypeName(idxType._2.typeSymbol.name.decodedName.toString)
            idxType._2 match {
              case t if t =:= typeOf[Int] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0)"
              case t if t =:= typeOf[String] =>
                q"""$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse("")"""
              case t if t =:= typeOf[Float] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0F)"
              case t if t =:= typeOf[Double] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0D)"
              case t if t =:= typeOf[Char] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse('?')"
              case t if t =:= typeOf[Byte] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0)"
              case t if t =:= typeOf[Short] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0)"
              case t if t =:= typeOf[Boolean] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(false)"
              case t if t =:= typeOf[Long] =>
                q"$packageName.Converter[$caseClassFieldTypeName].toScala($columnValues).getOrElse(0L)"
            }
          }
        }
      val tree =
        q"""
           lazy val $innerVarTermName = _root_.org.bitlap.csv.core.StringUtils.splitColumns($line, $columnSeparator)
           Option(${TermName(clazzName.decodedName.toString)}(..${fields(innerVarTermName)}))
           """
      printTree[T](force = false, tree)

    }.asInstanceOf[c.Expr[Option[T]]]

  }
}