16 #define PUTTY_DO_GLOBALS /* actually _define_ globals */
22 #define IDM_SHOWLOG 0x0010
23 #define IDM_NEWSESS 0x0020
24 #define IDM_DUPSESS 0x0030
25 #define IDM_RECONF 0x0040
26 #define IDM_CLRSB 0x0050
27 #define IDM_RESET 0x0060
28 #define IDM_TEL_AYT 0x0070
29 #define IDM_TEL_BRK 0x0080
30 #define IDM_TEL_SYNCH 0x0090
31 #define IDM_TEL_EC 0x00a0
32 #define IDM_TEL_EL 0x00b0
33 #define IDM_TEL_GA 0x00c0
34 #define IDM_TEL_NOP 0x00d0
35 #define IDM_TEL_ABORT 0x00e0
36 #define IDM_TEL_AO 0x00f0
37 #define IDM_TEL_IP 0x0100
38 #define IDM_TEL_SUSP 0x0110
39 #define IDM_TEL_EOR 0x0120
40 #define IDM_TEL_EOF 0x0130
41 #define IDM_ABOUT 0x0140
42 #define IDM_SAVEDSESS 0x0150
43 #define IDM_COPYALL 0x0160
45 #define IDM_SAVED_MIN 0x1000
46 #define IDM_SAVED_MAX 0x2000
48 #define WM_IGNORE_SIZE (WM_XUSER + 1)
49 #define WM_IGNORE_CLIP (WM_XUSER + 2)
51 /* Needed for Chinese support and apparently not always defined. */
53 #define VK_PROCESSKEY 0xE5
56 static LRESULT CALLBACK
WndProc (HWND
, UINT
, WPARAM
, LPARAM
);
57 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
, unsigned char *output
);
58 static void cfgtopalette(void);
59 static void init_palette(void);
60 static void init_fonts(int);
62 static int extra_width
, extra_height
;
64 static int pending_netevent
= 0;
65 static WPARAM pend_netevent_wParam
= 0;
66 static LPARAM pend_netevent_lParam
= 0;
67 static void enact_pending_netevent(void);
69 static time_t last_movement
= 0;
73 #define FONT_UNDERLINE 2
74 #define FONT_BOLDUND 3
76 #define FONT_OEMBOLD 5
77 #define FONT_OEMBOLDUND 6
79 static HFONT fonts
[8];
80 static int font_needs_hand_underlining
;
82 BOLD_COLOURS
, BOLD_SHADOW
, BOLD_FONT
90 static COLORREF colours
[NCOLOURS
];
92 static LPLOGPALETTE logpal
;
93 static RGBTRIPLE defpal
[NCOLOURS
];
97 static HBITMAP caretbm
;
99 static int dbltime
, lasttime
, lastact
;
100 static Mouse_Button lastbtn
;
102 static char *window_name
, *icon_name
;
104 static Ldisc
*real_ldisc
;
106 static int compose_state
= 0;
108 void begin_session(void) {
112 int WINAPI
WinMain(HINSTANCE inst
, HINSTANCE prev
, LPSTR cmdline
, int show
) {
113 static char appname
[] = "PuTTY";
118 int guess_width
, guess_height
;
121 flags
= FLAG_VERBOSE
| FLAG_INTERACTIVE
;
123 winsock_ver
= MAKEWORD(1, 1);
124 if (WSAStartup(winsock_ver
, &wsadata
)) {
125 MessageBox(NULL
, "Unable to initialise WinSock", "WinSock Error",
126 MB_OK
| MB_ICONEXCLAMATION
);
129 if (LOBYTE(wsadata
.wVersion
) != 1 || HIBYTE(wsadata
.wVersion
) != 1) {
130 MessageBox(NULL
, "WinSock version is incompatible with 1.1",
131 "WinSock Error", MB_OK
| MB_ICONEXCLAMATION
);
135 /* WISHLIST: maybe allow config tweaking even if winsock not present? */
138 InitCommonControls();
140 /* Ensure a Maximize setting in Explorer doesn't maximise the
145 * Process the command line.
150 default_protocol
= DEFAULT_PROTOCOL
;
151 default_port
= DEFAULT_PORT
;
153 do_defaults(NULL
, &cfg
);
156 while (*p
&& isspace(*p
)) p
++;
159 * Process command line options first. Yes, this can be
160 * done better, and it will be as soon as I have the
164 char *q
= p
+ strcspn(p
, " \t");
167 tolower(p
[0]) == 's' &&
168 tolower(p
[1]) == 's' &&
169 tolower(p
[2]) == 'h') {
170 default_protocol
= cfg
.protocol
= PROT_SSH
;
171 default_port
= cfg
.port
= 22;
172 } else if (q
== p
+ 3 &&
173 tolower(p
[0]) == 'l' &&
174 tolower(p
[1]) == 'o' &&
175 tolower(p
[2]) == 'g') {
176 logfile
= "putty.log";
177 } else if (q
== p
+ 7 &&
178 tolower(p
[0]) == 'c' &&
179 tolower(p
[1]) == 'l' &&
180 tolower(p
[2]) == 'e' &&
181 tolower(p
[3]) == 'a' &&
182 tolower(p
[4]) == 'n' &&
183 tolower(p
[5]) == 'u' &&
184 tolower(p
[6]) == 'p') {
186 * `putty -cleanup'. Remove all registry entries
187 * associated with PuTTY, and also find and delete
188 * the random seed file.
191 "This procedure will remove ALL Registry\n"
192 "entries associated with PuTTY, and will\n"
193 "also remove the PuTTY random seed file.\n"
195 "THIS PROCESS WILL DESTROY YOUR SAVED\n"
196 "SESSIONS. Are you really sure you want\n"
199 MB_YESNO
| MB_ICONWARNING
) == IDYES
) {
204 p
= q
+ strspn(q
, " \t");
208 * An initial @ means to activate a saved session.
212 while (i
> 1 && isspace(p
[i
-1]))
215 do_defaults (p
+1, &cfg
);
216 if (!*cfg
.host
&& !do_config()) {
220 } else if (*p
== '&') {
222 * An initial & means we've been given a command line
223 * containing the hex value of a HANDLE for a file
224 * mapping object, which we must then extract as a
229 if (sscanf(p
+1, "%p", &filemap
) == 1 &&
230 (cp
= MapViewOfFile(filemap
, FILE_MAP_READ
,
231 0, 0, sizeof(Config
))) != NULL
) {
234 CloseHandle(filemap
);
235 } else if (!do_config()) {
242 * If the hostname starts with "telnet:", set the
243 * protocol to Telnet and process the string as a
246 if (!strncmp(q
, "telnet:", 7)) {
250 if (q
[0] == '/' && q
[1] == '/')
252 cfg
.protocol
= PROT_TELNET
;
254 while (*p
&& *p
!= ':' && *p
!= '/') p
++;
262 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
263 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
265 while (*p
&& !isspace(*p
)) p
++;
268 strncpy (cfg
.host
, q
, sizeof(cfg
.host
)-1);
269 cfg
.host
[sizeof(cfg
.host
)-1] = '\0';
270 while (*p
&& isspace(*p
)) p
++;
283 /* See if host is of the form user@host */
284 if (cfg
.host
[0] != '\0') {
285 char *atsign
= strchr(cfg
.host
, '@');
286 /* Make sure we're not overflowing the user field */
288 if (atsign
-cfg
.host
< sizeof cfg
.username
) {
289 strncpy (cfg
.username
, cfg
.host
, atsign
-cfg
.host
);
290 cfg
.username
[atsign
-cfg
.host
] = '\0';
292 memmove(cfg
.host
, atsign
+1, 1+strlen(atsign
+1));
298 * Select protocol. This is farmed out into a table in a
299 * separate file to enable an ssh-free variant.
304 for (i
= 0; backends
[i
].backend
!= NULL
; i
++)
305 if (backends
[i
].protocol
== cfg
.protocol
) {
306 back
= backends
[i
].backend
;
310 MessageBox(NULL
, "Unsupported protocol number found",
311 "PuTTY Internal Error", MB_OK
| MB_ICONEXCLAMATION
);
317 real_ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
318 /* To start with, we use the simple line discipline, so we can
319 * type passwords etc without fear of them being echoed... */
320 ldisc
= &ldisc_simple
;
324 wndclass
.lpfnWndProc
= WndProc
;
325 wndclass
.cbClsExtra
= 0;
326 wndclass
.cbWndExtra
= 0;
327 wndclass
.hInstance
= inst
;
328 wndclass
.hIcon
= LoadIcon (inst
,
329 MAKEINTRESOURCE(IDI_MAINICON
));
330 wndclass
.hCursor
= LoadCursor (NULL
, IDC_IBEAM
);
331 wndclass
.hbrBackground
= GetStockObject (BLACK_BRUSH
);
332 wndclass
.lpszMenuName
= NULL
;
333 wndclass
.lpszClassName
= appname
;
335 RegisterClass (&wndclass
);
340 savelines
= cfg
.savelines
;
346 * Guess some defaults for the window size. This all gets
347 * updated later, so we don't really care too much. However, we
348 * do want the font width/height guesses to correspond to a
349 * large font rather than a small one...
356 term_size (cfg
.height
, cfg
.width
, cfg
.savelines
);
357 guess_width
= extra_width
+ font_width
* cols
;
358 guess_height
= extra_height
+ font_height
* rows
;
361 HWND w
= GetDesktopWindow();
362 GetWindowRect (w
, &r
);
363 if (guess_width
> r
.right
- r
.left
)
364 guess_width
= r
.right
- r
.left
;
365 if (guess_height
> r
.bottom
- r
.top
)
366 guess_height
= r
.bottom
- r
.top
;
370 int winmode
= WS_OVERLAPPEDWINDOW
|WS_VSCROLL
;
372 if (!cfg
.scrollbar
) winmode
&= ~(WS_VSCROLL
);
373 if (cfg
.locksize
) winmode
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
374 if (cfg
.alwaysontop
) exwinmode
= WS_EX_TOPMOST
;
375 hwnd
= CreateWindowEx (exwinmode
, appname
, appname
,
376 winmode
, CW_USEDEFAULT
, CW_USEDEFAULT
,
377 guess_width
, guess_height
,
378 NULL
, NULL
, inst
, NULL
);
382 * Initialise the fonts, simultaneously correcting the guesses
383 * for font_{width,height}.
385 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
390 * Correct the guesses for extra_{width,height}.
394 GetWindowRect (hwnd
, &wr
);
395 GetClientRect (hwnd
, &cr
);
396 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
397 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
401 * Resize the window, now we know what size we _really_ want it
404 guess_width
= extra_width
+ font_width
* cols
;
405 guess_height
= extra_height
+ font_height
* rows
;
406 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
407 SetWindowPos (hwnd
, NULL
, 0, 0, guess_width
, guess_height
,
408 SWP_NOMOVE
| SWP_NOREDRAW
| SWP_NOZORDER
);
411 * Set up a caret bitmap, with no content.
415 int size
= (font_width
+15)/16 * 2 * font_height
;
416 bits
= smalloc(size
);
417 memset(bits
, 0, size
);
418 caretbm
= CreateBitmap(font_width
, font_height
, 1, 1, bits
);
423 * Initialise the scroll bar.
428 si
.cbSize
= sizeof(si
);
429 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
434 SetScrollInfo (hwnd
, SB_VERT
, &si
, FALSE
);
438 * Start up the telnet connection.
442 char msg
[1024], *title
;
445 error
= back
->init (cfg
.host
, cfg
.port
, &realhost
);
447 sprintf(msg
, "Unable to open connection:\n%s", error
);
448 MessageBox(NULL
, msg
, "PuTTY Error", MB_ICONERROR
| MB_OK
);
451 window_name
= icon_name
= NULL
;
453 title
= cfg
.wintitle
;
455 sprintf(msg
, "%s - PuTTY", realhost
);
462 session_closed
= FALSE
;
465 * Set up the input and output buffers.
468 outbuf_reap
= outbuf_head
= 0;
471 * Prepare the mouse handler.
473 lastact
= MA_NOTHING
;
474 lastbtn
= MB_NOTHING
;
475 dbltime
= GetDoubleClickTime();
478 * Set up the session-control options on the system menu.
481 HMENU m
= GetSystemMenu (hwnd
, FALSE
);
485 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
486 if (cfg
.protocol
== PROT_TELNET
) {
488 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AYT
, "Are You There");
489 AppendMenu (p
, MF_ENABLED
, IDM_TEL_BRK
, "Break");
490 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SYNCH
, "Synch");
491 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
492 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EC
, "Erase Character");
493 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EL
, "Erase Line");
494 AppendMenu (p
, MF_ENABLED
, IDM_TEL_GA
, "Go Ahead");
495 AppendMenu (p
, MF_ENABLED
, IDM_TEL_NOP
, "No Operation");
496 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
497 AppendMenu (p
, MF_ENABLED
, IDM_TEL_ABORT
, "Abort Process");
498 AppendMenu (p
, MF_ENABLED
, IDM_TEL_AO
, "Abort Output");
499 AppendMenu (p
, MF_ENABLED
, IDM_TEL_IP
, "Interrupt Process");
500 AppendMenu (p
, MF_ENABLED
, IDM_TEL_SUSP
, "Suspend Process");
501 AppendMenu (p
, MF_SEPARATOR
, 0, 0);
502 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOR
, "End Of Record");
503 AppendMenu (p
, MF_ENABLED
, IDM_TEL_EOF
, "End Of File");
504 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) p
, "Telnet Command");
505 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
507 AppendMenu (m
, MF_ENABLED
, IDM_SHOWLOG
, "&Event Log");
508 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
509 AppendMenu (m
, MF_ENABLED
, IDM_NEWSESS
, "Ne&w Session...");
510 AppendMenu (m
, MF_ENABLED
, IDM_DUPSESS
, "&Duplicate Session");
513 for (i
= 1 ; i
< ((nsessions
< 256) ? nsessions
: 256) ; i
++)
514 AppendMenu (s
, MF_ENABLED
, IDM_SAVED_MIN
+ (16 * i
) , sessions
[i
]);
515 AppendMenu (m
, MF_POPUP
| MF_ENABLED
, (UINT
) s
, "Sa&ved Sessions");
516 AppendMenu (m
, MF_ENABLED
, IDM_RECONF
, "Chan&ge Settings...");
517 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
518 AppendMenu (m
, MF_ENABLED
, IDM_COPYALL
, "C&opy All to Clipboard");
519 AppendMenu (m
, MF_ENABLED
, IDM_CLRSB
, "C&lear Scrollback");
520 AppendMenu (m
, MF_ENABLED
, IDM_RESET
, "Rese&t Terminal");
521 AppendMenu (m
, MF_SEPARATOR
, 0, 0);
522 AppendMenu (m
, MF_ENABLED
, IDM_ABOUT
, "&About PuTTY");
526 * Finally show the window!
528 ShowWindow (hwnd
, show
);
531 * Set the palette up.
537 has_focus
= (GetForegroundWindow() == hwnd
);
540 if (GetMessage (&msg
, NULL
, 0, 0) == 1)
542 int timer_id
= 0, long_timer
= 0;
544 while (msg
.message
!= WM_QUIT
) {
545 /* Sometimes DispatchMessage calls routines that use their own
546 * GetMessage loop, setup this timer so we get some control back.
548 * Also call term_update() from the timer so that if the host
549 * is sending data flat out we still do redraws.
551 if(timer_id
&& long_timer
) {
552 KillTimer(hwnd
, timer_id
);
553 long_timer
= timer_id
= 0;
556 timer_id
= SetTimer(hwnd
, 1, 20, NULL
);
557 DispatchMessage (&msg
);
559 /* Make sure we blink everything that needs it. */
562 /* Send the paste buffer if there's anything to send */
565 /* If there's nothing new in the queue then we can do everything
566 * we've delayed, reading the socket, writing, and repainting
569 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
572 if (pending_netevent
) {
573 enact_pending_netevent();
575 /* Force the cursor blink on */
578 if (PeekMessage (&msg
, NULL
, 0, 0, PM_REMOVE
))
582 /* Okay there is now nothing to do so we make sure the screen is
583 * completely up to date then tell windows to call us in a little
587 KillTimer(hwnd
, timer_id
);
596 timer_id
= SetTimer(hwnd
, 1, 59500, NULL
);
598 timer_id
= SetTimer(hwnd
, 1, 100, NULL
);
601 /* There's no point rescanning everything in the message queue
602 * so we do an apperently unneccesary wait here
605 if (GetMessage (&msg
, NULL
, 0, 0) != 1)
617 DeleteObject(fonts
[i
]);
624 if (cfg
.protocol
== PROT_SSH
) {
635 * Set up, or shut down, an AsyncSelect. Called from winnet.c.
637 char *do_select(SOCKET skt
, int startup
) {
641 events
= FD_READ
| FD_WRITE
| FD_OOB
| FD_CLOSE
;
646 return "do_select(): internal error (hwnd==NULL)";
647 if (WSAAsyncSelect (skt
, hwnd
, msg
, events
) == SOCKET_ERROR
) {
648 switch (WSAGetLastError()) {
649 case WSAENETDOWN
: return "Network is down";
650 default: return "WSAAsyncSelect(): unknown error";
657 * Print a message box and close the connection.
659 void connection_fatal(char *fmt
, ...) {
664 vsprintf(stuff
, fmt
, ap
);
666 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
667 if (cfg
.close_on_exit
)
670 session_closed
= TRUE
;
671 SetWindowText (hwnd
, "PuTTY (inactive)");
676 * Actually do the job requested by a WM_NETEVENT
678 static void enact_pending_netevent(void) {
679 static int reentering
= 0;
680 extern int select_result(WPARAM
, LPARAM
);
684 return; /* don't unpend the pending */
686 pending_netevent
= FALSE
;
689 ret
= select_result (pend_netevent_wParam
, pend_netevent_lParam
);
693 if (cfg
.close_on_exit
)
696 session_closed
= TRUE
;
697 MessageBox(hwnd
, "Connection closed by remote host",
698 "PuTTY", MB_OK
| MB_ICONINFORMATION
);
699 SetWindowText (hwnd
, "PuTTY (inactive)");
705 * Copy the colour palette from the configuration data into defpal.
706 * This is non-trivial because the colour indices are different.
708 static void cfgtopalette(void) {
710 static const int ww
[] = {
711 6, 7, 8, 9, 10, 11, 12, 13,
712 14, 15, 16, 17, 18, 19, 20, 21,
713 0, 1, 2, 3, 4, 4, 5, 5
716 for (i
=0; i
<24; i
++) {
718 defpal
[i
].rgbtRed
= cfg
.colours
[w
][0];
719 defpal
[i
].rgbtGreen
= cfg
.colours
[w
][1];
720 defpal
[i
].rgbtBlue
= cfg
.colours
[w
][2];
725 * Set up the colour palette.
727 static void init_palette(void) {
729 HDC hdc
= GetDC (hwnd
);
731 if (cfg
.try_palette
&&
732 GetDeviceCaps (hdc
, RASTERCAPS
) & RC_PALETTE
) {
733 logpal
= smalloc(sizeof(*logpal
)
734 - sizeof(logpal
->palPalEntry
)
735 + NCOLOURS
* sizeof(PALETTEENTRY
));
736 logpal
->palVersion
= 0x300;
737 logpal
->palNumEntries
= NCOLOURS
;
738 for (i
= 0; i
< NCOLOURS
; i
++) {
739 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
740 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
741 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
742 logpal
->palPalEntry
[i
].peFlags
= PC_NOCOLLAPSE
;
744 pal
= CreatePalette (logpal
);
746 SelectPalette (hdc
, pal
, FALSE
);
747 RealizePalette (hdc
);
748 SelectPalette (hdc
, GetStockObject (DEFAULT_PALETTE
),
752 ReleaseDC (hwnd
, hdc
);
755 for (i
=0; i
<NCOLOURS
; i
++)
756 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
760 for(i
=0; i
<NCOLOURS
; i
++)
761 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
767 * Initialise all the fonts we will need. There may be as many as
768 * eight or as few as one. We also:
770 * - check the font width and height, correcting our guesses if
773 * - verify that the bold font is the same width as the ordinary
774 * one, and engage shadow bolding if not.
776 * - verify that the underlined font is the same width as the
777 * ordinary one (manual underlining by means of line drawing can
778 * be done in a pinch).
780 static void init_fonts(int pick_width
) {
785 int fw_dontcare
, fw_bold
;
794 if (cfg
.fontisbold
) {
795 fw_dontcare
= FW_BOLD
;
798 fw_dontcare
= FW_DONTCARE
;
804 font_height
= cfg
.fontheight
;
805 font_width
= pick_width
;
808 fonts[i] = CreateFont (font_height, font_width, 0, 0, w, FALSE, u, FALSE, \
809 c, OUT_DEFAULT_PRECIS, \
810 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, \
811 FIXED_PITCH | FF_DONTCARE, cfg.font)
813 if (cfg
.vtmode
!= VT_OEMONLY
) {
814 f(FONT_NORMAL
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
816 SelectObject (hdc
, fonts
[FONT_NORMAL
]);
817 GetTextMetrics(hdc
, &tm
);
818 font_height
= tm
.tmHeight
;
819 font_width
= tm
.tmAveCharWidth
;
821 f(FONT_UNDERLINE
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
824 * Some fonts, e.g. 9-pt Courier, draw their underlines
825 * outside their character cell. We successfully prevent
826 * screen corruption by clipping the text output, but then
827 * we lose the underline completely. Here we try to work
828 * out whether this is such a font, and if it is, we set a
829 * flag that causes underlines to be drawn by hand.
831 * Having tried other more sophisticated approaches (such
832 * as examining the TEXTMETRIC structure or requesting the
833 * height of a string), I think we'll do this the brute
834 * force way: we create a small bitmap, draw an underlined
835 * space on it, and test to see whether any pixels are
836 * foreground-coloured. (Since we expect the underline to
837 * go all the way across the character cell, we only search
838 * down a single column of the bitmap, half way across.)
842 HBITMAP und_bm
, und_oldbm
;
846 und_dc
= CreateCompatibleDC(hdc
);
847 und_bm
= CreateCompatibleBitmap(hdc
, font_width
, font_height
);
848 und_oldbm
= SelectObject(und_dc
, und_bm
);
849 SelectObject(und_dc
, fonts
[FONT_UNDERLINE
]);
850 SetTextAlign(und_dc
, TA_TOP
| TA_LEFT
| TA_NOUPDATECP
);
851 SetTextColor (und_dc
, RGB(255,255,255));
852 SetBkColor (und_dc
, RGB(0,0,0));
853 SetBkMode (und_dc
, OPAQUE
);
854 ExtTextOut (und_dc
, 0, 0, ETO_OPAQUE
, NULL
, " ", 1, NULL
);
856 for (i
= 0; i
< font_height
; i
++) {
857 c
= GetPixel(und_dc
, font_width
/2, i
);
861 SelectObject(und_dc
, und_oldbm
);
862 DeleteObject(und_bm
);
864 font_needs_hand_underlining
= !gotit
;
867 if (bold_mode
== BOLD_FONT
) {
868 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
869 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
872 if (cfg
.vtmode
== VT_OEMANSI
) {
873 f(FONT_OEM
, OEM_CHARSET
, fw_dontcare
, FALSE
);
874 f(FONT_OEMUND
, OEM_CHARSET
, fw_dontcare
, TRUE
);
876 if (bold_mode
== BOLD_FONT
) {
877 f(FONT_OEMBOLD
, OEM_CHARSET
, fw_bold
, FALSE
);
878 f(FONT_OEMBOLDUND
, OEM_CHARSET
, fw_bold
, TRUE
);
884 f(FONT_OEM
, cfg
.fontcharset
, fw_dontcare
, FALSE
);
886 SelectObject (hdc
, fonts
[FONT_OEM
]);
887 GetTextMetrics(hdc
, &tm
);
888 font_height
= tm
.tmHeight
;
889 font_width
= tm
.tmAveCharWidth
;
891 f(FONT_OEMUND
, cfg
.fontcharset
, fw_dontcare
, TRUE
);
893 if (bold_mode
== BOLD_FONT
) {
894 f(FONT_BOLD
, cfg
.fontcharset
, fw_bold
, FALSE
);
895 f(FONT_BOLDUND
, cfg
.fontcharset
, fw_bold
, TRUE
);
900 descent
= tm
.tmAscent
+ 1;
901 if (descent
>= font_height
)
902 descent
= font_height
- 1;
903 firstchar
= tm
.tmFirstChar
;
905 for (i
=0; i
<8; i
++) {
907 if (SelectObject (hdc
, fonts
[i
]) &&
908 GetTextMetrics(hdc
, &tm
) )
909 fsize
[i
] = tm
.tmAveCharWidth
+ 256 * tm
.tmHeight
;
915 ReleaseDC (hwnd
, hdc
);
917 /* ... This is wrong in OEM only mode */
918 if (fsize
[FONT_UNDERLINE
] != fsize
[FONT_NORMAL
] ||
919 (bold_mode
== BOLD_FONT
&&
920 fsize
[FONT_BOLDUND
] != fsize
[FONT_BOLD
])) {
922 DeleteObject (fonts
[FONT_UNDERLINE
]);
923 if (bold_mode
== BOLD_FONT
)
924 DeleteObject (fonts
[FONT_BOLDUND
]);
927 if (bold_mode
== BOLD_FONT
&&
928 fsize
[FONT_BOLD
] != fsize
[FONT_NORMAL
]) {
929 bold_mode
= BOLD_SHADOW
;
930 DeleteObject (fonts
[FONT_BOLD
]);
931 if (und_mode
== UND_FONT
)
932 DeleteObject (fonts
[FONT_BOLDUND
]);
936 /* With the fascist font painting it doesn't matter if the linedraw font
937 * isn't exactly the right size anymore so we don't have to check this.
939 if (cfg
.vtmode
== VT_OEMANSI
&& fsize
[FONT_OEM
] != fsize
[FONT_NORMAL
] ) {
940 if( cfg
.fontcharset
== OEM_CHARSET
)
942 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
943 "different sizes. Using OEM-only mode instead",
944 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
945 cfg
.vtmode
= VT_OEMONLY
;
947 else if( firstchar
< ' ' )
949 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
950 "different sizes. Using XTerm mode instead",
951 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
952 cfg
.vtmode
= VT_XWINDOWS
;
956 MessageBox(NULL
, "The OEM and ANSI versions of this font are\n"
957 "different sizes. Using ISO8859-1 mode instead",
958 "Font Size Mismatch", MB_ICONINFORMATION
| MB_OK
);
959 cfg
.vtmode
= VT_POORMAN
;
964 DeleteObject (fonts
[i
]);
970 void request_resize (int w
, int h
, int refont
) {
973 /* If the window is maximized supress resizing attempts */
974 if(IsZoomed(hwnd
)) return;
977 /* Don't do this in OEMANSI, you may get disable messages */
978 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132)
979 && cfg
.vtmode
!= VT_OEMANSI
)
981 if (refont
&& w
!= cols
&& (cols
==80 || cols
==132))
984 /* If font width too big for screen should we shrink the font more ? */
986 font_width
= ((font_width
*cols
+w
/2)/w
);
993 DeleteObject(fonts
[i
]);
995 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
997 init_fonts(font_width
);
1001 static int first_time
= 1;
1007 /* Get the size of the screen */
1008 if (GetClientRect(GetDesktopWindow(),&ss
))
1009 /* first_time = 0 */;
1010 else { first_time
= 2; break; }
1012 /* Make sure the values are sane */
1013 width
= (ss
.right
-ss
.left
-extra_width
) / font_width
;
1014 height
= (ss
.bottom
-ss
.top
-extra_height
) / font_height
;
1016 if (w
>width
) w
=width
;
1017 if (h
>height
) h
=height
;
1023 width
= extra_width
+ font_width
* w
;
1024 height
= extra_height
+ font_height
* h
;
1026 SetWindowPos (hwnd
, NULL
, 0, 0, width
, height
,
1027 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1028 SWP_NOMOVE
| SWP_NOZORDER
);
1031 static void click (Mouse_Button b
, int x
, int y
) {
1032 int thistime
= GetMessageTime();
1034 if (lastbtn
== b
&& thistime
- lasttime
< dbltime
) {
1035 lastact
= (lastact
== MA_CLICK ? MA_2CLK
:
1036 lastact
== MA_2CLK ? MA_3CLK
:
1037 lastact
== MA_3CLK ? MA_CLICK
: MA_NOTHING
);
1042 if (lastact
!= MA_NOTHING
)
1043 term_mouse (b
, lastact
, x
, y
);
1044 lasttime
= thistime
;
1047 static LRESULT CALLBACK
WndProc (HWND hwnd
, UINT message
,
1048 WPARAM wParam
, LPARAM lParam
) {
1050 static int ignore_size
= FALSE
;
1051 static int ignore_clip
= FALSE
;
1052 static int just_reconfigged
= FALSE
;
1053 static int resizing
= FALSE
;
1057 if (pending_netevent
)
1058 enact_pending_netevent();
1065 if (cfg
.ping_interval
> 0)
1069 if (now
-last_movement
> cfg
.ping_interval
* 60 - 10)
1071 back
->special(TS_PING
);
1072 last_movement
= now
;
1079 if (!cfg
.warn_on_close
|| session_closed
||
1080 MessageBox(hwnd
, "Are you sure you want to close this session?",
1081 "PuTTY Exit Confirmation",
1082 MB_ICONWARNING
| MB_OKCANCEL
) == IDOK
)
1083 DestroyWindow(hwnd
);
1086 PostQuitMessage (0);
1089 switch (wParam
& ~0xF) { /* low 4 bits reserved to Windows */
1101 PROCESS_INFORMATION pi
;
1102 HANDLE filemap
= NULL
;
1104 if (wParam
== IDM_DUPSESS
) {
1106 * Allocate a file-mapping memory chunk for the
1109 SECURITY_ATTRIBUTES sa
;
1112 sa
.nLength
= sizeof(sa
);
1113 sa
.lpSecurityDescriptor
= NULL
;
1114 sa
.bInheritHandle
= TRUE
;
1115 filemap
= CreateFileMapping((HANDLE
)0xFFFFFFFF,
1122 p
= (Config
*)MapViewOfFile(filemap
,
1124 0, 0, sizeof(Config
));
1126 *p
= cfg
; /* structure copy */
1130 sprintf(c
, "putty &%p", filemap
);
1132 } else if (wParam
== IDM_SAVEDSESS
) {
1133 char *session
= sessions
[(lParam
- IDM_SAVED_MIN
) / 16];
1134 cl
= smalloc(16 + strlen(session
)); /* 8, but play safe */
1136 cl
= NULL
; /* not a very important failure mode */
1138 sprintf(cl
, "putty @%s", session
);
1144 GetModuleFileName (NULL
, b
, sizeof(b
)-1);
1146 si
.lpReserved
= NULL
;
1147 si
.lpDesktop
= NULL
;
1151 si
.lpReserved2
= NULL
;
1152 CreateProcess (b
, cl
, NULL
, NULL
, TRUE
,
1153 NORMAL_PRIORITY_CLASS
, NULL
, NULL
, &si
, &pi
);
1156 CloseHandle(filemap
);
1163 int prev_alwaysontop
= cfg
.alwaysontop
;
1164 if (!do_reconfig(hwnd
))
1166 just_reconfigged
= TRUE
;
1171 DeleteObject(fonts
[i
]);
1173 bold_mode
= cfg
.bold_colour ? BOLD_COLOURS
: BOLD_FONT
;
1174 und_mode
= UND_FONT
;
1178 * Telnet will change local echo -> remote if the
1181 if (cfg
.protocol
!= PROT_TELNET
)
1182 ldisc
= (cfg
.ldisc_term ?
&ldisc_term
: &ldisc_simple
);
1190 /* Enable or disable the scroll bar, etc */
1192 LONG nflg
, flag
= GetWindowLong(hwnd
, GWL_STYLE
);
1193 LONG nexflag
, exflag
= GetWindowLong(hwnd
, GWL_EXSTYLE
);
1196 if (cfg
.alwaysontop
!= prev_alwaysontop
) {
1197 if (cfg
.alwaysontop
) {
1198 nexflag
= WS_EX_TOPMOST
;
1199 SetWindowPos(hwnd
, HWND_TOPMOST
, 0, 0, 0, 0,
1200 SWP_NOMOVE
| SWP_NOSIZE
);
1203 SetWindowPos(hwnd
, HWND_NOTOPMOST
, 0, 0, 0, 0,
1204 SWP_NOMOVE
| SWP_NOSIZE
);
1209 if (cfg
.scrollbar
) nflg
|= WS_VSCROLL
;
1210 else nflg
&= ~WS_VSCROLL
;
1212 nflg
&= ~(WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1214 nflg
|= (WS_THICKFRAME
|WS_MAXIMIZEBOX
);
1216 if (nflg
!= flag
|| nexflag
!= exflag
)
1221 SetWindowLong(hwnd
, GWL_STYLE
, nflg
);
1222 if (nexflag
!= exflag
)
1223 SetWindowLong(hwnd
, GWL_EXSTYLE
, nexflag
);
1225 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1226 SetWindowPos(hwnd
, NULL
, 0,0,0,0,
1227 SWP_NOACTIVATE
|SWP_NOCOPYBITS
|
1228 SWP_NOMOVE
|SWP_NOSIZE
|SWP_NOZORDER
|
1231 GetWindowRect (hwnd
, &wr
);
1232 GetClientRect (hwnd
, &cr
);
1233 extra_width
= wr
.right
- wr
.left
- cr
.right
+ cr
.left
;
1234 extra_height
= wr
.bottom
- wr
.top
- cr
.bottom
+ cr
.top
;
1238 term_size(cfg
.height
, cfg
.width
, cfg
.savelines
);
1239 InvalidateRect(hwnd
, NULL
, TRUE
);
1240 SetWindowPos (hwnd
, NULL
, 0, 0,
1241 extra_width
+ font_width
* cfg
.width
,
1242 extra_height
+ font_height
* cfg
.height
,
1243 SWP_NOACTIVATE
| SWP_NOCOPYBITS
|
1244 SWP_NOMOVE
| SWP_NOZORDER
);
1245 if (IsIconic(hwnd
)) {
1246 SetWindowText (hwnd
,
1247 cfg
.win_name_always ? window_name
: icon_name
);
1260 case IDM_TEL_AYT
: back
->special (TS_AYT
); break;
1261 case IDM_TEL_BRK
: back
->special (TS_BRK
); break;
1262 case IDM_TEL_SYNCH
: back
->special (TS_SYNCH
); break;
1263 case IDM_TEL_EC
: back
->special (TS_EC
); break;
1264 case IDM_TEL_EL
: back
->special (TS_EL
); break;
1265 case IDM_TEL_GA
: back
->special (TS_GA
); break;
1266 case IDM_TEL_NOP
: back
->special (TS_NOP
); break;
1267 case IDM_TEL_ABORT
: back
->special (TS_ABORT
); break;
1268 case IDM_TEL_AO
: back
->special (TS_AO
); break;
1269 case IDM_TEL_IP
: back
->special (TS_IP
); break;
1270 case IDM_TEL_SUSP
: back
->special (TS_SUSP
); break;
1271 case IDM_TEL_EOR
: back
->special (TS_EOR
); break;
1272 case IDM_TEL_EOF
: back
->special (TS_EOF
); break;
1277 if (wParam
>= IDM_SAVED_MIN
&& wParam
<= IDM_SAVED_MAX
) {
1278 SendMessage(hwnd
, WM_SYSCOMMAND
, IDM_SAVEDSESS
, wParam
);
1283 #define X_POS(l) ((int)(short)LOWORD(l))
1284 #define Y_POS(l) ((int)(short)HIWORD(l))
1286 #define TO_CHR_X(x) (((x)<0 ? (x)-font_width+1 : (x)) / font_width)
1287 #define TO_CHR_Y(y) (((y)<0 ? (y)-font_height+1: (y)) / font_height)
1289 case WM_LBUTTONDOWN
:
1290 click (MB_SELECT
, TO_CHR_X(X_POS(lParam
)),
1291 TO_CHR_Y(Y_POS(lParam
)));
1295 term_mouse (MB_SELECT
, MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1296 TO_CHR_Y(Y_POS(lParam
)));
1299 case WM_MBUTTONDOWN
:
1301 click (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1302 TO_CHR_X(X_POS(lParam
)),
1303 TO_CHR_Y(Y_POS(lParam
)));
1306 term_mouse (cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
,
1307 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1308 TO_CHR_Y(Y_POS(lParam
)));
1311 case WM_RBUTTONDOWN
:
1313 click (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1314 TO_CHR_X(X_POS(lParam
)),
1315 TO_CHR_Y(Y_POS(lParam
)));
1318 term_mouse (cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
,
1319 MA_RELEASE
, TO_CHR_X(X_POS(lParam
)),
1320 TO_CHR_Y(Y_POS(lParam
)));
1325 * Add the mouse position and message time to the random
1328 noise_ultralight(lParam
);
1330 if (wParam
& (MK_LBUTTON
| MK_MBUTTON
| MK_RBUTTON
)) {
1332 if (wParam
& MK_LBUTTON
)
1334 else if (wParam
& MK_MBUTTON
)
1335 b
= cfg
.mouse_is_xterm ? MB_PASTE
: MB_EXTEND
;
1337 b
= cfg
.mouse_is_xterm ? MB_EXTEND
: MB_PASTE
;
1338 term_mouse (b
, MA_DRAG
, TO_CHR_X(X_POS(lParam
)),
1339 TO_CHR_Y(Y_POS(lParam
)));
1342 case WM_IGNORE_CLIP
:
1343 ignore_clip
= wParam
; /* don't panic on DESTROYCLIPBOARD */
1345 case WM_DESTROYCLIPBOARD
:
1348 ignore_clip
= FALSE
;
1354 hdc
= BeginPaint (hwnd
, &p
);
1356 SelectPalette (hdc
, pal
, TRUE
);
1357 RealizePalette (hdc
);
1359 term_paint (hdc
, p
.rcPaint
.left
, p
.rcPaint
.top
,
1360 p
.rcPaint
.right
, p
.rcPaint
.bottom
);
1361 SelectObject (hdc
, GetStockObject(SYSTEM_FONT
));
1362 SelectObject (hdc
, GetStockObject(WHITE_PEN
));
1363 EndPaint (hwnd
, &p
);
1368 /* Notice we can get multiple netevents, FD_READ, FD_WRITE etc
1369 * but the only one that's likely to try to overload us is FD_READ.
1370 * This means buffering just one is fine.
1372 if (pending_netevent
)
1373 enact_pending_netevent();
1375 pending_netevent
= TRUE
;
1376 pend_netevent_wParam
=wParam
;
1377 pend_netevent_lParam
=lParam
;
1378 time(&last_movement
);
1382 CreateCaret(hwnd
, caretbm
, 0, 0);
1394 case WM_IGNORE_SIZE
:
1395 ignore_size
= TRUE
; /* don't panic on next WM_SIZE msg */
1397 case WM_ENTERSIZEMOVE
:
1401 case WM_EXITSIZEMOVE
:
1408 int width
, height
, w
, h
, ew
, eh
;
1409 LPRECT r
= (LPRECT
)lParam
;
1411 width
= r
->right
- r
->left
- extra_width
;
1412 height
= r
->bottom
- r
->top
- extra_height
;
1413 w
= (width
+ font_width
/2) / font_width
; if (w
< 1) w
= 1;
1414 h
= (height
+ font_height
/2) / font_height
; if (h
< 1) h
= 1;
1415 UpdateSizeTip(hwnd
, w
, h
);
1416 ew
= width
- w
* font_width
;
1417 eh
= height
- h
* font_height
;
1419 if (wParam
== WMSZ_LEFT
||
1420 wParam
== WMSZ_BOTTOMLEFT
||
1421 wParam
== WMSZ_TOPLEFT
)
1427 if (wParam
== WMSZ_TOP
||
1428 wParam
== WMSZ_TOPRIGHT
||
1429 wParam
== WMSZ_TOPLEFT
)
1439 /* break; (never reached) */
1441 if (wParam
== SIZE_MINIMIZED
) {
1442 SetWindowText (hwnd
,
1443 cfg
.win_name_always ? window_name
: icon_name
);
1446 if (wParam
== SIZE_RESTORED
|| wParam
== SIZE_MAXIMIZED
)
1447 SetWindowText (hwnd
, window_name
);
1449 int width
, height
, w
, h
;
1450 #if 0 /* we have fixed this using WM_SIZING now */
1454 width
= LOWORD(lParam
);
1455 height
= HIWORD(lParam
);
1456 w
= width
/ font_width
; if (w
< 1) w
= 1;
1457 h
= height
/ font_height
; if (h
< 1) h
= 1;
1458 #if 0 /* we have fixed this using WM_SIZING now */
1459 ew
= width
- w
* font_width
;
1460 eh
= height
- h
* font_height
;
1461 if (ew
!= 0 || eh
!= 0) {
1463 GetWindowRect (hwnd
, &r
);
1464 SendMessage (hwnd
, WM_IGNORE_SIZE
, 0, 0);
1465 SetWindowPos (hwnd
, NULL
, 0, 0,
1466 r
.right
- r
.left
- ew
, r
.bottom
- r
.top
- eh
,
1467 SWP_NOACTIVATE
| SWP_NOMOVE
| SWP_NOZORDER
);
1470 if (w
!= cols
|| h
!= rows
|| just_reconfigged
) {
1472 term_size (h
, w
, cfg
.savelines
);
1474 * Don't call back->size in mid-resize. (To prevent
1475 * massive numbers of resize events getting sent
1476 * down the connection during an NT opaque drag.)
1480 just_reconfigged
= FALSE
;
1483 ignore_size
= FALSE
;
1486 switch (LOWORD(wParam
)) {
1487 case SB_BOTTOM
: term_scroll(-1, 0); break;
1488 case SB_TOP
: term_scroll(+1, 0); break;
1489 case SB_LINEDOWN
: term_scroll (0, +1); break;
1490 case SB_LINEUP
: term_scroll (0, -1); break;
1491 case SB_PAGEDOWN
: term_scroll (0, +rows
/2); break;
1492 case SB_PAGEUP
: term_scroll (0, -rows
/2); break;
1493 case SB_THUMBPOSITION
: case SB_THUMBTRACK
:
1494 term_scroll (1, HIWORD(wParam
)); break;
1497 case WM_PALETTECHANGED
:
1498 if ((HWND
) wParam
!= hwnd
&& pal
!= NULL
) {
1499 HDC hdc
= get_ctx();
1501 if (RealizePalette (hdc
) > 0)
1507 case WM_QUERYNEWPALETTE
:
1509 HDC hdc
= get_ctx();
1511 if (RealizePalette (hdc
) > 0)
1523 * Add the scan code and keypress timing to the random
1526 noise_ultralight(lParam
);
1529 * We don't do TranslateMessage since it disassociates the
1530 * resulting CHAR message from the KEYDOWN that sparked it,
1531 * which we occasionally don't want. Instead, we process
1532 * KEYDOWN, and call the Win32 translator functions so that
1533 * we get the translations under _our_ control.
1536 unsigned char buf
[20];
1539 if (wParam
==VK_PROCESSKEY
) {
1542 m
.message
= WM_KEYDOWN
;
1544 m
.lParam
= lParam
& 0xdfff;
1545 TranslateMessage(&m
);
1547 len
= TranslateKey (message
, wParam
, lParam
, buf
);
1549 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1550 ldisc
->send (buf
, len
);
1556 unsigned char buf
[2];
1559 buf
[0] = wParam
>> 8;
1560 ldisc
->send (buf
, 2);
1565 * Nevertheless, we are prepared to deal with WM_CHAR
1566 * messages, should they crop up. So if someone wants to
1567 * post the things to us as part of a macro manoeuvre,
1568 * we're ready to cope.
1571 char c
= xlat_kbd2tty((unsigned char)wParam
);
1572 ldisc
->send (&c
, 1);
1577 return DefWindowProc (hwnd
, message
, wParam
, lParam
);
1581 * Move the system caret. (We maintain one, even though it's
1582 * invisible, for the benefit of blind people: apparently some
1583 * helper software tracks the system caret, so we should arrange to
1586 void sys_cursor(int x
, int y
) {
1587 SetCaretPos(x
* font_width
, y
* font_height
);
1591 * Draw a line of text in the window, at given character
1592 * coordinates, in given attributes.
1594 * We are allowed to fiddle with the contents of `text'.
1596 void do_text (Context ctx
, int x
, int y
, char *text
, int len
,
1597 unsigned long attr
, int lattr
) {
1599 int nfg
, nbg
, nfont
;
1602 int force_manual_underline
= 0;
1603 int fnt_width
= font_width
*(1+(lattr
!=LATTR_NORM
));
1604 static int *IpDx
= 0, IpDxLEN
= 0;;
1606 if (len
>IpDxLEN
|| IpDx
[0] != fnt_width
) {
1610 IpDx
= smalloc((len
+16)*sizeof(int));
1613 for(i
=0; i
<IpDxLEN
; i
++)
1614 IpDx
[i
] = fnt_width
;
1620 if (attr
& ATTR_ACTCURS
) {
1621 attr
&= (bold_mode
== BOLD_COLOURS ?
0x300200 : 0x300300);
1622 attr
^= ATTR_CUR_XOR
;
1626 if (cfg
.vtmode
== VT_OEMONLY
)
1630 * Map high-half characters in order to approximate ISO using
1631 * OEM character set. No characters are missing if the OEM codepage
1634 if (nfont
& FONT_OEM
) {
1636 for (i
=0; i
<len
; i
++)
1637 if (text
[i
] >= '\xA0' && text
[i
] <= '\xFF') {
1639 /* This is CP850 ... perfect translation */
1640 static const char oemhighhalf
[] =
1641 "\x20\xAD\xBD\x9C\xCF\xBE\xDD\xF5" /* A0-A7 */
1642 "\xF9\xB8\xA6\xAE\xAA\xF0\xA9\xEE" /* A8-AF */
1643 "\xF8\xF1\xFD\xFC\xEF\xE6\xF4\xFA" /* B0-B7 */
1644 "\xF7\xFB\xA7\xAF\xAC\xAB\xF3\xA8" /* B8-BF */
1645 "\xB7\xB5\xB6\xC7\x8E\x8F\x92\x80" /* C0-C7 */
1646 "\xD4\x90\xD2\xD3\xDE\xD6\xD7\xD8" /* C8-CF */
1647 "\xD1\xA5\xE3\xE0\xE2\xE5\x99\x9E" /* D0-D7 */
1648 "\x9D\xEB\xE9\xEA\x9A\xED\xE8\xE1" /* D8-DF */
1649 "\x85\xA0\x83\xC6\x84\x86\x91\x87" /* E0-E7 */
1650 "\x8A\x82\x88\x89\x8D\xA1\x8C\x8B" /* E8-EF */
1651 "\xD0\xA4\x95\xA2\x93\xE4\x94\xF6" /* F0-F7 */
1652 "\x9B\x97\xA3\x96\x81\xEC\xE7\x98" /* F8-FF */
1655 /* This is CP437 ... junk translation */
1656 static const unsigned char oemhighhalf
[] = {
1657 0xff, 0xad, 0x9b, 0x9c, 0x6f, 0x9d, 0x7c, 0x15,
1658 0x22, 0x43, 0xa6, 0xae, 0xaa, 0x2d, 0x52, 0xc4,
1659 0xf8, 0xf1, 0xfd, 0x33, 0x27, 0xe6, 0x14, 0xfa,
1660 0x2c, 0x31, 0xa7, 0xaf, 0xac, 0xab, 0x2f, 0xa8,
1661 0x41, 0x41, 0x41, 0x41, 0x8e, 0x8f, 0x92, 0x80,
1662 0x45, 0x90, 0x45, 0x45, 0x49, 0x49, 0x49, 0x49,
1663 0x44, 0xa5, 0x4f, 0x4f, 0x4f, 0x4f, 0x99, 0x78,
1664 0xed, 0x55, 0x55, 0x55, 0x9a, 0x59, 0x50, 0xe1,
1665 0x85, 0xa0, 0x83, 0x61, 0x84, 0x86, 0x91, 0x87,
1666 0x8a, 0x82, 0x88, 0x89, 0x8d, 0xa1, 0x8c, 0x8b,
1667 0x0b, 0xa4, 0x95, 0xa2, 0x93, 0x6f, 0x94, 0xf6,
1668 0xed, 0x97, 0xa3, 0x96, 0x81, 0x79, 0x70, 0x98
1671 text
[i
] = oemhighhalf
[(unsigned char)text
[i
] - 0xA0];
1675 if (attr
& ATTR_LINEDRW
) {
1678 static const char poorman
[] =
1679 "*#****\xB0\xB1**+++++-----++++|****\xA3\xB7";
1682 static const char oemmap_437
[] =
1683 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1684 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3\xF3\xF2\xE3*\x9C\xFA";
1687 static const char oemmap_850
[] =
1688 "\x04\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1689 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1691 /* Poor windows font ... eg: windows courier */
1692 static const char oemmap
[] =
1693 "*\xB1****\xF8\xF1**\xD9\xBF\xDA\xC0\xC5"
1694 "\xC4\xC4\xC4\xC4\xC4\xC3\xB4\xC1\xC2\xB3****\x9C\xFA";
1697 * Line drawing mapping: map ` thru ~ (0x60 thru 0x7E) to
1698 * VT100 line drawing chars; everything else stays normal.
1700 * Actually '_' maps to space too, but that's done before.
1702 switch (cfg
.vtmode
) {
1704 for (i
=0; i
<len
; i
++)
1705 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1706 text
[i
] += '\x01' - '\x60';
1709 /* Make sure we actually have an OEM font */
1710 if (fonts
[nfont
|FONT_OEM
]) {
1713 for (i
=0; i
<len
; i
++)
1714 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1715 text
[i
] = oemmap
[(unsigned char)text
[i
] - 0x60];
1719 for (i
=0; i
<len
; i
++)
1720 if (text
[i
] >= '\x60' && text
[i
] <= '\x7E')
1721 text
[i
] = poorman
[(unsigned char)text
[i
] - 0x60];
1726 nfg
= 2 * ((attr
& ATTR_FGMASK
) >> ATTR_FGSHIFT
);
1727 nbg
= 2 * ((attr
& ATTR_BGMASK
) >> ATTR_BGSHIFT
);
1728 if (bold_mode
== BOLD_FONT
&& (attr
& ATTR_BOLD
))
1730 if (und_mode
== UND_FONT
&& (attr
& ATTR_UNDER
))
1731 nfont
|= FONT_UNDERLINE
;
1734 if (nfont
&FONT_UNDERLINE
)
1735 force_manual_underline
= 1;
1736 /* Don't do the same for manual bold, it could be bad news. */
1738 nfont
&= ~(FONT_BOLD
|FONT_UNDERLINE
);
1740 if (font_needs_hand_underlining
&& (attr
& ATTR_UNDER
))
1741 force_manual_underline
= 1;
1742 if (attr
& ATTR_REVERSE
) {
1743 t
= nfg
; nfg
= nbg
; nbg
= t
;
1745 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BOLD
))
1747 if (bold_mode
== BOLD_COLOURS
&& (attr
& ATTR_BLINK
))
1751 SelectObject (hdc
, fonts
[nfont
]);
1752 SetTextColor (hdc
, fg
);
1753 SetBkColor (hdc
, bg
);
1754 SetBkMode (hdc
, OPAQUE
);
1757 line_box
.right
= x
+fnt_width
*len
;
1758 line_box
.bottom
= y
+font_height
;
1759 ExtTextOut (hdc
, x
, y
, ETO_CLIPPED
|ETO_OPAQUE
, &line_box
, text
, len
, IpDx
);
1760 if (bold_mode
== BOLD_SHADOW
&& (attr
& ATTR_BOLD
)) {
1761 SetBkMode (hdc
, TRANSPARENT
);
1763 /* GRR: This draws the character outside it's box and can leave
1764 * 'droppings' even with the clip box! I suppose I could loop it
1765 * one character at a time ... yuk.
1767 * Or ... I could do a test print with "W", and use +1 or -1 for this
1768 * shift depending on if the leftmost column is blank...
1770 ExtTextOut (hdc
, x
-1, y
, ETO_CLIPPED
, &line_box
, text
, len
, IpDx
);
1772 if (force_manual_underline
||
1773 (und_mode
== UND_LINE
&& (attr
& ATTR_UNDER
))) {
1775 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, fg
));
1776 MoveToEx (hdc
, x
, y
+descent
, NULL
);
1777 LineTo (hdc
, x
+len
*fnt_width
, y
+descent
);
1778 oldpen
= SelectObject (hdc
, oldpen
);
1779 DeleteObject (oldpen
);
1781 if (attr
& ATTR_PASCURS
) {
1784 pts
[0].x
= pts
[1].x
= pts
[4].x
= x
;
1785 pts
[2].x
= pts
[3].x
= x
+fnt_width
-1;
1786 pts
[0].y
= pts
[3].y
= pts
[4].y
= y
;
1787 pts
[1].y
= pts
[2].y
= y
+font_height
-1;
1788 oldpen
= SelectObject (hdc
, CreatePen(PS_SOLID
, 0, colours
[23]));
1789 Polyline (hdc
, pts
, 5);
1790 oldpen
= SelectObject (hdc
, oldpen
);
1791 DeleteObject (oldpen
);
1795 static int check_compose(int first
, int second
) {
1797 static char * composetbl
[] = {
1798 "++#", "AA@", "(([", "//\\", "))]", "(-{", "-)}", "/^|", "!!¡", "C/¢",
1799 "C|¢", "L-£", "L=£", "XO¤", "X0¤", "Y-¥", "Y=¥", "||¦", "SO§", "S!§",
1800 "S0§", "\"\"¨", "CO©", "C0©", "A_ª", "<<«", ",-¬", "--", "RO®",
1801 "-^¯", "0^°", "+-±", "2^²", "3^³", "''´", "/Uµ", "P!¶", ".^·", ",,¸",
1802 "1^¹", "O_º", ">>»", "14¼", "12½", "34¾", "??¿", "`AÀ", "'AÁ", "^AÂ",
1803 "~AÃ", "\"AÄ", "*AÅ", "AEÆ", ",CÇ", "`EÈ", "'EÉ", "^EÊ", "\"EË",
1804 "`IÌ", "'IÍ", "^IÎ", "\"IÏ", "-DÐ", "~NÑ", "`OÒ", "'OÓ", "^OÔ",
1805 "~OÕ", "\"OÖ", "XX×", "/OØ", "`UÙ", "'UÚ", "^UÛ", "\"UÜ", "'YÝ",
1806 "HTÞ", "ssß", "`aà", "'aá", "^aâ", "~aã", "\"aä", "*aå", "aeæ", ",cç",
1807 "`eè", "'eé", "^eê", "\"eë", "`iì", "'ií", "^iî", "\"iï", "-dð", "~nñ",
1808 "`oò", "'oó", "^oô", "~oõ", "\"oö", ":-÷", "o/ø", "`uù", "'uú", "^uû",
1809 "\"uü", "'yý", "htþ", "\"yÿ",
1813 static int recurse
= 0;
1816 for(c
=composetbl
; *c
; c
++) {
1817 if( (*c
)[0] == first
&& (*c
)[1] == second
)
1819 return (*c
)[2] & 0xFF;
1826 nc
= check_compose(second
, first
);
1828 nc
= check_compose(toupper(first
), toupper(second
));
1830 nc
= check_compose(toupper(second
), toupper(first
));
1838 * Translate a WM_(SYS)?KEY(UP|DOWN) message into a string of ASCII
1839 * codes. Returns number of bytes used or zero to drop the message
1840 * or -1 to forward the message to windows.
1842 static int TranslateKey(UINT message
, WPARAM wParam
, LPARAM lParam
,
1843 unsigned char *output
) {
1845 int scan
, left_alt
= 0, key_down
, shift_state
;
1847 unsigned char * p
= output
;
1849 static WORD keys
[3];
1850 static int compose_char
= 0;
1851 static WPARAM compose_key
= 0;
1853 r
= GetKeyboardState(keystate
);
1854 if (!r
) memset(keystate
, 0, sizeof(keystate
));
1858 { /* Tell us all about key events */
1859 static BYTE oldstate
[256];
1860 static int first
= 1;
1863 if(first
) memcpy(oldstate
, keystate
, sizeof(oldstate
));
1866 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
) {
1868 } else if ((HIWORD(lParam
)&KF_UP
) && scan
==(HIWORD(lParam
) & 0xFF) ) {
1872 if (wParam
>= VK_F1
&& wParam
<= VK_F20
)
1873 debug(("K_F%d", wParam
+1-VK_F1
));
1876 case VK_SHIFT
: debug(("SHIFT")); break;
1877 case VK_CONTROL
: debug(("CTRL")); break;
1878 case VK_MENU
: debug(("ALT")); break;
1879 default: debug(("VK_%02x", wParam
));
1881 if(message
== WM_SYSKEYDOWN
|| message
== WM_SYSKEYUP
)
1883 debug((", S%02x", scan
=(HIWORD(lParam
) & 0xFF) ));
1885 ch
= MapVirtualKey(wParam
, 2);
1886 if (ch
>=' ' && ch
<='~') debug((", '%c'", ch
));
1887 else if (ch
) debug((", $%02x", ch
));
1889 if (keys
[0]) debug((", KB0=%02x", keys
[0]));
1890 if (keys
[1]) debug((", KB1=%02x", keys
[1]));
1891 if (keys
[2]) debug((", KB2=%02x", keys
[2]));
1893 if ( (keystate
[VK_SHIFT
]&0x80)!=0) debug((", S"));
1894 if ( (keystate
[VK_CONTROL
]&0x80)!=0) debug((", C"));
1895 if ( (HIWORD(lParam
)&KF_EXTENDED
) ) debug((", E"));
1896 if ( (HIWORD(lParam
)&KF_UP
) ) debug((", U"));
1899 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1901 else if ( (HIWORD(lParam
)&KF_UP
) )
1902 oldstate
[wParam
&0xFF] ^= 0x80;
1904 oldstate
[wParam
&0xFF] ^= 0x81;
1906 for(ch
=0; ch
<256; ch
++)
1907 if (oldstate
[ch
] != keystate
[ch
])
1908 debug((", M%02x=%02x", ch
, keystate
[ch
]));
1910 memcpy(oldstate
, keystate
, sizeof(oldstate
));
1914 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
)) {
1915 keystate
[VK_RMENU
] = keystate
[VK_MENU
];
1918 /* Note if AltGr was pressed and if it was used as a compose key */
1919 if (cfg
.compose_key
) {
1920 if (wParam
== VK_MENU
&& (HIWORD(lParam
)&KF_EXTENDED
))
1922 if (!compose_state
) compose_key
= wParam
;
1924 if (wParam
== VK_APPS
&& !compose_state
)
1925 compose_key
= wParam
;
1927 if (wParam
== compose_key
)
1929 if (compose_state
== 0 && (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1931 else if (compose_state
== 1 && (HIWORD(lParam
)&KF_UP
))
1936 else if (compose_state
==1 && wParam
!= VK_CONTROL
)
1942 /* Nastyness with NUMLock - Shift-NUMLock is left alone though */
1943 if ( (cfg
.funky_type
== 3 ||
1944 (cfg
.funky_type
<= 1 && app_keypad_keys
&& !cfg
.no_applic_k
))
1945 && wParam
==VK_NUMLOCK
&& !(keystate
[VK_SHIFT
]&0x80)) {
1947 wParam
= VK_EXECUTE
;
1949 /* UnToggle NUMLock */
1950 if ((HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==0)
1951 keystate
[VK_NUMLOCK
] ^= 1;
1954 /* And write back the 'adjusted' state */
1955 SetKeyboardState (keystate
);
1958 /* Disable Auto repeat if required */
1959 if (repeat_off
&& (HIWORD(lParam
)&(KF_UP
|KF_REPEAT
))==KF_REPEAT
)
1962 if ((HIWORD(lParam
)&KF_ALTDOWN
) && (keystate
[VK_RMENU
]&0x80) == 0)
1965 key_down
= ((HIWORD(lParam
)&KF_UP
)==0);
1967 /* Make sure Ctrl-ALT is not the same as AltGr for ToAscii */
1968 if (left_alt
&& (keystate
[VK_CONTROL
]&0x80))
1969 keystate
[VK_MENU
] = 0;
1971 scan
= (HIWORD(lParam
) & (KF_UP
| KF_EXTENDED
| 0xFF));
1972 shift_state
= ((keystate
[VK_SHIFT
]&0x80)!=0)
1973 + ((keystate
[VK_CONTROL
]&0x80)!=0)*2;
1976 * Record that we pressed key so the scroll window can be reset, but
1977 * be careful to avoid Shift-UP/Down
1979 if( wParam
!= VK_SHIFT
&& wParam
!= VK_PRIOR
&& wParam
!= VK_NEXT
) {
1983 /* Make sure we're not pasting */
1984 if (key_down
) term_nopaste();
1986 if (compose_state
>1 && left_alt
) compose_state
= 0;
1988 /* Sanitize the number pad if not using a PC NumPad */
1989 if( left_alt
|| (app_keypad_keys
&& !cfg
.no_applic_k
1990 && cfg
.funky_type
!= 2)
1991 || cfg
.funky_type
== 3 || cfg
.nethack_keypad
|| compose_state
)
1993 if ((HIWORD(lParam
)&KF_EXTENDED
) == 0)
1998 case VK_INSERT
: nParam
= VK_NUMPAD0
; break;
1999 case VK_END
: nParam
= VK_NUMPAD1
; break;
2000 case VK_DOWN
: nParam
= VK_NUMPAD2
; break;
2001 case VK_NEXT
: nParam
= VK_NUMPAD3
; break;
2002 case VK_LEFT
: nParam
= VK_NUMPAD4
; break;
2003 case VK_CLEAR
: nParam
= VK_NUMPAD5
; break;
2004 case VK_RIGHT
: nParam
= VK_NUMPAD6
; break;
2005 case VK_HOME
: nParam
= VK_NUMPAD7
; break;
2006 case VK_UP
: nParam
= VK_NUMPAD8
; break;
2007 case VK_PRIOR
: nParam
= VK_NUMPAD9
; break;
2008 case VK_DELETE
: nParam
= VK_DECIMAL
; break;
2012 if (keystate
[VK_NUMLOCK
]&1) shift_state
|= 1;
2018 /* If a key is pressed and AltGr is not active */
2019 if (key_down
&& (keystate
[VK_RMENU
]&0x80) == 0 && !compose_state
)
2021 /* Okay, prepare for most alts then ...*/
2022 if (left_alt
) *p
++ = '\033';
2024 /* Lets see if it's a pattern we know all about ... */
2025 if (wParam
== VK_PRIOR
&& shift_state
== 1) {
2026 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEUP
, 0);
2029 if (wParam
== VK_NEXT
&& shift_state
== 1) {
2030 SendMessage (hwnd
, WM_VSCROLL
, SB_PAGEDOWN
, 0);
2033 if (wParam
== VK_INSERT
&& shift_state
== 1) {
2034 term_mouse (MB_PASTE
, MA_CLICK
, 0, 0);
2035 term_mouse (MB_PASTE
, MA_RELEASE
, 0, 0);
2038 if (left_alt
&& wParam
== VK_F4
&& cfg
.alt_f4
) {
2041 if (left_alt
&& wParam
== VK_SPACE
&& cfg
.alt_space
) {
2042 PostMessage(hwnd
, WM_CHAR
, ' ', 0);
2043 SendMessage (hwnd
, WM_SYSCOMMAND
, SC_KEYMENU
, 0);
2046 /* Control-Numlock for app-keypad mode switch */
2047 if (wParam
== VK_PAUSE
&& shift_state
== 2) {
2048 app_keypad_keys
^= 1;
2052 /* Nethack keypad */
2053 if (cfg
.nethack_keypad
&& !left_alt
) {
2055 case VK_NUMPAD1
: *p
++ = shift_state ?
'B': 'b'; return p
-output
;
2056 case VK_NUMPAD2
: *p
++ = shift_state ?
'J': 'j'; return p
-output
;
2057 case VK_NUMPAD3
: *p
++ = shift_state ?
'N': 'n'; return p
-output
;
2058 case VK_NUMPAD4
: *p
++ = shift_state ?
'H': 'h'; return p
-output
;
2059 case VK_NUMPAD5
: *p
++ = shift_state ?
'.': '.'; return p
-output
;
2060 case VK_NUMPAD6
: *p
++ = shift_state ?
'L': 'l'; return p
-output
;
2061 case VK_NUMPAD7
: *p
++ = shift_state ?
'Y': 'y'; return p
-output
;
2062 case VK_NUMPAD8
: *p
++ = shift_state ?
'K': 'k'; return p
-output
;
2063 case VK_NUMPAD9
: *p
++ = shift_state ?
'U': 'u'; return p
-output
;
2067 /* Application Keypad */
2071 if ( cfg
.funky_type
== 3 ||
2072 ( cfg
.funky_type
<= 1 &&
2073 app_keypad_keys
&& !cfg
.no_applic_k
)) switch(wParam
) {
2074 case VK_EXECUTE
: xkey
= 'P'; break;
2075 case VK_DIVIDE
: xkey
= 'Q'; break;
2076 case VK_MULTIPLY
:xkey
= 'R'; break;
2077 case VK_SUBTRACT
:xkey
= 'S'; break;
2079 if(app_keypad_keys
&& !cfg
.no_applic_k
) switch(wParam
) {
2080 case VK_NUMPAD0
: xkey
= 'p'; break;
2081 case VK_NUMPAD1
: xkey
= 'q'; break;
2082 case VK_NUMPAD2
: xkey
= 'r'; break;
2083 case VK_NUMPAD3
: xkey
= 's'; break;
2084 case VK_NUMPAD4
: xkey
= 't'; break;
2085 case VK_NUMPAD5
: xkey
= 'u'; break;
2086 case VK_NUMPAD6
: xkey
= 'v'; break;
2087 case VK_NUMPAD7
: xkey
= 'w'; break;
2088 case VK_NUMPAD8
: xkey
= 'x'; break;
2089 case VK_NUMPAD9
: xkey
= 'y'; break;
2091 case VK_DECIMAL
: xkey
= 'n'; break;
2092 case VK_ADD
: if(cfg
.funky_type
==2) {
2093 if(shift_state
) xkey
= 'l';
2095 } else if(shift_state
) xkey
= 'm';
2099 case VK_DIVIDE
: if(cfg
.funky_type
==2) xkey
= 'o'; break;
2100 case VK_MULTIPLY
:if(cfg
.funky_type
==2) xkey
= 'j'; break;
2101 case VK_SUBTRACT
:if(cfg
.funky_type
==2) xkey
= 'm'; break;
2104 if (HIWORD(lParam
)&KF_EXTENDED
)
2112 if (xkey
>='P' && xkey
<='S')
2113 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2115 p
+= sprintf((char *)p
, "\x1B?%c", xkey
);
2118 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2123 if (wParam
== VK_BACK
&& shift_state
== 0 ) /* Backspace */
2125 *p
++ = (cfg
.bksp_is_delete ?
0x7F : 0x08);
2128 if (wParam
== VK_TAB
&& shift_state
== 1 ) /* Shift tab */
2130 *p
++ = 0x1B; *p
++ = '['; *p
++ = 'Z'; return p
- output
;
2132 if (wParam
== VK_SPACE
&& shift_state
== 2 ) /* Ctrl-Space */
2134 *p
++ = 0; return p
- output
;
2136 if (wParam
== VK_SPACE
&& shift_state
== 3 ) /* Ctrl-Shift-Space */
2138 *p
++ = 160; return p
- output
;
2140 if (wParam
== VK_CANCEL
&& shift_state
== 2 ) /* Ctrl-Break */
2142 *p
++ = 3; return p
- output
;
2144 /* Control-2 to Control-8 are special */
2145 if (shift_state
== 2 && wParam
>= '2' && wParam
<= '8')
2147 *p
++ = "\000\033\034\035\036\037\177"[wParam
-'2'];
2150 if (shift_state
== 2 && wParam
== 0xBD) {
2154 if (shift_state
== 2 && wParam
== 0xDF) {
2158 if (shift_state
== 0 && wParam
== VK_RETURN
&& cr_lf_return
) {
2159 *p
++ = '\r'; *p
++ = '\n';
2164 * Next, all the keys that do tilde codes. (ESC '[' nn '~',
2165 * for integer decimal nn.)
2167 * We also deal with the weird ones here. Linux VCs replace F1
2168 * to F5 by ESC [ [ A to ESC [ [ E. rxvt doesn't do _that_, but
2169 * does replace Home and End (1~ and 4~) by ESC [ H and ESC O w
2174 case VK_F1
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
23 : 11); break;
2175 case VK_F2
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
24 : 12); break;
2176 case VK_F3
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
25 : 13); break;
2177 case VK_F4
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
26 : 14); break;
2178 case VK_F5
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
28 : 15); break;
2179 case VK_F6
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
29 : 17); break;
2180 case VK_F7
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
31 : 18); break;
2181 case VK_F8
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
32 : 19); break;
2182 case VK_F9
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
33 : 20); break;
2183 case VK_F10
: code
= (keystate
[VK_SHIFT
] & 0x80 ?
34 : 21); break;
2184 case VK_F11
: code
= 23; break;
2185 case VK_F12
: code
= 24; break;
2186 case VK_F13
: code
= 25; break;
2187 case VK_F14
: code
= 26; break;
2188 case VK_F15
: code
= 28; break;
2189 case VK_F16
: code
= 29; break;
2190 case VK_F17
: code
= 31; break;
2191 case VK_F18
: code
= 32; break;
2192 case VK_F19
: code
= 33; break;
2193 case VK_F20
: code
= 34; break;
2194 case VK_HOME
: code
= 1; break;
2195 case VK_INSERT
: code
= 2; break;
2196 case VK_DELETE
: code
= 3; break;
2197 case VK_END
: code
= 4; break;
2198 case VK_PRIOR
: code
= 5; break;
2199 case VK_NEXT
: code
= 6; break;
2201 /* Reorder edit keys to physical order */
2202 if (cfg
.funky_type
== 3 && code
<= 6 ) code
= "\0\2\1\4\5\3\6"[code
];
2204 if (cfg
.funky_type
== 1 && code
>= 11 && code
<= 15) {
2205 p
+= sprintf((char *)p
, "\x1B[[%c", code
+ 'A' - 11);
2208 if (cfg
.funky_type
== 2 && code
>= 11 && code
<= 14) {
2210 p
+= sprintf((char *)p
, "\x1B%c", code
+ 'P' - 11);
2212 p
+= sprintf((char *)p
, "\x1BO%c", code
+ 'P' - 11);
2215 if (cfg
.rxvt_homeend
&& (code
== 1 || code
== 4)) {
2216 p
+= sprintf((char *)p
, code
== 1 ?
"\x1B[H" : "\x1BOw");
2220 p
+= sprintf((char *)p
, "\x1B[%d~", code
);
2225 * Now the remaining keys (arrows and Keypad 5. Keypad 5 for
2226 * some reason seems to send VK_CLEAR to Windows...).
2231 case VK_UP
: xkey
= 'A'; break;
2232 case VK_DOWN
: xkey
= 'B'; break;
2233 case VK_RIGHT
: xkey
= 'C'; break;
2234 case VK_LEFT
: xkey
= 'D'; break;
2235 case VK_CLEAR
: xkey
= 'G'; break;
2240 p
+= sprintf((char *)p
, "\x1B%c", xkey
);
2241 else if (app_cursor_keys
&& !cfg
.no_applic_c
)
2242 p
+= sprintf((char *)p
, "\x1BO%c", xkey
);
2244 p
+= sprintf((char *)p
, "\x1B[%c", xkey
);
2250 * Finally, deal with Return ourselves. (Win95 seems to
2251 * foul it up when Alt is pressed, for some reason.)
2253 if (wParam
== VK_RETURN
) /* Return */
2260 /* Okay we've done everything interesting; let windows deal with
2261 * the boring stuff */
2263 BOOL capsOn
=keystate
[VK_CAPITAL
] !=0;
2265 /* helg: clear CAPS LOCK state if caps lock switches to cyrillic */
2266 if(cfg
.xlat_capslockcyr
)
2267 keystate
[VK_CAPITAL
] = 0;
2269 r
= ToAscii (wParam
, scan
, keystate
, keys
, 0);
2275 unsigned char ch
= (unsigned char)keys
[i
];
2277 if (compose_state
==2 && (ch
&0x80) == 0 && ch
>' ') {
2282 if (compose_state
==3 && (ch
&0x80) == 0 && ch
>' ') {
2286 if ((nc
=check_compose(compose_char
,ch
)) == -1)
2288 MessageBeep(MB_ICONHAND
);
2291 *p
++ = xlat_kbd2tty((unsigned char)nc
);
2297 if( left_alt
&& key_down
) *p
++ = '\033';
2303 ch
= xlat_latkbd2win(ch
);
2304 *p
++ = xlat_kbd2tty(ch
);
2308 /* This is so the ALT-Numpad and dead keys work correctly. */
2315 /* ALT alone may or may not want to bring up the System menu */
2316 if (wParam
== VK_MENU
) {
2318 static int alt_state
= 0;
2319 if (message
== WM_SYSKEYDOWN
)
2321 else if (message
== WM_SYSKEYUP
&& alt_state
)
2322 PostMessage(hwnd
, WM_CHAR
, ' ', 0);
2323 if (message
== WM_SYSKEYUP
)
2332 void set_title (char *title
) {
2333 sfree (window_name
);
2334 window_name
= smalloc(1+strlen(title
));
2335 strcpy (window_name
, title
);
2336 if (cfg
.win_name_always
|| !IsIconic(hwnd
))
2337 SetWindowText (hwnd
, title
);
2340 void set_icon (char *title
) {
2342 icon_name
= smalloc(1+strlen(title
));
2343 strcpy (icon_name
, title
);
2344 if (!cfg
.win_name_always
&& IsIconic(hwnd
))
2345 SetWindowText (hwnd
, title
);
2348 void set_sbar (int total
, int start
, int page
) {
2351 if (!cfg
.scrollbar
) return;
2353 si
.cbSize
= sizeof(si
);
2354 si
.fMask
= SIF_ALL
| SIF_DISABLENOSCROLL
;
2356 si
.nMax
= total
- 1;
2360 SetScrollInfo (hwnd
, SB_VERT
, &si
, TRUE
);
2363 Context
get_ctx(void) {
2368 SelectPalette (hdc
, pal
, FALSE
);
2374 void free_ctx (Context ctx
) {
2375 SelectPalette (ctx
, GetStockObject (DEFAULT_PALETTE
), FALSE
);
2376 ReleaseDC (hwnd
, ctx
);
2379 static void real_palette_set (int n
, int r
, int g
, int b
) {
2381 logpal
->palPalEntry
[n
].peRed
= r
;
2382 logpal
->palPalEntry
[n
].peGreen
= g
;
2383 logpal
->palPalEntry
[n
].peBlue
= b
;
2384 logpal
->palPalEntry
[n
].peFlags
= PC_NOCOLLAPSE
;
2385 colours
[n
] = PALETTERGB(r
, g
, b
);
2386 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2388 colours
[n
] = RGB(r
, g
, b
);
2391 void palette_set (int n
, int r
, int g
, int b
) {
2392 static const int first
[21] = {
2393 0, 2, 4, 6, 8, 10, 12, 14,
2394 1, 3, 5, 7, 9, 11, 13, 15,
2397 real_palette_set (first
[n
], r
, g
, b
);
2399 real_palette_set (first
[n
]+1, r
, g
, b
);
2401 HDC hdc
= get_ctx();
2402 UnrealizeObject (pal
);
2403 RealizePalette (hdc
);
2408 void palette_reset (void) {
2411 for (i
= 0; i
< NCOLOURS
; i
++) {
2413 logpal
->palPalEntry
[i
].peRed
= defpal
[i
].rgbtRed
;
2414 logpal
->palPalEntry
[i
].peGreen
= defpal
[i
].rgbtGreen
;
2415 logpal
->palPalEntry
[i
].peBlue
= defpal
[i
].rgbtBlue
;
2416 logpal
->palPalEntry
[i
].peFlags
= 0;
2417 colours
[i
] = PALETTERGB(defpal
[i
].rgbtRed
,
2418 defpal
[i
].rgbtGreen
,
2419 defpal
[i
].rgbtBlue
);
2421 colours
[i
] = RGB(defpal
[i
].rgbtRed
,
2422 defpal
[i
].rgbtGreen
,
2423 defpal
[i
].rgbtBlue
);
2428 SetPaletteEntries (pal
, 0, NCOLOURS
, logpal
->palPalEntry
);
2430 RealizePalette (hdc
);
2435 void write_clip (void *data
, int len
, int must_deselect
) {
2439 clipdata
= GlobalAlloc (GMEM_DDESHARE
| GMEM_MOVEABLE
, len
+ 1);
2442 lock
= GlobalLock (clipdata
);
2445 memcpy (lock
, data
, len
);
2446 ((unsigned char *) lock
) [len
] = 0;
2447 GlobalUnlock (clipdata
);
2450 SendMessage (hwnd
, WM_IGNORE_CLIP
, TRUE
, 0);
2452 if (OpenClipboard (hwnd
)) {
2454 SetClipboardData (CF_TEXT
, clipdata
);
2457 GlobalFree (clipdata
);
2460 SendMessage (hwnd
, WM_IGNORE_CLIP
, FALSE
, 0);
2463 void get_clip (void **p
, int *len
) {
2464 static HGLOBAL clipdata
= NULL
;
2468 GlobalUnlock (clipdata
);
2472 if (OpenClipboard (NULL
)) {
2473 clipdata
= GetClipboardData (CF_TEXT
);
2476 *p
= GlobalLock (clipdata
);
2490 * Move `lines' lines from position `from' to position `to' in the
2493 void optimised_move (int to
, int from
, int lines
) {
2497 min
= (to
< from ? to
: from
);
2498 max
= to
+ from
- min
;
2500 r
.left
= 0; r
.right
= cols
* font_width
;
2501 r
.top
= min
* font_height
; r
.bottom
= (max
+lines
) * font_height
;
2502 ScrollWindow (hwnd
, 0, (to
- from
) * font_height
, &r
, &r
);
2506 * Print a message box and perform a fatal exit.
2508 void fatalbox(char *fmt
, ...) {
2513 vsprintf(stuff
, fmt
, ap
);
2515 MessageBox(hwnd
, stuff
, "PuTTY Fatal Error", MB_ICONERROR
| MB_OK
);
2522 void beep(int errorbeep
) {
2523 static long last_beep
= 0;
2524 long now
, beep_diff
;
2526 now
= GetTickCount();
2527 beep_diff
= now
-last_beep
;
2529 /* Make sure we only respond to one beep per packet or so */
2530 if (beep_diff
>=0 && beep_diff
<50)
2534 MessageBeep(MB_ICONHAND
);
2538 last_beep
= GetTickCount();