|
|
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.