15 #define PUTTY_DO_GLOBALS /* actually _define_ globals */
20 #define IDM_SHOWLOG 0x0010
21 #define IDM_NEWSESS 0x0020
22 #define IDM_DUPSESS 0x0030
23 #define IDM_RECONF 0x0040
24 #define IDM_CLRSB 0x0050
25 #define IDM_RESET 0x0060
26 #define IDM_TEL_AYT 0x0070
27 #define IDM_TEL_BRK 0x0080
28 #define IDM_TEL_SYNCH 0x0090
29 #define IDM_TEL_EC 0x00a0
30 #define IDM_TEL_EL 0x00b0
31 #define IDM_TEL_GA 0x00c0
32 #define IDM_TEL_NOP 0x00d0
33 #define IDM_TEL_ABORT 0x00e0
34 #define IDM_TEL_AO 0x00f0
35 #define IDM_TEL_IP 0x0100
36 #define IDM_TEL_SUSP 0x0110
37 #define IDM_TEL_EOR 0x0120
38 #define IDM_TEL_EOF 0x0130
39 #define IDM_ABOUT 0x0140
40 #define IDM_SAVEDSESS 0x0150
42 #define IDM_SAVED_MIN 0x1000
43 #define IDM_SAVED_MAX 0x2000
45 #define WM_IGNORE_SIZE (WM_XUSER + 1)
46 #define WM_IGNORE_CLIP (WM_XUSER + 2)
48 static LRESULT CALLBACK
WndProc (HWND
, UINT
, WPARAM
, LPARAM
);
49 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
, unsigned char *output
);
50 static void cfgtopalette(void);
51 static void init_palette(void);
52 static void init_fonts(int);
54 static int extra_width
, extra_height
;
56 static int pending_netevent
= 0;
57 static WPARAM pend_netevent_wParam
= 0;
58 static LPARAM pend_netevent_lParam
= 0;
59 static void enact_pending_netevent(void);
61 static time_t last_movement
= 0;
65 #define FONT_UNDERLINE 2
66 #define FONT_BOLDUND 3
68 #define FONT_OEMBOLD 5
69 #define FONT_OEMBOLDUND 6
71 static HFONT fonts
[8];
72 static int font_needs_hand_underlining
;
74 BOLD_COLOURS
, BOLD_SHADOW
, BOLD_FONT
82 static COLORREF colours
[NCOLOURS
];
84 static LPLOGPALETTE logpal
;
85 static RGBTRIPLE defpal
[NCOLOURS
];
89 static HBITMAP caretbm
;
91 static int dbltime
, lasttime
, lastact
;
92 static Mouse_Button lastbtn
;
94 static char *window_name
, *icon_name
;
96 static Ldisc
*real_ldisc
;
98 void begin_session(void) {
102 int WINAPI
WinMain(HINSTANCE inst
, HINSTANCE prev
, LPSTR cmdline
, int show
) {
103 static char appname
[] = "PuTTY";
108 int guess_width
, guess_height
;
111 flags
= FLAG_VERBOSE
| FLAG_INTERACTIVE
;
113 winsock_ver
= MAKEWORD(1, 1);
114 if (WSAStartup(winsock_ver
, &wsadata
)) {
115 MessageBox(NULL
, "Unable to initialise WinSock", "WinSock Error",
116 MB_OK
| MB_ICONEXCLAMATION
);
119 if (LOBYTE(wsadata
.wVersion
) != 1 || HIBYTE(wsadata
.wVersion
) != 1) {
120 MessageBox(NULL
, "WinSock version is incompatible with 1.1",
121 "WinSock Error", MB_OK
| MB_ICONEXCLAMATION
);
125 /* WISHLIST: maybe allow config tweaking even if winsock not present? */
127 InitCommonControls();
129 /* Ensure a Maximize setting in Explorer doesn't maximise the
134 * Process the command line.
139 default_protocol
= DEFAULT_PROTOCOL
;
140 default_port
= DEFAULT_PORT
;
142 do_defaults(NULL
, &cfg
);
145 while (*p
&& isspace(*p
)) p
++;
148 * Process command line options first. Yes, this can be
149 * done better, and it will be as soon as I have the
153 char *q
= p
+ strcspn(p
, " \t");
156 tolower(p
[0]) == 's' &&
157 tolower(p
[1]) == 's' &&
158 tolower(p
[2]) == 'h') {
159 default_protocol
= cfg
.protocol
= PROT_SSH
;
160 default_port
= cfg
.port
= 22;
161 } else if (q
== p
+ 3 &&
162 tolower(p
[0]) == 'l' &&
163 tolower(p
[1]) == 'o' &&
164 tolower(p
[2]) == 'g') {
165 logfile
= "putty.log";
166 } else if (q
== p
+ 7 &&
167 tolower(p
[0]) == 'c' &&
168 tolower(p
[1]) == 'l' &&
169 tolower(p
[2]) == 'e' &&
170 tolower(p
[3]) == 'a' &&
171 tolower(p
[4]) == 'n' &&
172 tolower(p
[5]) == 'u' &&
173 tolower(p
[6]) == 'p') {
175 * `putty -cleanup'. Remove all registry entries
176 * associated with PuTTY, and also find and delete
177 * the random seed file.
180 "This procedure will remove ALL Registry\n"
181 "entries associated with PuTTY, and will\n"
182 "also remove the PuTTY random seed file.\n"
184 "THIS PROCESS WILL DESTROY YOUR SAVED\n"
185 "SESSIONS. Are you really sure you want\n"
188 MB_YESNO
| MB_ICONWARNING
) == IDYES
) {
193 p
= q
+ strspn(q
, " \t");
197 * An initial @ means to activate a saved session.
200 do_defaults (p
+1, &cfg
);
201 if (!*cfg
.host
&& !do_config()) {
205 } else if (*p
== '&') {
207 * An initial & means we've been given a command line
208 * containing the hex value of a HANDLE for a file
209 * mapping object, which we must then extract as a
214 if (sscanf(p
+1, "%p", &filemap
) == 1 &&
215 (cp
= MapViewOfFile(filemap
, FILE_MAP_READ
,
216 0, 0, sizeof(Config
))) != NULL
) {
219 CloseHandle(filemap
);
220 } else if (!do_config()) {
227 * If the hostname starts with "telnet:", set the
228 * protocol to Telnet and process the string as a
231 if (!strncmp(q
, "telnet:", 7)) {
235 if (q
[0] == '/' && q
[1] == '/')
237 cfg
.protocol
= PROT_TELNET
;
239 while (*p
&& *p
!= ':' && *p
!= '/') p
++;
247 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
248 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
250 while (*p
&& !isspace(*p
)) p
++;
253 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
254 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
255 while (*p
&& isspace(*p
)) p
++;
268 /* See if host is of the form user@host */
269 if (cfg
.host
[0] != '\0') {
270 char *atsign
= strchr(cfg
.host
, '@');
271 /* Make sure we're not overflowing the user field */
273 if (atsign
-cfg
.host
< sizeof cfg
.username
) {
274 strncpy (cfg
.username
, cfg
.host
, atsign
-cfg
.host
);
275 cfg
.username
[atsign
-cfg
.host
] = '\0';
277 memmove(cfg
.host
, atsign
+1, 1+strlen(atsign
+1));
283 * Select protocol. This is farmed out into a table in a
284 * separate file to enable an ssh-free variant.
289 for (i
= 0; backends
[i
].backend
!= NULL
; i
++)
290 if (backends
[i
].protocol
== cfg
.protocol
) {
291 back
= backends
[i
].backend
;
295 MessageBox(NULL
, "Unsupported protocol number found",
296 "PuTTY Internal Error", MB_OK
| MB_ICONEXCLAMATION
);
302 real_ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
303 /* To start with, we use the simple line discipline, so we can
304 * type passwords etc without fear of them being echoed... */
305 ldisc
= &ldisc_simple
;
309 wndclass
.lpfnWndProc
= WndProc
;
310 wndclass
.cbClsExtra
= 0;
311 wndclass
.cbWndExtra
= 0;
312 wndclass
.hInstance
= inst
;
313 wndclass
.hIcon
= LoadIcon (inst
,
314 MAKEINTRESOURCE(IDI_MAINICON
));
315 wndclass
.hCursor
= LoadCursor (NULL
, IDC_IBEAM
);
316 wndclass
.hbrBackground
= GetStockObject (BLACK_BRUSH
);
317 wndclass
.lpszMenuName
= NULL
;
318 wndclass
.lpszClassName
= appname
;
320 RegisterClass (&wndclass
);
325 savelines
= cfg
.savelines
;
331 * Guess some defaults for the window size. This all gets
332 * updated later, so we don't really care too much. However, we
333 * do want the font width/height guesses to correspond to a
334 * large font rather than a small one...
341 term_size (cfg
.height
, cfg
.width
, cfg
.savelines
);
342 guess_width
= extra_width
+ font_width
* cols
;
343 guess_height
= extra_height
+ font_height
* rows
;
346 HWND w
= GetDesktopWindow();
347 GetWindowRect (w
, &r
);
348 if (guess_width
> r
.right
- r
.left
)
349 guess_width
= r
.right
- r
.left
;
350 if (guess_height
> r
.bottom
- r
.top
)
351 guess_height
= r
.bottom
- r
.top
;
355 int winmode
= WS_OVERLAPPEDWINDOW
|WS_VSCROLL
;
356 if (!cfg
.scrollbar
) winmode
&= ~(WS_VSCROLL
);
357 if (cfg
.locksize
) winmode
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
358 hwnd
= CreateWindow (appname
, appname
,
360 CW_USEDEFAULT
, CW_USEDEFAULT
,
361 guess_width
, guess_height
,
362 NULL
, NULL
, inst
, NULL
);
366 * Initialise the fonts, simultaneously correcting the guesses
367 * for font_{width,height}.
369 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
374 * Correct the guesses for extra_{width,height}.
378 GetWindowRect (hwnd
, &wr
);
379 GetClientRect (hwnd
, &cr
);
380 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
381 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
385 * Resize the window, now we know what size we _really_ want it
388 guess_width
= extra_width
+ font_width
* cols
;
389 guess_height
= extra_height
+ font_height
* rows
;
390 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
391 SetWindowPos (hwnd
, NULL
, 0, 0, guess_width
, guess_height
,
392 SWP_NOMOVE
| SWP_NOREDRAW
| SWP_NOZORDER
);
395 * Set up a caret bitmap, with no content.
399 int size
= (font_width
+15)/16 * 2 * font_height
;
400 bits
= calloc(size
, 1);
401 caretbm
= CreateBitmap(font_width
, font_height
, 1, 1, bits
);
406 * Initialise the scroll bar.
411 si
.cbSize
= sizeof(si
);
412 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
417 SetScrollInfo (hwnd
, SB_VERT
, &si
, FALSE
);
421 * Start up the telnet connection.
425 char msg
[1024], *title
;
428 error
= back
->init (hwnd
, cfg
.host
, cfg
.port
, &realhost
);
430 sprintf(msg
, "Unable to open connection:\n%s", error
);
431 MessageBox(NULL
, msg
, "PuTTY Error", MB_ICONERROR
| MB_OK
);
434 window_name
= icon_name
= NULL
;
436 title
= cfg
.wintitle
;
438 sprintf(msg
, "%s - PuTTY", realhost
);
445 session_closed
= FALSE
;
448 * Set up the input and output buffers.
451 outbuf_reap
= outbuf_head
= 0;
454 * Prepare the mouse handler.
456 lastact
= MA_NOTHING
;
457 lastbtn
= MB_NOTHING
;
458 dbltime
= GetDoubleClickTime();
461 * Set up the session-control options on the system menu.
464 HMENU m
= GetSystemMenu (hwnd
, FALSE
);
468 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
469 if (cfg
.protocol
== PROT_TELNET
) {
471 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AYT
, "Are You There");
472 AppendMenu (p
, MF_ENABLED
, IDM_TEL_BRK
, "Break");
473 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SYNCH
, "Synch");
474 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
475 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EC
, "Erase Character");
476 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EL
, "Erase Line");
477 AppendMenu (p
, MF_ENABLED
, IDM_TEL_GA
, "Go Ahead");
478 AppendMenu (p
, MF_ENABLED
, IDM_TEL_NOP
, "No Operation");
479 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
480 AppendMenu (p
, MF_ENABLED
, IDM_TEL_ABORT
, "Abort Process");
481 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AO
, "Abort Output");
482 AppendMenu (p
, MF_ENABLED
, IDM_TEL_IP
, "Interrupt Process");
483 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SUSP
, "Suspend Process");
484 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
485 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOR
, "End Of Record");
486 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOF
, "End Of File");
487 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) p
, "Telnet Command");
488 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
490 AppendMenu (m
, MF_ENABLED
, IDM_SHOWLOG
, "&Event Log");
491 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
492 AppendMenu (m
, MF_ENABLED
, IDM_NEWSESS
, "Ne&w Session");
493 AppendMenu (m
, MF_ENABLED
, IDM_DUPSESS
, "&Duplicate Session");
496 for (i
= 1 ; i
< ((nsessions
< 256) ? nsessions
: 256) ; i
++)
497 AppendMenu (s
, MF_ENABLED
, IDM_SAVED_MIN
+ (16 * i
) , sessions
[i
]);
498 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) s
, "Sa&ved Sessions");
499 AppendMenu (m
, MF_ENABLED
, IDM_RECONF
, "Chan&ge Settings");
500 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
501 AppendMenu (m
, MF_ENABLED
, IDM_CLRSB
, "C&lear Scrollback");
502 AppendMenu (m
, MF_ENABLED
, IDM_RESET
, "Rese&t Terminal");
503 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
504 AppendMenu (m
, MF_ENABLED
, IDM_ABOUT
, "&About PuTTY");
508 * Finally show the window!
510 ShowWindow (hwnd
, show
);
513 * Set the palette up.
519 has_focus
= (GetForegroundWindow() == hwnd
);
522 if (GetMessage (&msg
, NULL
, 0, 0) == 1)
524 int timer_id
= 0, long_timer
= 0;
526 while (msg
.message
!= WM_QUIT
) {
527 /* Sometimes DispatchMessage calls routines that use their own
528 * GetMessage loop, setup this timer so we get some control back.
530 * Also call term_update() from the timer so that if the host
531 * is sending data flat out we still do redraws.
533 if(timer_id
&& long_timer
) {
534 KillTimer(hwnd
, timer_id
);
535 long_timer
= timer_id
= 0;
538 timer_id
= SetTimer(hwnd
, 1, 20, NULL
);
539 DispatchMessage (&msg
);
541 /* Make sure we blink everything that needs it. */
544 /* Send the paste buffer if there's anything to send */
547 /* If there's nothing new in the queue then we can do everything
548 * we've delayed, reading the socket, writing, and repainting
551 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
554 if (pending_netevent
) {
555 enact_pending_netevent();
557 /* Force the cursor blink on */
560 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
564 /* Okay there is now nothing to do so we make sure the screen is
565 * completely up to date then tell windows to call us in a little
569 KillTimer(hwnd
, timer_id
);
578 timer_id
= SetTimer(hwnd
, 1, 59500, NULL
);
580 timer_id
= SetTimer(hwnd
, 1, 250, NULL
);
583 /* There's no point rescanning everything in the message queue
584 * so we do an apperently unneccesary wait here
587 if (GetMessage (&msg
, NULL
, 0, 0) != 1)
599 DeleteObject(fonts
[i
]);
606 if (cfg
.protocol
== PROT_SSH
) {
617 * Print a message box and close the connection.
619 void connection_fatal(char *fmt
, ...) {
624 vsprintf(stuff
, fmt
, ap
);
626 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
627 if (cfg
.close_on_exit
)
630 session_closed
= TRUE
;
631 SetWindowText (hwnd
, "PuTTY (inactive)");
636 * Actually do the job requested by a WM_NETEVENT
638 static void enact_pending_netevent(void) {
640 static int reentering
= 0;
643 return; /* don't unpend the pending */
645 pending_netevent
= FALSE
;
648 i
= back
->msg (pend_netevent_wParam
, pend_netevent_lParam
);
653 switch (WSABASEERR
+ (-i
) % 10000) {
655 sprintf(buf
, "Connection reset by peer");
657 case WSAECONNABORTED
:
658 sprintf(buf
, "Connection aborted");
661 sprintf(buf
, "Unexpected network error %d", -i
);
664 connection_fatal(buf
);
667 if (cfg
.close_on_exit
)
670 session_closed
= TRUE
;
671 MessageBox(hwnd
, "Connection closed by remote host",
672 "PuTTY", MB_OK
| MB_ICONINFORMATION
);
673 SetWindowText (hwnd
, "PuTTY (inactive)");
679 * Copy the colour palette from the configuration data into defpal.
680 * This is non-trivial because the colour indices are different.
682 static void cfgtopalette(void) {
684 static const int ww
[] = {
685 6, 7, 8, 9, 10, 11, 12, 13,
686 14, 15, 16, 17, 18, 19, 20, 21,
687 0, 1, 2, 3, 4, 4, 5, 5
690 for (i
=0; i
<24; i
++) {
692 defpal
[i
].rgbtRed
= cfg
.colours
[w
][0];
693 defpal
[i
].rgbtGreen
= cfg
.colours
[w
][1];
694 defpal
[i
].rgbtBlue
= cfg
.colours
[w
][2];
699 * Set up the colour palette.
701 static void init_palette(void) {
703 HDC hdc
= GetDC (hwnd
);
705 if (cfg
.try_palette
&&
706 GetDeviceCaps (hdc
, RASTERCAPS
) & RC_PALETTE
) {
707 logpal
= smalloc(sizeof(*logpal
)
708 - sizeof(logpal
->palPalEntry
)
709 + NCOLOURS
* sizeof(PALETTEENTRY
));
710 logpal
->palVersion
= 0x300;
711 logpal
->palNumEntries
= NCOLOURS
;
712 for (i
= 0; i
< NCOLOURS
; i
++) {
713 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
714 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
715 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
716 logpal
->palPalEntry
[i
].peFlags
= PC_NOCOLLAPSE
;
718 pal
= CreatePalette (logpal
);
720 SelectPalette (hdc
, pal
, FALSE
);
721 RealizePalette (hdc
);
722 SelectPalette (hdc
, GetStockObject (DEFAULT_PALETTE
),
726 ReleaseDC (hwnd
, hdc
);
729 for (i
=0; i
<NCOLOURS
; i
++)
730 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
734 for(i
=0; i
<NCOLOURS
; i
++)
735 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
741 * Initialise all the fonts we will need. There may be as many as
742 * eight or as few as one. We also:
744 * - check the font width and height, correcting our guesses if
747 * - verify that the bold font is the same width as the ordinary
748 * one, and engage shadow bolding if not.
750 * - verify that the underlined font is the same width as the
751 * ordinary one (manual underlining by means of line drawing can
752 * be done in a pinch).
754 static void init_fonts(int pick_width
) {
759 int fw_dontcare
, fw_bold
;
768 if (cfg
.fontisbold
) {
769 fw_dontcare
= FW_BOLD
;
772 fw_dontcare
= FW_DONTCARE
;
778 font_height
= cfg
.fontheight
;
779 font_width
= pick_width
;
782 fonts[i] = CreateFont (font_height, font_width, 0, 0, w, FALSE, u, FALSE, \
783 c, OUT_DEFAULT_PRECIS, \
784 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, \
785 FIXED_PITCH | FF_DONTCARE, cfg.font)
787 if (cfg
.vtmode
!= VT_OEMONLY
) {
788 f(FONT_NORMAL
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
790 SelectObject (hdc
, fonts
[FONT_NORMAL
]);
791 GetTextMetrics(hdc
, &tm
);
792 font_height
= tm
.tmHeight
;
793 font_width
= tm
.tmAveCharWidth
;
795 f(FONT_UNDERLINE
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
798 * Some fonts, e.g. 9-pt Courier, draw their underlines
799 * outside their character cell. We successfully prevent
800 * screen corruption by clipping the text output, but then
801 * we lose the underline completely. Here we try to work
802 * out whether this is such a font, and if it is, we set a
803 * flag that causes underlines to be drawn by hand.
805 * Having tried other more sophisticated approaches (such
806 * as examining the TEXTMETRIC structure or requesting the
807 * height of a string), I think we'll do this the brute
808 * force way: we create a small bitmap, draw an underlined
809 * space on it, and test to see whether any pixels are
810 * foreground-coloured. (Since we expect the underline to
811 * go all the way across the character cell, we only search
812 * down a single column of the bitmap, half way across.)
816 HBITMAP und_bm
, und_oldbm
;
820 und_dc
= CreateCompatibleDC(hdc
);
821 und_bm
= CreateCompatibleBitmap(hdc
, font_width
, font_height
);
822 und_oldbm
= SelectObject(und_dc
, und_bm
);
823 SelectObject(und_dc
, fonts
[FONT_UNDERLINE
]);
824 SetTextAlign(und_dc
, TA_TOP
| TA_LEFT
| TA_NOUPDATECP
);
825 SetTextColor (und_dc
, RGB(255,255,255));
826 SetBkColor (und_dc
, RGB(0,0,0));
827 SetBkMode (und_dc
, OPAQUE
);
828 ExtTextOut (und_dc
, 0, 0, ETO_OPAQUE
, NULL
, " ", 1, NULL
);
830 for (i
= 0; i
< font_height
; i
++) {
831 c
= GetPixel(und_dc
, font_width
/2, i
);
835 SelectObject(und_dc
, und_oldbm
);
836 DeleteObject(und_bm
);
838 font_needs_hand_underlining
= !gotit
;
841 if (bold_mode
== BOLD_FONT
) {
842 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
843 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
846 if (cfg
.vtmode
== VT_OEMANSI
) {
847 f(FONT_OEM
, OEM_CHARSET
, fw_dontcare
, FALSE
);
848 f(FONT_OEMUND
, OEM_CHARSET
, fw_dontcare
, TRUE
);
850 if (bold_mode
== BOLD_FONT
) {
851 f(FONT_OEMBOLD
, OEM_CHARSET
, fw_bold
, FALSE
);
852 f(FONT_OEMBOLDUND
, OEM_CHARSET
, fw_bold
, TRUE
);
858 f(FONT_OEM
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
860 SelectObject (hdc
, fonts
[FONT_OEM
]);
861 GetTextMetrics(hdc
, &tm
);
862 font_height
= tm
.tmHeight
;
863 font_width
= tm
.tmAveCharWidth
;
865 f(FONT_OEMUND
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
867 if (bold_mode
== BOLD_FONT
) {
868 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
869 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
874 descent
= tm
.tmAscent
+ 1;
875 if (descent
>= font_height
)
876 descent
= font_height
- 1;
877 firstchar
= tm
.tmFirstChar
;
879 for (i
=0; i
<8; i
++) {
881 if (SelectObject (hdc
, fonts
[i
]) &&
882 GetTextMetrics(hdc
, &tm
) )
883 fsize
[i
] = tm
.tmAveCharWidth
+ 256 * tm
.tmHeight
;
889 ReleaseDC (hwnd
, hdc
);
891 /* ... This is wrong in OEM only mode */
892 if (fsize
[FONT_UNDERLINE
] != fsize
[FONT_NORMAL
] ||
893 (bold_mode
== BOLD_FONT
&&
894 fsize
[FONT_BOLDUND
] != fsize
[FONT_BOLD
])) {
896 DeleteObject (fonts
[FONT_UNDERLINE
]);
897 if (bold_mode
== BOLD_FONT
)
898 DeleteObject (fonts
[FONT_BOLDUND
]);
901 if (bold_mode
== BOLD_FONT
&&
902 fsize
[FONT_BOLD
] != fsize
[FONT_NORMAL
]) {
903 bold_mode
= BOLD_SHADOW
;
904 DeleteObject (fonts
[FONT_BOLD
]);
905 if (und_mode
== UND_FONT
)
906 DeleteObject (fonts
[FONT_BOLDUND
]);
910 /* With the fascist font painting it doesn't matter if the linedraw font
911 * isn't exactly the right size anymore so we don't have to check this.
913 if (cfg
.vtmode
== VT_OEMANSI
&& fsize
[FONT_OEM
] != fsize
[FONT_NORMAL
] ) {
914 if( cfg
.fontcharset
== OEM_CHARSET
)
916 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
917 "different sizes. Using OEM-only mode instead",
918 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
919 cfg
.vtmode
= VT_OEMONLY
;
921 else if( firstchar
< ' ' )
923 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
924 "different sizes. Using XTerm mode instead",
925 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
926 cfg
.vtmode
= VT_XWINDOWS
;
930 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
931 "different sizes. Using ISO8859-1 mode instead",
932 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
933 cfg
.vtmode
= VT_POORMAN
;
938 DeleteObject (fonts
[i
]);
944 void request_resize (int w
, int h
, int refont
) {
947 /* If the window is maximized supress resizing attempts */
948 if(IsZoomed(hwnd
)) return;
951 /* Don't do this in OEMANSI, you may get disable messages */
952 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132)
953 && cfg
.vtmode
!= VT_OEMANSI
)
955 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132))
958 /* If font width too big for screen should we shrink the font more ? */
960 font_width
= ((font_width
*cols
+w
/2)/w
);
967 DeleteObject(fonts
[i
]);
969 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
971 init_fonts(font_width
);
975 static int first_time
= 1;
981 /* Get the size of the screen */
982 if (GetClientRect(GetDesktopWindow(),&ss
))
983 /* first_time = 0 */;
984 else { first_time
= 2; break; }
986 /* Make sure the values are sane */
987 width
= (ss
.right
-ss
.left
-extra_width
) / font_width
;
988 height
= (ss
.bottom
-ss
.top
-extra_height
) / font_height
;
990 if (w
>width
) w
=width
;
991 if (h
>height
) h
=height
;
997 width
= extra_width
+ font_width
* w
;
998 height
= extra_height
+ font_height
* h
;
1000 SetWindowPos (hwnd
, NULL
, 0, 0, width
, height
,
1001 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1002 SWP_NOMOVE
| SWP_NOZORDER
);
1005 static void click (Mouse_Button b
, int x
, int y
) {
1006 int thistime
= GetMessageTime();
1008 if (lastbtn
== b
&& thistime
- lasttime
< dbltime
) {
1009 lastact
= (lastact
== MA_CLICK ? MA_2CLK
:
1010 lastact
== MA_2CLK ? MA_3CLK
:
1011 lastact
== MA_3CLK ? MA_CLICK
: MA_NOTHING
);
1016 if (lastact
!= MA_NOTHING
)
1017 term_mouse (b
, lastact
, x
, y
);
1018 lasttime
= thistime
;
1021 static LRESULT CALLBACK
WndProc (HWND hwnd
, UINT message
,
1022 WPARAM wParam
, LPARAM lParam
) {
1024 static int ignore_size
= FALSE
;
1025 static int ignore_clip
= FALSE
;
1026 static int just_reconfigged
= FALSE
;
1027 static int resizing
= FALSE
;
1031 if (pending_netevent
)
1032 enact_pending_netevent();
1038 if (cfg
.ping_interval
> 0)
1042 if (now
-last_movement
> cfg
.ping_interval
* 60 - 10)
1044 back
->special(TS_PING
);
1045 last_movement
= now
;
1052 if (!cfg
.warn_on_close
|| session_closed
||
1053 MessageBox(hwnd
, "Are you sure you want to close this session?",
1054 "PuTTY Exit Confirmation",
1055 MB_ICONWARNING
| MB_OKCANCEL
) == IDOK
)
1056 DestroyWindow(hwnd
);
1059 PostQuitMessage (0);
1062 switch (wParam
& ~0xF) { /* low 4 bits reserved to Windows */
1074 PROCESS_INFORMATION pi
;
1075 HANDLE filemap
= NULL
;
1077 if (wParam
== IDM_DUPSESS
) {
1079 * Allocate a file-mapping memory chunk for the
1082 SECURITY_ATTRIBUTES sa
;
1085 sa
.nLength
= sizeof(sa
);
1086 sa
.lpSecurityDescriptor
= NULL
;
1087 sa
.bInheritHandle
= TRUE
;
1088 filemap
= CreateFileMapping((HANDLE
)0xFFFFFFFF,
1095 p
= (Config
*)MapViewOfFile(filemap
,
1097 0, 0, sizeof(Config
));
1099 *p
= cfg
; /* structure copy */
1103 sprintf(c
, "putty &%p", filemap
);
1105 } else if (wParam
== IDM_SAVEDSESS
) {
1106 char *session
= sessions
[(lParam
- IDM_SAVED_MIN
) / 16];
1107 cl
= malloc(16 + strlen(session
)); /* 8, but play safe */
1109 cl
= NULL
; /* not a very important failure mode */
1111 sprintf(cl
, "putty @%s", session
);
1117 GetModuleFileName (NULL
, b
, sizeof(b
)-1);
1119 si
.lpReserved
= NULL
;
1120 si
.lpDesktop
= NULL
;
1124 si
.lpReserved2
= NULL
;
1125 CreateProcess (b
, cl
, NULL
, NULL
, TRUE
,
1126 NORMAL_PRIORITY_CLASS
, NULL
, NULL
, &si
, &pi
);
1129 CloseHandle(filemap
);
1135 if (!do_reconfig(hwnd
))
1137 just_reconfigged
= TRUE
;
1142 DeleteObject(fonts
[i
]);
1144 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
1145 und_mode
= UND_FONT
;
1148 /* Telnet will change local echo -> remote if the remote asks */
1149 if (cfg
.protocol
!= PROT_TELNET
)
1150 ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
1158 /* Enable or disable the scroll bar, etc */
1160 LONG nflg
, flag
= GetWindowLong(hwnd
, GWL_STYLE
);
1163 if (cfg
.scrollbar
) nflg
|= WS_VSCROLL
;
1164 else nflg
&= ~WS_VSCROLL
;
1166 nflg
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1168 nflg
|= (WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1174 SetWindowLong(hwnd
, GWL_STYLE
, nflg
);
1175 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1176 SetWindowPos(hwnd
, NULL
, 0,0,0,0,
1177 SWP_NOACTIVATE
|SWP_NOCOPYBITS
|
1178 SWP_NOMOVE
|SWP_NOSIZE
| SWP_NOZORDER
|
1181 GetWindowRect (hwnd
, &wr
);
1182 GetClientRect (hwnd
, &cr
);
1183 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
1184 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
1188 term_size(cfg
.height
, cfg
.width
, cfg
.savelines
);
1189 InvalidateRect(hwnd
, NULL
, TRUE
);
1190 SetWindowPos (hwnd
, NULL
, 0, 0,
1191 extra_width
+ font_width
* cfg
.width
,
1192 extra_height
+ font_height
* cfg
.height
,
1193 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1194 SWP_NOMOVE
| SWP_NOZORDER
);
1195 if (IsIconic(hwnd
)) {
1196 SetWindowText (hwnd
,
1197 cfg
.win_name_always ? window_name
: icon_name
);
1206 case IDM_TEL_AYT
: back
->special (TS_AYT
); break;
1207 case IDM_TEL_BRK
: back
->special (TS_BRK
); break;
1208 case IDM_TEL_SYNCH
: back
->special (TS_SYNCH
); break;
1209 case IDM_TEL_EC
: back
->special (TS_EC
); break;
1210 case IDM_TEL_EL
: back
->special (TS_EL
); break;
1211 case IDM_TEL_GA
: back
->special (TS_GA
); break;
1212 case IDM_TEL_NOP
: back
->special (TS_NOP
); break;
1213 case IDM_TEL_ABORT
: back
->special (TS_ABORT
); break;
1214 case IDM_TEL_AO
: back
->special (TS_AO
); break;
1215 case IDM_TEL_IP
: back
->special (TS_IP
); break;
1216 case IDM_TEL_SUSP
: back
->special (TS_SUSP
); break;
1217 case IDM_TEL_EOR
: back
->special (TS_EOR
); break;
1218 case IDM_TEL_EOF
: back
->special (TS_EOF
); break;
1223 if (wParam
>= IDM_SAVED_MIN
&& wParam
<= IDM_SAVED_MAX
) {
1224 SendMessage(hwnd
, WM_SYSCOMMAND
, IDM_SAVEDSESS
, wParam
);
1229 #define X_POS(l) ((int)(short)LOWORD(l))
1230 #define Y_POS(l) ((int)(short)HIWORD(l))
1232 #define TO_CHR_X(x) (((x)<0 ? (x)-font_width+1 : (x)) / font_width)
1233 #define TO_CHR_Y(y) (((y)<0 ? (y)-font_height+1: (y)) / font_height)
1235 case WM_LBUTTONDOWN
:
1236 click (MB_SELECT
, TO_CHR_X(X_POS(lParam
)),
1237 TO_CHR_Y(Y_POS(lParam
)));
1241 term_mouse (MB_SELECT
, MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1242 TO_CHR_Y(Y_POS(lParam
)));
1245 case WM_MBUTTONDOWN
:
1247 click (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1248 TO_CHR_X(X_POS(lParam
)),
1249 TO_CHR_Y(Y_POS(lParam
)));
1252 term_mouse (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1253 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1254 TO_CHR_Y(Y_POS(lParam
)));
1257 case WM_RBUTTONDOWN
:
1259 click (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1260 TO_CHR_X(X_POS(lParam
)),
1261 TO_CHR_Y(Y_POS(lParam
)));
1264 term_mouse (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1265 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1266 TO_CHR_Y(Y_POS(lParam
)));
1271 * Add the mouse position and message time to the random
1272 * number noise, if we're using ssh.
1274 if (cfg
.protocol
== PROT_SSH
)
1275 noise_ultralight(lParam
);
1277 if (wParam
& (MK_LBUTTON
| MK_MBUTTON
| MK_RBUTTON
)) {
1279 if (wParam
& MK_LBUTTON
)
1281 else if (wParam
& MK_MBUTTON
)
1282 b
= cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
;
1284 b
= cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
;
1285 term_mouse (b
, MA_DRAG
, TO_CHR_X(X_POS(lParam
)),
1286 TO_CHR_Y(Y_POS(lParam
)));
1289 case WM_IGNORE_CLIP
:
1290 ignore_clip
= wParam
; /* don't panic on DESTROYCLIPBOARD */
1292 case WM_DESTROYCLIPBOARD
:
1295 ignore_clip
= FALSE
;
1301 hdc
= BeginPaint (hwnd
, &p
);
1303 SelectPalette (hdc
, pal
, TRUE
);
1304 RealizePalette (hdc
);
1306 term_paint (hdc
, p
.rcPaint
.left
, p
.rcPaint
.top
,
1307 p
.rcPaint
.right
, p
.rcPaint
.bottom
);
1308 SelectObject (hdc
, GetStockObject(SYSTEM_FONT
));
1309 SelectObject (hdc
, GetStockObject(WHITE_PEN
));
1310 EndPaint (hwnd
, &p
);
1315 /* Notice we can get multiple netevents, FD_READ, FD_WRITE etc
1316 * but the only one that's likely to try to overload us is FD_READ.
1317 * This means buffering just one is fine.
1319 if (pending_netevent
)
1320 enact_pending_netevent();
1322 pending_netevent
= TRUE
;
1323 pend_netevent_wParam
=wParam
;
1324 pend_netevent_lParam
=lParam
;
1325 time(&last_movement
);
1329 CreateCaret(hwnd
, caretbm
, 0, 0);
1340 case WM_IGNORE_SIZE
:
1341 ignore_size
= TRUE
; /* don't panic on next WM_SIZE msg */
1343 case WM_ENTERSIZEMOVE
:
1347 case WM_EXITSIZEMOVE
:
1354 int width
, height
, w
, h
, ew
, eh
;
1355 LPRECT r
= (LPRECT
)lParam
;
1357 width
= r
->right
- r
->left
- extra_width
;
1358 height
= r
->bottom
- r
->top
- extra_height
;
1359 w
= (width
+ font_width
/2) / font_width
; if (w
< 1) w
= 1;
1360 h
= (height
+ font_height
/2) / font_height
; if (h
< 1) h
= 1;
1361 UpdateSizeTip(hwnd
, w
, h
);
1362 ew
= width
- w
* font_width
;
1363 eh
= height
- h
* font_height
;
1365 if (wParam
== WMSZ_LEFT
||
1366 wParam
== WMSZ_BOTTOMLEFT
||
1367 wParam
== WMSZ_TOPLEFT
)
1373 if (wParam
== WMSZ_TOP
||
1374 wParam
== WMSZ_TOPRIGHT
||
1375 wParam
== WMSZ_TOPLEFT
)
1385 /* break; (never reached) */
1387 if (wParam
== SIZE_MINIMIZED
) {
1388 SetWindowText (hwnd
,
1389 cfg
.win_name_always ? window_name
: icon_name
);
1392 if (wParam
== SIZE_RESTORED
|| wParam
== SIZE_MAXIMIZED
)
1393 SetWindowText (hwnd
, window_name
);
1395 int width
, height
, w
, h
;
1396 #if 0 /* we have fixed this using WM_SIZING now */
1400 width
= LOWORD(lParam
);
1401 height
= HIWORD(lParam
);
1402 w
= width
/ font_width
; if (w
< 1) w
= 1;
1403 h
= height
/ font_height
; if (h
< 1) h
= 1;
1404 #if 0 /* we have fixed this using WM_SIZING now */
1405 ew
= width
- w
* font_width
;
1406 eh
= height
- h
* font_height
;
1407 if (ew
!= 0 || eh
!= 0) {
1409 GetWindowRect (hwnd
, &r
);
1410 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1411 SetWindowPos (hwnd
, NULL
, 0, 0,
1412 r
.right
- r
.left
- ew
, r
.bottom
- r
.top
- eh
,
1413 SWP_NOACTIVATE
| SWP_NOMOVE
| SWP_NOZORDER
);
1416 if (w
!= cols
|| h
!= rows
|| just_reconfigged
) {
1418 term_size (h
, w
, cfg
.savelines
);
1420 * Don't call back->size in mid-resize. (To prevent
1421 * massive numbers of resize events getting sent
1422 * down the connection during an NT opaque drag.)
1426 just_reconfigged
= FALSE
;
1429 ignore_size
= FALSE
;
1432 switch (LOWORD(wParam
)) {
1433 case SB_BOTTOM
: term_scroll(-1, 0); break;
1434 case SB_TOP
: term_scroll(+1, 0); break;
1435 case SB_LINEDOWN
: term_scroll (0, +1); break;
1436 case SB_LINEUP
: term_scroll (0, -1); break;
1437 case SB_PAGEDOWN
: term_scroll (0, +rows
/2); break;
1438 case SB_PAGEUP
: term_scroll (0, -rows
/2); break;
1439 case SB_THUMBPOSITION
: case SB_THUMBTRACK
:
1440 term_scroll (1, HIWORD(wParam
)); break;
1443 case WM_PALETTECHANGED
:
1444 if ((HWND
) wParam
!= hwnd
&& pal
!= NULL
) {
1445 HDC hdc
= get_ctx();
1447 if (RealizePalette (hdc
) > 0)
1453 case WM_QUERYNEWPALETTE
:
1455 HDC hdc
= get_ctx();
1457 if (RealizePalette (hdc
) > 0)
1469 * Add the scan code and keypress timing to the random
1470 * number noise, if we're using ssh.
1472 if (cfg
.protocol
== PROT_SSH
)
1473 noise_ultralight(lParam
);
1476 * We don't do TranslateMessage since it disassociates the
1477 * resulting CHAR message from the KEYDOWN that sparked it,
1478 * which we occasionally don't want. Instead, we process
1479 * KEYDOWN, and call the Win32 translator functions so that
1480 * we get the translations under _our_ control.
1483 unsigned char buf
[20];
1486 len
= TranslateKey (message
, wParam
, lParam
, buf
);
1488 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1489 ldisc
->send (buf
, len
);
1495 * Nevertheless, we are prepared to deal with WM_CHAR
1496 * messages, should they crop up. So if someone wants to
1497 * post the things to us as part of a macro manoeuvre,
1498 * we're ready to cope.
1501 char c
= xlat_kbd2tty((unsigned char)wParam
);
1502 ldisc
->send (&c
, 1);
1507 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1511 * Move the system caret. (We maintain one, even though it's
1512 * invisible, for the benefit of blind people: apparently some
1513 * helper software tracks the system caret, so we should arrange to
1516 void sys_cursor(int x
, int y
) {
1517 SetCaretPos(x
* font_width
, y
* font_height
);
1521 * Draw a line of text in the window, at given character
1522 * coordinates, in given attributes.
1524 * We are allowed to fiddle with the contents of `text'.
1526 void do_text (Context ctx
, int x
, int y
, char *text
, int len
,
1527 unsigned long attr
, int lattr
) {
1529 int nfg
, nbg
, nfont
;
1532 int force_manual_underline
= 0;
1533 int fnt_width
= font_width
*(1+(lattr
!=LATTR_NORM
));
1534 static int *IpDx
= 0, IpDxLEN
= 0;;
1536 if (len
>IpDxLEN
|| IpDx
[0] != fnt_width
) {
1540 IpDx
= smalloc((len
+16)*sizeof(int));
1543 for(i
=0; i
<IpDxLEN
; i
++)
1544 IpDx
[i
] = fnt_width
;
1550 if (attr
& ATTR_ACTCURS
) {
1551 attr
&= (bold_mode
== BOLD_COLOURS ?
0x300200 : 0x300300);
1552 attr
^= ATTR_CUR_XOR
;
1556 if (cfg
.vtmode
== VT_OEMONLY
)
1560 * Map high-half characters in order to approximate ISO using
1561 * OEM character set. No characters are missing if the OEM codepage
1564 if (nfont
& FONT_OEM
) {
1566 for (i
=0; i
<len
; i
++)
1567 if (text
[i
] >= '\xA0' && text
[i
] <= '\xFF') {
1569 /* This is CP850 ... perfect translation */
1570 static const char oemhighhalf
[] =
1571 "\x20\xAD\xBD\x9C\xCF\xBE\xDD\xF5" /* A0-A7 */
1572 "\xF9\xB8\xA6\xAE\xAA\xF0\xA9\xEE" /* A8-AF */
1573 "\xF8\xF1\xFD\xFC\xEF\xE6\xF4\xFA" /* B0-B7 */
1574 "\xF7\xFB\xA7\xAF\xAC\xAB\xF3\xA8" /* B8-BF */
1575 "\xB7\xB5\xB6\xC7\x8E\x8F\x92\x80" /* C0-C7 */
1576 "\xD4\x90\xD2\xD3\xDE\xD6\xD7\xD8" /* C8-CF */
1577 "\xD1\xA5\xE3\xE0\xE2\xE5\x99\x9E" /* D0-D7 */
1578 "\x9D\xEB\xE9\xEA\x9A\xED\xE8\xE1" /* D8-DF */
1579 "\x85\xA0\x83\xC6\x84\x86\x91\x87" /* E0-E7 */
1580 "\x8A\x82\x88\x89\x8D\xA1\x8C\x8B" /* E8-EF */
1581 "\xD0\xA4\x95\xA2\x93\xE4\x94\xF6" /* F0-F7 */
1582 "\x9B\x97\xA3\x96\x81\xEC\xE7\x98" /* F8-FF */
1585 /* This is CP437 ... junk translation */
1586 static const unsigned char oemhighhalf
[] = {
1587 0xff, 0xad, 0x9b, 0x9c, 0x6f, 0x9d, 0x7c, 0x15,
1588 0x22, 0x43, 0xa6, 0xae, 0xaa, 0x2d, 0x52, 0xc4,
1589 0xf8, 0xf1, 0xfd, 0x33, 0x27, 0xe6, 0x14, 0xfa,
1590 0x2c, 0x31, 0xa7, 0xaf, 0xac, 0xab, 0x2f, 0xa8,
1591 0x41, 0x41, 0x41, 0x41, 0x8e, 0x8f, 0x92, 0x80,
1592 0x45, 0x90, 0x45, 0x45, 0x49, 0x49, 0x49, 0x49,
1593 0x44, 0xa5, 0x4f, 0x4f, 0x4f, 0x4f, 0x99, 0x78,
1594 0xed, 0x55, 0x55, 0x55, 0x9a, 0x59, 0x50, 0xe1,
1595 0x85, 0xa0, 0x83, 0x61, 0x84, 0x86, 0x91, 0x87,
1596 0x8a, 0x82, 0x88, 0x89, 0x8d, 0xa1, 0x8c, 0x8b,
1597 0x0b, 0xa4, 0x95, 0xa2, 0x93, 0x6f, 0x94, 0xf6,
1598 0xed, 0x97, 0xa3, 0x96, 0x81, 0x79, 0x70, 0x98
1601 text
[i
] = oemhighhalf
[(unsigned char)text
[i
] - 0xA0];
1605 if (attr
& ATTR_LINEDRW
) {
1608 static const char poorman
[] =
1609 "*#****\xB0\xB1**+++++-----++++|****\xA3\xB7";
1612 static const char oemmap_437
[] =
1613 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1614 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3\xF3\xF2\xE3*\x9C\xFA";
1617 static const char oemmap_850
[] =
1618 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1619 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1621 /* Poor windows font ... eg: windows courier */
1622 static const char oemmap
[] =
1623 "*\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1624 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1627 * Line drawing mapping: map ` thru ~ (0x60 thru 0x7E) to
1628 * VT100 line drawing chars; everything else stays normal.
1630 * Actually '_' maps to space too, but that's done before.
1632 switch (cfg
.vtmode
) {
1634 for (i
=0; i
<len
; i
++)
1635 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1636 text
[i
] += '\x01' - '\x60';
1639 /* Make sure we actually have an OEM font */
1640 if (fonts
[nfont
|FONT_OEM
]) {
1643 for (i
=0; i
<len
; i
++)
1644 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1645 text
[i
] = oemmap
[(unsigned char)text
[i
] - 0x60];
1649 for (i
=0; i
<len
; i
++)
1650 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1651 text
[i
] = poorman
[(unsigned char)text
[i
] - 0x60];
1656 nfg
= 2 * ((attr
& ATTR_FGMASK
) >> ATTR_FGSHIFT
);
1657 nbg
= 2 * ((attr
& ATTR_BGMASK
) >> ATTR_BGSHIFT
);
1658 if (bold_mode
== BOLD_FONT
&& (attr
& ATTR_BOLD
))
1660 if (und_mode
== UND_FONT
&& (attr
& ATTR_UNDER
))
1661 nfont
|= FONT_UNDERLINE
;
1664 if (nfont
&FONT_UNDERLINE
)
1665 force_manual_underline
= 1;
1666 /* Don't do the same for manual bold, it could be bad news. */
1668 nfont
&= ~(FONT_BOLD
|FONT_UNDERLINE
);
1670 if (font_needs_hand_underlining
&& (attr
& ATTR_UNDER
))
1671 force_manual_underline
= 1;
1672 if (attr
& ATTR_REVERSE
) {
1673 t
= nfg
; nfg
= nbg
; nbg
= t
;
1675 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BOLD
))
1677 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BLINK
))
1681 SelectObject (hdc
, fonts
[nfont
]);
1682 SetTextColor (hdc
, fg
);
1683 SetBkColor (hdc
, bg
);
1684 SetBkMode (hdc
, OPAQUE
);
1687 line_box
.right
= x
+fnt_width
*len
;
1688 line_box
.bottom
= y
+font_height
;
1689 ExtTextOut (hdc
, x
, y
, ETO_CLIPPED
|ETO_OPAQUE
, &line_box
, text
, len
, IpDx
);
1690 if (bold_mode
== BOLD_SHADOW
&& (attr
& ATTR_BOLD
)) {
1691 SetBkMode (hdc
, TRANSPARENT
);
1693 /* GRR: This draws the character outside it's box and can leave
1694 * 'droppings' even with the clip box! I suppose I could loop it
1695 * one character at a time ... yuk.
1697 * Or ... I could do a test print with "W", and use +1 or -1 for this
1698 * shift depending on if the leftmost column is blank...
1700 ExtTextOut (hdc
, x
-1, y
, ETO_CLIPPED
, &line_box
, text
, len
, IpDx
);
1702 if (force_manual_underline
||
1703 (und_mode
== UND_LINE
&& (attr
& ATTR_UNDER
))) {
1705 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, fg
));
1706 MoveToEx (hdc
, x
, y
+descent
, NULL
);
1707 LineTo (hdc
, x
+len
*fnt_width
, y
+descent
);
1708 oldpen
= SelectObject (hdc
, oldpen
);
1709 DeleteObject (oldpen
);
1711 if (attr
& ATTR_PASCURS
) {
1714 pts
[0].x
= pts
[1].x
= pts
[4].x
= x
;
1715 pts
[2].x
= pts
[3].x
= x
+fnt_width
-1;
1716 pts
[0].y
= pts
[3].y
= pts
[4].y
= y
;
1717 pts
[1].y
= pts
[2].y
= y
+font_height
-1;
1718 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, colours
[23]));
1719 Polyline (hdc
, pts
, 5);
1720 oldpen
= SelectObject (hdc
, oldpen
);
1721 DeleteObject (oldpen
);
1725 static int check_compose(int first
, int second
) {
1727 static char * composetbl
[] = {
1728 "++#", "AA@", "(([", "//\\", "))]", "(-{", "-)}", "/^|", "!!¡", "C/¢",
1729 "C|¢", "L-£", "L=£", "XO¤", "X0¤", "Y-¥", "Y=¥", "||¦", "SO§", "S!§",
1730 "S0§", "\"\"¨", "CO©", "C0©", "A_ª", "<<«", ",-¬", "--", "RO®",
1731 "-^¯", "0^°", "+-±", "2^²", "3^³", "''´", "/Uµ", "P!¶", ".^·", ",,¸",
1732 "1^¹", "O_º", ">>»", "14¼", "12½", "34¾", "??¿", "`AÀ", "'AÁ", "^AÂ",
1733 "~AÃ", "\"AÄ", "*AÅ", "AEÆ", ",CÇ", "`EÈ", "'EÉ", "^EÊ", "\"EË",
1734 "`IÌ", "'IÍ", "^IÎ", "\"IÏ", "-DÐ", "~NÑ", "`OÒ", "'OÓ", "^OÔ",
1735 "~OÕ", "\"OÖ", "XX×", "/OØ", "`UÙ", "'UÚ", "^UÛ", "\"UÜ", "'YÝ",
1736 "HTÞ", "ssß", "`aà", "'aá", "^aâ", "~aã", "\"aä", "*aå", "aeæ", ",cç",
1737 "`eè", "'eé", "^eê", "\"eë", "`iì", "'ií", "^iî", "\"iï", "-dð", "~nñ",
1738 "`oò", "'oó", "^oô", "~oõ", "\"oö", ":-÷", "o/ø", "`uù", "'uú", "^uû",
1739 "\"uü", "'yý", "htþ", "\"yÿ",
1743 static int recurse
= 0;
1750 sprintf(buf
, "cc(%d,%d)", first
, second
);
1755 for(c
=composetbl
; *c
; c
++) {
1756 if( (*c
)[0] == first
&& (*c
)[1] == second
)
1758 return (*c
)[2] & 0xFF;
1765 nc
= check_compose(second
, first
);
1767 nc
= check_compose(toupper(first
), toupper(second
));
1769 nc
= check_compose(toupper(second
), toupper(first
));
1777 * Translate a WM_(SYS)?KEY(UP|DOWN) message into a string of ASCII
1778 * codes. Returns number of bytes used or zero to drop the message
1779 * or -1 to forward the message to windows.
1781 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
, unsigned char *output
) {
1783 int scan
, left_alt
= 0, key_down
, shift_state
;
1785 unsigned char * p
= output
;
1787 static WORD keys
[3];
1788 static int compose_state
= 0;
1789 static int compose_char
= 0;
1790 static WPARAM compose_key
= 0;
1792 r
= GetKeyboardState(keystate
);
1793 if (!r
) memset(keystate
, 0, sizeof(keystate
));
1797 { /* Tell us all about key events */
1798 static BYTE oldstate
[256];
1799 static int first
= 1;
1802 if(first
) memcpy(oldstate
, keystate
, sizeof(oldstate
));
1805 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
) {
1807 } else if ((HIWORD(lParam
)&KF_UP
) && scan
==(HIWORD(lParam
) & 0xFF) ) {
1811 if (wParam
>= VK_F1
&& wParam
<= VK_F20
)
1812 debug(("K_F%d", wParam
+1-VK_F1
));
1815 case VK_SHIFT
: debug(("SHIFT")); break;
1816 case VK_CONTROL
: debug(("CTRL")); break;
1817 case VK_MENU
: debug(("ALT")); break;
1818 default: debug(("VK_%02x", wParam
));
1820 if(message
== WM_SYSKEYDOWN
|| message
== WM_SYSKEYUP
)
1822 debug((", S%02x", scan
=(HIWORD(lParam
) & 0xFF) ));
1824 ch
= MapVirtualKey(wParam
, 2);
1825 if (ch
>=' ' && ch
<='~') debug((", '%c'", ch
));
1826 else if (ch
) debug((", $%02x", ch
));
1828 if (keys
[0]) debug((", KB0=%02x", keys
[0]));
1829 if (keys
[1]) debug((", KB1=%02x", keys
[1]));
1830 if (keys
[2]) debug((", KB2=%02x", keys
[2]));
1832 if ( (keystate
[VK_SHIFT
]&0x80)!=0) debug((", S"));
1833 if ( (keystate
[VK_CONTROL
]&0x80)!=0) debug((", C"));
1834 if ( (HIWORD(lParam
)&KF_EXTENDED
) ) debug((", E"));
1835 if ( (HIWORD(lParam
)&KF_UP
) ) debug((", U"));
1838 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1840 else if ( (HIWORD(lParam
)&KF_UP
) )
1841 oldstate
[wParam
&0xFF] ^= 0x80;
1843 oldstate
[wParam
&0xFF] ^= 0x81;
1845 for(ch
=0; ch
<256; ch
++)
1846 if (oldstate
[ch
] != keystate
[ch
])
1847 debug((", M%02x=%02x", ch
, keystate
[ch
]));
1849 memcpy(oldstate
, keystate
, sizeof(oldstate
));
1853 /* Note if AltGr was pressed and if it was used as a compose key */
1854 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
))
1856 keystate
[VK_RMENU
] = keystate
[VK_MENU
];
1857 if (!compose_state
) compose_key
= wParam
;
1859 if (wParam
== VK_APPS
&& !compose_state
)
1860 compose_key
= wParam
;
1862 if (wParam
== compose_key
)
1864 if (compose_state
== 0 && (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1866 else if (compose_state
== 1 && (HIWORD(lParam
)&KF_UP
))
1871 else if (compose_state
==1 && wParam
!= VK_CONTROL
)
1874 /* Nastyness with NUMLock - Shift-NUMLock is left alone though */
1875 if ( (cfg
.funky_type
== 3 || (cfg
.funky_type
<= 1 && app_keypad_keys
))
1876 && wParam
==VK_NUMLOCK
&& !(keystate
[VK_SHIFT
]&0x80)) {
1878 wParam
= VK_EXECUTE
;
1880 /* UnToggle NUMLock */
1881 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1882 keystate
[VK_NUMLOCK
] ^= 1;
1885 /* And write back the 'adjusted' state */
1886 SetKeyboardState (keystate
);
1889 /* Disable Auto repeat if required */
1890 if (repeat_off
&& (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1893 if ((HIWORD(lParam
)&KF_ALTDOWN
) && (keystate
[VK_RMENU
]&0x80) == 0)
1896 key_down
= ((HIWORD(lParam
)&KF_UP
)==0);
1898 /* Make sure Ctrl-ALT is not the same as AltGr for ToAscii */
1899 if (left_alt
&& (keystate
[VK_CONTROL
]&0x80))
1900 keystate
[VK_MENU
] = 0;
1902 scan
= (HIWORD(lParam
) & (KF_UP
| KF_EXTENDED
| 0xFF));
1903 shift_state
= ((keystate
[VK_SHIFT
]&0x80)!=0)
1904 + ((keystate
[VK_CONTROL
]&0x80)!=0)*2;
1907 * Record that we pressed key so the scroll window can be reset, but
1908 * be careful to avoid Shift-UP/Down
1910 if( wParam
!= VK_SHIFT
&& wParam
!= VK_PRIOR
&& wParam
!= VK_NEXT
) {
1914 /* Make sure we're not pasting */
1915 if (key_down
) term_nopaste();
1917 if (compose_state
>1 && left_alt
) compose_state
= 0;
1919 /* Sanitize the number pad if not using a PC NumPad */
1920 if( left_alt
|| (app_keypad_keys
&& cfg
.funky_type
!= 2)
1921 || cfg
.funky_type
== 3 || cfg
.nethack_keypad
|| compose_state
)
1923 if ((HIWORD(lParam
)&KF_EXTENDED
) == 0)
1928 case VK_INSERT
: nParam
= VK_NUMPAD0
; break;
1929 case VK_END
: nParam
= VK_NUMPAD1
; break;
1930 case VK_DOWN
: nParam
= VK_NUMPAD2
; break;
1931 case VK_NEXT
: nParam
= VK_NUMPAD3
; break;
1932 case VK_LEFT
: nParam
= VK_NUMPAD4
; break;
1933 case VK_CLEAR
: nParam
= VK_NUMPAD5
; break;
1934 case VK_RIGHT
: nParam
= VK_NUMPAD6
; break;
1935 case VK_HOME
: nParam
= VK_NUMPAD7
; break;
1936 case VK_UP
: nParam
= VK_NUMPAD8
; break;
1937 case VK_PRIOR
: nParam
= VK_NUMPAD9
; break;
1938 case VK_DELETE
: nParam
= VK_DECIMAL
; break;
1942 if (keystate
[VK_NUMLOCK
]&1) shift_state
|= 1;
1948 /* If a key is pressed and AltGr is not active */
1949 if (key_down
&& (keystate
[VK_RMENU
]&0x80) == 0 && !compose_state
)
1951 /* Okay, prepare for most alts then ...*/
1952 if (left_alt
) *p
++ = '\033';
1954 /* Lets see if it's a pattern we know all about ... */
1955 if (wParam
== VK_PRIOR
&& shift_state
== 1) {
1956 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEUP
, 0);
1959 if (wParam
== VK_NEXT
&& shift_state
== 1) {
1960 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEDOWN
, 0);
1963 if (wParam
== VK_INSERT
&& shift_state
== 1) {
1964 term_mouse (MB_PASTE
, MA_CLICK
, 0, 0);
1965 term_mouse (MB_PASTE
, MA_RELEASE
, 0, 0);
1968 if (left_alt
&& wParam
== VK_F4
&& cfg
.alt_f4
) {
1971 if (left_alt
&& wParam
== VK_SPACE
&& cfg
.alt_space
) {
1973 SendMessage (hwnd
, WM_SYSCOMMAND
, SC_KEYMENU
, 0);
1976 /* Control-Numlock for app-keypad mode switch */
1977 if (wParam
== VK_PAUSE
&& shift_state
== 2) {
1978 app_keypad_keys
^= 1;
1982 /* Nethack keypad */
1983 if (cfg
.nethack_keypad
&& !left_alt
) {
1985 case VK_NUMPAD1
: *p
++ = shift_state ?
'B': 'b'; return p
-output
;
1986 case VK_NUMPAD2
: *p
++ = shift_state ?
'J': 'j'; return p
-output
;
1987 case VK_NUMPAD3
: *p
++ = shift_state ?
'N': 'n'; return p
-output
;
1988 case VK_NUMPAD4
: *p
++ = shift_state ?
'H': 'h'; return p
-output
;
1989 case VK_NUMPAD5
: *p
++ = shift_state ?
'.': '.'; return p
-output
;
1990 case VK_NUMPAD6
: *p
++ = shift_state ?
'L': 'l'; return p
-output
;
1991 case VK_NUMPAD7
: *p
++ = shift_state ?
'Y': 'y'; return p
-output
;
1992 case VK_NUMPAD8
: *p
++ = shift_state ?
'K': 'k'; return p
-output
;
1993 case VK_NUMPAD9
: *p
++ = shift_state ?
'U': 'u'; return p
-output
;
1997 /* Application Keypad */
2001 if ( cfg
.funky_type
== 3 ||
2002 ( cfg
.funky_type
<= 1 && app_keypad_keys
)) switch(wParam
) {
2003 case VK_EXECUTE
: xkey
= 'P'; break;
2004 case VK_DIVIDE
: xkey
= 'Q'; break;
2005 case VK_MULTIPLY
:xkey
= 'R'; break;
2006 case VK_SUBTRACT
:xkey
= 'S'; break;
2008 if(app_keypad_keys
) switch(wParam
) {
2009 case VK_NUMPAD0
: xkey
= 'p'; break;
2010 case VK_NUMPAD1
: xkey
= 'q'; break;
2011 case VK_NUMPAD2
: xkey
= 'r'; break;
2012 case VK_NUMPAD3
: xkey
= 's'; break;
2013 case VK_NUMPAD4
: xkey
= 't'; break;
2014 case VK_NUMPAD5
: xkey
= 'u'; break;
2015 case VK_NUMPAD6
: xkey
= 'v'; break;
2016 case VK_NUMPAD7
: xkey
= 'w'; break;
2017 case VK_NUMPAD8
: xkey
= 'x'; break;
2018 case VK_NUMPAD9
: xkey
= 'y'; break;
2020 case VK_DECIMAL
: xkey
= 'n'; break;
2021 case VK_ADD
: if(cfg
.funky_type
==2) {
2022 if(shift_state
) xkey
= 'l';
2024 } else if(shift_state
) xkey
= 'm';
2028 case VK_DIVIDE
: if(cfg
.funky_type
==2) xkey
= 'o'; break;
2029 case VK_MULTIPLY
:if(cfg
.funky_type
==2) xkey
= 'j'; break;
2030 case VK_SUBTRACT
:if(cfg
.funky_type
==2) xkey
= 'm'; break;
2033 if (HIWORD(lParam
)&KF_EXTENDED
)
2041 if (xkey
>='P' && xkey
<='S')
2042 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2044 p
+= sprintf((char *)p
, "\x1B?%c", xkey
);
2047 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2052 if (wParam
== VK_BACK
&& shift_state
== 0 ) /* Backspace */
2054 *p
++ = (cfg
.bksp_is_delete ?
0x7F : 0x08);
2057 if (wParam
== VK_TAB
&& shift_state
== 1 ) /* Shift tab */
2059 *p
++ = 0x1B; *p
++ = '['; *p
++ = 'Z'; return p
- output
;
2061 if (wParam
== VK_SPACE
&& shift_state
== 2 ) /* Ctrl-Space */
2063 *p
++ = 0; return p
- output
;
2065 if (wParam
== VK_SPACE
&& shift_state
== 3 ) /* Ctrl-Shift-Space */
2067 *p
++ = 160; return p
- output
;
2069 if (wParam
== VK_CANCEL
&& shift_state
== 2 ) /* Ctrl-Break */
2071 *p
++ = 3; return p
- output
;
2073 /* Control-2 to Control-8 are special */
2074 if (shift_state
== 2 && wParam
>= '2' && wParam
<= '8')
2076 *p
++ = "\000\033\034\035\036\037\177"[wParam
-'2'];
2079 if (shift_state
== 2 && wParam
== 0xBD) {
2083 if (shift_state
== 2 && wParam
== 0xDF) {
2087 if (shift_state
== 0 && wParam
== VK_RETURN
&& cr_lf_return
) {
2088 *p
++ = '\r'; *p
++ = '\n';
2093 * Next, all the keys that do tilde codes. (ESC '[' nn '~',
2094 * for integer decimal nn.)
2096 * We also deal with the weird ones here. Linux VCs replace F1
2097 * to F5 by ESC [ [ A to ESC [ [ E. rxvt doesn't do _that_, but
2098 * does replace Home and End (1~ and 4~) by ESC [ H and ESC O w
2103 case VK_F1
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
23 : 11); break;
2104 case VK_F2
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
24 : 12); break;
2105 case VK_F3
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
25 : 13); break;
2106 case VK_F4
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
26 : 14); break;
2107 case VK_F5
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
28 : 15); break;
2108 case VK_F6
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
29 : 17); break;
2109 case VK_F7
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
31 : 18); break;
2110 case VK_F8
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
32 : 19); break;
2111 case VK_F9
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
33 : 20); break;
2112 case VK_F10
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
34 : 21); break;
2113 case VK_F11
: code
= 23; break;
2114 case VK_F12
: code
= 24; break;
2115 case VK_F13
: code
= 25; break;
2116 case VK_F14
: code
= 26; break;
2117 case VK_F15
: code
= 28; break;
2118 case VK_F16
: code
= 29; break;
2119 case VK_F17
: code
= 31; break;
2120 case VK_F18
: code
= 32; break;
2121 case VK_F19
: code
= 33; break;
2122 case VK_F20
: code
= 34; break;
2123 case VK_HOME
: code
= 1; break;
2124 case VK_INSERT
: code
= 2; break;
2125 case VK_DELETE
: code
= 3; break;
2126 case VK_END
: code
= 4; break;
2127 case VK_PRIOR
: code
= 5; break;
2128 case VK_NEXT
: code
= 6; break;
2130 /* Reorder edit keys to physical order */
2131 if (cfg
.funky_type
== 3 && code
<= 6 ) code
= "\0\2\1\4\5\3\6"[code
];
2133 if (cfg
.funky_type
== 1 && code
>= 11 && code
<= 15) {
2134 p
+= sprintf((char *)p
, "\x1B[[%c", code
+ 'A' - 11);
2137 if (cfg
.funky_type
== 2 && code
>= 11 && code
<= 14) {
2139 p
+= sprintf((char *)p
, "\x1B%c", code
+ 'P' - 11);
2141 p
+= sprintf((char *)p
, "\x1BO%c", code
+ 'P' - 11);
2144 if (cfg
.rxvt_homeend
&& (code
== 1 || code
== 4)) {
2145 p
+= sprintf((char *)p
, code
== 1 ?
"\x1B[H" : "\x1BOw");
2149 p
+= sprintf((char *)p
, "\x1B[%d~", code
);
2154 * Now the remaining keys (arrows and Keypad 5. Keypad 5 for
2155 * some reason seems to send VK_CLEAR to Windows...).
2160 case VK_UP
: xkey
= 'A'; break;
2161 case VK_DOWN
: xkey
= 'B'; break;
2162 case VK_RIGHT
: xkey
= 'C'; break;
2163 case VK_LEFT
: xkey
= 'D'; break;
2164 case VK_CLEAR
: xkey
= 'G'; break;
2169 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2170 else if (app_cursor_keys
)
2171 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2173 p
+= sprintf((char *)p
, "\x1B[%c", xkey
);
2179 * Finally, deal with Return ourselves. (Win95 seems to
2180 * foul it up when Alt is pressed, for some reason.)
2182 if (wParam
== VK_RETURN
) /* Return */
2189 /* Okay we've done everything interesting; let windows deal with
2190 * the boring stuff */
2192 BOOL capsOn
=keystate
[VK_CAPITAL
] !=0;
2194 /* helg: clear CAPS LOCK state if caps lock switches to cyrillic */
2195 if(cfg
.xlat_capslockcyr
)
2196 keystate
[VK_CAPITAL
] = 0;
2198 r
= ToAscii (wParam
, scan
, keystate
, keys
, 0);
2204 unsigned char ch
= (unsigned char)keys
[i
];
2206 if (compose_state
==2 && (ch
&0x80) == 0 && ch
>' ') {
2211 if (compose_state
==3 && (ch
&0x80) == 0 && ch
>' ') {
2215 if ((nc
=check_compose(compose_char
,ch
)) == -1)
2220 *p
++ = xlat_kbd2tty((unsigned char)nc
);
2226 if( left_alt
&& key_down
) *p
++ = '\033';
2232 ch
= xlat_latkbd2win(ch
);
2233 *p
++ = xlat_kbd2tty(ch
);
2237 /* This is so the ALT-Numpad and dead keys work correctly. */
2244 /* This stops ALT press-release doing a 'COMMAND MENU' function */
2245 if (message
== WM_SYSKEYUP
&& wParam
== VK_MENU
)
2251 void set_title (char *title
) {
2252 sfree (window_name
);
2253 window_name
= smalloc(1+strlen(title
));
2254 strcpy (window_name
, title
);
2255 if (cfg
.win_name_always
|| !IsIconic(hwnd
))
2256 SetWindowText (hwnd
, title
);
2259 void set_icon (char *title
) {
2261 icon_name
= smalloc(1+strlen(title
));
2262 strcpy (icon_name
, title
);
2263 if (!cfg
.win_name_always
&& IsIconic(hwnd
))
2264 SetWindowText (hwnd
, title
);
2267 void set_sbar (int total
, int start
, int page
) {
2270 if (!cfg
.scrollbar
) return;
2272 si
.cbSize
= sizeof(si
);
2273 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
2275 si
.nMax
= total
- 1;
2279 SetScrollInfo (hwnd
, SB_VERT
, &si
, TRUE
);
2282 Context
get_ctx(void) {
2287 SelectPalette (hdc
, pal
, FALSE
);
2293 void free_ctx (Context ctx
) {
2294 SelectPalette (ctx
, GetStockObject (DEFAULT_PALETTE
), FALSE
);
2295 ReleaseDC (hwnd
, ctx
);
2298 static void real_palette_set (int n
, int r
, int g
, int b
) {
2300 logpal
->palPalEntry
[n
].peRed
= r
;
2301 logpal
->palPalEntry
[n
].peGreen
= g
;
2302 logpal
->palPalEntry
[n
].peBlue
= b
;
2303 logpal
->palPalEntry
[n
].peFlags
= PC_NOCOLLAPSE
;
2304 colours
[n
] = PALETTERGB(r
, g
, b
);
2305 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2307 colours
[n
] = RGB(r
, g
, b
);
2310 void palette_set (int n
, int r
, int g
, int b
) {
2311 static const int first
[21] = {
2312 0, 2, 4, 6, 8, 10, 12, 14,
2313 1, 3, 5, 7, 9, 11, 13, 15,
2316 real_palette_set (first
[n
], r
, g
, b
);
2318 real_palette_set (first
[n
]+1, r
, g
, b
);
2320 HDC hdc
= get_ctx();
2321 UnrealizeObject (pal
);
2322 RealizePalette (hdc
);
2327 void palette_reset (void) {
2330 for (i
= 0; i
< NCOLOURS
; i
++) {
2332 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
2333 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
2334 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
2335 logpal
->palPalEntry
[i
].peFlags
= 0;
2336 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
2337 defpal
[i
].rgbtGreen
,
2338 defpal
[i
].rgbtBlue
);
2340 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
2341 defpal
[i
].rgbtGreen
,
2342 defpal
[i
].rgbtBlue
);
2347 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2349 RealizePalette (hdc
);
2354 void write_clip (void *data
, int len
, int must_deselect
) {
2358 clipdata
= GlobalAlloc (GMEM_DDESHARE
| GMEM_MOVEABLE
, len
+ 1);
2361 lock
= GlobalLock (clipdata
);
2364 memcpy (lock
, data
, len
);
2365 ((unsigned char *) lock
) [len
] = 0;
2366 GlobalUnlock (clipdata
);
2369 SendMessage (hwnd
, WM_IGNORE_CLIP
, TRUE
, 0);
2371 if (OpenClipboard (hwnd
)) {
2373 SetClipboardData (CF_TEXT
, clipdata
);
2376 GlobalFree (clipdata
);
2379 SendMessage (hwnd
, WM_IGNORE_CLIP
, FALSE
, 0);
2382 void get_clip (void **p
, int *len
) {
2383 static HGLOBAL clipdata
= NULL
;
2387 GlobalUnlock (clipdata
);
2391 if (OpenClipboard (NULL
)) {
2392 clipdata
= GetClipboardData (CF_TEXT
);
2395 *p
= GlobalLock (clipdata
);
2409 * Move `lines' lines from position `from' to position `to' in the
2412 void optimised_move (int to
, int from
, int lines
) {
2416 min
= (to
< from ? to
: from
);
2417 max
= to
+ from
- min
;
2419 r
.left
= 0; r
.right
= cols
* font_width
;
2420 r
.top
= min
* font_height
; r
.bottom
= (max
+lines
) * font_height
;
2421 ScrollWindow (hwnd
, 0, (to
- from
) * font_height
, &r
, &r
);
2425 * Print a message box and perform a fatal exit.
2427 void fatalbox(char *fmt
, ...) {
2432 vsprintf(stuff
, fmt
, ap
);
2434 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
2441 void beep(int errorbeep
) {
2442 static long last_beep
= 0;
2443 long now
, beep_diff
;
2445 now
= GetTickCount();
2446 beep_diff
= now
-last_beep
;
2448 /* Make sure we only respond to one beep per packet or so */
2449 if (beep_diff
>=0 && beep_diff
<50)
2453 MessageBeep(MB_ICONHAND
);
2457 last_beep
= GetTickCount();