objects/text.c

   1 /*
   2  * text functions
   3  *
   4  * Copyright 1993, 1994 Alexandre Julliard
   5  *
   6  */
   7
   8 #include <string.h>
   9
  10 #include "windef.h"
  11 #include "wingdi.h"
  12 #include "wine/winuser16.h"
  13 #include "winbase.h"
  14 #include "winerror.h"
  15 #include "dc.h"
  16 #include "gdi.h"
  17 #include "heap.h"
  18 #include "debugtools.h"
  19 #include "winnls.h"
  20
  21 DEFAULT_DEBUG_CHANNEL(text);
  22
  23
  24 /***********************************************************************
  25  *           ExtTextOut16    (GDI.351)
  26  */
  27 BOOL16 WINAPI ExtTextOut16( HDC16 hdc, INT16 x, INT16 y, UINT16 flags,
  28                             const RECT16 *lprect, LPCSTR str, UINT16 count,
  29                             const INT16 *lpDx )
  30 {
  31     BOOL        ret;
  32     int         i;
  33     RECT        rect32;
  34     LPINT       lpdx32 = NULL;
  35
  36     if (lpDx) {
  37         lpdx32 = (LPINT)HeapAlloc( GetProcessHeap(),0, sizeof(INT)*count );
  38         if(lpdx32 == NULL) return FALSE;
  39         for (i=count;i--;) lpdx32[i]=lpDx[i];
  40     }
  41     if (lprect) CONV_RECT16TO32(lprect,&rect32);
  42     ret = ExtTextOutA(hdc,x,y,flags,lprect?&rect32:NULL,str,count,lpdx32);
  43     if (lpdx32) HeapFree( GetProcessHeap(), 0, lpdx32 );
  44     return ret;
  45 }
  46
  47
  48 /***********************************************************************
  49  *           ExtTextOutA    (GDI32.98)
  50  */
  51 BOOL WINAPI ExtTextOutA( HDC hdc, INT x, INT y, UINT flags,
  52                              const RECT *lprect, LPCSTR str, UINT count,
  53                              const INT *lpDx )
  54 {
  55     LPWSTR p;
  56     INT ret;
  57     UINT codepage = CP_ACP; /* FIXME: get codepage of font charset */
  58     UINT wlen;
  59     LPINT lpDxW = NULL;
  60
  61     wlen = MultiByteToWideChar(codepage,0,str,count,NULL,0);
  62     if(lpDx){
  63         int i, j;
  64         i = 0; j = 0;
  65
  66         lpDxW = (LPINT)HeapAlloc( GetProcessHeap(), 0, wlen*sizeof(INT));
  67         while(i < count){
  68             if(IsDBCSLeadByteEx(codepage, str[i])){
  69                 lpDxW[j++] = lpDx[i] + lpDx[i+1];
  70                 i = i + 2;
  71             }
  72             else{
  73                 lpDxW[j++] = lpDx[i];
  74                 i = i + 1;
  75             }
  76         }
  77         lpDx = lpDxW;
  78     }
  79     p = HeapAlloc( GetProcessHeap(), 0, wlen * sizeof(WCHAR) );
  80     wlen = MultiByteToWideChar(codepage,0,str,count,p,wlen);
  81     ret = ExtTextOutW( hdc, x, y, flags, lprect, p, wlen, lpDxW );
  82     if (lpDxW) HeapFree( GetProcessHeap(), 0, lpDxW );
  83     HeapFree( GetProcessHeap(), 0, p );
  84     return ret;
  85 }
  86
  87
  88 /***********************************************************************
  89  *           ExtTextOutW    (GDI32.99)
  90  */
  91 BOOL WINAPI ExtTextOutW( HDC hdc, INT x, INT y, UINT flags,
  92                              const RECT *lprect, LPCWSTR str, UINT count,
  93                              const INT *lpDx )
  94 {
  95     DC * dc = DC_GetDCPtr( hdc );
  96     return dc && dc->funcs->pExtTextOut &&
  97         dc->funcs->pExtTextOut(dc,x,y,flags,lprect,str,count,lpDx);
  98 }
  99
 100
 101 /***********************************************************************
 102  *           TextOut16    (GDI.33)
 103  */
 104 BOOL16 WINAPI TextOut16( HDC16 hdc, INT16 x, INT16 y, LPCSTR str, INT16 count )
 105 {
 106     return ExtTextOut16( hdc, x, y, 0, NULL, str, count, NULL );
 107 }
 108
 109
 110 /***********************************************************************
 111  *           TextOutA    (GDI32.355)
 112  */
 113 BOOL WINAPI TextOutA( HDC hdc, INT x, INT y, LPCSTR str, INT count )
 114 {
 115     return ExtTextOutA( hdc, x, y, 0, NULL, str, count, NULL );
 116 }
 117
 118
 119 /***********************************************************************
 120  *           TextOutW    (GDI32.356)
 121  */
 122 BOOL WINAPI TextOutW(HDC hdc, INT x, INT y, LPCWSTR str, INT count)
 123 {
 124     return ExtTextOutW( hdc, x, y, 0, NULL, str, count, NULL );
 125 }
 126
 127
 128 /***********************************************************************
 129  * GetTextCharset [GDI32.226]  Gets character set for font in DC
 130  *
 131  * NOTES
 132  *    Should it return a UINT32 instead of an INT32?
 133  *    => YES, as GetTextCharsetInfo returns UINT32
 134  *
 135  * RETURNS
 136  *    Success: Character set identifier
 137  *    Failure: DEFAULT_CHARSET
 138  */
 139 UINT WINAPI GetTextCharset(
 140     HDC hdc) /* [in] Handle to device context */
 141 {
 142     /* MSDN docs say this is equivalent */
 143     return GetTextCharsetInfo(hdc, NULL, 0);
 144 }
 145
 146 /***********************************************************************
 147  * GetTextCharset16 [GDI.612]
 148  */
 149 UINT16 WINAPI GetTextCharset16(HDC16 hdc)
 150 {
 151     return (UINT16)GetTextCharset(hdc);
 152 }
 153
 154 /***********************************************************************
 155  * GetTextCharsetInfo [GDI32.381]  Gets character set for font
 156  *
 157  * NOTES
 158  *    Should csi be an LPFONTSIGNATURE instead of an LPCHARSETINFO?
 159  *    Should it return a UINT32 instead of an INT32?
 160  *    => YES and YES, from win32.hlp from Borland
 161  *
 162  * RETURNS
 163  *    Success: Character set identifier
 164  *    Failure: DEFAULT_CHARSET
 165  */
 166 UINT WINAPI GetTextCharsetInfo(
 167     HDC hdc,          /* [in]  Handle to device context */
 168     LPFONTSIGNATURE fs, /* [out] Pointer to struct to receive data */
 169     DWORD flags)        /* [in]  Reserved - must be 0 */
 170 {
 171     HGDIOBJ hFont;
 172     UINT charSet = DEFAULT_CHARSET;
 173     LOGFONTW lf;
 174     CHARSETINFO csinfo;
 175
 176     hFont = GetCurrentObject(hdc, OBJ_FONT);
 177     if (hFont == 0)
 178         return(DEFAULT_CHARSET);
 179     if ( GetObjectW(hFont, sizeof(LOGFONTW), &lf) != 0 )
 180         charSet = lf.lfCharSet;
 181
 182     if (fs != NULL) {
 183       if (!TranslateCharsetInfo((LPDWORD)charSet, &csinfo, TCI_SRCCHARSET))
 184            return  (DEFAULT_CHARSET);
 185       memcpy(fs, &csinfo.fs, sizeof(FONTSIGNATURE));
 186     }
 187     return charSet;
 188 }
 189
 190 /***********************************************************************
 191  * PolyTextOutA [GDI.402]  Draw several Strings
 192  */
 193 BOOL WINAPI PolyTextOutA (
 194                           HDC hdc,               /* Handle to device context */
 195                           PPOLYTEXTA pptxt,      /* array of strings */
 196                           INT cStrings           /* Number of strings in array */
 197                           )
 198 {
 199   FIXME("stub!\n");
 200   SetLastError ( ERROR_CALL_NOT_IMPLEMENTED );
 201   return 0;
 202 }
 203
 204
 205
 206 /***********************************************************************
 207  * PolyTextOutW [GDI.403] Draw several Strings
 208  */
 209 BOOL WINAPI PolyTextOutW (
 210                           HDC hdc,               /* Handle to device context */
 211                           PPOLYTEXTW pptxt,      /* array of strings */
 212                           INT cStrings           /* Number of strings in array */
 213                           )
 214 {
 215   FIXME("stub!\n");
 216   SetLastError ( ERROR_CALL_NOT_IMPLEMENTED );
 217   return 0;
 218 }