home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / lk201-X.shar < prev    next >
Encoding:
Internet Message Format  |  1990-07-22  |  6.2 KB
  1. From: jv@mhres.mh.nl (Johan Vromans)
  2. Newsgroups: gnu.emacs,comp.emacs
  3. Subject: LK201 support for X11 Emacs (here it is)
  4. Message-ID: <3497@mhres.mh.nl>
  5. Date: 30 Aug 89 18:55:38 GMT
  6. Organization: Multihouse NV, the Netherlands
  7. Lines: 292
  8.  
  9. Within a few hours after posting my offer to share the LK201
  10. enhancements I was almost overwhelmed with requests, so here it is.
  11. (I hope I didn't promise too much ... :-).
  12.  
  13. The following shar contains two files: "keymap" and
  14. "x11term.c.LK201.diffs". 
  15.  
  16. I use "xmodmap keymap" to get my Escape, Tilde, Backquote
  17. and Greater/Less keys right; they affect all applications. 
  18. As you can see, I use Shift/Escape for tilde, but that is a matter of
  19. personal taste.
  20.  
  21. Look Out! If you use DECterm and remap your keyboard using the
  22. Configure Keyboard menu, the new settings will conflict with the old
  23. ones. Apparently DECterm maps *KeySyms*, not *KeyCodes*. 
  24.  
  25. Apply the diffs to your current Emacs 18.55 distribution, and
  26. recompile. You will need to include -DLK201 in your CFLAGS to
  27. have the changes compiled.
  28.  
  29. #---------------- cut here ----------------
  30. #!/bin/sh
  31. #
  32. # This is a shell archive.  Remove anything before this line,
  33. # then unpack it by saving it in a file and typing "sh file".
  34. #
  35. # Wrapped by Johan Vromans <jv@mhres> on Wed Aug 30 20:47:17 1989
  36. #
  37. # This archive contains:
  38. #    keymap            x11term.c.LK201.diffs    
  39. #
  40.  
  41. LANG=""; export LANG
  42.  
  43. echo x - keymap
  44. cat >keymap <<'@EOF'
  45. ! make sure the common functions work
  46. keycode 113 = F11
  47. ! [~`] -> ESC and ~
  48. keycode 191 = Escape asciitilde
  49. ! [<>] -> [`~]
  50. keycode 201 = quoteleft asciitilde
  51. ! [,,] -> [,<]
  52. keycode 232 = comma less
  53. ! [..] -> [.>]
  54. keycode 237 = period greater
  55. @EOF
  56.  
  57. chmod 644 keymap
  58.  
  59. echo x - x11term.c.LK201.diffs
  60. cat >x11term.c.LK201.diffs <<'@EOF'
  61. *** ORGx11term.c    Fri Aug 25 08:36:51 1989
  62. --- x11term.c    Tue Aug 29 13:11:04 1989
  63. ***************
  64. *** 1200,1205
  65.           return("2");
  66.       case XK_Delete:
  67.           return("3");
  68.       case XK_Select:
  69.           return("4");
  70.       case XK_Prior:
  71.  
  72. --- 1200,1206 -----
  73.           return("2");
  74.       case XK_Delete:
  75.           return("3");
  76. + #ifndef LK201
  77.       case XK_Select:
  78.           return("4");
  79.       case XK_Prior:
  80. ***************
  81. *** 1206,1211
  82.           return("5");
  83.       case XK_Next:
  84.           return("6");
  85.       default:
  86.           return("-1");
  87.       }
  88.  
  89. --- 1207,1214 -----
  90.           return("5");
  91.       case XK_Next:
  92.           return("6");
  93. + #endif    /* not LK201 */
  94. + 
  95.       default:
  96.           return("-1");
  97.       }
  98. ***************
  99. *** 1210,1215
  100.           return("-1");
  101.       }
  102.   }
  103.   #endif /* not sun */
  104.       
  105.   internal_socket_read(bufp, numchars)
  106.  
  107. --- 1213,1321 -----
  108.           return("-1");
  109.       }
  110.   }
  111. + 
  112. + #ifdef LK201
  113. + char *stringFuncVal_Shifted(keycode)    /* LK201 Function keys - shifted */
  114. +     KeySym keycode;
  115. + {
  116. +     switch (keycode) {
  117. +     case XK_F1:
  118. +         return("41");
  119. +     case XK_F2:
  120. +         return("42");
  121. +     case XK_F3:
  122. +         return("43");
  123. +     case XK_F4:
  124. +         return("44");
  125. +     case XK_F5:
  126. +         return("45");
  127. +     case XK_F6:
  128. +         return("47");
  129. +     case XK_F7:
  130. +         return("48");
  131. +     case XK_F8:
  132. +         return("49");
  133. +     case XK_F9:
  134. +         return("50");
  135. +     case XK_F10:
  136. +         return("51");
  137. +     case XK_F11:
  138. +         return("53");
  139. +     case XK_F12:
  140. +         return("54");
  141. +     case XK_F13:
  142. +         return("55");
  143. +     case XK_F14:
  144. +         return("56");
  145. +     case XK_F15:
  146. +         return("58");
  147. +     case XK_Help:
  148. +         return("58");
  149. +     case XK_F16:
  150. +         return("59");
  151. +     case XK_Menu:
  152. +         return("59");
  153. +     case XK_F17:
  154. +         return("61");
  155. +     case XK_F18:
  156. +         return("62");
  157. +     case XK_F19:
  158. +         return("63");
  159. +     case XK_F20:
  160. +         return("64");
  161. +     default:
  162. +         return("-1");
  163. +     }
  164. + }
  165. + 
  166. + char *stringFuncVal_KP(keycode)    /* LK201 keypad keys */
  167. +     KeySym keycode;
  168. + {
  169. +     switch (keycode) {
  170. +     case XK_KP_F1:
  171. +         return("\033OP");
  172. +     case XK_KP_F2:
  173. +         return("\033OQ");
  174. +     case XK_KP_F3:
  175. +         return("\033OR");
  176. +     case XK_KP_F4:
  177. +         return("\033OS");
  178. + 
  179. +     case XK_KP_Subtract:        /* Minus */
  180. +         return("\033Om");
  181. +     case XK_KP_Separator:        /* Comma */
  182. +         return("\033Ol");
  183. +     case XK_KP_Decimal:        /* Period */
  184. +         return("\033On");
  185. +     case XK_KP_Enter:
  186. +         return("\033OM");
  187. + 
  188. +     case XK_KP_0:
  189. +         return("\033Op");
  190. +     case XK_KP_1:
  191. +         return("\033Oq");
  192. +     case XK_KP_2:
  193. +         return("\033Or");
  194. +     case XK_KP_3:
  195. +         return("\033Os");
  196. +     case XK_KP_4:
  197. +         return("\033Ot");
  198. +     case XK_KP_5:
  199. +         return("\033Ou");
  200. +     case XK_KP_6:
  201. +         return("\033Ov");
  202. +     case XK_KP_7:
  203. +         return("\033Ow");
  204. +     case XK_KP_8:
  205. +         return("\033Ox");
  206. +     case XK_KP_9:
  207. +         return("\033Oy");
  208. + 
  209. +     default:
  210. +         return("-1");
  211. +     }
  212. + }
  213. + #endif    /* LK201 */
  214.   #endif /* not sun */
  215.       
  216.   internal_socket_read(bufp, numchars)
  217. ***************
  218. *** 1336,1341
  219.         if (IsFunctionKey(keysym) ||
  220.         IsMiscFunctionKey(keysym)) {
  221.       strcpy(mapping_buf,"[");
  222.       strcat(mapping_buf,stringFuncVal(keysym));
  223.   #ifdef sun
  224.       strcat(mapping_buf,"z");
  225.  
  226. --- 1442,1452 -----
  227.         if (IsFunctionKey(keysym) ||
  228.         IsMiscFunctionKey(keysym)) {
  229.       strcpy(mapping_buf,"[");
  230. + #ifdef LK201
  231. +     if (event.xkey.state & ShiftMask)
  232. +       strcat(mapping_buf,stringFuncVal_Shifted(keysym));
  233. +     else
  234. + #endif
  235.       strcat(mapping_buf,stringFuncVal(keysym));
  236.   #ifdef sun
  237.       strcat(mapping_buf,"z");
  238. ***************
  239. *** 1344,1349
  240.   #endif /* sun */
  241.       nbytes = strlen(mapping_buf);
  242.         }
  243.         else {
  244.       switch (keysym) {
  245.       case XK_Left:
  246.  
  247. --- 1455,1467 -----
  248.   #endif /* sun */
  249.       nbytes = strlen(mapping_buf);
  250.         }
  251. + #ifdef LK201
  252. +       else
  253. +       if (IsKeypadKey(keysym) || IsPFKey(keysym)) {
  254. +     strcpy(mapping_buf,stringFuncVal_KP(keysym));
  255. +     nbytes = strlen(mapping_buf);
  256. +       }
  257. + #endif
  258.         else {
  259.       switch (keysym) {
  260.       case XK_Left:
  261. ***************
  262. *** 1362,1367
  263.         strcpy(mapping_buf,"\016");
  264.         nbytes = 1;
  265.         break;
  266.       }
  267.         }
  268.         if (nbytes) {
  269.  
  270. --- 1480,1499 -----
  271.         strcpy(mapping_buf,"\016");
  272.         nbytes = 1;
  273.         break;
  274. + #ifdef LK201
  275. +     case XK_Next:
  276. +       strcpy(mapping_buf,"\033[6~");
  277. +       nbytes = 4;
  278. +       break;
  279. +     case XK_Prior:
  280. +       strcpy(mapping_buf,"\033[5~");
  281. +       nbytes = 4;
  282. +       break;
  283. +     case DXK_Remove:
  284. +       strcpy(mapping_buf,"\033[3~");
  285. +       nbytes = 4;
  286. +       break;
  287. + #endif    /* LK201 */
  288.       }
  289.         }
  290.         if (nbytes) {
  291. @EOF
  292.  
  293. chmod 644 x11term.c.LK201.diffs
  294.  
  295. exit 0
  296. -- 
  297. Johan Vromans                       jv@mh.nl via internet backbones
  298. Multihouse Automatisering bv               uucp: ..!{mcvax,hp4nl}!mh.nl!jv
  299. Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62944/62500
  300. ------------------------ "Arms are made for hugging" -------------------------
  301.