git.oblomov.eu Git - wine/blob - include/wine/obj_oleaut.h

   1 /*
   2  * Defines the COM interfaces and APIs related to OLE automation support.
   3  */
   4
   5 #ifndef __WINE_WINE_OBJ_OLEAUT_H
   6 #define __WINE_WINE_OBJ_OLEAUT_H
   7
   8
   9 DEFINE_OLEGUID(IID_StdOle, 0x00020430,0,0);
  10
  11 /*****************************************************************************
  12  * Predeclare the interfaces
  13  */
  14 DEFINE_OLEGUID(IID_IDispatch,       0x00020400,0,0);
  15 typedef struct IDispatch IDispatch,*LPDISPATCH;
  16
  17 DEFINE_OLEGUID(IID_ITypeInfo,       0x00020401,0,0);
  18 typedef struct ITypeInfo ITypeInfo,*LPTYPEINFO;
  19
  20 DEFINE_OLEGUID(IID_ITypeLib,        0x00020402,0,0);
  21 typedef struct ITypeLib ITypeLib,*LPTYPELIB;
  22
  23 DEFINE_OLEGUID(IID_ITypeComp,       0x00020403,0,0);
  24 typedef struct ITypeComp ITypeComp,*LPTYPECOMP;
  25
  26 DEFINE_OLEGUID(IID_IEnumVARIANT,    0x00020404,0,0);
  27 typedef struct IEnumVARIANT IEnumVARIANT,*LPENUMVARIANT;
  28
  29 DEFINE_OLEGUID(IID_ICreateTypeInfo, 0x00020405,0,0);
  30 typedef struct ICreateTypeInfo ICreateTypeInfo,*LPCREATETYPEINFO;
  31
  32 DEFINE_OLEGUID(IID_ICreateTypeLib,  0x00020406,0,0);
  33 typedef struct ICreateTypeLib ICreateTypeLib,*LPCREATETYPELIB;
  34
  35 DEFINE_OLEGUID(IID_ICreateTypeInfo2,0x0002040E,0,0);
  36 typedef struct ICreateTypeInfo2 ICreateTypeInfo2,*LPCREATETYPEINFO2;
  37
  38 DEFINE_OLEGUID(IID_ICreateTypeLib2, 0x0002040F,0,0);
  39 typedef struct ICreateTypeLib2 ICreateTypeLib2,*LPCREATETYPELIB2;
  40
  41 DEFINE_OLEGUID(IID_ITypeChangeEvents,0x00020410,0,0);
  42 typedef struct ITypeChangeEvents ITypeChangeEvents,*LPTYPECHANGEEVENTS;
  43
  44 DEFINE_OLEGUID(IID_ITypeLib2,       0x00020411,0,0);
  45 typedef struct ITypeLib2 ITypeLib2,*LPTYPELIB2;
  46
  47 DEFINE_OLEGUID(IID_ITypeInfo2,      0x00020412,0,0);
  48 typedef struct ITypeInfo2 ITypeInfo2,*LPTYPEINFO2;
  49
  50 /*****************************************************************************
  51  * Automation data types
  52  */
  53
  54 /*****************************************************************
  55  *  SafeArray defines and structs
  56  */
  57
  58 #define FADF_AUTO        ( 0x1 )
  59 #define FADF_STATIC      ( 0x2 )
  60 #define FADF_EMBEDDED    ( 0x4 )
  61 #define FADF_FIXEDSIZE   ( 0x10 )
  62 #define FADF_RECORD      ( 0x20 )
  63 #define FADF_HAVEIID     ( 0x40 )
  64 #define FADF_HAVEVARTYPE ( 0x80 )
  65 #define FADF_BSTR        ( 0x100 )
  66 #define FADF_UNKNOWN     ( 0x200 )
  67 #define FADF_DISPATCH    ( 0x400 )
  68 #define FADF_VARIANT     ( 0x800 )
  69 #define FADF_RESERVED    ( 0xf008 )
  70
  71 /* Undocumented flags */
  72 #define FADF_CREATEVECTOR ( 0x2000 ) /* set when the safe array is created using SafeArrayCreateVector */
  73
  74
  75 typedef struct  tagSAFEARRAYBOUND
  76 {
  77   ULONG cElements;                  /* Number of elements in dimension */
  78   LONG  lLbound;                    /* Lower bound of dimension */
  79 } SAFEARRAYBOUND;
  80
  81 typedef struct  tagSAFEARRAY
  82 {
  83   USHORT          cDims;            /* Count of array dimension */
  84   USHORT          fFeatures;        /* Flags describing the array */
  85   ULONG           cbElements;       /* Size of each element */
  86   ULONG           cLocks;           /* Number of lock on array */
  87   PVOID           pvData;           /* Pointer to data valid when cLocks > 0 */
  88   SAFEARRAYBOUND  rgsabound[ 1 ];   /* One bound for each dimension */
  89 } SAFEARRAY, *LPSAFEARRAY;
  90
  91 typedef enum tagCALLCONV {
  92         CC_CDECL    = 1,
  93         CC_MSCPASCAL  = CC_CDECL + 1,
  94         CC_PASCAL   = CC_MSCPASCAL,
  95         CC_MACPASCAL  = CC_PASCAL + 1,
  96         CC_STDCALL    = CC_MACPASCAL + 1,
  97         CC_RESERVED   = CC_STDCALL + 1,
  98         CC_SYSCALL    = CC_RESERVED + 1,
  99         CC_MPWCDECL   = CC_SYSCALL + 1,
 100         CC_MPWPASCAL  = CC_MPWCDECL + 1,
 101         CC_MAX    = CC_MPWPASCAL + 1
 102 } CALLCONV;
 103
 104 typedef CY CURRENCY;
 105
 106 /*
 107  * Declarations of the VARIANT structure and the VARIANT APIs.
 108  */
 109 /* S_OK                            : Success.
 110  * DISP_E_BADVARTYPE   : The variant type vt in not a valid type of variant.
 111  * DISP_E_OVERFLOW         : The data pointed to by pvarSrc does not fit in the destination type.
 112  * DISP_E_TYPEMISMATCH : The variant type vt is not a valid type of variant.
 113  * E_INVALIDARG            : One argument is invalid.
 114  * * E_OUTOFMEMORY     : Memory could not be allocated for the conversion.
 115  * DISP_E_ARRAYISLOCKED : The variant contains an array that is locked.
 116  */
 117
 118 typedef struct tagVARIANT VARIANT, *LPVARIANT;
 119 typedef struct tagVARIANT VARIANTARG, *LPVARIANTARG;
 120
 121 struct tagVARIANT {
 122         VARTYPE vt;
 123         WORD wReserved1;
 124         WORD wReserved2;
 125         WORD wReserved3;
 126         union /* DUMMYUNIONNAME */
 127         {
 128         /* By value. */
 129                 CHAR cVal;
 130                 USHORT uiVal;
 131                 ULONG ulVal;
 132                 INT intVal;
 133                 UINT uintVal;
 134                 BYTE bVal;
 135                 short iVal;
 136                 long lVal;
 137                 float fltVal;
 138                 double dblVal;
 139                 VARIANT_BOOL boolVal;
 140                 SCODE scode;
 141                 DATE date;
 142                 BSTR bstrVal;
 143                 CY cyVal;
 144                 DECIMAL decVal;
 145                 IUnknown* punkVal;
 146                 IDispatch* pdispVal;
 147                 SAFEARRAY* parray;
 148
 149                 /* By reference */
 150                 CHAR* pcVal;
 151                 USHORT* puiVal;
 152                 ULONG* pulVal;
 153                 INT* pintVal;
 154                 UINT* puintVal;
 155                 BYTE* pbVal;
 156                 short* piVal;
 157                 long* plVal;
 158                 float* pfltVal;
 159                 double* pdblVal;
 160                 VARIANT_BOOL* pboolVal;
 161                 SCODE* pscode;
 162                 DATE* pdate;
 163                 BSTR* pbstrVal;
 164                 VARIANT* pvarVal;
 165                 PVOID byref;
 166                 CY* pcyVal;
 167                 DECIMAL* pdecVal;
 168                 IUnknown** ppunkVal;
 169                 IDispatch** ppdispVal;
 170                 SAFEARRAY** pparray;
 171         } DUMMYUNIONNAME;
 172 };
 173
 174
 175 typedef LONG DISPID;
 176 typedef DWORD HREFTYPE;
 177 typedef DISPID MEMBERID;
 178
 179 #define DISPATCH_METHOD         0x1
 180 #define DISPATCH_PROPERTYGET    0x2
 181 #define DISPATCH_PROPERTYPUT    0x4
 182 #define DISPATCH_PROPERTYPUTREF 0x8
 183
 184 #define DISPID_UNKNOWN  ( -1 )
 185 #define DISPID_VALUE  ( 0 )
 186 #define DISPID_PROPERTYPUT  ( -3 )
 187 #define DISPID_NEWENUM  ( -4 )
 188 #define DISPID_EVALUATE ( -5 )
 189 #define DISPID_CONSTRUCTOR  ( -6 )
 190 #define DISPID_DESTRUCTOR ( -7 )
 191 #define DISPID_COLLECT  ( -8 )
 192
 193 #define MEMBERID_NIL DISPID_UNKNOWN
 194
 195 #define IMPLTYPEFLAG_FDEFAULT         (0x1)
 196 #define IMPLTYPEFLAG_FSOURCE          (0x2)
 197 #define IMPLTYPEFLAG_FRESTRICTED      (0x4)
 198 #define IMPLTYPEFLAG_FDEFAULTVTABLE   (0x8)
 199
 200 typedef struct  tagDISPPARAMS
 201 {
 202   VARIANTARG* rgvarg;
 203   DISPID*     rgdispidNamedArgs;
 204   UINT      cArgs;
 205   UINT      cNamedArgs;
 206 } DISPPARAMS;
 207
 208 typedef struct tagEXCEPINFO
 209 {
 210     WORD  wCode;
 211     WORD  wReserved;
 212     BSTR  bstrSource;
 213     BSTR  bstrDescription;
 214     BSTR  bstrHelpFile;
 215     DWORD dwHelpContext;
 216     PVOID pvReserved;
 217     HRESULT __stdcall (*pfnDeferredFillIn)(struct tagEXCEPINFO *);
 218     SCODE scode;
 219 } EXCEPINFO, * LPEXCEPINFO;
 220
 221 typedef struct tagIDLDESC
 222 {
 223         ULONG dwReserved;
 224         USHORT wIDLFlags;
 225 } IDLDESC;
 226
 227 typedef struct tagPARAMDESCEX
 228 {
 229         ULONG cBytes;
 230         VARIANTARG varDefaultValue;
 231 } PARAMDESCEX, *LPPARAMDESCEX;
 232
 233 typedef struct tagPARAMDESC
 234 {
 235         LPPARAMDESCEX pparamdescex;
 236         USHORT wParamFlags;
 237 } PARAMDESC;
 238
 239 #define PARAMFLAG_NONE          (0x00)
 240 #define PARAMFLAG_FIN           (0x01)
 241 #define PARAMFLAG_FOUT          (0x02)
 242 #define PARAMFLAG_FLCID         (0x04)
 243 #define PARAMFLAG_FRETVAL       (0x08)
 244 #define PARAMFLAG_FOPT          (0x10)
 245 #define PARAMFLAG_FHASDEFAULT   (0x20)
 246
 247
 248 typedef struct tagTYPEDESC
 249 {
 250         union {
 251                 struct tagTYPEDESC *lptdesc;
 252                 struct tagARRAYDESC *lpadesc;
 253                 HREFTYPE hreftype;
 254         } DUMMYUNIONNAME;
 255         VARTYPE vt;
 256 } TYPEDESC;
 257
 258 typedef struct tagELEMDESC
 259 {
 260         TYPEDESC tdesc;
 261         union {
 262                 IDLDESC idldesc;
 263                 PARAMDESC paramdesc;
 264         } DUMMYUNIONNAME;
 265 } ELEMDESC, *LPELEMDESC;
 266
 267 typedef enum tagTYPEKIND
 268 {
 269         TKIND_ENUM = 0,
 270         TKIND_RECORD = 1,
 271         TKIND_MODULE = 2,
 272         TKIND_INTERFACE = 3,
 273         TKIND_DISPATCH = 4,
 274         TKIND_COCLASS = 5,
 275         TKIND_ALIAS = 6,
 276         TKIND_UNION = 7,
 277         TKIND_MAX = 8
 278 } TYPEKIND;
 279
 280 typedef struct tagTYPEATTR
 281 {
 282         GUID guid;
 283         LCID lcid;
 284         DWORD dwReserved;
 285         MEMBERID memidConstructor;
 286         MEMBERID memidDestructor;
 287         LPOLESTR lpstrSchema;
 288         ULONG cbSizeInstance;
 289         TYPEKIND typekind;
 290         WORD cFuncs;
 291         WORD cVars;
 292         WORD cImplTypes;
 293         WORD cbSizeVft;
 294         WORD cbAlignment;
 295         WORD wTypeFlags;
 296         WORD wMajorVerNum;
 297         WORD wMinorVerNum;
 298         TYPEDESC tdescAlias;
 299         IDLDESC idldescType;
 300 } TYPEATTR, *LPTYPEATTR;
 301
 302 #define TYPEFLAG_NONE                     (0x00)
 303 #define TYPEFLAG_FAPPOBJECT               (0x01)
 304 #define TYPEFLAG_FCANCREATE               (0x02)
 305 #define TYPEFLAG_FLICENSED                (0x04)
 306 #define TYPEFLAG_FPREDECLID               (0x08)
 307 #define TYPEFLAG_FHIDDEN                  (0x0f)
 308 #define TYPEFLAG_FCONTROL                 (0x20)
 309 #define TYPEFLAG_FDUAL                    (0x40)
 310 #define TYPEFLAG_FNONEXTENSIBLE           (0x80)
 311 #define TYPEFLAG_FOLEAUTOMATION           (0x100)
 312 #define TYPEFLAG_FRESTRICTED              (0x200)
 313 #define TYPEFLAG_FAGGREGATABLE            (0x400)
 314 #define TYPEFLAG_FREPLACEABLE             (0x800)
 315 #define TYPEFLAG_FDISPATCHABLE            (0x1000)
 316 #define TYPEFLAG_FREVERSEBIND             (0x2000)
 317 #define TYPEFLAG_FPROXY                   (0x4000)
 318 #define TYPEFLAG_DEFAULTFILTER            (0x8000)
 319 #define TYPEFLAG_COCLASSATTRIBUTES        (0x63f)
 320 #define TYPEFLAG_INTERFACEATTRIBUTES      (0x7bd0)
 321 #define TYPEFLAG_DISPATCHATTRIBUTES       (0x5a90)
 322 #define TYPEFLAG_ALIASATTRIBUTES          (0x210)
 323 #define TYPEFLAG_MODULEATTRIBUTES         (0x210)
 324 #define TYPEFLAG_ENUMATTRIBUTES           (0x210)
 325 #define TYPEFLAG_RECORDATTRIBUTES         (0x210)
 326 #define TYPEFLAG_UNIONATTRIBUTES          (0x210)
 327
 328 typedef struct tagARRAYDESC
 329 {
 330         TYPEDESC tdescElem;
 331         USHORT cDims;
 332         SAFEARRAYBOUND rgbounds[1];
 333 } ARRAYDESC;
 334
 335 typedef enum tagFUNCKIND
 336 {
 337         FUNC_VIRTUAL = 0,
 338         FUNC_PUREVIRTUAL = 1,
 339         FUNC_NONVIRTUAL = 2,
 340         FUNC_STATIC = 3,
 341         FUNC_DISPATCH = 4
 342 } FUNCKIND;
 343
 344 typedef enum tagINVOKEKIND
 345 {
 346         INVOKE_FUNC = 1,
 347         INVOKE_PROPERTYGET = 2,
 348         INVOKE_PROPERTYPUT = 3,
 349         INVOKE_PROPERTYPUTREF = 4
 350 } INVOKEKIND;
 351
 352 typedef struct tagFUNCDESC
 353 {
 354         MEMBERID memid;
 355         SCODE *lprgscode;
 356         ELEMDESC *lprgelemdescParam;
 357         FUNCKIND funckind;
 358         INVOKEKIND invkind;
 359         CALLCONV callconv;
 360         SHORT cParams;
 361         SHORT cParamsOpt;
 362         SHORT oVft;
 363         SHORT cScodes;
 364         ELEMDESC elemdescFunc;
 365         WORD wFuncFlags;
 366 } FUNCDESC, *LPFUNCDESC;
 367
 368 typedef enum tagVARKIND
 369 {
 370         VAR_PERINSTANCE = 0,
 371         VAR_STATIC = 1,
 372         VAR_CONST = 2,
 373         VAR_DISPATCH = 3
 374 } VARKIND;
 375
 376 typedef struct tagVARDESC
 377 {
 378         MEMBERID memid;
 379         LPOLESTR lpstrSchema;
 380         union {
 381                 ULONG oInst;
 382                 VARIANT *lpvarValue;
 383         } DUMMYUNIONNAME;
 384         ELEMDESC elemdescVar;
 385         WORD wVarFlags;
 386         VARKIND varkind;
 387 } VARDESC, *LPVARDESC;
 388
 389 typedef enum tagSYSKIND
 390 {
 391         SYS_WIN16 = 0,
 392         SYS_WIN32 = 1,
 393         SYS_MAC = 2
 394 } SYSKIND;
 395
 396 typedef enum tagLIBFLAGS
 397 {
 398         LIBFLAG_FRESTRICTED = 0x1,
 399         LIBFLAG_FCONTROL = 0x2,
 400         LIBFLAG_FHIDDEN = 0x4,
 401         LIBFLAG_FHASDISKIMAGE = 0x8
 402 } LIBFLAGS;
 403
 404 typedef struct tagTLIBATTR
 405 {
 406         GUID guid;
 407         LCID lcid;
 408         SYSKIND syskind;
 409         WORD wMajorVerNum;
 410         WORD wMinorVerNum;
 411         WORD wLibFlags;
 412 } TLIBATTR, *LPTLIBATTR;
 413
 414 typedef enum tagDESCKIND
 415 {
 416         DESCKIND_NONE = 0,
 417         DESCKIND_FUNCDESC = 1,
 418         DESCKIND_VARDESC = 2,
 419         DESCKIND_TYPECOMP = 3,
 420         DESCKIND_IMPLICITAPPOBJ = 4,
 421         DESCKIND_MAX = 6
 422 } DESCKIND;
 423
 424 typedef union tagBINDPTR
 425 {
 426         FUNCDESC *lpfuncdesc;
 427         VARDESC  *lpvardesc;
 428         ITypeComp *lptcomp;
 429 } BINDPTR, *LPBINDPTR;
 430
 431 typedef enum tagVARFLAGS
 432 {
 433         VARFLAG_FREADONLY = 0x1,
 434         VARFLAG_FSOURCE = 0x2,
 435         VARFLAG_FBINDABLE = 0x4,
 436         VARFLAG_FREQUESTEDIT  = 0x8,
 437         VARFLAG_FDISPLAYBIND  = 0x10,
 438         VARFLAG_FDEFAULTBIND  = 0x20,
 439         VARFLAG_FHIDDEN = 0x40,
 440         VARFLAG_FRESTRICTED = 0x80,
 441         VARFLAG_FDEFAULTCOLLELEM  = 0x100,
 442         VARFLAG_FUIDEFAULT  = 0x200,
 443         VARFLAG_FNONBROWSABLE = 0x400,
 444         VARFLAG_FREPLACEABLE  = 0x800,
 445         VARFLAG_FIMMEDIATEBIND  = 0x1000
 446 } VARFLAGS;
 447
 448
 449 /*
 450  * Data types for Variants.
 451  */
 452
 453 enum VARENUM {
 454         VT_EMPTY = 0,
 455         VT_NULL = 1,
 456         VT_I2 = 2,
 457         VT_I4 = 3,
 458         VT_R4 = 4,
 459         VT_R8 = 5,
 460         VT_CY = 6,
 461         VT_DATE = 7,
 462         VT_BSTR = 8,
 463         VT_DISPATCH = 9,
 464         VT_ERROR  = 10,
 465         VT_BOOL = 11,
 466         VT_VARIANT      = 12,
 467         VT_UNKNOWN      = 13,
 468         VT_DECIMAL      = 14,
 469         VT_I1 = 16,
 470         VT_UI1  = 17,
 471         VT_UI2  = 18,
 472         VT_UI4  = 19,
 473         VT_I8 = 20,
 474         VT_UI8  = 21,
 475         VT_INT  = 22,
 476         VT_UINT = 23,
 477         VT_VOID = 24,
 478         VT_HRESULT      = 25,
 479         VT_PTR  = 26,
 480         VT_SAFEARRAY  = 27,
 481         VT_CARRAY = 28,
 482         VT_USERDEFINED  = 29,
 483         VT_LPSTR  = 30,
 484         VT_LPWSTR = 31,
 485         VT_RECORD = 36,
 486         VT_FILETIME = 64,
 487         VT_BLOB = 65,
 488         VT_STREAM = 66,
 489         VT_STORAGE      = 67,
 490         VT_STREAMED_OBJECT      = 68,
 491         VT_STORED_OBJECT  = 69,
 492         VT_BLOB_OBJECT  = 70,
 493         VT_CF = 71,
 494         VT_CLSID  = 72,
 495         VT_VECTOR = 0x1000,
 496         VT_ARRAY  = 0x2000,
 497         VT_BYREF  = 0x4000,
 498         VT_RESERVED = 0x8000,
 499         VT_ILLEGAL      = 0xffff,
 500         VT_ILLEGALMASKED  = 0xfff,
 501         VT_TYPEMASK = 0xfff
 502 };
 503
 504 /* the largest valide type
 505  */
 506 #define VT_MAXVALIDTYPE VT_CLSID
 507
 508
 509 /*
 510  * Declarations of the VARIANT structure and the VARIANT APIs.
 511  */
 512
 513 /* S_OK                            : Success.
 514  * DISP_E_BADVARTYPE   : The variant type vt in not a valid type of variant.
 515  * DISP_E_OVERFLOW         : The data pointed to by pvarSrc does not fit in the destination type.
 516  * DISP_E_TYPEMISMATCH : The variant type vt is not a valid type of variant.
 517  * E_INVALIDARG            : One argument is invalid.
 518  * E_OUTOFMEMORY           : Memory could not be allocated for the conversion.
 519  * DISP_E_ARRAYISLOCKED : The variant contains an array that is locked.
 520  */
 521
 522
 523 typedef struct  tagCUSTDATAITEM {
 524     GUID guid;
 525     VARIANTARG varValue;
 526 } CUSTDATAITEM, *LPCUSTDATAITEM;
 527
 528 typedef struct  tagCUSTDATA {
 529     INT cCustData;
 530     LPCUSTDATAITEM prgCustData; /* count cCustdata */
 531 } CUSTDATA, *LPCUSTDATA;
 532
 533
 534
 535 /*****************************************************************************
 536  * IDispatch interface
 537  */
 538 #define ICOM_INTERFACE IDispatch
 539 #define IDispatch_METHODS \
 540   ICOM_METHOD1(HRESULT, GetTypeInfoCount, UINT*, pctinfo) \
 541   ICOM_METHOD3(HRESULT, GetTypeInfo, UINT, iTInfo, LCID, lcid, ITypeInfo**, ppTInfo) \
 542   ICOM_METHOD5(HRESULT, GetIDsOfNames, REFIID, riid, LPOLESTR*, rgszNames, UINT, cNames, LCID, lcid, DISPID*, rgDispId) \
 543   ICOM_METHOD8(HRESULT, Invoke, DISPID, dispIdMember, REFIID, riid, LCID, lcid, WORD, wFlags, DISPPARAMS*, pDispParams, VARIANT*, pVarResult, EXCEPINFO*, pExepInfo, UINT*, puArgErr)
 544 #define IDispatch_IMETHODS \
 545         IUnknown_IMETHODS \
 546         IDispatch_METHODS
 547 ICOM_DEFINE(IDispatch,IUnknown)
 548 #undef ICOM_INTERFACE
 549
 550 /*** IUnknown methods ***/
 551 #define IDispatch_QueryInterface(p,a,b) ICOM_CALL2(QueryInterface,p,a,b)
 552 #define IDispatch_AddRef(p)             ICOM_CALL (AddRef,p)
 553 #define IDispatch_Release(p)            ICOM_CALL (Release,p)
 554 /*** IDispatch methods ***/
 555 #define IDispatch_GetTypeInfoCount(p,a)      ICOM_CALL1 (GetTypeInfoCount,p,a)
 556 #define IDispatch_GetTypeInfo(p,a,b,c)       ICOM_CALL3 (GetTypeInfo,p,a,b,c)
 557 #define IDispatch_GetIDsOfNames(p,a,b,c,d,e) ICOM_CALL5 (GetIDsOfNames,p,a,b,c,d,e)
 558 #define IDispatch_Invoke(p,a,b,c,d,e,f,g,h)  ICOM_CALL8 (Invoke,p,a,b,c,d,e,f,g,h)
 559
 560
 561 /*****************************************************************************
 562  * ITypeInfo interface
 563  */
 564 #define ICOM_INTERFACE ITypeInfo
 565 #define ITypeInfo_METHODS \
 566         ICOM_METHOD1(HRESULT,GetTypeAttr, TYPEATTR**,ppTypeAttr) \
 567         ICOM_METHOD1(HRESULT,GetTypeComp, ITypeComp**,ppTComp) \
 568         ICOM_METHOD2(HRESULT,GetFuncDesc, UINT,index, FUNCDESC**,ppFuncDesc) \
 569         ICOM_METHOD2(HRESULT,GetVarDesc, UINT,index, VARDESC**,ppVarDesc) \
 570         ICOM_METHOD4(HRESULT,GetNames, MEMBERID,memid, BSTR*,rgBstrNames, UINT,cMaxNames, UINT*,pcNames) \
 571         ICOM_METHOD2(HRESULT,GetRefTypeOfImplType, UINT,index, HREFTYPE*, pRefType) \
 572         ICOM_METHOD2(HRESULT,GetImplTypeFlags, UINT,index, INT*,pImplTypeFlags)\
 573         ICOM_METHOD3(HRESULT,GetIDsOfNames, LPOLESTR*,rgszNames, UINT,cNames, MEMBERID*,pMemId) \
 574         ICOM_METHOD7(HRESULT,Invoke, PVOID,pvInstance, MEMBERID,memid, WORD,wFlags, DISPPARAMS*,pDispParams, VARIANT*,pVarResult, EXCEPINFO*,pExcepInfo, UINT*,puArgErr) \
 575         ICOM_METHOD5(HRESULT,GetDocumentation, MEMBERID,memid, BSTR*,pBstrName, BSTR*,pBstrDocString, DWORD*,pdwHelpContext, BSTR*,pBstrHelpFile) \
 576         ICOM_METHOD5(HRESULT,GetDllEntry, MEMBERID,memid, INVOKEKIND,invKind, BSTR*,pBstrDllName, BSTR*,pBstrName, WORD*,pwOrdinal) \
 577         ICOM_METHOD2(HRESULT,GetRefTypeInfo, HREFTYPE,hRefType, ITypeInfo**,ppTInfo) \
 578         ICOM_METHOD3(HRESULT,AddressOfMember, MEMBERID,memid, INVOKEKIND,invKind, PVOID*,ppv) \
 579         ICOM_METHOD3(HRESULT,CreateInstance, IUnknown*,pUnkOuter, REFIID,riid, PVOID*,ppvObj) \
 580         ICOM_METHOD2(HRESULT,GetMops, MEMBERID,memid, BSTR*,pBstrMops) \
 581         ICOM_METHOD2(HRESULT,GetContainingTypeLib, ITypeLib**,ppTLib, UINT*,pIndex) \
 582         ICOM_METHOD1(HRESULT,ReleaseTypeAttr, TYPEATTR*,pTypeAttr) \
 583         ICOM_METHOD1(HRESULT,ReleaseFuncDesc, FUNCDESC*,pFuncDesc) \
 584         ICOM_METHOD1(HRESULT,ReleaseVarDesc, VARDESC*,pVarDesc)
 585
 586 #define ITypeInfo_IMETHODS \
 587         IUnknown_IMETHODS \
 588         ITypeInfo_METHODS
 589 ICOM_DEFINE(ITypeInfo,IUnknown)
 590 #undef ICOM_INTERFACE
 591
 592 /*** IUnknown methods ***/
 593 #define ITypeInfo_QueryInterface(p,a,b)         ICOM_CALL2(QueryInterface,p,a,b)
 594 #define ITypeInfo_AddRef(p)                     ICOM_CALL (AddRef,p)
 595 #define ITypeInfo_Release(p)                    ICOM_CALL (Release,p)
 596 /*** ITypeInfo methods ***/
 597 #define ITypeInfo_GetTypeAttr(p,a)              ICOM_CALL1(GetTypeAttr,p,a)
 598 #define ITypeInfo_GetTypeComp(p,a)              ICOM_CALL1(GetTypeComp,p,a)
 599 #define ITypeInfo_GetFuncDesc(p,a,b)            ICOM_CALL2(GetFuncDesc,p,a,b)
 600 #define ITypeInfo_GetVarDesc(p,a,b)             ICOM_CALL2(GetVarDesc,p,a,b)
 601 #define ITypeInfo_GetNames(p,a,b,c,d)           ICOM_CALL4(GetNames,p,a,b,c,d)
 602 #define ITypeInfo_GetRefTypeOfImplType(p,a,b)   ICOM_CALL2(GetRefTypeOfImplType,p,a,b)
 603 #define ITypeInfo_GetImplTypeFlags(p,a,b)       ICOM_CALL2(GetImplTypeFlags,p,a,b)
 604 #define ITypeInfo_GetIDsOfNames(p,a,b,c)        ICOM_CALL3(GetIDsOfNames,p,a,b,c)
 605 #define ITypeInfo_Invoke(p,a,b,c,d,e,f,g)       ICOM_CALL7(Invoke,p,a,b,c,d,e,f,g)
 606 #define ITypeInfo_GetDocumentation(p,a,b,c,d,e) ICOM_CALL5(GetDocumentation,p,a,b,c,d,e)
 607 #define ITypeInfo_GetDllEntry(p,a,b,c,d,e)      ICOM_CALL5(GetDllEntry,p,a,b,c,d,e)
 608 #define ITypeInfo_GetRefTypeInfo(p,a,b)         ICOM_CALL2(GetRefTypeInfo,p,a,b)
 609 #define ITypeInfo_AddressOfMember(p,a,b,c)      ICOM_CALL3(AddressOfMember,p,a,b,c)
 610 #define ITypeInfo_CreateInstance(p,a,b,c)       ICOM_CALL3(CreateInstance,p,a,b,c)
 611 #define ITypeInfo_GetMops(p,a,b)                ICOM_CALL2(GetMops,p,a,b)
 612 #define ITypeInfo_GetContainingTypeLib(p,a,b)   ICOM_CALL2(GetContainingTypeLib,p,a,b)
 613 #define ITypeInfo_ReleaseTypeAttr(p,a)          ICOM_CALL1(ReleaseTypeAttr,p,a)
 614 #define ITypeInfo_ReleaseFuncDesc(p,a)          ICOM_CALL1(ReleaseFuncDesc,p,a)
 615 #define ITypeInfo_ReleaseVarDesc(p,a)           ICOM_CALL1(ReleaseVarDesc,p,a)
 616
 617
 618 /*****************************************************************************
 619  * ITypeInfo2 interface
 620  */
 621 #define ICOM_INTERFACE ITypeInfo2
 622 #define ITypeInfo2_METHODS \
 623         ICOM_METHOD1(HRESULT, GetTypeKind, TYPEKIND*, pTypeKind) \
 624         ICOM_METHOD1(HRESULT, GetTypeFlags, UINT*, pTypeFlags) \
 625         ICOM_METHOD3(HRESULT, GetFuncIndexOfMemId, MEMBERID, memid, INVOKEKIND,\
 626                 invKind, UINT*, pFuncIndex) \
 627         ICOM_METHOD2(HRESULT, GetVarIndexOfMemId, MEMBERID, memid, UINT*, \
 628                 pVarIndex) \
 629         ICOM_METHOD2(HRESULT, GetCustData, REFGUID, guid, VARIANT*, pVarVal) \
 630         ICOM_METHOD3(HRESULT, GetFuncCustData, UINT, index, REFGUID, guid,\
 631                 VARIANT*, pVarVal) \
 632         ICOM_METHOD4(HRESULT, GetParamCustData, UINT, indexFunc, UINT,\
 633                 indexParam, REFGUID, guid, VARIANT*, pVarVal) \
 634         ICOM_METHOD3(HRESULT, GetVarCustData, UINT, index, REFGUID, guid,\
 635                 VARIANT*, pVarVal) \
 636         ICOM_METHOD3(HRESULT, GetImplTypeCustData, UINT, index, REFGUID, guid,\
 637                 VARIANT*, pVarVal) \
 638         ICOM_METHOD5(HRESULT, GetDocumentation2, MEMBERID, memid, LCID, lcid,\
 639                 BSTR*, pbstrHelpString, DWORD*, pdwHelpStringContext,\
 640                 BSTR*, pbstrHelpStringDll) \
 641         ICOM_METHOD1(HRESULT, GetAllCustData, CUSTDATA*, pCustData) \
 642         ICOM_METHOD2(HRESULT, GetAllFuncCustData, UINT, index, CUSTDATA*,\
 643                 pCustData)\
 644         ICOM_METHOD3(HRESULT, GetAllParamCustData, UINT, indexFunc, UINT,\
 645                 indexParam, CUSTDATA*, pCustData) \
 646         ICOM_METHOD2(HRESULT, GetAllVarCustData, UINT, index, CUSTDATA*,\
 647                 pCustData) \
 648         ICOM_METHOD2(HRESULT, GetAllImplTypeCustData, UINT, index, CUSTDATA*,\
 649                 pCustData)
 650
 651 #define ITypeInfo2_IMETHODS \
 652         IUnknown_IMETHODS \
 653         ITypeInfo_METHODS \
 654         ITypeInfo2_METHODS
 655 ICOM_DEFINE(ITypeInfo2,ITypeInfo)
 656 #undef ICOM_INTERFACE
 657
 658 /*** IUnknown methods ***/
 659 #define ITypeInfo2_QueryInterface(p,a,b)         ICOM_CALL2(QueryInterface,p,a,b)
 660 #define ITypeInfo2_AddRef(p)                     ICOM_CALL (AddRef,p)
 661 #define ITypeInfo2_Release(p)                    ICOM_CALL (Release,p)
 662 /*** ITypeInfo methods ***/
 663 #define ITypeInfo2_GetTypeAttr(p,a)              ICOM_CALL1(GetTypeAttr,p,a)
 664 #define ITypeInfo2_GetTypeComp(p,a)              ICOM_CALL1(GetTypeComp,p,a)
 665 #define ITypeInfo2_GetFuncDesc(p,a,b)            ICOM_CALL2(GetFuncDesc,p,a,b)
 666 #define ITypeInfo2_GetVarDesc(p,a,b)             ICOM_CALL2(GetVarDesc,p,a,b)
 667 #define ITypeInfo2_GetNames(p,a,b,c,d)           ICOM_CALL4(GetNames,p,a,b,c,d)
 668 #define ITypeInfo2_GetRefTypeOfImplType(p,a,b)   ICOM_CALL2(GetRefTypeOfImplType,p,a,b)
 669 #define ITypeInfo2_GetImplTypeFlags(p,a,b)       ICOM_CALL2(GetImplTypeFlags,p,a,b)
 670 #define ITypeInfo2_GetIDsOfNames(p,a,b,c)        ICOM_CALL3(GetIDsOfNames,p,a,b,c)
 671 #define ITypeInfo2_Invoke(p,a,b,c,d,e,f,g)       ICOM_CALL7(Invoke,p,a,b,c,d,e,f,g)
 672 #define ITypeInfo2_GetDocumentation(p,a,b,c,d,e) ICOM_CALL5(GetDocumentation,p,a,b,c,d,e)
 673 #define ITypeInfo2_GetDllEntry(p,a,b,c,d,e)      ICOM_CALL5(GetDllEntry,p,a,b,c,d,e)
 674 #define ITypeInfo2_GetRefTypeInfo(p,a,b)         ICOM_CALL2(GetRefTypeInfo,p,a,b)
 675 #define ITypeInfo2_AddressOfMember(p,a,b,c)      ICOM_CALL3(AddressOfMember,p,a,b,c)
 676 #define ITypeInfo2_CreateInstance(p,a,b,c)       ICOM_CALL3(CreateInstance,p,a,b,c)
 677 #define ITypeInfo2_GetMops(p,a,b)                ICOM_CALL2(GetMops,p,a,b)
 678 #define ITypeInfo2_GetContainingTypeLib(p,a,b)   ICOM_CALL2(GetContainingTypeLib,p,a,b)
 679 #define ITypeInfo2_ReleaseTypeAttr(p,a)          ICOM_CALL1(ReleaseTypeAttr,p,a)
 680 #define ITypeInfo2_ReleaseFuncDesc(p,a)          ICOM_CALL1(ReleaseFuncDesc,p,a)
 681 #define ITypeInfo2_ReleaseVarDesc(p,a)           ICOM_CALL1(ReleaseVarDesc,p,a)
 682 /*** ITypeInfo2 methods ***/
 683 #define ITypeInfo2_GetTypeKind(p,a)              ICOM_CALL1(GetTypeKind,p,a)
 684 #define ITypeInfo2_GetTypeFlags(p,a)             ICOM_CALL1(GetTypeFlags,p,a)
 685 #define ITypeInfo2_GetFuncIndexOfMemId(p,a,b,c)  ICOM_CALL3(GetFuncIndexOfMemId,p,a,b,c)
 686 #define ITypeInfo2_GetVarIndexOfMemId(p,a,b)     ICOM_CALL2(GetVarIndexOfMemId,p,a,b)
 687 #define ITypeInfo2_GetCustData(p,a,b)            ICOM_CALL2(GetCustData,p,a,b)
 688 #define ITypeInfo2_GetFuncCustData(p,a,b,c)      ICOM_CALL3(GetFuncCustData,p,a,b,c)
 689 #define ITypeInfo2_GetParamCustData(p,a,b,c,d)   ICOM_CALL4(GetParamCustData,p,a,b,c,d)
 690 #define ITypeInfo2_GetVarCustData(p,a,b,c)       ICOM_CALL3(GetVarCustData,p,a,b,c)
 691 #define ITypeInfo2_GetImplTypeCustData(p,a,b,c)  ICOM_CALL3(GetImplTypeCustData,p,a,b,c)
 692 #define ITypeInfo2_GetDocumentation2(p,a,b,c,d,e) ICOM_CALL5(GetDocumentation2,p,a,b,c,d,e)
 693 #define ITypeInfo2_GetAllCustData(p,a)           ICOM_CALL1(GetAllCustData,p,a)
 694 #define ITypeInfo2_GetAllFuncCustData(p,a,b)     ICOM_CALL2(GetAllFuncCustData,p,a,b)
 695 #define ITypeInfo2_GetAllParamCustData(p,a,b,c)  ICOM_CALL3(GetAllParamCustData,p,a,b,c)
 696 #define ITypeInfo2_GetAllVarCustData(p,a,b)      ICOM_CALL2(GetAllVarCustData,p,a,b)
 697 #define ITypeInfo2_GetAllImplTypeCustData(p,a,b) ICOM_CALL2(GetAllImplTypeCustData,p,a,b)
 698
 699 /*****************************************************************************
 700  * ITypeLib interface
 701  */
 702 #define ICOM_INTERFACE ITypeLib
 703 #define ITypeLib_METHODS \
 704         ICOM_METHOD (UINT,GetTypeInfoCount) \
 705         ICOM_METHOD2(HRESULT,GetTypeInfo, UINT,index, ITypeInfo**,ppTInfo) \
 706         ICOM_METHOD2(HRESULT,GetTypeInfoType, UINT,index, TYPEKIND*,pTKind) \
 707         ICOM_METHOD2(HRESULT,GetTypeInfoOfGuid, REFGUID,guid, ITypeInfo**,ppTinfo) \
 708         ICOM_METHOD1(HRESULT,GetLibAttr, TLIBATTR**,ppTLibAttr) \
 709         ICOM_METHOD1(HRESULT,GetTypeComp, ITypeComp**,ppTComp) \
 710         ICOM_METHOD5(HRESULT,GetDocumentation, INT,index, BSTR*,pBstrName, BSTR*,pBstrDocString, DWORD*,pdwHelpContext, BSTR*,pBstrHelpFile) \
 711         ICOM_METHOD3(HRESULT,IsName, LPOLESTR,szNameBuf, ULONG,lHashVal, BOOL*,bfName) \
 712         ICOM_METHOD5(HRESULT,FindName, LPOLESTR,szNameBuf, ULONG,lHashVal, ITypeInfo**,ppTInfo, MEMBERID*,rgMemId, USHORT*,pcFound) \
 713         ICOM_METHOD1(VOID,ReleaseTLibAttr, TLIBATTR*,pTLibAttr)
 714 #define ITypeLib_IMETHODS \
 715         IUnknown_IMETHODS \
 716         ITypeLib_METHODS
 717 ICOM_DEFINE(ITypeLib,IUnknown)
 718 #undef ICOM_INTERFACE
 719
 720 /*** IUnknown methods ***/
 721 #define ITypeLib_QueryInterface(p,a,b)         ICOM_CALL2(QueryInterface,p,a,b)
 722 #define ITypeLib_AddRef(p)                     ICOM_CALL (AddRef,p)
 723 #define ITypeLib_Release(p)                    ICOM_CALL (Release,p)
 724 /*** ITypeLib methods ***/
 725 #define ITypeLib_GetTypeInfoCount(p)           ICOM_CALL (GetTypeInfoCount,p)
 726 #define ITypeLib_GetTypeInfo(p,a,b)            ICOM_CALL2(GetTypeInfo,p,a,b)
 727 #define ITypeLib_GetTypeInfoType(p,a,b)        ICOM_CALL2(GetTypeInfoType,p,a,b)
 728 #define ITypeLib_GetTypeInfoOfGuid(p,a,b)      ICOM_CALL2(GetTypeInfoOfGuid,p,a,b)
 729 #define ITypeLib_GetLibAttr(p,a)               ICOM_CALL1(GetLibAttr,p,a)
 730 #define ITypeLib_GetTypeComp(p,a)              ICOM_CALL1(GetTypeComp,p,a)
 731 #define ITypeLib_GetDocumentation(p,a,b,c,d,e) ICOM_CALL5(GetDocumentation,p,a,b,c,d,e)
 732 #define ITypeLib_IsName(p,a,b,c)               ICOM_CALL3(IsName,p,a,b,c)
 733 #define ITypeLib_FindName(p,a,b,c,d,e)         ICOM_CALL5(FindName,p,a,b,c,d,e)
 734 #define ITypeLib_ReleaseTLibAttr(p,a)          ICOM_CALL1(ReleaseTLibAttr,p,a)
 735
 736
 737 /*****************************************************************************
 738  * ITypeLib2 interface
 739  */
 740 #define ICOM_INTERFACE ITypeLib2
 741 #define ITypeLib2_METHODS \
 742         ICOM_METHOD2(HRESULT, GetCustData, REFGUID, guid, VARIANT*, pVarVal) \
 743         ICOM_METHOD2(HRESULT, GetLibStatistics, ULONG *, pcUniqueNames, ULONG*,pcchUniqueNames) \
 744         ICOM_METHOD5(HRESULT, GetDocumentation2, INT, index, LCID, lcid,BSTR*, pbstrHelpString, DWORD*, pdwHelpStringContext, BSTR*, strHelpStringDll) \
 745         ICOM_METHOD1(HRESULT, GetAllCustData, CUSTDATA *, pCustData)
 746 #define ITypeLib2_IMETHODS \
 747         IUnknown_IMETHODS \
 748         ITypeLib_IMETHODS \
 749         ITypeLib2_METHODS
 750 ICOM_DEFINE(ITypeLib2,ITypeLib)
 751 #undef ICOM_INTERFACE
 752
 753 /*** IUnknown methods ***/
 754 #define ITypeLib2_QueryInterface(p,a,b)         ICOM_CALL2(QueryInterface,p,a,b)
 755 #define ITypeLib2_AddRef(p)                     ICOM_CALL (AddRef,p)
 756 #define ITypeLib2_Release(p)                    ICOM_CALL (Release,p)
 757 /*** ITypeLib methods ***/
 758 #define ITypeLib2_GetTypeInfoCount(p)           ICOM_CALL (GetTypeInfoCount,p)
 759 #define ITypeLib2_GetTypeInfo(p,a,b)            ICOM_CALL2(GetTypeInfo,p,a,b)
 760 #define ITypeLib2_GetTypeInfoType(p,a,b)        ICOM_CALL2(GetTypeInfoType,p,a,b)
 761 #define ITypeLib2_GetTypeInfoOfGuid(p,a,b)      ICOM_CALL2(GetTypeInfoOfGuid,p,a,b)
 762 #define ITypeLib2_GetLibAttr(p,a)               ICOM_CALL1(GetLibAttr,p,a)
 763 #define ITypeLib2_GetTypeComp(p,a)              ICOM_CALL1(GetTypeComp,p,a)
 764 #define ITypeLib2_GetDocumentation(p,a,b,c,d,e) ICOM_CALL5(GetDocumentation,p,a,b,c,d,e)
 765 #define ITypeLib2_IsName(p,a,b,c)               ICOM_CALL3(IsName,p,a,b,c)
 766 #define ITypeLib2_FindName(p,a,b,c,d,e)         ICOM_CALL5(FindName,p,a,b,c,d,e)
 767 #define ITypeLib2_ReleaseTLibAttr(p,a)          ICOM_CALL1(ReleaseTLibAttr,p,a)
 768 /*** ITypeLib2 methods ***/
 769 #define ITypeLib2_GetCustData(p,a,b)            ICOM_CALL2(GetCustData,p,a,b)
 770 #define ITypeLib2_GetLibStatistics(p,a,b)       ICOM_CALL2(GetLibStatistics,p,a,b)
 771 #define ITypeLib2_GetDocumentation2(p,a,b,c,d,e,f) ICOM_CALL5(GetDocumentation2,p,a,b,c,d,e)
 772 #define ITypeLib2_GetAllCustData(p,a)           ICOM_CALL1(GetAllCustData,p,a)
 773
 774 /*****************************************************************************
 775  * ITypeComp interface
 776  */
 777 #define ICOM_INTERFACE ITypeComp
 778 #define ITypeComp_METHODS \
 779         ICOM_METHOD6(HRESULT,Bind, LPOLESTR,szName, ULONG,lHashVal, WORD,wFlags, ITypeInfo**,ppTInfo, DESCKIND*,pDescKind, BINDPTR*,pBindPtr) \
 780         ICOM_METHOD4(HRESULT,BindType, LPOLESTR,szName, ULONG,lHashVal, ITypeInfo**,ppTInfo, ITypeComp**,ppTComp)
 781 #define ITypeComp_IMETHODS \
 782         IUnknown_IMETHODS \
 783         ITypeComp_METHODS
 784 ICOM_DEFINE(ITypeComp,IUnknown)
 785 #undef ICOM_INTERFACE
 786
 787 /*** IUnknown methods ***/
 788 #define ITypeComp_QueryInterface(p,a,b)         ICOM_CALL2(QueryInterface,p,a,b)
 789 #define ITypeComp_AddRef(p)                     ICOM_CALL (AddRef,p)
 790 #define ITypeComp_Release(p)                    ICOM_CALL (Release,p)
 791 /*** ITypeComp methods ***/
 792 #define ITypeComp_Bind(p,a,b,c,d,e,f)           ICOM_CALL6(Bind,p,a,b,c,d,e,f)
 793 #define ITypeComp_BindType(p,a,b,c,d)           ICOM_CALL4(BindType,p,a,b,c,d)
 794
 795 /*****************************************************************************
 796  * IEnumVARIANT interface
 797  */
 798 #define ICOM_INTERFACE IEnumVARIANT
 799 #define IEnumVARIANT_METHODS \
 800         ICOM_METHOD3(HRESULT,Next, ULONG,celt, VARIANT*,rgVar, ULONG*,pCeltFetched) \
 801         ICOM_METHOD1(HRESULT,Skip, ULONG,celt) \
 802         ICOM_METHOD (HRESULT,Reset) \
 803         ICOM_METHOD1(HRESULT,Clone, IEnumVARIANT**,ppEnum)
 804 #define IEnumVARIANT_IMETHODS \
 805         IUnknown_IMETHODS \
 806         IEnumVARIANT_METHODS
 807 ICOM_DEFINE(IEnumVARIANT,IUnknown)
 808 #undef ICOM_INTERFACE
 809
 810 /*** IUnknown methods ***/
 811 #define IEnumVARIANT_QueryInterface(p,a,b)   ICOM_CALL2(QueryInterface,p,a,b)
 812 #define IEnumVARIANT_AddRef(p)               ICOM_CALL (AddRef,p)
 813 #define IEnumVARIANT_Release(p)              ICOM_CALL (Release,p)
 814 /*** IEnumVARIANT methods ***/
 815 #define IEnumVARIANT_Next(p,a,b,c)           ICOM_CALL3(Next,p,a,b,c)
 816 #define IEnumVARIANT_Skip(p,a)               ICOM_CALL1(Skip,p,a)
 817 #define IEnumVARIANT_Reset(p)                ICOM_CALL (Reset,p)
 818 #define IEnumVARIANT_Clone(p,a)              ICOM_CALL1(Clone,p,a)
 819
 820 #endif /* __WINE_WINE_OBJ_OLEAUT_H */
 821