Jactry Zeng : msxml3: Add ValidateOnParse support for IXMLDOMDocument3_{get,set}Property().

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 3db3e3768ba23ee71ba4a212d05f23d5a3fecac7
URL:    https://gitlab.winehq.org/wine/wine/-/commit/3db3e3768ba23ee71ba4a212d05f23d...

Author: Jactry Zeng <jzeng(a)codeweavers.com>
Date:   Mon Sep 25 08:40:08 2023 -0500

msxml3: Add ValidateOnParse support for IXMLDOMDocument3_{get,set}Property().

---

 dlls/msxml3/domdoc.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/dlls/msxml3/domdoc.c b/dlls/msxml3/domdoc.c
index 30dd2f4743f..a8679d9b782 100644
--- a/dlls/msxml3/domdoc.c
+++ b/dlls/msxml3/domdoc.c
@@ -68,6 +68,7 @@ static const WCHAR PropertyResolveExternalsW[] = {'R','e','s','o','l','v','e','E
 static const WCHAR PropertyAllowXsltScriptW[] = {'A','l','l','o','w','X','s','l','t','S','c','r','i','p','t',0};
 static const WCHAR PropertyAllowDocumentFunctionW[] = {'A','l','l','o','w','D','o','c','u','m','e','n','t','F','u','n','c','t','i','o','n',0};
 static const WCHAR PropertyNormalizeAttributeValuesW[] = {'N','o','r','m','a','l','i','z','e','A','t','t','r','i','b','u','t','e','V','a','l','u','e','s',0};
+static const WCHAR PropertyValidateOnParse[] = L"ValidateOnParse";
 
 /* Anything that passes the test_get_ownerDocument()
  * tests can go here (data shared between all instances).
@@ -3189,6 +3190,16 @@ static HRESULT WINAPI domdoc_setProperty(
         VariantClear(&varStr);
         return hr;
     }
+    else if (lstrcmpiW(p, PropertyValidateOnParse) == 0)
+    {
+        if (This->properties->version < MSXML4)
+            return E_FAIL;
+        else
+        {
+            This->properties->validating = V_BOOL(&value);
+            return S_OK;
+        }
+    }
     else if (lstrcmpiW(p, PropertyProhibitDTDW) == 0 ||
              lstrcmpiW(p, PropertyNewParserW) == 0 ||
              lstrcmpiW(p, PropertyResolveExternalsW) == 0 ||
@@ -3260,6 +3271,17 @@ static HRESULT WINAPI domdoc_getProperty(
         heap_free(rebuiltStr);
         return S_OK;
     }
+    else if (lstrcmpiW(p, PropertyValidateOnParse) == 0)
+    {
+        if (This->properties->version < MSXML4)
+            return E_FAIL;
+        else
+        {
+            V_VT(var) = VT_BOOL;
+            V_BOOL(var) = This->properties->validating;
+            return S_OK;
+        }
+    }
 
     FIXME("Unknown property %s\n", debugstr_w(p));
     return E_FAIL;