home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume8 / ue310usp / optional next >
Encoding:
Text File  |  1989-09-23  |  10.6 KB  |  290 lines
  1. Article 5159 of comp.emacs:
  2. Path: rocky8!cmcl2!rutgers!tut.cis.ohio-state.edu!ucbvax!agate!bionet!ig!arizona!rupley
  3. From: rupley@arizona.edu (John Rupley)
  4. Newsgroups: comp.emacs
  5. Subject: Microemacs 3.10 - patch for tcap.c
  6. Message-ID: <11487@megaron.arizona.edu>
  7. Date: 9 Jun 89 01:17:52 GMT
  8. Organization: U of Arizona CS Dept, Tucson
  9. Lines: 276
  10. Keywords: function key timeout loop for USG; revised ttable[]
  11.  
  12.  
  13. context diff patch for tcap.c:
  14.  
  15. 1) added timeout loop in get1key(), for USG option; without it, one
  16. cannot use the function keys under sys5; it could be made more portable
  17. by #defining the processor speed, or building in a test for it;
  18. commented-out code gives an alternative solution, without a timeout
  19. loop.
  20.  
  21. 2) modified ttable[], to allow shifted function keys and some other stuff.
  22.  
  23. 3) sample terminfo, consistent with (2), included in comment.
  24.  
  25.  
  26. John Rupley
  27.     uucp: ..{uunet | ucbvax | cmcl2 | hao!ncar!noao}!arizona!rupley!local
  28.     internet: rupley!local@megaron.arizona.edu
  29.     (H) 30 Calle Belleza, Tucson AZ  85716 - (602) 325-4533
  30.     (O) Dept. Biochemistry, Univ. Arizona, Tucson AZ 85721 - (602) 621-3929
  31. ------------------------------------------------------------------------
  32. *** tcap.c    Mon May 22 16:21:08 1989
  33. --- ../tcap.c    Fri May 26 13:47:56 1989
  34. ***************
  35. *** 70,75
  36.                       
  37.   */
  38.   
  39.   #define termdef 1            /* don't define "term" external */
  40.   
  41.   #include <stdio.h>
  42.  
  43. --- 70,135 -----
  44.                       
  45.   */
  46.   
  47. + /*
  48. +  * a non-portable but generally usable USG option for get1key() is suggested;
  49. +  * it allows use of the function keys needed to handle menus, specifically
  50. +  * those of .emacsrc and the *.cmd files; 
  51. +  *
  52. +  * it assumes typeahead() is enabled;
  53. +  *
  54. +  * the ttable[] bindings include shifted function and keypad keys;
  55. +  *
  56. +  * following is a sample ansi terminfo file, which has strings for the 
  57. +  * normal and shifted keys, and which adheres more-or-less to the 
  58. +  * ansi standard;
  59. +  *
  60. +  * a user without write permission on the system terminfo files likely
  61. +  * will have to set up a local TERMINFO environment by use of .profile,
  62. +  * and perhaps reprogram the function and keypad strings of the terminal;
  63. +  *
  64. +  * j.a. rupley, tucson, az  - rupley!local@megaron.arizona.edu
  65. +  */
  66. + 
  67. + /*-
  68. + ansi|modified terminfo description 
  69. + # DELETE #...# COMMENTS #...# BEFORE #...# TIC'ING #
  70. + # standard stuff #
  71. +     am, xon, cols#80, lines#24, bel=^G, cr=\r, clear=\E[H\E[J, 
  72. +     el=\E[K, ed=\E[J, cup=\E[%i%p1%d;%p2%dH, cud1=\n, home=\E[H, 
  73. +     cub1=\b, cuf1=\E[C, cuu1=\E[A, dch1=\E[P, dl1=\E[M, blink=\E[5m, 
  74. +     bold=\E[1m, smir=\E[4h, invis=\E[8m, rev=\E[7m, smso=\E[7m, 
  75. +     smul=\E[4m, sgr0=\E[m, rmir=\E[4l, rmso=\E[0m, rmul=\E[0m, 
  76. +     is2=\E[=h, ich1=\E[@, il1=\E[L, 
  77. +     dl=\E[%p1%dM, cud=\E[%p1%dB, 
  78. +     ich=\E[%p1%d@, il=\E[%p1%dL, cub=\E[%p1%dD, cuf=\E[%p1%dC, 
  79. +     cuu=\E[%p1%dA, ind=\n, ht=\t, 
  80. + # function keys - kf0=kf10 #
  81. +     kf1=\EOc, kf2=\EOd, kf3=\EOe, kf4=\EOf, 
  82. +     kf5=\EOg, kf6=\EOh, kf7=\EOi, kf8=\EOj, kf9=\EOk, 
  83. +     kf0=\EOl, kf10=\EOl, 
  84. + # shifted function keys - lf0=lf10 #
  85. + # tricky - store and recover strings as labels #
  86. +     lf1=\EOC, lf2=\EOD, lf3=\EOE, lf4=\EOF, 
  87. +     lf5=\EOG, lf6=\EOH, lf7=\EOI, lf8=\EOJ, lf9=\EOK, 
  88. +     lf0=\EOL, lf10=\EOL, 
  89. + # keypad keys #
  90. +     khome=\E[H,    kcuu1=\E[A,    kpp=\E[U, 
  91. +     kcub1=\E[D,             kcuf1=\E[C, 
  92. +     kll=\E[E,     kcud1=\E[B,     knp=\E[V, 
  93. + # ins #
  94. +     kich1=\E[@, 
  95. + # shifted keypad keys #
  96. +     ka1=\E[!H,    kri=\E[S,    ka3=\E[!U, 
  97. +     kclr=\E[!@,            kel=\E[!A, 
  98. +     kc1=\E[!E,    kind=\E[T,    kc3=\E[!V,
  99. + # shifted ins and shifted del #
  100. +     kil1=\E[L,            kdch1=\E[P,
  101. + # miscellaneous #
  102. +     kdl1=\E[M, 
  103. +     cbt=\E[Z, 
  104. +     kbs=\b, 
  105. + */
  106. + 
  107.   #define termdef 1            /* don't define "term" external */
  108.   
  109.   #include <stdio.h>
  110. ***************
  111. *** 103,136
  112.   } TBIND;
  113.   
  114.   TBIND ttable[] = {
  115. !     "bt",    SHFT | CTRL | 'i',    "",    /* backtab */
  116. !     "k1",    SPEC | '1',        "",    /* function key 1 */
  117. !     "k2",    SPEC | '2',        "",    /* function key 2 */
  118. !     "k3",    SPEC | '3',        "",    /* function key 3 */
  119. !     "k4",    SPEC | '4',        "",    /* function key 4 */
  120. !     "k5",    SPEC | '5',        "",    /* function key 5 */
  121. !     "k6",    SPEC | '6',        "",    /* function key 6 */
  122. !     "k7",    SPEC | '7',        "",    /* function key 7 */
  123. !     "k8",    SPEC | '8',        "",    /* function key 8 */
  124. !     "k9",    SPEC | '9',        "",    /* function key 9 */
  125. !     "k0",    SPEC | '0',        "",    /* function key 10 */
  126. !     "kA",    CTRL | 'O',        "",    /* insert line */
  127. !     "kb",    CTRL | 'H',        "",    /* backspace */
  128. !     "kC",    CTRL | 'L',        "",    /* clear screen */
  129. !     "kD",    SPEC | 'D',        "",    /* delete character */
  130. !     "kd",    SPEC | 'N',        "",    /* down cursor */
  131. !     "kE",    CTRL | 'K',        "",    /* clear to end of line */
  132. !     "kF",    CTRL | 'V',        "",    /* scroll down */
  133. !     "kH",    SPEC | '>',        "",    /* home down [END?] key */
  134. !     "kh",    SPEC | '<',        "",    /* home */
  135. !     "kI",    SPEC | 'C',        "",    /* insert character */
  136. !     "kL",    CTRL | 'K',        "",    /* delete line */
  137. !     "kl",    SPEC | 'B',        "",    /* left cursor */
  138. !     "kN",    SPEC | 'V',        "",    /* next page */
  139. !     "kP",    SPEC | 'Z',        "",    /* previous page */
  140. !     "kR",    CTRL | 'Z',        "",    /* scroll down */
  141. !     "kr",    SPEC | 'F',        "",    /* right cursor */
  142. !     "ku",    SPEC | 'P',        "",    /* up cursor */
  143.   };
  144.   
  145.   #define    NTBINDS    sizeof(ttable)/sizeof(TBIND)
  146.  
  147. --- 163,232 -----
  148.   } TBIND;
  149.   
  150.   TBIND ttable[] = {
  151. !     "k1",    SPEC | '1',        "",    /* kf1 /* function key 1 */
  152. !     "k2",    SPEC | '2',        "",    /* kf2 /* function key 2 */
  153. !     "k3",    SPEC | '3',        "",    /* kf3 /* function key 3 */
  154. !     "k4",    SPEC | '4',        "",    /* kf4 /* function key 4 */
  155. !     "k5",    SPEC | '5',        "",    /* kf5 /* function key 5 */
  156. !     "k6",    SPEC | '6',        "",    /* kf6 /* function key 6 */
  157. !     "k7",    SPEC | '7',        "",    /* kf7 /* function key 7 */
  158. !     "k8",    SPEC | '8',        "",    /* kf8 /* function key 8 */
  159. !     "k9",    SPEC | '9',        "",    /* kf9 /* function key 9 */
  160. !     "k0",    SPEC | '0',        "",    /* kf0 /* function key 10 */
  161. !     "l1",    SPEC | SHFT | '1',    "",    /* kl1 /* shftd func key 1 */
  162. !     "l2",    SPEC | SHFT | '2',    "",    /* kl2 /* shftd func key 2 */
  163. !     "l3",    SPEC | SHFT | '3',    "",    /* kl3 /* shftd func key 3 */
  164. !     "l4",    SPEC | SHFT | '4',    "",    /* kl4 /* shftd func key 4 */
  165. !     "l5",    SPEC | SHFT | '5',    "",    /* kl5 /* shftd func key 5 */
  166. !     "l6",    SPEC | SHFT | '6',    "",    /* kl6 /* shftd func key 6 */
  167. !     "l7",    SPEC | SHFT | '7',    "",    /* kl7 /* shftd func key 7 */
  168. !     "l8",    SPEC | SHFT | '8',    "",    /* kl8 /* shftd func key 8 */
  169. !     "l9",    SPEC | SHFT | '9',    "",    /* kl9 /* shftd func key 9 */
  170. !     "l0",    SPEC | SHFT | '0',    "",    /* kl0 /* shftd func key 10 */
  171. ! /* the following key-pad keys and their bindings are obvious */
  172. !     "kh",    SPEC | '<',        "",    /* khome /* home */
  173. !     "ku",    SPEC | 'P',        "",    /* kcuu1 /* up cursor */
  174. !     "kP",    SPEC | 'Z',        "",    /* kpp /* previous page */
  175. !     "kl",    SPEC | 'B',        "",    /* kcub1 /* left cursor */
  176. !     "kr",    SPEC | 'F',        "",    /* kcuf1 /* right cursor */
  177. !     "kH",    SPEC | '>',        "",    /* kll /* home down [END] */
  178. !     "kd",    SPEC | 'N',        "",    /* kcud1 /* down cursor */
  179. !     "kN",    SPEC | 'V',        "",    /* knp /* next page */
  180. ! /* the following are less obvious */
  181. ! /* ins        # kI kich1  insert character */    /* bound to insspace */
  182. !     "kI",    SPEC | 'C',        "",    /* kich1 /* insert character */
  183. ! /* shift del    # kD kdch1  delete character */    /* bound to forwdel */
  184. !     "kD",    SPEC | 'D',        "",    /* kdch1 /* delete character */
  185. ! /* shift ins    # kA kil1  insert line */     /* bound to openline */
  186. !     "kA",    CTRL | 'O',        "",    /* kil1 /* insert line */
  187. ! /* shift up    # kR kri  scroll up */        /* bound to backpage */
  188. !     "kR",    CTRL | 'Z',        "",    /* kri /* scroll up */
  189. ! /* shift down    # kF kind  scroll down */    /* bound to forwpage */
  190. !     "kF",    CTRL | 'V',        "",    /* kind /* scroll down */
  191. ! /* shift left    # kC kclr  clear screen */    /* bound to backword */
  192. ! /*    "kC",    META | 'B',        "",    /* kclr /* clear screen */
  193. !     "kC",    SPEC | CTRL | 'B',    "",    /* kclr /* clear screen */
  194. ! /* shift right    # kE kel  clear to eol */    /* bound to forwword */
  195. ! /*    "kE",    META | 'F',        "",    /* kel /* clear to eol */
  196. !     "kE",    SPEC | CTRL | 'F',    "",    /* kel /* clear to eol */
  197. ! /* shift pgup    # K3 ka3  pad upper right */    /* bound to gotobop */
  198. ! /*    "K3",    META | 'P',        "",    /* ka3 /* pad upper right */
  199. !     "K3",    SPEC | CTRL | 'Z',    "",    /* ka3 /* pad upper right */
  200. ! /* shift pgdn    # K5 kc3  pad lower right */    /* bound to gotoeop */
  201. ! /*    "K5",    META | 'N',        "",    /* kc3 /* pad lower right */
  202. !     "K5",    SPEC | CTRL | 'V',    "",    /* kc3 /* pad lower right */
  203. ! /* shift home    # K1 ka1  pad upper left */    /* unbound key */
  204. !     "K1",    SPEC | CTRL | '<',    "",    /* ka1 /* pad upper left */
  205. ! /* shift end    # K4 kc1  pad lower left */    /* unbound key */
  206. !     "K4",    SPEC | CTRL | '>',    "",    /* kc1 /* pad lower left */
  207. ! /* shift tab     # bt cbt backtab        /* unbound key */
  208. !     "bt",    SHFT | CTRL | 'i',    "",    /* cbt /* backtab */
  209. ! /* and let's forget the following */
  210. ! /* alt del    # kL kdl1  delete line */
  211. ! /*    "kL",    CTRL | 'K',        "",    /* kdl1 /* delete line */
  212. ! /*    "kb",    CTRL | 'H',        "",    /* kbs /* backspace */
  213. ! /*    "kC",    CTRL | 'L',        "",    /* kclr /* clear screen */
  214. ! /*    "kE",    CTRL | 'K',        "",    /* kel /* clear to eol */
  215.   };
  216.   
  217.   #define    NTBINDS    sizeof(ttable)/sizeof(TBIND)
  218. ***************
  219. *** 450,457
  220.       /* we don't know how to do this check for a pending char within
  221.          1/30th of a second machine independantly in the general System V
  222.          case.... so we don't */
  223. !     if (kbdmode != PLAY)
  224. !         return(CTRL | '[');
  225.   #endif
  226.   
  227.       /* a key is pending within 1/30 of a sec... its an escape sequence */
  228.  
  229. --- 546,586 -----
  230.       /* we don't know how to do this check for a pending char within
  231.          1/30th of a second machine independantly in the general System V
  232.          case.... so we don't */
  233. !     /*
  234. !      * or... maybe we try it;
  235. !      * very non-portable solution;
  236. !      * hardware-dependent timing loop;
  237. !      * set upper-limit on loop by testing hardware, to get 30 ms;
  238. !      * use typahead() to check for waiting input on exit from loop;
  239. !      */
  240. !     {    int i;
  241. !         if (kbdmode != PLAY && typahead() <= 0) {
  242. !             /* loop limit set by hardware test */
  243. !             /* for 30 ms or a bit less */
  244. !             for (i = 0; i < 1500; i++)
  245. !                 ;
  246. !             if (typahead() <= 0)
  247. !                 return(CTRL | '[');
  248. !         }
  249. !     }
  250. !     /*-
  251. !      * another way -- using blocking read;
  252. !      * problem... when <esc> used as terminator, as in setup for
  253. !      * searches, need to give it twice, or whatever;
  254. !      * non-portable... assumes ansi standard for function keys and
  255. !      * keypad;
  256. !      */
  257. !     /*
  258. !     {
  259. !         extern char kbdq;
  260. !         extern int kbdqp;
  261. ! 
  262. !         kbdq = ttgetc();
  263. !         kbdqp = 1;
  264. !         if ((kbdq & 255) != '[' && (kbdq & 255) != 'O')
  265. !             return(CTRL | '[');
  266. !     }
  267. !     */
  268.   #endif
  269.   
  270.       /* a key is pending within 1/30 of a sec... its an escape sequence */
  271. ***************
  272. *** 457,462
  273.       /* a key is pending within 1/30 of a sec... its an escape sequence */
  274.       cseq[0] = 27;
  275.       sp = &cseq[1];
  276.       while (sp < &cseq[6]) {
  277.           c = ttgetc();
  278.           *sp++ = c;
  279.  
  280. --- 586,592 -----
  281.       /* a key is pending within 1/30 of a sec... its an escape sequence */
  282.       cseq[0] = 27;
  283.       sp = &cseq[1];
  284. +     *sp = 0;
  285.       while (sp < &cseq[6]) {
  286.           c = ttgetc();
  287.           *sp++ = c;
  288.  
  289.  
  290.