Hans Leidekker : webservices: Implement WsFillReader.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 7b16d186e62ebe591b41add50074f72ca61aeee5
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=7b16d186e62ebe591b41add50074f72ca61aeee5

Author: Hans Leidekker <hans at codeweavers.com>
Date:   Wed Sep 16 11:19:00 2015 +0200

webservices: Implement WsFillReader.

---

 dlls/webservices/reader.c         | 22 ++++++++++++++++++++++
 dlls/webservices/webservices.spec |  2 +-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/dlls/webservices/reader.c b/dlls/webservices/reader.c
index 1599aac..a9219ee 100644
--- a/dlls/webservices/reader.c
+++ b/dlls/webservices/reader.c
@@ -336,6 +336,8 @@ reader_props[] =
 
 struct reader
 {
+    ULONG                   read_size;
+    ULONG                   read_pos;
     struct list             nodes;
     struct node            *current;
     const char             *input_data;
@@ -446,6 +448,26 @@ void WINAPI WsFreeReader( WS_XML_READER *handle )
 }
 
 /**************************************************************************
+ *          WsFillReader		[webservices.@]
+ */
+HRESULT WINAPI WsFillReader( WS_XML_READER *handle, ULONG min_size, const WS_ASYNC_CONTEXT *ctx,
+                             WS_ERROR *error )
+{
+    struct reader *reader = (struct reader *)handle;
+
+    TRACE( "%p %u %p %p\n", handle, min_size, ctx, error );
+    if (error) FIXME( "ignoring error parameter\n" );
+
+    if (!reader) return E_INVALIDARG;
+
+    /* FIXME: add support for stream input */
+    reader->read_size = min( min_size, reader->input_size );
+    reader->read_pos  = 0;
+
+    return S_OK;
+}
+
+/**************************************************************************
  *          WsGetErrorProperty		[webservices.@]
  */
 HRESULT WINAPI WsGetErrorProperty( WS_ERROR *handle, WS_ERROR_PROPERTY_ID id, void *buf,
diff --git a/dlls/webservices/webservices.spec b/dlls/webservices/webservices.spec
index cf74019..e8a0c7f 100644
--- a/dlls/webservices/webservices.spec
+++ b/dlls/webservices/webservices.spec
@@ -44,7 +44,7 @@
 @ stub WsEndWriterCanonicalization
 @ stub WsFileTimeToDateTime
 @ stub WsFillBody
-@ stub WsFillReader
+@ stdcall WsFillReader(ptr long ptr ptr)
 @ stub WsFindAttribute
 @ stub WsFlushBody
 @ stub WsFlushWriter