mshtml: Added IHTMLDocument2::put_designMode tests.
[wine] / dlls / riched20 / string.c
1 /*
2  * RichEdit - string operations
3  *
4  * Copyright 2004 by Krzysztof Foltman
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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  */
20
21 #include "editor.h"
22
23 WINE_DEFAULT_DEBUG_CHANNEL(richedit);
24
25 static int ME_GetOptimalBuffer(int nLen)
26 {
27   /* FIXME: This seems wasteful for tabs and end of lines strings,
28    *        since they have a small fixed length. */
29   return ((sizeof(WCHAR) * nLen) + 128) & ~63;
30 }
31
32 /* Create a buffer (uninitialized string) of size nMaxChars */
33 static ME_String *ME_MakeStringB(int nMaxChars)
34 {
35   ME_String *s = ALLOC_OBJ(ME_String);
36
37   s->nLen = nMaxChars;
38   s->nBuffer = ME_GetOptimalBuffer(s->nLen + 1);
39   s->szData = ALLOC_N_OBJ(WCHAR, s->nBuffer);
40   s->szData[s->nLen] = 0;
41   return s;
42 }
43
44 ME_String *ME_MakeStringN(LPCWSTR szText, int nMaxChars)
45 {
46   ME_String *s = ME_MakeStringB(nMaxChars);
47   /* Native allows NULL chars */
48   memcpy(s->szData, szText, s->nLen * sizeof(WCHAR));
49   return s;
50 }
51
52 /* Make a string by repeating a char nMaxChars times */
53 ME_String *ME_MakeStringR(WCHAR cRepeat, int nMaxChars)
54 {
55   int i;
56   ME_String *s = ME_MakeStringB(nMaxChars);
57   for (i = 0; i < nMaxChars; i++)
58     s->szData[i] = cRepeat;
59   return s;
60 }
61
62 void ME_DestroyString(ME_String *s)
63 {
64   if (!s) return;
65   FREE_OBJ(s->szData);
66   FREE_OBJ(s);
67 }
68
69 BOOL ME_InsertString(ME_String *s, int ofs, const WCHAR *insert, int len)
70 {
71     DWORD new_len = s->nLen + len + 1;
72     assert( ofs <= s->nLen );
73
74     if( new_len > s->nBuffer )
75     {
76         s->nBuffer = ME_GetOptimalBuffer( new_len );
77         s->szData = heap_realloc( s->szData, s->nBuffer * sizeof(WCHAR) );
78         if (!s->szData) return FALSE;
79     }
80
81     memmove( s->szData + ofs + len, s->szData + ofs, (s->nLen - ofs + 1) * sizeof(WCHAR) );
82     memcpy( s->szData + ofs, insert, len * sizeof(WCHAR) );
83     s->nLen += len;
84
85     return TRUE;
86 }
87
88 BOOL ME_AppendString(ME_String *s, const WCHAR *append, int len)
89 {
90     return ME_InsertString( s, s->nLen, append, len );
91 }
92
93 ME_String *ME_VSplitString(ME_String *orig, int charidx)
94 {
95   ME_String *s;
96
97   /*if (charidx<0) charidx = 0;
98   if (charidx>orig->nLen) charidx = orig->nLen;
99   */
100   assert(charidx>=0);
101   assert(charidx<=orig->nLen);
102
103   s = ME_MakeStringN(orig->szData+charidx, orig->nLen-charidx);
104   orig->nLen = charidx;
105   orig->szData[charidx] = '\0';
106   return s;
107 }
108
109 void ME_StrDeleteV(ME_String *s, int nVChar, int nChars)
110 {
111   int end_ofs = nVChar + nChars;
112
113   assert(nChars >= 0);
114   assert(nVChar >= 0);
115   assert(end_ofs <= s->nLen);
116
117   memmove(s->szData + nVChar, s->szData + end_ofs,
118           (s->nLen - end_ofs + 1) * sizeof(WCHAR));
119   s->nLen -= nChars;
120 }
121
122 static int
123 ME_WordBreakProc(LPWSTR s, INT start, INT len, INT code)
124 {
125   /* FIXME: Native also knows about punctuation */
126   TRACE("s==%s, start==%d, len==%d, code==%d\n",
127         debugstr_wn(s, len), start, len, code);
128   /* convert number of bytes to number of characters. */
129   len /= sizeof(WCHAR);
130   switch (code)
131   {
132     case WB_ISDELIMITER:
133       return ME_IsWSpace(s[start]);
134     case WB_LEFT:
135     case WB_MOVEWORDLEFT:
136       while (start && ME_IsWSpace(s[start - 1]))
137         start--;
138       while (start && !ME_IsWSpace(s[start - 1]))
139         start--;
140       return start;
141     case WB_RIGHT:
142     case WB_MOVEWORDRIGHT:
143       while (start < len && !ME_IsWSpace(s[start]))
144         start++;
145       while (start < len && ME_IsWSpace(s[start]))
146         start++;
147       return start;
148   }
149   return 0;
150 }
151
152
153 int
154 ME_CallWordBreakProc(ME_TextEditor *editor, WCHAR *str, INT len, INT start, INT code)
155 {
156   if (!editor->pfnWordBreak) {
157     return ME_WordBreakProc(str, start, len * sizeof(WCHAR), code);
158   } else if (!editor->bEmulateVersion10) {
159     /* MSDN lied about the third parameter for EditWordBreakProc being the number
160      * of characters, it is actually the number of bytes of the string. */
161     return editor->pfnWordBreak(str, start, len * sizeof(WCHAR), code);
162   } else {
163     int result;
164     int buffer_size = WideCharToMultiByte(CP_ACP, 0, str, len,
165                                           NULL, 0, NULL, NULL);
166     char *buffer = heap_alloc(buffer_size);
167     WideCharToMultiByte(CP_ACP, 0, str, len,
168                         buffer, buffer_size, NULL, NULL);
169     result = editor->pfnWordBreak((WCHAR*)buffer, start, buffer_size, code);
170     heap_free(buffer);
171     return result;
172   }
173 }
174
175 LPWSTR ME_ToUnicode(BOOL unicode, LPVOID psz)
176 {
177   assert(psz != NULL);
178
179   if (unicode)
180     return psz;
181   else {
182     WCHAR *tmp;
183     int nChars = MultiByteToWideChar(CP_ACP, 0, psz, -1, NULL, 0);
184     if((tmp = ALLOC_N_OBJ(WCHAR, nChars)) != NULL)
185       MultiByteToWideChar(CP_ACP, 0, psz, -1, tmp, nChars);
186     return tmp;
187   }
188 }
189
190 void ME_EndToUnicode(BOOL unicode, LPVOID psz)
191 {
192   if (!unicode)
193     FREE_OBJ(psz);
194 }