Merge commit '55c7ed6e4d159cebe06999bf61e668284a89cd69' as 'tclxml'

1 files changed, 333 insertions, 0 deletions

diff --git a/tclxml/tcldom.c b/tclxml/tcldom.c
new file mode 100644
index 0000000..467a9c2
--- /dev/null
+++ b/tclxml/tcldom.c
@@ -0,0 +1,333 @@
+/*
+ * tcldom.c --
+ *
+ *	Generic interface to DOM Implementation.
+ *	As of v3.0, there is no substantial generic layer;
+ *	instead each implementation provides its own commands
+ *	directly.  This module now provides common definitions
+ *	for method/option tables, etc.
+ *
+ * Copyright (c) 2006-2007 Explain
+ * http://www.explain.com.au/
+ * Copyright (c) 2002-2004 Steve Ball, Zveno Pty Ltd
+ *
+ * See the file "LICENSE" for information on usage and
+ * redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ * $Id: tcldom.c,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $
+ *
+ */
+
+#include <tcldom/tcldom.h>
+
+/*
+ * Method tables for commands
+ */
+
+#ifndef CONST84
+#define CONST84 /* Before 8.4 no 'const' required */
+#endif
+
+CONST84 char *TclDOM_DOMImplementationCommandMethods[] = {
+  "hasFeature",
+  "createDocument",
+  "create",
+  "createDocumentType",
+  "createNode",
+  "destroy",
+  "isNode",
+  "parse",
+  "selectNode",
+  "serialize",
+  "trim",
+  (char *) NULL
+};
+CONST84 char *TclDOM_DocumentCommandMethods[] = {
+  "cget",
+  "configure",
+  "createElement",
+  "createDocumentFragment",
+  "createTextNode",
+  "createComment",
+  "createCDATASection",
+  "createProcessingInstruction",
+  "createAttribute",
+  "createEntity",
+  "createEntityReference",
+  "createDocTypeDecl",
+  "importNode",
+  "createElementNS",
+  "createAttributeNS",
+  "getElementsByTagNameNS",
+  "getElementsById",
+  "createEvent",
+  "getElementsByTagName",
+  "dtd",
+  "schema",
+  (char *) NULL
+};
+CONST84 char *TclDOM_DocumentCommandOptions[] = {
+  "-doctype",
+  "-implementation",
+  "-documentElement",
+  (char *) NULL
+};
+CONST84 char *TclDOM_DocumentDTDSubmethods[] = {
+  "validate",
+  (char *) NULL
+};
+CONST84 char *TclDOM_DocumentSchemaSubmethods[] = {
+  "compile",
+  "validate",
+  (char *) NULL
+};
+CONST84 char *TclDOM_DocumentRelaxNGSubmethods[] = {
+  "compile",
+  "validate",
+  (char *) NULL
+};
+CONST84 char *TclDOM_NodeCommandMethods[] = {
+  "cget",
+  "configure",
+  "insertBefore",
+  "replaceChild",
+  "removeChild",
+  "appendChild",
+  "hasChildNodes",
+  "cloneNode",
+  "children",
+  "parent",
+  "path",
+  "createNode",
+  "selectNode",
+  "stringValue",
+  "addEventListener",
+  "removeEventListener",
+  "dispatchEvent",
+  "isSameNode",
+  (char *) NULL
+};
+CONST84 char *TclDOM_NodeCommandOptions[] = {
+  "-nodeType",
+  "-parentNode",
+  "-childNodes",
+  "-firstChild",
+  "-lastChild",
+  "-previousSibling",
+  "-nextSibling",
+  "-attributes",
+  "-namespaceURI",
+  "-prefix",
+  "-localName",
+  "-nodeValue",
+  "-cdatasection",
+  "-nodeName",
+  "-ownerDocument",
+  (char *) NULL
+};
+CONST84 char *TclDOM_NodeCommandAddEventListenerOptions[] = {
+  "-usecapture",
+  (char *) NULL
+};
+CONST84 char *TclDOM_ElementCommandMethods[] = {
+  "cget",
+  "configure",
+  "getAttribute",
+  "setAttribute",
+  "removeAttribute",
+  "getAttributeNS",
+  "setAttributeNS",
+  "removeAttributeNS",
+  "getAttributeNode",
+  "setAttributeNode",
+  "removeAttributeNode",
+  "getAttributeNodeNS",
+  "setAttributeNodeNS",
+  "removeAttributeNodeNS",
+  "getElementsByTagName",
+  "normalize",
+  (char *) NULL
+};
+CONST84 char *TclDOM_ElementCommandOptions[] = {
+  "-tagName",
+  "-empty",
+  (char *) NULL
+};
+CONST84 char *TclDOM_EventCommandMethods[] = {
+  "cget",
+  "configure",
+  "stopPropagation",
+  "preventDefault",
+  "initEvent",
+  "initUIEvent",
+  "initMouseEvent",
+  "initMutationEvent",
+  "postUIEvent",
+  "postMouseEvent",
+  "postMutationEvent",
+  (char *) NULL
+};
+CONST84 char *TclDOM_EventCommandOptions[] = {
+  "-altKey",
+  "-attrName",
+  "-attrChange",
+  "-bubbles",
+  "-button",
+  "-cancelable",
+  "-clientX",
+  "-clientY",
+  "-ctrlKey",
+  "-currentNode",
+  "-detail",
+  "-eventPhase",
+  "-metaKey",
+  "-newValue",
+  "-prevValue",
+  "-relatedNode",
+  "-screenX",
+  "-screenY",
+  "-shiftKey",
+  "-target",
+  "-timeStamp",
+  "-type",
+  "-view",
+  (char *) NULL
+};
+CONST84 char *TclDOM_EventTypes[] = {
+  "DOMFocusIn",
+  "DOMFocusOut",
+  "DOMActivate",
+  "click",
+  "mousedown",
+  "mouseup",
+  "mouseover",
+  "mousemove",
+  "mouseout",
+  "DOMSubtreeModified",
+  "DOMNodeInserted",
+  "DOMNodeRemoved",
+  "DOMNodeInsertedIntoDocument",
+  "DOMNodeRemovedFromDocument",
+  "DOMAttrModified",
+  "DOMCharacterDataModified"
+};
+
+CONST84 char *TclDOM_ParseCommandOptions[] = {
+  "-baseuri",
+  "-externalentitycommand",
+  (char *) NULL
+};
+CONST84 char *TclDOM_SerializeCommandOptions[] = {
+  "-indent",
+  "-method",
+  "-encoding",
+  "-omitxmldeclaration",
+  (char *) NULL
+};
+CONST84 char *TclDOM_SerializeMethods[] = {
+  "xml",
+  "html",
+  "text",
+  (char *) NULL
+};
+CONST84 char *TclDOM_SelectNodeOptions[] = {
+  "-namespaces",
+  (char *) NULL
+};
+
+#if 0
+/*
+ *----------------------------------------------------------------------------
+ *
+ * Tcldom_Init --
+ *
+ *  Initialisation routine for generic module.
+ *  NB. As of TclDOM v3.0 this module no longer gets loaded as
+ *  a separate package.
+ *
+ * Results:
+ *  None.
+ *
+ * Side effects:
+ *  Creates variables.
+ *
+ *----------------------------------------------------------------------------
+ */
+
+int
+Tcldom_Init (interp)
+      Tcl_Interp *interp; /* Interpreter to initialise. */
+{
+  Tcl_Obj *objPtr;
+
+  Tcl_SetVar(interp, "::dom::strictDOM", "0", TCL_GLOBAL_ONLY);
+  Tcl_SetVar(interp, "::dom::maxSpecials", "10", TCL_GLOBAL_ONLY);
+  objPtr = Tcl_NewListObj(0, NULL);
+  Tcl_ListObjAppendElement(interp, objPtr, Tcl_NewIntObj(2));
+  Tcl_ListObjAppendElement(interp, objPtr, Tcl_NewStringObj("        ", -1));
+  Tcl_ListObjAppendElement(interp, objPtr, Tcl_NewStringObj("\t", -1));
+  Tcl_SetVar2Ex(interp, "::dom::indentspec", NULL, objPtr, TCL_GLOBAL_ONLY);
+  Tcl_SetVar(interp, "::dom::xmlnsURI", "http://www.w3.org/2000/xmlns/", TCL_GLOBAL_ONLY);
+
+  return TCL_OK;
+}
+#endif /* 0 */
+
+/*
+ *----------------------------------------------------------------------------
+ *
+ * TclDOM_SetVars --
+ *
+ *  Initialisation routine for TclDOM modules.
+ *
+ * Results:
+ *  None.
+ *
+ * Side effects:
+ *  Creates variables.
+ *
+ *----------------------------------------------------------------------------
+ */
+
+int
+TclDOM_SetVars(interp)
+     Tcl_Interp *interp;
+{
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMFocusIn", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMFocusOut", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMActivate", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "click", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "mousedown", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "mouseup", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "mouseover", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "mousemove", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "mouseout", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMSubtreeModified", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMNodeInserted", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMRemoved", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMNodeInsertedIntoDocument", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMRemovedFromDocument", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMAttrModified", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMAttrRemoved", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::bubbles", "DOMCharacterDataModified", Tcl_NewIntObj(1), 0);
+
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMFocusIn", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMFocusOut", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMActivate", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "click", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "mousedown", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "mouseup", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "mouseover", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "mousemove", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "mouseout", Tcl_NewIntObj(1), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMSubtreeModified", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMNodeInserted", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMRemoved", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMNodeInsertedIntoDocument", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMRemovedFromDocument", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMAttrModified", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMAttrRemoved", Tcl_NewIntObj(0), 0);
+  Tcl_SetVar2Ex(interp, "::dom::cancelable", "DOMCharacterDataModified", Tcl_NewIntObj(0), 0);
+
+  return TCL_OK;
+}