Merge pull request #960 from ermshiperete/ShowHelp

[mono.git] / mcs / class / System.XML / Mono.Xml.Xsl.Operations / XslMessage.cs

diff --git a/mcs/class/System.XML/Mono.Xml.Xsl.Operations/XslMessage.cs b/mcs/class/System.XML/Mono.Xml.Xsl.Operations/XslMessage.cs
index a0e90bc86d8105524f11452c957a0094acf8f043..0a066219918c839c3993f5c6eac4e89117fabd8d 100644 (file)
--- a/mcs/class/System.XML/Mono.Xml.Xsl.Operations/XslMessage.cs
+++ b/mcs/class/System.XML/Mono.Xml.Xsl.Operations/XslMessage.cs
@@ -9,14 +9,55 @@
 // (C) 2003 Atsushi Enomoto
 //
 
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+// 
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+// 
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
 using System;
 using System.Collections;
+using System.IO;
 using System.Xml;
 using System.Xml.XPath;
 using System.Xml.Xsl;
 
-namespace Mono.Xml.Xsl.Operations {
-       public class XslMessage : XslCompiledElement {
+namespace Mono.Xml.Xsl.Operations 
+{
+       internal class XslMessage : XslCompiledElement 
+       {
+               static TextWriter output;
+
+               static XslMessage ()
+               {
+                       switch (Environment.GetEnvironmentVariable ("MONO_XSLT_MESSAGE_OUTPUT")) {
+                       case "none":
+                               output = TextWriter.Null;
+                               break;
+                       case "stderr":
+                               output = Console.Error;
+                               break;
+                       default:
+                               output = Console.Out;
+                               break;
+                       }
+               }
+
                bool terminate;
                XslOperation children;
                
@@ -24,6 +65,11 @@ namespace Mono.Xml.Xsl.Operations {
                
                protected override void Compile (Compiler c)
                {
+                       if (c.Debugger != null)
+                               c.Debugger.DebugCompile (this.DebugInput);
+
+                       c.CheckExtraAttributes ("message", "terminate");
+
                        terminate = c.ParseYesNoAttribute ("terminate", false);
                        
                        if (!c.Input.MoveToFirstChild ()) return;
@@ -33,14 +79,13 @@ namespace Mono.Xml.Xsl.Operations {
                
                public override void Evaluate (XslTransformProcessor p)
                {
-                       if (children != null) {
-                               p.PushOutput (new TextOutputter(Console.Error, true));
-                               children.Evaluate (p);
-                               p.PopOutput ();
-                       }
-                       
+                       if (p.Debugger != null)
+                               p.Debugger.DebugExecute (p, this.DebugInput);
+
+                       if (children != null)
+                               output.Write (children.EvaluateAsString (p));
                        if (terminate)
-                               throw new Exception ("XSLT TERMINATION");
+                               throw new XsltException ("Transformation terminated.", null, p.CurrentNode);
                }
        }
 }