Sync with trunk r63887.
[reactos.git] / win32ss / user / winsrv / consrv / frontends / gui / text.c
1 /*
2 * COPYRIGHT: See COPYING in the top level directory
3 * PROJECT: ReactOS Console Server DLL
4 * FILE: win32ss/user/winsrv/consrv/frontends/gui/text.c
5 * PURPOSE: GUI Terminal Front-End - Support for text-mode screen-buffers
6 * PROGRAMMERS: Gé van Geldorp
7 * Johannes Anderwald
8 * Jeffrey Morlan
9 * Hermes Belusca-Maito (hermes.belusca@sfr.fr)
10 */
11
12 /* INCLUDES *******************************************************************/
13
14 #include <consrv.h>
15
16 #define NDEBUG
17 #include <debug.h>
18
19 #include "guiterm.h"
20
21 /* GLOBALS ********************************************************************/
22
23 #define IS_WHITESPACE(c) ((c) == L'\0' || (c) == L' ' || (c) == L'\t')
24
25 /* FUNCTIONS ******************************************************************/
26
27 static COLORREF
28 PaletteRGBFromAttrib(PCONSRV_CONSOLE Console, WORD Attribute)
29 {
30 HPALETTE hPalette = Console->ActiveBuffer->PaletteHandle;
31 PALETTEENTRY pe;
32
33 if (hPalette == NULL) return RGBFromAttrib(Console, Attribute);
34
35 GetPaletteEntries(hPalette, Attribute, 1, &pe);
36 return PALETTERGB(pe.peRed, pe.peGreen, pe.peBlue);
37 }
38
39 static VOID
40 CopyBlock(PTEXTMODE_SCREEN_BUFFER Buffer,
41 PSMALL_RECT Selection)
42 {
43 /*
44 * Pressing the Shift key while copying text, allows us to copy
45 * text without newline characters (inline-text copy mode).
46 */
47 BOOL InlineCopyMode = !!(GetKeyState(VK_SHIFT) & 0x8000);
48
49 HANDLE hData;
50 PCHAR_INFO ptr;
51 LPWSTR data, dstPos;
52 ULONG selWidth, selHeight;
53 ULONG xPos, yPos;
54 ULONG size;
55
56 DPRINT("CopyBlock(%u, %u, %u, %u)\n",
57 Selection->Left, Selection->Top, Selection->Right, Selection->Bottom);
58
59 /* Prevent against empty blocks */
60 if (Selection == NULL) return;
61 if (Selection->Left > Selection->Right || Selection->Top > Selection->Bottom)
62 return;
63
64 selWidth = Selection->Right - Selection->Left + 1;
65 selHeight = Selection->Bottom - Selection->Top + 1;
66
67 /* Basic size for one line... */
68 size = selWidth;
69 /* ... and for the other lines, add newline characters if needed. */
70 if (selHeight > 0)
71 {
72 /*
73 * If we are not in inline-text copy mode, each selected line must
74 * finish with \r\n . Otherwise, the lines will be just concatenated.
75 */
76 size += (selWidth + (!InlineCopyMode ? 2 : 0)) * (selHeight - 1);
77 }
78 else
79 {
80 DPRINT1("This case must never happen, because selHeight is at least == 1\n");
81 }
82
83 size += 1; /* Null-termination */
84 size *= sizeof(WCHAR);
85
86 /* Allocate some memory area to be given to the clipboard, so it will not be freed here */
87 hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_ZEROINIT, size);
88 if (hData == NULL) return;
89
90 data = GlobalLock(hData);
91 if (data == NULL)
92 {
93 GlobalFree(hData);
94 return;
95 }
96
97 DPRINT("Copying %dx%d selection\n", selWidth, selHeight);
98 dstPos = data;
99
100 for (yPos = 0; yPos < selHeight; yPos++)
101 {
102 ULONG length = selWidth;
103
104 ptr = ConioCoordToPointer(Buffer,
105 Selection->Left,
106 Selection->Top + yPos);
107
108 /* Trim whitespace from the right */
109 while (length > 0)
110 {
111 if (IS_WHITESPACE(ptr[length-1].Char.UnicodeChar))
112 --length;
113 else
114 break;
115 }
116
117 /* Copy only the characters, leave attributes alone */
118 for (xPos = 0; xPos < length; xPos++)
119 {
120 /*
121 * Sometimes, applications can put NULL chars into the screen-buffer
122 * (this behaviour is allowed). Detect this and replace by a space.
123 */
124 *dstPos++ = (ptr[xPos].Char.UnicodeChar ? ptr[xPos].Char.UnicodeChar : L' ');
125 }
126
127 /* Add newline characters if we are not in inline-text copy mode */
128 if (!InlineCopyMode)
129 {
130 if (yPos != (selHeight - 1))
131 {
132 wcscat(dstPos, L"\r\n");
133 dstPos += 2;
134 }
135 }
136 }
137
138 DPRINT("Setting data <%S> to clipboard\n", data);
139 GlobalUnlock(hData);
140
141 EmptyClipboard();
142 SetClipboardData(CF_UNICODETEXT, hData);
143 }
144
145 static VOID
146 CopyLines(PTEXTMODE_SCREEN_BUFFER Buffer,
147 PCOORD Begin,
148 PCOORD End)
149 {
150 HANDLE hData;
151 PCHAR_INFO ptr;
152 LPWSTR data, dstPos;
153 ULONG NumChars, size;
154 ULONG xPos, yPos, xBeg, xEnd;
155
156 DPRINT("CopyLines((%u, %u) ; (%u, %u))\n",
157 Begin->X, Begin->Y, End->X, End->Y);
158
159 /* Prevent against empty blocks... */
160 if (Begin == NULL || End == NULL) return;
161 /* ... or malformed blocks */
162 if (Begin->Y > End->Y || (Begin->Y == End->Y && Begin->X > End->X)) return;
163
164 /* Compute the number of characters to copy */
165 if (End->Y == Begin->Y) // top == bottom
166 {
167 NumChars = End->X - Begin->X + 1;
168 }
169 else // if (End->Y > Begin->Y)
170 {
171 NumChars = Buffer->ScreenBufferSize.X - Begin->X;
172
173 if (End->Y >= Begin->Y + 2)
174 {
175 NumChars += (End->Y - Begin->Y - 1) * Buffer->ScreenBufferSize.X;
176 }
177
178 NumChars += End->X + 1;
179 }
180
181 size = (NumChars + 1) * sizeof(WCHAR); /* Null-terminated */
182
183 /* Allocate some memory area to be given to the clipboard, so it will not be freed here */
184 hData = GlobalAlloc(GMEM_MOVEABLE | GMEM_ZEROINIT, size);
185 if (hData == NULL) return;
186
187 data = GlobalLock(hData);
188 if (data == NULL)
189 {
190 GlobalFree(hData);
191 return;
192 }
193
194 DPRINT("Copying %d characters\n", NumChars);
195 dstPos = data;
196
197 /*
198 * We need to walk per-lines, and not just looping in the big screen-buffer
199 * array, because of the way things are stored inside it. The downside is
200 * that it makes the code more complicated.
201 */
202 for (yPos = Begin->Y; (yPos <= End->Y) && (NumChars > 0); yPos++)
203 {
204 xBeg = (yPos == Begin->Y ? Begin->X : 0);
205 xEnd = (yPos == End->Y ? End->X : Buffer->ScreenBufferSize.X - 1);
206
207 ptr = ConioCoordToPointer(Buffer, 0, yPos);
208
209 /* Copy only the characters, leave attributes alone */
210 for (xPos = xBeg; (xPos <= xEnd) && (NumChars-- > 0); xPos++)
211 {
212 /*
213 * Sometimes, applications can put NULL chars into the screen-buffer
214 * (this behaviour is allowed). Detect this and replace by a space.
215 */
216 *dstPos++ = (ptr[xPos].Char.UnicodeChar ? ptr[xPos].Char.UnicodeChar : L' ');
217 }
218 }
219
220 DPRINT("Setting data <%S> to clipboard\n", data);
221 GlobalUnlock(hData);
222
223 EmptyClipboard();
224 SetClipboardData(CF_UNICODETEXT, hData);
225 }
226
227
228 VOID
229 GetSelectionBeginEnd(PCOORD Begin, PCOORD End,
230 PCOORD SelectionAnchor,
231 PSMALL_RECT SmallRect);
232
233 VOID
234 GuiCopyFromTextModeBuffer(PTEXTMODE_SCREEN_BUFFER Buffer,
235 PGUI_CONSOLE_DATA GuiData)
236 {
237 /*
238 * This function supposes that the system clipboard was opened.
239 */
240
241 BOOL LineSelection = GuiData->LineSelection;
242
243 DPRINT("Selection is (%d|%d) to (%d|%d) in %s mode\n",
244 GuiData->Selection.srSelection.Left,
245 GuiData->Selection.srSelection.Top,
246 GuiData->Selection.srSelection.Right,
247 GuiData->Selection.srSelection.Bottom,
248 (LineSelection ? "line" : "block"));
249
250 if (!LineSelection)
251 {
252 CopyBlock(Buffer, &GuiData->Selection.srSelection);
253 }
254 else
255 {
256 COORD Begin, End;
257
258 GetSelectionBeginEnd(&Begin, &End,
259 &GuiData->Selection.dwSelectionAnchor,
260 &GuiData->Selection.srSelection);
261
262 CopyLines(Buffer, &Begin, &End);
263 }
264 }
265
266 VOID
267 GuiPasteToTextModeBuffer(PTEXTMODE_SCREEN_BUFFER Buffer,
268 PGUI_CONSOLE_DATA GuiData)
269 {
270 /*
271 * This function supposes that the system clipboard was opened.
272 */
273
274 PCONSRV_CONSOLE Console = Buffer->Header.Console;
275
276 HANDLE hData;
277 LPWSTR str;
278 WCHAR CurChar = 0;
279
280 USHORT VkKey; // MAKEWORD(low = vkey_code, high = shift_state);
281 INPUT_RECORD er;
282
283 hData = GetClipboardData(CF_UNICODETEXT);
284 if (hData == NULL) return;
285
286 str = GlobalLock(hData);
287 if (str == NULL) return;
288
289 DPRINT("Got data <%S> from clipboard\n", str);
290
291 er.EventType = KEY_EVENT;
292 er.Event.KeyEvent.wRepeatCount = 1;
293 while (*str)
294 {
295 /* \r or \n characters. Go to the line only if we get "\r\n" sequence. */
296 if (CurChar == L'\r' && *str == L'\n')
297 {
298 str++;
299 continue;
300 }
301 CurChar = *str++;
302
303 /* Get the key code (+ shift state) corresponding to the character */
304 VkKey = VkKeyScanW(CurChar);
305 if (VkKey == 0xFFFF)
306 {
307 DPRINT1("VkKeyScanW failed - Should simulate the key...\n");
308 continue;
309 }
310
311 /* Pressing some control keys */
312
313 /* Pressing the character key, with the control keys maintained pressed */
314 er.Event.KeyEvent.bKeyDown = TRUE;
315 er.Event.KeyEvent.wVirtualKeyCode = LOBYTE(VkKey);
316 er.Event.KeyEvent.wVirtualScanCode = MapVirtualKeyW(LOBYTE(VkKey), MAPVK_VK_TO_CHAR);
317 er.Event.KeyEvent.uChar.UnicodeChar = CurChar;
318 er.Event.KeyEvent.dwControlKeyState = 0;
319 if (HIBYTE(VkKey) & 1)
320 er.Event.KeyEvent.dwControlKeyState |= SHIFT_PRESSED;
321 if (HIBYTE(VkKey) & 2)
322 er.Event.KeyEvent.dwControlKeyState |= LEFT_CTRL_PRESSED; // RIGHT_CTRL_PRESSED;
323 if (HIBYTE(VkKey) & 4)
324 er.Event.KeyEvent.dwControlKeyState |= LEFT_ALT_PRESSED; // RIGHT_ALT_PRESSED;
325
326 ConioProcessInputEvent(Console, &er);
327
328 /* Up all the character and control keys */
329 er.Event.KeyEvent.bKeyDown = FALSE;
330 ConioProcessInputEvent(Console, &er);
331 }
332
333 GlobalUnlock(hData);
334 }
335
336 VOID
337 GuiPaintTextModeBuffer(PTEXTMODE_SCREEN_BUFFER Buffer,
338 PGUI_CONSOLE_DATA GuiData,
339 PRECT rcView,
340 PRECT rcFramebuffer)
341 {
342 PCONSRV_CONSOLE Console = Buffer->Header.Console;
343 // ASSERT(Console == GuiData->Console);
344
345 ULONG TopLine, BottomLine, LeftChar, RightChar;
346 ULONG Line, Char, Start;
347 PCHAR_INFO From;
348 PWCHAR To;
349 WORD LastAttribute, Attribute;
350 ULONG CursorX, CursorY, CursorHeight;
351 HBRUSH CursorBrush, OldBrush;
352 HFONT OldFont, NewFont;
353 BOOLEAN IsUnderline;
354
355 if (Buffer->Buffer == NULL) return;
356
357 if (!ConDrvValidateConsoleUnsafe(Console, CONSOLE_RUNNING, TRUE)) return;
358
359 rcFramebuffer->left = Buffer->ViewOrigin.X * GuiData->CharWidth + rcView->left;
360 rcFramebuffer->top = Buffer->ViewOrigin.Y * GuiData->CharHeight + rcView->top;
361 rcFramebuffer->right = Buffer->ViewOrigin.X * GuiData->CharWidth + rcView->right;
362 rcFramebuffer->bottom = Buffer->ViewOrigin.Y * GuiData->CharHeight + rcView->bottom;
363
364 LeftChar = rcFramebuffer->left / GuiData->CharWidth;
365 TopLine = rcFramebuffer->top / GuiData->CharHeight;
366 RightChar = rcFramebuffer->right / GuiData->CharWidth;
367 BottomLine = rcFramebuffer->bottom / GuiData->CharHeight;
368
369 if (RightChar >= Buffer->ScreenBufferSize.X) RightChar = Buffer->ScreenBufferSize.X - 1;
370 if (BottomLine >= Buffer->ScreenBufferSize.Y) BottomLine = Buffer->ScreenBufferSize.Y - 1;
371
372 LastAttribute = ConioCoordToPointer(Buffer, LeftChar, TopLine)->Attributes;
373
374 SetTextColor(GuiData->hMemDC, PaletteRGBFromAttrib(Console, TextAttribFromAttrib(LastAttribute)));
375 SetBkColor(GuiData->hMemDC, PaletteRGBFromAttrib(Console, BkgdAttribFromAttrib(LastAttribute)));
376
377 /* We use the underscore flag as a underline flag */
378 IsUnderline = !!(LastAttribute & COMMON_LVB_UNDERSCORE);
379 /* Select the new font */
380 NewFont = GuiData->Font[IsUnderline ? FONT_BOLD : FONT_NORMAL];
381 OldFont = SelectObject(GuiData->hMemDC, NewFont);
382
383 for (Line = TopLine; Line <= BottomLine; Line++)
384 {
385 WCHAR LineBuffer[80]; // Buffer containing a part or all the line to be displayed
386 From = ConioCoordToPointer(Buffer, LeftChar, Line); // Get the first code of the line
387 Start = LeftChar;
388 To = LineBuffer;
389
390 for (Char = LeftChar; Char <= RightChar; Char++)
391 {
392 /*
393 * We flush the buffer if the new attribute is different
394 * from the current one, or if the buffer is full.
395 */
396 if (From->Attributes != LastAttribute || (Char - Start == sizeof(LineBuffer) / sizeof(WCHAR)))
397 {
398 TextOutW(GuiData->hMemDC,
399 Start * GuiData->CharWidth,
400 Line * GuiData->CharHeight,
401 LineBuffer,
402 Char - Start);
403 Start = Char;
404 To = LineBuffer;
405 Attribute = From->Attributes;
406 if (Attribute != LastAttribute)
407 {
408 LastAttribute = Attribute;
409 SetTextColor(GuiData->hMemDC, PaletteRGBFromAttrib(Console, TextAttribFromAttrib(LastAttribute)));
410 SetBkColor(GuiData->hMemDC, PaletteRGBFromAttrib(Console, BkgdAttribFromAttrib(LastAttribute)));
411
412 /* Change underline state if needed */
413 if (!!(LastAttribute & COMMON_LVB_UNDERSCORE) != IsUnderline)
414 {
415 IsUnderline = !!(LastAttribute & COMMON_LVB_UNDERSCORE);
416 /* Select the new font */
417 NewFont = GuiData->Font[IsUnderline ? FONT_BOLD : FONT_NORMAL];
418 /* OldFont = */ SelectObject(GuiData->hMemDC, NewFont);
419 }
420 }
421 }
422
423 *(To++) = (From++)->Char.UnicodeChar;
424 }
425
426 TextOutW(GuiData->hMemDC,
427 Start * GuiData->CharWidth,
428 Line * GuiData->CharHeight,
429 LineBuffer,
430 RightChar - Start + 1);
431 }
432
433 /* Restore the old font */
434 SelectObject(GuiData->hMemDC, OldFont);
435
436 /*
437 * Draw the caret
438 */
439 if (Buffer->CursorInfo.bVisible &&
440 Buffer->CursorBlinkOn &&
441 !Buffer->ForceCursorOff)
442 {
443 CursorX = Buffer->CursorPosition.X;
444 CursorY = Buffer->CursorPosition.Y;
445 if (LeftChar <= CursorX && CursorX <= RightChar &&
446 TopLine <= CursorY && CursorY <= BottomLine)
447 {
448 CursorHeight = ConioEffectiveCursorSize(Console, GuiData->CharHeight);
449
450 Attribute = ConioCoordToPointer(Buffer, Buffer->CursorPosition.X, Buffer->CursorPosition.Y)->Attributes;
451 if (Attribute == DEFAULT_SCREEN_ATTRIB) Attribute = Buffer->ScreenDefaultAttrib;
452
453 CursorBrush = CreateSolidBrush(PaletteRGBFromAttrib(Console, TextAttribFromAttrib(Attribute)));
454 OldBrush = SelectObject(GuiData->hMemDC, CursorBrush);
455
456 PatBlt(GuiData->hMemDC,
457 CursorX * GuiData->CharWidth,
458 CursorY * GuiData->CharHeight + (GuiData->CharHeight - CursorHeight),
459 GuiData->CharWidth,
460 CursorHeight,
461 PATCOPY);
462
463 SelectObject(GuiData->hMemDC, OldBrush);
464 DeleteObject(CursorBrush);
465 }
466 }
467
468 LeaveCriticalSection(&Console->Lock);
469 }
470
471 /* EOF */