diff options
author | buraq <buraq@epfl.ch> | 2004-05-17 12:15:48 +0000 |
---|---|---|
committer | buraq <buraq@epfl.ch> | 2004-05-17 12:15:48 +0000 |
commit | 5ddd74a408df692ed183afbbf6dc89bf02af1942 (patch) | |
tree | 2316e12ed659a17c56159666f4b3bd88dbc54fad /sources/scalac/transformer | |
parent | 2ebc9ea1d6578a5f5507f1a131ce986ce02a0295 (diff) | |
download | scala-5ddd74a408df692ed183afbbf6dc89bf02af1942.tar.gz scala-5ddd74a408df692ed183afbbf6dc89bf02af1942.tar.bz2 scala-5ddd74a408df692ed183afbbf6dc89bf02af1942.zip |
obsolete
Diffstat (limited to 'sources/scalac/transformer')
-rw-r--r-- | sources/scalac/transformer/matching/TestRegTraverser.scala | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/sources/scalac/transformer/matching/TestRegTraverser.scala b/sources/scalac/transformer/matching/TestRegTraverser.scala deleted file mode 100644 index b00de87626..0000000000 --- a/sources/scalac/transformer/matching/TestRegTraverser.scala +++ /dev/null @@ -1,47 +0,0 @@ -/* ____ ____ ____ ____ ______ *\ -** / __// __ \/ __// __ \/ ____/ SOcos COmpiles Scala ** -** __\_ \/ /_/ / /__/ /_/ /\_ \ (c) 2002, LAMP/EPFL ** -** /_____/\____/\___/\____/____/ ** -** ** -** $Id$ -\* */ - -package scalac.transformer.matching; - -import scalac.Global; -import scalac.ast._; -import scalac.util._; -import scalac.symtab._; - -import java.util.{Set,HashSet}; - -object TestRegTraverser extends Traverser { - - var result:boolean = false; - var variables:Set = null:Set; - - override def traverse( tree:Tree ):Unit = { - - tree.match { - case Tree$Alternative(_) => - result = true; - case Tree$Bind(_, pat) => - variables.add(tree.symbol()); - traverse(pat); - case Tree$Ident( name ) => - val symbol = tree.symbol(); - result = ((symbol != Global.instance.definitions.PATTERN_WILDCARD) - && variables.contains(symbol)) - case Tree$CaseDef(pat, _, _) => - traverse(pat); - case _ => - super.traverse( tree ); - } - } - - def apply(t:Tree):boolean = { - variables = new HashSet(); - traverse(t); - result - } -} |