Annotation of src/usr.bin/vim/term.c, Revision 1.1.1.1
1.1 downsj 1: /* $OpenBSD$ */
2: /* vi:set ts=4 sw=4:
3: *
4: * VIM - Vi IMproved by Bram Moolenaar
5: *
6: * Do ":help uganda" in Vim to read copying and usage conditions.
7: * Do ":help credits" in Vim to see a list of people who contributed.
8: */
9: /*
10: *
11: * term.c: functions for controlling the terminal
12: *
13: * primitive termcap support for Amiga, MSDOS, and Win32 included
14: *
15: * NOTE: padding and variable substitution is not performed,
16: * when compiling without HAVE_TGETENT, we use tputs() and tgoto() dummies.
17: */
18:
19: /*
20: * Some systems have a prototype for tgetstr() with (char *) instead of
21: * (char **). This define removes that prototype. We include our own prototype
22: * below.
23: */
24:
25: #define tgetstr tgetstr_defined_wrong
26: #include "vim.h"
27:
28: #include "globals.h"
29: #include "option.h"
30: #include "proto.h"
31:
32: #ifdef HAVE_TGETENT
33: # ifdef HAVE_TERMCAP_H
34: # include <termcap.h>
35: # endif
36:
37: /*
38: * A few linux systems define outfuntype in termcap.h to be used as the third
39: * argument for tputs().
40: */
41: # ifdef VMS
42: # define TPUTSFUNCAST
43: # else
44: # ifdef HAVE_OUTFUNTYPE
45: # define TPUTSFUNCAST (outfuntype)
46: # else
47: # define TPUTSFUNCAST (int (*)())
48: # endif
49: # endif
50: #endif
51:
52: #undef tgetstr
53:
54: /*
55: * Here are the builtin termcap entries. They are not stored as complete
56: * Tcarr structures, as such a structure is too big.
57: *
58: * The entries are compact, therefore they normally are included even when
59: * HAVE_TGETENT is defined. When HAVE_TGETENT is defined, the builtin entries
60: * can be accessed with "builtin_amiga", "builtin_ansi", "builtin_debug", etc.
61: *
62: * Each termcap is a list of builtin_term structures. It always starts with
63: * KS_NAME, which separates the entries. See parse_builtin_tcap() for all
64: * details.
65: * bt_entry is either a KS_xxx code (< 0x100), or a K_xxx code.
66: */
67: struct builtin_term
68: {
69: int bt_entry;
70: char *bt_string;
71: };
72:
73: /* start of keys that are not directly used by Vim but can be mapped */
74: #define BT_EXTRA_KEYS 0x101
75:
76: static struct builtin_term *find_builtin_term __ARGS((char_u *name));
77: static void parse_builtin_tcap __ARGS((char_u *s));
78: static void gather_termleader __ARGS((void));
79: static int get_bytes_from_buf __ARGS((char_u *, char_u *, int));
80: static int is_builtin_term __ARGS((char_u *));
81:
82: #ifdef HAVE_TGETENT
83: static char_u *tgetent_error __ARGS((char_u *, char_u *));
84:
85: /*
86: * Here is our own prototype for tgetstr(), any prototypes from the include
87: * files have been disabled by the define at the start of this file.
88: */
89: char *tgetstr __PARMS((char *, char **));
90:
91: /*
92: * Don't declare these variables if termcap.h contains them.
93: * Autoconf checks if these variables should be declared extern (not all
94: * systems have them).
95: * Some versions define ospeed to be speed_t, but that is incompatible with
96: * BSD, where ospeed is short and speed_t is long.
97: */
98: # ifndef HAVE_OSPEED
99: # ifdef OSPEED_EXTERN
100: extern short ospeed;
101: # else
102: short ospeed;
103: # endif
104: # endif
105: # ifndef HAVE_UP_BC_PC
106: # ifdef UP_BC_PC_EXTERN
107: extern char *UP, *BC, PC;
108: # else
109: char *UP, *BC, PC;
110: # endif
111: # endif
112:
113: # define TGETSTR(s, p) (char_u *)tgetstr((s), (char **)(p))
114: # define TGETENT(b, t) tgetent((char *)(b), (char *)(t))
115:
116: #endif /* HAVE_TGETENT */
117:
118: struct builtin_term builtin_termcaps[] =
119: {
120:
121: #if defined(USE_GUI)
122: /*
123: * Motif/Athena pseudo term-cap.
124: */
125: {KS_NAME, "gui"},
126: {KS_CE, "\033|$"},
127: {KS_AL, "\033|i"},
128: # ifdef TERMINFO
129: {KS_CAL, "\033|%p1%dI"},
130: # else
131: {KS_CAL, "\033|%dI"},
132: # endif
133: {KS_DL, "\033|d"},
134: # ifdef TERMINFO
135: {KS_CDL, "\033|%p1%dD"},
136: {KS_CS, "\033|%p1%d;%p2%dR"},
137: # else
138: {KS_CDL, "\033|%dD"},
139: {KS_CS, "\033|%d;%dR"},
140: # endif
141: {KS_CL, "\033|C"},
142: {KS_ME, "\033|63H"}, /* 63 = HL_ALL, H = off */
143: {KS_MR, "\033|1h"}, /* 1 = HL_INVERSE, h = on */
144: {KS_MD, "\033|2h"}, /* 2 = HL_BOLD, h = on */
145: {KS_SE, "\033|16H"}, /* 16 = HL_STANDOUT, H = off */
146: {KS_SO, "\033|16h"}, /* 16 = HL_STANDOUT, h = on */
147: {KS_UE, "\033|8H"}, /* 8 = HL_UNDERLINE, H = off */
148: {KS_US, "\033|8h"}, /* 8 = HL_UNDERLINE, h = on */
149: {KS_CZR, "\033|4H"}, /* 4 = HL_ITAL, H = off */
150: {KS_CZH, "\033|4h"}, /* 4 = HL_ITAL, h = on */
151: {KS_VB, "\033|f"},
152: # ifdef TERMINFO
153: {KS_CM, "\033|%p1%d;%p2%dM"},
154: # else
155: {KS_CM, "\033|%d;%dM"},
156: # endif
157: /* there are no key sequences here, the GUI sequences are recognized
158: * in check_termcodes() */
159: #endif
160:
161: #ifndef NO_BUILTIN_TCAPS
162:
163: # if defined(AMIGA) || defined(ALL_BUILTIN_TCAPS)
164: /*
165: * Amiga console window, default for Amiga
166: */
167: {KS_NAME, "amiga"},
168: {KS_CE, "\033[K"},
169: {KS_CD, "\033[J"},
170: {KS_AL, "\033[L"},
171: # ifdef TERMINFO
172: {KS_CAL, "\033[%p1%dL"},
173: # else
174: {KS_CAL, "\033[%dL"},
175: # endif
176: {KS_DL, "\033[M"},
177: # ifdef TERMINFO
178: {KS_CDL, "\033[%p1%dM"},
179: # else
180: {KS_CDL, "\033[%dM"},
181: # endif
182: {KS_CL, "\014"},
183: {KS_VI, "\033[0 p"},
184: {KS_VE, "\033[1 p"},
185: {KS_ME, "\033[0m"},
186: {KS_MR, "\033[7m"},
187: {KS_MD, "\033[1m"},
188: {KS_SE, "\033[0m"},
189: {KS_SO, "\033[33m"},
190: {KS_US, "\033[4m"},
191: {KS_UE, "\033[0m"},
192: {KS_CZH, "\033[3m"},
193: {KS_CZR, "\033[0m"},
194: {KS_MS, "\001"},
195: # ifdef TERMINFO
196: {KS_CM, "\033[%i%p1%d;%p2%dH"},
197: # else
198: {KS_CM, "\033[%i%d;%dH"},
199: # endif
200: # ifdef TERMINFO
201: {KS_CRI, "\033[%p1%dC"},
202: # else
203: {KS_CRI, "\033[%dC"},
204: # endif
205: {K_UP, "\233A"},
206: {K_DOWN, "\233B"},
207: {K_LEFT, "\233D"},
208: {K_RIGHT, "\233C"},
209: {K_S_UP, "\233T"},
210: {K_S_DOWN, "\233S"},
211: {K_S_LEFT, "\233 A"},
212: {K_S_RIGHT, "\233 @"},
213: {K_S_TAB, "\233Z"},
214: {K_F1, "\233\060~"},/* some compilers don't understand "\2330" */
215: {K_F2, "\233\061~"},
216: {K_F3, "\233\062~"},
217: {K_F4, "\233\063~"},
218: {K_F5, "\233\064~"},
219: {K_F6, "\233\065~"},
220: {K_F7, "\233\066~"},
221: {K_F8, "\233\067~"},
222: {K_F9, "\233\070~"},
223: {K_F10, "\233\071~"},
224: {K_S_F1, "\233\061\060~"},
225: {K_S_F2, "\233\061\061~"},
226: {K_S_F3, "\233\061\062~"},
227: {K_S_F4, "\233\061\063~"},
228: {K_S_F5, "\233\061\064~"},
229: {K_S_F6, "\233\061\065~"},
230: {K_S_F7, "\233\061\066~"},
231: {K_S_F8, "\233\061\067~"},
232: {K_S_F9, "\233\061\070~"},
233: {K_S_F10, "\233\061\071~"},
234: {K_HELP, "\233?~"},
235: {K_INS, "\233\064\060~"}, /* 101 key keyboard */
236: {K_PAGEUP, "\233\064\061~"}, /* 101 key keyboard */
237: {K_PAGEDOWN, "\233\064\062~"}, /* 101 key keyboard */
238: {K_HOME, "\233\064\064~"}, /* 101 key keyboard */
239: {K_END, "\233\064\065~"}, /* 101 key keyboard */
240:
241: {BT_EXTRA_KEYS, ""},
242: {TERMCAP2KEY('#', '2'), "\233\065\064~"}, /* shifted home key */
243: {TERMCAP2KEY('#', '3'), "\233\065\060~"}, /* shifted insert key */
244: {TERMCAP2KEY('*', '7'), "\233\065\065~"}, /* shifted end key */
245: # endif
246:
247: # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS) || defined(SOME_BUILTIN_TCAPS) || defined(__EMX__)
248: /*
249: * standard ANSI terminal, default for unix
250: */
251: {KS_NAME, "ansi"},
252: {KS_CE, "\033[K"},
253: {KS_AL, "\033[L"},
254: # ifdef TERMINFO
255: {KS_CAL, "\033[%p1%dL"},
256: # else
257: {KS_CAL, "\033[%dL"},
258: # endif
259: {KS_DL, "\033[M"},
260: # ifdef TERMINFO
261: {KS_CDL, "\033[%p1%dM"},
262: # else
263: {KS_CDL, "\033[%dM"},
264: # endif
265: {KS_CL, "\033[H\033[2J"},
266: {KS_ME, "\033[0m"},
267: {KS_MR, "\033[7m"},
268: {KS_MS, "\001"},
269: # ifdef TERMINFO
270: {KS_CM, "\033[%i%p1%d;%p2%dH"},
271: # else
272: {KS_CM, "\033[%i%d;%dH"},
273: # endif
274: # ifdef TERMINFO
275: {KS_CRI, "\033[%p1%dC"},
276: # else
277: {KS_CRI, "\033[%dC"},
278: # endif
279: # endif
280:
281: # if defined(MSDOS) || defined(ALL_BUILTIN_TCAPS) || defined(__EMX__)
282: /*
283: * These codes are valid when nansi.sys or equivalent has been installed.
284: * Function keys on a PC are preceded with a NUL. These are converted into
285: * K_NUL '\316' in mch_inchar(), because we cannot handle NULs in key codes.
286: * CTRL-arrow is used instead of SHIFT-arrow.
287: */
288: #ifdef __EMX__
289: {KS_NAME, "os2ansi"},
290: #else
291: {KS_NAME, "pcansi"},
292: {KS_DL, "\033[M"},
293: {KS_AL, "\033[L"},
294: #endif
295: {KS_CE, "\033[K"},
296: {KS_CL, "\033[2J"},
297: {KS_ME, "\033[0m"},
298: {KS_MR, "\033[7m"},
299: {KS_MS, "\001"},
300: # ifdef TERMINFO
301: {KS_CM, "\033[%i%p1%d;%p2%dH"},
302: # else
303: {KS_CM, "\033[%i%d;%dH"},
304: # endif
305: # ifdef TERMINFO
306: {KS_CRI, "\033[%p1%dC"},
307: # else
308: {KS_CRI, "\033[%dC"},
309: # endif
310: {K_UP, "\316H"},
311: {K_DOWN, "\316P"},
312: {K_LEFT, "\316K"},
313: {K_RIGHT, "\316M"},
314: {K_S_LEFT, "\316s"},
315: {K_S_RIGHT, "\316t"},
316: {K_F1, "\316;"},
317: {K_F2, "\316<"},
318: {K_F3, "\316="},
319: {K_F4, "\316>"},
320: {K_F5, "\316?"},
321: {K_F6, "\316@"},
322: {K_F7, "\316A"},
323: {K_F8, "\316B"},
324: {K_F9, "\316C"},
325: {K_F10, "\316D"},
326: {K_F11, "\316\205"}, /* guessed */
327: {K_F12, "\316\206"}, /* guessed */
328: {K_S_F1, "\316T"},
329: {K_S_F2, "\316U"},
330: {K_S_F3, "\316V"},
331: {K_S_F4, "\316W"},
332: {K_S_F5, "\316X"},
333: {K_S_F6, "\316Y"},
334: {K_S_F7, "\316Z"},
335: {K_S_F8, "\316["},
336: {K_S_F9, "\316\\"},
337: {K_S_F10, "\316]"},
338: {K_S_F11, "\316\207"}, /* guessed */
339: {K_S_F12, "\316\210"}, /* guessed */
340: {K_INS, "\316R"},
341: {K_DEL, "\316S"},
342: {K_HOME, "\316G"},
343: {K_END, "\316O"},
344: {K_PAGEDOWN, "\316Q"},
345: {K_PAGEUP, "\316I"},
346: # endif
347:
348: # if defined(MSDOS)
349: /*
350: * These codes are valid for the pc video. The entries that start with ESC |
351: * are translated into conio calls in msdos.c. Default for MSDOS.
352: */
353: {KS_NAME, "pcterm"},
354: {KS_CE, "\033|K"},
355: {KS_AL, "\033|L"},
356: {KS_DL, "\033|M"},
357: # ifdef TERMINFO
358: {KS_CS, "\033|%i%p1%d;%p2%dr"},
359: # else
360: {KS_CS, "\033|%i%d;%dr"},
361: # endif
362: {KS_CL, "\033|J"},
363: {KS_ME, "\033|0m"},
364: {KS_MR, "\033|112m"},
365: {KS_MD, "\033|63m"},
366: {KS_SE, "\033|0m"},
367: {KS_SO, "\033|31m"},
368: {KS_MS, "\001"},
369: # ifdef TERMINFO
370: {KS_CM, "\033|%i%p1%d;%p2%dH"},
371: # else
372: {KS_CM, "\033|%i%d;%dH"},
373: # endif
374: {K_UP, "\316H"},
375: {K_DOWN, "\316P"},
376: {K_LEFT, "\316K"},
377: {K_RIGHT, "\316M"},
378: {K_S_LEFT, "\316s"},
379: {K_S_RIGHT, "\316t"},
380: {K_S_TAB, "\316\017"},
381: {K_F1, "\316;"},
382: {K_F2, "\316<"},
383: {K_F3, "\316="},
384: {K_F4, "\316>"},
385: {K_F5, "\316?"},
386: {K_F6, "\316@"},
387: {K_F7, "\316A"},
388: {K_F8, "\316B"},
389: {K_F9, "\316C"},
390: {K_F10, "\316D"},
391: {K_F11, "\316\205"}, /* only when nobioskey */
392: {K_F12, "\316\206"}, /* only when nobioskey */
393: {K_S_F1, "\316T"},
394: {K_S_F2, "\316U"},
395: {K_S_F3, "\316V"},
396: {K_S_F4, "\316W"},
397: {K_S_F5, "\316X"},
398: {K_S_F6, "\316Y"},
399: {K_S_F7, "\316Z"},
400: {K_S_F8, "\316["},
401: {K_S_F9, "\316\\"},
402: {K_S_F10, "\316]"},
403: {K_S_F11, "\316\207"}, /* only when nobioskey */
404: {K_S_F12, "\316\210"}, /* only when nobioskey */
405: {K_INS, "\316R"},
406: {K_DEL, "\316S"},
407: {K_HOME, "\316G"},
408: {K_END, "\316O"},
409: {K_PAGEDOWN, "\316Q"},
410: {K_PAGEUP, "\316I"},
411: # endif
412:
413: # if defined(WIN32) || defined(ALL_BUILTIN_TCAPS) || defined(__EMX__)
414: /*
415: * These codes are valid for the Win32 Console . The entries that start with
416: * ESC | are translated into console calls in win32.c. The function keys
417: * are also translated in win32.c.
418: */
419: {KS_NAME, "win32"},
420: {KS_CE, "\033|K"}, /* clear to end of line */
421: {KS_AL, "\033|L"}, /* add new blank line */
422: # ifdef TERMINFO
423: {KS_CAL, "\033|%p1%dL"}, /* add number of new blank lines */
424: # else
425: {KS_CAL, "\033|%dL"}, /* add number of new blank lines */
426: # endif
427: {KS_DL, "\033|M"}, /* delete line */
428: # ifdef TERMINFO
429: {KS_CDL, "\033|%p1%dM"}, /* delete number of lines */
430: # else
431: {KS_CDL, "\033|%dM"}, /* delete number of lines */
432: # endif
433: {KS_CL, "\033|J"}, /* clear screen */
434: {KS_CD, "\033|j"}, /* clear to end of display */
435: {KS_VI, "\033|v"}, /* cursor invisible */
436: {KS_VE, "\033|V"}, /* cursor visible */
437:
438: {KS_ME, "\033|0m"}, /* normal mode */
439: {KS_MR, "\033|112m"}, /* reverse mode: black text on lightgray */
440: {KS_MD, "\033|63m"}, /* bold mode: white text on cyan */
441: #if 1
442: {KS_SO, "\033|31m"}, /* standout mode: white text on blue */
443: {KS_SE, "\033|0m"}, /* standout mode end */
444: #else
445: {KS_SO, "\033|F"}, /* standout mode: high intensity text */
446: {KS_SE, "\033|f"}, /* standout mode end */
447: #endif
448: {KS_CZH, "\033|225m"}, /* italic mode: blue text on yellow */
449: {KS_CZR, "\033|0m"}, /* italic mode end */
450: {KS_US, "\033|67m"}, /* underscore mode: cyan text on red */
451: {KS_UE, "\033|0m"}, /* underscore mode end */
452:
453: {KS_MS, "\001"}, /* save to move cur in reverse mode */
454: # ifdef TERMINFO
455: {KS_CM, "\033|%i%p1%d;%p2%dH"}, /* cursor motion */
456: # else
457: {KS_CM, "\033|%i%d;%dH"}, /* cursor motion */
458: # endif
459: {KS_VB, "\033|B"}, /* visual bell */
460: {KS_TI, "\033|S"}, /* put terminal in termcap mode */
461: {KS_TE, "\033|E"}, /* out of termcap mode */
462: {KS_CS, "\033|%i%d;%dr"}, /* scroll region */
463:
464: {K_UP, "\316H"},
465: {K_DOWN, "\316P"},
466: {K_LEFT, "\316K"},
467: {K_RIGHT, "\316M"},
468: {K_S_UP, "\316\304"},
469: {K_S_DOWN, "\316\317"},
470: {K_S_LEFT, "\316\311"},
471: {K_S_RIGHT, "\316\313"},
472: {K_S_TAB, "\316\017"},
473: {K_F1, "\316;"},
474: {K_F2, "\316<"},
475: {K_F3, "\316="},
476: {K_F4, "\316>"},
477: {K_F5, "\316?"},
478: {K_F6, "\316@"},
479: {K_F7, "\316A"},
480: {K_F8, "\316B"},
481: {K_F9, "\316C"},
482: {K_F10, "\316D"},
483: {K_F11, "\316\205"},
484: {K_F12, "\316\206"},
485: {K_S_F1, "\316T"},
486: {K_S_F2, "\316U"},
487: {K_S_F3, "\316V"},
488: {K_S_F4, "\316W"},
489: {K_S_F5, "\316X"},
490: {K_S_F6, "\316Y"},
491: {K_S_F7, "\316Z"},
492: {K_S_F8, "\316["},
493: {K_S_F9, "\316\\"},
494: {K_S_F10, "\316]"},
495: {K_S_F11, "\316\207"},
496: {K_S_F12, "\316\210"},
497: {K_INS, "\316R"},
498: {K_DEL, "\316S"},
499: {K_HOME, "\316G"},
500: {K_END, "\316O"},
501: {K_PAGEDOWN, "\316Q"},
502: {K_PAGEUP, "\316I"},
503: # endif
504:
505: # if defined(ALL_BUILTIN_TCAPS) || defined(MINT)
506: /*
507: * Ordinary vt52
508: */
509: {KS_NAME, "vt52"},
510: {KS_CE, "\033K"},
511: {KS_CD, "\033J"},
512: {KS_CM, "\033Y%+ %+ "},
513: # ifdef MINT
514: {KS_AL, "\033L"},
515: {KS_DL, "\033M"},
516: {KS_CL, "\033E"},
517: {KS_SR, "\033I"},
518: {KS_VE, "\033e"},
519: {KS_VI, "\033f"},
520: {KS_SO, "\033p"},
521: {KS_SE, "\033q"},
522: {K_UP, "\033A"},
523: {K_DOWN, "\033B"},
524: {K_LEFT, "\033D"},
525: {K_RIGHT, "\033C"},
526: {K_S_UP, "\033a"},
527: {K_S_DOWN, "\033b"},
528: {K_S_LEFT, "\033d"},
529: {K_S_RIGHT, "\033c"},
530: {K_F1, "\033P"},
531: {K_F2, "\033Q"},
532: {K_F3, "\033R"},
533: {K_F4, "\033S"},
534: {K_F5, "\033T"},
535: {K_F6, "\033U"},
536: {K_F7, "\033V"},
537: {K_F8, "\033W"},
538: {K_F9, "\033X"},
539: {K_F10, "\033Y"},
540: {K_S_F1, "\033p"},
541: {K_S_F2, "\033q"},
542: {K_S_F3, "\033r"},
543: {K_S_F4, "\033s"},
544: {K_S_F5, "\033t"},
545: {K_S_F6, "\033u"},
546: {K_S_F7, "\033v"},
547: {K_S_F8, "\033w"},
548: {K_S_F9, "\033x"},
549: {K_S_F10, "\033y"},
550: {K_INS, "\033I"},
551: {K_HOME, "\033E"},
552: {K_PAGEDOWN, "\033b"},
553: {K_PAGEUP, "\033a"},
554: # else
555: {KS_AL, "\033T"},
556: {KS_DL, "\033U"},
557: {KS_CL, "\033H\033J"},
558: {KS_ME, "\033SO"},
559: {KS_MR, "\033S2"},
560: {KS_MS, "\001"},
561: # endif
562: # endif
563:
564: # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS) || defined(SOME_BUILTIN_TCAPS) || defined(__EMX__)
565: /*
566: * The xterm termcap is missing F14 and F15, because they send the same
567: * codes as the undo and help key, although they don't work on all keyboards.
568: */
569: {KS_NAME, "xterm"},
570: {KS_CE, "\033[K"},
571: {KS_AL, "\033[L"},
572: # ifdef TERMINFO
573: {KS_CAL, "\033[%p1%dL"},
574: # else
575: {KS_CAL, "\033[%dL"},
576: # endif
577: {KS_DL, "\033[M"},
578: # ifdef TERMINFO
579: {KS_CDL, "\033[%p1%dM"},
580: # else
581: {KS_CDL, "\033[%dM"},
582: # endif
583: # ifdef TERMINFO
584: {KS_CS, "\033[%i%p1%d;%p2%dr"},
585: # else
586: {KS_CS, "\033[%i%d;%dr"},
587: # endif
588: {KS_CL, "\033[H\033[2J"},
589: {KS_CD, "\033[J"},
590: {KS_ME, "\033[m"},
591: {KS_MR, "\033[7m"},
592: {KS_MD, "\033[1m"},
593: {KS_UE, "\033[m"},
594: {KS_US, "\033[4m"},
595: {KS_MS, "\001"},
596: # ifdef TERMINFO
597: {KS_CM, "\033[%i%p1%d;%p2%dH"},
598: # else
599: {KS_CM, "\033[%i%d;%dH"},
600: # endif
601: {KS_SR, "\033M"},
602: # ifdef TERMINFO
603: {KS_CRI, "\033[%p1%dC"},
604: # else
605: {KS_CRI, "\033[%dC"},
606: # endif
607: {KS_KS, "\033[?1h\033="},
608: {KS_KE, "\033[?1l\033>"},
609: # ifdef SAVE_XTERM_SCREEN
610: {KS_TI, "\0337\033[?47h"},
611: {KS_TE, "\033[2J\033[?47l\0338"},
612: # endif
613: {K_UP, "\033OA"},
614: {K_DOWN, "\033OB"},
615: {K_LEFT, "\033OD"},
616: {K_RIGHT, "\033OC"},
617: {K_S_UP, "\033Ox"},
618: {K_S_DOWN, "\033Or"},
619: {K_S_LEFT, "\033Ot"},
620: {K_S_RIGHT, "\033Ov"},
621: {K_F1, "\033[11~"},
622: {K_F2, "\033[12~"},
623: {K_F3, "\033[13~"},
624: {K_F4, "\033[14~"},
625: {K_F5, "\033[15~"},
626: {K_F6, "\033[17~"},
627: {K_F7, "\033[18~"},
628: {K_F8, "\033[19~"},
629: {K_F9, "\033[20~"},
630: {K_F10, "\033[21~"},
631: {K_F11, "\033[23~"},
632: {K_F12, "\033[24~"},
633: {K_HELP, "\033[28~"},
634: {K_UNDO, "\033[26~"},
635: {K_INS, "\033[2~"},
636: {K_HOME, "\033[7~"}, /* also seen: "\033[1~" */
637: {K_END, "\033[8~"}, /* also seen: "\033[4~" */
638: {K_PAGEUP, "\033[5~"},
639: {K_PAGEDOWN, "\033[6~"},
640: /* {K_DEL, "\033[3~"}, not used */
641:
642: {BT_EXTRA_KEYS, ""},
643: {TERMCAP2KEY('k', '0'), "\033[10~"}, /* F0 */
644: {TERMCAP2KEY('F', '3'), "\033[25~"}, /* F13 */
645: {TERMCAP2KEY('F', '6'), "\033[29~"}, /* F16 */
646: {TERMCAP2KEY('F', '7'), "\033[31~"}, /* F17 */
647: {TERMCAP2KEY('F', '8'), "\033[32~"}, /* F18 */
648: {TERMCAP2KEY('F', '9'), "\033[33~"}, /* F19 */
649: {TERMCAP2KEY('F', 'A'), "\033[34~"}, /* F20 */
650: # endif
651:
652: # if defined(UNIX) || defined(ALL_BUILTIN_TCAPS)
653: /*
654: * iris-ansi for Silicon Graphics machines.
655: */
656: {KS_NAME, "iris-ansi"},
657: {KS_CE, "\033[K"},
658: {KS_CD, "\033[J"},
659: {KS_AL, "\033[L"},
660: # ifdef TERMINFO
661: {KS_CAL, "\033[%p1%dL"},
662: # else
663: {KS_CAL, "\033[%dL"},
664: # endif
665: {KS_DL, "\033[M"},
666: # ifdef TERMINFO
667: {KS_CDL, "\033[%p1%dM"},
668: # else
669: {KS_CDL, "\033[%dM"},
670: # endif
671: /*
672: * This "cs" is not working correctly. What is the right one?
673: */
674: #if 0
675: # ifdef TERMINFO
676: {KS_CS, "\033[%i%p1%d;%p2%dr"},
677: # else
678: {KS_CS, "\033[%i%d;%dr"},
679: # endif
680: #endif
681: {KS_CL, "\033[H\033[2J"},
682: {KS_VE, "\033[9/y\033[12/y\033[=6l"},
683: {KS_VS, "\033[10/y\033[=1h\033[=2l\033[=6h"},
684: {KS_SE, "\033[m"},
685: {KS_SO, "\033[1;7m"},
686: {KS_ME, "\033[m"},
687: {KS_MR, "\033[7m"},
688: {KS_MD, "\033[1m"},
689: {KS_UE, "\033[m"},
690: {KS_US, "\033[4m"},
691: {KS_MS, "\001"}, /* does this really work? */
692: # ifdef TERMINFO
693: {KS_CM, "\033[%i%p1%d;%p2%dH"},
694: # else
695: {KS_CM, "\033[%i%d;%dH"},
696: # endif
697: {KS_SR, "\033M"},
698: # ifdef TERMINFO
699: {KS_CRI, "\033[%p1%dC"},
700: # else
701: {KS_CRI, "\033[%dC"},
702: # endif
703: {K_UP, "\033[A"},
704: {K_DOWN, "\033[B"},
705: {K_LEFT, "\033[D"},
706: {K_RIGHT, "\033[C"},
707: {K_S_UP, "\033[161q"},
708: {K_S_DOWN, "\033[164q"},
709: {K_S_LEFT, "\033[158q"},
710: {K_S_RIGHT, "\033[167q"},
711: {K_F1, "\033[001q"},
712: {K_F2, "\033[002q"},
713: {K_F3, "\033[003q"},
714: {K_F4, "\033[004q"},
715: {K_F5, "\033[005q"},
716: {K_F6, "\033[006q"},
717: {K_F7, "\033[007q"},
718: {K_F8, "\033[008q"},
719: {K_F9, "\033[009q"},
720: {K_F10, "\033[010q"},
721: {K_F11, "\033[011q"},
722: {K_F12, "\033[012q"},
723: {K_S_F1, "\033[013q"},
724: {K_S_F2, "\033[014q"},
725: {K_S_F3, "\033[015q"},
726: {K_S_F4, "\033[016q"},
727: {K_S_F5, "\033[017q"},
728: {K_S_F6, "\033[018q"},
729: {K_S_F7, "\033[019q"},
730: {K_S_F8, "\033[020q"},
731: {K_S_F9, "\033[021q"},
732: {K_S_F10, "\033[022q"},
733: {K_S_F11, "\033[023q"},
734: {K_S_F12, "\033[024q"},
735: {K_INS, "\033[139q"},
736: {K_HOME, "\033[H"},
737: {K_END, "\033[146q"},
738: {K_PAGEUP, "\033[150q"},
739: {K_PAGEDOWN, "\033[154q"},
740: # endif
741:
742: # if defined(DEBUG) || defined(ALL_BUILTIN_TCAPS)
743: /*
744: * for debugging
745: */
746: {KS_NAME, "debug"},
747: {KS_CE, "[CE]"},
748: {KS_CD, "[CD]"},
749: {KS_AL, "[AL]"},
750: # ifdef TERMINFO
751: {KS_CAL, "[CAL%p1%d]"},
752: # else
753: {KS_CAL, "[CAL%d]"},
754: # endif
755: {KS_DL, "[DL]"},
756: # ifdef TERMINFO
757: {KS_CDL, "[CDL%p1%d]"},
758: # else
759: {KS_CDL, "[CDL%d]"},
760: # endif
761: # ifdef TERMINFO
762: {KS_CS, "[%dCS%p1%d]"},
763: # else
764: {KS_CS, "[%dCS%d]"},
765: # endif
766: {KS_CL, "[CL]"},
767: {KS_VI, "[VI]"},
768: {KS_VE, "[VE]"},
769: {KS_VS, "[VS]"},
770: {KS_ME, "[ME]"},
771: {KS_MR, "[MR]"},
772: {KS_MD, "[MD]"},
773: {KS_SE, "[SE]"},
774: {KS_SO, "[SO]"},
775: {KS_UE, "[UE]"},
776: {KS_US, "[US]"},
777: {KS_MS, "[MS]"},
778: # ifdef TERMINFO
779: {KS_CM, "[%p1%dCM%p2%d]"},
780: # else
781: {KS_CM, "[%dCM%d]"},
782: # endif
783: {KS_SR, "[SR]"},
784: # ifdef TERMINFO
785: {KS_CRI, "[CRI%p1%d]"},
786: # else
787: {KS_CRI, "[CRI%d]"},
788: # endif
789: {KS_VB, "[VB]"},
790: {KS_KS, "[KS]"},
791: {KS_KE, "[KE]"},
792: {KS_TI, "[TI]"},
793: {KS_TE, "[TE]"},
794: {K_UP, "[KU]"},
795: {K_DOWN, "[KD]"},
796: {K_LEFT, "[KL]"},
797: {K_RIGHT, "[KR]"},
798: {K_S_UP, "[S-KU]"},
799: {K_S_DOWN, "[S-KD]"},
800: {K_S_LEFT, "[S-KL]"},
801: {K_S_RIGHT, "[S-KR]"},
802: {K_F1, "[F1]"},
803: {K_F2, "[F2]"},
804: {K_F3, "[F3]"},
805: {K_F4, "[F4]"},
806: {K_F5, "[F5]"},
807: {K_F6, "[F6]"},
808: {K_F7, "[F7]"},
809: {K_F8, "[F8]"},
810: {K_F9, "[F9]"},
811: {K_F10, "[F10]"},
812: {K_F11, "[F11]"},
813: {K_F12, "[F12]"},
814: {K_S_F1, "[S-F1]"},
815: {K_S_F2, "[S-F2]"},
816: {K_S_F3, "[S-F3]"},
817: {K_S_F4, "[S-F4]"},
818: {K_S_F5, "[S-F5]"},
819: {K_S_F6, "[S-F6]"},
820: {K_S_F7, "[S-F7]"},
821: {K_S_F8, "[S-F8]"},
822: {K_S_F9, "[S-F9]"},
823: {K_S_F10, "[S-F10]"},
824: {K_S_F11, "[S-F11]"},
825: {K_S_F12, "[S-F12]"},
826: {K_HELP, "[HELP]"},
827: {K_UNDO, "[UNDO]"},
828: {K_BS, "[BS]"},
829: {K_INS, "[INS]"},
830: {K_DEL, "[DEL]"},
831: {K_HOME, "[HOME]"},
832: {K_END, "[END]"},
833: {K_PAGEUP, "[PAGEUP]"},
834: {K_PAGEDOWN, "[PAGEDOWN]"},
835: {K_MOUSE, "[MOUSE]"},
836: # endif
837:
838: #endif /* NO_BUILTIN_TCAPS */
839:
840: /*
841: * The most minimal terminal: only clear screen and cursor positioning
842: * Always included.
843: */
844: {KS_NAME, "dumb"},
845: {KS_CL, "\014"},
846: #ifdef TERMINFO
847: {KS_CM, "\033[%i%p1%d;%p2%dH"},
848: #else
849: {KS_CM, "\033[%i%d;%dH"},
850: #endif
851:
852: /*
853: * end marker
854: */
855: {KS_NAME, NULL}
856:
857: }; /* end of builtin_termcaps */
858:
859: /*
860: * DEFAULT_TERM is used, when no terminal is specified with -T option or $TERM.
861: */
862: #ifdef AMIGA
863: # define DEFAULT_TERM (char_u *)"amiga"
864: #endif /* AMIGA */
865:
866: #ifdef WIN32
867: # define DEFAULT_TERM (char_u *)"win32"
868: #endif /* WIN32 */
869:
870: #ifdef MSDOS
871: # define DEFAULT_TERM (char_u *)"pcterm"
872: #endif /* MSDOS */
873:
874: #if defined(UNIX) && !defined(MINT)
875: # define DEFAULT_TERM (char_u *)"ansi"
876: #endif /* UNIX */
877:
878: #ifdef MINT
879: # define DEFAULT_TERM (char_u *)"vt52"
880: #endif /* MINT */
881:
882: #ifdef __EMX__
883: # define DEFAULT_TERM (char_u *)"os2ansi"
884: #endif /* __EMX__ */
885:
886: #ifdef VMS
887: # define DEFAULT_TERM (char_u *)"ansi"
888: #endif /* VMS */
889:
890: /*
891: * Term_strings contains currently used terminal output strings.
892: * It is initialized with the default values by parse_builtin_tcap().
893: * The values can be changed by setting the option with the same name.
894: */
895: char_u *(term_strings[KS_LAST + 1]);
896:
897: static int need_gather = FALSE; /* need to fill termleader[] */
898: static char_u termleader[256 + 1]; /* for check_termcode() */
899:
900: static struct builtin_term *
901: find_builtin_term(term)
902: char_u *term;
903: {
904: struct builtin_term *p;
905:
906: p = builtin_termcaps;
907: while (p->bt_string != NULL)
908: {
909: if (p->bt_entry == KS_NAME)
910: {
911: #ifdef UNIX
912: if (STRCMP(p->bt_string, "iris-ansi") == 0 && is_iris_ansi(term))
913: return p;
914: else if (STRCMP(p->bt_string, "xterm") == 0 && is_xterm(term))
915: return p;
916: else
917: #endif
918: if (STRCMP(term, p->bt_string) == 0)
919: return p;
920: }
921: ++p;
922: }
923: return p;
924: }
925:
926: /*
927: * Parsing of the builtin termcap entries.
928: * Caller should check if 'name' is a valid builtin term.
929: * The terminal's name is not set, as this is already done in termcapinit().
930: */
931: static void
932: parse_builtin_tcap(term)
933: char_u *term;
934: {
935: struct builtin_term *p;
936: char_u name[2];
937:
938: p = find_builtin_term(term);
939: for (++p; p->bt_entry != KS_NAME && p->bt_entry != BT_EXTRA_KEYS; ++p)
940: {
941: if (p->bt_entry < 0x100) /* KS_xx entry */
942: {
943: if (term_strings[p->bt_entry] == NULL ||
944: term_strings[p->bt_entry] == empty_option)
945: term_strings[p->bt_entry] = (char_u *)p->bt_string;
946: }
947: else
948: {
949: name[0] = KEY2TERMCAP0(p->bt_entry);
950: name[1] = KEY2TERMCAP1(p->bt_entry);
951: if (find_termcode(name) == NULL)
952: add_termcode(name, (char_u *)p->bt_string);
953: }
954: }
955: }
956:
957: /*
958: * Set terminal options for terminal "term".
959: * Return OK if terminal 'term' was found in a termcap, FAIL otherwise.
960: *
961: * While doing this, until ttest(), some options may be NULL, be careful.
962: */
963: int
964: set_termname(term)
965: char_u *term;
966: {
967: struct builtin_term *termp;
968: #ifdef HAVE_TGETENT
969: int builtin_first = p_tbi;
970: int try;
971: int termcap_cleared = FALSE;
972: #endif
973: int width = 0, height = 0;
974: char_u *error_msg = NULL;
975: char_u *bs_p, *del_p;
976:
977: if (is_builtin_term(term))
978: {
979: term += 8;
980: #ifdef HAVE_TGETENT
981: builtin_first = 1;
982: #endif
983: }
984:
985: /*
986: * If HAVE_TGETENT is not defined, only the builtin termcap is used, otherwise:
987: * If builtin_first is TRUE:
988: * 0. try builtin termcap
989: * 1. try external termcap
990: * 2. if both fail default to a builtin terminal
991: * If builtin_first is FALSE:
992: * 1. try external termcap
993: * 2. try builtin termcap, if both fail default to a builtin terminal
994: */
995: #ifdef HAVE_TGETENT
996: for (try = builtin_first ? 0 : 1; try < 3; ++try)
997: {
998: /*
999: * Use external termcap
1000: */
1001: if (try == 1)
1002: {
1003: char_u *p;
1004: static char_u tstrbuf[TBUFSZ];
1005: int i;
1006: char_u tbuf[TBUFSZ];
1007: char_u *tp = tstrbuf;
1008: static char *(key_names[]) =
1009: {
1010: "ku", "kd", "kr", /* "kl" is a special case */
1011: # ifdef ARCHIE
1012: "su", "sd", /* Termcap code made up! */
1013: # endif
1014: "#4", "%i",
1015: "k1", "k2", "k3", "k4", "k5", "k6",
1016: "k7", "k8", "k9", "k;", "F1", "F2",
1017: "%1", "&8", "kb", "kI", "kD", "kh",
1018: "@7", "kP", "kN",
1019: NULL
1020: };
1021: static struct {
1022: int dest; /* index in term_strings[] */
1023: char *name; /* termcap name for string */
1024: } string_names[] =
1025: { {KS_CE, "ce"}, {KS_AL, "al"}, {KS_CAL, "AL"},
1026: {KS_DL, "dl"}, {KS_CDL, "DL"}, {KS_CS, "cs"},
1027: {KS_CL, "cl"}, {KS_CD, "cd"},
1028: {KS_VI, "vi"}, {KS_VE, "ve"},
1029: {KS_VS, "vs"}, {KS_ME, "me"}, {KS_MR, "mr"},
1030: {KS_MD, "md"}, {KS_SE, "se"}, {KS_SO, "so"},
1031: {KS_CZH, "ZH"}, {KS_CZR, "ZR"}, {KS_UE, "ue"},
1032: {KS_US, "us"}, {KS_CM, "cm"}, {KS_SR, "sr"},
1033: {KS_CRI, "RI"}, {KS_VB, "vb"}, {KS_KS, "ks"},
1034: {KS_KE, "ke"}, {KS_TI, "ti"}, {KS_TE, "te"},
1035: {0, NULL}
1036: };
1037:
1038: /*
1039: * If the external termcap does not have a matching entry, try the
1040: * builtin ones.
1041: */
1042: if ((error_msg = tgetent_error(tbuf, term)) == NULL)
1043: {
1044: if (!termcap_cleared)
1045: {
1046: clear_termoptions(); /* clear old options */
1047: termcap_cleared = TRUE;
1048: }
1049:
1050: /* get output strings */
1051: for (i = 0; string_names[i].name != NULL; ++i)
1052: {
1053: if (term_strings[string_names[i].dest] == NULL ||
1054: term_strings[string_names[i].dest] == empty_option)
1055: term_strings[string_names[i].dest] =
1056: TGETSTR(string_names[i].name, &tp);
1057: }
1058:
1059: if ((T_MS == NULL || T_MS == empty_option) && tgetflag("ms"))
1060: T_MS = (char_u *)"yes";
1061: if ((T_DB == NULL || T_DB == empty_option) && tgetflag("db"))
1062: T_DB = (char_u *)"yes";
1063: if ((T_DA == NULL || T_DA == empty_option) && tgetflag("da"))
1064: T_DA = (char_u *)"yes";
1065:
1066:
1067: /* get key codes */
1068:
1069: for (i = 0; key_names[i] != NULL; ++i)
1070: {
1071: if (find_termcode((char_u *)key_names[i]) == NULL)
1072: add_termcode((char_u *)key_names[i],
1073: TGETSTR(key_names[i], &tp));
1074: }
1075:
1076: /* if cursor-left == backspace, ignore it (televideo 925) */
1077: if (find_termcode((char_u *)"kl") == NULL)
1078: {
1079: p = TGETSTR("kl", &tp);
1080: if (p != NULL && *p != Ctrl('H'))
1081: add_termcode((char_u *)"kl", p);
1082: }
1083:
1084: if (height == 0)
1085: height = tgetnum("li");
1086: if (width == 0)
1087: width = tgetnum("co");
1088:
1089: # ifndef hpux
1090: BC = (char *)TGETSTR("bc", &tp);
1091: UP = (char *)TGETSTR("up", &tp);
1092: p = TGETSTR("pc", &tp);
1093: if (p)
1094: PC = *p;
1095: # endif /* hpux */
1096: }
1097: }
1098: else /* try == 0 || try == 2 */
1099: #endif /* HAVE_TGETENT */
1100: /*
1101: * Use builtin termcap
1102: */
1103: {
1104: #ifdef HAVE_TGETENT
1105: /*
1106: * If builtin termcap was already used, there is no need to search
1107: * for the builtin termcap again, quit now.
1108: */
1109: if (try == 2 && builtin_first && termcap_cleared)
1110: break;
1111: #endif
1112: /*
1113: * search for 'term' in builtin_termcaps[]
1114: */
1115: termp = find_builtin_term(term);
1116: if (termp->bt_string == NULL) /* did not find it */
1117: {
1118: #ifdef HAVE_TGETENT
1119: /*
1120: * If try == 0, first try the external termcap. If that is not
1121: * found we'll get back here with try == 2.
1122: * If termcap_cleared is set we used the external termcap,
1123: * don't complain about not finding the term in the builtin
1124: * termcap.
1125: */
1126: if (try == 0) /* try external one */
1127: continue;
1128: if (termcap_cleared) /* found in external termcap */
1129: break;
1130: #endif
1131:
1132: fprintf(stderr, "\r\n");
1133: if (error_msg != NULL)
1134: {
1135: fprintf(stderr, (char *)error_msg);
1136: fprintf(stderr, "\r\n");
1137: }
1138: fprintf(stderr, "'%s' not known. Available builtin terminals are:\r\n", term);
1139: for (termp = &(builtin_termcaps[0]); termp->bt_string != NULL;
1140: ++termp)
1141: {
1142: if (termp->bt_entry == KS_NAME)
1143: #ifdef HAVE_TGETENT
1144: fprintf(stderr, " builtin_%s\r\n", termp->bt_string);
1145: #else
1146: fprintf(stderr, " %s\r\n", termp->bt_string);
1147: #endif
1148: }
1149: if (!starting) /* when user typed :set term=xxx, quit here */
1150: {
1151: screen_start(); /* don't know where cursor is now */
1152: wait_return(TRUE);
1153: return FAIL;
1154: }
1155: term = DEFAULT_TERM;
1156: fprintf(stderr, "defaulting to '%s'\r\n", term);
1157: screen_start(); /* don't know where cursor is now */
1158: mch_delay(2000L, TRUE);
1159: set_string_option((char_u *)"term", -1, term, TRUE);
1160: }
1161: flushbuf();
1162: #ifdef HAVE_TGETENT
1163: if (!termcap_cleared)
1164: {
1165: #endif
1166: clear_termoptions(); /* clear old options */
1167: #ifdef HAVE_TGETENT
1168: termcap_cleared = TRUE;
1169: }
1170: #endif
1171: parse_builtin_tcap(term);
1172: #ifdef USE_GUI
1173: if (STRCMP(term, "gui") == 0)
1174: {
1175: flushbuf();
1176: settmode(0);
1177: gui_init();
1178: if (!gui.in_use) /* failed to start GUI */
1179: settmode(1);
1180: }
1181: #endif /* USE_GUI */
1182: }
1183: #ifdef HAVE_TGETENT
1184: }
1185: #endif
1186:
1187: /*
1188: * special: There is no info in the termcap about whether the cursor
1189: * positioning is relative to the start of the screen or to the start of the
1190: * scrolling region. We just guess here. Only msdos pcterm is known to do it
1191: * relative.
1192: */
1193: if (STRCMP(term, "pcterm") == 0)
1194: T_CSC = (char_u *)"yes";
1195: else
1196: T_CSC = empty_option;
1197:
1198: #ifdef UNIX
1199: /*
1200: * Any "stty" settings override the default for t_kb from the termcap.
1201: * This is in unix.c, because it depends a lot on the version of unix that is
1202: * being used.
1203: * Don't do this when the GUI is active, it uses "t_kb" and "t_kD" directly.
1204: */
1205: #ifdef USE_GUI
1206: if (!gui.in_use)
1207: #endif
1208: get_stty();
1209: #endif
1210:
1211: /*
1212: * If the termcap has no entry for 'bs' and/or 'del' and the ioctl() also
1213: * didn't work, use the default CTRL-H
1214: * The default for t_kD is DEL, unless t_kb is DEL.
1215: * The strsave'd strings are probably lost forever, well it's only two bytes.
1216: * Don't do this when the GUI is active, it uses "t_kb" and "t_kD" directly.
1217: */
1218: #ifdef USE_GUI
1219: if (!gui.in_use)
1220: #endif
1221: {
1222: bs_p = find_termcode((char_u *)"kb");
1223: del_p = find_termcode((char_u *)"kD");
1224: if (bs_p == NULL || *bs_p == NUL)
1225: add_termcode((char_u *)"kb", (bs_p = (char_u *)"\010"));
1226: if ((del_p == NULL || *del_p == NUL) &&
1227: (bs_p == NULL || *bs_p != '\177'))
1228: add_termcode((char_u *)"kD", (char_u *)"\177");
1229: }
1230:
1231: #ifdef USE_MOUSE
1232: /*
1233: * recognize mouse events in the input stream for xterm, msdos and win32
1234: */
1235: {
1236: char_u name[2];
1237:
1238: name[0] = KS_MOUSE;
1239: name[1] = K_FILLER;
1240: # ifdef UNIX
1241: if (is_xterm(term))
1242: add_termcode(name, (char_u *)"\033[M");
1243: # else
1244: add_termcode(name, (char_u *)"\233M");
1245: # endif
1246: }
1247: #endif
1248:
1249: #if defined(AMIGA) || defined(MSDOS) || defined(WIN32) || defined(OS2)
1250: /* DEFAULT_TERM indicates that it is the machine console. */
1251: if (STRCMP(term, DEFAULT_TERM))
1252: term_console = FALSE;
1253: else
1254: {
1255: term_console = TRUE;
1256: # ifdef AMIGA
1257: win_resize_on(); /* enable window resizing reports */
1258: # endif
1259: }
1260: #endif
1261:
1262: #ifdef UNIX
1263: /*
1264: * 'ttyfast' is default on for xterm, iris-ansi and a few others.
1265: */
1266: if (is_fastterm(term))
1267: p_tf = TRUE;
1268: #endif
1269: #if defined(AMIGA) || defined(MSDOS) || defined(WIN32) || defined(OS2)
1270: /*
1271: * 'ttyfast' is default on Amiga, MSDOS, Win32, and OS/2 consoles
1272: */
1273: if (term_console)
1274: p_tf = TRUE;
1275: #endif
1276:
1277: ttest(TRUE); /* make sure we have a valid set of terminal codes */
1278: set_term_defaults(); /* use current values as defaults */
1279:
1280: /*
1281: * Initialize the terminal with the appropriate termcap codes.
1282: * Set the mouse and window title if possible.
1283: * Don't do this when starting, need to parse the .vimrc first, because it
1284: * may redefine t_TI etc.
1285: */
1286: if (!starting)
1287: {
1288: starttermcap(); /* may change terminal mode */
1289: #ifdef USE_MOUSE
1290: setmouse(); /* may start using the mouse */
1291: #endif
1292: maketitle(); /* may display window title */
1293: }
1294:
1295: /* display initial screen after ttest() checking. jw. */
1296: if (width <= 0 || height <= 0)
1297: {
1298: /* termcap failed to report size */
1299: /* set defaults, in case mch_get_winsize also fails */
1300: width = 80;
1301: #if defined MSDOS || defined WIN32
1302: height = 25; /* console is often 25 lines */
1303: #else
1304: height = 24; /* most terminals are 24 lines */
1305: #endif
1306: }
1307: set_winsize(width, height, FALSE); /* may change Rows */
1308: if (!starting)
1309: {
1310: if (scroll_region)
1311: scroll_region_reset(); /* In case Rows changed */
1312: check_map_keycodes(); /* check mappings for terminal codes used */
1313: }
1314:
1315: return OK;
1316: }
1317:
1318: #ifdef HAVE_TGETENT
1319: /*
1320: * Call tgetent()
1321: * Return error message if it fails, NULL if it's OK.
1322: */
1323: static char_u *
1324: tgetent_error(tbuf, term)
1325: char_u *tbuf;
1326: char_u *term;
1327: {
1328: int i;
1329:
1330: i = TGETENT(tbuf, term);
1331: if (i == -1)
1332: return (char_u *)"Cannot open termcap file";
1333: if (i == 0)
1334: #ifdef TERMINFO
1335: return (char_u *)"Terminal entry not found in terminfo";
1336: #else
1337: return (char_u *)"Terminal entry not found in termcap";
1338: #endif
1339: return NULL;
1340: }
1341: #endif /* HAVE_TGETENT */
1342:
1343: #if defined(HAVE_TGETENT) && (defined(UNIX) || defined(__EMX__))
1344: /*
1345: * Get Columns and Rows from the termcap. Used after a window signal if the
1346: * ioctl() fails. It doesn't make sense to call tgetent each time if the "co"
1347: * and "li" entries never change. But on some systems this works.
1348: * Errors while getting the entries are ignored.
1349: */
1350: void
1351: getlinecol()
1352: {
1353: char_u tbuf[TBUFSZ];
1354:
1355: if (term_strings[KS_NAME] != NULL && TGETENT(tbuf, term_strings[KS_NAME]) > 0)
1356: {
1357: if (Columns == 0)
1358: Columns = tgetnum("co");
1359: if (Rows == 0)
1360: Rows = tgetnum("li");
1361: }
1362: }
1363: #endif /* defined(HAVE_TGETENT) && defined(UNIX) */
1364:
1365: /*
1366: * Get a string entry from the termcap and add it to the list of termcodes.
1367: * Used for <t_xx> special keys.
1368: * Give an error message for failure when not sourcing.
1369: * If force given, replace an existing entry.
1370: * Return FAIL if the entry was not found, OK if the entry was added.
1371: */
1372: int
1373: add_termcap_entry(name, force)
1374: char_u *name;
1375: int force;
1376: {
1377: char_u *term;
1378: int key;
1379: struct builtin_term *termp;
1380: #ifdef HAVE_TGETENT
1381: char_u *string;
1382: int i;
1383: int builtin_first;
1384: char_u tbuf[TBUFSZ];
1385: char_u tstrbuf[TBUFSZ];
1386: char_u *tp = tstrbuf;
1387: char_u *error_msg = NULL;
1388: #endif
1389:
1390: /*
1391: * If the GUI is running or will start in a moment, we only support the keys
1392: * that the GUI can produce.
1393: */
1394: #ifdef USE_GUI
1395: if (gui.in_use || gui.starting)
1396: return gui_mch_haskey(name);
1397: #endif
1398:
1399: if (!force && find_termcode(name) != NULL) /* it's already there */
1400: return OK;
1401:
1402: term = term_strings[KS_NAME];
1403: if (term == NULL) /* just in case */
1404: return FAIL;
1405:
1406: if (is_builtin_term(term)) /* name starts with "builtin_" */
1407: {
1408: term += 8;
1409: #ifdef HAVE_TGETENT
1410: builtin_first = TRUE;
1411: #endif
1412: }
1413: #ifdef HAVE_TGETENT
1414: else
1415: builtin_first = p_tbi;
1416: #endif
1417:
1418: #ifdef HAVE_TGETENT
1419: /*
1420: * We can get the entry from the builtin termcap and from the external one.
1421: * If 'ttybuiltin' is on or the terminal name starts with "builtin_", try
1422: * builtin termcap first.
1423: * If 'ttybuiltin' is off, try external termcap first.
1424: */
1425: for (i = 0; i < 2; ++i)
1426: {
1427: if (!builtin_first == i)
1428: #endif
1429: /*
1430: * Search in builtin termcap
1431: */
1432: {
1433: termp = find_builtin_term(term);
1434: if (termp->bt_string != NULL) /* found it */
1435: {
1436: key = TERMCAP2KEY(name[0], name[1]);
1437: while (termp->bt_entry != KS_NAME)
1438: {
1439: if (termp->bt_entry == key)
1440: {
1441: add_termcode(name, (char_u *)termp->bt_string);
1442: return OK;
1443: }
1444: ++termp;
1445: }
1446: }
1447: }
1448: #ifdef HAVE_TGETENT
1449: else
1450: /*
1451: * Search in external termcap
1452: */
1453: {
1454: error_msg = tgetent_error(tbuf, term);
1455: if (error_msg == NULL)
1456: {
1457: string = TGETSTR((char *)name, &tp);
1458: if (string != NULL && *string != NUL)
1459: {
1460: add_termcode(name, string);
1461: return OK;
1462: }
1463: }
1464: }
1465: }
1466: #endif
1467:
1468: if (sourcing_name == NULL)
1469: {
1470: #ifdef HAVE_TGETENT
1471: if (error_msg != NULL)
1472: EMSG(error_msg);
1473: else
1474: #endif
1475: EMSG2("No \"%s\" entry in termcap", name);
1476: }
1477: return FAIL;
1478: }
1479:
1480: static int
1481: is_builtin_term(name)
1482: char_u *name;
1483: {
1484: return (STRNCMP(name, "builtin_", (size_t)8) == 0);
1485: }
1486:
1487: static char_u *tltoa __PARMS((unsigned long));
1488:
1489: static char_u *
1490: tltoa(i)
1491: unsigned long i;
1492: {
1493: static char_u buf[16];
1494: char_u *p;
1495:
1496: p = buf + 15;
1497: *p = '\0';
1498: do
1499: {
1500: --p;
1501: *p = (char_u) (i % 10 + '0');
1502: i /= 10;
1503: }
1504: while (i > 0 && p > buf);
1505: return p;
1506: }
1507:
1508: #ifndef HAVE_TGETENT
1509:
1510: /*
1511: * minimal tgoto() implementation.
1512: * no padding and we only parse for %i %d and %+char
1513: */
1514: char *tgoto __ARGS((char *, int, int));
1515:
1516: char *
1517: tgoto(cm, x, y)
1518: char *cm;
1519: int x, y;
1520: {
1521: static char buf[30];
1522: char *p, *s, *e;
1523:
1524: if (!cm)
1525: return "OOPS";
1526: e = buf + 29;
1527: for (s = buf; s < e && *cm; cm++)
1528: {
1529: if (*cm != '%')
1530: {
1531: *s++ = *cm;
1532: continue;
1533: }
1534: switch (*++cm)
1535: {
1536: case 'd':
1537: p = (char *)tltoa((unsigned long)y);
1538: y = x;
1539: while (*p)
1540: *s++ = *p++;
1541: break;
1542: case 'i':
1543: x++;
1544: y++;
1545: break;
1546: case '+':
1547: *s++ = (char)(*++cm + y);
1548: y = x;
1549: break;
1550: case '%':
1551: *s++ = *cm;
1552: break;
1553: default:
1554: return "OOPS";
1555: }
1556: }
1557: *s = '\0';
1558: return buf;
1559: }
1560:
1561: #endif /* HAVE_TGETENT */
1562:
1563: /*
1564: * Set the terminal name to "term" and initialize the terminal options.
1565: * If "term" is NULL or empty, get the terminal name from the environment.
1566: * If that fails, use the default terminal name.
1567: */
1568: void
1569: termcapinit(term)
1570: char_u *term;
1571: {
1572: if (!term || !*term)
1573: term = vim_getenv((char_u *)"TERM");
1574: if (!term || !*term)
1575: term = DEFAULT_TERM;
1576: set_string_option((char_u *)"term", -1, term, TRUE);
1577: /*
1578: * Avoid using "term" here, because the next vim_getenv() may overwrite it.
1579: */
1580: set_termname(term_strings[KS_NAME] != NULL ? term_strings[KS_NAME] : term);
1581: }
1582:
1583: /*
1584: * the number of calls to mch_write is reduced by using the buffer "outbuf"
1585: */
1586: #undef BSIZE /* hpux has BSIZE in sys/option.h */
1587: #define BSIZE 2048
1588: static char_u outbuf[BSIZE];
1589: static int bpos = 0; /* number of chars in outbuf */
1590:
1591: /*
1592: * flushbuf(): flush the output buffer
1593: */
1594: void
1595: flushbuf()
1596: {
1597: if (bpos != 0)
1598: {
1599: mch_write(outbuf, bpos);
1600: bpos = 0;
1601: }
1602: }
1603:
1604: #ifdef USE_GUI
1605: /*
1606: * trash_output_buf(): Throw away the contents of the output buffer
1607: */
1608: void
1609: trash_output_buf()
1610: {
1611: bpos = 0;
1612: }
1613: #endif
1614:
1615: /*
1616: * outchar(c): put a character into the output buffer.
1617: * Flush it if it becomes full.
1618: * This should not be used for outputting text on the screen (use functions like
1619: * msg_outstr() and screen_outchar() for that).
1620: */
1621: void
1622: outchar(c)
1623: unsigned c;
1624: {
1625: #if defined(UNIX) || defined(VMS) || defined(AMIGA)
1626: if (c == '\n') /* turn LF into CR-LF (CRMOD doesn't seem to do this) */
1627: outchar('\r');
1628: #endif
1629:
1630: outbuf[bpos++] = c;
1631:
1632: /* For testing we flush each time. */
1633: if (bpos >= BSIZE || p_wd)
1634: flushbuf();
1635: }
1636:
1637: static void outchar_nf __ARGS((unsigned));
1638:
1639: /*
1640: * outchar_nf(c): like outchar(), but don't flush when p_wd is set
1641: */
1642: static void
1643: outchar_nf(c)
1644: unsigned c;
1645: {
1646: #if defined(UNIX) || defined(VMS) || defined(AMIGA)
1647: if (c == '\n') /* turn LF into CR-LF (CRMOD doesn't seem to do this) */
1648: outchar_nf('\r');
1649: #endif
1650:
1651: outbuf[bpos++] = c;
1652:
1653: /* For testing we flush each time. */
1654: if (bpos >= BSIZE)
1655: flushbuf();
1656: }
1657:
1658: /*
1659: * a never-padding outstr.
1660: * use this whenever you don't want to run the string through tputs.
1661: * tputs above is harmless, but tputs from the termcap library
1662: * is likely to strip off leading digits, that it mistakes for padding
1663: * information. (jw)
1664: * This should only be used for writing terminal codes, not for outputting
1665: * normal text (use functions like msg_outstr() and screen_outchar() for that).
1666: */
1667: void
1668: outstrn(s)
1669: char_u *s;
1670: {
1671: if (bpos > BSIZE - 20) /* avoid terminal strings being split up */
1672: flushbuf();
1673: while (*s)
1674: outchar_nf(*s++);
1675:
1676: /* For testing we write one string at a time. */
1677: if (p_wd)
1678: flushbuf();
1679: }
1680:
1681: /*
1682: * outstr(s): put a string character at a time into the output buffer.
1683: * If HAVE_TGETENT is defined use the termcap parser. (jw)
1684: * This should only be used for writing terminal codes, not for outputting
1685: * normal text (use functions like msg_outstr() and screen_outchar() for that).
1686: */
1687: void
1688: outstr(s)
1689: register char_u *s;
1690: {
1691: if (bpos > BSIZE - 20) /* avoid terminal strings being split up */
1692: flushbuf();
1693: if (s)
1694: #ifdef HAVE_TGETENT
1695: tputs((char *)s, 1, TPUTSFUNCAST outchar_nf);
1696: #else
1697: while (*s)
1698: outchar_nf(*s++);
1699: #endif
1700:
1701: /* For testing we write one string at a time. */
1702: if (p_wd)
1703: flushbuf();
1704: }
1705:
1706: /*
1707: * cursor positioning using termcap parser. (jw)
1708: */
1709: void
1710: windgoto(row, col)
1711: int row;
1712: int col;
1713: {
1714: if (col != screen_cur_col || row != screen_cur_row)
1715: {
1716: /*
1717: * When positioning on the same row, column 0, use CR, it's just one
1718: * character. Don't do this when the cursor has moved past the end of
1719: * the line, the cursor position is undefined then.
1720: */
1721: if (row == screen_cur_row && col == 0 && screen_cur_col < Columns)
1722: {
1723: outchar('\r');
1724: screen_cur_col = 0;
1725: }
1726: else
1727: {
1728: OUTSTR(tgoto((char *)T_CM, col, row));
1729: screen_cur_col = col;
1730: screen_cur_row = row;
1731: }
1732: }
1733: }
1734:
1735: /*
1736: * Set cursor to current position.
1737: */
1738:
1739: void
1740: setcursor()
1741: {
1742: if (!RedrawingDisabled)
1743: windgoto(curwin->w_winpos + curwin->w_row,
1744: #ifdef RIGHTLEFT
1745: curwin->w_p_rl ? (int)Columns - 1 - curwin->w_col :
1746: #endif
1747: curwin->w_col);
1748: }
1749:
1750: /*
1751: * Make sure we have a valid set or terminal options.
1752: * Replace all entries that are NULL by empty_option
1753: */
1754: void
1755: ttest(pairs)
1756: int pairs;
1757: {
1758: char *t = NULL;
1759:
1760: check_options(); /* make sure no options are NULL */
1761:
1762: /* hard requirements */
1763: if (*T_CL == NUL) /* erase display */
1764: t = "cl";
1765: if (*T_CM == NUL) /* cursor motion */
1766: t = "cm";
1767:
1768: if (t)
1769: EMSG2("terminal capability %s required", t);
1770:
1771: /*
1772: * if "cs" defined, use a scroll region, it's faster.
1773: */
1774: if (*T_CS != NUL)
1775: scroll_region = TRUE;
1776: else
1777: scroll_region = FALSE;
1778:
1779: if (pairs)
1780: {
1781: /* optional pairs */
1782: /* TP goes to normal mode for TI (invert) and TB (bold) */
1783: if (*T_ME == NUL)
1784: T_ME = T_MR = T_MD = empty_option;
1785: if (*T_SO == NUL || *T_SE == NUL)
1786: T_SO = T_SE = empty_option;
1787: if (*T_US == NUL || *T_UE == NUL)
1788: T_US = T_UE = empty_option;
1789: if (*T_CZH == NUL || *T_CZR == NUL)
1790: T_CZH = T_CZR = empty_option;
1791: /* T_VE is needed even though T_VI is not defined */
1792: if (*T_VE == NUL)
1793: T_VI = empty_option;
1794: /* if 'mr' or 'me' is not defined use 'so' and 'se' */
1795: if (*T_ME == NUL)
1796: {
1797: T_ME = T_SE;
1798: T_MR = T_SO;
1799: T_MD = T_SO;
1800: }
1801: /* if 'so' or 'se' is not defined use 'mr' and 'me' */
1802: if (*T_SO == NUL)
1803: {
1804: T_SE = T_ME;
1805: if (*T_MR == NUL)
1806: T_SO = T_MD;
1807: else
1808: T_SO = T_MR;
1809: }
1810: /* if 'ZH' or 'ZR' is not defined use 'mr' and 'me' */
1811: if (*T_CZH == NUL)
1812: {
1813: T_CZR = T_ME;
1814: if (*T_MR == NUL)
1815: T_CZH = T_MD;
1816: else
1817: T_CZH = T_MR;
1818: }
1819: }
1820: need_gather = TRUE;
1821: }
1822:
1823: /*
1824: * Represent the given long_u as individual bytes, with the most significant
1825: * byte first, and store them in dst.
1826: */
1827: void
1828: add_long_to_buf(val, dst)
1829: long_u val;
1830: char_u *dst;
1831: {
1832: int i;
1833: int shift;
1834:
1835: for (i = 1; i <= sizeof(long_u); i++)
1836: {
1837: shift = 8 * (sizeof(long_u) - i);
1838: dst[i - 1] = (char_u) ((val >> shift) & 0xff);
1839: }
1840: }
1841:
1842: /*
1843: * Interpret the next string of bytes in buf as a long integer, with the most
1844: * significant byte first. Note that it is assumed that buf has been through
1845: * inchar(), so that NUL and K_SPECIAL will be represented as three bytes each.
1846: * Puts result in val, and returns the number of bytes read from buf
1847: * (between sizeof(long_u) and 2 * sizeof(long_u)), or -1 if not enough bytes
1848: * were present.
1849: */
1850: int
1851: get_long_from_buf(buf, val)
1852: char_u *buf;
1853: long_u *val;
1854: {
1855: int len;
1856: char_u bytes[sizeof(long_u)];
1857: int i;
1858: int shift;
1859:
1860: *val = 0;
1861: len = get_bytes_from_buf(buf, bytes, (int)sizeof(long_u));
1862: if (len != -1)
1863: {
1864: for (i = 0; i < sizeof(long_u); i++)
1865: {
1866: shift = 8 * (sizeof(long_u) - 1 - i);
1867: *val += (long_u)bytes[i] << shift;
1868: }
1869: }
1870: return len;
1871: }
1872:
1873: /*
1874: * Read the next num_bytes bytes from buf, and store them in bytes. Assume
1875: * that buf has been through inchar(). Returns the actual number of bytes used
1876: * from buf (between num_bytes and num_bytes*2), or -1 if not enough bytes were
1877: * available.
1878: */
1879: static int
1880: get_bytes_from_buf(buf, bytes, num_bytes)
1881: char_u *buf;
1882: char_u *bytes;
1883: int num_bytes;
1884: {
1885: int len = 0;
1886: int i;
1887: char_u c;
1888:
1889: for (i = 0; i < num_bytes; i++)
1890: {
1891: if ((c = buf[len++]) == NUL)
1892: return -1;
1893: if (c == K_SPECIAL)
1894: {
1895: if (buf[len] == NUL || buf[len + 1] == NUL) /* cannot happen? */
1896: return -1;
1897: if (buf[len++] == KS_ZERO)
1898: c = NUL;
1899: ++len; /* skip K_FILLER */
1900: /* else it should be KS_SPECIAL, and c already equals K_SPECIAL */
1901: }
1902: bytes[i] = c;
1903: }
1904: return len;
1905: }
1906:
1907: /*
1908: * outnum - output a (big) number fast
1909: */
1910: void
1911: outnum(n)
1912: register long n;
1913: {
1914: OUTSTRN(tltoa((unsigned long)n));
1915: }
1916:
1917: void
1918: check_winsize()
1919: {
1920: static int old_Rows = 0;
1921:
1922: if (Columns < MIN_COLUMNS)
1923: Columns = MIN_COLUMNS;
1924: if (Rows < min_rows()) /* need room for one window and command line */
1925: Rows = min_rows();
1926:
1927: if (old_Rows != Rows)
1928: {
1929: old_Rows = Rows;
1930: screen_new_rows(); /* may need to update window sizes */
1931: }
1932: }
1933:
1934: /*
1935: * set window size
1936: * If 'mustset' is TRUE, we must set Rows and Columns, do not get real
1937: * window size (this is used for the :win command).
1938: * If 'mustset' is FALSE, we may try to get the real window size and if
1939: * it fails use 'width' and 'height'.
1940: */
1941: void
1942: set_winsize(width, height, mustset)
1943: int width, height;
1944: int mustset;
1945: {
1946: register int tmp;
1947:
1948: if (width < 0 || height < 0) /* just checking... */
1949: return;
1950:
1951: /* postpone the resizing */
1952: if (State == HITRETURN || State == SETWSIZE)
1953: {
1954: State = SETWSIZE;
1955: return;
1956: }
1957: if (State != ASKMORE && State != EXTERNCMD)
1958: screenclear();
1959: else
1960: screen_start(); /* don't know where cursor is now */
1961: #ifdef AMIGA
1962: flushbuf(); /* must do this before mch_get_winsize for some
1963: obscure reason */
1964: #endif /* AMIGA */
1965: if (mustset || (mch_get_winsize() == FAIL && height != 0))
1966: {
1967: Rows = height;
1968: Columns = width;
1969: check_winsize(); /* always check, to get p_scroll right */
1970: mch_set_winsize();
1971: }
1972: else
1973: check_winsize(); /* always check, to get p_scroll right */
1974: if (!starting)
1975: {
1976: comp_Botline_all();
1977: if (State == ASKMORE || State == EXTERNCMD)
1978: {
1979: screenalloc(FALSE); /* don't redraw, just adjust screen size */
1980: if (State == ASKMORE)
1981: {
1982: msg_moremsg(FALSE); /* display --more-- message again */
1983: msg_row = Rows - 1;
1984: }
1985: else
1986: windgoto(msg_row, msg_col); /* put cursor back */
1987: }
1988: else
1989: {
1990: tmp = RedrawingDisabled;
1991: RedrawingDisabled = FALSE;
1992: updateScreen(CURSUPD);
1993: RedrawingDisabled = tmp;
1994: if (State == CMDLINE)
1995: redrawcmdline();
1996: else
1997: setcursor();
1998: }
1999: }
2000: flushbuf();
2001: }
2002:
2003: void
2004: settmode(raw)
2005: int raw;
2006: {
2007: static int oldraw = FALSE;
2008:
2009: #ifdef USE_GUI
2010: /* don't set the term where gvim was started in raw mode */
2011: if (gui.in_use)
2012: return;
2013: #endif
2014: if (full_screen)
2015: {
2016: /*
2017: * When returning after calling a shell we want to really set the
2018: * terminal to raw mode, even though we think it already is, because
2019: * the shell program may have reset the terminal mode.
2020: * When we think the terminal is not-raw, don't try to set it to
2021: * not-raw again, because that causes problems (logout!) on some
2022: * machines.
2023: */
2024: if (raw || oldraw)
2025: {
2026: flushbuf();
2027: mch_settmode(raw); /* machine specific function */
2028: #ifdef USE_MOUSE
2029: if (!raw)
2030: mch_setmouse(FALSE); /* switch mouse off */
2031: else
2032: setmouse(); /* may switch mouse on */
2033: #endif
2034: flushbuf();
2035: oldraw = raw;
2036: }
2037: }
2038: }
2039:
2040: void
2041: starttermcap()
2042: {
2043: if (full_screen && !termcap_active)
2044: {
2045: outstr(T_TI); /* start termcap mode */
2046: outstr(T_KS); /* start "keypad transmit" mode */
2047: flushbuf();
2048: termcap_active = TRUE;
2049: screen_start(); /* don't know where cursor is now */
2050: }
2051: }
2052:
2053: void
2054: stoptermcap()
2055: {
2056: if (full_screen && termcap_active)
2057: {
2058: outstr(T_KE); /* stop "keypad transmit" mode */
2059: flushbuf();
2060: termcap_active = FALSE;
2061: cursor_on(); /* just in case it is still off */
2062: outstr(T_TE); /* stop termcap mode */
2063: screen_start(); /* don't know where cursor is now */
2064: }
2065: }
2066:
2067: #ifdef USE_MOUSE
2068: /*
2069: * setmouse() - switch mouse on/off depending on current mode and 'mouse'
2070: */
2071: void
2072: setmouse()
2073: {
2074: int checkfor;
2075:
2076: # ifdef USE_GUI
2077: if (gui.in_use)
2078: return;
2079: # endif
2080: if (*p_mouse == NUL) /* be quick when mouse is off */
2081: return;
2082:
2083: if (VIsual_active)
2084: checkfor = MOUSE_VISUAL;
2085: else if (State == HITRETURN)
2086: checkfor = MOUSE_RETURN;
2087: else if (State & INSERT)
2088: checkfor = MOUSE_INSERT;
2089: else if (State & CMDLINE)
2090: checkfor = MOUSE_COMMAND;
2091: else
2092: checkfor = MOUSE_NORMAL; /* assume normal mode */
2093:
2094: if (mouse_has(checkfor))
2095: mch_setmouse(TRUE);
2096: else
2097: mch_setmouse(FALSE);
2098: }
2099:
2100: /*
2101: * Return TRUE if
2102: * - "c" is in 'mouse', or
2103: * - 'a' is in 'mouse' and "c" is in MOUSE_A, or
2104: * - the current buffer is a help file and 'h' is in 'mouse' and we are in a
2105: * normal editing mode (not at hit-return message).
2106: */
2107: int
2108: mouse_has(c)
2109: int c;
2110: {
2111: return (vim_strchr(p_mouse, c) != NULL ||
2112: (vim_strchr(p_mouse, 'a') != NULL &&
2113: vim_strchr((char_u *)MOUSE_A, c) != NULL) ||
2114: (c != MOUSE_RETURN && curbuf->b_help &&
2115: vim_strchr(p_mouse, MOUSE_HELP)));
2116: }
2117: #endif
2118:
2119: /*
2120: * By outputting the 'cursor very visible' termcap code, for some windowed
2121: * terminals this makes the screen scrolled to the correct position.
2122: * Used when starting Vim or returning from a shell.
2123: */
2124: void
2125: scroll_start()
2126: {
2127: if (*T_VS != NUL)
2128: {
2129: outstr(T_VS);
2130: outstr(T_VE);
2131: screen_start(); /* don't know where cursor is now */
2132: }
2133: }
2134:
2135: /*
2136: * enable cursor, unless in Visual mode or no inversion possible
2137: */
2138: static int cursor_is_off = FALSE;
2139:
2140: void
2141: cursor_on()
2142: {
2143: if (full_screen)
2144: {
2145: if (cursor_is_off && (!VIsual_active || highlight == NULL))
2146: {
2147: outstr(T_VE);
2148: cursor_is_off = FALSE;
2149: }
2150: }
2151: }
2152:
2153: void
2154: cursor_off()
2155: {
2156: if (full_screen)
2157: {
2158: if (!cursor_is_off)
2159: outstr(T_VI); /* disable cursor */
2160: cursor_is_off = TRUE;
2161: }
2162: }
2163:
2164: /*
2165: * Set scrolling region for window 'wp'.
2166: * The region starts 'off' lines from the start of the window.
2167: */
2168: void
2169: scroll_region_set(wp, off)
2170: WIN *wp;
2171: int off;
2172: {
2173: OUTSTR(tgoto((char *)T_CS, wp->w_winpos + wp->w_height - 1,
2174: wp->w_winpos + off));
2175: screen_start(); /* don't know where cursor is now */
2176: }
2177:
2178: /*
2179: * Reset scrolling region to the whole screen.
2180: */
2181: void
2182: scroll_region_reset()
2183: {
2184: OUTSTR(tgoto((char *)T_CS, (int)Rows - 1, 0));
2185: screen_start(); /* don't know where cursor is now */
2186: }
2187:
2188:
2189: /*
2190: * List of terminal codes that are currently recognized.
2191: */
2192:
2193: struct termcode
2194: {
2195: char_u name[2]; /* termcap name of entry */
2196: char_u *code; /* terminal code (in allocated memory) */
2197: int len; /* STRLEN(code) */
2198: } *termcodes = NULL;
2199:
2200: static int tc_max_len = 0; /* number of entries that termcodes[] can hold */
2201: static int tc_len = 0; /* current number of entries in termcodes[] */
2202:
2203: void
2204: clear_termcodes()
2205: {
2206: while (tc_len > 0)
2207: vim_free(termcodes[--tc_len].code);
2208: vim_free(termcodes);
2209: termcodes = NULL;
2210: tc_max_len = 0;
2211:
2212: #ifdef HAVE_TGETENT
2213: BC = (char *)empty_option;
2214: UP = (char *)empty_option;
2215: PC = ' '; /* set pad character to space */
2216: ospeed = 0;
2217: #endif
2218:
2219: need_gather = TRUE; /* need to fill termleader[] */
2220: }
2221:
2222: /*
2223: * Add a new entry to the list of terminal codes.
2224: * The list is kept alphabetical for ":set termcap"
2225: */
2226: void
2227: add_termcode(name, string)
2228: char_u *name;
2229: char_u *string;
2230: {
2231: struct termcode *new_tc;
2232: int i, j;
2233: char_u *s;
2234:
2235: if (string == NULL || *string == NUL)
2236: {
2237: del_termcode(name);
2238: return;
2239: }
2240:
2241: s = strsave(string);
2242: if (s == NULL)
2243: return;
2244:
2245: need_gather = TRUE; /* need to fill termleader[] */
2246:
2247: /*
2248: * need to make space for more entries
2249: */
2250: if (tc_len == tc_max_len)
2251: {
2252: tc_max_len += 20;
2253: new_tc = (struct termcode *)alloc(
2254: (unsigned)(tc_max_len * sizeof(struct termcode)));
2255: if (new_tc == NULL)
2256: {
2257: tc_max_len -= 20;
2258: return;
2259: }
2260: for (i = 0; i < tc_len; ++i)
2261: new_tc[i] = termcodes[i];
2262: vim_free(termcodes);
2263: termcodes = new_tc;
2264: }
2265:
2266: /*
2267: * Look for existing entry with the same name, it is replaced.
2268: * Look for an existing entry that is alphabetical higher, the new entry
2269: * is inserted in front of it.
2270: */
2271: for (i = 0; i < tc_len; ++i)
2272: {
2273: if (termcodes[i].name[0] < name[0])
2274: continue;
2275: if (termcodes[i].name[0] == name[0])
2276: {
2277: if (termcodes[i].name[1] < name[1])
2278: continue;
2279: /*
2280: * Exact match: Replace old code.
2281: */
2282: if (termcodes[i].name[1] == name[1])
2283: {
2284: vim_free(termcodes[i].code);
2285: --tc_len;
2286: break;
2287: }
2288: }
2289: /*
2290: * Found alphabetical larger entry, move rest to insert new entry
2291: */
2292: for (j = tc_len; j > i; --j)
2293: termcodes[j] = termcodes[j - 1];
2294: break;
2295: }
2296:
2297: termcodes[i].name[0] = name[0];
2298: termcodes[i].name[1] = name[1];
2299: termcodes[i].code = s;
2300: termcodes[i].len = STRLEN(s);
2301: ++tc_len;
2302: }
2303:
2304: char_u *
2305: find_termcode(name)
2306: char_u *name;
2307: {
2308: int i;
2309:
2310: for (i = 0; i < tc_len; ++i)
2311: if (termcodes[i].name[0] == name[0] && termcodes[i].name[1] == name[1])
2312: return termcodes[i].code;
2313: return NULL;
2314: }
2315:
2316: char_u *
2317: get_termcode(i)
2318: int i;
2319: {
2320: if (i >= tc_len)
2321: return NULL;
2322: return &termcodes[i].name[0];
2323: }
2324:
2325: void
2326: del_termcode(name)
2327: char_u *name;
2328: {
2329: int i;
2330:
2331: if (termcodes == NULL) /* nothing there yet */
2332: return;
2333:
2334: need_gather = TRUE; /* need to fill termleader[] */
2335:
2336: for (i = 0; i < tc_len; ++i)
2337: if (termcodes[i].name[0] == name[0] && termcodes[i].name[1] == name[1])
2338: {
2339: vim_free(termcodes[i].code);
2340: --tc_len;
2341: while (i < tc_len)
2342: {
2343: termcodes[i] = termcodes[i + 1];
2344: ++i;
2345: }
2346: return;
2347: }
2348: /* not found. Give error message? */
2349: }
2350:
2351: /*
2352: * Check if typebuf[] contains a terminal key code.
2353: * Check from typebuf[typeoff] to typebuf[typeoff + max_offset].
2354: * Return 0 for no match, -1 for partial match, > 0 for full match.
2355: * With a match, the match is removed, the replacement code is inserted in
2356: * typebuf[] and the number of characters in typebuf[] is returned.
2357: */
2358: int
2359: check_termcode(max_offset)
2360: int max_offset;
2361: {
2362: register char_u *tp;
2363: register char_u *p;
2364: int slen = 0; /* init for GCC */
2365: int len;
2366: int offset;
2367: char_u key_name[2];
2368: int new_slen;
2369: int extra;
2370: char_u string[MAX_KEY_CODE_LEN + 1];
2371: int i;
2372: #ifdef USE_GUI
2373: long_u val;
2374: #endif
2375: #ifdef USE_MOUSE
2376: char_u bytes[3];
2377: int num_bytes;
2378: int mouse_code;
2379: int modifiers;
2380: int is_click, is_drag;
2381: int current_button;
2382: static int held_button = MOUSE_RELEASE;
2383: static int orig_num_clicks = 1;
2384: static int orig_mouse_code = 0x0;
2385: # if defined(UNIX) && defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
2386: static int orig_mouse_col = 0;
2387: static int orig_mouse_row = 0;
2388: static linenr_t orig_topline = 0;
2389: static struct timeval orig_mouse_time = {0, 0};
2390: /* time of previous mouse click */
2391: struct timeval mouse_time; /* time of current mouse click */
2392: long timediff; /* elapsed time in msec */
2393: # endif
2394: #endif
2395:
2396: /*
2397: * Speed up the checks for terminal codes by gathering all first bytes
2398: * used in termleader[]. Often this is just a single <Esc>.
2399: */
2400: if (need_gather)
2401: gather_termleader();
2402:
2403: /*
2404: * Check at several positions in typebuf[], to catch something like
2405: * "x<Up>" that can be mapped. Stop at max_offset, because characters
2406: * after that cannot be used for mapping, and with @r commands typebuf[]
2407: * can become very long.
2408: * This is used often, KEEP IT FAST!
2409: */
2410: for (offset = 0; offset < typelen && offset < max_offset; ++offset)
2411: {
2412: tp = typebuf + typeoff + offset;
2413:
2414: /*
2415: * Don't check characters after K_SPECIAL, those are already
2416: * translated terminal chars (avoid translating ~@^Hx).
2417: */
2418: if (*tp == K_SPECIAL)
2419: {
2420: offset += 2; /* there are always 2 extra characters */
2421: continue;
2422: }
2423:
2424: /*
2425: * Skip this position if the character does not appear as the first
2426: * character in term_strings. This speeds up a lot, since most
2427: * termcodes start with the same character (ESC or CSI).
2428: */
2429: i = *tp;
2430: for (p = termleader; *p && *p != i; ++p)
2431: ;
2432: if (*p == NUL)
2433: continue;
2434:
2435: /*
2436: * Skip this position if p_ek is not set and
2437: * typebuf[typeoff + offset] is an ESC and we are in insert mode
2438: */
2439: if (*tp == ESC && !p_ek && (State & INSERT))
2440: continue;
2441:
2442: len = typelen - offset; /* length of the input */
2443: new_slen = 0; /* Length of what will replace the termcode */
2444: key_name[0] = NUL; /* no key name found yet */
2445:
2446: #ifdef USE_GUI
2447: if (gui.in_use)
2448: {
2449: /*
2450: * GUI special key codes are all of the form [CSI xx].
2451: */
2452: if (*tp == CSI) /* Special key from GUI */
2453: {
2454: if (len < 3)
2455: return -1; /* Shouldn't happen */
2456: slen = 3;
2457: key_name[0] = tp[1];
2458: key_name[1] = tp[2];
2459: }
2460: }
2461: else
2462: #endif /* USE_GUI */
2463: {
2464: for (i = 0; i < tc_len; ++i)
2465: {
2466: /*
2467: * Ignore the entry if we are not at the start of typebuf[]
2468: * and there are not enough characters to make a match.
2469: */
2470: slen = termcodes[i].len;
2471: if (offset && len < slen)
2472: continue;
2473: if (STRNCMP(termcodes[i].code, tp,
2474: (size_t)(slen > len ? len : slen)) == 0)
2475: {
2476: if (len < slen) /* got a partial sequence */
2477: return -1; /* need to get more chars */
2478:
2479: key_name[0] = termcodes[i].name[0];
2480: key_name[1] = termcodes[i].name[1];
2481:
2482: /*
2483: * If it's a shifted special key, then include the SHIFT
2484: * modifier
2485: */
2486: if (unshift_special_key(&key_name[0]))
2487: {
2488: string[new_slen++] = K_SPECIAL;
2489: string[new_slen++] = KS_MODIFIER;
2490: string[new_slen++] = MOD_MASK_SHIFT;
2491: }
2492: break;
2493: }
2494: }
2495: }
2496:
2497: if (key_name[0] == NUL)
2498: continue; /* No match at this position, try next one */
2499:
2500: /* We only get here when we have a complete termcode match */
2501:
2502: #ifdef USE_MOUSE
2503: /*
2504: * If it is a mouse click, get the coordinates.
2505: * we get "<t_mouse>scr", where
2506: * s == encoded mouse button state (0x20 = left, 0x22 = right, etc)
2507: * c == column + ' ' + 1 == column + 33
2508: * r == row + ' ' + 1 == row + 33
2509: *
2510: * The coordinates are passed on through global variables. Ugly,
2511: * but this avoids trouble with mouse clicks at an unexpected
2512: * moment and allows for mapping them.
2513: */
2514: if (key_name[0] == KS_MOUSE)
2515: {
2516: num_bytes = get_bytes_from_buf(tp + slen, bytes, 3);
2517: if (num_bytes == -1) /* not enough coordinates */
2518: return -1;
2519: mouse_code = bytes[0];
2520: mouse_col = bytes[1] - ' ' - 1;
2521: mouse_row = bytes[2] - ' ' - 1;
2522: slen += num_bytes;
2523:
2524: /* Interpret the mouse code */
2525: is_click = is_drag = FALSE;
2526: current_button = (mouse_code & MOUSE_CLICK_MASK);
2527: if (current_button == MOUSE_RELEASE)
2528: {
2529: /*
2530: * If we get a mouse drag or release event when
2531: * there is no mouse button held down (held_button ==
2532: * MOUSE_RELEASE), produce a K_IGNORE below.
2533: * (can happen when you hold down two buttons
2534: * and then let them go, or click in the menu bar, but not
2535: * on a menu, and drag into the text).
2536: */
2537: if ((mouse_code & MOUSE_DRAG) == MOUSE_DRAG)
2538: is_drag = TRUE;
2539: current_button = held_button;
2540: }
2541: else
2542: {
2543: #if defined(UNIX) && defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
2544: # ifdef USE_GUI
2545: /*
2546: * Only for Unix, when GUI is not active, we handle
2547: * multi-clicks here.
2548: */
2549: if (!gui.in_use)
2550: # endif
2551: {
2552: /*
2553: * Compute the time elapsed since the previous mouse click.
2554: */
2555: gettimeofday(&mouse_time, NULL);
2556: timediff = (mouse_time.tv_usec -
2557: orig_mouse_time.tv_usec) / 1000;
2558: if (timediff < 0)
2559: --orig_mouse_time.tv_sec;
2560: timediff += (mouse_time.tv_sec -
2561: orig_mouse_time.tv_sec) * 1000;
2562: orig_mouse_time = mouse_time;
2563: if (mouse_code == orig_mouse_code &&
2564: timediff < p_mouset &&
2565: orig_num_clicks != 4 &&
2566: orig_mouse_col == mouse_col &&
2567: orig_mouse_row == mouse_row &&
2568: orig_topline == curwin->w_topline)
2569: ++orig_num_clicks;
2570: else
2571: orig_num_clicks = 1;
2572: orig_mouse_col = mouse_col;
2573: orig_mouse_row = mouse_row;
2574: orig_topline = curwin->w_topline;
2575: }
2576: # ifdef USE_GUI
2577: else
2578: orig_num_clicks = NUM_MOUSE_CLICKS(mouse_code);
2579: # endif
2580: #else
2581: orig_num_clicks = NUM_MOUSE_CLICKS(mouse_code);
2582: #endif
2583: is_click = TRUE;
2584: orig_mouse_code = mouse_code;
2585: }
2586: if (!is_drag)
2587: held_button = mouse_code & MOUSE_CLICK_MASK;
2588:
2589: /*
2590: * Translate the actual mouse event into a pseudo mouse event.
2591: * First work out what modifiers are to be used.
2592: */
2593: modifiers = 0x0;
2594: if (orig_mouse_code & MOUSE_SHIFT)
2595: modifiers |= MOD_MASK_SHIFT;
2596: if (orig_mouse_code & MOUSE_CTRL)
2597: modifiers |= MOD_MASK_CTRL;
2598: if (orig_mouse_code & MOUSE_ALT)
2599: modifiers |= MOD_MASK_ALT;
2600: if (orig_num_clicks == 2)
2601: modifiers |= MOD_MASK_2CLICK;
2602: else if (orig_num_clicks == 3)
2603: modifiers |= MOD_MASK_3CLICK;
2604: else if (orig_num_clicks == 4)
2605: modifiers |= MOD_MASK_4CLICK;
2606:
2607: /* Add the modifier codes to our string */
2608: if (modifiers != 0)
2609: {
2610: string[new_slen++] = K_SPECIAL;
2611: string[new_slen++] = KS_MODIFIER;
2612: string[new_slen++] = modifiers;
2613: }
2614:
2615: /* Work out our pseudo mouse event */
2616: key_name[0] = KS_EXTRA;
2617: key_name[1] = get_pseudo_mouse_code(current_button,
2618: is_click, is_drag);
2619: }
2620: #endif /* USE_MOUSE */
2621: #ifdef USE_GUI
2622: /*
2623: * If using the GUI, then we get menu and scrollbar events.
2624: *
2625: * A menu event is encoded as K_SPECIAL, KS_MENU, K_FILLER followed by
2626: * four bytes which are to be taken as a pointer to the GuiMenu
2627: * structure.
2628: *
2629: * A scrollbar event is K_SPECIAL, KS_SCROLLBAR, K_FILLER followed by
2630: * one byte representing the scrollbar number, and then four bytes
2631: * representing a long_u which is the new value of the scrollbar.
2632: *
2633: * A horizontal scrollbar event is K_SPECIAL, KS_HORIZ_SCROLLBAR,
2634: * K_FILLER followed by four bytes representing a long_u which is the
2635: * new value of the scrollbar.
2636: */
2637: else if (key_name[0] == KS_MENU)
2638: {
2639: num_bytes = get_long_from_buf(tp + slen, &val);
2640: if (num_bytes == -1)
2641: return -1;
2642: current_menu = (GuiMenu *)val;
2643: slen += num_bytes;
2644: }
2645: else if (key_name[0] == KS_SCROLLBAR)
2646: {
2647: num_bytes = get_bytes_from_buf(tp + slen, bytes, 1);
2648: if (num_bytes == -1)
2649: return -1;
2650: current_scrollbar = (int)bytes[0];
2651: slen += num_bytes;
2652: num_bytes = get_long_from_buf(tp + slen, &val);
2653: if (num_bytes == -1)
2654: return -1;
2655: scrollbar_value = val;
2656: slen += num_bytes;
2657: }
2658: else if (key_name[0] == KS_HORIZ_SCROLLBAR)
2659: {
2660: num_bytes = get_long_from_buf(tp + slen, &val);
2661: if (num_bytes == -1)
2662: return -1;
2663: scrollbar_value = val;
2664: slen += num_bytes;
2665: }
2666: #endif /* USE_GUI */
2667: /* Finally, add the special key code to our string */
2668: string[new_slen++] = K_SPECIAL;
2669: string[new_slen++] = key_name[0];
2670: string[new_slen++] = key_name[1];
2671: string[new_slen] = NUL;
2672: extra = new_slen - slen;
2673: if (extra < 0)
2674: /* remove matched chars, taking care of noremap */
2675: del_typebuf(-extra, offset);
2676: else if (extra > 0)
2677: /* insert the extra space we need */
2678: ins_typebuf(string + slen, FALSE, offset, FALSE);
2679:
2680: /*
2681: * Careful: del_typebuf() and ins_typebuf() may have
2682: * reallocated typebuf[]
2683: */
2684: vim_memmove(typebuf + typeoff + offset, string, (size_t)new_slen);
2685: return (len + extra + offset);
2686: }
2687: return 0; /* no match found */
2688: }
2689:
2690: /*
2691: * Replace any terminal code strings in from[] with the equivalent internal
2692: * vim representation. This is used for the "from" and "to" part of a
2693: * mapping, and the "to" part of a menu command.
2694: * Any strings like "<C_UP>" are also replaced, unless 'cpoptions' contains
2695: * '<'. Also unshifts shifted special keys.
2696: * K_SPECIAL by itself is replaced by K_SPECIAL KS_SPECIAL K_FILLER.
2697: *
2698: * The replacement is done in result[] and finally copied into allocated
2699: * memory. If this all works well *bufp is set to the allocated memory and a
2700: * pointer to it is returned. If something fails *bufp is set to NULL and from
2701: * is returned.
2702: *
2703: * CTRL-V characters are removed. When "from_part" is TRUE, a trailing CTRL-V
2704: * is included, otherwise it is removed (for ":map xx ^V", maps xx to
2705: * nothing). When 'cpoptions' does not contain 'B', a backslash can be used
2706: * instead of a CTRL-V.
2707: */
2708: char_u *
2709: replace_termcodes(from, bufp, from_part)
2710: char_u *from;
2711: char_u **bufp;
2712: int from_part;
2713: {
2714: int i;
2715: char_u key_name[2];
2716: char_u *bp;
2717: char_u *last_dash;
2718: char_u *end_of_name;
2719: int slen;
2720: int modifiers;
2721: int bit;
2722: int key;
2723: int dlen = 0;
2724: char_u *src;
2725: int do_backslash; /* backslash is a special character */
2726: int do_special; /* recognize <> key codes */
2727: int do_key_code; /* recognize raw key codes */
2728: char_u *result; /* buffer for resulting string */
2729:
2730: do_backslash = (vim_strchr(p_cpo, CPO_BSLASH) == NULL);
2731: do_special = (vim_strchr(p_cpo, CPO_SPECI) == NULL);
2732: do_key_code = (vim_strchr(p_cpo, CPO_KEYCODE) == NULL);
2733:
2734: /*
2735: * Allocate space for the translation. Worst case a single character is
2736: * replaced by 6 bytes (shifted special key), plus a NUL at the end.
2737: */
2738: result = alloc((unsigned)STRLEN(from) * 6 + 1);
2739: if (result == NULL) /* out of memory */
2740: {
2741: *bufp = NULL;
2742: return from;
2743: }
2744:
2745: src = from;
2746:
2747: /*
2748: * Check for #n at start only: function key n
2749: */
2750: if (from_part && src[0] == '#' && isdigit(src[1])) /* function key */
2751: {
2752: result[dlen++] = K_SPECIAL;
2753: result[dlen++] = 'k';
2754: if (src[1] == '0')
2755: result[dlen++] = ';'; /* #0 is F10 is "k;" */
2756: else
2757: result[dlen++] = src[1]; /* #3 is F3 is "k3" */
2758: src += 2;
2759: }
2760:
2761: /*
2762: * Copy each byte from *from to result[dlen]
2763: */
2764: while (*src != NUL)
2765: {
2766: /*
2767: * If 'cpoptions' does not contain '<', check for special key codes.
2768: */
2769: if (do_special)
2770: {
2771: /*
2772: * See if it's a string like "<C-S-MouseLeft>"
2773: */
2774: if (src[0] == '<')
2775: {
2776: /* Find end of modifier list */
2777: last_dash = src;
2778: for (bp = src + 1; *bp == '-' || isidchar(*bp); bp++)
2779: {
2780: if (*bp == '-')
2781: {
2782: last_dash = bp;
2783: if (bp[1] != NUL && bp[2] == '>')
2784: ++bp; /* anything accepted, like <C-?> */
2785: }
2786: if (bp[0] == 't' && bp[1] == '_' && bp[2] && bp[3])
2787: bp += 3; /* skip t_xx, xx may be '-' or '>' */
2788: }
2789:
2790: if (*bp == '>') /* found matching '>' */
2791: {
2792: end_of_name = bp + 1;
2793:
2794: /* Which modifiers are given? */
2795: modifiers = 0x0;
2796: for (bp = src + 1; bp < last_dash; bp++)
2797: {
2798: if (*bp != '-')
2799: {
2800: bit = name_to_mod_mask(*bp);
2801: if (bit == 0x0)
2802: break; /* Illegal modifier name */
2803: modifiers |= bit;
2804: }
2805: }
2806:
2807: /*
2808: * Legal modifier name.
2809: */
2810: if (bp >= last_dash)
2811: {
2812: /*
2813: * Modifier with single letter
2814: */
2815: if (modifiers != 0 && last_dash[2] == '>')
2816: {
2817: key = last_dash[1];
2818: if (modifiers & MOD_MASK_SHIFT)
2819: key = TO_UPPER(key);
2820: if (modifiers & MOD_MASK_CTRL)
2821: key &= 0x1f;
2822: if (modifiers & MOD_MASK_ALT)
2823: key |= 0x80;
2824: src = end_of_name;
2825: result[dlen++] = key;
2826: continue;
2827: }
2828:
2829: /*
2830: * Key name with or without modifier.
2831: */
2832: else if ((key = get_special_key_code(last_dash + 1))
2833: != 0)
2834: {
2835: /* Put the appropriate modifier in a string */
2836: if (modifiers != 0)
2837: {
2838: result[dlen++] = K_SPECIAL;
2839: result[dlen++] = KS_MODIFIER;
2840: result[dlen++] = modifiers;
2841: /*
2842: * Special trick: for <S-TAB> K_TAB is used
2843: * instead of TAB (there are two keys for the
2844: * same thing).
2845: */
2846: if (key == TAB)
2847: key = K_TAB;
2848: }
2849:
2850: if (IS_SPECIAL(key))
2851: {
2852: result[dlen++] = K_SPECIAL;
2853: result[dlen++] = KEY2TERMCAP0(key);
2854: result[dlen++] = KEY2TERMCAP1(key);
2855: }
2856: else
2857: result[dlen++] = key; /* only modifiers */
2858: src = end_of_name;
2859: continue;
2860: }
2861: }
2862: }
2863: }
2864: }
2865:
2866: /*
2867: * If 'cpoptions' does not contain 'k', see if it's an actual key-code.
2868: * Note that this is also checked after replacing the <> form.
2869: */
2870: if (do_key_code)
2871: {
2872: for (i = 0; i < tc_len; ++i)
2873: {
2874: slen = termcodes[i].len;
2875: if (STRNCMP(termcodes[i].code, src, (size_t)slen) == 0)
2876: {
2877: key_name[0] = termcodes[i].name[0];
2878: key_name[1] = termcodes[i].name[1];
2879:
2880: /*
2881: * If it's a shifted special key, then include the SHIFT
2882: * modifier
2883: */
2884: if (unshift_special_key(&key_name[0]))
2885: {
2886: result[dlen++] = K_SPECIAL;
2887: result[dlen++] = KS_MODIFIER;
2888: result[dlen++] = MOD_MASK_SHIFT;
2889: }
2890: result[dlen++] = K_SPECIAL;
2891: result[dlen++] = key_name[0];
2892: result[dlen++] = key_name[1];
2893: src += slen;
2894: break;
2895: }
2896: }
2897:
2898: /*
2899: * If terminal code matched, continue after it.
2900: * If no terminal code matched and the character is K_SPECIAL,
2901: * replace it with K_SPECIAL KS_SPECIAL K_FILLER
2902: */
2903: if (i != tc_len)
2904: continue;
2905: }
2906:
2907: if (*src == K_SPECIAL)
2908: {
2909: result[dlen++] = K_SPECIAL;
2910: result[dlen++] = KS_SPECIAL;
2911: result[dlen++] = K_FILLER;
2912: ++src;
2913: continue;
2914: }
2915:
2916: /*
2917: * Remove CTRL-V and ignore the next character.
2918: * For "from" side the CTRL-V at the end is included, for the "to"
2919: * part it is removed.
2920: * If 'cpoptions' does not contain 'B', also accept a backslash.
2921: */
2922: key = *src;
2923: if (key == Ctrl('V') || (do_backslash && key == '\\'))
2924: {
2925: ++src; /* skip CTRL-V or backslash */
2926: if (*src == NUL)
2927: {
2928: if (from_part)
2929: result[dlen++] = key;
2930: break;
2931: }
2932: }
2933: result[dlen++] = *src++;
2934: }
2935: result[dlen] = NUL;
2936:
2937: /*
2938: * Copy the new string to allocated memory.
2939: * If this fails, just return from.
2940: */
2941: if ((*bufp = strsave(result)) != NULL)
2942: from = *bufp;
2943: vim_free(result);
2944: return from;
2945: }
2946:
2947: /*
2948: * Gather the first characters in the terminal key codes into a string.
2949: * Used to speed up check_termcode().
2950: */
2951: static void
2952: gather_termleader()
2953: {
2954: int i;
2955: int len = 0;
2956:
2957: #ifdef USE_GUI
2958: if (gui.in_use)
2959: termleader[len++] = CSI; /* the GUI codes are not in termcodes[] */
2960: #endif
2961: termleader[len] = NUL;
2962:
2963: for (i = 0; i < tc_len; ++i)
2964: if (vim_strchr(termleader, termcodes[i].code[0]) == NULL)
2965: {
2966: termleader[len++] = termcodes[i].code[0];
2967: termleader[len] = NUL;
2968: }
2969:
2970: need_gather = FALSE;
2971: }
2972:
2973: /*
2974: * Show all termcodes (for ":set termcap")
2975: * This code looks a lot like showoptions(), but is different.
2976: */
2977: void
2978: show_termcodes()
2979: {
2980: int col;
2981: int *items;
2982: int item_count;
2983: int run;
2984: int row, rows;
2985: int cols;
2986: int i;
2987: int len;
2988:
2989: #define INC 27 /* try to make three columns */
2990: #define GAP 2 /* spaces between columns */
2991:
2992: if (tc_len == 0) /* no terminal codes (must be GUI) */
2993: return;
2994: items = (int *)alloc((unsigned)(sizeof(int) * tc_len));
2995: if (items == NULL)
2996: return;
2997:
2998: set_highlight('t'); /* Highlight title */
2999: start_highlight();
3000: MSG_OUTSTR("\n--- Terminal keys ---");
3001: stop_highlight();
3002:
3003: /*
3004: * do the loop two times:
3005: * 1. display the short items (non-strings and short strings)
3006: * 2. display the long items (strings)
3007: */
3008: for (run = 1; run <= 2 && !got_int; ++run)
3009: {
3010: /*
3011: * collect the items in items[]
3012: */
3013: item_count = 0;
3014: for (i = 0; i < tc_len; i++)
3015: {
3016: len = show_one_termcode(termcodes[i].name,
3017: termcodes[i].code, FALSE);
3018: if ((len <= INC - GAP && run == 1) || (len > INC - GAP && run == 2))
3019: items[item_count++] = i;
3020: }
3021:
3022: /*
3023: * display the items
3024: */
3025: if (run == 1)
3026: {
3027: cols = (Columns + GAP) / INC;
3028: if (cols == 0)
3029: cols = 1;
3030: rows = (item_count + cols - 1) / cols;
3031: }
3032: else /* run == 2 */
3033: rows = item_count;
3034: for (row = 0; row < rows && !got_int; ++row)
3035: {
3036: msg_outchar('\n'); /* go to next line */
3037: if (got_int) /* 'q' typed in more */
3038: break;
3039: col = 0;
3040: for (i = row; i < item_count; i += rows)
3041: {
3042: msg_pos(-1, col); /* make columns */
3043: show_one_termcode(termcodes[items[i]].name,
3044: termcodes[items[i]].code, TRUE);
3045: col += INC;
3046: }
3047: flushbuf();
3048: mch_breakcheck();
3049: }
3050: }
3051: vim_free(items);
3052: }
3053:
3054: /*
3055: * Show one termcode entry.
3056: * Output goes into IObuff[]
3057: */
3058: int
3059: show_one_termcode(name, code, printit)
3060: char_u *name;
3061: char_u *code;
3062: int printit;
3063: {
3064: char_u *p;
3065: int len;
3066:
3067: if (name[0] > '~')
3068: {
3069: IObuff[0] = ' ';
3070: IObuff[1] = ' ';
3071: IObuff[2] = ' ';
3072: IObuff[3] = ' ';
3073: }
3074: else
3075: {
3076: IObuff[0] = 't';
3077: IObuff[1] = '_';
3078: IObuff[2] = name[0];
3079: IObuff[3] = name[1];
3080: }
3081: IObuff[4] = ' ';
3082:
3083: p = get_special_key_name(TERMCAP2KEY(name[0], name[1]), 0);
3084: if (p[1] != 't')
3085: STRCPY(IObuff + 5, p);
3086: else
3087: IObuff[5] = NUL;
3088: len = STRLEN(IObuff);
3089: do
3090: IObuff[len++] = ' ';
3091: while (len < 17);
3092: IObuff[len] = NUL;
3093: if (code == NULL)
3094: len += 4;
3095: else
3096: len += strsize(code);
3097:
3098: if (printit)
3099: {
3100: msg_outstr(IObuff);
3101: if (code == NULL)
3102: msg_outstr((char_u *)"NULL");
3103: else
3104: msg_outtrans(code);
3105: }
3106: return len;
3107: }