dlls/msxml3/main.c

   1 /*
   2  *    MSXML Class Factory
   3  *
   4  * Copyright 2002 Lionel Ulmer
   5  * Copyright 2005 Mike McCormack
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include "config.h"
  23 #include "wine/port.h"
  24
  25 #define COBJMACROS
  26
  27 #include <stdarg.h>
  28 #ifdef HAVE_LIBXML2
  29 # include <libxml/parser.h>
  30 # include <libxml/xmlerror.h>
  31 # ifdef SONAME_LIBXSLT
  32 #  ifdef HAVE_LIBXSLT_PATTERN_H
  33 #   include <libxslt/pattern.h>
  34 #  endif
  35 #  ifdef HAVE_LIBXSLT_TRANSFORM_H
  36 #   include <libxslt/transform.h>
  37 #  endif
  38 #  include <libxslt/xsltutils.h>
  39 #  include <libxslt/xsltInternals.h>
  40 # endif
  41 #endif
  42
  43 #include "windef.h"
  44 #include "winbase.h"
  45 #include "winuser.h"
  46 #include "ole2.h"
  47 #include "rpcproxy.h"
  48 #include "msxml.h"
  49 #include "msxml6.h"
  50
  51 #include "wine/unicode.h"
  52 #include "wine/debug.h"
  53 #include "wine/library.h"
  54
  55 #include "msxml_private.h"
  56
  57 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  58
  59 HINSTANCE MSXML_hInstance = NULL;
  60
  61 #ifdef HAVE_LIBXML2
  62
  63 void wineXmlCallbackLog(char const* caller, xmlErrorLevel lvl, char const* msg, va_list ap)
  64 {
  65     static const int max_size = 200;
  66     enum __wine_debug_class dbcl;
  67     char buff[max_size];
  68     int len;
  69
  70     switch (lvl)
  71     {
  72         case XML_ERR_NONE:
  73             dbcl = __WINE_DBCL_TRACE;
  74             break;
  75         case XML_ERR_WARNING:
  76             dbcl = __WINE_DBCL_WARN;
  77             break;
  78         default:
  79             dbcl = __WINE_DBCL_ERR;
  80             break;
  81     }
  82
  83     len = vsnprintf(buff, max_size, msg, ap);
  84     if (len == -1 || len >= max_size) buff[max_size-1] = 0;
  85
  86     wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "%s", buff);
  87 }
  88
  89 void wineXmlCallbackError(char const* caller, xmlErrorPtr err)
  90 {
  91     enum __wine_debug_class dbcl;
  92
  93     switch (err->level)
  94     {
  95     case XML_ERR_NONE:    dbcl = __WINE_DBCL_TRACE; break;
  96     case XML_ERR_WARNING: dbcl = __WINE_DBCL_WARN; break;
  97     default:              dbcl = __WINE_DBCL_ERR; break;
  98     }
  99
 100     wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "error code %d", err->code);
 101     if (err->message)
 102         wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, ": %s", err->message);
 103     else
 104         wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "\n");
 105 }
 106
 107 /* Support for loading xml files from a Wine Windows drive */
 108 static int wineXmlMatchCallback (char const * filename)
 109 {
 110     int nRet = 0;
 111
 112     TRACE("%s\n", filename);
 113
 114     /*
 115      * We will deal with loading XML files from the file system
 116      *   We only care about files that linux cannot find.
 117      *    e.g. C:,D: etc
 118      */
 119     if(isalpha(filename[0]) && filename[1] == ':')
 120         nRet = 1;
 121
 122     return nRet;
 123 }
 124
 125 static void *wineXmlOpenCallback (char const * filename)
 126 {
 127     BSTR sFilename = bstr_from_xmlChar( (const xmlChar*)filename);
 128     HANDLE hFile;
 129
 130     TRACE("%s\n", debugstr_w(sFilename));
 131
 132     hFile = CreateFileW(sFilename, GENERIC_READ,FILE_SHARE_READ, NULL,
 133                        OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, NULL);
 134     if(hFile == INVALID_HANDLE_VALUE) hFile = 0;
 135     SysFreeString(sFilename);
 136     return hFile;
 137 }
 138
 139 static int wineXmlReadCallback(void * context, char * buffer, int len)
 140 {
 141     DWORD dwBytesRead;
 142
 143     TRACE("%p %s %d\n", context, buffer, len);
 144
 145     if ((context == NULL) || (buffer == NULL))
 146         return(-1);
 147
 148     if(!ReadFile( context, buffer,len, &dwBytesRead, NULL))
 149     {
 150         ERR("Failed to read file\n");
 151         return -1;
 152     }
 153
 154     TRACE("Read %d\n", dwBytesRead);
 155
 156     return dwBytesRead;
 157 }
 158
 159 static int wineXmlFileCloseCallback (void * context)
 160 {
 161     return CloseHandle(context) ? 0 : -1;
 162 }
 163
 164 #endif
 165
 166
 167 HRESULT WINAPI DllCanUnloadNow(void)
 168 {
 169     return S_FALSE;
 170 }
 171
 172
 173 void* libxslt_handle = NULL;
 174 #ifdef SONAME_LIBXSLT
 175 # define DECL_FUNCPTR(f) typeof(f) * p##f = NULL
 176 DECL_FUNCPTR(xsltApplyStylesheet);
 177 DECL_FUNCPTR(xsltCleanupGlobals);
 178 DECL_FUNCPTR(xsltFreeStylesheet);
 179 DECL_FUNCPTR(xsltParseStylesheetDoc);
 180 # undef DECL_FUNCPTR
 181 #endif
 182
 183 static void init_libxslt(void)
 184 {
 185 #ifdef SONAME_LIBXSLT
 186     void (*pxsltInit)(void); /* Missing in libxslt <= 1.1.14 */
 187
 188     libxslt_handle = wine_dlopen(SONAME_LIBXSLT, RTLD_NOW, NULL, 0);
 189     if (!libxslt_handle)
 190         return;
 191
 192 #define LOAD_FUNCPTR(f, needed) \
 193     if ((p##f = wine_dlsym(libxslt_handle, #f, NULL, 0)) == NULL) \
 194         if (needed) { WARN("Can't find symbol %s\n", #f); goto sym_not_found; }
 195     LOAD_FUNCPTR(xsltInit, 0);
 196     LOAD_FUNCPTR(xsltApplyStylesheet, 1);
 197     LOAD_FUNCPTR(xsltCleanupGlobals, 1);
 198     LOAD_FUNCPTR(xsltFreeStylesheet, 1);
 199     LOAD_FUNCPTR(xsltParseStylesheetDoc, 1);
 200 #undef LOAD_FUNCPTR
 201
 202     if (pxsltInit)
 203         pxsltInit();
 204     return;
 205
 206  sym_not_found:
 207     wine_dlclose(libxslt_handle, NULL, 0);
 208     libxslt_handle = NULL;
 209 #endif
 210 }
 211
 212
 213 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
 214 {
 215     MSXML_hInstance = hInstDLL;
 216
 217     switch(fdwReason)
 218     {
 219     case DLL_PROCESS_ATTACH:
 220 #ifdef HAVE_LIBXML2
 221         xmlInitParser();
 222
 223         /* Set the default indent character to a single tab,
 224            for this thread and as default for new threads */
 225         xmlTreeIndentString = "\t";
 226         xmlThrDefTreeIndentString("\t");
 227
 228          /* Register callbacks for loading XML files */
 229         if(xmlRegisterInputCallbacks(wineXmlMatchCallback, wineXmlOpenCallback,
 230                             wineXmlReadCallback, wineXmlFileCloseCallback) == -1)
 231             WARN("Failed to register callbacks\n");
 232
 233         schemasInit();
 234 #endif
 235         init_libxslt();
 236         DisableThreadLibraryCalls(hInstDLL);
 237         break;
 238     case DLL_PROCESS_DETACH:
 239 #ifdef SONAME_LIBXSLT
 240         if (libxslt_handle)
 241         {
 242             pxsltCleanupGlobals();
 243             wine_dlclose(libxslt_handle, NULL, 0);
 244             libxslt_handle = NULL;
 245         }
 246 #endif
 247 #ifdef HAVE_LIBXML2
 248         /* Restore default Callbacks */
 249         xmlCleanupInputCallbacks();
 250         xmlRegisterDefaultInputCallbacks();
 251
 252         xmlCleanupParser();
 253         schemasCleanup();
 254 #endif
 255         release_typelib();
 256         break;
 257     }
 258     return TRUE;
 259 }
 260
 261 const char *debugstr_variant(const VARIANT *v)
 262 {
 263     if(!v)
 264         return "(null)";
 265
 266     switch(V_VT(v)) {
 267     case VT_EMPTY:
 268         return "{VT_EMPTY}";
 269     case VT_NULL:
 270         return "{VT_NULL}";
 271     case VT_I4:
 272         return wine_dbg_sprintf("{VT_I4: %d}", V_I4(v));
 273     case VT_R8:
 274         return wine_dbg_sprintf("{VT_R8: %lf}", V_R8(v));
 275     case VT_BSTR:
 276         return wine_dbg_sprintf("{VT_BSTR: %s}", debugstr_w(V_BSTR(v)));
 277     case VT_DISPATCH:
 278         return wine_dbg_sprintf("{VT_DISPATCH: %p}", V_DISPATCH(v));
 279     case VT_BOOL:
 280         return wine_dbg_sprintf("{VT_BOOL: %x}", V_BOOL(v));
 281     case VT_UNKNOWN:
 282         return wine_dbg_sprintf("{VT_UNKNOWN: %p}", V_UNKNOWN(v));
 283     case VT_UINT:
 284         return wine_dbg_sprintf("{VT_UINT: %u}", V_UINT(v));
 285     case VT_BSTR|VT_BYREF:
 286         return wine_dbg_sprintf("{VT_BSTR|VT_BYREF: ptr %p, data %s}",
 287             V_BSTRREF(v), debugstr_w(V_BSTRREF(v) ? *V_BSTRREF(v) : NULL));
 288     case VT_ERROR:
 289         return wine_dbg_sprintf("{VT_ERROR: 0x%08x}", V_ERROR(v));
 290     default:
 291         return wine_dbg_sprintf("{vt %d}", V_VT(v));
 292     }
 293 }
 294
 295 /***********************************************************************
 296  *              DllRegisterServer (MSXML3.@)
 297  */
 298 HRESULT WINAPI DllRegisterServer(void)
 299 {
 300     return __wine_register_resources( MSXML_hInstance );
 301 }
 302
 303 /***********************************************************************
 304  *              DllUnregisterServer (MSXML3.@)
 305  */
 306 HRESULT WINAPI DllUnregisterServer(void)
 307 {
 308     return __wine_unregister_resources( MSXML_hInstance );
 309 }