home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume1 / 8707 / 6 < prev    next >
Encoding:
Internet Message Format  |  1990-07-13  |  11.6 KB
  1. From: jimp@cognos.UUCP (Jim Patterson)
  2. Newsgroups: comp.sources.misc
  3. Subject: JOVE support for VT200-type function keys
  4. Message-ID: <2788@ncoast.UUCP>
  5. Date: 4 Jul 87 20:28:03 GMT
  6. Sender: allbery@ncoast.UUCP
  7. Organization: Cognos Incorporated, Ottawa, Canada
  8. Lines: 448
  9. Approved: allbery@ncoast.UUCP
  10. X-Archive: comp.sources.misc/8707/6
  11.  
  12. I've put together a series of differences we've applied to JOVE
  13. since we got it from USENET.  Basically these changes fall into
  14. two categories:
  15.  
  16.   Support for ANSI function keys (VT200-style).  The existing support
  17. wasn't able to handle function keys with numeric parameters.  This is
  18. now possible, though not quite as general as the rest of the
  19. key-mapping.  Incidently, Dasher terminals that have an ANSI mode and
  20. SUN workstations can make use of the same logic.
  21.  
  22. To enable the ANSI function key support, you need to bind the ANSI
  23. function code initiator to the function ansi-codes.  This is a special
  24. prefix which existed in the original version of jove that we got
  25. (4.6.1.4), but which we have extended somewhat.  The following bindings
  26. work for most ANSI-style terminals
  27.  
  28.     bind-to-key ansi-codes ^[[
  29.     bind-to-key ansi-codes ^[O
  30.  
  31. If you are running a terminal which transmits 8-bit controls, then set the
  32. environment variable METAKEY and define the following bindings instead.
  33.  
  34.     bind-to-key ansi-codes ^[^[
  35.     bind-to-key ansi-codes ^[^O
  36.  
  37.   We have included a few bug-fixes.  Some of these are for support of
  38. different terminals; for example, Dashers don't have a conventional
  39. line-feed (it acts as a newline), so we've added a DN termcap function
  40. that can be set to the proper value.  A similar problem occured
  41. because the backspace sequence wasn't being used properly.
  42.  
  43. You may or may not want the change put into jove.c to put out
  44. visual-end a little later.  I found this useful in dealing with
  45. a terminal which supports multiple windows.  
  46.  
  47. Here are a few things that we haven't done, but should.
  48.     
  49.     Put function keys into their own section of the keymaps.  At present
  50.     they share the keymap with other keys, and so have been restricted to
  51.     the miscmap.  This prevents the use of any prefix character with
  52.     a function key (but a function key can be a prefix character). This
  53.     isn't a really big problem because there are generally a liberal number
  54.     of function keys, but it would be nice to be able to define ESC <left>
  55.     and so on.
  56.     
  57.     Provide some sort of terminal specific translation of function key
  58.     names, so that describe-key prints function keys as FIND, F12, etc.
  59.     instead of ESC [ 1 ~ and ESC [ 2 4 ~.
  60.     
  61.     Update the documentation to describe Ansi-codes and how to bind 
  62.     ansi function keys.
  63.  
  64. The following file gives default bindings for a vt200-series terminal.
  65. ============================================= New file: vt200.joverc
  66. bind-to-key ansi-codes ^[[
  67. bind-to-key ansi-codes ^[O
  68. bind-to-key ansi-codes ^[^[
  69. bind-to-key ansi-codes ^[^O
  70. bind-to-key search-forward ^[[1~
  71. bind-to-key yank ^[[2~
  72. bind-to-key kill-region ^[[3~
  73. bind-to-key set-mark ^[[4~
  74. bind-to-key previous-page ^[[5~
  75. bind-to-key next-page ^[[6~
  76. bind-to-key describe-key [28~
  77. bind-to-key execute-named-command [29~
  78. ============================================ End of vt200.joverc
  79. The following are all context diffs.  They work with patch on our system
  80. (SUN running BSD 4.2 Unix).
  81.  
  82. *** extend.c        Mon Jun 22 14:44:20 1987
  83. --- extend.c        Mon Jun 22 14:44:21 1987
  84. ***************
  85. *** 20,25 ****
  86. --- 20,27 ----
  87.   extern int    getch(),
  88.           getchar();
  89.   
  90. + #define DASHER_MAP(x) (((x) % 100) + ((x) / 100) * 32)
  91. + 
  92.   /* Auto execute code */
  93.   
  94.   #define NEXECS    20
  95. ***************
  96. *** 99,107 ****
  97. --- 101,135 ----
  98.       BindSomething(findmac);
  99.   }
  100.   
  101. + /*
  102. + * AnsiKey : return 'key' value for an ANSI-style function 
  103. + * sequence.  This is the value of the numeric operand for
  104. + * extended-type functions, or the next character for others.
  105. + */
  106. + 
  107. + int AnsiKey() {
  108. +     int c;
  109. +     int num1 = 0;
  110. + 
  111. +     c = addgetc();
  112. +     while (isdigit(c)) {
  113. +         num1 = num1*10 + (c - '0');
  114. +         c = addgetc();
  115. +     }
  116. +     while (c == ';' || isdigit(c))
  117. +         c = addgetc();
  118. +     /* Map Dasher functions into 128-byte space */
  119. +     if (c == 'z')
  120. +         num1 = DASHER_MAP(num1);
  121. +     if (c == '~' || c == 'z')
  122. +         return num1;
  123. +       else return c; 
  124. + }
  125. + 
  126.   extern int    EscPrefix(),
  127.           CtlxPrefix(),
  128.           MiscPrefix();
  129. + extern int      AnsiCodes();
  130.   
  131.   data_obj **
  132.   IsPrefix(cp)
  133. ***************
  134. *** 121,126 ****
  135. --- 149,168 ----
  136.       return 0;
  137.   }
  138.   
  139. + data_obj **
  140. + IsAnsiCode(cp)
  141. + data_obj    *cp;
  142. + {
  143. +        int (*proc)();
  144. + 
  145. +     if (cp == 0 || (cp->Type & TYPEMASK) != FUNCTION)
  146. +          return 0;
  147. +     proc = ((struct cmd *) cp)->c_proc;
  148. +     if (proc == AnsiCodes)
  149. +         return miscmap;
  150. +     return 0;
  151. + }
  152. + 
  153.   unbind_aux(c)
  154.   {
  155.       if (c == CR || c == LF)
  156. ***************
  157. *** 132,137 ****
  158. --- 174,180 ----
  159.   UnbindC()
  160.   {
  161.       char    *keys;
  162. +         int     lastKey;
  163.       data_obj    **map = mainmap;
  164.   
  165.       keys = do_ask("\r\n\01\02\03\04\05\06\010\011\013\014\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037", unbind_aux, (char *) 0, ProcFmt);
  166. ***************
  167. *** 142,152 ****
  168.               break;
  169.           if ((map = IsPrefix(map[*keys])) == 0)
  170.               break;
  171. !         keys++;
  172.       }
  173.       if (keys[1] != 0)
  174.           complain("That's not a legitimate key sequence.");
  175. !     map[keys[0]] = 0;
  176.   }
  177.           
  178.   addgetc()
  179. --- 185,211 ----
  180.               break;
  181.           if ((map = IsPrefix(map[*keys])) == 0)
  182.               break;
  183. !                 if (IsAnsiCode(map[*keys])) {
  184. !                     map = miscmap;
  185. !                     lastKey = 0;
  186. !                     ++keys;
  187. !                     while (*keys != '\0' && isdigit(*keys)) {
  188. !                        lastKey = lastKey * 10 + (*keys - '0');
  189. !                        ++keys;
  190.               }
  191. +                     if (*keys != 'z' && *keys != '~')
  192. +                         lastKey = *keys;
  193. +                     /* Map Dasher functions into 128-byte space */
  194. +                     if (*keys == 'z')
  195. +                         lastKey = DASHER_MAP(lastKey);
  196. +                     break;
  197. +         }
  198. +                      
  199. +         lastKey = *++keys;
  200. +      }
  201.       if (keys[1] != 0)
  202.           complain("That's not a legitimate key sequence.");
  203. !     map[lastKey] = 0;
  204.   }
  205.           
  206.   addgetc()
  207. ***************
  208. *** 193,198 ****
  209. --- 252,259 ----
  210.       } else {
  211.           if (nextmap = IsPrefix(map[c]))
  212.               BindWMap(nextmap, c, cmd);
  213. +         else if (IsAnsiCode(map[c]))
  214. +             miscmap[AnsiKey()] = cmd;
  215.           else
  216.               map[c] = cmd;
  217.       }
  218. ***************
  219. *** 215,220 ****
  220. --- 276,282 ----
  221.   
  222.   DescWMap(map, key)
  223.   data_obj    **map;
  224. + int             key;
  225.   {
  226.       data_obj    *cp = map[key],
  227.               **prefp;
  228. ***************
  229. *** 223,228 ****
  230. --- 285,292 ----
  231.           add_mess("is unbound.");
  232.       else if (prefp = IsPrefix(cp))
  233.           DescWMap(prefp, addgetc());
  234. +         else if (IsAnsiCode(cp))
  235. +             DescWMap(miscmap, AnsiKey());
  236.       else
  237.           add_mess("is bound to %s.", cp->Name);
  238.   }
  239. ***************
  240. *** 519,524 ****
  241. --- 583,589 ----
  242.   {
  243.       struct variable    *vp;
  244.       char    prbuf[256];
  245. + 
  246.   
  247.       if ((vp = (struct variable *) findvar(ProcFmt)) == 0)
  248.           return;
  249. *** jove.c    Mon Jun 22 14:45:33 1987
  250. --- jove.c    Mon Jun 22 14:45:34 1987
  251. ***************
  252. *** 342,353 ****
  253.   {
  254.       ttyset(OFF);
  255.       putpad(KE, 1);
  256. -     putpad(VE, 1);
  257.       putpad(TE, 1);
  258.   #ifdef ID_CHAR
  259.       INSmode(0);
  260.   #endif
  261.       Placur(ILI, 0);
  262.       printf("%s", mesg);
  263.       putpad(CE, 1);
  264.       flusho();
  265. --- 342,353 ----
  266.   {
  267.       ttyset(OFF);
  268.       putpad(KE, 1);
  269.       putpad(TE, 1);
  270.   #ifdef ID_CHAR
  271.       INSmode(0);
  272.   #endif
  273.       Placur(ILI, 0);
  274. +     putpad(VE, 1);    /* Relocated, for better visual support */
  275.       printf("%s", mesg);
  276.       putpad(CE, 1);
  277.       flusho();
  278. *** misc.c    Mon Jun 22 14:46:13 1987
  279. --- misc.c    Mon Jun 22 14:46:14 1987
  280. ***************
  281. *** 439,444 ****
  282. --- 439,446 ----
  283.       int    num2;
  284.       static char *unsupported = "[Unsupported ANSI code received]";
  285.   
  286. +     register data_obj    *cp;
  287. + 
  288.       while (isdigit(c = getch()))
  289.           num1 = (num1*10) + (c - '0');
  290.   
  291. ***************
  292. *** 478,486 ****
  293.               ClAndRedraw();
  294.               break;
  295.           }
  296.           /* FALL THROUGH */
  297.       default:
  298. !         complain(unsupported);
  299.       }
  300.   }
  301.   #endif ANSICODES
  302. --- 480,507 ----
  303.               ClAndRedraw();
  304.               break;
  305.           }
  306. +                 break;
  307. +         case 'z':    /* DASHER (ANSI) Function */
  308. +                 num1 = (num1 % 100) + (num1 / 100) * 32;
  309.           /* FALL THROUGH */
  310. +         case '~':    /* VT220 function */
  311. + 
  312. +         cp = miscmap[num1 % (sizeof(miscmap) / sizeof(miscmap[0]))];
  313. +         if (cp == 0) {
  314. +             s_mess("[%sunbound]", key_strokes);
  315. +             rbell();
  316. +         } else
  317. +             ExecCmd(cp);
  318. +                 break;
  319. + 
  320.       default:
  321. !         cp = miscmap[c];
  322. !         if (cp == 0) {
  323. !             s_mess("[%sunbound]", key_strokes);
  324. !             rbell();
  325. !         } else
  326. !             ExecCmd(cp);
  327. !                 break;
  328.       }
  329.   }
  330.   #endif ANSICODES
  331. *** screen.c    Mon Jun 22 14:47:16 1987
  332. --- screen.c    Mon Jun 22 14:47:17 1987
  333. ***************
  334. *** 144,149 ****
  335.           if (i_line != CapLine || i_col != CapCol)
  336.               Placur(i_line, i_col);
  337. !         if (UL && (c & 0177) == '_' && (*cursor & 0177) != ' ')
  338. !             putstr(" \b");        /* Erase so '_' looks right. */
  339.           *cursor++ = c;
  340.           putchar(c & 0177);
  341. --- 144,154 ----
  342.           if (i_line != CapLine || i_col != CapCol)
  343.               Placur(i_line, i_col);
  344. !         if (UL && (c & 0177) == '_' && (*cursor & 0177) != ' ') {
  345. !             putstr(" ");        /* Erase so '_' looks right. */
  346. !             if (BC)
  347. !                 putpad(BC, 1);
  348. !             else
  349. !                 putchar('\b');
  350. !               }
  351.           *cursor++ = c;
  352.           putchar(c & 0177);
  353. ***************
  354. *** 533,537 ****
  355.   
  356.       while (--nlines >= 0)
  357. !         putchar('\n');
  358.       CapLine = destline;
  359.   }
  360. --- 538,542 ----
  361.   
  362.       while (--nlines >= 0)
  363. !         putpad(DN, 1);
  364.       CapLine = destline;
  365.   }
  366. *** term.c    Mon Jun 22 14:47:50 1987
  367. --- term.c    Mon Jun 22 14:47:50 1987
  368. ***************
  369. *** 20,25 ****
  370. --- 20,26 ----
  371.   /* Termcap definitions */
  372.   
  373.   char    *UP,
  374. +     *DN,
  375.       *CS,
  376.       *SO,
  377.       *SE,
  378. ***************
  379. *** 80,101 ****
  380.   
  381.   /* The ordering of ts and meas must agree !! */
  382.   #ifdef LSRHS
  383. ! static char    *ts="vsvealdlspcssosecmclcehoupbcicimdceillsfsrvbksketiteALDLICDCrsrepcip";
  384.   static char    **meas[] = {
  385.       &VS, &VE, &AL, &DL, &SP, &CS, &SO, &SE,
  386.       &CM, &CL, &CE, &HO, &UP, &BC, &IC, &IM,
  387.       &DC, &EI, &LL, &SF, &SR, &VB, &KS, &KE,
  388.       &TI, &TE, &M_AL, &M_DL, &M_IC, &M_DC,
  389. !     &RS, &RE, &lPC, &IP, 0
  390.   };
  391.   #else
  392. ! static char    *ts="vsvealdlspcssosecmclcehoupbcicimdceillsfsrvbksketiteALDLICDCpcip";
  393.   static char    **meas[] = {
  394.       &VS, &VE, &AL, &DL, &SP, &CS, &SO, &SE,
  395.       &CM, &CL, &CE, &HO, &UP, &BC, &IC, &IM,
  396.       &DC, &EI, &LL, &SF, &SR, &VB, &KS, &KE,
  397.       &TI, &TE, &M_AL, &M_DL, &M_IC, &M_DC,
  398. !     &lPC, &IP, 0
  399.   };
  400.   #endif
  401.   
  402. --- 81,102 ----
  403.   
  404.   /* The ordering of ts and meas must agree !! */
  405.   #ifdef LSRHS
  406. ! static char    *ts="vsvealdlspcssosecmclcehoupbcicimdceillsfsrvbksketiteALDLICDCrsrepcipdo";
  407.   static char    **meas[] = {
  408.       &VS, &VE, &AL, &DL, &SP, &CS, &SO, &SE,
  409.       &CM, &CL, &CE, &HO, &UP, &BC, &IC, &IM,
  410.       &DC, &EI, &LL, &SF, &SR, &VB, &KS, &KE,
  411.       &TI, &TE, &M_AL, &M_DL, &M_IC, &M_DC,
  412. !     &RS, &RE, &lPC, &IP, &DN, 0
  413.   };
  414.   #else
  415. ! static char    *ts="vsvealdlspcssosecmclcehoupbcicimdceillsfsrvbksketiteALDLICDCpcipdo";
  416.   static char    **meas[] = {
  417.       &VS, &VE, &AL, &DL, &SP, &CS, &SO, &SE,
  418.       &CM, &CL, &CE, &HO, &UP, &BC, &IC, &IM,
  419.       &DC, &EI, &LL, &SF, &SR, &VB, &KS, &KE,
  420.       &TI, &TE, &M_AL, &M_DL, &M_IC, &M_DC,
  421. !     &lPC, &IP, &DN, 0
  422.   };
  423.   #endif
  424.   
  425. ***************
  426. *** 154,159 ****
  427. --- 155,163 ----
  428.           *(meas[i]) = (char *) tgetstr(ts, &termp);
  429.           ts += 2;
  430.       }
  431. +     
  432. +     if (!DN)
  433. +         DN = "\n";
  434.       if (lPC)
  435.           PC = *lPC;
  436.       if (XS)
  437. ***************
  438. *** 190,193 ****
  439.       if (CanScroll = ((AL && DL) || CS))
  440.           IDline_setup(termname);
  441.   }
  442. - 
  443. --- 194,196 ----
  444. *** termcap.h        Mon Jun 22 14:47:57 1987
  445. --- termcap.h    Mon Jun 22 14:47:57 1987
  446. ***************
  447. *** 9,14 ****
  448. --- 9,15 ----
  449.   
  450.   extern char
  451.       *UP,    /* Scroll reverse, or up */
  452. +     *DN,    /* down */
  453.       *CS,    /* If on vt100 */
  454.       *SO,    /* Start standout */
  455.       *SE,    /* End standout */
  456. -- 
  457.  
  458. Jim Patterson          decvax!utzoo!dciem!nrcaer!cognos!jimp
  459. Cognos Incorporated    
  460.