1b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
2b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling#
3b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling# Emulation of has_key() function for platforms that don't use ncurses
4b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling#
5b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
6b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchlingimport _curses
7b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
8b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling# Table mapping curses keys to the terminfo capability name
9b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
10b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling_capability_names = {
11182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_A1: 'ka1',
12182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_A3: 'ka3',
13182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_B2: 'kb2',
14182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_BACKSPACE: 'kbs',
15182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_BEG: 'kbeg',
16182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_BTAB: 'kcbt',
17182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_C1: 'kc1',
18182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_C3: 'kc3',
19182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CANCEL: 'kcan',
20182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CATAB: 'ktbc',
21182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CLEAR: 'kclr',
22182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CLOSE: 'kclo',
23182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_COMMAND: 'kcmd',
24182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_COPY: 'kcpy',
25182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CREATE: 'kcrt',
26182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_CTAB: 'kctab',
27182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_DC: 'kdch1',
28182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_DL: 'kdl1',
29182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_DOWN: 'kcud1',
30182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_EIC: 'krmir',
31182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_END: 'kend',
32182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_ENTER: 'kent',
33182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_EOL: 'kel',
34182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_EOS: 'ked',
35182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_EXIT: 'kext',
36182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F0: 'kf0',
37182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F1: 'kf1',
38182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F10: 'kf10',
39182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F11: 'kf11',
40182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F12: 'kf12',
41182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F13: 'kf13',
42182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F14: 'kf14',
43182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F15: 'kf15',
44182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F16: 'kf16',
45182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F17: 'kf17',
46182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F18: 'kf18',
47182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F19: 'kf19',
48182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F2: 'kf2',
49182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F20: 'kf20',
50182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F21: 'kf21',
51182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F22: 'kf22',
52182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F23: 'kf23',
53182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F24: 'kf24',
54182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F25: 'kf25',
55182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F26: 'kf26',
56182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F27: 'kf27',
57182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F28: 'kf28',
58182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F29: 'kf29',
59182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F3: 'kf3',
60182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F30: 'kf30',
61182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F31: 'kf31',
62182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F32: 'kf32',
63182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F33: 'kf33',
64182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F34: 'kf34',
65182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F35: 'kf35',
66182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F36: 'kf36',
67182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F37: 'kf37',
68182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F38: 'kf38',
69182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F39: 'kf39',
70182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F4: 'kf4',
71182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F40: 'kf40',
72182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F41: 'kf41',
73182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F42: 'kf42',
74182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F43: 'kf43',
75182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F44: 'kf44',
76182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F45: 'kf45',
77182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F46: 'kf46',
78182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F47: 'kf47',
79182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F48: 'kf48',
80182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F49: 'kf49',
81182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F5: 'kf5',
82182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F50: 'kf50',
83182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F51: 'kf51',
84182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F52: 'kf52',
85182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F53: 'kf53',
86182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F54: 'kf54',
87182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F55: 'kf55',
88182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F56: 'kf56',
89182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F57: 'kf57',
90182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F58: 'kf58',
91182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F59: 'kf59',
92182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F6: 'kf6',
93182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F60: 'kf60',
94182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F61: 'kf61',
95182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F62: 'kf62',
96182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F63: 'kf63',
97182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F7: 'kf7',
98182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F8: 'kf8',
99182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_F9: 'kf9',
100182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_FIND: 'kfnd',
101182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_HELP: 'khlp',
102182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_HOME: 'khome',
103182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_IC: 'kich1',
104182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_IL: 'kil1',
105182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_LEFT: 'kcub1',
106182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_LL: 'kll',
107182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_MARK: 'kmrk',
108182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_MESSAGE: 'kmsg',
109182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_MOVE: 'kmov',
110182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_NEXT: 'knxt',
111182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_NPAGE: 'knp',
112182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_OPEN: 'kopn',
113182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_OPTIONS: 'kopt',
114182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_PPAGE: 'kpp',
115182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_PREVIOUS: 'kprv',
116182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_PRINT: 'kprt',
117182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_REDO: 'krdo',
118182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_REFERENCE: 'kref',
119182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_REFRESH: 'krfr',
120182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_REPLACE: 'krpl',
121182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_RESTART: 'krst',
122182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_RESUME: 'kres',
123182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_RIGHT: 'kcuf1',
124182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SAVE: 'ksav',
125182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SBEG: 'kBEG',
126182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SCANCEL: 'kCAN',
127182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SCOMMAND: 'kCMD',
128182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SCOPY: 'kCPY',
129182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SCREATE: 'kCRT',
130182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SDC: 'kDC',
131182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SDL: 'kDL',
132182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SELECT: 'kslt',
133182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SEND: 'kEND',
134182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SEOL: 'kEOL',
135182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SEXIT: 'kEXT',
136182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SF: 'kind',
137182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SFIND: 'kFND',
138182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SHELP: 'kHLP',
139182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SHOME: 'kHOM',
140182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SIC: 'kIC',
141182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SLEFT: 'kLFT',
142182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SMESSAGE: 'kMSG',
143182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SMOVE: 'kMOV',
144182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SNEXT: 'kNXT',
145182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SOPTIONS: 'kOPT',
146182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SPREVIOUS: 'kPRV',
147182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SPRINT: 'kPRT',
148182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SR: 'kri',
149182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SREDO: 'kRDO',
150182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SREPLACE: 'kRPL',
151182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SRIGHT: 'kRIT',
152182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SRSUME: 'kRES',
153182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SSAVE: 'kSAV',
154182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SSUSPEND: 'kSPD',
155182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_STAB: 'khts',
156182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SUNDO: 'kUND',
157182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_SUSPEND: 'kspd',
158182b5aca27d376b08a2904bed42b751496f932f3Tim Peters    _curses.KEY_UNDO: 'kund',
159b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    _curses.KEY_UP: 'kcuu1'
160b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    }
161b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
162b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchlingdef has_key(ch):
163f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling    if isinstance(ch, str):
164f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling        ch = ord(ch)
165b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
166b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    # Figure out the correct capability name for the keycode.
1670ec5288d09e2ac3652c8a88f644417629ed1e759Andrew M. Kuchling    capability_name = _capability_names.get(ch)
1680ec5288d09e2ac3652c8a88f644417629ed1e759Andrew M. Kuchling    if capability_name is None:
169f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling        return False
170b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
171b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    #Check the current terminal description for that capability;
172b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    #if present, return true, else return false.
173f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling    if _curses.tigetstr( capability_name ):
174f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling        return True
175f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling    else:
176f19f8610faa2119b14b9af72415f450e3ab7a1d3Andrew M. Kuchling        return False
177b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling
178b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchlingif __name__ == '__main__':
179b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    # Compare the output of this implementation and the ncurses has_key,
180b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    # on platforms where has_key is already available
181b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    try:
182b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling        L = []
183b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling        _curses.initscr()
184b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling        for key in _capability_names.keys():
1856e3dbbdf39f3b4eb6f18c0165e446df17218b7dcBenjamin Peterson            system = key in _curses
186b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling            python = has_key(key)
187b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling            if system != python:
188b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling                L.append( 'Mismatch for key %s, system=%i, Python=%i'
189b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling                          % (_curses.keyname( key ), system, python) )
190b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling    finally:
191b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling        _curses.endwin()
192b45bd325b5e816a939c78fc4a3f421cf65a9dc19Andrew M. Kuchling        for i in L: print i
193