2005-04-12 Dick Porter <dick@ximian.com>
[mono.git] / mcs / class / System.XML / Mono.Xml.Xsl.Operations / XslLiteralElement.cs
1 //
2 // XslLiteralElement.cs
3 //
4 // Authors:
5 //      Ben Maurer (bmaurer@users.sourceforge.net)
6 //      Atsushi Enomoto (ginga@kit.hi-ho.ne.jp)
7 //      
8 // (C) 2003 Ben Maurer
9 // (C) 2003 Atsushi Enomoto
10 //
11
12 //
13 // Permission is hereby granted, free of charge, to any person obtaining
14 // a copy of this software and associated documentation files (the
15 // "Software"), to deal in the Software without restriction, including
16 // without limitation the rights to use, copy, modify, merge, publish,
17 // distribute, sublicense, and/or sell copies of the Software, and to
18 // permit persons to whom the Software is furnished to do so, subject to
19 // the following conditions:
20 // 
21 // The above copyright notice and this permission notice shall be
22 // included in all copies or substantial portions of the Software.
23 // 
24 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
25 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
26 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
27 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
28 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
29 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
30 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31 //
32
33 using System;
34 using System.Collections;
35 using System.Xml;
36 using System.Xml.XPath;
37 using System.Xml.Xsl;
38
39 namespace Mono.Xml.Xsl.Operations {     
40         internal class XslLiteralElement : XslCompiledElement {
41                 XslOperation children;
42                 string localname, prefix, nsUri;
43                 bool isEmptyElement;
44                 ArrayList attrs;
45                 XmlQualifiedName [] useAttributeSets;
46                 Hashtable nsDecls;
47
48                 public XslLiteralElement (Compiler c) : base (c) {}
49                         
50                 class XslLiteralAttribute {
51                         string localname, prefix, nsUri;
52                         XslAvt val;
53                         
54                         public XslLiteralAttribute (Compiler c)
55                         {
56                                 this.prefix = c.Input.Prefix;
57                                 if (prefix.Length > 0) {
58                                         string alias = 
59                                                 c.CurrentStylesheet.GetActualPrefix (prefix);
60                                         if (alias != prefix) {
61                                                 prefix = alias;
62                                                 XPathNavigator clone = c.Input.Clone ();
63                                                 clone.MoveToParent ();
64                                                 nsUri = clone.GetNamespace (alias);
65                                         }
66                                         else
67                                                 nsUri = c.Input.NamespaceURI;
68                                 }
69                                 else
70                                         nsUri = String.Empty;
71                                 this.localname = c.Input.LocalName;
72                                 this.val = new XslAvt (c.Input.Value, c);
73                         }
74                         
75                         public void Evaluate (XslTransformProcessor p)
76                         {
77                                 //FIXME: fix attribute prefixes according to aliases
78                                 p.Out.WriteAttributeString (prefix, localname, nsUri, val.Evaluate (p));
79                         }
80                 }
81                 
82                 protected override void Compile (Compiler c)
83                 {
84                         prefix = c.Input.Prefix;
85                         string alias = c.CurrentStylesheet.GetActualPrefix (prefix);
86                         if (alias != prefix) {
87                                 prefix = alias;
88                                 nsUri = c.Input.GetNamespace (alias);
89                         }
90                         else
91                                 nsUri = c.Input.NamespaceURI;
92
93                         this.localname = c.Input.LocalName;
94                         this.useAttributeSets = c.ParseQNameListAttribute ("use-attribute-sets", XsltNamespace);
95                         this.nsDecls = c.GetNamespacesToCopy ();
96                         if (nsDecls.Count == 0) nsDecls = null;
97                         this.isEmptyElement = c.Input.IsEmptyElement;
98
99                         if (c.Input.MoveToFirstAttribute ())
100                         {
101                                 attrs = new ArrayList ();
102                                 do {
103                                         if (c.Input.NamespaceURI == XsltNamespace)
104                                                 continue; //already handled
105                                         attrs.Add (new XslLiteralAttribute (c));
106                                 } while (c.Input.MoveToNextAttribute());
107                                 c.Input.MoveToParent ();
108                         }
109                         
110                         if (!c.Input.MoveToFirstChild ()) return;
111                         children = c.CompileTemplateContent ();
112                         c.Input.MoveToParent ();
113                 }
114
115                 public override void Evaluate (XslTransformProcessor p)
116                 {
117                         // Since namespace-alias might be determined after compilation
118                         // of import-ing stylesheets, this must be determined later.
119                         bool isCData = p.InsideCDataElement;
120                         p.PushElementState (prefix, localname, nsUri, true);
121                         p.Out.WriteStartElement (prefix, localname, nsUri);
122
123                         if (useAttributeSets != null)
124                                 foreach (XmlQualifiedName s in useAttributeSets)
125                                         p.ResolveAttributeSet (s).Evaluate (p);
126                                                 
127                         if (attrs != null) {
128                                 int len = attrs.Count;
129                                 for (int i = 0; i < len; i++)
130                                         ((XslLiteralAttribute)attrs [i]).Evaluate (p);
131                         }
132
133                         p.OutputLiteralNamespaceUriNodes (nsDecls, null, null);
134
135                         if (children != null) children.Evaluate (p);
136
137                         if (isEmptyElement)
138                                 p.Out.WriteEndElement ();
139                         else
140                                 p.Out.WriteFullEndElement ();
141
142                         p.PopCDataState (isCData);
143                 }
144         }
145 }