![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to comtab.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / d / usr / bin / emacs|
Return to comtab.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / emacs |
1.1 root 1: /*
2: * Emacs command tables.
3: * Generated by ext.c
4: * Make any changes by changing ext.c
5: */
6:
7: #include "stdio.h"
8: #include "ed.h"
9:
10: extern ctrlg(); /* Abort out of things */
11: extern quit(); /* Quit */
12: extern ctlxlp(); /* Begin macro */
13: extern ctlxrp(); /* End macro */
14: extern ctlxe(); /* Execute macro */
15: extern fileread(); /* Get a file, read only */
16: extern filevisit(); /* Get a file, read write */
17: /* Also F2 */
18: extern filewrite(); /* Write a file */
19: /* Also F2 */
20: extern filesave(); /* Save current file */
21: extern filename(); /* Adjust file name */
22: extern gotobol(); /* Move to start of line */
23: /* Also HOME KEY */
24: extern forwchar(); /* Move forward by characters */
25: /* Also RIGHT ARROW */
26: extern gotoeol(); /* Move to end of line */
27: /* Also END KEY */
28: extern backchar(); /* Move backward by characters */
29: /* Also LEFT ARROW */
30: extern forwline(); /* Move forward by lines */
31: /* Also DOWN ARROW */
32: extern backline(); /* Move backward by lines */
33: /* Also UP ARROW */
34: extern forwpage(); /* Move forward by pages */
35: /* Also PAGE DOWN */
36: extern backpage(); /* Move backward by pages */
37: /* Also PAGE UP */
38: extern gotobob(); /* Move to start of buffer */
39: extern gotoeob(); /* Move to end of buffer */
40: extern setfillcol(); /* Set fill column to current col */
41: /* ctl-u n set fill col to n */
42: /* ctl-u 0 turn off word wrap */
43: extern fillregion(); /* apply fillcol to a region*/
44: extern setmark(); /* Set mark */
45: extern swapmark(); /* Swap '.' and mark */
46: extern forwsearch(); /* Search forward */
47: /* Also F3 */
48: /* ALT F3 is continue search */
49: extern forwisearch(); /* forward incremental search */
50: extern backisearch(); /* backward incremental search */
51: extern queryrepl(); /* query/replace */
52: /* Also F5 */
53: extern searchagain(); /* find next occurrance */
54: extern backsearch(); /* Search backwards */
55: /* Also F4 */
56: extern showcpos(); /* Show the cursor position */
57: extern nextwind(); /* Move to the next window */
58: /* Also F6 */
59: extern prevwind(); /* Move to the previous window */
60: extern onlywind(); /* Make current window only one */
61: /* Also F10 */
62: extern splitwind(); /* Split current window */
63: /* Also ALT F1 */
64: extern mvdnwind(); /* Move window down */
65: extern mvupwind(); /* Move window up */
66: extern enlargewind(); /* Enlarge display window. */
67: extern shrinkwind(); /* Shrink window. */
68: extern listbuffers(); /* Display list of buffers */
69: extern usebuffer(); /* Switch a window to a buffer */
70: extern killbuffer(); /* Make a buffer go away. */
71: extern reposition(); /* Reposition dot to line ctl-u */
72: /* if ctl-u 0 center */
73: /* if ctl-u < 0 repos from bottom */
74: extern refresh(); /* Refresh the screen */
75: /* with ctl-u recenter */
76: extern twiddle(); /* Twiddle characters */
77: extern tab(); /* Insert tab */
78: /* ctl-u n use n spaces per tab */
79: /* ctl-u -n tab is n spaces */
80: extern newline(); /* Insert CR-LF */
81: /* Same as ctl-j in autoindent mode */
82: extern indent(); /* Insert CR-LF, then indent */
83: extern openline(); /* Open up a blank line */
84: extern deblank(); /* Delete blank lines */
85: extern quote(); /* Insert literal */
86: extern quoteval(); /* Insert decimal literal */
87: extern backword(); /* Backup by words */
88: extern forwword(); /* Advance by words */
89: extern forwdel(); /* Forward delete */
90: /* Also DELETE KEY */
91: extern backdel(); /* Backward delete */
92: extern kill(); /* Kill forward from dot */
93: /* if ctl-u 0 or less backward */
94: extern yank(); /* Yank back from killbuffer. */
95: extern loadBinds(); /* Load flexable bindings from file. */
96: extern nameMac(); /* Bind current macro to binding. */
97: extern initMac(); /* Bind current macro to initial macro */
98: extern setPrefix(); /* Set prefix codes */
99: extern bindFun(); /* Bind function to old function. */
100: extern storBinds(); /* Store flexable bindings on a file. */
101: extern upperword(); /* Upper case word. */
102: extern lowerword(); /* Lower case word. */
103: extern upperregion(); /* Upper case region. */
104: extern lowerregion(); /* Lower case region. */
105: extern capword(); /* Initial capitalize word. */
106: extern delfword(); /* Delete forward word. */
107: extern delbword(); /* Delete backward word. */
108: extern killregion(); /* Kill region. */
109: extern copyregion(); /* Copy region to kill buffer. */
110: extern spawncli(); /* Run CLI in a subjob. */
111: extern spawn(); /* Run a command in a subjob. */
112: extern quickexit(); /* low keystroke style exit. */
113: extern gotoline(); /* goto line given as arg */
114: extern gotofline(); /* goto line in file. */
115: extern setfold(); /* set case-fold on search flag */
116: extern autoind(); /* toggle autoindent flag */
117: /* Also ALT F10 */
118: extern nexterr(); /* Seek the next error */
119: extern preverr(); /* Seek the previous error */
120: extern bracketsearch(); /* seek matching bracket char */
121: extern bracketsw(); /* toggle bracket mode */
122: extern lookupword(); /* Lookup a word... */
123: /* Also F1 */
124: extern promptlook(); /* Prompt for a word to look up */
125: extern zaphelp(); /* Zap help window */
126: extern hlpindex(); /* Help index generator */
127: extern zapwind(); /* Zap current window */
128:
129: FUNTAB funtab[] = {
130: ctrlg, /* 0 */
131: quit, /* 1 */
132: ctlxlp, /* 2 */
133: ctlxrp, /* 3 */
134: ctlxe, /* 4 */
135: fileread, /* 5 */
136: filevisit, /* 6 */
137: filewrite, /* 7 */
138: filesave, /* 8 */
139: filename, /* 9 */
140: gotobol, /* 10 */
141: forwchar, /* 11 */
142: gotoeol, /* 12 */
143: backchar, /* 13 */
144: forwline, /* 14 */
145: backline, /* 15 */
146: forwpage, /* 16 */
147: backpage, /* 17 */
148: gotobob, /* 18 */
149: gotoeob, /* 19 */
150: setfillcol, /* 20 */
151: fillregion, /* 21 */
152: setmark, /* 22 */
153: swapmark, /* 23 */
154: forwsearch, /* 24 */
155: forwisearch, /* 25 */
156: backisearch, /* 26 */
157: queryrepl, /* 27 */
158: searchagain, /* 28 */
159: backsearch, /* 29 */
160: showcpos, /* 30 */
161: nextwind, /* 31 */
162: prevwind, /* 32 */
163: onlywind, /* 33 */
164: splitwind, /* 34 */
165: mvdnwind, /* 35 */
166: mvupwind, /* 36 */
167: enlargewind, /* 37 */
168: shrinkwind, /* 38 */
169: listbuffers, /* 39 */
170: usebuffer, /* 40 */
171: killbuffer, /* 41 */
172: reposition, /* 42 */
173: refresh, /* 43 */
174: twiddle, /* 44 */
175: tab, /* 45 */
176: newline, /* 46 */
177: indent, /* 47 */
178: openline, /* 48 */
179: deblank, /* 49 */
180: quote, /* 50 */
181: quoteval, /* 51 */
182: backword, /* 52 */
183: forwword, /* 53 */
184: forwdel, /* 54 */
185: backdel, /* 55 */
186: kill, /* 56 */
187: yank, /* 57 */
188: loadBinds, /* 58 */
189: nameMac, /* 59 */
190: initMac, /* 60 */
191: setPrefix, /* 61 */
192: bindFun, /* 62 */
193: storBinds, /* 63 */
194: upperword, /* 64 */
195: lowerword, /* 65 */
196: upperregion, /* 66 */
197: lowerregion, /* 67 */
198: capword, /* 68 */
199: delfword, /* 69 */
200: delbword, /* 70 */
201: killregion, /* 71 */
202: copyregion, /* 72 */
203: spawncli, /* 73 */
204: spawn, /* 74 */
205: quickexit, /* 75 */
206: gotoline, /* 76 */
207: gotofline, /* 77 */
208: setfold, /* 78 */
209: autoind, /* 79 */
210: nexterr, /* 80 */
211: preverr, /* 81 */
212: bracketsearch, /* 82 */
213: bracketsw, /* 83 */
214: lookupword, /* 84 */
215: promptlook, /* 85 */
216: zaphelp, /* 86 */
217: hlpindex, /* 87 */
218: zapwind, /* 88 */
219: };
220: KEYTAB keytab[] = {
221: { CTRL|'H', 55, 65 }, /* backdel 0 */
222: { CTRL|'I', 45, 78 }, /* tab 1 */
223: { CTRL|'J', 47, 79 }, /* indent 2 */
224: { CTRL|'K', 56, 44 }, /* kill 3 */
225: { CTRL|'L', 43, 80 }, /* refresh 4 */
226: { CTRL|'M', 46, 46 }, /* newline 5 */
227: { CTRL|'N', 14, 45 }, /* forwline 6 */
228: { CTRL|'O', 48, 47 }, /* openline 7 */
229: { CTRL|'P', 15, 58 }, /* backline 8 */
230: { CTRL|'Q', 50, 48 }, /* quote 9 */
231: { CTRL|'R', 26, 49 }, /* backisearch 10 */
232: { CTRL|'S', 25, -1 }, /* forwisearch 11 */
233: { CTRL|'T', 44, 50 }, /* twiddle 12 */
234: { PFX1|CTRL|'V', 6, -1 }, /* filevisit 13 */
235: { CTRL|'V', 16, 51 }, /* forwpage 14 */
236: { CTRL|'W', 71, 52 }, /* killregion 15 */
237: { META|'%', 27, -1 }, /* queryrepl 16 */
238: { CTRL|'Y', 57, 53 }, /* yank 17 */
239: { CTRL|'Z', 75, 54 }, /* quickexit 18 */
240: { PFX1|'=', 30, 87 }, /* showcpos 19 */
241: { PFX1|'>', 80, 70 }, /* nexterr 20 */
242: { PFX1|'?', 85, 89 }, /* promptlook 21 */
243: { -1, 0, -1}, /* hole in table */
244: { META|'U', 64, -1 }, /* upperword 23 */
245: { PFX1|'B', 40, 90 }, /* usebuffer 24 */
246: { META|'.', 22, 91 }, /* setmark 25 */
247: { META|'/', 28, -1 }, /* searchagain 26 */
248: { PFX1|'E', 4, -1 }, /* ctlxe 27 */
249: { PFX1|'F', 20, 74 }, /* setfillcol 28 */
250: { PFX1|'G', 76, 75 }, /* gotoline 29 */
251: { PFX1|'H', 21, 71 }, /* fillregion 30 */
252: { PFX1|'I', 60, -1 }, /* initMac 31 */
253: { PFX1|'!', 74, -1 }, /* spawn 32 */
254: { CTRL|'@', 22, 59 }, /* setmark 33 */
255: { CTRL|'A', 10, 41 }, /* gotobol 34 */
256: { CTRL|'B', 13, 42 }, /* backchar 35 */
257: { CTRL|'C', 73, 62 }, /* spawncli 36 */
258: { CTRL|'D', 54, -1 }, /* forwdel 37 */
259: { CTRL|'E', 12, 43 }, /* gotoeol 38 */
260: { CTRL|'F', 11, 55 }, /* forwchar 39 */
261: { CTRL|'G', 0, 56 }, /* ctrlg 40 */
262: { PFX1|CTRL|'B', 39, 60 }, /* listbuffers 41 */
263: { PFX1|CTRL|'C', 1, 61 }, /* quit 42 */
264: { PFX1|CTRL|'F', 9, 63 }, /* filename 43 */
265: { PFX1|CTRL|'L', 67, -1 }, /* lowerregion 44 */
266: { PFX1|CTRL|'O', 49, 82 }, /* deblank 45 */
267: { PFX1|CTRL|'N', 35, 66 }, /* mvdnwind 46 */
268: { PFX1|CTRL|'P', 36, 57 }, /* mvupwind 47 */
269: { PFX1|CTRL|'R', 5, 84 }, /* fileread 48 */
270: { PFX1|CTRL|'S', 8, 69 }, /* filesave 49 */
271: { PFX1|CTRL|'U', 66, 73 }, /* upperregion 50 */
272: { PFX1|CTRL|'W', 7, 86 }, /* filewrite 51 */
273: { PFX1|CTRL|'X', 23, -1 }, /* swapmark 52 */
274: { PFX1|CTRL|'Z', 38, -1 }, /* shrinkwind 53 */
275: { PFX1|'<', 81, -1 }, /* preverr 54 */
276: { PFX1|'(', 2, 77 }, /* ctlxlp 55 */
277: { PFX1|')', 3, 64 }, /* ctlxrp 56 */
278: { PFX1|'1', 33, 67 }, /* onlywind 57 */
279: { PFX1|'2', 34, 68 }, /* splitwind 58 */
280: { PFX1|'K', 41, -1 }, /* killbuffer 59 */
281: { PFX1|'L', 58, -1 }, /* loadBinds 60 */
282: { PFX1|'M', 59, -1 }, /* nameMac 61 */
283: { PFX1|'N', 31, -1 }, /* nextwind 62 */
284: { PFX1|'P', 32, -1 }, /* prevwind 63 */
285: { PFX1|'R', 62, -1 }, /* bindFun 64 */
286: { PFX1|'S', 63, 72 }, /* storBinds 65 */
287: { PFX1|'X', 61, 81 }, /* setPrefix 66 */
288: { PFX1|'Z', 37, -1 }, /* enlargewind 67 */
289: { PFX1|'[', 82, 83 }, /* bracketsearch 68 */
290: { PFX1|']', 83, -1 }, /* bracketsw 69 */
291: { META|CTRL|'H', 70, 88 }, /* delbword 70 */
292: { META|CTRL|'R', 27, -1 }, /* queryrepl 71 */
293: { META|CTRL|']', 87, 76 }, /* hlpindex 72 */
294: { META|'!', 42, 85 }, /* reposition 73 */
295: { META|'1', 88, -1 }, /* zapwind 74 */
296: { META|'2', 86, -1 }, /* zaphelp 75 */
297: { META|'>', 19, -1 }, /* gotoeob 76 */
298: { META|'<', 18, -1 }, /* gotobob 77 */
299: { META|'?', 84, -1 }, /* lookupword 78 */
300: { META|'@', 78, -1 }, /* setfold 79 */
301: { META|'B', 52, 93 }, /* backword 80 */
302: { META|'C', 68, -1 }, /* capword 81 */
303: { META|'D', 69, -1 }, /* delfword 82 */
304: { META|'F', 53, -1 }, /* forwword 83 */
305: { META|'G', 77, -1 }, /* gotofline 84 */
306: { META|'J', 79, -1 }, /* autoind 85 */
307: { META|'L', 65, -1 }, /* lowerword 86 */
308: { META|'Q', 51, -1 }, /* quoteval 87 */
309: { META|'R', 29, -1 }, /* backsearch 88 */
310: { META|'S', 24, -1 }, /* forwsearch 89 */
311: { META|'V', 17, 92 }, /* backpage 90 */
312: { META|'W', 72, -1 }, /* copyregion 91 */
313: { META|0x7F, 70, -1 }, /* delbword 92 */
314: { 0x7F, 55, -1 }, /* backdel 93 */
315: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.