![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to x_keymap.clu CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib|
Return to x_keymap.clu CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / X / CLUlib |
1.1 ! root 1: x_keymap = cluster is load, getc, gets ! 2: ! 3: rep = null ! 4: ! 5: mapsub = 85 ! 6: ! 7: qb = sequence[bool] ! 8: ! 9: slmin = 192 ! 10: ! 11: slmap = qb$[true, % 0301 q ! 12: true, % 0302 a ! 13: true, % 0303 z ! 14: false, % 0304 ! 15: false, % 0305 2 ! 16: true, % 0306 w ! 17: true, % 0307 s ! 18: true, % 0310 x ! 19: false, % 0311 < ! 20: false, % 0312 ! 21: false, % 0313 3 ! 22: true, % 0314 e ! 23: true, % 0315 d ! 24: true, % 0316 c ! 25: false, % 0317 ! 26: false, % 0320 4 ! 27: true, % 0321 r ! 28: true, % 0322 f ! 29: true, % 0323 v ! 30: false, % 0324 space ! 31: false, % 0325 ! 32: false, % 0326 5 ! 33: true, % 0327 t ! 34: true, % 0330 g ! 35: true, % 0331 b ! 36: false, % 0332 ! 37: false, % 0333 6 ! 38: true, % 0334 y ! 39: true, % 0335 h ! 40: true, % 0336 n ! 41: false, % 0337 ! 42: false, % 0340 7 ! 43: true, % 0341 u ! 44: true, % 0342 j ! 45: true, % 0343 m ! 46: false, % 0344 ! 47: false, % 0345 8 ! 48: true, % 0346 i ! 49: true, % 0347 k ! 50: false, % 0350 , ! 51: false, % 0351 ! 52: false, % 0352 9 ! 53: true, % 0353 o ! 54: true, % 0354 l ! 55: false, % 0355 . ! 56: false, % 0356 ! 57: false, % 0357 0 ! 58: true % 0360 p ! 59: ] ! 60: ! 61: qs = sequence[string] ! 62: ! 63: % plain,S,M,M-S,C,C-S,C-M,C-M-S ! 64: ! 65: charmap = qs$[ ! 66: "\330\330\330\330\330\330\330\330", % 0126 F1/Hold Screen ! 67: "\324\324\324\324\324\324\324\324", % 0127 F2/Print Screen ! 68: "\325\325\325\325\325\325\325\325", % 0130 F3/Set-Up ! 69: "\326\326\326\326\326\326\326\326", % 0131 F4 ! 70: "\327\327\327\327\327\327\327\327", % 0132 F5/Break ! 71: "", % 0133 ! 72: "", % 0134 ! 73: "", % 0135 ! 74: "", % 0136 ! 75: "", % 0137 ! 76: "", % 0140 ! 77: "", % 0141 ! 78: "", % 0142 ! 79: "", % 0143 ! 80: "\341\341\341\341\341\341\341\341", % 0144 F6 ! 81: "\342\342\342\342\342\342\342\342", % 0145 F7 ! 82: "\343\343\343\343\343\343\343\343", % 0146 F8 ! 83: "\344\344\344\344\344\344\344\344", % 0147 F9 ! 84: "\345\345\345\345\345\345\345\345", % 0150 F10 ! 85: "", % 0151 ! 86: "", % 0152 ! 87: "", % 0153 ! 88: "", % 0154 ! 89: "", % 0155 ! 90: "", % 0156 ! 91: "", % 0157 ! 92: "", % 0160 ! 93: "\033\033\033\033\033\033\033\033", % 0161 F11/ESC ! 94: "\b\b\210\210\b\b\210\210", % 0162 F12/BS ! 95: "\n\n\212\212\n\n\212\212", % 0163 F13/LF ! 96: "", % 0164 F14 ! 97: "", % 0165 ! 98: "", % 0166 ! 99: "", % 0167 ! 100: "", % 0170 ! 101: "", % 0171 ! 102: "", % 0172 ! 103: "", % 0173 ! 104: "", % 0174 Help/F15 ! 105: "", % 0175 Do/F16 ! 106: "", % 0176 ! 107: "", % 0177 ! 108: "\346\346\346\346\346\346\346\346", % 0200 F17 ! 109: "\347\347\347\347\347\347\347\347", % 0201 F18 ! 110: "\350\350\350\350\350\350\350\350", % 0202 F19 ! 111: "\351\351\351\351\351\351\351\351", % 0203 F20/Hyph ! 112: "", % 0204 ! 113: "", % 0205 ! 114: "", % 0206 ! 115: "", % 0207 ! 116: "", % 0210 ! 117: "", % 0211 ! 118: "\261\261\261\261\261\261\261\261", % 0212 Find ! 119: "\262\262\262\262\262\262\262\262", % 0213 Insert ! 120: "\263\263\263\263\263\263\263\263", % 0214 Remove ! 121: "\264\264\264\264\264\264\264\264", % 0215 Select ! 122: "\265\265\265\265\265\265\265\265", % 0216 Prev Screen ! 123: "\266\266\266\266\266\266\266\266", % 0217 Next Screen ! 124: "", % 0220 ! 125: "", % 0221 ! 126: "\360\360\360\360\360\360\360\360", % 0222 R0 ! 127: "", % 0223 ! 128: "\356\356\356\356\356\356\356\356", % 0224 R. ! 129: "\315\315\315\315\315\315\315\315", % 0225 Enter ! 130: "\361\361\361\361\361\361\361\361", % 0226 R1 ! 131: "\362\362\362\362\362\362\362\362", % 0227 R2 ! 132: "\363\363\363\363\363\363\363\363", % 0230 R3 ! 133: "\364\364\364\364\364\364\364\364", % 0231 R4 ! 134: "\365\365\365\365\365\365\365\365", % 0232 R5 ! 135: "\366\366\366\366\366\366\366\366", % 0233 R6 ! 136: "\354\354\354\354\354\354\354\354", % 0234 R, ! 137: "\367\367\367\367\367\367\367\367", % 0235 R7 ! 138: "\370\370\370\370\370\370\370\370", % 0236 R8 ! 139: "\371\371\371\371\371\371\371\371", % 0237 R9 ! 140: "\355\355\355\355\355\355\355\355", % 0240 R- ! 141: "\320\320\320\320\320\320\320\320", % 0241 PF1 ! 142: "\321\321\321\321\321\321\321\321", % 0242 PF2 ! 143: "\322\322\322\322\322\322\322\322", % 0243 PF3 ! 144: "\323\323\323\323\323\323\323\323", % 0244 PF4 ! 145: "", % 0245 ! 146: "", % 0246 ! 147: "\304\304\304\304\304\304\304\304", % 0247 leftarrow ! 148: "\303\303\303\303\303\303\303\303", % 0250 rightarrow ! 149: "\302\302\302\302\302\302\302\302", % 0251 downarrow ! 150: "\301\301\301\301\301\301\301\301", % 0252 uparrow ! 151: "", % 0253 ! 152: "", % 0254 ! 153: "", % 0255 ! 154: "", % 0256 Shift ! 155: "", % 0257 Ctrl ! 156: "", % 0260 Lock ! 157: "", % 0261 Compose Character ! 158: "", % 0262 ! 159: "", % 0263 ! 160: "", % 0264 ! 161: "", % 0265 ! 162: "", % 0266 ! 163: "", % 0267 ! 164: "", % 0270 ! 165: "", % 0271 ! 166: "", % 0272 ! 167: "", % 0273 ! 168: "\177\177\377\377\177\177\377\377", % 0274 back ! 169: "\r\r\215\215\r\r\215\215", % 0275 Return ! 170: "\t\t\211\211\t\t\211\211", % 0276 Tab ! 171: "`~\340\376", % 0277 ` ! 172: "1!\261\2411!", % 0300 1 ! 173: "qQ\361\321\021\021\221\221", % 0301 q ! 174: "aA\341\301\001\001\201\201", % 0302 a ! 175: "zZ\372\332\032\032\232\232", % 0303 z ! 176: "", % 0304 ! 177: "2@\262\3002\000\262\200", % 0305 2 ! 178: "wW\367\327\027\027\227\227", % 0306 w ! 179: "sS\363\323\023\023\223\223", % 0307 s ! 180: "xX\370\330\030\030\230\230", % 0310 x ! 181: "<>\274\276", % 0311 < ! 182: "", % 0312 ! 183: "3#\263\2433#", % 0313 3 ! 184: "eE\345\305\005\005\205\205", % 0314 e ! 185: "dD\344\304\004\004\204\204", % 0315 d ! 186: "cC\343\303\003\003\203\203", % 0316 c ! 187: "", % 0317 ! 188: "4$\264\2444$", % 0320 4 ! 189: "rR\362\322\022\022\222\222", % 0321 r ! 190: "fF\346\306\006\006\206\206", % 0322 f ! 191: "vV\366\326\026\026\226\226", % 0323 v ! 192: " \240\240\000\000\200\200", % 0324 space ! 193: "", % 0325 ! 194: "5%\265\2455%", % 0326 5 ! 195: "tT\364\324\024\024\224\224", % 0327 t ! 196: "gG\347\307\007\007\207\207", % 0330 g ! 197: "bB\342\302\002\002\202\202", % 0331 b ! 198: "", % 0332 ! 199: "6^\266\3366\036\266\236", % 0333 6 ! 200: "yY\371\331\031\031\231\231", % 0334 y ! 201: "hH\350\310\010\010\210\210", % 0335 h ! 202: "nN\356\316\016\016\216\216", % 0336 n ! 203: "", % 0337 ! 204: "7&\267\2467&", % 0340 7 ! 205: "uU\365\325\025\025\225\225", % 0341 u ! 206: "jJ\352\312\012\012\212\212", % 0342 j ! 207: "mM\355\315\015\015\215\215", % 0343 m ! 208: "", % 0344 ! 209: "8*\270\2528*", % 0345 8 ! 210: "iI\351\311\011\011\211\211", % 0346 i ! 211: "kK\353\313\013\013\213\213", % 0347 k ! 212: ",<\254\274", % 0350 , ! 213: "", % 0351 ! 214: "9(\271\2509(", % 0352 9 ! 215: "oO\357\317\017\017\217\217", % 0353 o ! 216: "lL\354\314\014\014\214\214", % 0354 l ! 217: ".>\256\276", % 0355 . ! 218: "", % 0356 ! 219: "0)\260\2510(", % 0357 0 ! 220: "pP\360\320\020\020\220\220", % 0360 p ! 221: "", % 0361 ! 222: ";:\273\272", % 0362 ; ! 223: "/?\257\277\037\037\237\237", % 0363 / ! 224: "", % 0364 ! 225: "=+\275\253", % 0365 = ! 226: "]}\335\375\035\035\235\235", % 0366 ] ! 227: "\\|\334\374\034\034\234\234", % 0367 \ ! 228: "", % 0370 ! 229: "-_\255\337-\037\255\237", % 0371 - ! 230: "[{\333\373\033\033\233\233", % 0372 [ ! 231: "'\"\247\242" % 0373 ' ! 232: ] ! 233: ! 234: multilist = array[multi] ! 235: multi = record[key: int, ! 236: mask: int, ! 237: value: string] ! 238: ! 239: own havemap: bool := false ! 240: own keymap: _bytevec ! 241: own multis: multilist ! 242: ! 243: load = proc (fs: string) ! 244: if string$empty(fs) ! 245: then fs := ".Xkeymap" end ! 246: begin ! 247: fn: file_name := file_name$parse(fs) ! 248: if string$empty(fn.dir) ! 249: then fn := file_name$create(_environ("HOME"), fn.name, ! 250: fn.suffix, fn.other) ! 251: end ! 252: c: _chan := _chan$open(fn, "read", 0) ! 253: if _chan$getc(c, false) ~= '\372' ! 254: then _chan$close(c) ! 255: return ! 256: end ! 257: keymap := _bytevec$create(c.length - 1) ! 258: _chan$getb(c, keymap) ! 259: _chan$close(c) ! 260: havemap := _bytevec$size(keymap) >= 4096 ! 261: multis := multilist$new() ! 262: i: int := 4097 ! 263: while true do ! 264: multilist$addh(multis, ! 265: multi${key: char$c2i(keymap[i]), ! 266: mask: char$c2i(keymap[i + 1]), ! 267: value: string$substr(_cvt[_bytevec, string]( ! 268: keymap), ! 269: i + 3, ! 270: char$c2i(keymap[i + 2]))}) ! 271: i := i + 3 + char$c2i(keymap[i + 2]) ! 272: end ! 273: end except others: end ! 274: end load ! 275: ! 276: getc = proc (key, mask: int) returns (char) signals (none, multi(string)) ! 277: if havemap ! 278: then mask := mask / 2**11 ! 279: c: char := keymap[(key * 16) + mask + 1] ! 280: if c < '\375' ! 281: then return(c) end ! 282: if c = '\376' ! 283: then for m: multi in multilist$elements(multis) do ! 284: if key = m.key cand ! 285: (mask = m.mask cor m.mask = 255) ! 286: then if string$size(m.value) = 1 ! 287: then return(m.value[1]) end ! 288: if string$empty(m.value) ! 289: then signal none end ! 290: signal multi(m.value) ! 291: end ! 292: end ! 293: end ! 294: signal none ! 295: end except when bounds: signal none end ! 296: key := key - mapsub ! 297: keymode: int := mask / 2**12 + 1 ! 298: if (mask / 2**11) // 4 = 1 cand slmap[key + (mapsub - slmin)] ! 299: then keymode := keymode + 1 ! 300: end except when bounds: end ! 301: return(charmap[key][keymode]) ! 302: except when bounds: signal none end ! 303: end getc ! 304: ! 305: gets = proc (key, mask: int) returns (string) signals (none) ! 306: if havemap ! 307: then mask := mask / 2**11 ! 308: c: char := keymap[(key * 16) + mask + 1] ! 309: if c < '\375' ! 310: then return(string$c2s(c)) end ! 311: if c = '\376' ! 312: then for m: multi in multilist$elements(multis) do ! 313: if key = m.key cand ! 314: (mask = m.mask cor m.mask = 255) ! 315: then if string$empty(m.value) ! 316: then signal none end ! 317: return(m.value) ! 318: end ! 319: end ! 320: end ! 321: signal none ! 322: end except when bounds: signal none end ! 323: key := key - mapsub ! 324: keymode: int := mask / 2**12 + 1 ! 325: if (mask / 2**11) // 4 = 1 cand slmap[key + (mapsub - slmin)] ! 326: then keymode := keymode + 1 ! 327: end except when bounds: end ! 328: return(string$c2s(charmap[key][keymode])) ! 329: except when bounds: signal none end ! 330: end gets ! 331: ! 332: end x_keymap
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.