|
|
1.1 ! root 1: /************************************************************************* ! 2: * This program is copyright (C) 1985, 1986 by Jonathan Payne. It is * ! 3: * provided to you without charge for use only on a licensed Unix * ! 4: * system. You may copy JOVE provided that this notice is included with * ! 5: * the copy. You may not sell copies of this program or versions * ! 6: * modified for use on microcomputer systems, unless the copies are * ! 7: * included with a Unix system distribution and the source is provided. * ! 8: *************************************************************************/ ! 9: ! 10: /* Warning: You probably shouldn't put ifdefs anywhere *inside* the keymaps ! 11: definitions. It'll screw up the stuff in comments (at least), and maybe ! 12: a few other things. Yes, it *WILL* screw up the comments ... but it's ! 13: not clear that you care ... */ ! 14: ! 15: #include "jove.h" ! 16: ! 17: struct data_obj *mainmap[] = { ! 18: "set-mark", /* ^@ */ ! 19: "beginning-of-line", /* ^A */ ! 20: "backward-character", /* ^B */ ! 21: "unbound", /* ^C */ ! 22: "delete-next-character", /* ^D */ ! 23: "end-of-line", /* ^E */ ! 24: "forward-character", /* ^F */ ! 25: "unbound", /* ^G */ ! 26: "delete-previous-character", /* ^H */ ! 27: "handle-tab", /* ^I */ ! 28: "newline-and-indent", /* ^J */ ! 29: "kill-to-end-of-line", /* ^K */ ! 30: "redraw-display", /* ^L */ ! 31: "newline", /* ^M */ ! 32: "next-line", /* ^N */ ! 33: "newline-and-backup", /* ^O */ ! 34: "previous-line", /* ^P */ ! 35: "quoted-insert", /* ^Q */ ! 36: "search-reverse", /* ^R */ ! 37: "search-forward", /* ^S */ ! 38: "transpose-characters", /* ^T */ ! 39: "quadruple-numeric-argument", /* ^U */ ! 40: "next-page", /* ^V */ ! 41: "kill-region", /* ^W */ ! 42: "Prefix-2", /* ^X */ ! 43: "yank", /* ^Y */ ! 44: "scroll-up", /* ^Z */ ! 45: "Prefix-1", /* ^[ */ ! 46: "search-forward", /* ^\ */ ! 47: "unbound", /* ^] */ ! 48: "quoted-insert", /* ^^ */ ! 49: "unbound", /* ^_ */ ! 50: "self-insert", /* */ ! 51: "self-insert", /* ! */ ! 52: "self-insert", /* " */ ! 53: "self-insert", /* # */ ! 54: "self-insert", /* $ */ ! 55: "self-insert", /* % */ ! 56: "self-insert", /* & */ ! 57: "self-insert", /* ' */ ! 58: "self-insert", /* ( */ ! 59: "paren-flash", /* ) */ ! 60: "self-insert", /* * */ ! 61: "self-insert", /* + */ ! 62: "self-insert", /* , */ ! 63: "self-insert", /* - */ ! 64: "self-insert", /* . */ ! 65: "self-insert", /* / */ ! 66: "self-insert", /* 0 */ ! 67: "self-insert", /* 1 */ ! 68: "self-insert", /* 2 */ ! 69: "self-insert", /* 3 */ ! 70: "self-insert", /* 4 */ ! 71: "self-insert", /* 5 */ ! 72: "self-insert", /* 6 */ ! 73: "self-insert", /* 7 */ ! 74: "self-insert", /* 8 */ ! 75: "self-insert", /* 9 */ ! 76: "self-insert", /* : */ ! 77: "self-insert", /* ; */ ! 78: "self-insert", /* < */ ! 79: "self-insert", /* = */ ! 80: "self-insert", /* > */ ! 81: "self-insert", /* ? */ ! 82: "self-insert", /* @ */ ! 83: "self-insert", /* A */ ! 84: "self-insert", /* B */ ! 85: "self-insert", /* C */ ! 86: "self-insert", /* D */ ! 87: "self-insert", /* E */ ! 88: "self-insert", /* F */ ! 89: "self-insert", /* G */ ! 90: "self-insert", /* H */ ! 91: "self-insert", /* I */ ! 92: "self-insert", /* J */ ! 93: "self-insert", /* K */ ! 94: "self-insert", /* L */ ! 95: "self-insert", /* M */ ! 96: "self-insert", /* N */ ! 97: "self-insert", /* O */ ! 98: "self-insert", /* P */ ! 99: "self-insert", /* Q */ ! 100: "self-insert", /* R */ ! 101: "self-insert", /* S */ ! 102: "self-insert", /* T */ ! 103: "self-insert", /* U */ ! 104: "self-insert", /* V */ ! 105: "self-insert", /* W */ ! 106: "self-insert", /* X */ ! 107: "self-insert", /* Y */ ! 108: "self-insert", /* Z */ ! 109: "self-insert", /* [ */ ! 110: "self-insert", /* \ */ ! 111: "paren-flash", /* ] */ ! 112: "self-insert", /* ^ */ ! 113: "self-insert", /* _ */ ! 114: "self-insert", /* ` */ ! 115: "self-insert", /* a */ ! 116: "self-insert", /* b */ ! 117: "self-insert", /* c */ ! 118: "self-insert", /* d */ ! 119: "self-insert", /* e */ ! 120: "self-insert", /* f */ ! 121: "self-insert", /* g */ ! 122: "self-insert", /* h */ ! 123: "self-insert", /* i */ ! 124: "self-insert", /* j */ ! 125: "self-insert", /* k */ ! 126: "self-insert", /* l */ ! 127: "self-insert", /* m */ ! 128: "self-insert", /* n */ ! 129: "self-insert", /* o */ ! 130: "self-insert", /* p */ ! 131: "self-insert", /* q */ ! 132: "self-insert", /* r */ ! 133: "self-insert", /* s */ ! 134: "self-insert", /* t */ ! 135: "self-insert", /* u */ ! 136: "self-insert", /* v */ ! 137: "self-insert", /* w */ ! 138: "self-insert", /* x */ ! 139: "self-insert", /* y */ ! 140: "self-insert", /* z */ ! 141: "self-insert", /* { */ ! 142: "self-insert", /* | */ ! 143: "paren-flash", /* } */ ! 144: "self-insert", /* ~ */ ! 145: "delete-previous-character" /* ^? */ ! 146: }; ! 147: ! 148: struct data_obj *pref1map[0200] = { ! 149: "unbound", /* ^@ */ ! 150: "unbound", /* ^A */ ! 151: "backward-s-expression", /* ^B */ ! 152: "unbound", /* ^C */ ! 153: "unbound", /* ^D */ ! 154: "unbound", /* ^E */ ! 155: "forward-s-expression", /* ^F */ ! 156: "unbound", /* ^G */ ! 157: "unbound", /* ^H */ ! 158: "unbound", /* ^I */ ! 159: "unbound", /* ^J */ ! 160: "kill-s-expression", /* ^K */ ! 161: "clear-and-redraw", /* ^L */ ! 162: "unbound", /* ^M */ ! 163: "unbound", /* ^N */ ! 164: "unbound", /* ^O */ ! 165: "unbound", /* ^P */ ! 166: "unbound", /* ^Q */ ! 167: "unbound", /* ^R */ ! 168: "unbound", /* ^S */ ! 169: "unbound", /* ^T */ ! 170: "unbound", /* ^U */ ! 171: "page-next-window", /* ^V */ ! 172: "unbound", /* ^W */ ! 173: "unbound", /* ^X */ ! 174: "unbound", /* ^Y */ ! 175: "unbound", /* ^Z */ ! 176: "unbound", /* ^[ */ ! 177: "unbound", /* ^\ */ ! 178: "unbound", /* ^] */ ! 179: "unbound", /* ^^ */ ! 180: "unbound", /* ^_ */ ! 181: "unbound", /* */ ! 182: "unbound", /* ! */ ! 183: "unbound", /* " */ ! 184: "unbound", /* # */ ! 185: "unbound", /* $ */ ! 186: "unbound", /* % */ ! 187: "unbound", /* & */ ! 188: "unbound", /* ' */ ! 189: "unbound", /* ( */ ! 190: "unbound", /* ) */ ! 191: "unbound", /* * */ ! 192: "unbound", /* + */ ! 193: "beginning-of-window", /* , */ ! 194: "digit", /* - */ ! 195: "end-of-window", /* . */ ! 196: "unbound", /* / */ ! 197: "digit", /* 0 */ ! 198: "digit", /* 1 */ ! 199: "digit", /* 2 */ ! 200: "digit", /* 3 */ ! 201: "digit", /* 4 */ ! 202: "digit", /* 5 */ ! 203: "digit", /* 6 */ ! 204: "digit", /* 7 */ ! 205: "digit", /* 8 */ ! 206: "digit", /* 9 */ ! 207: "unbound", /* : */ ! 208: "unbound", /* ; */ ! 209: "beginning-of-file", /* < */ ! 210: "unbound", /* = */ ! 211: "end-of-file", /* > */ ! 212: "describe-command", /* ? */ ! 213: "unbound", /* @ */ ! 214: "backward-sentence", /* A */ ! 215: "backward-word", /* B */ ! 216: "case-word-capitalize", /* C */ ! 217: "kill-next-word", /* D */ ! 218: "forward-sentence", /* E */ ! 219: "forward-word", /* F */ ! 220: "goto-line", /* G */ ! 221: "unbound", /* H */ ! 222: "make-macro-interactive", /* I */ ! 223: "fill-paragraph", /* J */ ! 224: "kill-to-end-of-sentence", /* K */ ! 225: "case-word-lower", /* L */ ! 226: "first-non-blank", /* M */ ! 227: "unbound", /* N */ ! 228: "unbound", /* O */ ! 229: "unbound", /* P */ ! 230: "query-replace-string", /* Q */ ! 231: "replace-string", /* R */ ! 232: "unbound", /* S */ ! 233: "unbound", /* T */ ! 234: "case-word-upper", /* U */ ! 235: "previous-page", /* V */ ! 236: "copy-region", /* W */ ! 237: "execute-named-command", /* X */ ! 238: "yank-pop", /* Y */ ! 239: "scroll-down", /* Z */ ! 240: "backward-paragraph", /* [ */ ! 241: "delete-white-space", /* \ */ ! 242: "forward-paragraph", /* ] */ ! 243: "unbound", /* ^ */ ! 244: "unbound", /* _ */ ! 245: "unbound", /* ` */ ! 246: "backward-sentence", /* a */ ! 247: "backward-word", /* b */ ! 248: "case-word-capitalize", /* c */ ! 249: "kill-next-word", /* d */ ! 250: "forward-sentence", /* e */ ! 251: "forward-word", /* f */ ! 252: "goto-line", /* g */ ! 253: "unbound", /* h */ ! 254: "make-macro-interactive", /* i */ ! 255: "fill-paragraph", /* j */ ! 256: "kill-to-end-of-sentence", /* k */ ! 257: "case-word-lower", /* l */ ! 258: "first-non-blank", /* m */ ! 259: "unbound", /* n */ ! 260: "unbound", /* o */ ! 261: "unbound", /* p */ ! 262: "query-replace-string", /* q */ ! 263: "replace-string", /* r */ ! 264: "unbound", /* s */ ! 265: "unbound", /* t */ ! 266: "case-word-upper", /* u */ ! 267: "previous-page", /* v */ ! 268: "copy-region", /* w */ ! 269: "execute-named-command", /* x */ ! 270: "yank-pop", /* y */ ! 271: "scroll-down", /* z */ ! 272: "unbound", /* { */ ! 273: "unbound", /* | */ ! 274: "unbound", /* } */ ! 275: "make-buffer-unmodified", /* ~ */ ! 276: "kill-previous-word" /* ^? */ ! 277: }; ! 278: ! 279: struct data_obj *pref2map[0200] = { ! 280: "unbound", /* ^@ */ ! 281: "unbound", /* ^A */ ! 282: "list-buffers", /* ^B */ ! 283: "exit-jove", /* ^C */ ! 284: "unbound", /* ^D */ ! 285: "compile-it", /* ^E */ ! 286: "find-file", /* ^F */ ! 287: "unbound", /* ^G */ ! 288: "unbound", /* ^H */ ! 289: "insert-file", /* ^I */ ! 290: "unbound", /* ^J */ ! 291: "unbound", /* ^K */ ! 292: "unbound", /* ^L */ ! 293: "write-modified-files", /* ^M */ ! 294: "next-error", /* ^N */ ! 295: "delete-blank-lines", /* ^O */ ! 296: "previous-error", /* ^P */ ! 297: "unbound", /* ^Q */ ! 298: "visit-file", /* ^R */ ! 299: "save-file", /* ^S */ ! 300: "transpose-lines", /* ^T */ ! 301: "unbound", /* ^U */ ! 302: "visit-file", /* ^V */ ! 303: "write-file", /* ^W */ ! 304: "exchange-point-and-mark", /* ^X */ ! 305: "unbound", /* ^Y */ ! 306: "unbound", /* ^Z */ ! 307: "unbound", /* ^[ */ ! 308: "save-file", /* ^\ */ ! 309: "unbound", /* ^] */ ! 310: "unbound", /* ^^ */ ! 311: "unbound", /* ^_ */ ! 312: "unbound", /* */ ! 313: "shell-command", /* ! */ ! 314: "unbound", /* " */ ! 315: "unbound", /* # */ ! 316: "unbound", /* $ */ ! 317: "unbound", /* % */ ! 318: "unbound", /* & */ ! 319: "unbound", /* ' */ ! 320: "start-remember", /* ( */ ! 321: "stop-remembering", /* ) */ ! 322: "unbound", /* * */ ! 323: "unbound", /* + */ ! 324: "unbound", /* , */ ! 325: "unbound", /* - */ ! 326: "unbound", /* . */ ! 327: "unbound", /* / */ ! 328: "unbound", /* 0 */ ! 329: "delete-other-windows", /* 1 */ ! 330: "split-current-window", /* 2 */ ! 331: "unbound", /* 3 */ ! 332: "window-find", /* 4 */ ! 333: "unbound", /* 5 */ ! 334: "unbound", /* 6 */ ! 335: "unbound", /* 7 */ ! 336: "unbound", /* 8 */ ! 337: "unbound", /* 9 */ ! 338: "unbound", /* : */ ! 339: "unbound", /* ; */ ! 340: "unbound", /* < */ ! 341: "unbound", /* = */ ! 342: "unbound", /* > */ ! 343: "describe-key", /* ? */ ! 344: "unbound", /* @ */ ! 345: "unbound", /* A */ ! 346: "select-buffer", /* B */ ! 347: "unbound", /* C */ ! 348: "delete-current-window", /* D */ ! 349: "execute-keyboard-macro", /* E */ ! 350: "unbound", /* F */ ! 351: "unbound", /* G */ ! 352: "unbound", /* H */ ! 353: "unbound", /* I */ ! 354: "unbound", /* J */ ! 355: "delete-buffer", /* K */ ! 356: "unbound", /* L */ ! 357: "unbound", /* M */ ! 358: "next-window", /* N */ ! 359: "previous-window", /* O */ ! 360: "previous-window", /* P */ ! 361: "unbound", /* Q */ ! 362: "unbound", /* R */ ! 363: "save-file", /* S */ ! 364: "find-tag", /* T */ ! 365: "unbound", /* U */ ! 366: "unbound", /* V */ ! 367: "unbound", /* W */ ! 368: "unbound", /* X */ ! 369: "unbound", /* Y */ ! 370: "unbound", /* Z */ ! 371: "unbound", /* [ */ ! 372: "unbound", /* \ */ ! 373: "unbound", /* ] */ ! 374: "grow-window", /* ^ */ ! 375: "unbound", /* _ */ ! 376: "unbound", /* ` */ ! 377: "unbound", /* a */ ! 378: "select-buffer", /* b */ ! 379: "unbound", /* c */ ! 380: "delete-current-window", /* d */ ! 381: "execute-keyboard-macro", /* e */ ! 382: "unbound", /* f */ ! 383: "unbound", /* g */ ! 384: "unbound", /* h */ ! 385: "unbound", /* i */ ! 386: "unbound", /* j */ ! 387: "delete-buffer", /* k */ ! 388: "unbound", /* l */ ! 389: "unbound", /* m */ ! 390: "next-window", /* n */ ! 391: "previous-window", /* o */ ! 392: "previous-window", /* p */ ! 393: "unbound", /* q */ ! 394: "unbound", /* r */ ! 395: "save-file", /* s */ ! 396: "find-tag", /* t */ ! 397: "unbound", /* u */ ! 398: "unbound", /* v */ ! 399: "unbound", /* w */ ! 400: "unbound", /* x */ ! 401: "unbound", /* y */ ! 402: "unbound", /* z */ ! 403: "unbound", /* { */ ! 404: "unbound", /* | */ ! 405: "unbound", /* } */ ! 406: "unbound", /* ~ */ ! 407: "kill-to-beginning-of-sentence" /* ^? */ ! 408: }; ! 409: ! 410: struct data_obj *miscmap[0200] = {0};
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.