- Added Tuple expander and template

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#});