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 3162617c1ea282b2ee2b8a1a44a231ab38362ce8..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
@@ -32,12 +32,32 @@
 
 using System;
 using System.Collections;
+using System.IO;
 using System.Xml;
 using System.Xml.XPath;
 using System.Xml.Xsl;
 
-namespace Mono.Xml.Xsl.Operations {
-       internal 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;
                
@@ -45,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;
@@ -54,8 +79,11 @@ namespace Mono.Xml.Xsl.Operations {
                
                public override void Evaluate (XslTransformProcessor p)
                {
+                       if (p.Debugger != null)
+                               p.Debugger.DebugExecute (p, this.DebugInput);
+
                        if (children != null)
-                               Console.Write (children.EvaluateAsString (p));
+                               output.Write (children.EvaluateAsString (p));
                        if (terminate)
                                throw new XsltException ("Transformation terminated.", null, p.CurrentNode);
                }