diff options
author | paltherr <paltherr@epfl.ch> | 2003-04-16 14:27:58 +0000 |
---|---|---|
committer | paltherr <paltherr@epfl.ch> | 2003-04-16 14:27:58 +0000 |
commit | c3feacc621b275ec3fe679a79cd720fe7116bf9e (patch) | |
tree | 25d28d72052bb9f1e4585e761c504b2a75d3456c | |
parent | 2b05eb0cc47793d90e953d1727841d72f1818d5d (diff) | |
download | scala-c3feacc621b275ec3fe679a79cd720fe7116bf9e.tar.gz scala-c3feacc621b275ec3fe679a79cd720fe7116bf9e.tar.bz2 scala-c3feacc621b275ec3fe679a79cd720fe7116bf9e.zip |
- Added Tuple expander and template
-rw-r--r-- | sources/meta/scala/MetaTuple.java | 51 | ||||
-rw-r--r-- | sources/scala/Tuple.scala.tmpl | 13 |
2 files changed, 64 insertions, 0 deletions
diff --git a/sources/meta/scala/MetaTuple.java b/sources/meta/scala/MetaTuple.java new file mode 100644 index 0000000000..93530d6698 --- /dev/null +++ b/sources/meta/scala/MetaTuple.java @@ -0,0 +1,51 @@ +/* ____ ____ ____ ____ ______ *\ +** / __// __ \/ __// __ \/ ____/ SOcos COmpiles Scala ** +** __\_ \/ /_/ / /__/ /_/ /\_ \ (c) 2002, LAMP/EPFL ** +** /_____/\____/\___/\____/____/ ** +\* */ + +// $Id$ + +package meta.scala; + +public class MetaTuple extends AbstractScalaExpander { + + //######################################################################## + // Public Fields + + public final int arity; + + //######################################################################## + // Public Constructors + + public MetaTuple(int arity) { + this.arity = arity; + } + + //######################################################################## + // Public Methods + + public String getTargetBaseName() { + return super.getTargetBaseName() + arity; + } + + public void printn() { + writer.print(arity); + } + + public void printTParams() { + for (int i = 0; i < arity; i++) { + if (i > 0) writer.print(", "); + writer.print("?A").print(i); + } + } + + public void printVParams() { + for (int i = 0; i < arity; i++) { + if (i > 0) writer.print(", "); + writer.print("_").print(i).print(" ?A").print(i); + } + } + + //######################################################################## +} diff --git a/sources/scala/Tuple.scala.tmpl b/sources/scala/Tuple.scala.tmpl new file mode 100644 index 0000000000..b4b95c30da --- /dev/null +++ b/sources/scala/Tuple.scala.tmpl @@ -0,0 +1,13 @@ +/* __ *\ +** ________ ___ / / ___ Scala API ** +** / __/ __// _ | / / / _ | (c) 2002, LAMP/EPFL ** +** __\ \/ /__/ __ |/ /__/ __ | ** +** /____/\___/_/ |_/____/_/ | | ** +** |/ ** +\* */ + +// $Id$ + +package scala; + +case class Tuple{#n#}[{#TParams#}]({#VParams#}); |