15 #define PUTTY_DO_GLOBALS /* actually _define_ globals */
21 #define IDM_SHOWLOG 0x0010
22 #define IDM_NEWSESS 0x0020
23 #define IDM_DUPSESS 0x0030
24 #define IDM_RECONF 0x0040
25 #define IDM_CLRSB 0x0050
26 #define IDM_RESET 0x0060
27 #define IDM_TEL_AYT 0x0070
28 #define IDM_TEL_BRK 0x0080
29 #define IDM_TEL_SYNCH 0x0090
30 #define IDM_TEL_EC 0x00a0
31 #define IDM_TEL_EL 0x00b0
32 #define IDM_TEL_GA 0x00c0
33 #define IDM_TEL_NOP 0x00d0
34 #define IDM_TEL_ABORT 0x00e0
35 #define IDM_TEL_AO 0x00f0
36 #define IDM_TEL_IP 0x0100
37 #define IDM_TEL_SUSP 0x0110
38 #define IDM_TEL_EOR 0x0120
39 #define IDM_TEL_EOF 0x0130
40 #define IDM_ABOUT 0x0140
41 #define IDM_SAVEDSESS 0x0150
43 #define IDM_SAVED_MIN 0x1000
44 #define IDM_SAVED_MAX 0x2000
46 #define WM_IGNORE_SIZE (WM_XUSER + 1)
47 #define WM_IGNORE_CLIP (WM_XUSER + 2)
49 /* Needed for Chinese support and apparently not always defined. */
51 #define VK_PROCESSKEY 0xE5
54 static LRESULT CALLBACK
WndProc (HWND
, UINT
, WPARAM
, LPARAM
);
55 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
, unsigned char *output
);
56 static void cfgtopalette(void);
57 static void init_palette(void);
58 static void init_fonts(int);
60 static int extra_width
, extra_height
;
62 static int pending_netevent
= 0;
63 static WPARAM pend_netevent_wParam
= 0;
64 static LPARAM pend_netevent_lParam
= 0;
65 static void enact_pending_netevent(void);
67 static time_t last_movement
= 0;
71 #define FONT_UNDERLINE 2
72 #define FONT_BOLDUND 3
74 #define FONT_OEMBOLD 5
75 #define FONT_OEMBOLDUND 6
77 static HFONT fonts
[8];
78 static int font_needs_hand_underlining
;
80 BOLD_COLOURS
, BOLD_SHADOW
, BOLD_FONT
88 static COLORREF colours
[NCOLOURS
];
90 static LPLOGPALETTE logpal
;
91 static RGBTRIPLE defpal
[NCOLOURS
];
95 static HBITMAP caretbm
;
97 static int dbltime
, lasttime
, lastact
;
98 static Mouse_Button lastbtn
;
100 static char *window_name
, *icon_name
;
102 static Ldisc
*real_ldisc
;
104 void begin_session(void) {
108 int WINAPI
WinMain(HINSTANCE inst
, HINSTANCE prev
, LPSTR cmdline
, int show
) {
109 static char appname
[] = "PuTTY";
114 int guess_width
, guess_height
;
117 flags
= FLAG_VERBOSE
| FLAG_INTERACTIVE
;
119 winsock_ver
= MAKEWORD(1, 1);
120 if (WSAStartup(winsock_ver
, &wsadata
)) {
121 MessageBox(NULL
, "Unable to initialise WinSock", "WinSock Error",
122 MB_OK
| MB_ICONEXCLAMATION
);
125 if (LOBYTE(wsadata
.wVersion
) != 1 || HIBYTE(wsadata
.wVersion
) != 1) {
126 MessageBox(NULL
, "WinSock version is incompatible with 1.1",
127 "WinSock Error", MB_OK
| MB_ICONEXCLAMATION
);
131 /* WISHLIST: maybe allow config tweaking even if winsock not present? */
134 InitCommonControls();
136 /* Ensure a Maximize setting in Explorer doesn't maximise the
141 * Process the command line.
146 default_protocol
= DEFAULT_PROTOCOL
;
147 default_port
= DEFAULT_PORT
;
149 do_defaults(NULL
, &cfg
);
152 while (*p
&& isspace(*p
)) p
++;
155 * Process command line options first. Yes, this can be
156 * done better, and it will be as soon as I have the
160 char *q
= p
+ strcspn(p
, " \t");
163 tolower(p
[0]) == 's' &&
164 tolower(p
[1]) == 's' &&
165 tolower(p
[2]) == 'h') {
166 default_protocol
= cfg
.protocol
= PROT_SSH
;
167 default_port
= cfg
.port
= 22;
168 } else if (q
== p
+ 3 &&
169 tolower(p
[0]) == 'l' &&
170 tolower(p
[1]) == 'o' &&
171 tolower(p
[2]) == 'g') {
172 logfile
= "putty.log";
173 } else if (q
== p
+ 7 &&
174 tolower(p
[0]) == 'c' &&
175 tolower(p
[1]) == 'l' &&
176 tolower(p
[2]) == 'e' &&
177 tolower(p
[3]) == 'a' &&
178 tolower(p
[4]) == 'n' &&
179 tolower(p
[5]) == 'u' &&
180 tolower(p
[6]) == 'p') {
182 * `putty -cleanup'. Remove all registry entries
183 * associated with PuTTY, and also find and delete
184 * the random seed file.
187 "This procedure will remove ALL Registry\n"
188 "entries associated with PuTTY, and will\n"
189 "also remove the PuTTY random seed file.\n"
191 "THIS PROCESS WILL DESTROY YOUR SAVED\n"
192 "SESSIONS. Are you really sure you want\n"
195 MB_YESNO
| MB_ICONWARNING
) == IDYES
) {
200 p
= q
+ strspn(q
, " \t");
204 * An initial @ means to activate a saved session.
208 while (i
> 1 && isspace(p
[i
-1]))
211 do_defaults (p
+1, &cfg
);
212 if (!*cfg
.host
&& !do_config()) {
216 } else if (*p
== '&') {
218 * An initial & means we've been given a command line
219 * containing the hex value of a HANDLE for a file
220 * mapping object, which we must then extract as a
225 if (sscanf(p
+1, "%p", &filemap
) == 1 &&
226 (cp
= MapViewOfFile(filemap
, FILE_MAP_READ
,
227 0, 0, sizeof(Config
))) != NULL
) {
230 CloseHandle(filemap
);
231 } else if (!do_config()) {
238 * If the hostname starts with "telnet:", set the
239 * protocol to Telnet and process the string as a
242 if (!strncmp(q
, "telnet:", 7)) {
246 if (q
[0] == '/' && q
[1] == '/')
248 cfg
.protocol
= PROT_TELNET
;
250 while (*p
&& *p
!= ':' && *p
!= '/') p
++;
258 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
259 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
261 while (*p
&& !isspace(*p
)) p
++;
264 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
265 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
266 while (*p
&& isspace(*p
)) p
++;
279 /* See if host is of the form user@host */
280 if (cfg
.host
[0] != '\0') {
281 char *atsign
= strchr(cfg
.host
, '@');
282 /* Make sure we're not overflowing the user field */
284 if (atsign
-cfg
.host
< sizeof cfg
.username
) {
285 strncpy (cfg
.username
, cfg
.host
, atsign
-cfg
.host
);
286 cfg
.username
[atsign
-cfg
.host
] = '\0';
288 memmove(cfg
.host
, atsign
+1, 1+strlen(atsign
+1));
294 * Select protocol. This is farmed out into a table in a
295 * separate file to enable an ssh-free variant.
300 for (i
= 0; backends
[i
].backend
!= NULL
; i
++)
301 if (backends
[i
].protocol
== cfg
.protocol
) {
302 back
= backends
[i
].backend
;
306 MessageBox(NULL
, "Unsupported protocol number found",
307 "PuTTY Internal Error", MB_OK
| MB_ICONEXCLAMATION
);
313 real_ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
314 /* To start with, we use the simple line discipline, so we can
315 * type passwords etc without fear of them being echoed... */
316 ldisc
= &ldisc_simple
;
320 wndclass
.lpfnWndProc
= WndProc
;
321 wndclass
.cbClsExtra
= 0;
322 wndclass
.cbWndExtra
= 0;
323 wndclass
.hInstance
= inst
;
324 wndclass
.hIcon
= LoadIcon (inst
,
325 MAKEINTRESOURCE(IDI_MAINICON
));
326 wndclass
.hCursor
= LoadCursor (NULL
, IDC_IBEAM
);
327 wndclass
.hbrBackground
= GetStockObject (BLACK_BRUSH
);
328 wndclass
.lpszMenuName
= NULL
;
329 wndclass
.lpszClassName
= appname
;
331 RegisterClass (&wndclass
);
336 savelines
= cfg
.savelines
;
342 * Guess some defaults for the window size. This all gets
343 * updated later, so we don't really care too much. However, we
344 * do want the font width/height guesses to correspond to a
345 * large font rather than a small one...
352 term_size (cfg
.height
, cfg
.width
, cfg
.savelines
);
353 guess_width
= extra_width
+ font_width
* cols
;
354 guess_height
= extra_height
+ font_height
* rows
;
357 HWND w
= GetDesktopWindow();
358 GetWindowRect (w
, &r
);
359 if (guess_width
> r
.right
- r
.left
)
360 guess_width
= r
.right
- r
.left
;
361 if (guess_height
> r
.bottom
- r
.top
)
362 guess_height
= r
.bottom
- r
.top
;
366 int winmode
= WS_OVERLAPPEDWINDOW
|WS_VSCROLL
;
367 if (!cfg
.scrollbar
) winmode
&= ~(WS_VSCROLL
);
368 if (cfg
.locksize
) winmode
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
369 hwnd
= CreateWindow (appname
, appname
,
371 CW_USEDEFAULT
, CW_USEDEFAULT
,
372 guess_width
, guess_height
,
373 NULL
, NULL
, inst
, NULL
);
377 * Initialise the fonts, simultaneously correcting the guesses
378 * for font_{width,height}.
380 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
385 * Correct the guesses for extra_{width,height}.
389 GetWindowRect (hwnd
, &wr
);
390 GetClientRect (hwnd
, &cr
);
391 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
392 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
396 * Resize the window, now we know what size we _really_ want it
399 guess_width
= extra_width
+ font_width
* cols
;
400 guess_height
= extra_height
+ font_height
* rows
;
401 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
402 SetWindowPos (hwnd
, NULL
, 0, 0, guess_width
, guess_height
,
403 SWP_NOMOVE
| SWP_NOREDRAW
| SWP_NOZORDER
);
406 * Set up a caret bitmap, with no content.
410 int size
= (font_width
+15)/16 * 2 * font_height
;
411 bits
= calloc(size
, 1);
412 caretbm
= CreateBitmap(font_width
, font_height
, 1, 1, bits
);
417 * Initialise the scroll bar.
422 si
.cbSize
= sizeof(si
);
423 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
428 SetScrollInfo (hwnd
, SB_VERT
, &si
, FALSE
);
432 * Start up the telnet connection.
436 char msg
[1024], *title
;
439 error
= back
->init (cfg
.host
, cfg
.port
, &realhost
);
441 sprintf(msg
, "Unable to open connection:\n%s", error
);
442 MessageBox(NULL
, msg
, "PuTTY Error", MB_ICONERROR
| MB_OK
);
445 window_name
= icon_name
= NULL
;
447 title
= cfg
.wintitle
;
449 sprintf(msg
, "%s - PuTTY", realhost
);
456 session_closed
= FALSE
;
459 * Set up the input and output buffers.
462 outbuf_reap
= outbuf_head
= 0;
465 * Prepare the mouse handler.
467 lastact
= MA_NOTHING
;
468 lastbtn
= MB_NOTHING
;
469 dbltime
= GetDoubleClickTime();
472 * Set up the session-control options on the system menu.
475 HMENU m
= GetSystemMenu (hwnd
, FALSE
);
479 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
480 if (cfg
.protocol
== PROT_TELNET
) {
482 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AYT
, "Are You There");
483 AppendMenu (p
, MF_ENABLED
, IDM_TEL_BRK
, "Break");
484 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SYNCH
, "Synch");
485 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
486 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EC
, "Erase Character");
487 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EL
, "Erase Line");
488 AppendMenu (p
, MF_ENABLED
, IDM_TEL_GA
, "Go Ahead");
489 AppendMenu (p
, MF_ENABLED
, IDM_TEL_NOP
, "No Operation");
490 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
491 AppendMenu (p
, MF_ENABLED
, IDM_TEL_ABORT
, "Abort Process");
492 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AO
, "Abort Output");
493 AppendMenu (p
, MF_ENABLED
, IDM_TEL_IP
, "Interrupt Process");
494 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SUSP
, "Suspend Process");
495 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
496 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOR
, "End Of Record");
497 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOF
, "End Of File");
498 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) p
, "Telnet Command");
499 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
501 AppendMenu (m
, MF_ENABLED
, IDM_SHOWLOG
, "&Event Log");
502 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
503 AppendMenu (m
, MF_ENABLED
, IDM_NEWSESS
, "Ne&w Session");
504 AppendMenu (m
, MF_ENABLED
, IDM_DUPSESS
, "&Duplicate Session");
507 for (i
= 1 ; i
< ((nsessions
< 256) ? nsessions
: 256) ; i
++)
508 AppendMenu (s
, MF_ENABLED
, IDM_SAVED_MIN
+ (16 * i
) , sessions
[i
]);
509 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) s
, "Sa&ved Sessions");
510 AppendMenu (m
, MF_ENABLED
, IDM_RECONF
, "Chan&ge Settings");
511 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
512 AppendMenu (m
, MF_ENABLED
, IDM_CLRSB
, "C&lear Scrollback");
513 AppendMenu (m
, MF_ENABLED
, IDM_RESET
, "Rese&t Terminal");
514 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
515 AppendMenu (m
, MF_ENABLED
, IDM_ABOUT
, "&About PuTTY");
519 * Finally show the window!
521 ShowWindow (hwnd
, show
);
524 * Set the palette up.
530 has_focus
= (GetForegroundWindow() == hwnd
);
533 if (GetMessage (&msg
, NULL
, 0, 0) == 1)
535 int timer_id
= 0, long_timer
= 0;
537 while (msg
.message
!= WM_QUIT
) {
538 /* Sometimes DispatchMessage calls routines that use their own
539 * GetMessage loop, setup this timer so we get some control back.
541 * Also call term_update() from the timer so that if the host
542 * is sending data flat out we still do redraws.
544 if(timer_id
&& long_timer
) {
545 KillTimer(hwnd
, timer_id
);
546 long_timer
= timer_id
= 0;
549 timer_id
= SetTimer(hwnd
, 1, 20, NULL
);
550 DispatchMessage (&msg
);
552 /* Make sure we blink everything that needs it. */
555 /* Send the paste buffer if there's anything to send */
558 /* If there's nothing new in the queue then we can do everything
559 * we've delayed, reading the socket, writing, and repainting
562 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
565 if (pending_netevent
) {
566 enact_pending_netevent();
568 /* Force the cursor blink on */
571 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
575 /* Okay there is now nothing to do so we make sure the screen is
576 * completely up to date then tell windows to call us in a little
580 KillTimer(hwnd
, timer_id
);
589 timer_id
= SetTimer(hwnd
, 1, 59500, NULL
);
591 timer_id
= SetTimer(hwnd
, 1, 250, NULL
);
594 /* There's no point rescanning everything in the message queue
595 * so we do an apperently unneccesary wait here
598 if (GetMessage (&msg
, NULL
, 0, 0) != 1)
610 DeleteObject(fonts
[i
]);
617 if (cfg
.protocol
== PROT_SSH
) {
628 * Set up, or shut down, an AsyncSelect. Called from winnet.c.
630 char *do_select(SOCKET skt
, int startup
) {
634 events
= FD_READ
| FD_WRITE
| FD_OOB
| FD_CLOSE
;
639 return "do_select(): internal error (hwnd==NULL)";
640 if (WSAAsyncSelect (skt
, hwnd
, msg
, events
) == SOCKET_ERROR
) {
641 switch (WSAGetLastError()) {
642 case WSAENETDOWN
: return "Network is down";
643 default: return "WSAAsyncSelect(): unknown error";
650 * Print a message box and close the connection.
652 void connection_fatal(char *fmt
, ...) {
657 vsprintf(stuff
, fmt
, ap
);
659 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
660 if (cfg
.close_on_exit
)
663 session_closed
= TRUE
;
664 SetWindowText (hwnd
, "PuTTY (inactive)");
669 * Actually do the job requested by a WM_NETEVENT
671 static void enact_pending_netevent(void) {
672 static int reentering
= 0;
673 extern int select_result(WPARAM
, LPARAM
);
677 return; /* don't unpend the pending */
679 pending_netevent
= FALSE
;
682 ret
= select_result (pend_netevent_wParam
, pend_netevent_lParam
);
686 if (cfg
.close_on_exit
)
689 session_closed
= TRUE
;
690 MessageBox(hwnd
, "Connection closed by remote host",
691 "PuTTY", MB_OK
| MB_ICONINFORMATION
);
692 SetWindowText (hwnd
, "PuTTY (inactive)");
698 * Copy the colour palette from the configuration data into defpal.
699 * This is non-trivial because the colour indices are different.
701 static void cfgtopalette(void) {
703 static const int ww
[] = {
704 6, 7, 8, 9, 10, 11, 12, 13,
705 14, 15, 16, 17, 18, 19, 20, 21,
706 0, 1, 2, 3, 4, 4, 5, 5
709 for (i
=0; i
<24; i
++) {
711 defpal
[i
].rgbtRed
= cfg
.colours
[w
][0];
712 defpal
[i
].rgbtGreen
= cfg
.colours
[w
][1];
713 defpal
[i
].rgbtBlue
= cfg
.colours
[w
][2];
718 * Set up the colour palette.
720 static void init_palette(void) {
722 HDC hdc
= GetDC (hwnd
);
724 if (cfg
.try_palette
&&
725 GetDeviceCaps (hdc
, RASTERCAPS
) & RC_PALETTE
) {
726 logpal
= smalloc(sizeof(*logpal
)
727 - sizeof(logpal
->palPalEntry
)
728 + NCOLOURS
* sizeof(PALETTEENTRY
));
729 logpal
->palVersion
= 0x300;
730 logpal
->palNumEntries
= NCOLOURS
;
731 for (i
= 0; i
< NCOLOURS
; i
++) {
732 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
733 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
734 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
735 logpal
->palPalEntry
[i
].peFlags
= PC_NOCOLLAPSE
;
737 pal
= CreatePalette (logpal
);
739 SelectPalette (hdc
, pal
, FALSE
);
740 RealizePalette (hdc
);
741 SelectPalette (hdc
, GetStockObject (DEFAULT_PALETTE
),
745 ReleaseDC (hwnd
, hdc
);
748 for (i
=0; i
<NCOLOURS
; i
++)
749 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
753 for(i
=0; i
<NCOLOURS
; i
++)
754 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
760 * Initialise all the fonts we will need. There may be as many as
761 * eight or as few as one. We also:
763 * - check the font width and height, correcting our guesses if
766 * - verify that the bold font is the same width as the ordinary
767 * one, and engage shadow bolding if not.
769 * - verify that the underlined font is the same width as the
770 * ordinary one (manual underlining by means of line drawing can
771 * be done in a pinch).
773 static void init_fonts(int pick_width
) {
778 int fw_dontcare
, fw_bold
;
787 if (cfg
.fontisbold
) {
788 fw_dontcare
= FW_BOLD
;
791 fw_dontcare
= FW_DONTCARE
;
797 font_height
= cfg
.fontheight
;
798 font_width
= pick_width
;
801 fonts[i] = CreateFont (font_height, font_width, 0, 0, w, FALSE, u, FALSE, \
802 c, OUT_DEFAULT_PRECIS, \
803 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, \
804 FIXED_PITCH | FF_DONTCARE, cfg.font)
806 if (cfg
.vtmode
!= VT_OEMONLY
) {
807 f(FONT_NORMAL
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
809 SelectObject (hdc
, fonts
[FONT_NORMAL
]);
810 GetTextMetrics(hdc
, &tm
);
811 font_height
= tm
.tmHeight
;
812 font_width
= tm
.tmAveCharWidth
;
814 f(FONT_UNDERLINE
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
817 * Some fonts, e.g. 9-pt Courier, draw their underlines
818 * outside their character cell. We successfully prevent
819 * screen corruption by clipping the text output, but then
820 * we lose the underline completely. Here we try to work
821 * out whether this is such a font, and if it is, we set a
822 * flag that causes underlines to be drawn by hand.
824 * Having tried other more sophisticated approaches (such
825 * as examining the TEXTMETRIC structure or requesting the
826 * height of a string), I think we'll do this the brute
827 * force way: we create a small bitmap, draw an underlined
828 * space on it, and test to see whether any pixels are
829 * foreground-coloured. (Since we expect the underline to
830 * go all the way across the character cell, we only search
831 * down a single column of the bitmap, half way across.)
835 HBITMAP und_bm
, und_oldbm
;
839 und_dc
= CreateCompatibleDC(hdc
);
840 und_bm
= CreateCompatibleBitmap(hdc
, font_width
, font_height
);
841 und_oldbm
= SelectObject(und_dc
, und_bm
);
842 SelectObject(und_dc
, fonts
[FONT_UNDERLINE
]);
843 SetTextAlign(und_dc
, TA_TOP
| TA_LEFT
| TA_NOUPDATECP
);
844 SetTextColor (und_dc
, RGB(255,255,255));
845 SetBkColor (und_dc
, RGB(0,0,0));
846 SetBkMode (und_dc
, OPAQUE
);
847 ExtTextOut (und_dc
, 0, 0, ETO_OPAQUE
, NULL
, " ", 1, NULL
);
849 for (i
= 0; i
< font_height
; i
++) {
850 c
= GetPixel(und_dc
, font_width
/2, i
);
854 SelectObject(und_dc
, und_oldbm
);
855 DeleteObject(und_bm
);
857 font_needs_hand_underlining
= !gotit
;
860 if (bold_mode
== BOLD_FONT
) {
861 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
862 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
865 if (cfg
.vtmode
== VT_OEMANSI
) {
866 f(FONT_OEM
, OEM_CHARSET
, fw_dontcare
, FALSE
);
867 f(FONT_OEMUND
, OEM_CHARSET
, fw_dontcare
, TRUE
);
869 if (bold_mode
== BOLD_FONT
) {
870 f(FONT_OEMBOLD
, OEM_CHARSET
, fw_bold
, FALSE
);
871 f(FONT_OEMBOLDUND
, OEM_CHARSET
, fw_bold
, TRUE
);
877 f(FONT_OEM
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
879 SelectObject (hdc
, fonts
[FONT_OEM
]);
880 GetTextMetrics(hdc
, &tm
);
881 font_height
= tm
.tmHeight
;
882 font_width
= tm
.tmAveCharWidth
;
884 f(FONT_OEMUND
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
886 if (bold_mode
== BOLD_FONT
) {
887 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
888 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
893 descent
= tm
.tmAscent
+ 1;
894 if (descent
>= font_height
)
895 descent
= font_height
- 1;
896 firstchar
= tm
.tmFirstChar
;
898 for (i
=0; i
<8; i
++) {
900 if (SelectObject (hdc
, fonts
[i
]) &&
901 GetTextMetrics(hdc
, &tm
) )
902 fsize
[i
] = tm
.tmAveCharWidth
+ 256 * tm
.tmHeight
;
908 ReleaseDC (hwnd
, hdc
);
910 /* ... This is wrong in OEM only mode */
911 if (fsize
[FONT_UNDERLINE
] != fsize
[FONT_NORMAL
] ||
912 (bold_mode
== BOLD_FONT
&&
913 fsize
[FONT_BOLDUND
] != fsize
[FONT_BOLD
])) {
915 DeleteObject (fonts
[FONT_UNDERLINE
]);
916 if (bold_mode
== BOLD_FONT
)
917 DeleteObject (fonts
[FONT_BOLDUND
]);
920 if (bold_mode
== BOLD_FONT
&&
921 fsize
[FONT_BOLD
] != fsize
[FONT_NORMAL
]) {
922 bold_mode
= BOLD_SHADOW
;
923 DeleteObject (fonts
[FONT_BOLD
]);
924 if (und_mode
== UND_FONT
)
925 DeleteObject (fonts
[FONT_BOLDUND
]);
929 /* With the fascist font painting it doesn't matter if the linedraw font
930 * isn't exactly the right size anymore so we don't have to check this.
932 if (cfg
.vtmode
== VT_OEMANSI
&& fsize
[FONT_OEM
] != fsize
[FONT_NORMAL
] ) {
933 if( cfg
.fontcharset
== OEM_CHARSET
)
935 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
936 "different sizes. Using OEM-only mode instead",
937 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
938 cfg
.vtmode
= VT_OEMONLY
;
940 else if( firstchar
< ' ' )
942 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
943 "different sizes. Using XTerm mode instead",
944 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
945 cfg
.vtmode
= VT_XWINDOWS
;
949 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
950 "different sizes. Using ISO8859-1 mode instead",
951 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
952 cfg
.vtmode
= VT_POORMAN
;
957 DeleteObject (fonts
[i
]);
963 void request_resize (int w
, int h
, int refont
) {
966 /* If the window is maximized supress resizing attempts */
967 if(IsZoomed(hwnd
)) return;
970 /* Don't do this in OEMANSI, you may get disable messages */
971 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132)
972 && cfg
.vtmode
!= VT_OEMANSI
)
974 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132))
977 /* If font width too big for screen should we shrink the font more ? */
979 font_width
= ((font_width
*cols
+w
/2)/w
);
986 DeleteObject(fonts
[i
]);
988 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
990 init_fonts(font_width
);
994 static int first_time
= 1;
1000 /* Get the size of the screen */
1001 if (GetClientRect(GetDesktopWindow(),&ss
))
1002 /* first_time = 0 */;
1003 else { first_time
= 2; break; }
1005 /* Make sure the values are sane */
1006 width
= (ss
.right
-ss
.left
-extra_width
) / font_width
;
1007 height
= (ss
.bottom
-ss
.top
-extra_height
) / font_height
;
1009 if (w
>width
) w
=width
;
1010 if (h
>height
) h
=height
;
1016 width
= extra_width
+ font_width
* w
;
1017 height
= extra_height
+ font_height
* h
;
1019 SetWindowPos (hwnd
, NULL
, 0, 0, width
, height
,
1020 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1021 SWP_NOMOVE
| SWP_NOZORDER
);
1024 static void click (Mouse_Button b
, int x
, int y
) {
1025 int thistime
= GetMessageTime();
1027 if (lastbtn
== b
&& thistime
- lasttime
< dbltime
) {
1028 lastact
= (lastact
== MA_CLICK ? MA_2CLK
:
1029 lastact
== MA_2CLK ? MA_3CLK
:
1030 lastact
== MA_3CLK ? MA_CLICK
: MA_NOTHING
);
1035 if (lastact
!= MA_NOTHING
)
1036 term_mouse (b
, lastact
, x
, y
);
1037 lasttime
= thistime
;
1040 static LRESULT CALLBACK
WndProc (HWND hwnd
, UINT message
,
1041 WPARAM wParam
, LPARAM lParam
) {
1043 static int ignore_size
= FALSE
;
1044 static int ignore_clip
= FALSE
;
1045 static int just_reconfigged
= FALSE
;
1046 static int resizing
= FALSE
;
1050 if (pending_netevent
)
1051 enact_pending_netevent();
1057 if (cfg
.ping_interval
> 0)
1061 if (now
-last_movement
> cfg
.ping_interval
* 60 - 10)
1063 back
->special(TS_PING
);
1064 last_movement
= now
;
1071 if (!cfg
.warn_on_close
|| session_closed
||
1072 MessageBox(hwnd
, "Are you sure you want to close this session?",
1073 "PuTTY Exit Confirmation",
1074 MB_ICONWARNING
| MB_OKCANCEL
) == IDOK
)
1075 DestroyWindow(hwnd
);
1078 PostQuitMessage (0);
1081 switch (wParam
& ~0xF) { /* low 4 bits reserved to Windows */
1093 PROCESS_INFORMATION pi
;
1094 HANDLE filemap
= NULL
;
1096 if (wParam
== IDM_DUPSESS
) {
1098 * Allocate a file-mapping memory chunk for the
1101 SECURITY_ATTRIBUTES sa
;
1104 sa
.nLength
= sizeof(sa
);
1105 sa
.lpSecurityDescriptor
= NULL
;
1106 sa
.bInheritHandle
= TRUE
;
1107 filemap
= CreateFileMapping((HANDLE
)0xFFFFFFFF,
1114 p
= (Config
*)MapViewOfFile(filemap
,
1116 0, 0, sizeof(Config
));
1118 *p
= cfg
; /* structure copy */
1122 sprintf(c
, "putty &%p", filemap
);
1124 } else if (wParam
== IDM_SAVEDSESS
) {
1125 char *session
= sessions
[(lParam
- IDM_SAVED_MIN
) / 16];
1126 cl
= malloc(16 + strlen(session
)); /* 8, but play safe */
1128 cl
= NULL
; /* not a very important failure mode */
1130 sprintf(cl
, "putty @%s", session
);
1136 GetModuleFileName (NULL
, b
, sizeof(b
)-1);
1138 si
.lpReserved
= NULL
;
1139 si
.lpDesktop
= NULL
;
1143 si
.lpReserved2
= NULL
;
1144 CreateProcess (b
, cl
, NULL
, NULL
, TRUE
,
1145 NORMAL_PRIORITY_CLASS
, NULL
, NULL
, &si
, &pi
);
1148 CloseHandle(filemap
);
1154 if (!do_reconfig(hwnd
))
1156 just_reconfigged
= TRUE
;
1161 DeleteObject(fonts
[i
]);
1163 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
1164 und_mode
= UND_FONT
;
1167 /* Telnet will change local echo -> remote if the remote asks */
1168 if (cfg
.protocol
!= PROT_TELNET
)
1169 ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
1177 /* Enable or disable the scroll bar, etc */
1179 LONG nflg
, flag
= GetWindowLong(hwnd
, GWL_STYLE
);
1182 if (cfg
.scrollbar
) nflg
|= WS_VSCROLL
;
1183 else nflg
&= ~WS_VSCROLL
;
1185 nflg
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1187 nflg
|= (WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1193 SetWindowLong(hwnd
, GWL_STYLE
, nflg
);
1194 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1195 SetWindowPos(hwnd
, NULL
, 0,0,0,0,
1196 SWP_NOACTIVATE
|SWP_NOCOPYBITS
|
1197 SWP_NOMOVE
|SWP_NOSIZE
| SWP_NOZORDER
|
1200 GetWindowRect (hwnd
, &wr
);
1201 GetClientRect (hwnd
, &cr
);
1202 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
1203 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
1207 term_size(cfg
.height
, cfg
.width
, cfg
.savelines
);
1208 InvalidateRect(hwnd
, NULL
, TRUE
);
1209 SetWindowPos (hwnd
, NULL
, 0, 0,
1210 extra_width
+ font_width
* cfg
.width
,
1211 extra_height
+ font_height
* cfg
.height
,
1212 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1213 SWP_NOMOVE
| SWP_NOZORDER
);
1214 if (IsIconic(hwnd
)) {
1215 SetWindowText (hwnd
,
1216 cfg
.win_name_always ? window_name
: icon_name
);
1225 case IDM_TEL_AYT
: back
->special (TS_AYT
); break;
1226 case IDM_TEL_BRK
: back
->special (TS_BRK
); break;
1227 case IDM_TEL_SYNCH
: back
->special (TS_SYNCH
); break;
1228 case IDM_TEL_EC
: back
->special (TS_EC
); break;
1229 case IDM_TEL_EL
: back
->special (TS_EL
); break;
1230 case IDM_TEL_GA
: back
->special (TS_GA
); break;
1231 case IDM_TEL_NOP
: back
->special (TS_NOP
); break;
1232 case IDM_TEL_ABORT
: back
->special (TS_ABORT
); break;
1233 case IDM_TEL_AO
: back
->special (TS_AO
); break;
1234 case IDM_TEL_IP
: back
->special (TS_IP
); break;
1235 case IDM_TEL_SUSP
: back
->special (TS_SUSP
); break;
1236 case IDM_TEL_EOR
: back
->special (TS_EOR
); break;
1237 case IDM_TEL_EOF
: back
->special (TS_EOF
); break;
1242 if (wParam
>= IDM_SAVED_MIN
&& wParam
<= IDM_SAVED_MAX
) {
1243 SendMessage(hwnd
, WM_SYSCOMMAND
, IDM_SAVEDSESS
, wParam
);
1248 #define X_POS(l) ((int)(short)LOWORD(l))
1249 #define Y_POS(l) ((int)(short)HIWORD(l))
1251 #define TO_CHR_X(x) (((x)<0 ? (x)-font_width+1 : (x)) / font_width)
1252 #define TO_CHR_Y(y) (((y)<0 ? (y)-font_height+1: (y)) / font_height)
1254 case WM_LBUTTONDOWN
:
1255 click (MB_SELECT
, TO_CHR_X(X_POS(lParam
)),
1256 TO_CHR_Y(Y_POS(lParam
)));
1260 term_mouse (MB_SELECT
, MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1261 TO_CHR_Y(Y_POS(lParam
)));
1264 case WM_MBUTTONDOWN
:
1266 click (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1267 TO_CHR_X(X_POS(lParam
)),
1268 TO_CHR_Y(Y_POS(lParam
)));
1271 term_mouse (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1272 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1273 TO_CHR_Y(Y_POS(lParam
)));
1276 case WM_RBUTTONDOWN
:
1278 click (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1279 TO_CHR_X(X_POS(lParam
)),
1280 TO_CHR_Y(Y_POS(lParam
)));
1283 term_mouse (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1284 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1285 TO_CHR_Y(Y_POS(lParam
)));
1290 * Add the mouse position and message time to the random
1291 * number noise, if we're using ssh.
1293 if (cfg
.protocol
== PROT_SSH
)
1294 noise_ultralight(lParam
);
1296 if (wParam
& (MK_LBUTTON
| MK_MBUTTON
| MK_RBUTTON
)) {
1298 if (wParam
& MK_LBUTTON
)
1300 else if (wParam
& MK_MBUTTON
)
1301 b
= cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
;
1303 b
= cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
;
1304 term_mouse (b
, MA_DRAG
, TO_CHR_X(X_POS(lParam
)),
1305 TO_CHR_Y(Y_POS(lParam
)));
1308 case WM_IGNORE_CLIP
:
1309 ignore_clip
= wParam
; /* don't panic on DESTROYCLIPBOARD */
1311 case WM_DESTROYCLIPBOARD
:
1314 ignore_clip
= FALSE
;
1320 hdc
= BeginPaint (hwnd
, &p
);
1322 SelectPalette (hdc
, pal
, TRUE
);
1323 RealizePalette (hdc
);
1325 term_paint (hdc
, p
.rcPaint
.left
, p
.rcPaint
.top
,
1326 p
.rcPaint
.right
, p
.rcPaint
.bottom
);
1327 SelectObject (hdc
, GetStockObject(SYSTEM_FONT
));
1328 SelectObject (hdc
, GetStockObject(WHITE_PEN
));
1329 EndPaint (hwnd
, &p
);
1334 /* Notice we can get multiple netevents, FD_READ, FD_WRITE etc
1335 * but the only one that's likely to try to overload us is FD_READ.
1336 * This means buffering just one is fine.
1338 if (pending_netevent
)
1339 enact_pending_netevent();
1341 pending_netevent
= TRUE
;
1342 pend_netevent_wParam
=wParam
;
1343 pend_netevent_lParam
=lParam
;
1344 time(&last_movement
);
1348 CreateCaret(hwnd
, caretbm
, 0, 0);
1359 case WM_IGNORE_SIZE
:
1360 ignore_size
= TRUE
; /* don't panic on next WM_SIZE msg */
1362 case WM_ENTERSIZEMOVE
:
1366 case WM_EXITSIZEMOVE
:
1373 int width
, height
, w
, h
, ew
, eh
;
1374 LPRECT r
= (LPRECT
)lParam
;
1376 width
= r
->right
- r
->left
- extra_width
;
1377 height
= r
->bottom
- r
->top
- extra_height
;
1378 w
= (width
+ font_width
/2) / font_width
; if (w
< 1) w
= 1;
1379 h
= (height
+ font_height
/2) / font_height
; if (h
< 1) h
= 1;
1380 UpdateSizeTip(hwnd
, w
, h
);
1381 ew
= width
- w
* font_width
;
1382 eh
= height
- h
* font_height
;
1384 if (wParam
== WMSZ_LEFT
||
1385 wParam
== WMSZ_BOTTOMLEFT
||
1386 wParam
== WMSZ_TOPLEFT
)
1392 if (wParam
== WMSZ_TOP
||
1393 wParam
== WMSZ_TOPRIGHT
||
1394 wParam
== WMSZ_TOPLEFT
)
1404 /* break; (never reached) */
1406 if (wParam
== SIZE_MINIMIZED
) {
1407 SetWindowText (hwnd
,
1408 cfg
.win_name_always ? window_name
: icon_name
);
1411 if (wParam
== SIZE_RESTORED
|| wParam
== SIZE_MAXIMIZED
)
1412 SetWindowText (hwnd
, window_name
);
1414 int width
, height
, w
, h
;
1415 #if 0 /* we have fixed this using WM_SIZING now */
1419 width
= LOWORD(lParam
);
1420 height
= HIWORD(lParam
);
1421 w
= width
/ font_width
; if (w
< 1) w
= 1;
1422 h
= height
/ font_height
; if (h
< 1) h
= 1;
1423 #if 0 /* we have fixed this using WM_SIZING now */
1424 ew
= width
- w
* font_width
;
1425 eh
= height
- h
* font_height
;
1426 if (ew
!= 0 || eh
!= 0) {
1428 GetWindowRect (hwnd
, &r
);
1429 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1430 SetWindowPos (hwnd
, NULL
, 0, 0,
1431 r
.right
- r
.left
- ew
, r
.bottom
- r
.top
- eh
,
1432 SWP_NOACTIVATE
| SWP_NOMOVE
| SWP_NOZORDER
);
1435 if (w
!= cols
|| h
!= rows
|| just_reconfigged
) {
1437 term_size (h
, w
, cfg
.savelines
);
1439 * Don't call back->size in mid-resize. (To prevent
1440 * massive numbers of resize events getting sent
1441 * down the connection during an NT opaque drag.)
1445 just_reconfigged
= FALSE
;
1448 ignore_size
= FALSE
;
1451 switch (LOWORD(wParam
)) {
1452 case SB_BOTTOM
: term_scroll(-1, 0); break;
1453 case SB_TOP
: term_scroll(+1, 0); break;
1454 case SB_LINEDOWN
: term_scroll (0, +1); break;
1455 case SB_LINEUP
: term_scroll (0, -1); break;
1456 case SB_PAGEDOWN
: term_scroll (0, +rows
/2); break;
1457 case SB_PAGEUP
: term_scroll (0, -rows
/2); break;
1458 case SB_THUMBPOSITION
: case SB_THUMBTRACK
:
1459 term_scroll (1, HIWORD(wParam
)); break;
1462 case WM_PALETTECHANGED
:
1463 if ((HWND
) wParam
!= hwnd
&& pal
!= NULL
) {
1464 HDC hdc
= get_ctx();
1466 if (RealizePalette (hdc
) > 0)
1472 case WM_QUERYNEWPALETTE
:
1474 HDC hdc
= get_ctx();
1476 if (RealizePalette (hdc
) > 0)
1488 * Add the scan code and keypress timing to the random
1489 * number noise, if we're using ssh.
1491 if (cfg
.protocol
== PROT_SSH
)
1492 noise_ultralight(lParam
);
1495 * We don't do TranslateMessage since it disassociates the
1496 * resulting CHAR message from the KEYDOWN that sparked it,
1497 * which we occasionally don't want. Instead, we process
1498 * KEYDOWN, and call the Win32 translator functions so that
1499 * we get the translations under _our_ control.
1502 unsigned char buf
[20];
1505 if (wParam
==VK_PROCESSKEY
) {
1508 m
.message
= WM_KEYDOWN
;
1510 m
.lParam
= lParam
& 0xdfff;
1511 TranslateMessage(&m
);
1513 len
= TranslateKey (message
, wParam
, lParam
, buf
);
1515 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1516 ldisc
->send (buf
, len
);
1522 unsigned char buf
[2];
1525 buf
[0] = wParam
>> 8;
1526 ldisc
->send (buf
, 2);
1531 * Nevertheless, we are prepared to deal with WM_CHAR
1532 * messages, should they crop up. So if someone wants to
1533 * post the things to us as part of a macro manoeuvre,
1534 * we're ready to cope.
1537 char c
= xlat_kbd2tty((unsigned char)wParam
);
1538 ldisc
->send (&c
, 1);
1543 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1547 * Move the system caret. (We maintain one, even though it's
1548 * invisible, for the benefit of blind people: apparently some
1549 * helper software tracks the system caret, so we should arrange to
1552 void sys_cursor(int x
, int y
) {
1553 SetCaretPos(x
* font_width
, y
* font_height
);
1557 * Draw a line of text in the window, at given character
1558 * coordinates, in given attributes.
1560 * We are allowed to fiddle with the contents of `text'.
1562 void do_text (Context ctx
, int x
, int y
, char *text
, int len
,
1563 unsigned long attr
, int lattr
) {
1565 int nfg
, nbg
, nfont
;
1568 int force_manual_underline
= 0;
1569 int fnt_width
= font_width
*(1+(lattr
!=LATTR_NORM
));
1570 static int *IpDx
= 0, IpDxLEN
= 0;;
1572 if (len
>IpDxLEN
|| IpDx
[0] != fnt_width
) {
1576 IpDx
= smalloc((len
+16)*sizeof(int));
1579 for(i
=0; i
<IpDxLEN
; i
++)
1580 IpDx
[i
] = fnt_width
;
1586 if (attr
& ATTR_ACTCURS
) {
1587 attr
&= (bold_mode
== BOLD_COLOURS ?
0x300200 : 0x300300);
1588 attr
^= ATTR_CUR_XOR
;
1592 if (cfg
.vtmode
== VT_OEMONLY
)
1596 * Map high-half characters in order to approximate ISO using
1597 * OEM character set. No characters are missing if the OEM codepage
1600 if (nfont
& FONT_OEM
) {
1602 for (i
=0; i
<len
; i
++)
1603 if (text
[i
] >= '\xA0' && text
[i
] <= '\xFF') {
1605 /* This is CP850 ... perfect translation */
1606 static const char oemhighhalf
[] =
1607 "\x20\xAD\xBD\x9C\xCF\xBE\xDD\xF5" /* A0-A7 */
1608 "\xF9\xB8\xA6\xAE\xAA\xF0\xA9\xEE" /* A8-AF */
1609 "\xF8\xF1\xFD\xFC\xEF\xE6\xF4\xFA" /* B0-B7 */
1610 "\xF7\xFB\xA7\xAF\xAC\xAB\xF3\xA8" /* B8-BF */
1611 "\xB7\xB5\xB6\xC7\x8E\x8F\x92\x80" /* C0-C7 */
1612 "\xD4\x90\xD2\xD3\xDE\xD6\xD7\xD8" /* C8-CF */
1613 "\xD1\xA5\xE3\xE0\xE2\xE5\x99\x9E" /* D0-D7 */
1614 "\x9D\xEB\xE9\xEA\x9A\xED\xE8\xE1" /* D8-DF */
1615 "\x85\xA0\x83\xC6\x84\x86\x91\x87" /* E0-E7 */
1616 "\x8A\x82\x88\x89\x8D\xA1\x8C\x8B" /* E8-EF */
1617 "\xD0\xA4\x95\xA2\x93\xE4\x94\xF6" /* F0-F7 */
1618 "\x9B\x97\xA3\x96\x81\xEC\xE7\x98" /* F8-FF */
1621 /* This is CP437 ... junk translation */
1622 static const unsigned char oemhighhalf
[] = {
1623 0xff, 0xad, 0x9b, 0x9c, 0x6f, 0x9d, 0x7c, 0x15,
1624 0x22, 0x43, 0xa6, 0xae, 0xaa, 0x2d, 0x52, 0xc4,
1625 0xf8, 0xf1, 0xfd, 0x33, 0x27, 0xe6, 0x14, 0xfa,
1626 0x2c, 0x31, 0xa7, 0xaf, 0xac, 0xab, 0x2f, 0xa8,
1627 0x41, 0x41, 0x41, 0x41, 0x8e, 0x8f, 0x92, 0x80,
1628 0x45, 0x90, 0x45, 0x45, 0x49, 0x49, 0x49, 0x49,
1629 0x44, 0xa5, 0x4f, 0x4f, 0x4f, 0x4f, 0x99, 0x78,
1630 0xed, 0x55, 0x55, 0x55, 0x9a, 0x59, 0x50, 0xe1,
1631 0x85, 0xa0, 0x83, 0x61, 0x84, 0x86, 0x91, 0x87,
1632 0x8a, 0x82, 0x88, 0x89, 0x8d, 0xa1, 0x8c, 0x8b,
1633 0x0b, 0xa4, 0x95, 0xa2, 0x93, 0x6f, 0x94, 0xf6,
1634 0xed, 0x97, 0xa3, 0x96, 0x81, 0x79, 0x70, 0x98
1637 text
[i
] = oemhighhalf
[(unsigned char)text
[i
] - 0xA0];
1641 if (attr
& ATTR_LINEDRW
) {
1644 static const char poorman
[] =
1645 "*#****\xB0\xB1**+++++-----++++|****\xA3\xB7";
1648 static const char oemmap_437
[] =
1649 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1650 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3\xF3\xF2\xE3*\x9C\xFA";
1653 static const char oemmap_850
[] =
1654 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1655 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1657 /* Poor windows font ... eg: windows courier */
1658 static const char oemmap
[] =
1659 "*\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1660 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1663 * Line drawing mapping: map ` thru ~ (0x60 thru 0x7E) to
1664 * VT100 line drawing chars; everything else stays normal.
1666 * Actually '_' maps to space too, but that's done before.
1668 switch (cfg
.vtmode
) {
1670 for (i
=0; i
<len
; i
++)
1671 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1672 text
[i
] += '\x01' - '\x60';
1675 /* Make sure we actually have an OEM font */
1676 if (fonts
[nfont
|FONT_OEM
]) {
1679 for (i
=0; i
<len
; i
++)
1680 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1681 text
[i
] = oemmap
[(unsigned char)text
[i
] - 0x60];
1685 for (i
=0; i
<len
; i
++)
1686 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1687 text
[i
] = poorman
[(unsigned char)text
[i
] - 0x60];
1692 nfg
= 2 * ((attr
& ATTR_FGMASK
) >> ATTR_FGSHIFT
);
1693 nbg
= 2 * ((attr
& ATTR_BGMASK
) >> ATTR_BGSHIFT
);
1694 if (bold_mode
== BOLD_FONT
&& (attr
& ATTR_BOLD
))
1696 if (und_mode
== UND_FONT
&& (attr
& ATTR_UNDER
))
1697 nfont
|= FONT_UNDERLINE
;
1700 if (nfont
&FONT_UNDERLINE
)
1701 force_manual_underline
= 1;
1702 /* Don't do the same for manual bold, it could be bad news. */
1704 nfont
&= ~(FONT_BOLD
|FONT_UNDERLINE
);
1706 if (font_needs_hand_underlining
&& (attr
& ATTR_UNDER
))
1707 force_manual_underline
= 1;
1708 if (attr
& ATTR_REVERSE
) {
1709 t
= nfg
; nfg
= nbg
; nbg
= t
;
1711 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BOLD
))
1713 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BLINK
))
1717 SelectObject (hdc
, fonts
[nfont
]);
1718 SetTextColor (hdc
, fg
);
1719 SetBkColor (hdc
, bg
);
1720 SetBkMode (hdc
, OPAQUE
);
1723 line_box
.right
= x
+fnt_width
*len
;
1724 line_box
.bottom
= y
+font_height
;
1725 ExtTextOut (hdc
, x
, y
, ETO_CLIPPED
|ETO_OPAQUE
, &line_box
, text
, len
, IpDx
);
1726 if (bold_mode
== BOLD_SHADOW
&& (attr
& ATTR_BOLD
)) {
1727 SetBkMode (hdc
, TRANSPARENT
);
1729 /* GRR: This draws the character outside it's box and can leave
1730 * 'droppings' even with the clip box! I suppose I could loop it
1731 * one character at a time ... yuk.
1733 * Or ... I could do a test print with "W", and use +1 or -1 for this
1734 * shift depending on if the leftmost column is blank...
1736 ExtTextOut (hdc
, x
-1, y
, ETO_CLIPPED
, &line_box
, text
, len
, IpDx
);
1738 if (force_manual_underline
||
1739 (und_mode
== UND_LINE
&& (attr
& ATTR_UNDER
))) {
1741 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, fg
));
1742 MoveToEx (hdc
, x
, y
+descent
, NULL
);
1743 LineTo (hdc
, x
+len
*fnt_width
, y
+descent
);
1744 oldpen
= SelectObject (hdc
, oldpen
);
1745 DeleteObject (oldpen
);
1747 if (attr
& ATTR_PASCURS
) {
1750 pts
[0].x
= pts
[1].x
= pts
[4].x
= x
;
1751 pts
[2].x
= pts
[3].x
= x
+fnt_width
-1;
1752 pts
[0].y
= pts
[3].y
= pts
[4].y
= y
;
1753 pts
[1].y
= pts
[2].y
= y
+font_height
-1;
1754 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, colours
[23]));
1755 Polyline (hdc
, pts
, 5);
1756 oldpen
= SelectObject (hdc
, oldpen
);
1757 DeleteObject (oldpen
);
1761 static int check_compose(int first
, int second
) {
1763 static char * composetbl
[] = {
1764 "++#", "AA@", "(([", "//\\", "))]", "(-{", "-)}", "/^|", "!!¡", "C/¢",
1765 "C|¢", "L-£", "L=£", "XO¤", "X0¤", "Y-¥", "Y=¥", "||¦", "SO§", "S!§",
1766 "S0§", "\"\"¨", "CO©", "C0©", "A_ª", "<<«", ",-¬", "--", "RO®",
1767 "-^¯", "0^°", "+-±", "2^²", "3^³", "''´", "/Uµ", "P!¶", ".^·", ",,¸",
1768 "1^¹", "O_º", ">>»", "14¼", "12½", "34¾", "??¿", "`AÀ", "'AÁ", "^AÂ",
1769 "~AÃ", "\"AÄ", "*AÅ", "AEÆ", ",CÇ", "`EÈ", "'EÉ", "^EÊ", "\"EË",
1770 "`IÌ", "'IÍ", "^IÎ", "\"IÏ", "-DÐ", "~NÑ", "`OÒ", "'OÓ", "^OÔ",
1771 "~OÕ", "\"OÖ", "XX×", "/OØ", "`UÙ", "'UÚ", "^UÛ", "\"UÜ", "'YÝ",
1772 "HTÞ", "ssß", "`aà", "'aá", "^aâ", "~aã", "\"aä", "*aå", "aeæ", ",cç",
1773 "`eè", "'eé", "^eê", "\"eë", "`iì", "'ií", "^iî", "\"iï", "-dð", "~nñ",
1774 "`oò", "'oó", "^oô", "~oõ", "\"oö", ":-÷", "o/ø", "`uù", "'uú", "^uû",
1775 "\"uü", "'yý", "htþ", "\"yÿ",
1779 static int recurse
= 0;
1782 for(c
=composetbl
; *c
; c
++) {
1783 if( (*c
)[0] == first
&& (*c
)[1] == second
)
1785 return (*c
)[2] & 0xFF;
1792 nc
= check_compose(second
, first
);
1794 nc
= check_compose(toupper(first
), toupper(second
));
1796 nc
= check_compose(toupper(second
), toupper(first
));
1804 * Translate a WM_(SYS)?KEY(UP|DOWN) message into a string of ASCII
1805 * codes. Returns number of bytes used or zero to drop the message
1806 * or -1 to forward the message to windows.
1808 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
,
1809 unsigned char *output
) {
1811 int scan
, left_alt
= 0, key_down
, shift_state
;
1813 unsigned char * p
= output
;
1815 static WORD keys
[3];
1816 static int compose_state
= 0;
1817 static int compose_char
= 0;
1818 static WPARAM compose_key
= 0;
1820 r
= GetKeyboardState(keystate
);
1821 if (!r
) memset(keystate
, 0, sizeof(keystate
));
1825 { /* Tell us all about key events */
1826 static BYTE oldstate
[256];
1827 static int first
= 1;
1830 if(first
) memcpy(oldstate
, keystate
, sizeof(oldstate
));
1833 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
) {
1835 } else if ((HIWORD(lParam
)&KF_UP
) && scan
==(HIWORD(lParam
) & 0xFF) ) {
1839 if (wParam
>= VK_F1
&& wParam
<= VK_F20
)
1840 debug(("K_F%d", wParam
+1-VK_F1
));
1843 case VK_SHIFT
: debug(("SHIFT")); break;
1844 case VK_CONTROL
: debug(("CTRL")); break;
1845 case VK_MENU
: debug(("ALT")); break;
1846 default: debug(("VK_%02x", wParam
));
1848 if(message
== WM_SYSKEYDOWN
|| message
== WM_SYSKEYUP
)
1850 debug((", S%02x", scan
=(HIWORD(lParam
) & 0xFF) ));
1852 ch
= MapVirtualKey(wParam
, 2);
1853 if (ch
>=' ' && ch
<='~') debug((", '%c'", ch
));
1854 else if (ch
) debug((", $%02x", ch
));
1856 if (keys
[0]) debug((", KB0=%02x", keys
[0]));
1857 if (keys
[1]) debug((", KB1=%02x", keys
[1]));
1858 if (keys
[2]) debug((", KB2=%02x", keys
[2]));
1860 if ( (keystate
[VK_SHIFT
]&0x80)!=0) debug((", S"));
1861 if ( (keystate
[VK_CONTROL
]&0x80)!=0) debug((", C"));
1862 if ( (HIWORD(lParam
)&KF_EXTENDED
) ) debug((", E"));
1863 if ( (HIWORD(lParam
)&KF_UP
) ) debug((", U"));
1866 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1868 else if ( (HIWORD(lParam
)&KF_UP
) )
1869 oldstate
[wParam
&0xFF] ^= 0x80;
1871 oldstate
[wParam
&0xFF] ^= 0x81;
1873 for(ch
=0; ch
<256; ch
++)
1874 if (oldstate
[ch
] != keystate
[ch
])
1875 debug((", M%02x=%02x", ch
, keystate
[ch
]));
1877 memcpy(oldstate
, keystate
, sizeof(oldstate
));
1881 /* Note if AltGr was pressed and if it was used as a compose key */
1882 if (cfg
.compose_key
) {
1883 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
))
1885 keystate
[VK_RMENU
] = keystate
[VK_MENU
];
1886 if (!compose_state
) compose_key
= wParam
;
1888 if (wParam
== VK_APPS
&& !compose_state
)
1889 compose_key
= wParam
;
1891 if (wParam
== compose_key
)
1893 if (compose_state
== 0 && (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1895 else if (compose_state
== 1 && (HIWORD(lParam
)&KF_UP
))
1900 else if (compose_state
==1 && wParam
!= VK_CONTROL
)
1905 /* Nastyness with NUMLock - Shift-NUMLock is left alone though */
1906 if ( (cfg
.funky_type
== 3 || (cfg
.funky_type
<= 1 && app_keypad_keys
))
1907 && wParam
==VK_NUMLOCK
&& !(keystate
[VK_SHIFT
]&0x80)) {
1909 wParam
= VK_EXECUTE
;
1911 /* UnToggle NUMLock */
1912 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1913 keystate
[VK_NUMLOCK
] ^= 1;
1916 /* And write back the 'adjusted' state */
1917 SetKeyboardState (keystate
);
1920 /* Disable Auto repeat if required */
1921 if (repeat_off
&& (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1924 if ((HIWORD(lParam
)&KF_ALTDOWN
) && (keystate
[VK_RMENU
]&0x80) == 0)
1927 key_down
= ((HIWORD(lParam
)&KF_UP
)==0);
1929 /* Make sure Ctrl-ALT is not the same as AltGr for ToAscii */
1930 if (left_alt
&& (keystate
[VK_CONTROL
]&0x80))
1931 keystate
[VK_MENU
] = 0;
1933 scan
= (HIWORD(lParam
) & (KF_UP
| KF_EXTENDED
| 0xFF));
1934 shift_state
= ((keystate
[VK_SHIFT
]&0x80)!=0)
1935 + ((keystate
[VK_CONTROL
]&0x80)!=0)*2;
1938 * Record that we pressed key so the scroll window can be reset, but
1939 * be careful to avoid Shift-UP/Down
1941 if( wParam
!= VK_SHIFT
&& wParam
!= VK_PRIOR
&& wParam
!= VK_NEXT
) {
1945 /* Make sure we're not pasting */
1946 if (key_down
) term_nopaste();
1948 if (compose_state
>1 && left_alt
) compose_state
= 0;
1950 /* Sanitize the number pad if not using a PC NumPad */
1951 if( left_alt
|| (app_keypad_keys
&& cfg
.funky_type
!= 2)
1952 || cfg
.funky_type
== 3 || cfg
.nethack_keypad
|| compose_state
)
1954 if ((HIWORD(lParam
)&KF_EXTENDED
) == 0)
1959 case VK_INSERT
: nParam
= VK_NUMPAD0
; break;
1960 case VK_END
: nParam
= VK_NUMPAD1
; break;
1961 case VK_DOWN
: nParam
= VK_NUMPAD2
; break;
1962 case VK_NEXT
: nParam
= VK_NUMPAD3
; break;
1963 case VK_LEFT
: nParam
= VK_NUMPAD4
; break;
1964 case VK_CLEAR
: nParam
= VK_NUMPAD5
; break;
1965 case VK_RIGHT
: nParam
= VK_NUMPAD6
; break;
1966 case VK_HOME
: nParam
= VK_NUMPAD7
; break;
1967 case VK_UP
: nParam
= VK_NUMPAD8
; break;
1968 case VK_PRIOR
: nParam
= VK_NUMPAD9
; break;
1969 case VK_DELETE
: nParam
= VK_DECIMAL
; break;
1973 if (keystate
[VK_NUMLOCK
]&1) shift_state
|= 1;
1979 /* If a key is pressed and AltGr is not active */
1980 if (key_down
&& (keystate
[VK_RMENU
]&0x80) == 0 && !compose_state
)
1982 /* Okay, prepare for most alts then ...*/
1983 if (left_alt
) *p
++ = '\033';
1985 /* Lets see if it's a pattern we know all about ... */
1986 if (wParam
== VK_PRIOR
&& shift_state
== 1) {
1987 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEUP
, 0);
1990 if (wParam
== VK_NEXT
&& shift_state
== 1) {
1991 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEDOWN
, 0);
1994 if (wParam
== VK_INSERT
&& shift_state
== 1) {
1995 term_mouse (MB_PASTE
, MA_CLICK
, 0, 0);
1996 term_mouse (MB_PASTE
, MA_RELEASE
, 0, 0);
1999 if (left_alt
&& wParam
== VK_F4
&& cfg
.alt_f4
) {
2002 if (left_alt
&& wParam
== VK_SPACE
&& cfg
.alt_space
) {
2004 SendMessage (hwnd
, WM_SYSCOMMAND
, SC_KEYMENU
, 0);
2007 /* Control-Numlock for app-keypad mode switch */
2008 if (wParam
== VK_PAUSE
&& shift_state
== 2) {
2009 app_keypad_keys
^= 1;
2013 /* Nethack keypad */
2014 if (cfg
.nethack_keypad
&& !left_alt
) {
2016 case VK_NUMPAD1
: *p
++ = shift_state ?
'B': 'b'; return p
-output
;
2017 case VK_NUMPAD2
: *p
++ = shift_state ?
'J': 'j'; return p
-output
;
2018 case VK_NUMPAD3
: *p
++ = shift_state ?
'N': 'n'; return p
-output
;
2019 case VK_NUMPAD4
: *p
++ = shift_state ?
'H': 'h'; return p
-output
;
2020 case VK_NUMPAD5
: *p
++ = shift_state ?
'.': '.'; return p
-output
;
2021 case VK_NUMPAD6
: *p
++ = shift_state ?
'L': 'l'; return p
-output
;
2022 case VK_NUMPAD7
: *p
++ = shift_state ?
'Y': 'y'; return p
-output
;
2023 case VK_NUMPAD8
: *p
++ = shift_state ?
'K': 'k'; return p
-output
;
2024 case VK_NUMPAD9
: *p
++ = shift_state ?
'U': 'u'; return p
-output
;
2028 /* Application Keypad */
2032 if ( cfg
.funky_type
== 3 ||
2033 ( cfg
.funky_type
<= 1 && app_keypad_keys
)) switch(wParam
) {
2034 case VK_EXECUTE
: xkey
= 'P'; break;
2035 case VK_DIVIDE
: xkey
= 'Q'; break;
2036 case VK_MULTIPLY
:xkey
= 'R'; break;
2037 case VK_SUBTRACT
:xkey
= 'S'; break;
2039 if(app_keypad_keys
) switch(wParam
) {
2040 case VK_NUMPAD0
: xkey
= 'p'; break;
2041 case VK_NUMPAD1
: xkey
= 'q'; break;
2042 case VK_NUMPAD2
: xkey
= 'r'; break;
2043 case VK_NUMPAD3
: xkey
= 's'; break;
2044 case VK_NUMPAD4
: xkey
= 't'; break;
2045 case VK_NUMPAD5
: xkey
= 'u'; break;
2046 case VK_NUMPAD6
: xkey
= 'v'; break;
2047 case VK_NUMPAD7
: xkey
= 'w'; break;
2048 case VK_NUMPAD8
: xkey
= 'x'; break;
2049 case VK_NUMPAD9
: xkey
= 'y'; break;
2051 case VK_DECIMAL
: xkey
= 'n'; break;
2052 case VK_ADD
: if(cfg
.funky_type
==2) {
2053 if(shift_state
) xkey
= 'l';
2055 } else if(shift_state
) xkey
= 'm';
2059 case VK_DIVIDE
: if(cfg
.funky_type
==2) xkey
= 'o'; break;
2060 case VK_MULTIPLY
:if(cfg
.funky_type
==2) xkey
= 'j'; break;
2061 case VK_SUBTRACT
:if(cfg
.funky_type
==2) xkey
= 'm'; break;
2064 if (HIWORD(lParam
)&KF_EXTENDED
)
2072 if (xkey
>='P' && xkey
<='S')
2073 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2075 p
+= sprintf((char *)p
, "\x1B?%c", xkey
);
2078 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2083 if (wParam
== VK_BACK
&& shift_state
== 0 ) /* Backspace */
2085 *p
++ = (cfg
.bksp_is_delete ?
0x7F : 0x08);
2088 if (wParam
== VK_TAB
&& shift_state
== 1 ) /* Shift tab */
2090 *p
++ = 0x1B; *p
++ = '['; *p
++ = 'Z'; return p
- output
;
2092 if (wParam
== VK_SPACE
&& shift_state
== 2 ) /* Ctrl-Space */
2094 *p
++ = 0; return p
- output
;
2096 if (wParam
== VK_SPACE
&& shift_state
== 3 ) /* Ctrl-Shift-Space */
2098 *p
++ = 160; return p
- output
;
2100 if (wParam
== VK_CANCEL
&& shift_state
== 2 ) /* Ctrl-Break */
2102 *p
++ = 3; return p
- output
;
2104 /* Control-2 to Control-8 are special */
2105 if (shift_state
== 2 && wParam
>= '2' && wParam
<= '8')
2107 *p
++ = "\000\033\034\035\036\037\177"[wParam
-'2'];
2110 if (shift_state
== 2 && wParam
== 0xBD) {
2114 if (shift_state
== 2 && wParam
== 0xDF) {
2118 if (shift_state
== 0 && wParam
== VK_RETURN
&& cr_lf_return
) {
2119 *p
++ = '\r'; *p
++ = '\n';
2124 * Next, all the keys that do tilde codes. (ESC '[' nn '~',
2125 * for integer decimal nn.)
2127 * We also deal with the weird ones here. Linux VCs replace F1
2128 * to F5 by ESC [ [ A to ESC [ [ E. rxvt doesn't do _that_, but
2129 * does replace Home and End (1~ and 4~) by ESC [ H and ESC O w
2134 case VK_F1
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
23 : 11); break;
2135 case VK_F2
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
24 : 12); break;
2136 case VK_F3
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
25 : 13); break;
2137 case VK_F4
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
26 : 14); break;
2138 case VK_F5
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
28 : 15); break;
2139 case VK_F6
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
29 : 17); break;
2140 case VK_F7
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
31 : 18); break;
2141 case VK_F8
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
32 : 19); break;
2142 case VK_F9
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
33 : 20); break;
2143 case VK_F10
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
34 : 21); break;
2144 case VK_F11
: code
= 23; break;
2145 case VK_F12
: code
= 24; break;
2146 case VK_F13
: code
= 25; break;
2147 case VK_F14
: code
= 26; break;
2148 case VK_F15
: code
= 28; break;
2149 case VK_F16
: code
= 29; break;
2150 case VK_F17
: code
= 31; break;
2151 case VK_F18
: code
= 32; break;
2152 case VK_F19
: code
= 33; break;
2153 case VK_F20
: code
= 34; break;
2154 case VK_HOME
: code
= 1; break;
2155 case VK_INSERT
: code
= 2; break;
2156 case VK_DELETE
: code
= 3; break;
2157 case VK_END
: code
= 4; break;
2158 case VK_PRIOR
: code
= 5; break;
2159 case VK_NEXT
: code
= 6; break;
2161 /* Reorder edit keys to physical order */
2162 if (cfg
.funky_type
== 3 && code
<= 6 ) code
= "\0\2\1\4\5\3\6"[code
];
2164 if (cfg
.funky_type
== 1 && code
>= 11 && code
<= 15) {
2165 p
+= sprintf((char *)p
, "\x1B[[%c", code
+ 'A' - 11);
2168 if (cfg
.funky_type
== 2 && code
>= 11 && code
<= 14) {
2170 p
+= sprintf((char *)p
, "\x1B%c", code
+ 'P' - 11);
2172 p
+= sprintf((char *)p
, "\x1BO%c", code
+ 'P' - 11);
2175 if (cfg
.rxvt_homeend
&& (code
== 1 || code
== 4)) {
2176 p
+= sprintf((char *)p
, code
== 1 ?
"\x1B[H" : "\x1BOw");
2180 p
+= sprintf((char *)p
, "\x1B[%d~", code
);
2185 * Now the remaining keys (arrows and Keypad 5. Keypad 5 for
2186 * some reason seems to send VK_CLEAR to Windows...).
2191 case VK_UP
: xkey
= 'A'; break;
2192 case VK_DOWN
: xkey
= 'B'; break;
2193 case VK_RIGHT
: xkey
= 'C'; break;
2194 case VK_LEFT
: xkey
= 'D'; break;
2195 case VK_CLEAR
: xkey
= 'G'; break;
2200 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2201 else if (app_cursor_keys
)
2202 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2204 p
+= sprintf((char *)p
, "\x1B[%c", xkey
);
2210 * Finally, deal with Return ourselves. (Win95 seems to
2211 * foul it up when Alt is pressed, for some reason.)
2213 if (wParam
== VK_RETURN
) /* Return */
2220 /* Okay we've done everything interesting; let windows deal with
2221 * the boring stuff */
2223 BOOL capsOn
=keystate
[VK_CAPITAL
] !=0;
2225 /* helg: clear CAPS LOCK state if caps lock switches to cyrillic */
2226 if(cfg
.xlat_capslockcyr
)
2227 keystate
[VK_CAPITAL
] = 0;
2229 r
= ToAscii (wParam
, scan
, keystate
, keys
, 0);
2235 unsigned char ch
= (unsigned char)keys
[i
];
2237 if (compose_state
==2 && (ch
&0x80) == 0 && ch
>' ') {
2242 if (compose_state
==3 && (ch
&0x80) == 0 && ch
>' ') {
2246 if ((nc
=check_compose(compose_char
,ch
)) == -1)
2248 MessageBeep(MB_ICONHAND
);
2251 *p
++ = xlat_kbd2tty((unsigned char)nc
);
2257 if( left_alt
&& key_down
) *p
++ = '\033';
2263 ch
= xlat_latkbd2win(ch
);
2264 *p
++ = xlat_kbd2tty(ch
);
2268 /* This is so the ALT-Numpad and dead keys work correctly. */
2275 /* This stops ALT press-release doing a 'COMMAND MENU' function */
2276 if (!cfg
.alt_only
) {
2277 if (message
== WM_SYSKEYUP
&& wParam
== VK_MENU
)
2284 void set_title (char *title
) {
2285 sfree (window_name
);
2286 window_name
= smalloc(1+strlen(title
));
2287 strcpy (window_name
, title
);
2288 if (cfg
.win_name_always
|| !IsIconic(hwnd
))
2289 SetWindowText (hwnd
, title
);
2292 void set_icon (char *title
) {
2294 icon_name
= smalloc(1+strlen(title
));
2295 strcpy (icon_name
, title
);
2296 if (!cfg
.win_name_always
&& IsIconic(hwnd
))
2297 SetWindowText (hwnd
, title
);
2300 void set_sbar (int total
, int start
, int page
) {
2303 if (!cfg
.scrollbar
) return;
2305 si
.cbSize
= sizeof(si
);
2306 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
2308 si
.nMax
= total
- 1;
2312 SetScrollInfo (hwnd
, SB_VERT
, &si
, TRUE
);
2315 Context
get_ctx(void) {
2320 SelectPalette (hdc
, pal
, FALSE
);
2326 void free_ctx (Context ctx
) {
2327 SelectPalette (ctx
, GetStockObject (DEFAULT_PALETTE
), FALSE
);
2328 ReleaseDC (hwnd
, ctx
);
2331 static void real_palette_set (int n
, int r
, int g
, int b
) {
2333 logpal
->palPalEntry
[n
].peRed
= r
;
2334 logpal
->palPalEntry
[n
].peGreen
= g
;
2335 logpal
->palPalEntry
[n
].peBlue
= b
;
2336 logpal
->palPalEntry
[n
].peFlags
= PC_NOCOLLAPSE
;
2337 colours
[n
] = PALETTERGB(r
, g
, b
);
2338 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2340 colours
[n
] = RGB(r
, g
, b
);
2343 void palette_set (int n
, int r
, int g
, int b
) {
2344 static const int first
[21] = {
2345 0, 2, 4, 6, 8, 10, 12, 14,
2346 1, 3, 5, 7, 9, 11, 13, 15,
2349 real_palette_set (first
[n
], r
, g
, b
);
2351 real_palette_set (first
[n
]+1, r
, g
, b
);
2353 HDC hdc
= get_ctx();
2354 UnrealizeObject (pal
);
2355 RealizePalette (hdc
);
2360 void palette_reset (void) {
2363 for (i
= 0; i
< NCOLOURS
; i
++) {
2365 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
2366 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
2367 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
2368 logpal
->palPalEntry
[i
].peFlags
= 0;
2369 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
2370 defpal
[i
].rgbtGreen
,
2371 defpal
[i
].rgbtBlue
);
2373 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
2374 defpal
[i
].rgbtGreen
,
2375 defpal
[i
].rgbtBlue
);
2380 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2382 RealizePalette (hdc
);
2387 void write_clip (void *data
, int len
, int must_deselect
) {
2391 clipdata
= GlobalAlloc (GMEM_DDESHARE
| GMEM_MOVEABLE
, len
+ 1);
2394 lock
= GlobalLock (clipdata
);
2397 memcpy (lock
, data
, len
);
2398 ((unsigned char *) lock
) [len
] = 0;
2399 GlobalUnlock (clipdata
);
2402 SendMessage (hwnd
, WM_IGNORE_CLIP
, TRUE
, 0);
2404 if (OpenClipboard (hwnd
)) {
2406 SetClipboardData (CF_TEXT
, clipdata
);
2409 GlobalFree (clipdata
);
2412 SendMessage (hwnd
, WM_IGNORE_CLIP
, FALSE
, 0);
2415 void get_clip (void **p
, int *len
) {
2416 static HGLOBAL clipdata
= NULL
;
2420 GlobalUnlock (clipdata
);
2424 if (OpenClipboard (NULL
)) {
2425 clipdata
= GetClipboardData (CF_TEXT
);
2428 *p
= GlobalLock (clipdata
);
2442 * Move `lines' lines from position `from' to position `to' in the
2445 void optimised_move (int to
, int from
, int lines
) {
2449 min
= (to
< from ? to
: from
);
2450 max
= to
+ from
- min
;
2452 r
.left
= 0; r
.right
= cols
* font_width
;
2453 r
.top
= min
* font_height
; r
.bottom
= (max
+lines
) * font_height
;
2454 ScrollWindow (hwnd
, 0, (to
- from
) * font_height
, &r
, &r
);
2458 * Print a message box and perform a fatal exit.
2460 void fatalbox(char *fmt
, ...) {
2465 vsprintf(stuff
, fmt
, ap
);
2467 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
2474 void beep(int errorbeep
) {
2475 static long last_beep
= 0;
2476 long now
, beep_diff
;
2478 now
= GetTickCount();
2479 beep_diff
= now
-last_beep
;
2481 /* Make sure we only respond to one beep per packet or so */
2482 if (beep_diff
>=0 && beep_diff
<50)
2486 MessageBeep(MB_ICONHAND
);
2490 last_beep
= GetTickCount();