Add support of DISPATCH_PROPERTYPUT and DISPATCH_PROPERTYPUTREF to remoting::dispatch::Invoke().

remoting/base/dispatch_win.h.pump

 $$ This is a pump file for generating file templates.  Pump is a python
 $$ script that is part of the Google Test suite of utilities.  Description
 $$ can be found here:
 $$
 $$ http://code.google.com/p/googletest/wiki/PumpManual
 
 $$ MAX_ARITY controls the number of arguments that dispatch::Invoke() supports.
 $$ It is choosen to match the number of arguments base::Bind() supports.
 $var MAX_ARITY = 7
 // Copyright (c) 2012 The Chromium Authors. All rights reserved.
@@ skipping 144 matching lines @@
   internal::ScopedVariantArg disp_args[$(ARITY)];
 $for ARG [[
 
   hr = disp_args[$(ARITY) - $(ARG)].Wrap(p$(ARG));
   if (FAILED(hr))
     return hr;
 ]]
 ]]
 
 
-  // Invoke the method.
+  // Invoke the method. DISPATCH_PROPERTYPUT and DISPATCH_PROPERTYPUTREF require
+  // the parameter to be named, so |cNamedArgs| and |rgdispidNamedArgs| should

[Wez, 2012/07/17 19:53:24]

Which parameter are you referring to here?

[alexeypa (please no reviews), 2012/07/17 19:58:12]

The parameter of a property setter. DISPATCH_PROPERTYPUT and
DISPATCH_PROPERTYPUTREF are telling us that it is a property setter that is
being called.

I'm guessing (it is not clearly documented) a property setter always has only
one parameter. I believe it does not make sense to check if |ARITY| != 1 in
here. IDispatch::Invoke will do it for us.

+  // be initialized.
 
 $if ARITY > 0 [[
   DISPPARAMS disp_params = { disp_args, NULL, $(ARITY), 0 };
 ]] $else [[
   DISPPARAMS disp_params = { NULL, NULL, 0, 0 };
 ]]
 
+  DISPID dispid_named = DISPID_PROPERTYPUT;
+  if (flags == DISPATCH_PROPERTYPUT || flags == DISPATCH_PROPERTYPUTREF) {
+    disp_params.cNamedArgs = 1;
+    disp_params.rgdispidNamedArgs = &dispid_named;
+  }
+
   hr = object->Invoke(disp_id, IID_NULL, LOCALE_USER_DEFAULT, flags,
                       &disp_params, disp_result, NULL, NULL);
   if (FAILED(hr))
     return hr;
 
 $if ARITY > 0 [[
 
   // Unwrap the parameters.
 $for ARG [[
 
@@ skipping 10 matching lines @@
   return S_OK;
 }
 
 ]]
 
 } // namespace dispatch
 
 } // namespace remoting
 
 #endif // REMOTING_BASE_IDISPATCH_DRIVER_WIN_H_