4 * Copyright 2002 Lionel Ulmer
5 * Copyright 2005 Mike McCormack
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.
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.
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
22 #define WIN32_NO_STATUS
26 #include <wine/port.h>
32 //# include <libxml/parser.h>
33 //# include <libxml/xmlerror.h>
34 # ifdef SONAME_LIBXSLT
35 # ifdef HAVE_LIBXSLT_PATTERN_H
36 # include <libxslt/pattern.h>
38 # ifdef HAVE_LIBXSLT_TRANSFORM_H
39 # include <libxslt/transform.h>
41 # include <libxslt/xsltutils.h>
42 # include <libxslt/xsltInternals.h>
48 //#include "winuser.h"
54 //#include "wine/unicode.h"
55 #include <wine/debug.h>
56 #include <wine/library.h>
58 #include "msxml_private.h"
60 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
62 HINSTANCE MSXML_hInstance
= NULL
;
66 void wineXmlCallbackLog(char const* caller
, xmlErrorLevel lvl
, char const* msg
, va_list ap
)
68 enum __wine_debug_class dbcl
;
70 static const int max_size
= sizeof(buff
) / sizeof(buff
[0]);
76 dbcl
= __WINE_DBCL_TRACE
;
79 dbcl
= __WINE_DBCL_WARN
;
82 dbcl
= __WINE_DBCL_ERR
;
86 len
= vsnprintf(buff
, max_size
, msg
, ap
);
87 if (len
== -1 || len
>= max_size
) buff
[max_size
-1] = 0;
89 wine_dbg_log(dbcl
, &__wine_dbch_msxml
, caller
, "%s", buff
);
92 void wineXmlCallbackError(char const* caller
, xmlErrorPtr err
)
94 enum __wine_debug_class dbcl
;
98 case XML_ERR_NONE
: dbcl
= __WINE_DBCL_TRACE
; break;
99 case XML_ERR_WARNING
: dbcl
= __WINE_DBCL_WARN
; break;
100 default: dbcl
= __WINE_DBCL_ERR
; break;
103 wine_dbg_log(dbcl
, &__wine_dbch_msxml
, caller
, "error code %d", err
->code
);
105 wine_dbg_log(dbcl
, &__wine_dbch_msxml
, caller
, ": %s", err
->message
);
107 wine_dbg_log(dbcl
, &__wine_dbch_msxml
, caller
, "\n");
110 /* Support for loading xml files from a Wine Windows drive */
111 static int wineXmlMatchCallback (char const * filename
)
115 TRACE("%s\n", filename
);
118 * We will deal with loading XML files from the file system
119 * We only care about files that linux cannot find.
122 if(isalpha(filename
[0]) && filename
[1] == ':')
128 static void *wineXmlOpenCallback (char const * filename
)
130 BSTR sFilename
= bstr_from_xmlChar( (const xmlChar
*)filename
);
133 TRACE("%s\n", debugstr_w(sFilename
));
135 hFile
= CreateFileW(sFilename
, GENERIC_READ
,FILE_SHARE_READ
, NULL
,
136 OPEN_EXISTING
,FILE_ATTRIBUTE_NORMAL
, NULL
);
137 if(hFile
== INVALID_HANDLE_VALUE
) hFile
= 0;
138 SysFreeString(sFilename
);
142 static int wineXmlReadCallback(void * context
, char * buffer
, int len
)
146 TRACE("%p %s %d\n", context
, buffer
, len
);
148 if ((context
== NULL
) || (buffer
== NULL
))
151 if(!ReadFile( context
, buffer
,len
, &dwBytesRead
, NULL
))
153 ERR("Failed to read file\n");
157 TRACE("Read %d\n", dwBytesRead
);
162 static int wineXmlFileCloseCallback (void * context
)
164 return CloseHandle(context
) ? 0 : -1;
170 HRESULT WINAPI
DllCanUnloadNow(void)
176 void* libxslt_handle
= NULL
;
177 #ifdef SONAME_LIBXSLT
178 # define DECL_FUNCPTR(f) typeof(f) * p##f = NULL
179 DECL_FUNCPTR(xsltApplyStylesheet
);
180 DECL_FUNCPTR(xsltCleanupGlobals
);
181 DECL_FUNCPTR(xsltFreeStylesheet
);
182 DECL_FUNCPTR(xsltParseStylesheetDoc
);
186 static void init_libxslt(void)
188 #ifdef SONAME_LIBXSLT
189 void (*pxsltInit
)(void); /* Missing in libxslt <= 1.1.14 */
191 libxslt_handle
= wine_dlopen(SONAME_LIBXSLT
, RTLD_NOW
, NULL
, 0);
195 #define LOAD_FUNCPTR(f, needed) \
196 if ((p##f = wine_dlsym(libxslt_handle, #f, NULL, 0)) == NULL) \
197 if (needed) { WARN("Can't find symbol %s\n", #f); goto sym_not_found; }
198 LOAD_FUNCPTR(xsltInit
, 0);
199 LOAD_FUNCPTR(xsltApplyStylesheet
, 1);
200 LOAD_FUNCPTR(xsltCleanupGlobals
, 1);
201 LOAD_FUNCPTR(xsltFreeStylesheet
, 1);
202 LOAD_FUNCPTR(xsltParseStylesheetDoc
, 1);
210 wine_dlclose(libxslt_handle
, NULL
, 0);
211 libxslt_handle
= NULL
;
215 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
217 MSXML_hInstance
= hInstDLL
;
221 case DLL_PROCESS_ATTACH
:
225 /* Set the default indent character to a single tab,
226 for this thread and as default for new threads */
227 xmlTreeIndentString
= "\t";
228 xmlThrDefTreeIndentString("\t");
230 /* Register callbacks for loading XML files */
231 if(xmlRegisterInputCallbacks(wineXmlMatchCallback
, wineXmlOpenCallback
,
232 wineXmlReadCallback
, wineXmlFileCloseCallback
) == -1)
233 WARN("Failed to register callbacks\n");
238 DisableThreadLibraryCalls(hInstDLL
);
240 case DLL_PROCESS_DETACH
:
241 #ifdef SONAME_LIBXSLT
244 pxsltCleanupGlobals();
245 wine_dlclose(libxslt_handle
, NULL
, 0);
246 libxslt_handle
= NULL
;
250 /* Restore default Callbacks */
251 xmlCleanupInputCallbacks();
252 xmlRegisterDefaultInputCallbacks();
263 const char *debugstr_variant(const VARIANT
*v
)
274 return wine_dbg_sprintf("{VT_I1: %d}", V_I1(v
));
276 return wine_dbg_sprintf("{VT_I2: %d}", V_I2(v
));
278 return wine_dbg_sprintf("{VT_I4: %d}", V_I4(v
));
280 return wine_dbg_sprintf("{VT_INT: %d}", V_INT(v
));
282 return wine_dbg_sprintf("{VT_R8: %lf}", V_R8(v
));
284 return wine_dbg_sprintf("{VT_BSTR: %s}", debugstr_w(V_BSTR(v
)));
286 return wine_dbg_sprintf("{VT_DISPATCH: %p}", V_DISPATCH(v
));
288 return wine_dbg_sprintf("{VT_BOOL: %x}", V_BOOL(v
));
290 return wine_dbg_sprintf("{VT_UNKNOWN: %p}", V_UNKNOWN(v
));
292 return wine_dbg_sprintf("{VT_UINT: %u}", V_UINT(v
));
293 case VT_BSTR
|VT_BYREF
:
294 return wine_dbg_sprintf("{VT_BSTR|VT_BYREF: ptr %p, data %s}",
295 V_BSTRREF(v
), debugstr_w(V_BSTRREF(v
) ? *V_BSTRREF(v
) : NULL
));
297 return wine_dbg_sprintf("{VT_ERROR: 0x%08x}", V_ERROR(v
));
298 case VT_VARIANT
|VT_BYREF
:
299 return wine_dbg_sprintf("{VT_VARIANT|VT_BYREF: %s}", debugstr_variant(V_VARIANTREF(v
)));
300 case VT_UI1
|VT_ARRAY
:
301 return "{VT_UI1|VT_ARRAY}";
303 return wine_dbg_sprintf("{vt %d}", V_VT(v
));
307 /***********************************************************************
308 * DllRegisterServer (MSXML3.@)
310 HRESULT WINAPI
DllRegisterServer(void)
312 return __wine_register_resources( MSXML_hInstance
);
315 /***********************************************************************
316 * DllUnregisterServer (MSXML3.@)
318 HRESULT WINAPI
DllUnregisterServer(void)
320 return __wine_unregister_resources( MSXML_hInstance
);