425 lines
		
	
	
		
			10 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
			
		
		
	
	
			425 lines
		
	
	
		
			10 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
/*
 | 
						|
 * Copyright (C)2005-2019 Haxe Foundation
 | 
						|
 *
 | 
						|
 * 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.
 | 
						|
 */
 | 
						|
 | 
						|
package neko;
 | 
						|
 | 
						|
enum abstract XmlType(String) {}
 | 
						|
typedef NativeXml = Xml;
 | 
						|
 | 
						|
class Xml {
 | 
						|
	public static var Element(default, never):XmlType;
 | 
						|
	public static var PCData(default, never):XmlType;
 | 
						|
	public static var CData(default, never):XmlType;
 | 
						|
	public static var Comment(default, never):XmlType;
 | 
						|
	public static var DocType(default, never):XmlType;
 | 
						|
	public static var ProcessingInstruction(default, never):XmlType;
 | 
						|
	public static var Document(default, never):XmlType;
 | 
						|
 | 
						|
	public var nodeName(get, set):String;
 | 
						|
	public var nodeValue(get, set):String;
 | 
						|
	public var parent(get, null):Xml;
 | 
						|
	public var nodeType(default, null):XmlType;
 | 
						|
 | 
						|
	private var _nodeName:String;
 | 
						|
	private var _nodeValue:String;
 | 
						|
	private var _attributes:Dynamic<String>;
 | 
						|
	private var _children:Array<Xml>;
 | 
						|
	private var _parent:Xml;
 | 
						|
 | 
						|
	private function new():Void {}
 | 
						|
 | 
						|
	private static var _parse = neko.Lib.load("std", "parse_xml", 2);
 | 
						|
 | 
						|
	public static function parse(str:String):Xml {
 | 
						|
		var x = new Xml();
 | 
						|
		x._children = new Array();
 | 
						|
		var parser = {
 | 
						|
			cur: x,
 | 
						|
			add: function(x:Dynamic) {
 | 
						|
				untyped __this__.cur._children.push(x);
 | 
						|
			},
 | 
						|
			xml: function(name, att) {
 | 
						|
				var x:Dynamic = new Xml();
 | 
						|
				x._parent = untyped __this__.cur;
 | 
						|
				x.nodeType = Xml.Element;
 | 
						|
				x._nodeName = new String(name);
 | 
						|
				x._attributes = att;
 | 
						|
				x._children = new Array();
 | 
						|
				untyped {
 | 
						|
					var f = __dollar__objfields(att);
 | 
						|
					var i = 0;
 | 
						|
					var l = __dollar__asize(f);
 | 
						|
					while (i < l) {
 | 
						|
						__dollar__objset(att, f[i], new String(__dollar__objget(att, f[i])));
 | 
						|
						i++;
 | 
						|
					}
 | 
						|
					__this__.add(x);
 | 
						|
					__this__.cur = x;
 | 
						|
				}
 | 
						|
			},
 | 
						|
			cdata: function(text) {
 | 
						|
				var x:Dynamic = new Xml();
 | 
						|
				x._parent = untyped __this__.cur;
 | 
						|
				x.nodeType = Xml.CData;
 | 
						|
				x._nodeValue = new String(text);
 | 
						|
				untyped __this__.add(x);
 | 
						|
			},
 | 
						|
			pcdata: function(text) {
 | 
						|
				var x:Dynamic = new Xml();
 | 
						|
				x._parent = untyped __this__.cur;
 | 
						|
				x.nodeType = Xml.PCData;
 | 
						|
				x._nodeValue = new String(text);
 | 
						|
				untyped __this__.add(x);
 | 
						|
			},
 | 
						|
			comment: function(text) {
 | 
						|
				var x:Dynamic = new Xml();
 | 
						|
				x._parent = untyped __this__.cur;
 | 
						|
				if (untyped __dollar__sget(text, 0) == 63) {
 | 
						|
					x.nodeType = Xml.ProcessingInstruction;
 | 
						|
					text = new String(text);
 | 
						|
					text = text.substr(1, text.length - 2);
 | 
						|
				} else {
 | 
						|
					x.nodeType = Xml.Comment;
 | 
						|
					text = new String(text);
 | 
						|
				}
 | 
						|
				x._nodeValue = text;
 | 
						|
				untyped __this__.add(x);
 | 
						|
			},
 | 
						|
			doctype: function(text) {
 | 
						|
				var x:Dynamic = new Xml();
 | 
						|
				x._parent = untyped __this__.cur;
 | 
						|
				x.nodeType = Xml.DocType;
 | 
						|
				x._nodeValue = new String(text).substr(1);
 | 
						|
				var p:Xml = untyped __this__.cur;
 | 
						|
				p.addChild(x);
 | 
						|
			},
 | 
						|
			done: function() {
 | 
						|
				untyped __this__.cur = __this__.cur._parent;
 | 
						|
			}
 | 
						|
		};
 | 
						|
		untyped _parse(str.__s, parser);
 | 
						|
		x.nodeType = Xml.Document;
 | 
						|
		return x;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createElement(name:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.Element;
 | 
						|
		r._nodeName = name;
 | 
						|
		r._attributes = untyped __dollar__new(null);
 | 
						|
		r._children = new Array();
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createPCData(data:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.PCData;
 | 
						|
		r._nodeValue = data;
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createCData(data:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.CData;
 | 
						|
		r._nodeValue = data;
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createComment(data:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.Comment;
 | 
						|
		r._nodeValue = data;
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createDocType(data:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.DocType;
 | 
						|
		r._nodeValue = data;
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createProcessingInstruction(data:String):Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.ProcessingInstruction;
 | 
						|
		r._nodeValue = data;
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	public static function createDocument():Xml {
 | 
						|
		var r = new Xml();
 | 
						|
		r.nodeType = Xml.Document;
 | 
						|
		r._children = new Array();
 | 
						|
		return r;
 | 
						|
	}
 | 
						|
 | 
						|
	private function get_nodeName():String {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return _nodeName;
 | 
						|
	}
 | 
						|
 | 
						|
	private function set_nodeName(n:String):String {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return _nodeName = n;
 | 
						|
	}
 | 
						|
 | 
						|
	private function get_nodeValue():String {
 | 
						|
		if (nodeType == Xml.Element || nodeType == Xml.Document)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return _nodeValue;
 | 
						|
	}
 | 
						|
 | 
						|
	private function set_nodeValue(v:String):String {
 | 
						|
		if (nodeType == Xml.Element || nodeType == Xml.Document)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return _nodeValue = v;
 | 
						|
	}
 | 
						|
 | 
						|
	private function get_parent():Xml {
 | 
						|
		return _parent;
 | 
						|
	}
 | 
						|
 | 
						|
	public function get(att:String):String {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return Reflect.field(_attributes, att);
 | 
						|
	}
 | 
						|
 | 
						|
	public function set(att:String, value:String):Void {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		Reflect.setField(_attributes, att, value);
 | 
						|
	}
 | 
						|
 | 
						|
	public function remove(att:String):Void {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		Reflect.deleteField(_attributes, att);
 | 
						|
	}
 | 
						|
 | 
						|
	public function exists(att:String):Bool {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return Reflect.hasField(_attributes, att);
 | 
						|
	}
 | 
						|
 | 
						|
	public function attributes():Iterator<String> {
 | 
						|
		if (nodeType != Xml.Element)
 | 
						|
			throw "bad nodeType";
 | 
						|
		return Reflect.fields(_attributes).iterator();
 | 
						|
	}
 | 
						|
 | 
						|
	public function iterator():Iterator<Xml> {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		return untyped {
 | 
						|
			cur: 0,
 | 
						|
			x: this._children,
 | 
						|
			hasNext: function() {
 | 
						|
				return __this__.cur < __this__.x.length;
 | 
						|
			},
 | 
						|
			next: function() {
 | 
						|
				return __this__.x[__this__.cur++];
 | 
						|
			}
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function elements():Iterator<Xml> {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		return untyped {
 | 
						|
			cur: 0,
 | 
						|
			x: this._children,
 | 
						|
			hasNext: function() {
 | 
						|
				var k = __this__.cur;
 | 
						|
				var l = __this__.x.length;
 | 
						|
				while (k < l) {
 | 
						|
					if (__this__.x[k].nodeType == Xml.Element)
 | 
						|
						break;
 | 
						|
					k += 1;
 | 
						|
				}
 | 
						|
				__this__.cur = k;
 | 
						|
				return k < l;
 | 
						|
			},
 | 
						|
			next: function() {
 | 
						|
				var k = __this__.cur;
 | 
						|
				var l = __this__.x.length;
 | 
						|
				while (k < l) {
 | 
						|
					var n = __this__.x[k];
 | 
						|
					k += 1;
 | 
						|
					if (n.nodeType == Xml.Element) {
 | 
						|
						__this__.cur = k;
 | 
						|
						return n;
 | 
						|
					}
 | 
						|
				}
 | 
						|
				return null;
 | 
						|
			}
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function elementsNamed(name:String):Iterator<Xml> {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		return untyped {
 | 
						|
			cur: 0,
 | 
						|
			x: this._children,
 | 
						|
			hasNext: function() {
 | 
						|
				var k = __this__.cur;
 | 
						|
				var l = __this__.x.length;
 | 
						|
				while (k < l) {
 | 
						|
					var n = __this__.x[k];
 | 
						|
					if (n.nodeType == Xml.Element && n._nodeName == name)
 | 
						|
						break;
 | 
						|
					k++;
 | 
						|
				}
 | 
						|
				__this__.cur = k;
 | 
						|
				return k < l;
 | 
						|
			},
 | 
						|
			next: function() {
 | 
						|
				var k = __this__.cur;
 | 
						|
				var l = __this__.x.length;
 | 
						|
				while (k < l) {
 | 
						|
					var n = __this__.x[k];
 | 
						|
					k++;
 | 
						|
					if (n.nodeType == Xml.Element && n._nodeName == name) {
 | 
						|
						__this__.cur = k;
 | 
						|
						return n;
 | 
						|
					}
 | 
						|
				}
 | 
						|
				return null;
 | 
						|
			}
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	public function firstChild():Xml {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		return _children[0];
 | 
						|
	}
 | 
						|
 | 
						|
	public function firstElement():Xml {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		for (cur in 0..._children.length) {
 | 
						|
			var n = _children[cur];
 | 
						|
			if (n.nodeType == Xml.Element)
 | 
						|
				return n;
 | 
						|
		}
 | 
						|
		return null;
 | 
						|
	}
 | 
						|
 | 
						|
	public function addChild(x:Xml):Void {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		if (x._parent != null)
 | 
						|
			x._parent._children.remove(x);
 | 
						|
		x._parent = this;
 | 
						|
		_children.push(x);
 | 
						|
	}
 | 
						|
 | 
						|
	public function removeChild(x:Xml):Bool {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		var b = _children.remove(x);
 | 
						|
		if (b)
 | 
						|
			x._parent = null;
 | 
						|
		return b;
 | 
						|
	}
 | 
						|
 | 
						|
	public function insertChild(x:Xml, pos:Int):Void {
 | 
						|
		if (_children == null)
 | 
						|
			throw "bad nodetype";
 | 
						|
		if (x._parent != null)
 | 
						|
			x._parent._children.remove(x);
 | 
						|
		x._parent = this;
 | 
						|
		_children.insert(pos, x);
 | 
						|
	}
 | 
						|
 | 
						|
	public function toString():String {
 | 
						|
		var s = new StringBuf();
 | 
						|
		toStringRec(s);
 | 
						|
		return s.toString();
 | 
						|
	}
 | 
						|
 | 
						|
	function toStringRec(s:StringBuf):Void {
 | 
						|
		switch (nodeType) {
 | 
						|
			case Xml.Document:
 | 
						|
				for (x in _children)
 | 
						|
					x.toStringRec(s);
 | 
						|
			case Xml.Element:
 | 
						|
				s.addChar("<".code);
 | 
						|
				s.add(_nodeName);
 | 
						|
				for (k in Reflect.fields(_attributes)) {
 | 
						|
					s.addChar(" ".code);
 | 
						|
					s.add(k);
 | 
						|
					s.addChar("=".code);
 | 
						|
					s.addChar("\"".code);
 | 
						|
					s.add(Reflect.field(_attributes, k));
 | 
						|
					s.addChar("\"".code);
 | 
						|
				}
 | 
						|
				if (_children.length == 0) {
 | 
						|
					s.addChar("/".code);
 | 
						|
					s.addChar(">".code);
 | 
						|
					return;
 | 
						|
				}
 | 
						|
				s.addChar(">".code);
 | 
						|
				for (x in _children)
 | 
						|
					x.toStringRec(s);
 | 
						|
				s.addChar("<".code);
 | 
						|
				s.addChar("/".code);
 | 
						|
				s.add(_nodeName);
 | 
						|
				s.addChar(">".code);
 | 
						|
			case Xml.PCData:
 | 
						|
				s.add(StringTools.htmlEscape(_nodeValue));
 | 
						|
			case Xml.CData:
 | 
						|
				s.add("<![CDATA[");
 | 
						|
				s.add(_nodeValue);
 | 
						|
				s.add("]]>");
 | 
						|
			case Xml.Comment:
 | 
						|
				s.add("<!--");
 | 
						|
				s.add(_nodeValue);
 | 
						|
				s.add("-->");
 | 
						|
			case Xml.DocType:
 | 
						|
				s.add("<!DOCTYPE ");
 | 
						|
				s.add(_nodeValue);
 | 
						|
				s.add(">");
 | 
						|
			case Xml.ProcessingInstruction:
 | 
						|
				s.add("<?");
 | 
						|
				s.add(_nodeValue);
 | 
						|
				s.add("?>");
 | 
						|
		}
 | 
						|
	}
 | 
						|
 | 
						|
	static function __init__():Void
 | 
						|
		untyped {
 | 
						|
			Xml.Element = "element";
 | 
						|
			Xml.PCData = "pcdata";
 | 
						|
			Xml.CData = "cdata";
 | 
						|
			Xml.Comment = "comment";
 | 
						|
			Xml.DocType = "doctype";
 | 
						|
			Xml.ProcessingInstruction = "processingInstruction";
 | 
						|
			Xml.Document = "document";
 | 
						|
		}
 | 
						|
}
 |