16 #define PUTTY_DO_GLOBALS /* actually _define_ globals */
22 #define IDM_SHOWLOG 0x0010
23 #define IDM_NEWSESS 0x0020
24 #define IDM_DUPSESS 0x0030
25 #define IDM_RECONF 0x0040
26 #define IDM_CLRSB 0x0050
27 #define IDM_RESET 0x0060
28 #define IDM_TEL_AYT 0x0070
29 #define IDM_TEL_BRK 0x0080
30 #define IDM_TEL_SYNCH 0x0090
31 #define IDM_TEL_EC 0x00a0
32 #define IDM_TEL_EL 0x00b0
33 #define IDM_TEL_GA 0x00c0
34 #define IDM_TEL_NOP 0x00d0
35 #define IDM_TEL_ABORT 0x00e0
36 #define IDM_TEL_AO 0x00f0
37 #define IDM_TEL_IP 0x0100
38 #define IDM_TEL_SUSP 0x0110
39 #define IDM_TEL_EOR 0x0120
40 #define IDM_TEL_EOF 0x0130
41 #define IDM_ABOUT 0x0140
42 #define IDM_SAVEDSESS 0x0150
43 #define IDM_COPYALL 0x0160
45 #define IDM_SAVED_MIN 0x1000
46 #define IDM_SAVED_MAX 0x2000
48 #define WM_IGNORE_SIZE (WM_XUSER + 1)
49 #define WM_IGNORE_CLIP (WM_XUSER + 2)
51 /* Needed for Chinese support and apparently not always defined. */
53 #define VK_PROCESSKEY 0xE5
56 static LRESULT CALLBACK
WndProc (HWND
, UINT
, WPARAM
, LPARAM
);
57 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
, unsigned char *output
);
58 static void cfgtopalette(void);
59 static void init_palette(void);
60 static void init_fonts(int);
62 static int extra_width
, extra_height
;
64 static int pending_netevent
= 0;
65 static WPARAM pend_netevent_wParam
= 0;
66 static LPARAM pend_netevent_lParam
= 0;
67 static void enact_pending_netevent(void);
69 static time_t last_movement
= 0;
73 #define FONT_UNDERLINE 2
74 #define FONT_BOLDUND 3
76 #define FONT_OEMBOLD 5
77 #define FONT_OEMBOLDUND 6
79 static HFONT fonts
[8];
80 static int font_needs_hand_underlining
;
82 BOLD_COLOURS
, BOLD_SHADOW
, BOLD_FONT
90 static COLORREF colours
[NCOLOURS
];
92 static LPLOGPALETTE logpal
;
93 static RGBTRIPLE defpal
[NCOLOURS
];
97 static HBITMAP caretbm
;
99 static int dbltime
, lasttime
, lastact
;
100 static Mouse_Button lastbtn
;
102 static char *window_name
, *icon_name
;
104 static Ldisc
*real_ldisc
;
106 static int compose_state
= 0;
108 void begin_session(void) {
112 int WINAPI
WinMain(HINSTANCE inst
, HINSTANCE prev
, LPSTR cmdline
, int show
) {
113 static char appname
[] = "PuTTY";
118 int guess_width
, guess_height
;
121 flags
= FLAG_VERBOSE
| FLAG_INTERACTIVE
;
123 winsock_ver
= MAKEWORD(1, 1);
124 if (WSAStartup(winsock_ver
, &wsadata
)) {
125 MessageBox(NULL
, "Unable to initialise WinSock", "WinSock Error",
126 MB_OK
| MB_ICONEXCLAMATION
);
129 if (LOBYTE(wsadata
.wVersion
) != 1 || HIBYTE(wsadata
.wVersion
) != 1) {
130 MessageBox(NULL
, "WinSock version is incompatible with 1.1",
131 "WinSock Error", MB_OK
| MB_ICONEXCLAMATION
);
135 /* WISHLIST: maybe allow config tweaking even if winsock not present? */
138 InitCommonControls();
140 /* Ensure a Maximize setting in Explorer doesn't maximise the
145 * Process the command line.
150 default_protocol
= DEFAULT_PROTOCOL
;
151 default_port
= DEFAULT_PORT
;
153 do_defaults(NULL
, &cfg
);
156 while (*p
&& isspace(*p
)) p
++;
159 * Process command line options first. Yes, this can be
160 * done better, and it will be as soon as I have the
164 char *q
= p
+ strcspn(p
, " \t");
167 tolower(p
[0]) == 's' &&
168 tolower(p
[1]) == 's' &&
169 tolower(p
[2]) == 'h') {
170 default_protocol
= cfg
.protocol
= PROT_SSH
;
171 default_port
= cfg
.port
= 22;
172 } else if (q
== p
+ 3 &&
173 tolower(p
[0]) == 'l' &&
174 tolower(p
[1]) == 'o' &&
175 tolower(p
[2]) == 'g') {
176 logfile
= "putty.log";
177 } else if (q
== p
+ 7 &&
178 tolower(p
[0]) == 'c' &&
179 tolower(p
[1]) == 'l' &&
180 tolower(p
[2]) == 'e' &&
181 tolower(p
[3]) == 'a' &&
182 tolower(p
[4]) == 'n' &&
183 tolower(p
[5]) == 'u' &&
184 tolower(p
[6]) == 'p') {
186 * `putty -cleanup'. Remove all registry entries
187 * associated with PuTTY, and also find and delete
188 * the random seed file.
191 "This procedure will remove ALL Registry\n"
192 "entries associated with PuTTY, and will\n"
193 "also remove the PuTTY random seed file.\n"
195 "THIS PROCESS WILL DESTROY YOUR SAVED\n"
196 "SESSIONS. Are you really sure you want\n"
199 MB_YESNO
| MB_ICONWARNING
) == IDYES
) {
204 p
= q
+ strspn(q
, " \t");
208 * An initial @ means to activate a saved session.
212 while (i
> 1 && isspace(p
[i
-1]))
215 do_defaults (p
+1, &cfg
);
216 if (!*cfg
.host
&& !do_config()) {
220 } else if (*p
== '&') {
222 * An initial & means we've been given a command line
223 * containing the hex value of a HANDLE for a file
224 * mapping object, which we must then extract as a
229 if (sscanf(p
+1, "%p", &filemap
) == 1 &&
230 (cp
= MapViewOfFile(filemap
, FILE_MAP_READ
,
231 0, 0, sizeof(Config
))) != NULL
) {
234 CloseHandle(filemap
);
235 } else if (!do_config()) {
242 * If the hostname starts with "telnet:", set the
243 * protocol to Telnet and process the string as a
246 if (!strncmp(q
, "telnet:", 7)) {
250 if (q
[0] == '/' && q
[1] == '/')
252 cfg
.protocol
= PROT_TELNET
;
254 while (*p
&& *p
!= ':' && *p
!= '/') p
++;
262 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
263 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
265 while (*p
&& !isspace(*p
)) p
++;
268 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
269 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
270 while (*p
&& isspace(*p
)) p
++;
283 /* See if host is of the form user@host */
284 if (cfg
.host
[0] != '\0') {
285 char *atsign
= strchr(cfg
.host
, '@');
286 /* Make sure we're not overflowing the user field */
288 if (atsign
-cfg
.host
< sizeof cfg
.username
) {
289 strncpy (cfg
.username
, cfg
.host
, atsign
-cfg
.host
);
290 cfg
.username
[atsign
-cfg
.host
] = '\0';
292 memmove(cfg
.host
, atsign
+1, 1+strlen(atsign
+1));
298 * Select protocol. This is farmed out into a table in a
299 * separate file to enable an ssh-free variant.
304 for (i
= 0; backends
[i
].backend
!= NULL
; i
++)
305 if (backends
[i
].protocol
== cfg
.protocol
) {
306 back
= backends
[i
].backend
;
310 MessageBox(NULL
, "Unsupported protocol number found",
311 "PuTTY Internal Error", MB_OK
| MB_ICONEXCLAMATION
);
317 /* Check for invalid Port number (i.e. zero) */
319 MessageBox(NULL
, "Invalid Port Number",
320 "PuTTY Internal Error", MB_OK
|MB_ICONEXCLAMATION
);
325 real_ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
326 /* To start with, we use the simple line discipline, so we can
327 * type passwords etc without fear of them being echoed... */
328 ldisc
= &ldisc_simple
;
332 wndclass
.lpfnWndProc
= WndProc
;
333 wndclass
.cbClsExtra
= 0;
334 wndclass
.cbWndExtra
= 0;
335 wndclass
.hInstance
= inst
;
336 wndclass
.hIcon
= LoadIcon (inst
,
337 MAKEINTRESOURCE(IDI_MAINICON
));
338 wndclass
.hCursor
= LoadCursor (NULL
, IDC_IBEAM
);
339 wndclass
.hbrBackground
= GetStockObject (BLACK_BRUSH
);
340 wndclass
.lpszMenuName
= NULL
;
341 wndclass
.lpszClassName
= appname
;
343 RegisterClass (&wndclass
);
348 savelines
= cfg
.savelines
;
354 * Guess some defaults for the window size. This all gets
355 * updated later, so we don't really care too much. However, we
356 * do want the font width/height guesses to correspond to a
357 * large font rather than a small one...
364 term_size (cfg
.height
, cfg
.width
, cfg
.savelines
);
365 guess_width
= extra_width
+ font_width
* cols
;
366 guess_height
= extra_height
+ font_height
* rows
;
369 HWND w
= GetDesktopWindow();
370 GetWindowRect (w
, &r
);
371 if (guess_width
> r
.right
- r
.left
)
372 guess_width
= r
.right
- r
.left
;
373 if (guess_height
> r
.bottom
- r
.top
)
374 guess_height
= r
.bottom
- r
.top
;
378 int winmode
= WS_OVERLAPPEDWINDOW
|WS_VSCROLL
;
380 if (!cfg
.scrollbar
) winmode
&= ~(WS_VSCROLL
);
381 if (cfg
.locksize
) winmode
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
382 if (cfg
.alwaysontop
) exwinmode
= WS_EX_TOPMOST
;
383 hwnd
= CreateWindowEx (exwinmode
, appname
, appname
,
384 winmode
, CW_USEDEFAULT
, CW_USEDEFAULT
,
385 guess_width
, guess_height
,
386 NULL
, NULL
, inst
, NULL
);
390 * Initialise the fonts, simultaneously correcting the guesses
391 * for font_{width,height}.
393 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
398 * Correct the guesses for extra_{width,height}.
402 GetWindowRect (hwnd
, &wr
);
403 GetClientRect (hwnd
, &cr
);
404 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
405 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
409 * Resize the window, now we know what size we _really_ want it
412 guess_width
= extra_width
+ font_width
* cols
;
413 guess_height
= extra_height
+ font_height
* rows
;
414 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
415 SetWindowPos (hwnd
, NULL
, 0, 0, guess_width
, guess_height
,
416 SWP_NOMOVE
| SWP_NOREDRAW
| SWP_NOZORDER
);
419 * Set up a caret bitmap, with no content.
423 int size
= (font_width
+15)/16 * 2 * font_height
;
424 bits
= smalloc(size
);
425 memset(bits
, 0, size
);
426 caretbm
= CreateBitmap(font_width
, font_height
, 1, 1, bits
);
429 CreateCaret(hwnd
, caretbm
, font_width
, font_height
);
432 * Initialise the scroll bar.
437 si
.cbSize
= sizeof(si
);
438 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
443 SetScrollInfo (hwnd
, SB_VERT
, &si
, FALSE
);
447 * Start up the telnet connection.
451 char msg
[1024], *title
;
454 error
= back
->init (cfg
.host
, cfg
.port
, &realhost
);
456 sprintf(msg
, "Unable to open connection:\n%s", error
);
457 MessageBox(NULL
, msg
, "PuTTY Error", MB_ICONERROR
| MB_OK
);
460 window_name
= icon_name
= NULL
;
462 title
= cfg
.wintitle
;
464 sprintf(msg
, "%s - PuTTY", realhost
);
471 session_closed
= FALSE
;
474 * Set up the input and output buffers.
477 outbuf_reap
= outbuf_head
= 0;
480 * Prepare the mouse handler.
482 lastact
= MA_NOTHING
;
483 lastbtn
= MB_NOTHING
;
484 dbltime
= GetDoubleClickTime();
487 * Set up the session-control options on the system menu.
490 HMENU m
= GetSystemMenu (hwnd
, FALSE
);
494 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
495 if (cfg
.protocol
== PROT_TELNET
) {
497 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AYT
, "Are You There");
498 AppendMenu (p
, MF_ENABLED
, IDM_TEL_BRK
, "Break");
499 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SYNCH
, "Synch");
500 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
501 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EC
, "Erase Character");
502 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EL
, "Erase Line");
503 AppendMenu (p
, MF_ENABLED
, IDM_TEL_GA
, "Go Ahead");
504 AppendMenu (p
, MF_ENABLED
, IDM_TEL_NOP
, "No Operation");
505 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
506 AppendMenu (p
, MF_ENABLED
, IDM_TEL_ABORT
, "Abort Process");
507 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AO
, "Abort Output");
508 AppendMenu (p
, MF_ENABLED
, IDM_TEL_IP
, "Interrupt Process");
509 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SUSP
, "Suspend Process");
510 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
511 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOR
, "End Of Record");
512 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOF
, "End Of File");
513 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) p
, "Telnet Command");
514 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
516 AppendMenu (m
, MF_ENABLED
, IDM_SHOWLOG
, "&Event Log");
517 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
518 AppendMenu (m
, MF_ENABLED
, IDM_NEWSESS
, "Ne&w Session...");
519 AppendMenu (m
, MF_ENABLED
, IDM_DUPSESS
, "&Duplicate Session");
522 for (i
= 1 ; i
< ((nsessions
< 256) ? nsessions
: 256) ; i
++)
523 AppendMenu (s
, MF_ENABLED
, IDM_SAVED_MIN
+ (16 * i
) , sessions
[i
]);
524 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) s
, "Sa&ved Sessions");
525 AppendMenu (m
, MF_ENABLED
, IDM_RECONF
, "Chan&ge Settings...");
526 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
527 AppendMenu (m
, MF_ENABLED
, IDM_COPYALL
, "C&opy All to Clipboard");
528 AppendMenu (m
, MF_ENABLED
, IDM_CLRSB
, "C&lear Scrollback");
529 AppendMenu (m
, MF_ENABLED
, IDM_RESET
, "Rese&t Terminal");
530 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
531 AppendMenu (m
, MF_ENABLED
, IDM_ABOUT
, "&About PuTTY");
535 * Finally show the window!
537 ShowWindow (hwnd
, show
);
540 * Set the palette up.
546 has_focus
= (GetForegroundWindow() == hwnd
);
549 if (GetMessage (&msg
, NULL
, 0, 0) == 1)
551 int timer_id
= 0, long_timer
= 0;
553 while (msg
.message
!= WM_QUIT
) {
554 /* Sometimes DispatchMessage calls routines that use their own
555 * GetMessage loop, setup this timer so we get some control back.
557 * Also call term_update() from the timer so that if the host
558 * is sending data flat out we still do redraws.
560 if(timer_id
&& long_timer
) {
561 KillTimer(hwnd
, timer_id
);
562 long_timer
= timer_id
= 0;
565 timer_id
= SetTimer(hwnd
, 1, 20, NULL
);
566 DispatchMessage (&msg
);
568 /* Make sure we blink everything that needs it. */
571 /* Send the paste buffer if there's anything to send */
574 /* If there's nothing new in the queue then we can do everything
575 * we've delayed, reading the socket, writing, and repainting
578 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
581 if (pending_netevent
) {
582 enact_pending_netevent();
584 /* Force the cursor blink on */
587 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
591 /* Okay there is now nothing to do so we make sure the screen is
592 * completely up to date then tell windows to call us in a little
596 KillTimer(hwnd
, timer_id
);
605 timer_id
= SetTimer(hwnd
, 1, 59500, NULL
);
607 timer_id
= SetTimer(hwnd
, 1, 100, NULL
);
610 /* There's no point rescanning everything in the message queue
611 * so we do an apperently unneccesary wait here
614 if (GetMessage (&msg
, NULL
, 0, 0) != 1)
626 DeleteObject(fonts
[i
]);
633 if (cfg
.protocol
== PROT_SSH
) {
644 * Set up, or shut down, an AsyncSelect. Called from winnet.c.
646 char *do_select(SOCKET skt
, int startup
) {
650 events
= FD_READ
| FD_WRITE
| FD_OOB
| FD_CLOSE
;
655 return "do_select(): internal error (hwnd==NULL)";
656 if (WSAAsyncSelect (skt
, hwnd
, msg
, events
) == SOCKET_ERROR
) {
657 switch (WSAGetLastError()) {
658 case WSAENETDOWN
: return "Network is down";
659 default: return "WSAAsyncSelect(): unknown error";
666 * Print a message box and close the connection.
668 void connection_fatal(char *fmt
, ...) {
673 vsprintf(stuff
, fmt
, ap
);
675 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
676 if (cfg
.close_on_exit
)
679 session_closed
= TRUE
;
680 SetWindowText (hwnd
, "PuTTY (inactive)");
685 * Actually do the job requested by a WM_NETEVENT
687 static void enact_pending_netevent(void) {
688 static int reentering
= 0;
689 extern int select_result(WPARAM
, LPARAM
);
693 return; /* don't unpend the pending */
695 pending_netevent
= FALSE
;
698 ret
= select_result (pend_netevent_wParam
, pend_netevent_lParam
);
702 if (cfg
.close_on_exit
)
705 session_closed
= TRUE
;
706 MessageBox(hwnd
, "Connection closed by remote host",
707 "PuTTY", MB_OK
| MB_ICONINFORMATION
);
708 SetWindowText (hwnd
, "PuTTY (inactive)");
714 * Copy the colour palette from the configuration data into defpal.
715 * This is non-trivial because the colour indices are different.
717 static void cfgtopalette(void) {
719 static const int ww
[] = {
720 6, 7, 8, 9, 10, 11, 12, 13,
721 14, 15, 16, 17, 18, 19, 20, 21,
722 0, 1, 2, 3, 4, 4, 5, 5
725 for (i
=0; i
<24; i
++) {
727 defpal
[i
].rgbtRed
= cfg
.colours
[w
][0];
728 defpal
[i
].rgbtGreen
= cfg
.colours
[w
][1];
729 defpal
[i
].rgbtBlue
= cfg
.colours
[w
][2];
734 * Set up the colour palette.
736 static void init_palette(void) {
738 HDC hdc
= GetDC (hwnd
);
740 if (cfg
.try_palette
&&
741 GetDeviceCaps (hdc
, RASTERCAPS
) & RC_PALETTE
) {
742 logpal
= smalloc(sizeof(*logpal
)
743 - sizeof(logpal
->palPalEntry
)
744 + NCOLOURS
* sizeof(PALETTEENTRY
));
745 logpal
->palVersion
= 0x300;
746 logpal
->palNumEntries
= NCOLOURS
;
747 for (i
= 0; i
< NCOLOURS
; i
++) {
748 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
749 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
750 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
751 logpal
->palPalEntry
[i
].peFlags
= PC_NOCOLLAPSE
;
753 pal
= CreatePalette (logpal
);
755 SelectPalette (hdc
, pal
, FALSE
);
756 RealizePalette (hdc
);
757 SelectPalette (hdc
, GetStockObject (DEFAULT_PALETTE
),
761 ReleaseDC (hwnd
, hdc
);
764 for (i
=0; i
<NCOLOURS
; i
++)
765 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
769 for(i
=0; i
<NCOLOURS
; i
++)
770 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
776 * Initialise all the fonts we will need. There may be as many as
777 * eight or as few as one. We also:
779 * - check the font width and height, correcting our guesses if
782 * - verify that the bold font is the same width as the ordinary
783 * one, and engage shadow bolding if not.
785 * - verify that the underlined font is the same width as the
786 * ordinary one (manual underlining by means of line drawing can
787 * be done in a pinch).
789 static void init_fonts(int pick_width
) {
794 int fw_dontcare
, fw_bold
;
803 if (cfg
.fontisbold
) {
804 fw_dontcare
= FW_BOLD
;
807 fw_dontcare
= FW_DONTCARE
;
813 font_height
= cfg
.fontheight
;
814 font_width
= pick_width
;
817 fonts[i] = CreateFont (font_height, font_width, 0, 0, w, FALSE, u, FALSE, \
818 c, OUT_DEFAULT_PRECIS, \
819 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, \
820 FIXED_PITCH | FF_DONTCARE, cfg.font)
822 if (cfg
.vtmode
!= VT_OEMONLY
) {
823 f(FONT_NORMAL
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
825 SelectObject (hdc
, fonts
[FONT_NORMAL
]);
826 GetTextMetrics(hdc
, &tm
);
827 font_height
= tm
.tmHeight
;
828 font_width
= tm
.tmAveCharWidth
;
830 f(FONT_UNDERLINE
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
833 * Some fonts, e.g. 9-pt Courier, draw their underlines
834 * outside their character cell. We successfully prevent
835 * screen corruption by clipping the text output, but then
836 * we lose the underline completely. Here we try to work
837 * out whether this is such a font, and if it is, we set a
838 * flag that causes underlines to be drawn by hand.
840 * Having tried other more sophisticated approaches (such
841 * as examining the TEXTMETRIC structure or requesting the
842 * height of a string), I think we'll do this the brute
843 * force way: we create a small bitmap, draw an underlined
844 * space on it, and test to see whether any pixels are
845 * foreground-coloured. (Since we expect the underline to
846 * go all the way across the character cell, we only search
847 * down a single column of the bitmap, half way across.)
851 HBITMAP und_bm
, und_oldbm
;
855 und_dc
= CreateCompatibleDC(hdc
);
856 und_bm
= CreateCompatibleBitmap(hdc
, font_width
, font_height
);
857 und_oldbm
= SelectObject(und_dc
, und_bm
);
858 SelectObject(und_dc
, fonts
[FONT_UNDERLINE
]);
859 SetTextAlign(und_dc
, TA_TOP
| TA_LEFT
| TA_NOUPDATECP
);
860 SetTextColor (und_dc
, RGB(255,255,255));
861 SetBkColor (und_dc
, RGB(0,0,0));
862 SetBkMode (und_dc
, OPAQUE
);
863 ExtTextOut (und_dc
, 0, 0, ETO_OPAQUE
, NULL
, " ", 1, NULL
);
865 for (i
= 0; i
< font_height
; i
++) {
866 c
= GetPixel(und_dc
, font_width
/2, i
);
870 SelectObject(und_dc
, und_oldbm
);
871 DeleteObject(und_bm
);
873 font_needs_hand_underlining
= !gotit
;
876 if (bold_mode
== BOLD_FONT
) {
877 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
878 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
881 if (cfg
.vtmode
== VT_OEMANSI
) {
882 f(FONT_OEM
, OEM_CHARSET
, fw_dontcare
, FALSE
);
883 f(FONT_OEMUND
, OEM_CHARSET
, fw_dontcare
, TRUE
);
885 if (bold_mode
== BOLD_FONT
) {
886 f(FONT_OEMBOLD
, OEM_CHARSET
, fw_bold
, FALSE
);
887 f(FONT_OEMBOLDUND
, OEM_CHARSET
, fw_bold
, TRUE
);
893 f(FONT_OEM
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
895 SelectObject (hdc
, fonts
[FONT_OEM
]);
896 GetTextMetrics(hdc
, &tm
);
897 font_height
= tm
.tmHeight
;
898 font_width
= tm
.tmAveCharWidth
;
900 f(FONT_OEMUND
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
902 if (bold_mode
== BOLD_FONT
) {
903 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
904 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
909 descent
= tm
.tmAscent
+ 1;
910 if (descent
>= font_height
)
911 descent
= font_height
- 1;
912 firstchar
= tm
.tmFirstChar
;
914 for (i
=0; i
<8; i
++) {
916 if (SelectObject (hdc
, fonts
[i
]) &&
917 GetTextMetrics(hdc
, &tm
) )
918 fsize
[i
] = tm
.tmAveCharWidth
+ 256 * tm
.tmHeight
;
924 ReleaseDC (hwnd
, hdc
);
926 /* ... This is wrong in OEM only mode */
927 if (fsize
[FONT_UNDERLINE
] != fsize
[FONT_NORMAL
] ||
928 (bold_mode
== BOLD_FONT
&&
929 fsize
[FONT_BOLDUND
] != fsize
[FONT_BOLD
])) {
931 DeleteObject (fonts
[FONT_UNDERLINE
]);
932 if (bold_mode
== BOLD_FONT
)
933 DeleteObject (fonts
[FONT_BOLDUND
]);
936 if (bold_mode
== BOLD_FONT
&&
937 fsize
[FONT_BOLD
] != fsize
[FONT_NORMAL
]) {
938 bold_mode
= BOLD_SHADOW
;
939 DeleteObject (fonts
[FONT_BOLD
]);
940 if (und_mode
== UND_FONT
)
941 DeleteObject (fonts
[FONT_BOLDUND
]);
945 /* With the fascist font painting it doesn't matter if the linedraw font
946 * isn't exactly the right size anymore so we don't have to check this.
948 if (cfg
.vtmode
== VT_OEMANSI
&& fsize
[FONT_OEM
] != fsize
[FONT_NORMAL
] ) {
949 if( cfg
.fontcharset
== OEM_CHARSET
)
951 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
952 "different sizes. Using OEM-only mode instead",
953 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
954 cfg
.vtmode
= VT_OEMONLY
;
956 else if( firstchar
< ' ' )
958 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
959 "different sizes. Using XTerm mode instead",
960 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
961 cfg
.vtmode
= VT_XWINDOWS
;
965 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
966 "different sizes. Using ISO8859-1 mode instead",
967 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
968 cfg
.vtmode
= VT_POORMAN
;
973 DeleteObject (fonts
[i
]);
979 void request_resize (int w
, int h
, int refont
) {
982 /* If the window is maximized supress resizing attempts */
983 if(IsZoomed(hwnd
)) return;
986 /* Don't do this in OEMANSI, you may get disable messages */
987 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132)
988 && cfg
.vtmode
!= VT_OEMANSI
)
990 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132))
993 /* If font width too big for screen should we shrink the font more ? */
995 font_width
= ((font_width
*cols
+w
/2)/w
);
1002 DeleteObject(fonts
[i
]);
1004 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
1005 und_mode
= UND_FONT
;
1006 init_fonts(font_width
);
1010 static int first_time
= 1;
1016 /* Get the size of the screen */
1017 if (GetClientRect(GetDesktopWindow(),&ss
))
1018 /* first_time = 0 */;
1019 else { first_time
= 2; break; }
1021 /* Make sure the values are sane */
1022 width
= (ss
.right
-ss
.left
-extra_width
) / font_width
;
1023 height
= (ss
.bottom
-ss
.top
-extra_height
) / font_height
;
1025 if (w
>width
) w
=width
;
1026 if (h
>height
) h
=height
;
1032 width
= extra_width
+ font_width
* w
;
1033 height
= extra_height
+ font_height
* h
;
1035 SetWindowPos (hwnd
, NULL
, 0, 0, width
, height
,
1036 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1037 SWP_NOMOVE
| SWP_NOZORDER
);
1040 static void click (Mouse_Button b
, int x
, int y
) {
1041 int thistime
= GetMessageTime();
1043 if (lastbtn
== b
&& thistime
- lasttime
< dbltime
) {
1044 lastact
= (lastact
== MA_CLICK ? MA_2CLK
:
1045 lastact
== MA_2CLK ? MA_3CLK
:
1046 lastact
== MA_3CLK ? MA_CLICK
: MA_NOTHING
);
1051 if (lastact
!= MA_NOTHING
)
1052 term_mouse (b
, lastact
, x
, y
);
1053 lasttime
= thistime
;
1056 static LRESULT CALLBACK
WndProc (HWND hwnd
, UINT message
,
1057 WPARAM wParam
, LPARAM lParam
) {
1059 static int ignore_size
= FALSE
;
1060 static int ignore_clip
= FALSE
;
1061 static int just_reconfigged
= FALSE
;
1062 static int resizing
= FALSE
;
1066 if (pending_netevent
)
1067 enact_pending_netevent();
1074 if (cfg
.ping_interval
> 0)
1078 if (now
-last_movement
> cfg
.ping_interval
* 60 - 10)
1080 back
->special(TS_PING
);
1081 last_movement
= now
;
1088 if (!cfg
.warn_on_close
|| session_closed
||
1089 MessageBox(hwnd
, "Are you sure you want to close this session?",
1090 "PuTTY Exit Confirmation",
1091 MB_ICONWARNING
| MB_OKCANCEL
) == IDOK
)
1092 DestroyWindow(hwnd
);
1095 PostQuitMessage (0);
1098 switch (wParam
& ~0xF) { /* low 4 bits reserved to Windows */
1110 PROCESS_INFORMATION pi
;
1111 HANDLE filemap
= NULL
;
1113 if (wParam
== IDM_DUPSESS
) {
1115 * Allocate a file-mapping memory chunk for the
1118 SECURITY_ATTRIBUTES sa
;
1121 sa
.nLength
= sizeof(sa
);
1122 sa
.lpSecurityDescriptor
= NULL
;
1123 sa
.bInheritHandle
= TRUE
;
1124 filemap
= CreateFileMapping((HANDLE
)0xFFFFFFFF,
1131 p
= (Config
*)MapViewOfFile(filemap
,
1133 0, 0, sizeof(Config
));
1135 *p
= cfg
; /* structure copy */
1139 sprintf(c
, "putty &%p", filemap
);
1141 } else if (wParam
== IDM_SAVEDSESS
) {
1142 char *session
= sessions
[(lParam
- IDM_SAVED_MIN
) / 16];
1143 cl
= smalloc(16 + strlen(session
)); /* 8, but play safe */
1145 cl
= NULL
; /* not a very important failure mode */
1147 sprintf(cl
, "putty @%s", session
);
1153 GetModuleFileName (NULL
, b
, sizeof(b
)-1);
1155 si
.lpReserved
= NULL
;
1156 si
.lpDesktop
= NULL
;
1160 si
.lpReserved2
= NULL
;
1161 CreateProcess (b
, cl
, NULL
, NULL
, TRUE
,
1162 NORMAL_PRIORITY_CLASS
, NULL
, NULL
, &si
, &pi
);
1165 CloseHandle(filemap
);
1172 int prev_alwaysontop
= cfg
.alwaysontop
;
1173 int need_setwpos
= FALSE
;
1176 if (!do_reconfig(hwnd
))
1178 just_reconfigged
= TRUE
;
1183 DeleteObject(fonts
[i
]);
1185 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
1186 und_mode
= UND_FONT
;
1190 * Telnet will change local echo -> remote if the
1193 if (cfg
.protocol
!= PROT_TELNET
)
1194 ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
1202 /* Enable or disable the scroll bar, etc */
1204 LONG nflg
, flag
= GetWindowLong(hwnd
, GWL_STYLE
);
1205 LONG nexflag
, exflag
= GetWindowLong(hwnd
, GWL_EXSTYLE
);
1208 if (cfg
.alwaysontop
!= prev_alwaysontop
) {
1209 if (cfg
.alwaysontop
) {
1210 nexflag
= WS_EX_TOPMOST
;
1211 SetWindowPos(hwnd
, HWND_TOPMOST
, 0, 0, 0, 0,
1212 SWP_NOMOVE
| SWP_NOSIZE
);
1215 SetWindowPos(hwnd
, HWND_NOTOPMOST
, 0, 0, 0, 0,
1216 SWP_NOMOVE
| SWP_NOSIZE
);
1221 if (cfg
.scrollbar
) nflg
|= WS_VSCROLL
;
1222 else nflg
&= ~WS_VSCROLL
;
1224 nflg
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1226 nflg
|= (WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1228 if (nflg
!= flag
|| nexflag
!= exflag
)
1233 SetWindowLong(hwnd
, GWL_STYLE
, nflg
);
1234 if (nexflag
!= exflag
)
1235 SetWindowLong(hwnd
, GWL_EXSTYLE
, nexflag
);
1237 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1239 SetWindowPos(hwnd
, NULL
, 0,0,0,0,
1240 SWP_NOACTIVATE
|SWP_NOCOPYBITS
|
1241 SWP_NOMOVE
|SWP_NOSIZE
|SWP_NOZORDER
|
1244 GetWindowRect (hwnd
, &wr
);
1245 GetClientRect (hwnd
, &cr
);
1246 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
1247 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
1251 if (cfg
.height
!= rows
||
1252 cfg
.width
!= cols
||
1253 cfg
.savelines
!= savelines
)
1254 need_setwpos
= TRUE
;
1255 term_size(cfg
.height
, cfg
.width
, cfg
.savelines
);
1256 InvalidateRect(hwnd
, NULL
, TRUE
);
1259 SetWindowPos (hwnd
, NULL
, 0, 0,
1260 extra_width
+ font_width
* cfg
.width
,
1261 extra_height
+ font_height
* cfg
.height
,
1262 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1263 SWP_NOMOVE
| SWP_NOZORDER
);
1265 if (IsIconic(hwnd
)) {
1266 SetWindowText (hwnd
,
1267 cfg
.win_name_always ? window_name
: icon_name
);
1280 case IDM_TEL_AYT
: back
->special (TS_AYT
); break;
1281 case IDM_TEL_BRK
: back
->special (TS_BRK
); break;
1282 case IDM_TEL_SYNCH
: back
->special (TS_SYNCH
); break;
1283 case IDM_TEL_EC
: back
->special (TS_EC
); break;
1284 case IDM_TEL_EL
: back
->special (TS_EL
); break;
1285 case IDM_TEL_GA
: back
->special (TS_GA
); break;
1286 case IDM_TEL_NOP
: back
->special (TS_NOP
); break;
1287 case IDM_TEL_ABORT
: back
->special (TS_ABORT
); break;
1288 case IDM_TEL_AO
: back
->special (TS_AO
); break;
1289 case IDM_TEL_IP
: back
->special (TS_IP
); break;
1290 case IDM_TEL_SUSP
: back
->special (TS_SUSP
); break;
1291 case IDM_TEL_EOR
: back
->special (TS_EOR
); break;
1292 case IDM_TEL_EOF
: back
->special (TS_EOF
); break;
1297 if (wParam
>= IDM_SAVED_MIN
&& wParam
<= IDM_SAVED_MAX
) {
1298 SendMessage(hwnd
, WM_SYSCOMMAND
, IDM_SAVEDSESS
, wParam
);
1303 #define X_POS(l) ((int)(short)LOWORD(l))
1304 #define Y_POS(l) ((int)(short)HIWORD(l))
1306 #define TO_CHR_X(x) (((x)<0 ? (x)-font_width+1 : (x)) / font_width)
1307 #define TO_CHR_Y(y) (((y)<0 ? (y)-font_height+1: (y)) / font_height)
1309 case WM_LBUTTONDOWN
:
1310 click (MB_SELECT
, TO_CHR_X(X_POS(lParam
)),
1311 TO_CHR_Y(Y_POS(lParam
)));
1315 term_mouse (MB_SELECT
, MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1316 TO_CHR_Y(Y_POS(lParam
)));
1319 case WM_MBUTTONDOWN
:
1321 click (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1322 TO_CHR_X(X_POS(lParam
)),
1323 TO_CHR_Y(Y_POS(lParam
)));
1326 term_mouse (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1327 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1328 TO_CHR_Y(Y_POS(lParam
)));
1331 case WM_RBUTTONDOWN
:
1333 click (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1334 TO_CHR_X(X_POS(lParam
)),
1335 TO_CHR_Y(Y_POS(lParam
)));
1338 term_mouse (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1339 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1340 TO_CHR_Y(Y_POS(lParam
)));
1345 * Add the mouse position and message time to the random
1348 noise_ultralight(lParam
);
1350 if (wParam
& (MK_LBUTTON
| MK_MBUTTON
| MK_RBUTTON
)) {
1352 if (wParam
& MK_LBUTTON
)
1354 else if (wParam
& MK_MBUTTON
)
1355 b
= cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
;
1357 b
= cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
;
1358 term_mouse (b
, MA_DRAG
, TO_CHR_X(X_POS(lParam
)),
1359 TO_CHR_Y(Y_POS(lParam
)));
1362 case WM_IGNORE_CLIP
:
1363 ignore_clip
= wParam
; /* don't panic on DESTROYCLIPBOARD */
1365 case WM_DESTROYCLIPBOARD
:
1368 ignore_clip
= FALSE
;
1374 hdc
= BeginPaint (hwnd
, &p
);
1376 SelectPalette (hdc
, pal
, TRUE
);
1377 RealizePalette (hdc
);
1379 term_paint (hdc
, p
.rcPaint
.left
, p
.rcPaint
.top
,
1380 p
.rcPaint
.right
, p
.rcPaint
.bottom
);
1381 SelectObject (hdc
, GetStockObject(SYSTEM_FONT
));
1382 SelectObject (hdc
, GetStockObject(WHITE_PEN
));
1383 EndPaint (hwnd
, &p
);
1388 /* Notice we can get multiple netevents, FD_READ, FD_WRITE etc
1389 * but the only one that's likely to try to overload us is FD_READ.
1390 * This means buffering just one is fine.
1392 if (pending_netevent
)
1393 enact_pending_netevent();
1395 pending_netevent
= TRUE
;
1396 pend_netevent_wParam
=wParam
;
1397 pend_netevent_lParam
=lParam
;
1398 time(&last_movement
);
1402 CreateCaret(hwnd
, caretbm
, font_width
, font_height
);
1414 case WM_IGNORE_SIZE
:
1415 ignore_size
= TRUE
; /* don't panic on next WM_SIZE msg */
1417 case WM_ENTERSIZEMOVE
:
1421 case WM_EXITSIZEMOVE
:
1428 int width
, height
, w
, h
, ew
, eh
;
1429 LPRECT r
= (LPRECT
)lParam
;
1431 width
= r
->right
- r
->left
- extra_width
;
1432 height
= r
->bottom
- r
->top
- extra_height
;
1433 w
= (width
+ font_width
/2) / font_width
; if (w
< 1) w
= 1;
1434 h
= (height
+ font_height
/2) / font_height
; if (h
< 1) h
= 1;
1435 UpdateSizeTip(hwnd
, w
, h
);
1436 ew
= width
- w
* font_width
;
1437 eh
= height
- h
* font_height
;
1439 if (wParam
== WMSZ_LEFT
||
1440 wParam
== WMSZ_BOTTOMLEFT
||
1441 wParam
== WMSZ_TOPLEFT
)
1447 if (wParam
== WMSZ_TOP
||
1448 wParam
== WMSZ_TOPRIGHT
||
1449 wParam
== WMSZ_TOPLEFT
)
1459 /* break; (never reached) */
1461 if (wParam
== SIZE_MINIMIZED
) {
1462 SetWindowText (hwnd
,
1463 cfg
.win_name_always ? window_name
: icon_name
);
1466 if (wParam
== SIZE_RESTORED
|| wParam
== SIZE_MAXIMIZED
)
1467 SetWindowText (hwnd
, window_name
);
1469 int width
, height
, w
, h
;
1470 #if 0 /* we have fixed this using WM_SIZING now */
1474 width
= LOWORD(lParam
);
1475 height
= HIWORD(lParam
);
1476 w
= width
/ font_width
; if (w
< 1) w
= 1;
1477 h
= height
/ font_height
; if (h
< 1) h
= 1;
1478 #if 0 /* we have fixed this using WM_SIZING now */
1479 ew
= width
- w
* font_width
;
1480 eh
= height
- h
* font_height
;
1481 if (ew
!= 0 || eh
!= 0) {
1483 GetWindowRect (hwnd
, &r
);
1484 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1485 SetWindowPos (hwnd
, NULL
, 0, 0,
1486 r
.right
- r
.left
- ew
, r
.bottom
- r
.top
- eh
,
1487 SWP_NOACTIVATE
| SWP_NOMOVE
| SWP_NOZORDER
);
1490 if (w
!= cols
|| h
!= rows
|| just_reconfigged
) {
1492 term_size (h
, w
, cfg
.savelines
);
1494 * Don't call back->size in mid-resize. (To prevent
1495 * massive numbers of resize events getting sent
1496 * down the connection during an NT opaque drag.)
1500 just_reconfigged
= FALSE
;
1503 ignore_size
= FALSE
;
1506 switch (LOWORD(wParam
)) {
1507 case SB_BOTTOM
: term_scroll(-1, 0); break;
1508 case SB_TOP
: term_scroll(+1, 0); break;
1509 case SB_LINEDOWN
: term_scroll (0, +1); break;
1510 case SB_LINEUP
: term_scroll (0, -1); break;
1511 case SB_PAGEDOWN
: term_scroll (0, +rows
/2); break;
1512 case SB_PAGEUP
: term_scroll (0, -rows
/2); break;
1513 case SB_THUMBPOSITION
: case SB_THUMBTRACK
:
1514 term_scroll (1, HIWORD(wParam
)); break;
1517 case WM_PALETTECHANGED
:
1518 if ((HWND
) wParam
!= hwnd
&& pal
!= NULL
) {
1519 HDC hdc
= get_ctx();
1521 if (RealizePalette (hdc
) > 0)
1527 case WM_QUERYNEWPALETTE
:
1529 HDC hdc
= get_ctx();
1531 if (RealizePalette (hdc
) > 0)
1543 * Add the scan code and keypress timing to the random
1546 noise_ultralight(lParam
);
1549 * We don't do TranslateMessage since it disassociates the
1550 * resulting CHAR message from the KEYDOWN that sparked it,
1551 * which we occasionally don't want. Instead, we process
1552 * KEYDOWN, and call the Win32 translator functions so that
1553 * we get the translations under _our_ control.
1556 unsigned char buf
[20];
1559 if (wParam
==VK_PROCESSKEY
) {
1562 m
.message
= WM_KEYDOWN
;
1564 m
.lParam
= lParam
& 0xdfff;
1565 TranslateMessage(&m
);
1567 len
= TranslateKey (message
, wParam
, lParam
, buf
);
1569 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1570 ldisc
->send (buf
, len
);
1576 unsigned char buf
[2];
1579 buf
[0] = wParam
>> 8;
1580 ldisc
->send (buf
, 2);
1585 * Nevertheless, we are prepared to deal with WM_CHAR
1586 * messages, should they crop up. So if someone wants to
1587 * post the things to us as part of a macro manoeuvre,
1588 * we're ready to cope.
1591 char c
= xlat_kbd2tty((unsigned char)wParam
);
1592 ldisc
->send (&c
, 1);
1597 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1601 * Move the system caret. (We maintain one, even though it's
1602 * invisible, for the benefit of blind people: apparently some
1603 * helper software tracks the system caret, so we should arrange to
1606 void sys_cursor(int x
, int y
) {
1607 SetCaretPos(x
* font_width
, y
* font_height
);
1611 * Draw a line of text in the window, at given character
1612 * coordinates, in given attributes.
1614 * We are allowed to fiddle with the contents of `text'.
1616 void do_text (Context ctx
, int x
, int y
, char *text
, int len
,
1617 unsigned long attr
, int lattr
) {
1619 int nfg
, nbg
, nfont
;
1622 int force_manual_underline
= 0;
1623 int fnt_width
= font_width
*(1+(lattr
!=LATTR_NORM
));
1624 static int *IpDx
= 0, IpDxLEN
= 0;;
1626 if (len
>IpDxLEN
|| IpDx
[0] != fnt_width
) {
1630 IpDx
= smalloc((len
+16)*sizeof(int));
1633 for(i
=0; i
<IpDxLEN
; i
++)
1634 IpDx
[i
] = fnt_width
;
1640 if (attr
& ATTR_ACTCURS
) {
1641 attr
&= (bold_mode
== BOLD_COLOURS ?
0x300200 : 0x300300);
1642 attr
^= ATTR_CUR_XOR
;
1646 if (cfg
.vtmode
== VT_OEMONLY
)
1650 * Map high-half characters in order to approximate ISO using
1651 * OEM character set. No characters are missing if the OEM codepage
1654 if (nfont
& FONT_OEM
) {
1656 for (i
=0; i
<len
; i
++)
1657 if (text
[i
] >= '\xA0' && text
[i
] <= '\xFF') {
1659 /* This is CP850 ... perfect translation */
1660 static const char oemhighhalf
[] =
1661 "\x20\xAD\xBD\x9C\xCF\xBE\xDD\xF5" /* A0-A7 */
1662 "\xF9\xB8\xA6\xAE\xAA\xF0\xA9\xEE" /* A8-AF */
1663 "\xF8\xF1\xFD\xFC\xEF\xE6\xF4\xFA" /* B0-B7 */
1664 "\xF7\xFB\xA7\xAF\xAC\xAB\xF3\xA8" /* B8-BF */
1665 "\xB7\xB5\xB6\xC7\x8E\x8F\x92\x80" /* C0-C7 */
1666 "\xD4\x90\xD2\xD3\xDE\xD6\xD7\xD8" /* C8-CF */
1667 "\xD1\xA5\xE3\xE0\xE2\xE5\x99\x9E" /* D0-D7 */
1668 "\x9D\xEB\xE9\xEA\x9A\xED\xE8\xE1" /* D8-DF */
1669 "\x85\xA0\x83\xC6\x84\x86\x91\x87" /* E0-E7 */
1670 "\x8A\x82\x88\x89\x8D\xA1\x8C\x8B" /* E8-EF */
1671 "\xD0\xA4\x95\xA2\x93\xE4\x94\xF6" /* F0-F7 */
1672 "\x9B\x97\xA3\x96\x81\xEC\xE7\x98" /* F8-FF */
1675 /* This is CP437 ... junk translation */
1676 static const unsigned char oemhighhalf
[] = {
1677 0xff, 0xad, 0x9b, 0x9c, 0x6f, 0x9d, 0x7c, 0x15,
1678 0x22, 0x43, 0xa6, 0xae, 0xaa, 0x2d, 0x52, 0xc4,
1679 0xf8, 0xf1, 0xfd, 0x33, 0x27, 0xe6, 0x14, 0xfa,
1680 0x2c, 0x31, 0xa7, 0xaf, 0xac, 0xab, 0x2f, 0xa8,
1681 0x41, 0x41, 0x41, 0x41, 0x8e, 0x8f, 0x92, 0x80,
1682 0x45, 0x90, 0x45, 0x45, 0x49, 0x49, 0x49, 0x49,
1683 0x44, 0xa5, 0x4f, 0x4f, 0x4f, 0x4f, 0x99, 0x78,
1684 0xed, 0x55, 0x55, 0x55, 0x9a, 0x59, 0x50, 0xe1,
1685 0x85, 0xa0, 0x83, 0x61, 0x84, 0x86, 0x91, 0x87,
1686 0x8a, 0x82, 0x88, 0x89, 0x8d, 0xa1, 0x8c, 0x8b,
1687 0x0b, 0xa4, 0x95, 0xa2, 0x93, 0x6f, 0x94, 0xf6,
1688 0xed, 0x97, 0xa3, 0x96, 0x81, 0x79, 0x70, 0x98
1691 text
[i
] = oemhighhalf
[(unsigned char)text
[i
] - 0xA0];
1695 if (attr
& ATTR_LINEDRW
) {
1698 static const char poorman
[] =
1699 "*#****\xB0\xB1**+++++-----++++|****\xA3\xB7";
1702 static const char oemmap_437
[] =
1703 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1704 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3\xF3\xF2\xE3*\x9C\xFA";
1707 static const char oemmap_850
[] =
1708 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1709 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1711 /* Poor windows font ... eg: windows courier */
1712 static const char oemmap
[] =
1713 "*\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1714 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1717 * Line drawing mapping: map ` thru ~ (0x60 thru 0x7E) to
1718 * VT100 line drawing chars; everything else stays normal.
1720 * Actually '_' maps to space too, but that's done before.
1722 switch (cfg
.vtmode
) {
1724 for (i
=0; i
<len
; i
++)
1725 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1726 text
[i
] += '\x01' - '\x60';
1729 /* Make sure we actually have an OEM font */
1730 if (fonts
[nfont
|FONT_OEM
]) {
1733 for (i
=0; i
<len
; i
++)
1734 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1735 text
[i
] = oemmap
[(unsigned char)text
[i
] - 0x60];
1739 for (i
=0; i
<len
; i
++)
1740 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1741 text
[i
] = poorman
[(unsigned char)text
[i
] - 0x60];
1746 nfg
= 2 * ((attr
& ATTR_FGMASK
) >> ATTR_FGSHIFT
);
1747 nbg
= 2 * ((attr
& ATTR_BGMASK
) >> ATTR_BGSHIFT
);
1748 if (bold_mode
== BOLD_FONT
&& (attr
& ATTR_BOLD
))
1750 if (und_mode
== UND_FONT
&& (attr
& ATTR_UNDER
))
1751 nfont
|= FONT_UNDERLINE
;
1754 if (nfont
&FONT_UNDERLINE
)
1755 force_manual_underline
= 1;
1756 /* Don't do the same for manual bold, it could be bad news. */
1758 nfont
&= ~(FONT_BOLD
|FONT_UNDERLINE
);
1760 if (font_needs_hand_underlining
&& (attr
& ATTR_UNDER
))
1761 force_manual_underline
= 1;
1762 if (attr
& ATTR_REVERSE
) {
1763 t
= nfg
; nfg
= nbg
; nbg
= t
;
1765 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BOLD
))
1767 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BLINK
))
1771 SelectObject (hdc
, fonts
[nfont
]);
1772 SetTextColor (hdc
, fg
);
1773 SetBkColor (hdc
, bg
);
1774 SetBkMode (hdc
, OPAQUE
);
1777 line_box
.right
= x
+fnt_width
*len
;
1778 line_box
.bottom
= y
+font_height
;
1779 ExtTextOut (hdc
, x
, y
, ETO_CLIPPED
|ETO_OPAQUE
, &line_box
, text
, len
, IpDx
);
1780 if (bold_mode
== BOLD_SHADOW
&& (attr
& ATTR_BOLD
)) {
1781 SetBkMode (hdc
, TRANSPARENT
);
1783 /* GRR: This draws the character outside it's box and can leave
1784 * 'droppings' even with the clip box! I suppose I could loop it
1785 * one character at a time ... yuk.
1787 * Or ... I could do a test print with "W", and use +1 or -1 for this
1788 * shift depending on if the leftmost column is blank...
1790 ExtTextOut (hdc
, x
-1, y
, ETO_CLIPPED
, &line_box
, text
, len
, IpDx
);
1792 if (force_manual_underline
||
1793 (und_mode
== UND_LINE
&& (attr
& ATTR_UNDER
))) {
1795 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, fg
));
1796 MoveToEx (hdc
, x
, y
+descent
, NULL
);
1797 LineTo (hdc
, x
+len
*fnt_width
, y
+descent
);
1798 oldpen
= SelectObject (hdc
, oldpen
);
1799 DeleteObject (oldpen
);
1801 if (attr
& ATTR_PASCURS
) {
1804 pts
[0].x
= pts
[1].x
= pts
[4].x
= x
;
1805 pts
[2].x
= pts
[3].x
= x
+fnt_width
-1;
1806 pts
[0].y
= pts
[3].y
= pts
[4].y
= y
;
1807 pts
[1].y
= pts
[2].y
= y
+font_height
-1;
1808 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, colours
[23]));
1809 Polyline (hdc
, pts
, 5);
1810 oldpen
= SelectObject (hdc
, oldpen
);
1811 DeleteObject (oldpen
);
1815 static int check_compose(int first
, int second
) {
1817 static char * composetbl
[] = {
1818 "++#", "AA@", "(([", "//\\", "))]", "(-{", "-)}", "/^|", "!!¡", "C/¢",
1819 "C|¢", "L-£", "L=£", "XO¤", "X0¤", "Y-¥", "Y=¥", "||¦", "SO§", "S!§",
1820 "S0§", "\"\"¨", "CO©", "C0©", "A_ª", "<<«", ",-¬", "--", "RO®",
1821 "-^¯", "0^°", "+-±", "2^²", "3^³", "''´", "/Uµ", "P!¶", ".^·", ",,¸",
1822 "1^¹", "O_º", ">>»", "14¼", "12½", "34¾", "??¿", "`AÀ", "'AÁ", "^AÂ",
1823 "~AÃ", "\"AÄ", "*AÅ", "AEÆ", ",CÇ", "`EÈ", "'EÉ", "^EÊ", "\"EË",
1824 "`IÌ", "'IÍ", "^IÎ", "\"IÏ", "-DÐ", "~NÑ", "`OÒ", "'OÓ", "^OÔ",
1825 "~OÕ", "\"OÖ", "XX×", "/OØ", "`UÙ", "'UÚ", "^UÛ", "\"UÜ", "'YÝ",
1826 "HTÞ", "ssß", "`aà", "'aá", "^aâ", "~aã", "\"aä", "*aå", "aeæ", ",cç",
1827 "`eè", "'eé", "^eê", "\"eë", "`iì", "'ií", "^iî", "\"iï", "-dð", "~nñ",
1828 "`oò", "'oó", "^oô", "~oõ", "\"oö", ":-÷", "o/ø", "`uù", "'uú", "^uû",
1829 "\"uü", "'yý", "htþ", "\"yÿ",
1833 static int recurse
= 0;
1836 for(c
=composetbl
; *c
; c
++) {
1837 if( (*c
)[0] == first
&& (*c
)[1] == second
)
1839 return (*c
)[2] & 0xFF;
1846 nc
= check_compose(second
, first
);
1848 nc
= check_compose(toupper(first
), toupper(second
));
1850 nc
= check_compose(toupper(second
), toupper(first
));
1858 * Translate a WM_(SYS)?KEY(UP|DOWN) message into a string of ASCII
1859 * codes. Returns number of bytes used or zero to drop the message
1860 * or -1 to forward the message to windows.
1862 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
,
1863 unsigned char *output
) {
1865 int scan
, left_alt
= 0, key_down
, shift_state
;
1867 unsigned char * p
= output
;
1869 static WORD keys
[3];
1870 static int compose_char
= 0;
1871 static WPARAM compose_key
= 0;
1873 r
= GetKeyboardState(keystate
);
1874 if (!r
) memset(keystate
, 0, sizeof(keystate
));
1878 { /* Tell us all about key events */
1879 static BYTE oldstate
[256];
1880 static int first
= 1;
1883 if(first
) memcpy(oldstate
, keystate
, sizeof(oldstate
));
1886 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
) {
1888 } else if ((HIWORD(lParam
)&KF_UP
) && scan
==(HIWORD(lParam
) & 0xFF) ) {
1892 if (wParam
>= VK_F1
&& wParam
<= VK_F20
)
1893 debug(("K_F%d", wParam
+1-VK_F1
));
1896 case VK_SHIFT
: debug(("SHIFT")); break;
1897 case VK_CONTROL
: debug(("CTRL")); break;
1898 case VK_MENU
: debug(("ALT")); break;
1899 default: debug(("VK_%02x", wParam
));
1901 if(message
== WM_SYSKEYDOWN
|| message
== WM_SYSKEYUP
)
1903 debug((", S%02x", scan
=(HIWORD(lParam
) & 0xFF) ));
1905 ch
= MapVirtualKey(wParam
, 2);
1906 if (ch
>=' ' && ch
<='~') debug((", '%c'", ch
));
1907 else if (ch
) debug((", $%02x", ch
));
1909 if (keys
[0]) debug((", KB0=%02x", keys
[0]));
1910 if (keys
[1]) debug((", KB1=%02x", keys
[1]));
1911 if (keys
[2]) debug((", KB2=%02x", keys
[2]));
1913 if ( (keystate
[VK_SHIFT
]&0x80)!=0) debug((", S"));
1914 if ( (keystate
[VK_CONTROL
]&0x80)!=0) debug((", C"));
1915 if ( (HIWORD(lParam
)&KF_EXTENDED
) ) debug((", E"));
1916 if ( (HIWORD(lParam
)&KF_UP
) ) debug((", U"));
1919 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1921 else if ( (HIWORD(lParam
)&KF_UP
) )
1922 oldstate
[wParam
&0xFF] ^= 0x80;
1924 oldstate
[wParam
&0xFF] ^= 0x81;
1926 for(ch
=0; ch
<256; ch
++)
1927 if (oldstate
[ch
] != keystate
[ch
])
1928 debug((", M%02x=%02x", ch
, keystate
[ch
]));
1930 memcpy(oldstate
, keystate
, sizeof(oldstate
));
1934 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
)) {
1935 keystate
[VK_RMENU
] = keystate
[VK_MENU
];
1938 /* Note if AltGr was pressed and if it was used as a compose key */
1939 if (cfg
.compose_key
) {
1940 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
))
1942 if (!compose_state
) compose_key
= wParam
;
1944 if (wParam
== VK_APPS
&& !compose_state
)
1945 compose_key
= wParam
;
1947 if (wParam
== compose_key
)
1949 if (compose_state
== 0 && (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1951 else if (compose_state
== 1 && (HIWORD(lParam
)&KF_UP
))
1956 else if (compose_state
==1 && wParam
!= VK_CONTROL
)
1962 /* Nastyness with NUMLock - Shift-NUMLock is left alone though */
1963 if ( (cfg
.funky_type
== 3 ||
1964 (cfg
.funky_type
<= 1 && app_keypad_keys
&& !cfg
.no_applic_k
))
1965 && wParam
==VK_NUMLOCK
&& !(keystate
[VK_SHIFT
]&0x80)) {
1967 wParam
= VK_EXECUTE
;
1969 /* UnToggle NUMLock */
1970 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1971 keystate
[VK_NUMLOCK
] ^= 1;
1974 /* And write back the 'adjusted' state */
1975 SetKeyboardState (keystate
);
1978 /* Disable Auto repeat if required */
1979 if (repeat_off
&& (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1982 if ((HIWORD(lParam
)&KF_ALTDOWN
) && (keystate
[VK_RMENU
]&0x80) == 0)
1985 key_down
= ((HIWORD(lParam
)&KF_UP
)==0);
1987 /* Make sure Ctrl-ALT is not the same as AltGr for ToAscii */
1988 if (left_alt
&& (keystate
[VK_CONTROL
]&0x80))
1989 keystate
[VK_MENU
] = 0;
1991 scan
= (HIWORD(lParam
) & (KF_UP
| KF_EXTENDED
| 0xFF));
1992 shift_state
= ((keystate
[VK_SHIFT
]&0x80)!=0)
1993 + ((keystate
[VK_CONTROL
]&0x80)!=0)*2;
1996 * Record that we pressed key so the scroll window can be reset, but
1997 * be careful to avoid Shift-UP/Down
1999 if( wParam
!= VK_SHIFT
&& wParam
!= VK_PRIOR
&& wParam
!= VK_NEXT
) {
2003 /* Make sure we're not pasting */
2004 if (key_down
) term_nopaste();
2006 if (compose_state
>1 && left_alt
) compose_state
= 0;
2008 /* Sanitize the number pad if not using a PC NumPad */
2009 if( left_alt
|| (app_keypad_keys
&& !cfg
.no_applic_k
2010 && cfg
.funky_type
!= 2)
2011 || cfg
.funky_type
== 3 || cfg
.nethack_keypad
|| compose_state
)
2013 if ((HIWORD(lParam
)&KF_EXTENDED
) == 0)
2018 case VK_INSERT
: nParam
= VK_NUMPAD0
; break;
2019 case VK_END
: nParam
= VK_NUMPAD1
; break;
2020 case VK_DOWN
: nParam
= VK_NUMPAD2
; break;
2021 case VK_NEXT
: nParam
= VK_NUMPAD3
; break;
2022 case VK_LEFT
: nParam
= VK_NUMPAD4
; break;
2023 case VK_CLEAR
: nParam
= VK_NUMPAD5
; break;
2024 case VK_RIGHT
: nParam
= VK_NUMPAD6
; break;
2025 case VK_HOME
: nParam
= VK_NUMPAD7
; break;
2026 case VK_UP
: nParam
= VK_NUMPAD8
; break;
2027 case VK_PRIOR
: nParam
= VK_NUMPAD9
; break;
2028 case VK_DELETE
: nParam
= VK_DECIMAL
; break;
2032 if (keystate
[VK_NUMLOCK
]&1) shift_state
|= 1;
2038 /* If a key is pressed and AltGr is not active */
2039 if (key_down
&& (keystate
[VK_RMENU
]&0x80) == 0 && !compose_state
)
2041 /* Okay, prepare for most alts then ...*/
2042 if (left_alt
) *p
++ = '\033';
2044 /* Lets see if it's a pattern we know all about ... */
2045 if (wParam
== VK_PRIOR
&& shift_state
== 1) {
2046 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEUP
, 0);
2049 if (wParam
== VK_NEXT
&& shift_state
== 1) {
2050 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEDOWN
, 0);
2053 if (wParam
== VK_INSERT
&& shift_state
== 1) {
2054 term_mouse (MB_PASTE
, MA_CLICK
, 0, 0);
2055 term_mouse (MB_PASTE
, MA_RELEASE
, 0, 0);
2058 if (left_alt
&& wParam
== VK_F4
&& cfg
.alt_f4
) {
2061 if (left_alt
&& wParam
== VK_SPACE
&& cfg
.alt_space
) {
2062 PostMessage(hwnd
, WM_CHAR
, ' ', 0);
2063 SendMessage (hwnd
, WM_SYSCOMMAND
, SC_KEYMENU
, 0);
2066 /* Control-Numlock for app-keypad mode switch */
2067 if (wParam
== VK_PAUSE
&& shift_state
== 2) {
2068 app_keypad_keys
^= 1;
2072 /* Nethack keypad */
2073 if (cfg
.nethack_keypad
&& !left_alt
) {
2075 case VK_NUMPAD1
: *p
++ = shift_state ?
'B': 'b'; return p
-output
;
2076 case VK_NUMPAD2
: *p
++ = shift_state ?
'J': 'j'; return p
-output
;
2077 case VK_NUMPAD3
: *p
++ = shift_state ?
'N': 'n'; return p
-output
;
2078 case VK_NUMPAD4
: *p
++ = shift_state ?
'H': 'h'; return p
-output
;
2079 case VK_NUMPAD5
: *p
++ = shift_state ?
'.': '.'; return p
-output
;
2080 case VK_NUMPAD6
: *p
++ = shift_state ?
'L': 'l'; return p
-output
;
2081 case VK_NUMPAD7
: *p
++ = shift_state ?
'Y': 'y'; return p
-output
;
2082 case VK_NUMPAD8
: *p
++ = shift_state ?
'K': 'k'; return p
-output
;
2083 case VK_NUMPAD9
: *p
++ = shift_state ?
'U': 'u'; return p
-output
;
2087 /* Application Keypad */
2091 if ( cfg
.funky_type
== 3 ||
2092 ( cfg
.funky_type
<= 1 &&
2093 app_keypad_keys
&& !cfg
.no_applic_k
)) switch(wParam
) {
2094 case VK_EXECUTE
: xkey
= 'P'; break;
2095 case VK_DIVIDE
: xkey
= 'Q'; break;
2096 case VK_MULTIPLY
:xkey
= 'R'; break;
2097 case VK_SUBTRACT
:xkey
= 'S'; break;
2099 if(app_keypad_keys
&& !cfg
.no_applic_k
) switch(wParam
) {
2100 case VK_NUMPAD0
: xkey
= 'p'; break;
2101 case VK_NUMPAD1
: xkey
= 'q'; break;
2102 case VK_NUMPAD2
: xkey
= 'r'; break;
2103 case VK_NUMPAD3
: xkey
= 's'; break;
2104 case VK_NUMPAD4
: xkey
= 't'; break;
2105 case VK_NUMPAD5
: xkey
= 'u'; break;
2106 case VK_NUMPAD6
: xkey
= 'v'; break;
2107 case VK_NUMPAD7
: xkey
= 'w'; break;
2108 case VK_NUMPAD8
: xkey
= 'x'; break;
2109 case VK_NUMPAD9
: xkey
= 'y'; break;
2111 case VK_DECIMAL
: xkey
= 'n'; break;
2112 case VK_ADD
: if(cfg
.funky_type
==2) {
2113 if(shift_state
) xkey
= 'l';
2115 } else if(shift_state
) xkey
= 'm';
2119 case VK_DIVIDE
: if(cfg
.funky_type
==2) xkey
= 'o'; break;
2120 case VK_MULTIPLY
:if(cfg
.funky_type
==2) xkey
= 'j'; break;
2121 case VK_SUBTRACT
:if(cfg
.funky_type
==2) xkey
= 'm'; break;
2124 if (HIWORD(lParam
)&KF_EXTENDED
)
2132 if (xkey
>='P' && xkey
<='S')
2133 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2135 p
+= sprintf((char *)p
, "\x1B?%c", xkey
);
2138 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2143 if (wParam
== VK_BACK
&& shift_state
== 0 ) /* Backspace */
2145 *p
++ = (cfg
.bksp_is_delete ?
0x7F : 0x08);
2148 if (wParam
== VK_TAB
&& shift_state
== 1 ) /* Shift tab */
2150 *p
++ = 0x1B; *p
++ = '['; *p
++ = 'Z'; return p
- output
;
2152 if (wParam
== VK_SPACE
&& shift_state
== 2 ) /* Ctrl-Space */
2154 *p
++ = 0; return p
- output
;
2156 if (wParam
== VK_SPACE
&& shift_state
== 3 ) /* Ctrl-Shift-Space */
2158 *p
++ = 160; return p
- output
;
2160 if (wParam
== VK_CANCEL
&& shift_state
== 2 ) /* Ctrl-Break */
2162 *p
++ = 3; return p
- output
;
2164 /* Control-2 to Control-8 are special */
2165 if (shift_state
== 2 && wParam
>= '2' && wParam
<= '8')
2167 *p
++ = "\000\033\034\035\036\037\177"[wParam
-'2'];
2170 if (shift_state
== 2 && wParam
== 0xBD) {
2174 if (shift_state
== 2 && wParam
== 0xDF) {
2178 if (shift_state
== 0 && wParam
== VK_RETURN
&& cr_lf_return
) {
2179 *p
++ = '\r'; *p
++ = '\n';
2184 * Next, all the keys that do tilde codes. (ESC '[' nn '~',
2185 * for integer decimal nn.)
2187 * We also deal with the weird ones here. Linux VCs replace F1
2188 * to F5 by ESC [ [ A to ESC [ [ E. rxvt doesn't do _that_, but
2189 * does replace Home and End (1~ and 4~) by ESC [ H and ESC O w
2194 case VK_F1
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
23 : 11); break;
2195 case VK_F2
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
24 : 12); break;
2196 case VK_F3
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
25 : 13); break;
2197 case VK_F4
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
26 : 14); break;
2198 case VK_F5
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
28 : 15); break;
2199 case VK_F6
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
29 : 17); break;
2200 case VK_F7
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
31 : 18); break;
2201 case VK_F8
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
32 : 19); break;
2202 case VK_F9
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
33 : 20); break;
2203 case VK_F10
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
34 : 21); break;
2204 case VK_F11
: code
= 23; break;
2205 case VK_F12
: code
= 24; break;
2206 case VK_F13
: code
= 25; break;
2207 case VK_F14
: code
= 26; break;
2208 case VK_F15
: code
= 28; break;
2209 case VK_F16
: code
= 29; break;
2210 case VK_F17
: code
= 31; break;
2211 case VK_F18
: code
= 32; break;
2212 case VK_F19
: code
= 33; break;
2213 case VK_F20
: code
= 34; break;
2214 case VK_HOME
: code
= 1; break;
2215 case VK_INSERT
: code
= 2; break;
2216 case VK_DELETE
: code
= 3; break;
2217 case VK_END
: code
= 4; break;
2218 case VK_PRIOR
: code
= 5; break;
2219 case VK_NEXT
: code
= 6; break;
2221 /* Reorder edit keys to physical order */
2222 if (cfg
.funky_type
== 3 && code
<= 6 ) code
= "\0\2\1\4\5\3\6"[code
];
2224 if (cfg
.funky_type
== 1 && code
>= 11 && code
<= 15) {
2225 p
+= sprintf((char *)p
, "\x1B[[%c", code
+ 'A' - 11);
2228 if (cfg
.funky_type
== 2 && code
>= 11 && code
<= 14) {
2230 p
+= sprintf((char *)p
, "\x1B%c", code
+ 'P' - 11);
2232 p
+= sprintf((char *)p
, "\x1BO%c", code
+ 'P' - 11);
2235 if (cfg
.rxvt_homeend
&& (code
== 1 || code
== 4)) {
2236 p
+= sprintf((char *)p
, code
== 1 ?
"\x1B[H" : "\x1BOw");
2240 p
+= sprintf((char *)p
, "\x1B[%d~", code
);
2245 * Now the remaining keys (arrows and Keypad 5. Keypad 5 for
2246 * some reason seems to send VK_CLEAR to Windows...).
2251 case VK_UP
: xkey
= 'A'; break;
2252 case VK_DOWN
: xkey
= 'B'; break;
2253 case VK_RIGHT
: xkey
= 'C'; break;
2254 case VK_LEFT
: xkey
= 'D'; break;
2255 case VK_CLEAR
: xkey
= 'G'; break;
2260 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2261 else if (app_cursor_keys
&& !cfg
.no_applic_c
)
2262 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2264 p
+= sprintf((char *)p
, "\x1B[%c", xkey
);
2270 * Finally, deal with Return ourselves. (Win95 seems to
2271 * foul it up when Alt is pressed, for some reason.)
2273 if (wParam
== VK_RETURN
) /* Return */
2280 /* Okay we've done everything interesting; let windows deal with
2281 * the boring stuff */
2283 BOOL capsOn
=keystate
[VK_CAPITAL
] !=0;
2285 /* helg: clear CAPS LOCK state if caps lock switches to cyrillic */
2286 if(cfg
.xlat_capslockcyr
)
2287 keystate
[VK_CAPITAL
] = 0;
2289 r
= ToAscii (wParam
, scan
, keystate
, keys
, 0);
2295 unsigned char ch
= (unsigned char)keys
[i
];
2297 if (compose_state
==2 && (ch
&0x80) == 0 && ch
>' ') {
2302 if (compose_state
==3 && (ch
&0x80) == 0 && ch
>' ') {
2306 if ((nc
=check_compose(compose_char
,ch
)) == -1)
2308 MessageBeep(MB_ICONHAND
);
2311 *p
++ = xlat_kbd2tty((unsigned char)nc
);
2317 if( left_alt
&& key_down
) *p
++ = '\033';
2323 ch
= xlat_latkbd2win(ch
);
2324 *p
++ = xlat_kbd2tty(ch
);
2328 /* This is so the ALT-Numpad and dead keys work correctly. */
2335 /* ALT alone may or may not want to bring up the System menu */
2336 if (wParam
== VK_MENU
) {
2338 static int alt_state
= 0;
2339 if (message
== WM_SYSKEYDOWN
)
2341 else if (message
== WM_SYSKEYUP
&& alt_state
)
2342 PostMessage(hwnd
, WM_CHAR
, ' ', 0);
2343 if (message
== WM_SYSKEYUP
)
2352 void set_title (char *title
) {
2353 sfree (window_name
);
2354 window_name
= smalloc(1+strlen(title
));
2355 strcpy (window_name
, title
);
2356 if (cfg
.win_name_always
|| !IsIconic(hwnd
))
2357 SetWindowText (hwnd
, title
);
2360 void set_icon (char *title
) {
2362 icon_name
= smalloc(1+strlen(title
));
2363 strcpy (icon_name
, title
);
2364 if (!cfg
.win_name_always
&& IsIconic(hwnd
))
2365 SetWindowText (hwnd
, title
);
2368 void set_sbar (int total
, int start
, int page
) {
2371 if (!cfg
.scrollbar
) return;
2373 si
.cbSize
= sizeof(si
);
2374 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
2376 si
.nMax
= total
- 1;
2380 SetScrollInfo (hwnd
, SB_VERT
, &si
, TRUE
);
2383 Context
get_ctx(void) {
2388 SelectPalette (hdc
, pal
, FALSE
);
2394 void free_ctx (Context ctx
) {
2395 SelectPalette (ctx
, GetStockObject (DEFAULT_PALETTE
), FALSE
);
2396 ReleaseDC (hwnd
, ctx
);
2399 static void real_palette_set (int n
, int r
, int g
, int b
) {
2401 logpal
->palPalEntry
[n
].peRed
= r
;
2402 logpal
->palPalEntry
[n
].peGreen
= g
;
2403 logpal
->palPalEntry
[n
].peBlue
= b
;
2404 logpal
->palPalEntry
[n
].peFlags
= PC_NOCOLLAPSE
;
2405 colours
[n
] = PALETTERGB(r
, g
, b
);
2406 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2408 colours
[n
] = RGB(r
, g
, b
);
2411 void palette_set (int n
, int r
, int g
, int b
) {
2412 static const int first
[21] = {
2413 0, 2, 4, 6, 8, 10, 12, 14,
2414 1, 3, 5, 7, 9, 11, 13, 15,
2417 real_palette_set (first
[n
], r
, g
, b
);
2419 real_palette_set (first
[n
]+1, r
, g
, b
);
2421 HDC hdc
= get_ctx();
2422 UnrealizeObject (pal
);
2423 RealizePalette (hdc
);
2428 void palette_reset (void) {
2431 for (i
= 0; i
< NCOLOURS
; i
++) {
2433 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
2434 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
2435 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
2436 logpal
->palPalEntry
[i
].peFlags
= 0;
2437 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
2438 defpal
[i
].rgbtGreen
,
2439 defpal
[i
].rgbtBlue
);
2441 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
2442 defpal
[i
].rgbtGreen
,
2443 defpal
[i
].rgbtBlue
);
2448 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2450 RealizePalette (hdc
);
2455 void write_clip (void *data
, int len
, int must_deselect
) {
2459 clipdata
= GlobalAlloc (GMEM_DDESHARE
| GMEM_MOVEABLE
, len
+ 1);
2462 lock
= GlobalLock (clipdata
);
2465 memcpy (lock
, data
, len
);
2466 ((unsigned char *) lock
) [len
] = 0;
2467 GlobalUnlock (clipdata
);
2470 SendMessage (hwnd
, WM_IGNORE_CLIP
, TRUE
, 0);
2472 if (OpenClipboard (hwnd
)) {
2474 SetClipboardData (CF_TEXT
, clipdata
);
2477 GlobalFree (clipdata
);
2480 SendMessage (hwnd
, WM_IGNORE_CLIP
, FALSE
, 0);
2483 void get_clip (void **p
, int *len
) {
2484 static HGLOBAL clipdata
= NULL
;
2488 GlobalUnlock (clipdata
);
2492 if (OpenClipboard (NULL
)) {
2493 clipdata
= GetClipboardData (CF_TEXT
);
2496 *p
= GlobalLock (clipdata
);
2510 * Move `lines' lines from position `from' to position `to' in the
2513 void optimised_move (int to
, int from
, int lines
) {
2517 min
= (to
< from ? to
: from
);
2518 max
= to
+ from
- min
;
2520 r
.left
= 0; r
.right
= cols
* font_width
;
2521 r
.top
= min
* font_height
; r
.bottom
= (max
+lines
) * font_height
;
2522 ScrollWindow (hwnd
, 0, (to
- from
) * font_height
, &r
, &r
);
2526 * Print a message box and perform a fatal exit.
2528 void fatalbox(char *fmt
, ...) {
2533 vsprintf(stuff
, fmt
, ap
);
2535 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
2542 void beep(int errorbeep
) {
2543 static long last_beep
= 0;
2544 long now
, beep_diff
;
2546 now
= GetTickCount();
2547 beep_diff
= now
-last_beep
;
2549 /* Make sure we only respond to one beep per packet or so */
2550 if (beep_diff
>=0 && beep_diff
<50)
2554 MessageBeep(MB_ICONHAND
);
2558 last_beep
= GetTickCount();