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/imports.h>
  39 #  include <libxslt/xsltutils.h>
  40 #  include <libxslt/variables.h>
  41 #  include <libxslt/xsltInternals.h>
  42 #  include <libxslt/documents.h>
  43 #  include <libxslt/extensions.h>
  44 #  include <libxslt/extra.h>
  45 # endif
  46 #endif
  47
  48 #include "windef.h"
  49 #include "winbase.h"
  50 #include "winuser.h"
  51 #include "ole2.h"
  52 #include "rpcproxy.h"
  53 #include "msxml.h"
  54 #include "msxml6.h"
  55
  56 #include "wine/unicode.h"
  57 #include "wine/debug.h"
  58
  59 #include "msxml_private.h"
  60
  61 HINSTANCE MSXML_hInstance = NULL;
  62
  63 #ifdef HAVE_LIBXML2
  64
  65 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
  66
  67 void wineXmlCallbackLog(char const* caller, xmlErrorLevel lvl, char const* msg, va_list ap)
  68 {
  69     enum __wine_debug_class dbcl;
  70     char buff[200];
  71     const int max_size = ARRAY_SIZE(buff);
  72     int len;
  73
  74     switch (lvl)
  75     {
  76         case XML_ERR_NONE:
  77             dbcl = __WINE_DBCL_TRACE;
  78             break;
  79         case XML_ERR_WARNING:
  80             dbcl = __WINE_DBCL_WARN;
  81             break;
  82         default:
  83             dbcl = __WINE_DBCL_ERR;
  84             break;
  85     }
  86
  87     len = vsnprintf(buff, max_size, msg, ap);
  88     if (len == -1 || len >= max_size) buff[max_size-1] = 0;
  89
  90     wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "%s", buff);
  91 }
  92
  93 void wineXmlCallbackError(char const* caller, xmlErrorPtr err)
  94 {
  95     enum __wine_debug_class dbcl;
  96
  97     switch (err->level)
  98     {
  99     case XML_ERR_NONE:    dbcl = __WINE_DBCL_TRACE; break;
 100     case XML_ERR_WARNING: dbcl = __WINE_DBCL_WARN; break;
 101     default:              dbcl = __WINE_DBCL_ERR; break;
 102     }
 103
 104     wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "error code %d", err->code);
 105     if (err->message)
 106         wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, ": %s", err->message);
 107     else
 108         wine_dbg_log(dbcl, &__wine_dbch_msxml, caller, "\n");
 109 }
 110
 111 /* Support for loading xml files from a Wine Windows drive */
 112 static int wineXmlMatchCallback (char const * filename)
 113 {
 114     int nRet = 0;
 115
 116     TRACE("%s\n", filename);
 117
 118     /*
 119      * We will deal with loading XML files from the file system
 120      *   We only care about files that linux cannot find.
 121      *    e.g. C:,D: etc
 122      */
 123     if(isalpha(filename[0]) && filename[1] == ':')
 124         nRet = 1;
 125
 126     return nRet;
 127 }
 128
 129 static void *wineXmlOpenCallback (char const * filename)
 130 {
 131     BSTR sFilename = bstr_from_xmlChar( (const xmlChar*)filename);
 132     HANDLE hFile;
 133
 134     TRACE("%s\n", debugstr_w(sFilename));
 135
 136     hFile = CreateFileW(sFilename, GENERIC_READ,FILE_SHARE_READ, NULL,
 137                        OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, NULL);
 138     if(hFile == INVALID_HANDLE_VALUE) hFile = 0;
 139     SysFreeString(sFilename);
 140     return hFile;
 141 }
 142
 143 static int wineXmlReadCallback(void * context, char * buffer, int len)
 144 {
 145     DWORD dwBytesRead;
 146
 147     TRACE("%p %s %d\n", context, buffer, len);
 148
 149     if ((context == NULL) || (buffer == NULL))
 150         return(-1);
 151
 152     if(!ReadFile( context, buffer,len, &dwBytesRead, NULL))
 153     {
 154         ERR("Failed to read file\n");
 155         return -1;
 156     }
 157
 158     TRACE("Read %d\n", dwBytesRead);
 159
 160     return dwBytesRead;
 161 }
 162
 163 static int wineXmlFileCloseCallback (void * context)
 164 {
 165     return CloseHandle(context) ? 0 : -1;
 166 }
 167
 168 void* libxslt_handle = NULL;
 169 #ifdef SONAME_LIBXSLT
 170 # define DECL_FUNCPTR(f) typeof(f) * p##f = NULL
 171 DECL_FUNCPTR(xsltApplyStylesheet);
 172 DECL_FUNCPTR(xsltApplyStylesheetUser);
 173 DECL_FUNCPTR(xsltCleanupGlobals);
 174 DECL_FUNCPTR(xsltFreeStylesheet);
 175 DECL_FUNCPTR(xsltFreeTransformContext);
 176 DECL_FUNCPTR(xsltFunctionNodeSet);
 177 DECL_FUNCPTR(xsltNewTransformContext);
 178 DECL_FUNCPTR(xsltNextImport);
 179 DECL_FUNCPTR(xsltParseStylesheetDoc);
 180 DECL_FUNCPTR(xsltQuoteUserParams);
 181 DECL_FUNCPTR(xsltRegisterExtModuleFunction);
 182 DECL_FUNCPTR(xsltSaveResultTo);
 183 DECL_FUNCPTR(xsltSetLoaderFunc);
 184 # undef DECL_FUNCPTR
 185 #endif
 186
 187 static void init_libxslt(void)
 188 {
 189 #ifdef SONAME_LIBXSLT
 190     void (*pxsltInit)(void); /* Missing in libxslt <= 1.1.14 */
 191
 192     libxslt_handle = dlopen(SONAME_LIBXSLT, RTLD_NOW);
 193     if (!libxslt_handle)
 194         return;
 195
 196 #define LOAD_FUNCPTR(f, needed) \
 197     if ((p##f = dlsym(libxslt_handle, #f)) == NULL) \
 198         if (needed) { WARN("Can't find symbol %s\n", #f); goto sym_not_found; }
 199     LOAD_FUNCPTR(xsltInit, 0);
 200     LOAD_FUNCPTR(xsltApplyStylesheet, 1);
 201     LOAD_FUNCPTR(xsltApplyStylesheetUser, 1);
 202     LOAD_FUNCPTR(xsltCleanupGlobals, 1);
 203     LOAD_FUNCPTR(xsltFreeStylesheet, 1);
 204     LOAD_FUNCPTR(xsltFreeTransformContext, 1);
 205     LOAD_FUNCPTR(xsltFunctionNodeSet, 1);
 206     LOAD_FUNCPTR(xsltNewTransformContext, 1);
 207     LOAD_FUNCPTR(xsltNextImport, 1);
 208     LOAD_FUNCPTR(xsltParseStylesheetDoc, 1);
 209     LOAD_FUNCPTR(xsltQuoteUserParams, 1);
 210     LOAD_FUNCPTR(xsltRegisterExtModuleFunction, 1);
 211     LOAD_FUNCPTR(xsltSaveResultTo, 1);
 212     LOAD_FUNCPTR(xsltSetLoaderFunc, 1);
 213 #undef LOAD_FUNCPTR
 214
 215     if (pxsltInit)
 216         pxsltInit();
 217
 218     pxsltSetLoaderFunc(xslt_doc_default_loader);
 219     pxsltRegisterExtModuleFunction(
 220         (const xmlChar *)"node-set",
 221         (const xmlChar *)"urn:schemas-microsoft-com:xslt",
 222         pxsltFunctionNodeSet);
 223
 224     return;
 225
 226  sym_not_found:
 227     dlclose(libxslt_handle);
 228     libxslt_handle = NULL;
 229 #endif
 230 }
 231
 232 static int to_utf8(int cp, unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 233 {
 234     WCHAR *tmp;
 235     int len;
 236
 237     if (!in || !inlen) return 0;
 238
 239     len = MultiByteToWideChar(cp, 0, (const char *)in, *inlen, NULL, 0);
 240     tmp = heap_alloc(len * sizeof(WCHAR));
 241     if (!tmp) return -1;
 242     MultiByteToWideChar(cp, 0, (const char *)in, *inlen, tmp, len);
 243
 244     len = WideCharToMultiByte(CP_UTF8, 0, tmp, len, (char *)out, *outlen, NULL, NULL);
 245     heap_free(tmp);
 246     if (!len) return -1;
 247
 248     *outlen = len;
 249     return len;
 250 }
 251
 252 static int from_utf8(int cp, unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 253 {
 254     WCHAR *tmp;
 255     int len;
 256
 257     if (!in || !inlen) return 0;
 258
 259     len = MultiByteToWideChar(CP_UTF8, 0, (const char *)in, *inlen, NULL, 0);
 260     tmp = heap_alloc(len * sizeof(WCHAR));
 261     if (!tmp) return -1;
 262     MultiByteToWideChar(CP_UTF8, 0, (const char *)in, *inlen, tmp, len);
 263
 264     len = WideCharToMultiByte(cp, 0, tmp, len, (char *)out, *outlen, NULL, NULL);
 265     heap_free(tmp);
 266     if (!len) return -1;
 267
 268     *outlen = len;
 269     return len;
 270 }
 271
 272 static int win1250_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 273 {
 274     return to_utf8(1250, out, outlen, in, inlen);
 275 }
 276
 277 static int utf8_to_win1250(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 278 {
 279     return from_utf8(1250, out, outlen, in, inlen);
 280 }
 281
 282 static int win1251_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 283 {
 284     return to_utf8(1251, out, outlen, in, inlen);
 285 }
 286
 287 static int utf8_to_win1251(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 288 {
 289     return from_utf8(1251, out, outlen, in, inlen);
 290 }
 291
 292 static int win1252_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 293 {
 294     return to_utf8(1252, out, outlen, in, inlen);
 295 }
 296
 297 static int utf8_to_win1252(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 298 {
 299     return from_utf8(1252, out, outlen, in, inlen);
 300 }
 301
 302 static int win1253_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 303 {
 304     return to_utf8(1253, out, outlen, in, inlen);
 305 }
 306
 307 static int utf8_to_win1253(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 308 {
 309     return from_utf8(1253, out, outlen, in, inlen);
 310 }
 311 static int win1254_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 312 {
 313     return to_utf8(1254, out, outlen, in, inlen);
 314 }
 315
 316 static int utf8_to_win1254(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 317 {
 318     return from_utf8(1254, out, outlen, in, inlen);
 319 }
 320
 321 static int win1255_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 322 {
 323     return to_utf8(1255, out, outlen, in, inlen);
 324 }
 325
 326 static int utf8_to_win1255(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 327 {
 328     return from_utf8(1255, out, outlen, in, inlen);
 329 }
 330
 331 static int win1256_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 332 {
 333     return to_utf8(1256, out, outlen, in, inlen);
 334 }
 335
 336 static int utf8_to_win1256(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 337 {
 338     return from_utf8(1256, out, outlen, in, inlen);
 339 }
 340
 341 static int win1257_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 342 {
 343     return to_utf8(1257, out, outlen, in, inlen);
 344 }
 345
 346 static int utf8_to_win1257(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 347 {
 348     return from_utf8(1257, out, outlen, in, inlen);
 349 }
 350
 351 static int win1258_to_utf8(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 352 {
 353     return to_utf8(1258, out, outlen, in, inlen);
 354 }
 355
 356 static int utf8_to_win1258(unsigned char *out, int *outlen, const unsigned char *in, int *inlen)
 357 {
 358     return from_utf8(1258, out, outlen, in, inlen);
 359 }
 360
 361 static void init_char_encoders(void)
 362 {
 363     static const struct
 364     {
 365         const char *encoding;
 366         xmlCharEncodingInputFunc input;
 367         xmlCharEncodingOutputFunc output;
 368     } encoder[] =
 369     {
 370         { "windows-1250", win1250_to_utf8, utf8_to_win1250 },
 371         { "windows-1251", win1251_to_utf8, utf8_to_win1251 },
 372         { "windows-1252", win1252_to_utf8, utf8_to_win1252 },
 373         { "windows-1253", win1253_to_utf8, utf8_to_win1253 },
 374         { "windows-1254", win1254_to_utf8, utf8_to_win1254 },
 375         { "windows-1255", win1255_to_utf8, utf8_to_win1255 },
 376         { "windows-1256", win1256_to_utf8, utf8_to_win1256 },
 377         { "windows-1257", win1257_to_utf8, utf8_to_win1257 },
 378         { "windows-1258", win1258_to_utf8, utf8_to_win1258 }
 379     };
 380     int i;
 381
 382     xmlInitCharEncodingHandlers();
 383
 384     for (i = 0; i < ARRAY_SIZE(encoder); i++)
 385     {
 386         if (!xmlFindCharEncodingHandler(encoder[i].encoding))
 387         {
 388             TRACE("Adding %s encoding handler\n", encoder[i].encoding);
 389             xmlNewCharEncodingHandler(encoder[i].encoding, encoder[i].input, encoder[i].output);
 390         }
 391     }
 392 }
 393
 394 #endif  /* HAVE_LIBXML2 */
 395
 396
 397 HRESULT WINAPI DllCanUnloadNow(void)
 398 {
 399     return S_FALSE;
 400 }
 401
 402
 403 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID reserved)
 404 {
 405     MSXML_hInstance = hInstDLL;
 406
 407     switch(fdwReason)
 408     {
 409     case DLL_PROCESS_ATTACH:
 410 #ifdef HAVE_LIBXML2
 411         xmlInitParser();
 412
 413         /* Set the default indent character to a single tab,
 414            for this thread and as default for new threads */
 415         xmlTreeIndentString = "\t";
 416         xmlThrDefTreeIndentString("\t");
 417
 418          /* Register callbacks for loading XML files */
 419         if(xmlRegisterInputCallbacks(wineXmlMatchCallback, wineXmlOpenCallback,
 420                             wineXmlReadCallback, wineXmlFileCloseCallback) == -1)
 421             WARN("Failed to register callbacks\n");
 422
 423         init_char_encoders();
 424
 425         schemasInit();
 426         init_libxslt();
 427 #endif
 428         DisableThreadLibraryCalls(hInstDLL);
 429         break;
 430     case DLL_PROCESS_DETACH:
 431         if (reserved) break;
 432 #ifdef HAVE_LIBXML2
 433 #ifdef SONAME_LIBXSLT
 434         if (libxslt_handle)
 435         {
 436             pxsltCleanupGlobals();
 437             dlclose(libxslt_handle);
 438         }
 439 #endif
 440         /* Restore default Callbacks */
 441         xmlCleanupInputCallbacks();
 442         xmlRegisterDefaultInputCallbacks();
 443
 444         xmlCleanupParser();
 445         schemasCleanup();
 446 #endif
 447         release_typelib();
 448         break;
 449     }
 450     return TRUE;
 451 }
 452
 453 /***********************************************************************
 454  *              DllRegisterServer (MSXML3.@)
 455  */
 456 HRESULT WINAPI DllRegisterServer(void)
 457 {
 458     return __wine_register_resources( MSXML_hInstance );
 459 }
 460
 461 /***********************************************************************
 462  *              DllUnregisterServer (MSXML3.@)
 463  */
 464 HRESULT WINAPI DllUnregisterServer(void)
 465 {
 466     return __wine_unregister_resources( MSXML_hInstance );
 467 }