projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 394a1d25 C |
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}; |