2 // XsltCompiledContext.cs
5 // Ben Maurer (bmaurer@users.sourceforge.net)
6 // Atsushi Enomoto (atsushi@ximian.com)
8 // (C) 2004 Atsushi Enomoto
12 // Permission is hereby granted, free of charge, to any person obtaining
13 // a copy of this software and associated documentation files (the
14 // "Software"), to deal in the Software without restriction, including
15 // without limitation the rights to use, copy, modify, merge, publish,
16 // distribute, sublicense, and/or sell copies of the Software, and to
17 // permit persons to whom the Software is furnished to do so, subject to
18 // the following conditions:
20 // The above copyright notice and this permission notice shall be
21 // included in all copies or substantial portions of the Software.
23 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
24 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
25 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
26 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
27 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
28 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
29 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
32 using System.Collections;
33 using System.Globalization;
34 using System.Reflection;
37 using System.Xml.XPath;
41 using QName = System.Xml.XmlQualifiedName;
43 namespace Mono.Xml.Xsl
45 internal abstract class XPFuncImpl : IXsltContextFunction
48 XPathResultType returnType;
49 XPathResultType [] argTypes;
51 public XPFuncImpl () {}
52 public XPFuncImpl (int minArgs, int maxArgs, XPathResultType returnType, XPathResultType[] argTypes)
54 this.Init(minArgs, maxArgs, returnType, argTypes);
57 protected void Init (int minArgs, int maxArgs, XPathResultType returnType, XPathResultType[] argTypes)
59 this.minargs = minArgs;
60 this.maxargs = maxArgs;
61 this.returnType = returnType;
62 this.argTypes = argTypes;
65 public int Minargs { get { return this.minargs; }}
66 public int Maxargs { get { return this.maxargs; }}
67 public XPathResultType ReturnType { get { return this.returnType; }}
68 public XPathResultType [] ArgTypes { get { return this.argTypes; }}
69 public object Invoke (XsltContext xsltContext, object [] args, XPathNavigator docContext)
71 return Invoke ((XsltCompiledContext)xsltContext, args, docContext);
74 public abstract object Invoke (XsltCompiledContext xsltContext, object [] args, XPathNavigator docContext);
76 public static XPathResultType GetXPathType (Type type, XPathNavigator node) {
77 switch (Type.GetTypeCode(type)) {
79 return XPathResultType.String;
80 case TypeCode.Boolean:
81 return XPathResultType.Boolean;
83 if (typeof (XPathNavigator).IsAssignableFrom (type) || typeof (IXPathNavigable).IsAssignableFrom (type))
84 return XPathResultType.Navigator;
86 if (typeof (XPathNodeIterator).IsAssignableFrom (type))
87 return XPathResultType.NodeSet;
89 return XPathResultType.Any;
90 case TypeCode.DateTime :
91 throw new XsltException ("Invalid type DateTime was specified.", null, node);
93 return XPathResultType.Number;
98 class XsltExtensionFunction : XPFuncImpl
100 private object extension;
101 private MethodInfo method;
102 private TypeCode [] typeCodes;
104 public XsltExtensionFunction (object extension, MethodInfo method, XPathNavigator currentNode)
106 this.extension = extension;
107 this.method = method;
109 ParameterInfo [] parameters = method.GetParameters ();
110 int minArgs = parameters.Length;
111 int maxArgs = parameters.Length;
113 this.typeCodes = new TypeCode [parameters.Length];
114 XPathResultType[] argTypes = new XPathResultType [parameters.Length];
116 bool canBeOpt = true;
117 for (int i = parameters.Length - 1; 0 <= i; i--) { // optionals at the end
118 typeCodes [i] = Type.GetTypeCode (parameters [i].ParameterType);
119 argTypes [i] = GetXPathType (parameters [i].ParameterType, currentNode);
121 if (parameters[i].IsOptional)
127 base.Init (minArgs, maxArgs, GetXPathType (method.ReturnType, currentNode), argTypes);
130 public override object Invoke (XsltCompiledContext xsltContext, object [] args, XPathNavigator docContext)
133 ParameterInfo [] pis = method.GetParameters ();
134 object [] castedArgs = new object [pis.Length];
135 for (int i = 0; i < args.Length; i++) {
136 Type t = pis [i].ParameterType;
137 switch (t.FullName) {
139 case "System.UInt16":
141 case "System.UInt32":
143 case "System.UInt64":
144 case "System.Single":
145 case "System.Decimal":
146 castedArgs [i] = Convert.ChangeType (args [i], t);
149 castedArgs [i] = args [i];
154 object result = null;
155 switch (method.ReturnType.FullName) {
157 case "System.UInt16":
159 case "System.UInt32":
161 case "System.UInt64":
162 case "System.Single":
163 case "System.Decimal":
164 result = (double) method.Invoke (extension, castedArgs);
167 result = method.Invoke(extension, castedArgs);
170 IXPathNavigable navigable = result as IXPathNavigable;
171 if (navigable != null)
172 return navigable.CreateNavigator ();
175 } catch (Exception ex) {
176 throw new XsltException ("Custom function reported an error.", ex);
177 // Debug.WriteLine ("****** INCORRECT RESOLUTION **********");
182 class XsltCurrent : XPathFunction
184 public XsltCurrent (FunctionArguments args) : base (args)
187 throw new XPathException ("current takes 0 args");
190 public override XPathResultType ReturnType { get { return XPathResultType.NodeSet; }}
192 public override object Evaluate (BaseIterator iter)
194 return new SelfIterator ((iter.NamespaceManager as XsltCompiledContext).Processor.CurrentNode, null);
198 class XsltDocument : XPathFunction
200 Expression arg0, arg1;
203 public XsltDocument (FunctionArguments args, Compiler c) : base (args)
205 if (args == null || (args.Tail != null && args.Tail.Tail != null))
206 throw new XPathException ("document takes one or two args");
209 if (args.Tail != null)
210 arg1 = args.Tail.Arg;
211 doc = c.Input.Clone ();
213 public override XPathResultType ReturnType { get { return XPathResultType.NodeSet; }}
215 public override object Evaluate (BaseIterator iter)
217 string baseUri = null;
219 XPathNodeIterator it = arg1.EvaluateNodeSet (iter);
221 baseUri = it.Current.BaseURI;
223 baseUri = VoidBaseUriFlag;
226 object o = arg0.Evaluate (iter);
227 if (o is XPathNodeIterator)
228 return GetDocument ((iter.NamespaceManager as XsltCompiledContext), (XPathNodeIterator)o, baseUri);
230 return GetDocument ((iter.NamespaceManager as XsltCompiledContext), o is IFormattable ? ((IFormattable) o).ToString (null, CultureInfo.InvariantCulture) : o.ToString (), baseUri);
233 static string VoidBaseUriFlag = "&^)(*&%*^$&$VOID!BASE!URI!";
235 Uri Resolve (string thisUri, string baseUri, XslTransformProcessor p)
237 // Debug.WriteLine ("THIS: " + thisUri);
238 // Debug.WriteLine ("BASE: " + baseUri);
239 XmlResolver r = p.Resolver;
242 if (! object.ReferenceEquals (baseUri, VoidBaseUriFlag) && baseUri != String.Empty)
243 uriBase = r.ResolveUri (null, baseUri);
245 return r.ResolveUri (uriBase, thisUri);
248 XPathNodeIterator GetDocument (XsltCompiledContext xsltContext, XPathNodeIterator itr, string baseUri)
250 ArrayList list = new ArrayList ();
251 Hashtable got = new Hashtable ();
253 while (itr.MoveNext()) {
254 Uri uri = Resolve (itr.Current.Value, baseUri != null ? baseUri : /*itr.Current.BaseURI*/doc.BaseURI, xsltContext.Processor);
255 if (!got.ContainsKey (uri)) {
257 if (uri.ToString () == "") {
258 XPathNavigator n = doc.Clone ();
262 list.Add (xsltContext.Processor.GetDocument (uri));
266 return new ListIterator (list, xsltContext, false);
269 XPathNodeIterator GetDocument (XsltCompiledContext xsltContext, string arg0, string baseUri)
271 Uri uri = Resolve (arg0, baseUri != null ? baseUri : doc.BaseURI, xsltContext.Processor);
273 if (uri.ToString () == "") {
277 n = xsltContext.Processor.GetDocument (uri);
279 return new SelfIterator (n, xsltContext);
283 class XsltElementAvailable : XPathFunction
286 XmlNamespaceManager nsm;
288 public XsltElementAvailable (FunctionArguments args, IStaticXsltContext ctx) : base (args)
290 if (args == null || args.Tail != null)
291 throw new XPathException ("element-available takes 1 arg");
297 public override XPathResultType ReturnType { get { return XPathResultType.Boolean; }}
299 public override object Evaluate (BaseIterator iter)
301 QName name = XslNameUtil.FromString (arg0.EvaluateString (iter), nsm);
304 (name.Namespace == Compiler.XsltNamespace) &&
307 // A list of all the instructions (does not include top-level-elements)
309 name.Name == "apply-imports" ||
310 name.Name == "apply-templates" ||
311 name.Name == "call-template" ||
312 name.Name == "choose" ||
313 name.Name == "comment" ||
314 name.Name == "copy" ||
315 name.Name == "copy-of" ||
316 name.Name == "element" ||
317 name.Name == "fallback" ||
318 name.Name == "for-each" ||
319 name.Name == "message" ||
320 name.Name == "number" ||
321 name.Name == "processing-instruction" ||
322 name.Name == "text" ||
323 name.Name == "value-of" ||
324 name.Name == "variable"
330 class XsltFormatNumber : XPathFunction
332 Expression arg0, arg1, arg2;
333 XmlNamespaceManager nsm;
335 public XsltFormatNumber (FunctionArguments args, IStaticXsltContext ctx) : base (args)
337 if (args == null || args.Tail == null || (args.Tail.Tail != null && args.Tail.Tail.Tail != null))
338 throw new XPathException ("format-number takes 2 or 3 args");
341 arg1 = args.Tail.Arg;
342 if (args.Tail.Tail != null) {
343 arg2= args.Tail.Tail.Arg;
347 public override XPathResultType ReturnType { get { return XPathResultType.String; }}
349 public override object Evaluate (BaseIterator iter)
351 double d = arg0.EvaluateNumber (iter);
352 string s = arg1.EvaluateString (iter);
353 QName nm = QName.Empty;
356 nm = XslNameUtil.FromString (arg2.EvaluateString (iter), nsm);
359 return (iter.NamespaceManager as XsltCompiledContext).Processor.CompiledStyle
360 .LookupDecimalFormat (nm).FormatNumber (d, s);
361 } catch (ArgumentException ex) {
362 throw new XsltException (ex.Message, ex, iter.Current);
367 class XsltFunctionAvailable : XPathFunction
370 XmlNamespaceManager nsm;
372 public XsltFunctionAvailable (FunctionArguments args, IStaticXsltContext ctx) : base (args)
374 if (args == null || args.Tail != null)
375 throw new XPathException ("element-available takes 1 arg");
381 public override XPathResultType ReturnType { get { return XPathResultType.Boolean; }}
383 public override object Evaluate (BaseIterator iter)
386 string name = arg0.EvaluateString (iter);
387 int colon = name.IndexOf (':');
388 // extension function
390 return (iter.NamespaceManager as XsltCompiledContext).ResolveFunction (
391 XslNameUtil.FromString (name, nsm),
401 name == "contains" ||
408 name == "local-name" ||
410 name == "namespace-uri" ||
411 name == "normalize-space" ||
414 name == "position" ||
416 name == "starts-with" ||
418 name == "string-length" ||
419 name == "substring" ||
420 name == "substring-after" ||
421 name == "substring-before" ||
423 name == "translate" ||
426 name == "document" ||
427 name == "format-number" ||
428 name == "function-available" ||
429 name == "generate-id" ||
432 name == "unparsed-entity-uri" ||
433 name == "element-available" ||
434 name == "system-property"
439 class XsltGenerateId : XPathFunction
442 public XsltGenerateId (FunctionArguments args) : base (args)
445 if (args.Tail != null)
446 throw new XPathException ("generate-id takes 1 or no args");
451 public override XPathResultType ReturnType { get { return XPathResultType.String; }}
452 public override object Evaluate (BaseIterator iter)
456 XPathNodeIterator itr = arg0.EvaluateNodeSet (iter);
458 n = itr.Current.Clone ();
460 return string.Empty; // empty nodeset == empty string
462 n = iter.Current.Clone ();
464 StringBuilder sb = new StringBuilder ("Mono"); // Ensure begins with alpha
465 sb.Append (XmlConvert.EncodeLocalName (n.BaseURI));
466 sb.Replace ('_', 'm'); // remove underscores from EncodeLocalName
467 sb.Append (n.NodeType);
471 sb.Append (IndexInParent (n));
473 } while (n.MoveToParent ());
475 return sb.ToString ();
478 int IndexInParent (XPathNavigator nav)
481 while (nav.MoveToPrevious ())
488 class XsltKey : XPathFunction
490 Expression arg0, arg1;
491 XmlNamespaceManager nsm;
494 public XsltKey (FunctionArguments args, IStaticXsltContext ctx) : base (args)
496 if (args == null || args.Tail == null)
497 throw new XPathException ("key takes 2 args");
499 arg1 = args.Tail.Arg;
502 public Expression KeyName { get { return arg0; } }
503 public Expression Field { get { return arg1; } }
504 public XmlNamespaceManager NamespaceManager { get { return nsm; } }
505 public override XPathResultType ReturnType { get { return XPathResultType.NodeSet; }}
507 public override object Evaluate (BaseIterator iter)
509 QName name = XslNameUtil.FromString (arg0.EvaluateString (iter), nsm);
510 XsltCompiledContext ctx = iter.NamespaceManager as XsltCompiledContext;
512 key = ctx.Processor.CompiledStyle.Style.FindKey (name);
514 ArrayList result = new ArrayList ();
515 object o = arg1.Evaluate (iter);
516 XPathNodeIterator it = o as XPathNodeIterator;
519 while (it.MoveNext())
520 FindKeyMatch (ctx, it.Current.Value, result, iter.Current);
522 FindKeyMatch (ctx, XPathFunctions.ToString (o), result, iter.Current);
525 return new ListIterator (result, (iter.NamespaceManager as XsltCompiledContext), true);
528 void FindKeyMatch (XsltCompiledContext xsltContext, string value, ArrayList result, XPathNavigator context)
530 XPathNavigator searchDoc = context.Clone ();
531 searchDoc.MoveToRoot ();
533 XPathNodeIterator desc = searchDoc.SelectDescendants (XPathNodeType.All, true);
535 while (desc.MoveNext ()) {
536 if (key.Matches (desc.Current, xsltContext, value))
537 AddResult (result, desc.Current);
539 if (desc.Current.MoveToFirstAttribute ()) {
541 if (key.Matches (desc.Current, xsltContext, value))
542 AddResult (result, desc.Current);
543 } while (desc.Current.MoveToNextAttribute ());
545 desc.Current.MoveToParent ();
551 void AddResult (ArrayList result, XPathNavigator nav)
553 for (int i = 0; i < result.Count; i++) {
554 XmlNodeOrder docOrder = nav.ComparePosition (((XPathNavigator)result [i]));
555 if (docOrder == XmlNodeOrder.Same)
558 if (docOrder == XmlNodeOrder.Before) {
559 result.Insert(i, nav.Clone ());
563 result.Add (nav.Clone ());
567 class XsltSystemProperty : XPathFunction
570 XmlNamespaceManager nsm;
572 public XsltSystemProperty (FunctionArguments args, IStaticXsltContext ctx) : base (args)
574 if (args == null || args.Tail != null)
575 throw new XPathException ("system-property takes 1 arg");
581 public override XPathResultType ReturnType { get { return XPathResultType.String; }}
582 public override object Evaluate (BaseIterator iter)
584 QName name = XslNameUtil.FromString (arg0.EvaluateString (iter), nsm);
586 if (name.Namespace == Compiler.XsltNamespace) {
588 case "version": return "1.0";
589 case "vendor": return "Mono";
590 case "vendor-url": return "http://www.go-mono.com/";
598 class XsltUnparsedEntityUri : XPathFunction
602 public XsltUnparsedEntityUri (FunctionArguments args) : base (args)
604 if (args == null || args.Tail != null)
605 throw new XPathException ("unparsed-entity-uri takes 1 arg");
610 public override XPathResultType ReturnType { get { return XPathResultType.String; }}
611 public override object Evaluate (BaseIterator iter)
613 IHasXmlNode xn = iter.Current as IHasXmlNode;
616 XmlNode n = xn.GetNode ();
617 XmlDocumentType doctype = n.OwnerDocument.DocumentType;
620 XmlEntity ent = doctype.Entities.GetNamedItem (arg0.EvaluateString (iter)) as XmlEntity;
628 class MSXslNodeSet : XPathFunction
632 public MSXslNodeSet (FunctionArguments args) : base (args)
634 if (args == null || args.Tail != null)
635 throw new XPathException ("element-available takes 1 arg");
640 public override XPathResultType ReturnType {
\r
642 return XPathResultType.NodeSet;
\r
646 public override object Evaluate (BaseIterator iter)
\r
648 XsltCompiledContext ctx = iter.NamespaceManager as XsltCompiledContext;
\r
649 XPathNavigator loc = iter.Current != null ? iter.Current.Clone () : null;
\r
650 XPathNavigator nav = arg0.EvaluateAs (iter, XPathResultType.Navigator) as XPathNavigator;
\r
653 return new XsltException ("Cannot convert the XPath argument to a result tree fragment.", null, loc);
\r
655 return new XsltException ("Cannot convert the XPath argument to a result tree fragment.", null);
\r
657 ArrayList al = new ArrayList ();
\r
659 return new ListIterator (al, ctx, false);
\r