![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to emacs_main.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / cmd / emacs|
Return to emacs_main.h CVS log | Up to [Research Unix] / researchv9 / cmd / emacs |
1.1 root 1: /* declarations for emacs editor */
2: /* EMACS_MODES: c !fill */
3:
4: /* interpreter definitions */
5:
6: /* There are 3 arrays that take part in the implementation of the
7: * emacs command interpreter. The "runit" array is a list of
8: * pointers to C functions that implement emacs commands. It is
9: * ordered arbitrarily, not related to the command sequence. The
10: * "doit" array is an array of NCHARS byte codes. Each byte code
11: * specifies the function bound to the corresponding byte code
12: * either as an internal interpreter function (codes < NIFUNC) or as
13: * one of the functions in the runit array. The codes in this
14: * array are fixed, and implement the base level command bindings
15: * for emacs. The codes in this array are also used to locate the
16: * help messages. Each code maps to a corresponding help message. */
17:
18: /* The third array is what allows the user to re-bind key
19: * definitions and bind keys to macros. It is the "map_it" array.
20: * This is initialized to the same as doit. Each entry of this
21: * array can either be a built in command (C function or interpreter
22: * command), if less than NCHARS, or a macro pointer, if > NCHARS. */
23:
24: /* dispatch table */
25:
26: extern upl();
27: extern downl();
28: extern gquit();
29: extern qrep();
30: extern eabort();
31: extern mfwrd();
32: extern kfwrd();
33: extern mbwrd();
34: extern kbwrd();
35: extern top();
36: extern bot();
37: extern insertc();
38: extern tabc();
39: extern rquote();
40: extern mquote();
41: extern refresh();
42: extern beep();
43: extern fisrch();
44: extern risrch();
45: extern begin();
46: extern endl();
47: extern openl();
48: extern nl();
49: extern fdel();
50: extern bdel();
51: extern fred();
52: extern fright();
53: extern ekill();
54: extern mark();
55: extern nxtpage();
56: extern lstpage();
57: extern mkill();
58: extern yank();
59: extern reyank();
60: extern bux();
61: extern ux();
62: extern forw();
63: extern back();
64: extern capnxt();
65: extern lownxt();
66: extern capwrd();
67: extern afsep();
68: extern xpose();
69: extern mapch();
70: extern help();
71: extern ttype();
72: extern undo();
73: extern pickup();
74: extern absgoto();
75: extern go_xy();
76: extern cment();
77: extern cbrak();
78: extern modisp();
79: extern ssent();
80: extern esent();
81: extern stats();
82: extern uline();
83: extern mailit();
84: extern toppage();
85: extern rsrch();
86: extern rqrep();
87: extern numchar();
88: extern wallc();
89: extern filler();
90: extern litchr();
91: extern macex();
92: extern unmod();
93: extern mbegin();
94: extern setvar();
95: extern envget();
96: extern stopjob();
97: #ifdef PC
98: extern ctfile();
99: extern mapk();
100: #else
101: #define ctfile beep
102: #define mapk beep
103: #endif
104:
105: /* control -x commands */
106:
107: extern fright();
108: extern fred();
109: extern fsave();
110: extern exch();
111: extern gquit();
112: extern quit();
113: extern chmode();
114: extern cwd();
115: extern edbuf();
116: extern cpbuf();
117: extern rmbuf();
118: extern twind();
119: extern onewind();
120: extern owind();
121: extern inpsh();
122: extern bfsend();
123: extern buflng();
124: extern macro();
125: extern bfchr();
126: extern compar();
127: extern cond();
128: extern mcase();
129: extern iter();
130: extern recurse();
131: extern pbfname();
132: extern pfnname();
133: extern gparam();
134: extern gkarm();
135: extern glob();
136: extern kdup();
137: extern kflush();
138: extern kexch();
139: extern ldmac();
140: extern cmpst();
141: extern wgrow();
142: extern didle();
143: extern kapp();
144: extern rnbuf();
145: extern pvname();
146: extern xqt();
147: extern getsharg();
148: extern strtkbd();
149: extern endkbd();
150: extern exkbd();
151: extern setkey();
152: extern trce();
153: extern brkproc();
154: #ifdef COMPRESS
155: extern loadtbl();
156: #else
157: #define loadtbl beep
158: #endif
159:
160: #ifdef DIRED
161: extern dcdel();
162: extern ddel();
163: extern dundel();
164: extern dview();
165: #define DCDEL dcdel
166: #define DDEL ddel
167: #define DUNDEL dundel
168: #define DVIEW dview
169: #else
170: #define DCDEL beep
171: #define DDEL beep
172: #define DUNDEL beep
173: #define DVIEW beep
174: #endif
175:
176:
177:
178:
179: /* The run-it table */
180:
181:
182:
183: int (*runit[]) () = {
184: /* 9 */ insertc,begin, back, capnxt, fdel, endl, forw, beep,
185: /*17 */ tabc, afsep, nl, ekill, refresh,downl, openl, upl,
186: /*25 */ rquote, risrch, fisrch, xpose, nxtpage,mkill, yank, mbwrd,
187: /*33 */ capwrd, kfwrd, mfwrd, qrep, lstpage,eabort, kbwrd, top,
188: /*41 */ bot, gquit, fred, fsave, fright, exch, mark, help,
189: /*49 */ ux, bdel, reyank, ttype, bfsend, absgoto,cment, modisp,
190: /*57 */ chmode, ssent, esent, cpbuf, edbuf, rmbuf, onewind,owind,
191: /*65 */ twind,uline, bux, cwd, inpsh, mailit, toppage,rsrch,
192: /*73 */ rqrep, mquote, numchar,pickup, wallc, stats, cbrak, DDEL,
193: /*81 */ DCDEL, DUNDEL, DVIEW, filler, macro, compar, cond, litchr,
194: /*89 */ iter, gparam, mbegin, pbfname,pfnname,recurse,kdup, kflush,
195: /*97 */ kexch, ldmac, macex, cmpst, wgrow, didle, mcase, unmod,
196: /*105*/ bfchr, mapch, setvar, kapp, rnbuf, buflng, pvname, xqt,
197: /*113*/ getsharg,gkarm, envget, strtkbd,endkbd, exkbd, go_xy, lownxt,
198: /*121*/ trce, setkey, glob, undo, stopjob,brkproc,ctfile, mapk,
199: /*129*/ loadtbl,
200: };
201:
202:
203: /* Global interpreter bindings */
204:
205: unsigned char doit[NCHARS] = {
206:
207: 47, 10, 11, 12, 13, 14, 15, 16,
208: 50, 17, 19, 20, 21, 19, 22, 23,
209: 24, 25, 26, 27, 28, CCTLU, 29, 30,
210: CCTLX, 31, CEXIT, CMETA, 0, CMARG, CLRES, 0,
211: 18, 9, 9, 9, 9, 9, 9, 9,
212: 9, 9, 9, 9, 9, CMNUS, 18, 9,
213: CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB,
214: CNUMB, CNUMB, 9, 9, 9, 9, 9, 9,
215:
216: 9, 9, 9, 9, 9, 9, 9, 9,
217: 9, 9, 9, 9, 9, 9, 9, 9,
218: 9, 9, 9, 9, 9, 9, 9, 9,
219: 9, 9, 9, 9, 9, 9, 9, 9,
220: 9, 9, 9, 9, 9, 9, 9, 9,
221: 9, 9, 9, 9, 9, 9, 9, 9,
222: 9, 9, 9, 9, 9, 9, 9, 9,
223: 9, 9, 9, 9, 9, 79, 9, 50,
224:
225: /* META characters */
226:
227: 0, 0, 0, 0, 0, 0, 0, 0,
228: 39, 0, 0, 0, 71, 70, 0, 0,
229: 0, 88, 73, 72, 0, 0, 0, 0,
230: 112, 0, 125, 0, 0, 107, 0, 0,
231: 47, 49, 84, 0, 67, 0, 0, 0,
232: 0, 0, 0, 0, 0, CMNUS, 0, 55,
233: CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB, CNUMB,
234: CNUMB, CNUMB, 106, 0, 40, 0, 41, 48,
235:
236: 0, 0, 0, 0, 0, 115, 0, 0,
237: 0, 0, 0, 0, 0, 0, 0, 0,
238: 0, 0, 0, 0, 0, 0, 0, 0,
239: 0, 0, 0, 0, 75, 0, 0, 66,
240: 0, 58, 32, 33, 34, 59, 35, 54,
241: 0, 0, 0, 0, 120, 56, 0, 0,
242: #ifdef PC
243: 76, 74, 36, 78, 127, 124, 37, 77,
244: #else
245: 76, 74, 36, 78, 52, 124, 37, 77,
246: #endif
247: 99, 51, 38, 91, 0, CEXIT, 104, 39,
248:
249: /* Control - X characters */
250:
251: 0, 113, 60, 42, 68, 94, 61, 126,
252: 0, 69, 0, 62, 98, 57, 109, 64,
253: 0, 105, 43, 44, 53, 102, 111, 45,
254: 46, 0, 0, 0, 0, 0, 101, 0,
255: 0, 103, 0, 123, 0, 97, 100, 0,
256: 116, 117, 0, 108, 0, 96, 0, 0,
257: 0, 63, 65, 0, 0, 0, 0, 0,
258: #ifdef PC
259: 0, 0, 128, 0, 90, 110, 95, 0,
260: #else
261: 0, 0, 0, 0, 90, 110, 95, 0,
262: #endif
263:
264: 114, 0, 92, 0, 0, 118, 93, 0,
265: 0, 0, 0, 0, 129, 0, 0, 0,
266: 0, 0, 0, 0, 121, 0, 0, 0,
267: 0, 0, 0, 0, 0, 0, 89, 0,
268: 0, 0, 0, 0, 85, 0, 0, 119,
269: 0, 0, 0, 122, 0, 57, 0, 0,
270: 0, 0, 0, 0, 0, 0, 0, 0,
271: 0, 0, 0, 0, 87, 0, 86, 0,
272: };
273:
274: /* character help explanations */
275:
276: /* note -- the text of the help instructions is kept in helpstrings
277: * and helpfile in uncompiled and compiled format. make_help is the
278: * compiler for the helpstrings file. */
279:
280: #define HINSERT 9 /* index of self inserting chars */
281:
282: extern char hdate[];
283: int helfile = 0;
284: #define HELSIZE 128
285:
286: /* ****** NOTE -- it is no longer necessary to change the pathnames. */
287: /* EMACS will put its error messages, help messages, and statistics in */
288: /* the directory where the sources are if you don't modify these definitions */
289:
290:
291: #ifdef PC
292: #define SDIR ""
293: #endif
294: char *emd_source = SDIR;
295:
296:
297: #ifdef CMON
298:
299: int cmcnt[NCHARS] = {0}; /* command counters */
300: #endif
301:
302: #ifdef DIRED
303: char dired_args[16] = {'-','a','l',0,0,0,0,0,0,0,0,0,0,0,0,0};
304: #endif
305: long oclock = 0;
306:
307: int numarg; /* numeric argument flag */
308: int etrace; /* Trace flag */
309:
310: char *myname;
311: extern char version[];
312:
313: char **sharg; /* shell argument list */
314: int nsharg; /* argument counter */
315: char *svname; /* saved myname for long return */
316: #ifdef PC
317: int retjmp[3]; /* */
318: #else
319: jmp_buf retjmp; /* return environment for break */
320: extern char *ctime();
321: #endif
322:
323: extern char *getenv();
324: extern int junked;
325: extern int timemd;
326: extern char *fname();
327: extern char casem[];
328: extern eabort();
329: extern crash();
330: extern char *mstrcpy();
331: extern char *nscan();
332: extern int NSCHAR;
333: extern int SAVEMD;
334: extern int SAVECHAR;
335: extern int VERBOSE;
336: extern int BUFEND;
337: extern int TABMD;
338: extern char *endput;
339: extern int curbf;
340: extern int READONLY;
341: #ifdef DIRED
342: #define diron dirbuf[curbf]
343: extern char dirbuf[];
344: extern dclean();
345: extern ddel();
346: extern dundel();
347: extern dview();
348: #endif
349: #ifdef CRYPTO
350: extern long bufkey;
351: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.