let the past begone in cvs land. welcome to igit igit!

world/net/jabber/parse.c

@@ -0,0 +1,118 @@
+#include <net.h>
+#include <xml.h>
+
+// dummy declarations
+open_stream(node) { ; }
+
+volatile string innerxml;
+volatile closure nodeHandler;
+
+protected int _xml_start, _xml_end, _xml_offset;
+string buffer = "";
+XMLNode _node;
+volatile XMLNode *_nodestack = ({ });
+
+void xml_onStartTag(string tag, mapping params) {
+    string t = "/"+ tag;
+    if (!_node && tag == "stream:stream") {
+	_node = new_XMLNode;
+	_node[Tag] = tag;
+	foreach(string key, string val : params)
+	    _node["@" + key] = val;
+
+	open_stream(_node);
+	_node = 0;
+	buffer = buffer[expat_position() + expat_eventlen()..];
+	return;
+    }
+
+    if (_node) {
+	_nodestack += ({ _node });
+	if (!_node[t]) {
+	    /* no child with that name */
+	    _node[t] = new_XMLNode;
+	    _node = _node[t];
+	} else {
+	    if (!nodelistp(_node[t])) {
+		/* just a single node with that name, convert it 
+		 */
+		_node[t] = ({ _node[t] });
+	    }
+	    _node[t] += ({ new_XMLNode });
+	    _node = _node[t][<1];
+	}
+    } else {
+	_node = new_XMLNode;
+	_nodestack = ({ });
+	_xml_start = expat_position() + expat_eventlen();
+	_xml_offset = expat_position();
+    } 
+    _node[Tag] = tag;
+    foreach(string key, string val : params)
+	_node["@" + key] = val;
+}
+
+void xml_onEndTag(string tag) {
+    if (!_node && tag == "stream:stream") {
+	// is there anything to be done here? like sending a closing
+	// ack? we did not do it before but... lynX wrote that stream
+	// closing handshake xep so he probably implemented it, too...
+	return;
+    }
+    if (sizeof(_nodestack) > 0) {
+	_node = _nodestack[<1];
+	_nodestack = _nodestack[..<2];
+    } else {
+	_xml_end = expat_position();
+	innerxml = buffer[_xml_start-_xml_offset..(_xml_end-_xml_offset-1)];
+	
+	P2(("innerxml %O\n", innerxml))
+	funcall(nodeHandler, _node);
+	_node = 0;
+	buffer = "";
+	innerxml = 0;
+    }
+}
+
+void xml_onText(string data) {
+    if (!_node)
+	return; // whitespace usually
+    if (_node[Cdata]) 
+	_node[Cdata] += data;
+    else
+	_node[Cdata] = data;
+}
+
+feed(a) {
+	int d;
+
+	if (!_node && a == "\n") {
+	    /* whitespace ping */
+	} else {
+	    buffer += a;
+	    d = expat_parse(a);
+	    if (!d) {
+		mixed e = expat_last_error();
+		PT(("parse error while parsing %O:\n%O\n", a, e))
+	    }
+	    // TODO: error handling muss hier her
+	}
+	/*
+#if __EFUN_DEFINED__(convert_charset) && SYSTEM_CHARSET != "UTF-8"
+		if (catch(a = convert_charset(buffer[0..pos - 1],
+				      "UTF-8", SYSTEM_CHARSET); nolog)) {
+			P1(("catch! iconv %O in %O\n", a, ME))
+			//QUIT
+			a = buffer; // let's give it a try
+		}
+		xmlparse(a);
+#else
+		xmlparse(buffer[0..pos - 1]);
+#endif
+*/
+#ifdef INPUT_NO_TELNET
+        input_to(#'feed, INPUT_IGNORE_BANG | INPUT_CHARMODE | INPUT_NO_TELNET);
+#else
+	input_to(#'feed, INPUT_IGNORE_BANG | INPUT_CHARMODE);
+#endif
+}