2005-03-02 Atsushi Enomoto <atsushi@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                 bool requireNameFix;
48                 XPathNavigator stylesheetNode;
49                 XslStylesheet stylesheet;
50
51                 public XslLiteralElement (Compiler c) : base (c) {}
52                         
53                 class XslLiteralAttribute {
54                         string localname, prefix, nsUri;
55                         XslAvt val;
56                         
57                         public XslLiteralAttribute (Compiler c)
58                         {
59                                 this.prefix = c.Input.Prefix;
60                                 this.nsUri = c.Input.NamespaceURI;
61                                 this.localname = c.Input.LocalName;
62                                 this.val = new XslAvt (c.Input.Value, c);
63                         }
64                         
65                         public void Evaluate (XslTransformProcessor p)
66                         {
67                                 //FIXME: fix attribute prefixes according to aliases
68                                 p.Out.WriteAttributeString (prefix, localname, nsUri, val.Evaluate (p));
69                         }
70                 }
71                 
72                 protected override void Compile (Compiler c)
73                 {
74                         requireNameFix = true;
75                         stylesheetNode = c.Input.Clone ();
76                         stylesheet = c.CurrentStylesheet;
77
78                         this.localname = c.Input.LocalName;
79                         this.useAttributeSets = c.ParseQNameListAttribute ("use-attribute-sets", XsltNamespace);
80                         this.nsDecls = c.GetNamespacesToCopy ();
81                         if (nsDecls.Count == 0) nsDecls = null;
82                         this.isEmptyElement = c.Input.IsEmptyElement;
83
84                         if (c.Input.MoveToFirstAttribute ())
85                         {
86                                 attrs = new ArrayList ();
87                                 do {
88                                         if (c.Input.NamespaceURI == XsltNamespace)
89                                                 continue; //already handled
90                                         attrs.Add (new XslLiteralAttribute (c));
91                                 } while (c.Input.MoveToNextAttribute());
92                                 c.Input.MoveToParent ();
93                         }
94                         
95                         if (!c.Input.MoveToFirstChild ()) return;
96                         children = c.CompileTemplateContent ();
97                         c.Input.MoveToParent ();
98                 }
99
100                 private void GetCorrectNames ()
101                 {
102                         requireNameFix = false;
103                         prefix = stylesheetNode.Prefix;
104                         string alias = stylesheet.PrefixInEffect (prefix, null);
105                         if (alias != null && alias != stylesheetNode.Prefix) {
106                                 nsUri = stylesheetNode.GetNamespace (alias);
107                                 if (alias != null)
108                                         prefix = alias;
109                         }
110                         else
111                                 nsUri = stylesheetNode.NamespaceURI;
112
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                         if (requireNameFix)
120                                 GetCorrectNames ();
121
122                         bool isCData = p.InsideCDataElement;
123                         p.PushElementState (prefix, localname, nsUri, true);
124                         p.Out.WriteStartElement (prefix, localname, nsUri);
125
126                         if (useAttributeSets != null)
127                                 foreach (XmlQualifiedName s in useAttributeSets)
128                                         p.ResolveAttributeSet (s).Evaluate (p);
129                                                 
130                         if (attrs != null) {
131                                 int len = attrs.Count;
132                                 for (int i = 0; i < len; i++)
133                                         ((XslLiteralAttribute)attrs [i]).Evaluate (p);
134                         }
135
136                         p.TryElementNamespacesOutput (nsDecls, null, null);
137
138                         if (children != null) children.Evaluate (p);
139
140                         if (isEmptyElement)
141                                 p.Out.WriteEndElement ();
142                         else
143                                 p.Out.WriteFullEndElement ();
144
145                         p.PopCDataState (isCData);
146                 }
147         }
148 }