Béguet Eric begeric

begeric / code-example-wiki.scala

Created January 20, 2015 11:21

begeric / varinsteadval.scala

Created January 16, 2015 00:34

	def apply = (focus{case _: Defn.Def => true} andThen
	collect[Set]{
	case Term.Assign(b: Term.Name, _) => b
	}.topDown feed { assigns =>
	transform{
	case t @ Defn.Var(a, (b: Term.Name) :: Nil, c, Some(d)) if !assigns.contains(b) =>
	Defn.Val(a, b :: Nil, c, d) andCollect message(b, t)
	}.topDown
	}
	).topDownBreak

begeric / transform.scala

Created January 3, 2015 21:59

	(collect {
	case t @ Defn.Val(_, _, None, _) =>
	message(t, t.getType)
	case t @ Defn.Def(_, _, _, _, None, _) =>
	message(t, t.getType)
	} <~
	update {
	case t @ Defn.Val(mods, pats, None, rhs) =>
	Defn.Val(mods, pats, Some(t.getType), rhs)
	} +

begeric / testMatcher2.scala

Created January 3, 2015 16:15

	import scala.reflect.ClassTag

	trait AllowedTransfomation[I, O]
	trait ToType[A, B]

	trait Monoid[A]{
	def zero : A
	def append(a: A, b: A): A
	}

begeric / betterTypes.scala

Last active August 29, 2015 14:12

	import scala.reflect.ClassTag

	trait AllowedTransfomation[I, O]
	trait ToType[A, B]

	trait Monoid[A]{
	def zero : A
	def append(a: A, b: A): A
	}

begeric / tql-example.md

Last active August 29, 2015 14:12

Code used for the the following examples.

val tree = 
    q"""
       val a = 5
       val c = 3
       c = 5
       if (3 == 17) {
        val c = 1
 }

begeric / @switch.scala

Last active August 29, 2015 14:10


	import org.scalameter._
	import org.scalameter.execution.LocalExecutor
	import org.scalameter.reporting.LoggingReporter

	object SwitchBenchmark extends PerformanceTest {


	lazy val executor = LocalExecutor(
	new Executor.Warmer.Default,

begeric / sbt scalameta tests failure

Created November 19, 2014 21:25

	...
	InvariantSuite:
	- more informative error messages * FAILED *
	"...that x.>(3) is false[]
	where x = 2" did not equal "...that x.>(3) is false[
	where x = 2" (InvariantSuite.scala:12)
	ShowSuite:
	...
	- string literals with newlines and double quotes * FAILED *
	"... None, Lit.String("\[r\n x\r]\n ")), Defn.Va..." did no

begeric / sbt scalameta tests failure

Created November 19, 2014 21:23

begeric / collectDef.scala

Last active August 29, 2015 14:09

	val collectDef =
	collectIn[Set]{
	case t: Defn.Def if(!ignore(t)) => t.getName
	}.down feed {defs =>
	collect{
	case Term.Assign(b: Term.Name, _) if(defs.contains(b)) => warning(b)
	}.down
	}