![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ed.h 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 ed.h CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / emacs |
1.1 root 1: /*
2: * This file is the general header file for all parts of the MicroEMACS
3: * display editor. It contains definitions used by everyone, and it
4: * contains the stuff you have to edit to create a version of the editor for
5: * a specific operating system and terminal.
6: */
7: #ifdef COHERENT
8: #define V7 1 /* V7 UN*X or Coherent */
9: #define VMS 0 /* VAX/VMS */
10: #define CPM 0 /* CP/M-86 */
11: #define MSDOS 0 /* MS-DOS */
12: #define GEM 0 /* GEMDOS */
13: #define PROMPT " Coherent MicroEMACS -- "
14: #define ANSI 0
15: #define VT52 0 /* VT52 terminal (Zenith). */
16: #define VT100 1 /* Handle VT100 style keypad. */
17: #define LK201 0 /* Handle LK201 style keypad. */
18: #define RAINBOW 0 /* Use Rainbow fast video. */
19: #define TERMCAP 1 /* Use TERMCAP */
20: #define NATIVE 0 /* Native ATARI ST screen */
21: #define EXKEYS 0 /* Extended keys */
22: #endif
23:
24: #ifdef GEMDOS
25: #define V7 0 /* V7 UN*X or Coherent */
26: #define VMS 0 /* VAX/VMS */
27: #define CPM 0 /* CP/M-86 */
28: #define GEM 1 /* GEMDOS */
29: #define MSDOS 0 /* MS-DOS */
30: #define UPPERNM 0 /* if 0 names in all lower case */
31: #define PROMPT " ST MicroEMACS 1.8 -- "
32: #define ANSI 0
33: #define VT52 0 /* VT52 terminal (Zenith). */
34: #define VT100 0 /* Handle VT100 style keypad. */
35: #define LK201 0 /* Handle LK201 style keypad. */
36: #define RAINBOW 0 /* Use Rainbow fast video. */
37: #define TERMCAP 0 /* Use TERMCAP */
38: #define NATIVE 1 /* Native ATARI ST screen */
39: #define EXKEYS 1 /* Extended keys */
40: #endif
41:
42: #if MSDOS
43: #define V7 0 /* V7 UN*X or Coherent */
44: #define VMS 0 /* VAX/VMS */
45: #define CPM 0 /* CP/M-86 */
46: #define GEM 0 /* GEMDOS */
47: #define PROMPT " DOS MicroEMACS V4.0.16 -- "
48: #ifndef IBM
49: #define ANSI 1 /* Use ANSI.SYS */
50: #else
51: #define ANSI 0 /* don't use ANSI.SYS */
52: #endif
53: #define VT52 0 /* VT52 terminal (Zenith). */
54: #define VT100 0 /* Handle VT100 style keypad. */
55: #define LK201 0 /* Handle LK201 style keypad. */
56: #define RAINBOW 0 /* Use Rainbow fast video. */
57: #define TERMCAP 0 /* Use TERMCAP */
58: #define NATIVE 0 /* Native ATARI ST screen */
59: #define EXKEYS 1 /* Extended keys */
60: #endif
61:
62: #ifndef PROMPT
63: #define PROMPT " MicroEMACS -- "
64: #endif
65:
66: /*
67: * NORMAL_CHARS will be 1 when the ctype.h problems are solved
68: * for internationalization or when international characters are
69: * not required.
70: */
71: #define NORMAL_CHARS 0
72:
73: #define CVMVAS 1 /* C-V, M-V arg. in screens. */
74: #define LIBHELP 1 /* Use help stuff */
75:
76: #define MAXMAC 10 /* Max # of macros bound to keybindings */
77: #define MAXREB 50 /* Size of rebind table */
78: #define HASHP 41 /* Prime for hashing main table */
79: #define BINDID ((MAXREB << 8) ^ (HASHP << 4) ^ MAXMAC)
80: #define NCFILES 5 /* Max # of files on command line */
81: #define NFILEN 80 /* # of bytes, file name */
82: #define NBUFN 16 /* # of bytes, buffer name */
83: #define NLINE 256 /* # of bytes, line */
84: #define NKBDM 256 /* # of strokes, keyboard macro */
85: #define NPAT 80 /* # of bytes, pattern */
86: #define HUGE 1000 /* Huge number */
87: #define NSRCH 128 /* undoable search command len */
88: #define ERRLINES 3 /* error window lines displayed */
89:
90: #define AGRAVE 0x60 /* M- prefix, Grave (LK201) */
91: #define METACH 0x1B /* M- prefix, Control-[, ESC */
92: #define CTMECH 0x1C /* C-M- prefix, Control-\ */
93: #define EXITCH 0x1D /* Exit level, Control-] */
94: #define CTRLCH 0x1E /* C- prefix, Control-^ */
95: #define HELPCH 0x1F /* Help key, Control-_ */
96:
97: #define FALSE 0 /* False, no, bad, etc. */
98: #define TRUE 1 /* True, yes, good, etc. */
99: #define ABORT 2 /* Death, ^G, abort, etc. */
100:
101: #define FIOSUC 0 /* File I/O, success. */
102: #define FIOFNF 1 /* File I/O, file not found. */
103: #define FIOEOF 2 /* File I/O, end of file. */
104: #define FIOERR 3 /* File I/O, error. */
105:
106: #define CFCPCN 0x0001 /* Last command was C-P, C-N */
107: #define CFKILL 0x0002 /* Last command was a kill */
108:
109:
110: #if EXKEYS
111: /*
112: * The following codes should be bound to the function keys in the system
113: * specific keyboard handling (mostly in termio.c).
114: *
115: * When used in the key table in main.c, the same functions should be
116: * available through other key sequences.
117: */
118: #define FN0 0x80 /* Function key 0 */
119: #define FN1 0x81 /* Function key 1 */
120: #define FN2 0x82 /* Function key 2 */
121: #define FN3 0x83 /* Function key 3 */
122: #define FN4 0x84 /* Function key 4 */
123: #define FN5 0x85 /* Function key 5 */
124: #define FN6 0x86 /* Function key 6 */
125: #define FN7 0x87 /* Function key 7 */
126: #define FN8 0x88 /* Function key 8 */
127: #define FN9 0x89 /* Function key 9 */
128: #define FNA 0x8A /* Function key 10 */
129: #define FNB 0x8B /* Function key 11 */
130: #define FNC 0x8C /* Function key 12 */
131: #define FND 0x8D /* Function key 13 */
132: #define FNE 0x8E /* Function key 14 */
133: #define FNF 0x8F /* Function key 15 */
134: #define FN10 0x90 /* Function key 16 */
135: #define FN11 0x91 /* Function key 17 */
136: #define FN12 0x92 /* Function key 18 */
137: #define FN13 0x93 /* Function key 19 */
138: #define FN14 0x94 /* Function key 20 */
139: #define FN15 0x95 /* Function key 21 */
140: #define FN16 0x96 /* Function key 22 */
141: #define FN17 0x97 /* Function key 23 */
142: #define FN18 0x98 /* Function key 24 */
143: #define FN19 0x99 /* Function key 25 */
144: #define FN1A 0x9A /* Function key 26 */
145: #define FN1B 0x9B /* Function key 27 */
146: #define FN1C 0x9C /* Function key 28 */
147: #define FN1D 0x9D /* Function key 29 */
148: #define FN1E 0x9E /* Function key 30 */
149: #define FN1F 0x9F /* Function key 31 */
150: #endif
151:
152: #define CTRL 0x0100 /* Control flag, or'ed in */
153: #define META 0x0200 /* Meta flag, or'ed in */
154: #define PFX1 0x0400 /* prefix 1 flag, or'ed in */
155: #define PFX2 0x0800 /* prefix 2 flag, or'ed in */
156: #define PFX3 0x1000 /* prefix 3 flag, or'ed in */
157: #define OBND 0x2000 /* original binding only */
158:
159: typedef unsigned char uchar;
160:
161: /*
162: * Key bindings point into a function table which
163: * contains function names.
164: */
165: typedef struct KEYTAB KEYTAB;
166: struct KEYTAB {
167: short k_code; /* Key code */
168: char k_fun; /* Function number */
169: char k_synonym; /* Next at this hash value */
170: };
171:
172: typedef struct FUNTAB FUNTAB;
173: struct FUNTAB {
174: int (*f_fp)(); /* Routine to handle it */
175: };
176:
177: /*
178: * flexable bindings data.
179: */
180: typedef struct BIND {
181: KEYTAB table[MAXREB]; /* overlay keybind table */
182: uchar *macs[MAXMAC + 2]; /* list of kbd macros */
183: short maclen[MAXMAC + 2]; /* lengths of kbd macros */
184: short pfx1; /* prefix 1 char */
185: short pfx2; /* prefix 2 char */
186: short pfx3; /* prefix 3 char */
187: short repeat; /* repeat argument char */
188: int ffold; /* Fold Flag */
189: int fillcol; /* Current fill column */
190: int bracket; /* Bracket Mode switch */
191: int tabsiz; /* tabsize */
192: int tabsize; /* Tab size (0: use real tabs) */
193: int autoindent; /* Autoindent */
194: int dispmode; /* display char < ' ' directly */
195: } BIND;
196: extern BIND bind;
197:
198: /*
199: * There is a window structure allocated for every active display window.
200: * The windows are kept in a big list, in top to bottom screen order, with
201: * the listhead at "wheadp". Each window contains its own values of dot and
202: * mark. The flag field contains some bits that are set by commands to guide
203: * redisplay; although this is a bit of a compromise in terms of decoupling,
204: * the full blown redisplay is just too expensive to run for every input
205: * character.
206: */
207: typedef struct WINDOW {
208: struct WINDOW *w_wndp; /* Next window */
209: struct BUFFER *w_bufp; /* Buffer displayed in window */
210: struct LINE *w_linep; /* Top line in the window */
211: struct LINE *w_dotp; /* Line containing "." */
212: short w_doto; /* Byte offset for "." */
213: struct LINE *w_markp; /* Line containing "mark" */
214: short w_marko; /* Byte offset for "mark" */
215: char w_toprow; /* Origin 0 top row of window */
216: char w_ntrows; /* # of rows of text in window */
217: char w_force; /* If NZ, forcing row. */
218: char w_flag; /* Flags. */
219: } WINDOW;
220:
221: #define WFFORCE 0x01 /* Window needs forced reframe */
222: #define WFMOVE 0x02 /* Movement from line to line */
223: #define WFEDIT 0x04 /* Editing within a line */
224: #define WFHARD 0x08 /* Better to a full display */
225: #define WFMODE 0x10 /* Update mode line. */
226:
227: /*
228: * Text is kept in buffers. A buffer header, described
229: * below, exists for every buffer in the system. The buffers are
230: * kept in a big list, so that commands that search for a buffer by
231: * name can find the buffer header. There is a safe store for the
232: * dot and mark in the header, but this is only valid if the buffer
233: * is not being displayed (that is, if "b_nwnd" is 0). The text for
234: * the buffer is kept in a circularly linked list of lines, with
235: * a pointer to the header line in "b_linep".
236: */
237: typedef struct BUFFER {
238: struct BUFFER *b_bufp; /* Link to next BUFFER */
239: struct LINE *b_dotp; /* Link to "." LINE structure */
240: short b_doto; /* Offset of "." in above LINE */
241: struct LINE *b_markp; /* The same as the above two, */
242: short b_marko; /* but for the "mark" */
243: struct LINE *b_linep; /* Link to the header LINE */
244: char b_nwnd; /* Count of windows on buffer */
245: char b_flag; /* Flags */
246: uchar b_fname[NFILEN]; /* File name */
247: uchar b_bname[NBUFN]; /* Buffer name */
248: } BUFFER;
249:
250: #define BFTEMP 0x01 /* Internal temporary buffer */
251: #define BFCHG 0x02 /* Changed since last write */
252: #define BFERROR 0x04 /* Error file buffer */
253: #define BFNOWRT 0x08 /* Don't write this buffer */
254: #define BFBACKP 0x10 /* Rename file before write */
255: #define BFWRITE 0x20 /* Written since read */
256: #define BFTRUNC 0x40 /* File truncated */
257: #define BFHELP 0x80 /* Buffer is a help buffer */
258:
259: /*
260: * The starting position of a
261: * region, and the size of the region in
262: * characters, is kept in a region structure.
263: * Used by the region commands.
264: */
265: typedef struct {
266: struct LINE *r_linep; /* Origin LINE address. */
267: short r_offset; /* Origin LINE offset. */
268: short r_size; /* Length in characters. */
269: } REGION;
270:
271: /*
272: * All text is kept in circularly linked
273: * lists of "LINE" structures. These begin at the
274: * header line (which is the blank line beyond the
275: * end of the buffer). This line is pointed to by
276: * the "BUFFER". Each line contains a the number of
277: * bytes in the line (the "used" size), the size
278: * of the text array, and the text. The end of line
279: * is not stored as a byte; its implied. Future
280: * additions will include update hints, and a
281: * list of marks into the line.
282: */
283: typedef struct LINE {
284: struct LINE *l_fp; /* Link to the next line */
285: struct LINE *l_bp; /* Link to the previous line */
286: short l_size; /* Allocated size */
287: short l_used; /* Used size */
288: long l_lnumber; /* Line number in original file */
289: uchar l_text[]; /* A bunch of characters. */
290: } LINE;
291:
292: #define lforw(lp) ((lp)->l_fp)
293: #define lback(lp) ((lp)->l_bp)
294: #define lgetc(lp, n) ((lp)->l_text[(n)]&0xFF)
295: #define lputc(lp, n, c) ((lp)->l_text[(n)]=(c))
296: #define llength(lp) ((lp)->l_used)
297: #define l_number(lp) ((lp)->l_lnumber)
298: /*
299: * The editor communicates with the display
300: * using a high level interface. A "TERM" structure
301: * holds useful variables, and indirect pointers to
302: * routines that do useful operations. The low level get
303: * and put routines are here too. This lets a terminal,
304: * in addition to having non standard commands, have
305: * funny get and put character code too. The calls
306: * might get changed to "termp->t_field" style in
307: * the future, to make it possible to run more than
308: * one terminal type.
309: */
310: typedef struct {
311: short t_nrow; /* Number of rows. */
312: short t_ncol; /* Number of columns. */
313: int (*t_open)(); /* Open terminal at the start. */
314: int (*t_close)(); /* Close terminal at end. */
315: int (*t_getchar)(); /* Get character from keyboard. */
316: int (*t_putchar)(); /* Put character to display. */
317: int (*t_flush)(); /* Flush output buffers. */
318: int (*t_move)(); /* Move the cursor, origin 0. */
319: int (*t_eeol)(); /* Erase to end of line. */
320: int (*t_eeop)(); /* Clear screen */
321: int (*t_beep)(); /* Beep. */
322: int (*t_stand)(); /* Standout mode. */
323: } TERM;
324:
325: /* Shorthand for terminal routines... */
326: #define tputc(X) (*term.t_putchar)(X) /* Put a character */
327: #define tgetc (*term.t_getchar) /* Get a character */
328: #define tbeep (*term.t_beep) /* Beep the bell */
329: #define tstand(X) (*term.t_stand)(X) /* Standout mode */
330: #define topen (*term.t_open) /* Open the terminal */
331: #define tclose (*term.t_close) /* Close the terminal */
332: #define tmove(X,Y) (*term.t_move)((X),(Y)) /* Move cursor */
333: #define teeol (*term.t_eeol) /* Erase to end of line */
334: #define teeop (*term.t_eeop) /* Clear screen */
335: #define tflush (*term.t_flush) /* Flush output buff */
336:
337: /* Command line switch flags -- set in runswitch */
338: #define CF_ERROR (0x0001) /* Error edit switch specified */
339: #define CF_WARN (0x0004) /* Warn user before overwrite */
340: #define CF_GRABMEM (0x0008) /* GEM grab memory */
341: #define CF_VLONG (0x2000) /* Very long screen flag */
342: #define CF_LONGSCR (0x4000) /* Long screen flag */
343: #define CF_DEBUG (0x8000) /* Debugging flag */
344:
345: #define taber(c) ((c) += ((bind.tabsiz - (c % bind.tabsiz)) - 1))
346:
347: extern unsigned int runswitch; /* Switch flags */
348:
349: extern int currow; /* Cursor row */
350: extern int curcol; /* Cursor column */
351: extern int thisflag; /* Flags, this command */
352: extern int lastflag; /* Flags, last command */
353: extern int curgoal; /* Goal for C-P, C-N */
354: extern int mpresf; /* Stuff in message line */
355: extern int sgarbf; /* State of screen unknown */
356: extern WINDOW *curwp; /* Current window */
357: extern BUFFER *curbp; /* Current buffer */
358: extern WINDOW *wheadp; /* Head of list of windows */
359: extern BUFFER *bheadp; /* Head of list of buffers */
360: extern BUFFER *blistp; /* Buffer for C-X C-B */
361: #if LIBHELP
362: extern BUFFER *helpbp; /* Buffer for help */
363: #endif
364: extern BUFFER *errbp; /* Error file buffer */
365: extern short *kbdm; /* Holds kayboard macro data */
366: extern short *kbdmip; /* Input pointer for above */
367: extern short *kbdmop; /* Output pointer for above */
368: extern uchar pat[]; /* Search pattern */
369: extern TERM term; /* Terminal information. */
370: extern uchar *ufiles[]; /* command-line specified files */
371: extern uchar errfile[]; /* error file name */
372: #if LIBHELP
373: extern uchar hfname[]; /* Help file name buffer */
374: extern uchar hiname[]; /* Help index name buffer */
375: extern uchar *helpfile; /* Help file name */
376: extern uchar *helpindex; /* Help index file name */
377: #endif
378: extern BUFFER *bfind(); /* Lookup a buffer by name */
379: extern WINDOW *wpopup(); /* Pop up window creation */
380: extern LINE *lalloc(); /* Allocate a line */
381:
382: extern KEYTAB keytab[];
383: extern FUNTAB funtab[];
384:
385: /* A major optimization for native GEMDOS situations... */
386: #if GEM && NATIVE
387: #undef tputc
388: extern long bios();
389: #define tputc(X) bios(3, 2, (X)) /* Faster output */
390: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.