1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
import scala.reflect.internal.util.{BatchSourceFile, SourceFile, OffsetPosition}
import scala.reflect.io.{PlainFile, AbstractFile}
import scala.reflect.macros.{TypecheckException, Context}
import scalatags.Text.all._
import twist.stages.Compiler
import scala.language.experimental.macros
import acyclic.file
package object twist {
import Util._
/**
* Wraps the given string as a twist fragment.
*/
def tw(expr: String): Frag = macro Internals.applyMacro
def twf(filename: String): Frag = macro Internals.applyMacroFile
object Internals {
def twDebug(expr: String): Frag = macro applyMacroDebug
def applyMacro(c: Context)(expr: c.Expr[String]): c.Expr[Frag] = applyMacroFull(c)(expr, false)
def applyMacroDebug(c: Context)(expr: c.Expr[String]): c.Expr[Frag] = applyMacroFull(c)(expr, true)
def applyMacroFile(c: Context)(filename: c.Expr[String]): c.Expr[Frag] = {
import c.universe._
val s = filename.tree
.asInstanceOf[Literal]
.value
.value
.asInstanceOf[String]
val txt = io.Source.fromFile(s).mkString |> stages.IndentHandler
val sourceFile = new BatchSourceFile(
new PlainFile(s),
txt.toCharArray
)
compileThing(c)(txt, sourceFile, 0, false)
}
case class DebugFailure(msg: String, pos: String) extends Exception(msg)
private[this] def applyMacroFull(c: Context)(expr: c.Expr[String], runtimeErrors: Boolean): c.Expr[Frag] = {
import c.universe._
val s = expr.tree
.asInstanceOf[Literal]
.value
.value
.asInstanceOf[String]
val stringStart =
expr.tree
.pos
.lineContent
.drop(expr.tree.pos.column)
.take(2)
compileThing(c)(
s |> stages.IndentHandler,
expr.tree.pos.source,
expr.tree.pos.point + (if (stringStart == "\"\"") 1 else -1),
runtimeErrors
)
}
}
def compileThing(c: Context)(s: String, source: SourceFile, point: Int, runtimeErrors: Boolean) = {
import c.universe._
def compile(s: String): c.Tree = {
val realPos = new OffsetPosition(source, point).asInstanceOf[c.universe.Position]
Compiler(c)(realPos, s |> stages.Parser)
}
import c.Position
try {
c.Expr(c.typeCheck(compile(s)))
} catch {
case e@TypecheckException(pos: Position, msg) =>
if (!runtimeErrors) c.abort(pos, msg)
else {
val posMsg = pos.lineContent + "\n" + (" " * pos.column) + "^"
c.Expr( q"""throw twist.Internals.DebugFailure($msg, $posMsg)""")
}
}
}
}
|