Added implementation of the VARIANT APIs.

include/winerror.h

@@ -85,6 +85,10 @@ extern int WIN32_LastError;
 #define	NOERROR				0
 #define	S_OK				0
 
+#define DISP_E_BADVARTYPE   0x80020008L
+#define DISP_E_OVERFLOW     0x8002000AL
+#define DISP_E_TYPEMISMATCH 0x80020005L
+
 
 #define	E_UNEXPECTED			0x8000FFFF
 

ole/Makefile.in

@@ -17,7 +17,8 @@ C_SRCS = \
 	oleobj.c \
 	olesvr.c \
 	storage.c \
-	typelib.c
+	typelib.c \
+	variant.c
 
 all: $(MODULE).o
 

ole/typelib.c

@@ -97,7 +97,7 @@ QueryPathOfRegTypeLib32(
 /******************************************************************************
  * LoadTypeLib [TYPELIB.3]  Loads and registers a type library
  * NOTES
- *    Docs: OLECHAR FAR* szFile
+ *    Docs: OLECHAR32 FAR* szFile
  *    Docs: iTypeLib FAR* FAR* pptLib
  *
  * RETURNS
@@ -116,7 +116,7 @@ HRESULT WINAPI LoadTypeLib(
  *		LoadTypeLib32	[OLEAUT32.161]
  * Loads and registers a type library
  * NOTES
- *    Docs: OLECHAR FAR* szFile
+ *    Docs: OLECHAR32 FAR* szFile
  *    Docs: iTypeLib FAR* FAR* pptLib
  *
  * RETURNS
@@ -137,8 +137,8 @@ HRESULT WINAPI LoadTypeLib32(
  * Adds information about a type library to the System Registry           
  * NOTES
  *    Docs: ITypeLib FAR * ptlib
- *    Docs: OLECHAR FAR* szFullPath
- *    Docs: OLECHAR FAR* szHelpDir
+ *    Docs: OLECHAR32 FAR* szFullPath
+ *    Docs: OLECHAR32 FAR* szHelpDir
  *
  * RETURNS
  *    Success: S_OK
@@ -146,8 +146,8 @@ HRESULT WINAPI LoadTypeLib32(
  */
 HRESULT WINAPI RegisterTypeLib32(
      ITypeLib * ptlib,      /*[in] Pointer to the library*/
-     OLECHAR * szFullPath, /*[in] full Path of the library*/
-     OLECHAR * szHelpDir)  /*[in] dir to the helpfile for the library, may be NULL*/  
+     OLECHAR32 * szFullPath, /*[in] full Path of the library*/
+     OLECHAR32 * szHelpDir)  /*[in] dir to the helpfile for the library, may be NULL*/
 {   FIXME(ole, "(%p,%s,%s): stub\n",ptlib, szFullPath,szHelpDir);
     return S_OK;	/* FIXME: pretend everything is OK */
 }