dependency.literal.LiteralMacros.scala Maven / Gradle / Ivy

Go to download
Show more of this group Show more artifacts with this name
Show all versions of dependency_sjs1_2.13 Show documentation
dependency
The newest version!
package dependency.literal

import java.util.UUID

import scala.language.experimental.macros
import scala.reflect.macros.whitebox

abstract class LiteralMacros(val c: whitebox.Context) {
  import c.universe._

  protected def unsafeGetPrefixString(): String =
    c.prefix.tree match {
      case Apply(_, List(Apply(_, Literal(Constant(string: String)) :: Nil))) => string
      case Apply(_, List(Apply(_, values))) => c.abort(c.enclosingPosition, s"Only a single String literal is allowed here (got $values)")
      case l => c.abort(c.enclosingPosition, "Only a single String literal is allowed here")
    }

  private def values(trees: List[Tree]): List[String] =
    trees match {
      case Nil => Nil
      case Literal(Constant(string: String)) :: tail =>
        string :: values(tail)
      case _ =>
        c.abort(c.enclosingPosition, "Only a String literal is allowed here")
    }

  protected def unsafeGetPrefixStrings(): List[String] =
    c.prefix.tree match {
      case Apply(_, List(Apply(_, trees))) => values(trees)
      case l => c.abort(c.enclosingPosition, "Only a String literal is allowed here")
    }

  private def indices(str: String, subString: String): List[Int] = {
    def helper(from: Int): List[Int] = {
      val idx = str.indexOf(subString, from)
      if (idx < 0) Nil
      else idx :: helper(idx + subString.length)
    }
    helper(0)
  }

  private def insertExpr(str: String, indices: List[(Int, Int, c.Expr[Any])]): c.Tree =
    indices match {
      case Nil => q"$str"
      case (idx, idLen, insert) :: tail =>
        val (prefix, suffix) = str.splitAt(idx)
        val prefixExpr = insertExpr(prefix, tail)
        q"$prefixExpr + $insert + ${suffix.substring(idLen)}"
    }

  protected final type Mappings = Seq[(String, c.Tree)]

  protected def applyMappings(str: String, mappings: Mappings): c.Expr[String] = {
    val substitutions = mappings
      .iterator
      .zipWithIndex
      .flatMap {
        case ((id, expr), i) =>
          val indices0 = indices(str, id)
          indices0.map(idx => (idx, id.length, c.Expr(expr)))
      }
      .toList
      .sortBy(-_._1)
    val tree = insertExpr(str, substitutions)
    c.Expr(tree)
  }

  def mappings(args: Seq[c.Tree]): Mappings =
    args.map(arg => (UUID.randomUUID().toString.filter(_ != '-'), arg))
  def input(inputs: Seq[String], mappings: Mappings): String =
    (inputs.zip(mappings).flatMap { case (s, (id, _)) => Seq(s, id) } ++ inputs.drop(mappings.length)).mkString
}