home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / input-remapping / text0001.txt < prev    next >
Encoding:
Text File  |  1990-07-22  |  4.1 KB  |  164 lines
  1.  
  2.     HP/ISI input remapping files:  Part 1 of 8
  3.  
  4.     These are differences relative to the original src/x11fns.c
  5.     in GNU emacs version 18.54.
  6.  
  7.     Changes are to add function x-rebind-keysym, which allows
  8.     changing the keysym-to-string binding for X11 keyboard input.
  9.  
  10.  
  11. ------------------------------  Cut  Here  --------------------------------
  12. 24a25,26
  13. > /*    Modified by Paul Raveling @ ISI to add keysym rebinding        */
  14. > 
  15. 110a113,256
  16. > extern    char    *keysymtostring ();    /*  In x11term.c    */
  17. > extern    KeySym     stringtokeysym ();    /*  In x11term.c    */
  18. > 
  19. > /*    Alternative modifier lists;    */
  20. > 
  21. > static    KeySym    noshifts[2]    = {0, 0};
  22. > static    KeySym    shiftshifts[2]    = {XK_Shift_L, XK_Shift_R};
  23. > static    KeySym    ctlshifts[2]    = {XK_Control_L, XK_Control_R};
  24. > static    KeySym    metashifts[2]    = {XK_Meta_L, XK_Meta_R};
  25. > 
  26. > 
  27. > 
  28. > 
  29. > /*------------------    x-rebind-keysym    -------------------*/
  30. > 
  31. > DEFUN ("x-rebind-keysym", Fx_rebind_keysym, Sx_rebind_keysym, 3, 3,
  32. > "sKey to rebind (KeySym, without \"XK_\"):  \n\
  33. > sShift key ([nil], None, Shift, Ctl, Meta):  \n\
  34. > sNew string bound to key:  ",
  35. > "Rebind KEYSYM, with SHIFT-KEY, to NEWSTRING.\n\
  36. >     KEYSYM is the key's name as given in /usr/include/X11/keysymdef.h,\n\
  37. >     but without the \"XK_\" prefix.\n\
  38. >     SHIFT-KEY is nil, \"NONE\", \"SHIFT\", \"CTL\", or \"META\";\n\
  39. >     nil selects all combinations of shift keys.\n\
  40. >     NEWSTRING is an arbitrary string of keystrokes.\n\
  41. > \n")
  42. > 
  43. >   (keysym, shift_key, newstring)
  44. >      register Lisp_Object keysym;
  45. >      register Lisp_Object shift_key;
  46. >      register Lisp_Object newstring;
  47. > {
  48. >     char    *keysymstring, *shiftstring, *mapstring;
  49. >     int     keysymslen,    shiftslen,    mapslen;
  50. >     KeySym     target_key;
  51. >     KeySym    *modlist;
  52. >     int     num_mods;
  53. > 
  54. >     int     i;
  55. >     char    *cp;
  56. > 
  57. > 
  58. > 
  59. >     CHECK_STRING (keysym, 1);
  60. >     if (!NULL (shift_key))
  61. >        CHECK_STRING (shift_key,2);
  62. >     CHECK_STRING (newstring, 3);
  63. > 
  64. > #define    setstring(src,dst,len) { \
  65. >     len = XSTRING (src) -> size; \
  66. >     dst = (char *) xmalloc (len+1); \
  67. >     bcopy (XSTRING (src) -> data, dst, len); \
  68. >     dst[len] = 0; }
  69. > 
  70. >     setstring (keysym,    keysymstring,    keysymslen)
  71. >     if ( !NULL (shift_key) )
  72. >        setstring (shift_key,shiftstring,    shiftslen)
  73. >     else
  74. >        shiftslen = 0;
  75. >     setstring (newstring,    mapstring,    mapslen)
  76. > 
  77. > 
  78. > 
  79. >     /*------------------------------*/
  80. >     /*    Identify key to remap    */
  81. >     /*------------------------------*/
  82. > 
  83. >     target_key = stringtokeysym ( keysymstring );
  84. > 
  85. >     if ( target_key == 0 )
  86. >        {
  87. >        error ("Keysym \"%s\" is not defined", keysymstring);
  88. >        return Qnil;
  89. >        }
  90. > 
  91. > 
  92. > 
  93. >     /*----------------------------------------------*/
  94. >     /*    Identify modifier list(s) to use    */
  95. >     /*----------------------------------------------*/
  96. > 
  97. >     if ( shiftslen != 0 )
  98. >        {
  99. >        cp = shiftstring;
  100. >        i  = shiftslen;
  101. >        while ( i-- > 0 )        /*  Fold string to upper case    */
  102. >          {
  103. >              if ((*cp >= 'a') && (*cp <= 'z'))
  104. >             *cp -= 'a' - 'A';
  105. >          ++ cp;
  106. >          }
  107. >        }
  108. > 
  109. >     if ( shiftslen == 0 )
  110. >        num_mods = -1;
  111. >     else if ( strcmp (shiftstring, "NONE") == 0 )
  112. >         {
  113. >         modlist  = noshifts;
  114. >         num_mods = 0;
  115. >         }
  116. >     else if ( strcmp (shiftstring, "SHIFT") == 0 )
  117. >         {
  118. >         modlist  = shiftshifts;
  119. >         num_mods = 2;
  120. >         }
  121. >     else if ( strcmp (shiftstring, "CTL") == 0 )
  122. >         {
  123. >         modlist  = ctlshifts;
  124. >         num_mods = 2;
  125. >         }
  126. >     else if ( strcmp (shiftstring, "META") == 0 )
  127. >         {
  128. >         modlist  = metashifts;
  129. >         num_mods = 2;
  130. >         }
  131. >     else
  132. >         {
  133. >         error ( "Shift key \"%s\" not recognized", shiftstring );
  134. >         return Qnil;
  135. >         }
  136. > 
  137. > 
  138. >     /*----------------------*/
  139. >     /*    Map the key    */
  140. >     /*----------------------*/
  141. > 
  142. >     if ( num_mods != -1 )
  143. >        XRebindKeysym ( XXdisplay, target_key, modlist, num_mods,
  144. >                 mapstring, mapslen );
  145. >     else
  146. >        {
  147. >        XRebindKeysym ( XXdisplay, target_key, noshifts, 0,
  148. >                 mapstring, mapslen );
  149. >        XRebindKeysym ( XXdisplay, target_key, shiftshifts, 2,
  150. >                 mapstring, mapslen );
  151. >        XRebindKeysym ( XXdisplay, target_key, ctlshifts, 2,
  152. >                 mapstring, mapslen );
  153. >        XRebindKeysym ( XXdisplay, target_key, metashifts, 2,
  154. >                 mapstring, mapslen );
  155. >        }
  156. > 
  157. >     return Qt;
  158. > }
  159. > 
  160. 847a994
  161. >   defsubr (&Sx_rebind_keysym);
  162.  
  163.  
  164.