msxml3: Implement createProcessingInstruction with a stub PI object.

dlls/msxml3/Makefile.in

@@ -19,6 +19,7 @@ C_SRCS = \
 	nodelist.c \
 	nodemap.c \
 	parseerror.c \
+	pi.c \
 	regsvr.c \
 	text.c \
 	uuid.c

dlls/msxml3/domdoc.c

@@ -744,8 +744,23 @@ static HRESULT WINAPI domdoc_createProcessingInstruction(
     BSTR data,
     IXMLDOMProcessingInstruction** pi )
 {
-    FIXME("\n");
-    return E_NOTIMPL;
+    xmlNodePtr xmlnode;
+    domdoc *This = impl_from_IXMLDOMDocument( iface );
+    xmlChar *xml_target, *xml_content;
+
+    TRACE("%p->(%s %s %p)\n", iface, debugstr_w(target), debugstr_w(data), pi);
+
+    xml_target = xmlChar_from_wchar((WCHAR*)target);
+    xml_content = xmlChar_from_wchar((WCHAR*)data);
+
+    xmlnode = xmlNewDocPI(get_doc(This), xml_target, xml_content);
+    TRACE("created xmlptr %p\n", xmlnode);
+    *pi = (IXMLDOMProcessingInstruction*)create_pi(xmlnode);
+
+    HeapFree(GetProcessHeap(), 0, xml_content);
+    HeapFree(GetProcessHeap(), 0, xml_target);
+
+    return S_OK;
 }
 
 

dlls/msxml3/msxml_private.h

@@ -35,6 +35,7 @@ extern IUnknown         *create_basic_node( xmlNodePtr node, IUnknown *pUnkOuter
 extern IUnknown         *create_element( xmlNodePtr element, IUnknown *pUnkOuter );
 extern IUnknown         *create_attribute( xmlNodePtr attribute );
 extern IUnknown         *create_text( xmlNodePtr text );
+extern IUnknown         *create_pi( xmlNodePtr pi );
 extern IUnknown         *create_comment( xmlNodePtr comment );
 extern IXMLDOMNodeList  *create_nodelist( xmlNodePtr node );
 extern IXMLDOMNamedNodeMap *create_nodemap( IXMLDOMNode *node );