Implemented CoReleaseMarshalData.
[wine] / dlls / gdi / mfdrv / text.c
1 /*
2  * metafile driver text functions
3  *
4  * Copyright 1993, 1994 Alexandre Julliard
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include <stdarg.h>
22 #include <string.h>
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "mfdrv/metafiledrv.h"
27 #include "wine/debug.h"
28
29 WINE_DEFAULT_DEBUG_CHANNEL(metafile);
30
31
32 /******************************************************************
33  *         MFDRV_MetaExtTextOut
34  */
35 static BOOL MFDRV_MetaExtTextOut( PHYSDEV dev, short x, short y, UINT16 flags,
36                                  const RECT16 *rect, LPCSTR str, short count,
37                                  const INT16 *lpDx)
38 {
39     BOOL ret;
40     DWORD len;
41     METARECORD *mr;
42     BOOL isrect = flags & (ETO_CLIPPED | ETO_OPAQUE);
43
44     len = sizeof(METARECORD) + (((count + 1) >> 1) * 2) + 2 * sizeof(short)
45             + sizeof(UINT16);
46     if (isrect)
47         len += sizeof(RECT16);
48     if (lpDx)
49      len+=count*sizeof(INT16);
50     if (!(mr = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, len)))
51         return FALSE;
52
53     mr->rdSize = len / 2;
54     mr->rdFunction = META_EXTTEXTOUT;
55     *(mr->rdParm) = y;
56     *(mr->rdParm + 1) = x;
57     *(mr->rdParm + 2) = count;
58     *(mr->rdParm + 3) = flags;
59     if (isrect) memcpy(mr->rdParm + 4, rect, sizeof(RECT16));
60     memcpy(mr->rdParm + (isrect ? 8 : 4), str, count);
61     if (lpDx)
62      memcpy(mr->rdParm + (isrect ? 8 : 4) + ((count + 1) >> 1),lpDx,
63       count*sizeof(INT16));
64     ret = MFDRV_WriteRecord( dev, mr, mr->rdSize * 2);
65     HeapFree( GetProcessHeap(), 0, mr);
66     return ret;
67 }
68
69
70
71 /***********************************************************************
72  *           MFDRV_ExtTextOut
73  */
74 BOOL
75 MFDRV_ExtTextOut( PHYSDEV dev, INT x, INT y, UINT flags,
76                   const RECT *lprect, LPCWSTR str, UINT count,
77                   const INT *lpDx, INT breakExtra )
78 {
79     RECT16      rect16;
80     LPINT16     lpdx16 = NULL;
81     BOOL        ret;
82     int         i, j;
83     LPSTR       ascii;
84     DWORD len;
85     CHARSETINFO csi;
86     METAFILEDRV_PDEVICE *physDev = (METAFILEDRV_PDEVICE *)dev;
87     int charset = GetTextCharset(physDev->hdc);
88     UINT cp = CP_ACP;
89
90     if(TranslateCharsetInfo((DWORD*)charset, &csi, TCI_SRCCHARSET))
91         cp = csi.ciACP;
92     else {
93         switch(charset) {
94         case OEM_CHARSET:
95             cp = GetOEMCP();
96             break;
97         case DEFAULT_CHARSET:
98             cp = GetACP();
99             break;
100
101         case VISCII_CHARSET:
102         case TCVN_CHARSET:
103         case KOI8_CHARSET:
104         case ISO3_CHARSET:
105         case ISO4_CHARSET:
106         case ISO10_CHARSET:
107         case CELTIC_CHARSET:
108           /* FIXME: These have no place here, but because x11drv
109              enumerates fonts with these (made up) charsets some apps
110              might use them and then the FIXME below would become
111              annoying.  Now we could pick the intended codepage for
112              each of these, but since it's broken anyway we'll just
113              use CP_ACP and hope it'll go away...
114           */
115             cp = CP_ACP;
116             break;
117
118
119         default:
120             FIXME("Can't find codepage for charset %d\n", charset);
121             break;
122         }
123     }
124
125
126     TRACE("cp == %d\n", cp);
127     len = WideCharToMultiByte(cp, 0, str, count, NULL, 0, NULL, NULL);
128     ascii = HeapAlloc(GetProcessHeap(), 0, len);
129     WideCharToMultiByte(cp, 0, str, count, ascii, len, NULL, NULL);
130     TRACE("mapped %s -> %s\n", debugstr_wn(str, count), debugstr_an(ascii, len));
131
132
133     if (lprect) CONV_RECT32TO16(lprect,&rect16);
134
135     if(lpDx) {
136         lpdx16 = HeapAlloc( GetProcessHeap(), 0, sizeof(INT16)*len );
137         for(i = j = 0; i < len; )
138             if(IsDBCSLeadByteEx(cp, ascii[i])) {
139                 lpdx16[i++] = lpDx[j++];
140                 lpdx16[i++] = 0;
141             } else
142                 lpdx16[i++] = lpDx[j++];
143     }
144
145     ret = MFDRV_MetaExtTextOut(dev,x,y,flags,lprect?&rect16:NULL,ascii,len,lpdx16);
146     HeapFree( GetProcessHeap(), 0, ascii );
147     if (lpdx16) HeapFree( GetProcessHeap(), 0, lpdx16 );
148     return ret;
149 }