From 141861d4be0907f235cb361005b13939cb9a3042 Mon Sep 17 00:00:00 2001
From: dubochet <dubochet@5e8d7ff9-d8ef-0310-90f0-a4852d11357a>
Date: Wed, 30 Nov 2005 17:16:11 +0000
Subject: [PATCH] SCABBUS now also supports the "print" option.

git-svn-id: http://lampsvn.epfl.ch/svn-repos/scala/scala/trunk@4994 5e8d7ff9-d8ef-0310-90f0-a4852d11357a
---
 build.xml                             |  6 +++---
 config/build.default.properties       |  3 +++
 sources/scala/tools/nsc/ant/NSC.scala | 20 ++++++++++++++++++--
 3 files changed, 24 insertions(+), 5 deletions(-)

diff --git a/build.xml b/build.xml
index dff7ed245..374b8a2c0 100644
--- a/build.xml
+++ b/build.xml
@@ -218,7 +218,7 @@
         <nsc srcdir="${sources.dir}" destdir="${build.nslib.dir}"
              usepredefs="false" debuginfo="${nsc.debuginfo}"
              stop="${nsc.stop}" skip="${nsc.skip}" check="${nsc.check}" log="${nsc.log}"
-             logging="${nsc.logging}">
+             logging="${nsc.logging}" print="${nsc.print}">
             <classpath>
                 <pathelement location="${build.pico-nslib.dir}"/>
                 <pathelement location="${build.nslib.dir}"/>
@@ -232,7 +232,7 @@
         <nsc srcdir="${sources.dir}" destdir="${build.nslib.dir}"
              excludesfile="${nsc.nslib.excludes}" debuginfo="${nsc.debuginfo}"
              stop="${nsc.stop}" skip="${nsc.skip}" check="${nsc.check}" log="${nsc.log}"
-             logging="${nsc.logging}">
+             logging="${nsc.logging}" print="${nsc.print}">
             <classpath>
                 <pathelement location="${build.pico-nslib.dir}"/>
                 <pathelement location="${build.nslib.dir}"/>
@@ -253,7 +253,7 @@
         <nsc srcdir="${sources.dir}" destdir="${build.nstools.dir}"
              excludesfile="${nsc.nstools.excludes}" debuginfo="${nsc.debuginfo}"
              stop="${nsc.stop}" skip="${nsc.skip}" check="${nsc.check}" log="${nsc.log}"
-             logging="${nsc.logging}">
+             logging="${nsc.logging}" print="${nsc.print}">
             <classpath>
                 <pathelement location="${build.pico-nslib.dir}"/>
                 <pathelement location="${build.nslib.dir}"/>
diff --git a/config/build.default.properties b/config/build.default.properties
index f803b4586..356c66461 100644
--- a/config/build.default.properties
+++ b/config/build.default.properties
@@ -28,6 +28,9 @@ nsc.log=
 # consistency.
 nsc.check=
 
+# A comma-separated list of compile phases that NSC should print.
+nsc.print=
+
 # The name of a file that lists files that should be excluded when building
 # the new Scala library. This file MUST EXIST.
 nsc.nslib.excludes=${config.dir}/excludes/nsc.nslib.excludes
diff --git a/sources/scala/tools/nsc/ant/NSC.scala b/sources/scala/tools/nsc/ant/NSC.scala
index 121f84d2d..c2f237576 100644
--- a/sources/scala/tools/nsc/ant/NSC.scala
+++ b/sources/scala/tools/nsc/ant/NSC.scala
@@ -52,6 +52,7 @@ package scala.tools.nsc.ant {
      *    <li>stop,</li>
      *    <li>skip,</li>
      *    <li>check,</li>
+     *    <li>print,</li>
      *    <li>showicode,</li>
      *    <li>log,</li>
      *    <li>debuginfo.</li>
@@ -133,6 +134,8 @@ package scala.tools.nsc.ant {
       private var logPhase: List[String] = Nil;
       /** Which compilation phases results should be checked for consistency. */
       private var check: List[String] = Nil;
+      /** Which compilation phases results should be printed-out. */
+      private var print: List[String] = Nil;
       /** Print ICode files along with class files (debug option). */
       private var showICode: Boolean = false;
 
@@ -426,8 +429,8 @@ package scala.tools.nsc.ant {
       }
         
       /**
-       * Sets the force attribute. Used by Ant.
-       * @param input The value for <code>force</code>.
+       * Sets the check attribute. Used by Ant.
+       * @param input The value for <code>check</code>.
        */
       def setCheck (input: String) = {
         check = List.fromArray(input.split(",")).flatMap(s: String => {
@@ -436,6 +439,18 @@ package scala.tools.nsc.ant {
           else {error("Phase " + st + " in check does not exist."); Nil}
         });
       }
+        
+      /**
+       * Sets the print attribute. Used by Ant.
+       * @param input The value for <code>print</code>.
+       */
+      def setPrint (input: String) = {
+        print = List.fromArray(input.split(",")).flatMap(s: String => {
+          val st = s.trim();
+          if (CompilerPhase.isPermissible(st)) (if (input != "") List(st) else Nil)
+          else {error("Phase " + st + " in print does not exist."); Nil}
+        });
+      }
 
       def setShowicode(input: Boolean): Unit = 
         showICode = input;
@@ -598,6 +613,7 @@ package scala.tools.nsc.ant {
             if (!stop.isEmpty) settings.stop.value = List(stop.get);
             if (!skip.isEmpty) settings.skip.value = skip;
             if (!check.isEmpty) settings.check.value = check;
+            if (!print.isEmpty) settings.print.value = print;
             settings.Xshowicode.value = showICode;
             settings.debuginfo.value = debugInfo;
             if (!logPhase.isEmpty) settings.log.value = logPhase;