Sweden-Number/dlls/winex11.drv/xdnd.c

1135 lines
33 KiB
C

/*
* XDND handler code
*
* Copyright 2003 Ulrich Czekalla
* Copyright 2007 Damjan Jovanovic
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
*/
#include "config.h"
#include "wine/port.h"
#include <string.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include <stdarg.h>
#include <stdio.h>
#define NONAMELESSUNION
#include "windef.h"
#include "winbase.h"
#include "wingdi.h"
#include "winuser.h"
#define COBJMACROS
#include "x11drv.h"
#include "shlobj.h" /* DROPFILES */
#include "oleidl.h"
#include "objidl.h"
#include "wine/unicode.h"
#include "wine/debug.h"
#include "wine/list.h"
WINE_DEFAULT_DEBUG_CHANNEL(xdnd);
/* Maximum wait time for selection notify */
#define SELECTION_RETRIES 500 /* wait for .1 seconds */
#define SELECTION_WAIT 1000 /* us */
typedef struct tagXDNDDATA
{
int cf_win;
Atom cf_xdnd;
void *data;
unsigned int size;
struct list entry;
} XDNDDATA, *LPXDNDDATA;
static struct list xdndData = LIST_INIT(xdndData);
static POINT XDNDxy = { 0, 0 };
static IDataObject XDNDDataObject;
static BOOL XDNDAccepted = FALSE;
static DWORD XDNDDropEffect = DROPEFFECT_NONE;
/* the last window the mouse was over */
static HWND XDNDLastTargetWnd;
/* might be a ancestor of XDNDLastTargetWnd */
static HWND XDNDLastDropTargetWnd;
static void X11DRV_XDND_InsertXDNDData(int property, int format, void* data, unsigned int len);
static int X11DRV_XDND_DeconstructTextURIList(int property, void* data, int len);
static int X11DRV_XDND_DeconstructTextPlain(int property, void* data, int len);
static int X11DRV_XDND_DeconstructTextHTML(int property, void* data, int len);
static int X11DRV_XDND_MapFormat(unsigned int property, unsigned char *data, int len);
static void X11DRV_XDND_ResolveProperty(Display *display, Window xwin, Time tm,
Atom *types, unsigned long *count);
static void X11DRV_XDND_SendDropFiles(HWND hwnd);
static void X11DRV_XDND_FreeDragDropOp(void);
static unsigned int X11DRV_XDND_UnixToDos(char** lpdest, char* lpsrc, int len);
static WCHAR* X11DRV_XDND_URIToDOS(char *encodedURI);
static CRITICAL_SECTION xdnd_cs;
static CRITICAL_SECTION_DEBUG critsect_debug =
{
0, 0, &xdnd_cs,
{ &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
0, 0, { (DWORD_PTR)(__FILE__ ": xdnd_cs") }
};
static CRITICAL_SECTION xdnd_cs = { &critsect_debug, -1, 0, 0, 0, 0 };
/* Based on functions in dlls/ole32/ole2.c */
static HANDLE get_droptarget_local_handle(HWND hwnd)
{
static const WCHAR prop_marshalleddroptarget[] =
{'W','i','n','e','M','a','r','s','h','a','l','l','e','d','D','r','o','p','T','a','r','g','e','t',0};
HANDLE handle;
HANDLE local_handle = 0;
handle = GetPropW(hwnd, prop_marshalleddroptarget);
if (handle)
{
DWORD pid;
HANDLE process;
GetWindowThreadProcessId(hwnd, &pid);
process = OpenProcess(PROCESS_DUP_HANDLE, FALSE, pid);
if (process)
{
DuplicateHandle(process, handle, GetCurrentProcess(), &local_handle, 0, FALSE, DUPLICATE_SAME_ACCESS);
CloseHandle(process);
}
}
return local_handle;
}
static HRESULT create_stream_from_map(HANDLE map, IStream **stream)
{
HRESULT hr = E_OUTOFMEMORY;
HGLOBAL hmem;
void *data;
MEMORY_BASIC_INFORMATION info;
data = MapViewOfFile(map, FILE_MAP_READ, 0, 0, 0);
if(!data) return hr;
VirtualQuery(data, &info, sizeof(info));
TRACE("size %d\n", (int)info.RegionSize);
hmem = GlobalAlloc(GMEM_MOVEABLE, info.RegionSize);
if(hmem)
{
memcpy(GlobalLock(hmem), data, info.RegionSize);
GlobalUnlock(hmem);
hr = CreateStreamOnHGlobal(hmem, TRUE, stream);
}
UnmapViewOfFile(data);
return hr;
}
static IDropTarget* get_droptarget_pointer(HWND hwnd)
{
IDropTarget *droptarget = NULL;
HANDLE map;
IStream *stream;
map = get_droptarget_local_handle(hwnd);
if(!map) return NULL;
if(SUCCEEDED(create_stream_from_map(map, &stream)))
{
CoUnmarshalInterface(stream, &IID_IDropTarget, (void**)&droptarget);
IStream_Release(stream);
}
CloseHandle(map);
return droptarget;
}
/**************************************************************************
* X11DRV_XDND_XdndActionToDROPEFFECT
*/
static DWORD X11DRV_XDND_XdndActionToDROPEFFECT(long action)
{
/* In Windows, nothing but the given effects is allowed.
* In X the given action is just a hint, and you can always
* XdndActionCopy and XdndActionPrivate, so be more permissive. */
if (action == x11drv_atom(XdndActionCopy))
return DROPEFFECT_COPY;
else if (action == x11drv_atom(XdndActionMove))
return DROPEFFECT_MOVE | DROPEFFECT_COPY;
else if (action == x11drv_atom(XdndActionLink))
return DROPEFFECT_LINK | DROPEFFECT_COPY;
else if (action == x11drv_atom(XdndActionAsk))
/* FIXME: should we somehow ask the user what to do here? */
return DROPEFFECT_COPY | DROPEFFECT_MOVE | DROPEFFECT_LINK;
FIXME("unknown action %ld, assuming DROPEFFECT_COPY\n", action);
return DROPEFFECT_COPY;
}
/**************************************************************************
* X11DRV_XDND_DROPEFFECTToXdndAction
*/
static long X11DRV_XDND_DROPEFFECTToXdndAction(DWORD effect)
{
if (effect == DROPEFFECT_COPY)
return x11drv_atom(XdndActionCopy);
else if (effect == DROPEFFECT_MOVE)
return x11drv_atom(XdndActionMove);
else if (effect == DROPEFFECT_LINK)
return x11drv_atom(XdndActionLink);
FIXME("unknown drop effect %u, assuming XdndActionCopy\n", effect);
return x11drv_atom(XdndActionCopy);
}
/**************************************************************************
* X11DRV_XDND_EnterEvent
*
* Handle an XdndEnter event.
*/
void X11DRV_XDND_EnterEvent( HWND hWnd, XClientMessageEvent *event )
{
int version;
Atom *xdndtypes;
unsigned long count = 0;
version = (event->data.l[1] & 0xFF000000) >> 24;
TRACE("ver(%d) check-XdndTypeList(%ld) data=%ld,%ld,%ld,%ld,%ld\n",
version, (event->data.l[1] & 1),
event->data.l[0], event->data.l[1], event->data.l[2],
event->data.l[3], event->data.l[4]);
if (version > WINE_XDND_VERSION)
{
TRACE("Ignores unsupported version\n");
return;
}
XDNDAccepted = FALSE;
/* If the source supports more than 3 data types we retrieve
* the entire list. */
if (event->data.l[1] & 1)
{
Atom acttype;
int actfmt;
unsigned long bytesret;
/* Request supported formats from source window */
XGetWindowProperty(event->display, event->data.l[0], x11drv_atom(XdndTypeList),
0, 65535, FALSE, AnyPropertyType, &acttype, &actfmt, &count,
&bytesret, (unsigned char**)&xdndtypes);
}
else
{
count = 3;
xdndtypes = (Atom*) &event->data.l[2];
}
if (TRACE_ON(xdnd))
{
unsigned int i;
for (i = 0; i < count; i++)
{
if (xdndtypes[i] != 0)
{
char * pn = XGetAtomName(event->display, xdndtypes[i]);
TRACE("XDNDEnterAtom %ld: %s\n", xdndtypes[i], pn);
XFree(pn);
}
}
}
/* Do a one-time data read and cache results */
X11DRV_XDND_ResolveProperty(event->display, event->window,
event->data.l[1], xdndtypes, &count);
if (event->data.l[1] & 1)
XFree(xdndtypes);
}
/**************************************************************************
* X11DRV_XDND_PositionEvent
*
* Handle an XdndPosition event.
*/
void X11DRV_XDND_PositionEvent( HWND hWnd, XClientMessageEvent *event )
{
XClientMessageEvent e;
int accept = 0; /* Assume we're not accepting */
IDropTarget *dropTarget = NULL;
DWORD effect;
POINTL pointl;
HWND targetWindow;
HRESULT hr;
XDNDxy = root_to_virtual_screen( event->data.l[2] >> 16, event->data.l[2] & 0xFFFF );
targetWindow = WindowFromPoint(XDNDxy);
pointl.x = XDNDxy.x;
pointl.y = XDNDxy.y;
effect = X11DRV_XDND_XdndActionToDROPEFFECT(event->data.l[4]);
if (!XDNDAccepted || XDNDLastTargetWnd != targetWindow)
{
/* Notify OLE of DragEnter. Result determines if we accept */
HWND dropTargetWindow;
if (XDNDLastDropTargetWnd)
{
dropTarget = get_droptarget_pointer(XDNDLastDropTargetWnd);
if (dropTarget)
{
hr = IDropTarget_DragLeave(dropTarget);
if (FAILED(hr))
WARN("IDropTarget_DragLeave failed, error 0x%08X\n", hr);
IDropTarget_Release(dropTarget);
}
}
dropTargetWindow = targetWindow;
do
{
dropTarget = get_droptarget_pointer(dropTargetWindow);
} while (dropTarget == NULL && (dropTargetWindow = GetParent(dropTargetWindow)) != NULL);
XDNDLastTargetWnd = targetWindow;
XDNDLastDropTargetWnd = dropTargetWindow;
if (dropTarget)
{
hr = IDropTarget_DragEnter(dropTarget, &XDNDDataObject,
MK_LBUTTON, pointl, &effect);
if (SUCCEEDED(hr))
{
if (effect != DROPEFFECT_NONE)
{
XDNDAccepted = TRUE;
TRACE("the application accepted the drop\n");
}
else
TRACE("the application refused the drop\n");
}
else
WARN("IDropTarget_DragEnter failed, error 0x%08X\n", hr);
IDropTarget_Release(dropTarget);
}
}
if (XDNDAccepted && XDNDLastTargetWnd == targetWindow)
{
/* If drag accepted notify OLE of DragOver */
dropTarget = get_droptarget_pointer(XDNDLastDropTargetWnd);
if (dropTarget)
{
hr = IDropTarget_DragOver(dropTarget, MK_LBUTTON, pointl, &effect);
if (SUCCEEDED(hr))
XDNDDropEffect = effect;
else
WARN("IDropTarget_DragOver failed, error 0x%08X\n", hr);
IDropTarget_Release(dropTarget);
}
}
if (XDNDAccepted)
accept = 1;
if (GetWindowLongW( hWnd, GWL_EXSTYLE ) & WS_EX_ACCEPTFILES)
accept = 1;
TRACE("action req: %ld accept(%d) at x(%d),y(%d)\n",
event->data.l[4], accept, XDNDxy.x, XDNDxy.y);
/*
* Let source know if we're accepting the drop by
* sending a status message.
*/
e.type = ClientMessage;
e.display = event->display;
e.window = event->data.l[0];
e.message_type = x11drv_atom(XdndStatus);
e.format = 32;
e.data.l[0] = event->window;
e.data.l[1] = accept;
e.data.l[2] = 0; /* Empty Rect */
e.data.l[3] = 0; /* Empty Rect */
if (accept)
e.data.l[4] = X11DRV_XDND_DROPEFFECTToXdndAction(effect);
else
e.data.l[4] = None;
XSendEvent(event->display, event->data.l[0], False, NoEventMask, (XEvent*)&e);
}
/**************************************************************************
* X11DRV_XDND_DropEvent
*
* Handle an XdndDrop event.
*/
void X11DRV_XDND_DropEvent( HWND hWnd, XClientMessageEvent *event )
{
XClientMessageEvent e;
IDropTarget *dropTarget;
TRACE("\n");
/* If we have a HDROP type we send a WM_ACCEPTFILES.*/
if (GetWindowLongW( hWnd, GWL_EXSTYLE ) & WS_EX_ACCEPTFILES)
X11DRV_XDND_SendDropFiles( hWnd );
/* Notify OLE of Drop */
dropTarget = get_droptarget_pointer(XDNDLastDropTargetWnd);
if (dropTarget)
{
HRESULT hr;
POINTL pointl;
DWORD effect = XDNDDropEffect;
pointl.x = XDNDxy.x;
pointl.y = XDNDxy.y;
hr = IDropTarget_Drop(dropTarget, &XDNDDataObject, MK_LBUTTON,
pointl, &effect);
if (SUCCEEDED(hr))
{
if (effect != DROPEFFECT_NONE)
TRACE("drop succeeded\n");
else
TRACE("the application refused the drop\n");
}
else
WARN("drop failed, error 0x%08X\n", hr);
IDropTarget_Release(dropTarget);
}
X11DRV_XDND_FreeDragDropOp();
/* Tell the target we are finished. */
memset(&e, 0, sizeof(e));
e.type = ClientMessage;
e.display = event->display;
e.window = event->data.l[0];
e.message_type = x11drv_atom(XdndFinished);
e.format = 32;
e.data.l[0] = event->window;
XSendEvent(event->display, event->data.l[0], False, NoEventMask, (XEvent*)&e);
}
/**************************************************************************
* X11DRV_XDND_LeaveEvent
*
* Handle an XdndLeave event.
*/
void X11DRV_XDND_LeaveEvent( HWND hWnd, XClientMessageEvent *event )
{
IDropTarget *dropTarget;
TRACE("DND Operation canceled\n");
/* Notify OLE of DragLeave */
dropTarget = get_droptarget_pointer(XDNDLastDropTargetWnd);
if (dropTarget)
{
HRESULT hr = IDropTarget_DragLeave(dropTarget);
if (FAILED(hr))
WARN("IDropTarget_DragLeave failed, error 0x%08X\n", hr);
IDropTarget_Release(dropTarget);
}
X11DRV_XDND_FreeDragDropOp();
}
/**************************************************************************
* X11DRV_XDND_ResolveProperty
*
* Resolve all MIME types to windows clipboard formats. All data is cached.
*/
static void X11DRV_XDND_ResolveProperty(Display *display, Window xwin, Time tm,
Atom *types, unsigned long *count)
{
unsigned int i, j;
BOOL res;
XEvent xe;
Atom acttype;
int actfmt;
unsigned long bytesret, icount;
int entries = 0;
unsigned char* data = NULL;
XDNDDATA *current, *next;
BOOL haveHDROP = FALSE;
TRACE("count(%ld)\n", *count);
X11DRV_XDND_FreeDragDropOp(); /* Clear previously cached data */
for (i = 0; i < *count; i++)
{
TRACE("requesting atom %ld from xwin %ld\n", types[i], xwin);
if (types[i] == 0)
continue;
XConvertSelection(display, x11drv_atom(XdndSelection), types[i],
x11drv_atom(XdndTarget), xwin, /*tm*/CurrentTime);
/*
* Wait for SelectionNotify
*/
for (j = 0; j < SELECTION_RETRIES; j++)
{
res = XCheckTypedWindowEvent(display, xwin, SelectionNotify, &xe);
if (res && xe.xselection.selection == x11drv_atom(XdndSelection)) break;
usleep(SELECTION_WAIT);
}
if (xe.xselection.property == None)
continue;
XGetWindowProperty(display, xwin, x11drv_atom(XdndTarget), 0, 65535, FALSE,
AnyPropertyType, &acttype, &actfmt, &icount, &bytesret, &data);
entries += X11DRV_XDND_MapFormat(types[i], data, get_property_size( actfmt, icount ));
XFree(data);
}
/* On Windows when there is a CF_HDROP, there are no other CF_ formats.
* foobar2000 relies on this (spaces -> %20's without it).
*/
LIST_FOR_EACH_ENTRY(current, &xdndData, XDNDDATA, entry)
{
if (current->cf_win == CF_HDROP)
{
haveHDROP = TRUE;
break;
}
}
if (haveHDROP)
{
LIST_FOR_EACH_ENTRY_SAFE(current, next, &xdndData, XDNDDATA, entry)
{
if (current->cf_win != CF_HDROP && current->cf_win < CF_MAX)
{
list_remove(&current->entry);
HeapFree(GetProcessHeap(), 0, current->data);
HeapFree(GetProcessHeap(), 0, current);
--entries;
}
}
}
*count = entries;
}
/**************************************************************************
* X11DRV_XDND_InsertXDNDData
*
* Cache available XDND property
*/
static void X11DRV_XDND_InsertXDNDData(int property, int format, void* data, unsigned int len)
{
LPXDNDDATA current = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(XDNDDATA));
if (current)
{
EnterCriticalSection(&xdnd_cs);
current->cf_xdnd = property;
current->cf_win = format;
current->data = data;
current->size = len;
list_add_tail(&xdndData, &current->entry);
LeaveCriticalSection(&xdnd_cs);
}
}
/**************************************************************************
* X11DRV_XDND_MapFormat
*
* Map XDND MIME format to windows clipboard format.
*/
static int X11DRV_XDND_MapFormat(unsigned int property, unsigned char *data, int len)
{
void* xdata;
int count = 0;
TRACE("%d: %s\n", property, data);
/* Always include the raw type */
xdata = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len);
memcpy(xdata, data, len);
X11DRV_XDND_InsertXDNDData(property, property, xdata, len);
count++;
if (property == x11drv_atom(text_uri_list))
count += X11DRV_XDND_DeconstructTextURIList(property, data, len);
else if (property == x11drv_atom(text_plain))
count += X11DRV_XDND_DeconstructTextPlain(property, data, len);
else if (property == x11drv_atom(text_html))
count += X11DRV_XDND_DeconstructTextHTML(property, data, len);
return count;
}
/**************************************************************************
* X11DRV_XDND_DeconstructTextURIList
*
* Interpret text/uri-list data and add records to <dndfmt> linked list
*/
static int X11DRV_XDND_DeconstructTextURIList(int property, void* data, int len)
{
char *uriList = data;
char *uri;
WCHAR *path;
WCHAR *out = NULL;
int size = 0;
int capacity = 4096;
int count = 0;
int start = 0;
int end = 0;
out = HeapAlloc(GetProcessHeap(), 0, capacity * sizeof(WCHAR));
if (out == NULL)
return 0;
while (end < len)
{
while (end < len && uriList[end] != '\r')
++end;
if (end < (len - 1) && uriList[end+1] != '\n')
{
WARN("URI list line doesn't end in \\r\\n\n");
break;
}
uri = HeapAlloc(GetProcessHeap(), 0, end - start + 1);
if (uri == NULL)
break;
lstrcpynA(uri, &uriList[start], end - start + 1);
path = X11DRV_XDND_URIToDOS(uri);
TRACE("converted URI %s to DOS path %s\n", debugstr_a(uri), debugstr_w(path));
HeapFree(GetProcessHeap(), 0, uri);
if (path)
{
int pathSize = strlenW(path) + 1;
if (pathSize > capacity-size)
{
capacity = 2*capacity + pathSize;
out = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, out, (capacity + 1)*sizeof(WCHAR));
if (out == NULL)
goto done;
}
memcpy(&out[size], path, pathSize * sizeof(WCHAR));
size += pathSize;
done:
HeapFree(GetProcessHeap(), 0, path);
if (out == NULL)
break;
}
start = end + 2;
end = start;
}
if (out && end >= len)
{
DROPFILES *dropFiles;
dropFiles = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(DROPFILES) + (size + 1)*sizeof(WCHAR));
if (dropFiles)
{
dropFiles->pFiles = sizeof(DROPFILES);
dropFiles->pt.x = XDNDxy.x;
dropFiles->pt.y = XDNDxy.y;
dropFiles->fNC = 0;
dropFiles->fWide = TRUE;
out[size] = '\0';
memcpy(((char*)dropFiles) + dropFiles->pFiles, out, (size + 1)*sizeof(WCHAR));
X11DRV_XDND_InsertXDNDData(property, CF_HDROP, dropFiles, sizeof(DROPFILES) + (size + 1)*sizeof(WCHAR));
count = 1;
}
}
HeapFree(GetProcessHeap(), 0, out);
return count;
}
/**************************************************************************
* X11DRV_XDND_DeconstructTextPlain
*
* Interpret text/plain Data and add records to <dndfmt> linked list
*/
static int X11DRV_XDND_DeconstructTextPlain(int property, void* data, int len)
{
char* dostext;
/* Always supply plain text */
X11DRV_XDND_UnixToDos(&dostext, data, len);
X11DRV_XDND_InsertXDNDData(property, CF_TEXT, dostext, strlen(dostext));
TRACE("CF_TEXT (%d): %s\n", CF_TEXT, dostext);
return 1;
}
/**************************************************************************
* X11DRV_XDND_DeconstructTextHTML
*
* Interpret text/html data and add records to <dndfmt> linked list
*/
static int X11DRV_XDND_DeconstructTextHTML(int property, void* data, int len)
{
char* dostext;
X11DRV_XDND_UnixToDos(&dostext, data, len);
X11DRV_XDND_InsertXDNDData(property,
RegisterClipboardFormatA("UniformResourceLocator"), dostext, strlen(dostext));
TRACE("UniformResourceLocator: %s\n", dostext);
return 1;
}
/**************************************************************************
* X11DRV_XDND_SendDropFiles
*/
static void X11DRV_XDND_SendDropFiles(HWND hwnd)
{
LPXDNDDATA current = NULL;
BOOL found = FALSE;
EnterCriticalSection(&xdnd_cs);
/* Find CF_HDROP type if any */
LIST_FOR_EACH_ENTRY(current, &xdndData, XDNDDATA, entry)
{
if (current->cf_win == CF_HDROP)
{
found = TRUE;
break;
}
}
if (found)
{
DROPFILES *lpDrop = current->data;
if (lpDrop)
{
lpDrop->pt.x = XDNDxy.x;
lpDrop->pt.y = XDNDxy.y;
TRACE("Sending WM_DROPFILES: hWnd(0x%p) %p(%s)\n", hwnd,
((char*)lpDrop) + lpDrop->pFiles, debugstr_w((WCHAR*)(((char*)lpDrop) + lpDrop->pFiles)));
PostMessageW(hwnd, WM_DROPFILES, (WPARAM)lpDrop, 0L);
}
}
LeaveCriticalSection(&xdnd_cs);
}
/**************************************************************************
* X11DRV_XDND_FreeDragDropOp
*/
static void X11DRV_XDND_FreeDragDropOp(void)
{
LPXDNDDATA next;
LPXDNDDATA current;
TRACE("\n");
EnterCriticalSection(&xdnd_cs);
/** Free data cache */
LIST_FOR_EACH_ENTRY_SAFE(current, next, &xdndData, XDNDDATA, entry)
{
list_remove(&current->entry);
HeapFree(GetProcessHeap(), 0, current);
}
XDNDxy.x = XDNDxy.y = 0;
XDNDLastTargetWnd = NULL;
XDNDLastDropTargetWnd = NULL;
XDNDAccepted = FALSE;
LeaveCriticalSection(&xdnd_cs);
}
/**************************************************************************
* X11DRV_XDND_UnixToDos
*/
static unsigned int X11DRV_XDND_UnixToDos(char** lpdest, char* lpsrc, int len)
{
int i;
unsigned int destlen, lines;
for (i = 0, lines = 0; i <= len; i++)
{
if (lpsrc[i] == '\n')
lines++;
}
destlen = len + lines + 1;
if (lpdest)
{
char* lpstr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, destlen);
for (i = 0, lines = 0; i <= len; i++)
{
if (lpsrc[i] == '\n')
lpstr[++lines + i] = '\r';
lpstr[lines + i] = lpsrc[i];
}
*lpdest = lpstr;
}
return lines;
}
/**************************************************************************
* X11DRV_XDND_URIToDOS
*/
static WCHAR* X11DRV_XDND_URIToDOS(char *encodedURI)
{
WCHAR *ret = NULL;
int i;
int j = 0;
char *uri = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, strlen(encodedURI) + 1);
if (uri == NULL)
return NULL;
for (i = 0; encodedURI[i]; ++i)
{
if (encodedURI[i] == '%')
{
if (encodedURI[i+1] && encodedURI[i+2])
{
char buffer[3];
int number;
buffer[0] = encodedURI[i+1];
buffer[1] = encodedURI[i+2];
buffer[2] = '\0';
sscanf(buffer, "%x", &number);
uri[j++] = number;
i += 2;
}
else
{
WARN("invalid URI encoding in %s\n", debugstr_a(encodedURI));
HeapFree(GetProcessHeap(), 0, uri);
return NULL;
}
}
else
uri[j++] = encodedURI[i];
}
/* Read http://www.freedesktop.org/wiki/Draganddropwarts and cry... */
if (strncmp(uri, "file:/", 6) == 0)
{
if (uri[6] == '/')
{
if (uri[7] == '/')
{
/* file:///path/to/file (nautilus, thunar) */
ret = wine_get_dos_file_name(&uri[7]);
}
else if (uri[7])
{
/* file://hostname/path/to/file (X file drag spec) */
char hostname[256];
char *path = strchr(&uri[7], '/');
if (path)
{
*path = '\0';
if (strcmp(&uri[7], "localhost") == 0)
{
*path = '/';
ret = wine_get_dos_file_name(path);
}
else if (gethostname(hostname, sizeof(hostname)) == 0)
{
if (strcmp(hostname, &uri[7]) == 0)
{
*path = '/';
ret = wine_get_dos_file_name(path);
}
}
}
}
}
else if (uri[6])
{
/* file:/path/to/file (konqueror) */
ret = wine_get_dos_file_name(&uri[5]);
}
}
HeapFree(GetProcessHeap(), 0, uri);
return ret;
}
/**************************************************************************
* X11DRV_XDND_DescribeClipboardFormat
*/
static void X11DRV_XDND_DescribeClipboardFormat(int cfFormat, char *buffer, int size)
{
#define D(x) case x: lstrcpynA(buffer, #x, size); return;
switch (cfFormat)
{
D(CF_TEXT)
D(CF_BITMAP)
D(CF_METAFILEPICT)
D(CF_SYLK)
D(CF_DIF)
D(CF_TIFF)
D(CF_OEMTEXT)
D(CF_DIB)
D(CF_PALETTE)
D(CF_PENDATA)
D(CF_RIFF)
D(CF_WAVE)
D(CF_UNICODETEXT)
D(CF_ENHMETAFILE)
D(CF_HDROP)
D(CF_LOCALE)
D(CF_DIBV5)
}
#undef D
if (CF_PRIVATEFIRST <= cfFormat && cfFormat <= CF_PRIVATELAST)
{
lstrcpynA(buffer, "some private object", size);
return;
}
if (CF_GDIOBJFIRST <= cfFormat && cfFormat <= CF_GDIOBJLAST)
{
lstrcpynA(buffer, "some GDI object", size);
return;
}
GetClipboardFormatNameA(cfFormat, buffer, size);
}
/* The IDataObject singleton we feed to OLE follows */
static HRESULT WINAPI XDNDDATAOBJECT_QueryInterface(IDataObject *dataObject,
REFIID riid, void **ppvObject)
{
TRACE("(%p, %s, %p)\n", dataObject, debugstr_guid(riid), ppvObject);
if (IsEqualIID(riid, &IID_IUnknown) || IsEqualIID(riid, &IID_IDataObject))
{
*ppvObject = dataObject;
IDataObject_AddRef(dataObject);
return S_OK;
}
*ppvObject = NULL;
return E_NOINTERFACE;
}
static ULONG WINAPI XDNDDATAOBJECT_AddRef(IDataObject *dataObject)
{
TRACE("(%p)\n", dataObject);
return 2;
}
static ULONG WINAPI XDNDDATAOBJECT_Release(IDataObject *dataObject)
{
TRACE("(%p)\n", dataObject);
return 1;
}
static HRESULT WINAPI XDNDDATAOBJECT_GetData(IDataObject *dataObject,
FORMATETC *formatEtc,
STGMEDIUM *pMedium)
{
HRESULT hr;
char formatDesc[1024];
TRACE("(%p, %p, %p)\n", dataObject, formatEtc, pMedium);
X11DRV_XDND_DescribeClipboardFormat(formatEtc->cfFormat,
formatDesc, sizeof(formatDesc));
TRACE("application is looking for %s\n", formatDesc);
hr = IDataObject_QueryGetData(dataObject, formatEtc);
if (SUCCEEDED(hr))
{
XDNDDATA *current;
LIST_FOR_EACH_ENTRY(current, &xdndData, XDNDDATA, entry)
{
if (current->cf_win == formatEtc->cfFormat)
{
pMedium->tymed = TYMED_HGLOBAL;
pMedium->u.hGlobal = HeapAlloc(GetProcessHeap(), 0, current->size);
if (pMedium->u.hGlobal == NULL)
return E_OUTOFMEMORY;
memcpy(pMedium->u.hGlobal, current->data, current->size);
pMedium->pUnkForRelease = 0;
return S_OK;
}
}
}
return hr;
}
static HRESULT WINAPI XDNDDATAOBJECT_GetDataHere(IDataObject *dataObject,
FORMATETC *formatEtc,
STGMEDIUM *pMedium)
{
FIXME("(%p, %p, %p): stub\n", dataObject, formatEtc, pMedium);
return DATA_E_FORMATETC;
}
static HRESULT WINAPI XDNDDATAOBJECT_QueryGetData(IDataObject *dataObject,
FORMATETC *formatEtc)
{
char formatDesc[1024];
XDNDDATA *current;
TRACE("(%p, %p={.tymed=0x%x, .dwAspect=%d, .cfFormat=%d}\n",
dataObject, formatEtc, formatEtc->tymed, formatEtc->dwAspect, formatEtc->cfFormat);
X11DRV_XDND_DescribeClipboardFormat(formatEtc->cfFormat, formatDesc, sizeof(formatDesc));
if (formatEtc->tymed && !(formatEtc->tymed & TYMED_HGLOBAL))
{
FIXME("only HGLOBAL medium types supported right now\n");
return DV_E_TYMED;
}
if (formatEtc->dwAspect != DVASPECT_CONTENT)
{
FIXME("only the content aspect is supported right now\n");
return E_NOTIMPL;
}
LIST_FOR_EACH_ENTRY(current, &xdndData, XDNDDATA, entry)
{
if (current->cf_win == formatEtc->cfFormat)
{
TRACE("application found %s\n", formatDesc);
return S_OK;
}
}
TRACE("application didn't find %s\n", formatDesc);
return DV_E_FORMATETC;
}
static HRESULT WINAPI XDNDDATAOBJECT_GetCanonicalFormatEtc(IDataObject *dataObject,
FORMATETC *formatEtc,
FORMATETC *formatEtcOut)
{
FIXME("(%p, %p, %p): stub\n", dataObject, formatEtc, formatEtcOut);
formatEtcOut->ptd = NULL;
return E_NOTIMPL;
}
static HRESULT WINAPI XDNDDATAOBJECT_SetData(IDataObject *dataObject,
FORMATETC *formatEtc,
STGMEDIUM *pMedium, BOOL fRelease)
{
FIXME("(%p, %p, %p, %s): stub\n", dataObject, formatEtc,
pMedium, fRelease?"TRUE":"FALSE");
return E_NOTIMPL;
}
static HRESULT WINAPI XDNDDATAOBJECT_EnumFormatEtc(IDataObject *dataObject,
DWORD dwDirection,
IEnumFORMATETC **ppEnumFormatEtc)
{
DWORD count;
FORMATETC *formats;
TRACE("(%p, %u, %p)\n", dataObject, dwDirection, ppEnumFormatEtc);
if (dwDirection != DATADIR_GET)
{
FIXME("only the get direction is implemented\n");
return E_NOTIMPL;
}
count = list_count(&xdndData);
formats = HeapAlloc(GetProcessHeap(), 0, count * sizeof(FORMATETC));
if (formats)
{
XDNDDATA *current;
DWORD i = 0;
HRESULT hr;
LIST_FOR_EACH_ENTRY(current, &xdndData, XDNDDATA, entry)
{
formats[i].cfFormat = current->cf_win;
formats[i].ptd = NULL;
formats[i].dwAspect = DVASPECT_CONTENT;
formats[i].lindex = -1;
formats[i].tymed = TYMED_HGLOBAL;
i++;
}
hr = SHCreateStdEnumFmtEtc(count, formats, ppEnumFormatEtc);
HeapFree(GetProcessHeap(), 0, formats);
return hr;
}
else
return E_OUTOFMEMORY;
}
static HRESULT WINAPI XDNDDATAOBJECT_DAdvise(IDataObject *dataObject,
FORMATETC *formatEtc, DWORD advf,
IAdviseSink *adviseSink,
DWORD *pdwConnection)
{
FIXME("(%p, %p, %u, %p, %p): stub\n", dataObject, formatEtc, advf,
adviseSink, pdwConnection);
return OLE_E_ADVISENOTSUPPORTED;
}
static HRESULT WINAPI XDNDDATAOBJECT_DUnadvise(IDataObject *dataObject,
DWORD dwConnection)
{
FIXME("(%p, %u): stub\n", dataObject, dwConnection);
return OLE_E_ADVISENOTSUPPORTED;
}
static HRESULT WINAPI XDNDDATAOBJECT_EnumDAdvise(IDataObject *dataObject,
IEnumSTATDATA **pEnumAdvise)
{
FIXME("(%p, %p): stub\n", dataObject, pEnumAdvise);
return OLE_E_ADVISENOTSUPPORTED;
}
static IDataObjectVtbl xdndDataObjectVtbl =
{
XDNDDATAOBJECT_QueryInterface,
XDNDDATAOBJECT_AddRef,
XDNDDATAOBJECT_Release,
XDNDDATAOBJECT_GetData,
XDNDDATAOBJECT_GetDataHere,
XDNDDATAOBJECT_QueryGetData,
XDNDDATAOBJECT_GetCanonicalFormatEtc,
XDNDDATAOBJECT_SetData,
XDNDDATAOBJECT_EnumFormatEtc,
XDNDDATAOBJECT_DAdvise,
XDNDDATAOBJECT_DUnadvise,
XDNDDATAOBJECT_EnumDAdvise
};
static IDataObject XDNDDataObject = { &xdndDataObjectVtbl };