![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to main.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 / elvis|
Return to main.c CVS log | Up to [MW Coherent from dump] / coherent / d / usr / bin / elvis |
1.1 root 1: /* main.c */
2:
3: /* Author:
4: * Steve Kirkendall
5: * 16820 SW Tallac Way
6: * Beaverton, OR 97006
7: * [email protected], or ...uunet!tektronix!psueea!jove!kirkenda
8: */
9:
10:
11: /* This file contains the main() function of vi */
12:
13: #include "config.h"
14: #include <signal.h>
15: #include <setjmp.h>
16: #include "vi.h"
17:
18: extern trapint(); /* defined below */
19: extern char *getenv();
20: jmp_buf jmpenv;
21:
22: #ifndef NO_DIGRAPH
23: static init_digraphs();
24: #endif
25:
26: /*---------------------------------------------------------------------*/
27:
28: void main(argc, argv)
29: int argc;
30: char *argv[];
31: {
32: int i;
33: char *cmd = (char *)0;
34: char *tag = (char *)0;
35: char *err = (char *)0;
36: char *str;
37: #if MSDOS || TOS
38: char firstarg[256];
39: #else
40: char *firstarg;
41: #endif
42:
43: /* set mode to MODE_VI or MODE_EX depending on program name */
44: switch (argv[0][strlen(argv[0]) - 1])
45: {
46: case 'x': /* "ex" */
47: mode = MODE_EX;
48: break;
49:
50: case 'w': /* "view" */
51: mode = MODE_VI;
52: *o_readonly = TRUE;
53: break;
54: #ifndef NO_EXTENSIONS
55: case 't': /* "edit" or "input" */
56: mode = MODE_VI;
57: *o_inputmode = TRUE;
58: break;
59: #endif
60: default: /* "vi" or "elvis" */
61: mode = MODE_VI;
62: }
63:
64: #ifndef DEBUG
65: # ifdef SIGQUIT
66: /* normally, we ignore SIGQUIT. SIGINT is trapped later */
67: signal(SIGQUIT, SIG_IGN);
68: # endif
69: #endif
70:
71: /* temporarily ignore SIGINT */
72: signal(SIGINT, SIG_IGN);
73:
74: /* start curses */
75: initscr();
76: cbreak();
77: noecho();
78: scrollok(stdscr, TRUE);
79:
80: /* initialize the options */
81: initopts();
82:
83: /* map the arrow keys. The KU,KD,KL,and KR variables correspond to
84: * the :ku=: (etc.) termcap capabilities. The variables are defined
85: * as part of the curses package.
86: */
87: if (has_KU) mapkey(has_KU, "k", WHEN_VICMD|WHEN_INMV, "<Up>");
88: if (has_KD) mapkey(has_KD, "j", WHEN_VICMD|WHEN_INMV, "<Down>");
89: if (has_KL) mapkey(has_KL, "h", WHEN_VICMD|WHEN_INMV, "<Left>");
90: if (has_KR) mapkey(has_KR, "l", WHEN_VICMD|WHEN_INMV, "<Right>");
91: if (has_HM) mapkey(has_HM, "^", WHEN_VICMD|WHEN_INMV, "<Home>");
92: if (has_EN) mapkey(has_EN, "$", WHEN_VICMD|WHEN_INMV, "<End>");
93: if (has_PU) mapkey(has_PU, "\002", WHEN_VICMD|WHEN_INMV, "<PgUp>");
94: if (has_PD) mapkey(has_PD, "\006", WHEN_VICMD|WHEN_INMV, "<PgDn>");
95: #if MSDOS
96: if (*o_pcbios)
97: {
98: mapkey("#R", "i", WHEN_VICMD|WHEN_INMV, "<Insrt>");
99: mapkey("#S", "x", WHEN_VICMD|WHEN_INMV, "<Del>");
100: mapkey("#s", "B", WHEN_VICMD|WHEN_INMV, "^<left>");
101: mapkey("#t", "W", WHEN_VICMD|WHEN_INMV, "^<right>");
102: }
103: #else
104: if (ERASEKEY != '\177')
105: {
106: mapkey("\177", "x", WHEN_VICMD|WHEN_INMV, "<Del>");
107: }
108: #endif
109:
110: #ifndef NO_DIGRAPH
111: init_digraphs();
112: #endif /* NO_DIGRAPH */
113:
114: /* process any flags */
115: for (i = 1; i < argc && *argv[i] == '-'; i++)
116: {
117: switch (argv[i][1])
118: {
119: case 'R': /* readonly */
120: *o_readonly = TRUE;
121: break;
122:
123: case 'r': /* recover */
124: msg("Use the `virec` program to recover lost files");
125: endmsgs();
126: refresh();
127: endwin();
128: exit(0);
129: break;
130:
131: case 't': /* tag */
132: if (argv[i][2])
133: {
134: tag = argv[i] + 2;
135: }
136: else
137: {
138: i++;
139: tag = argv[i];
140: }
141: break;
142:
143: case 'v': /* vi mode */
144: mode = MODE_VI;
145: break;
146:
147: case 'e': /* ex mode */
148: mode = MODE_EX;
149: break;
150: #ifndef NO_EXTENSIONS
151: case 'i': /* input mode */
152: *o_inputmode = TRUE;
153: break;
154: #endif
155: #ifndef NO_ERRLIST
156: case 'm': /* use "errlist" as the errlist */
157: if (argv[i][2])
158: {
159: err = argv[i] + 2;
160: }
161: else if (i + 1 < argc)
162: {
163: i++;
164: err = argv[i];
165: }
166: else
167: {
168: err = "";
169: }
170: break;
171: #endif
172: default:
173: msg("Ignoring unknown flag \"%s\"", argv[i]);
174: }
175: }
176:
177: /* if we were given an initial ex command, save it... */
178: if (i < argc && *argv[i] == '+')
179: {
180: if (argv[i][1])
181: {
182: cmd = argv[i++] + 1;
183: }
184: else
185: {
186: cmd = "$"; /* "vi + file" means start at EOF */
187: i++;
188: }
189: }
190:
191: /* the remaining args are file names. */
192: nargs = argc - i;
193: if (nargs > 0)
194: {
195: #if ! ( MSDOS || TOS )
196: firstarg = argv[i];
197: #endif
198: strcpy(args, argv[i]);
199: while (++i < argc && strlen(args) + 1 + strlen(argv[i]) < sizeof args)
200: {
201: strcat(args, " ");
202: strcat(args, argv[i]);
203: }
204: }
205: #if ! ( MSDOS || TOS )
206: else
207: {
208: firstarg = "";
209: }
210: #endif
211: argno = 0;
212:
213: #if MSDOS || TOS
214: if (nargs > 0)
215: {
216: strcpy(args, wildcard(args));
217: nargs = 1;
218: for (i = 0; args[i]; i++)
219: {
220: if (args[i] == ' ')
221: {
222: nargs++;
223: }
224: }
225: for (i = 0; args[i] && args[i] != ' '; i++)
226: {
227: firstarg[i] = args[i];
228: }
229: firstarg[i] = '\0';
230: }
231: else
232: {
233: firstarg[0] = '\0';
234: }
235: #endif
236:
237: /* perform the .exrc files and EXINIT environment variable */
238: #ifdef SYSEXRC
239: doexrc(SYSEXRC);
240: #endif
241: #ifdef HMEXRC
242: str = getenv("HOME");
243: if (str)
244: {
245: sprintf(tmpblk.c, "%s%c%s", str, SLASH, HMEXRC);
246: doexrc(tmpblk.c);
247: }
248: #endif
249: doexrc(EXRC);
250: #ifdef EXINIT
251: str = getenv(EXINIT);
252: if (str)
253: {
254: exstring(str, strlen(str));
255: }
256: #endif
257:
258: /* search for a tag (or an error) now, if desired */
259: blkinit();
260: if (tag)
261: {
262: cmd_tag(MARK_FIRST, MARK_FIRST, CMD_TAG, 0, tag);
263: }
264: #ifndef NO_ERRLIST
265: else if (err)
266: {
267: cmd_errlist(MARK_FIRST, MARK_FIRST, CMD_ERRLIST, 0, err);
268: }
269: #endif
270:
271: /* if no tag/err, or tag failed, then start with first arg */
272: if (tmpfd < 0 && tmpstart(firstarg) == 0 && *origname)
273: {
274: ChangeText
275: {
276: }
277: clrflag(file, MODIFIED);
278: }
279:
280: /* now we do the immediate ex command that we noticed before */
281: if (cmd)
282: {
283: doexcmd(cmd);
284: }
285:
286: /* repeatedly call ex() or vi() (depending on the mode) until the
287: * mode is set to MODE_QUIT
288: */
289: while (mode != MODE_QUIT)
290: {
291: if (setjmp(jmpenv))
292: {
293: /* Maybe we just aborted a change? */
294: abortdo();
295: }
296: #if TURBOC
297: signal(SIGINT, (void(*)()) trapint);
298: #else
299: signal(SIGINT, trapint);
300: #endif
301:
302: switch (mode)
303: {
304: case MODE_VI:
305: vi();
306: break;
307:
308: case MODE_EX:
309: ex();
310: break;
311: #ifdef DEBUG
312: default:
313: msg("mode = %d?", mode);
314: mode = MODE_QUIT;
315: #endif
316: }
317: }
318:
319: /* free up the cut buffers */
320: cutend();
321:
322: /* end curses */
323: #ifndef NO_CURSORSHAPE
324: if (has_CQ)
325: do_CQ();
326: #endif
327: endmsgs();
328: move(LINES - 1, 0);
329: clrtoeol();
330: refresh();
331: endwin();
332:
333: exit(0);
334: /*NOTREACHED*/
335: }
336:
337:
338: /*ARGSUSED*/
339: int trapint(signo)
340: int signo;
341: {
342: resume_curses(FALSE);
343: abortdo();
344: #if OSK
345: sigmask(-1);
346: #endif
347: #if TURBO_C
348: signal(signo, (void (*)())trapint);
349: #else
350: signal(signo, trapint);
351: #endif
352: longjmp(jmpenv, 1);
353:
354: return 0;
355: }
356:
357:
358: #ifndef NO_DIGRAPH
359:
360: /* This stuff us used to build the default digraphs table. */
361: static char digtable[][4] =
362: {
363: # if CS_IBMPC
364: "C,\200", "u\"\1", "e'\2", "a^\3",
365: "a\"\4", "a`\5", "a@\6", "c,\7",
366: "e^\10", "e\"\211", "e`\12", "i\"\13",
367: "i^\14", "i`\15", "A\"\16", "A@\17",
368: "E'\20", "ae\21", "AE\22", "o^\23",
369: "o\"\24", "o`\25", "u^\26", "u`\27",
370: "y\"\30", "O\"\31", "U\"\32", "a'\240",
371: "i'!", "o'\"", "u'#", "n~$",
372: "N~%", "a-&", "o-'", "~?(",
373: "~!-", "\"<.", "\">/",
374: # endif /* CS_IBMPC */
375: # if CS_LATIN1
376: "~!!", "a-*", "\">+", "o-:",
377: "\"<>", "~??",
378:
379: "A`@", "A'A", "A^B", "A~C",
380: "A\"D", "A@E", "AEF", "C,G",
381: "E`H", "E'I", "E^J", "E\"K",
382: "I`L", "I'M", "I^N", "I\"O",
383: "-DP", "N~Q", "O`R", "O'S",
384: "O^T", "O~U", "O\"V", "O/X",
385: "U`Y", "U'Z", "U^[", "U\"\\",
386: "Y'_",
387:
388: "a``", "a'a", "a^b", "a~c",
389: "a\"d", "a@e", "aef", "c,g",
390: "e`h", "e'i", "e^j", "e\"k",
391: "i`l", "i'm", "i^n", "i\"o",
392: "-dp", "n~q", "o`r", "o's",
393: "o^t", "o~u", "o\"v", "o/x",
394: "u`y", "u'z", "u^{", "u\"|",
395: "y'~",
396: # endif /* CS_LATIN1 */
397: ""
398: };
399:
400: static init_digraphs()
401: {
402: int i;
403:
404: for (i = 0; *digtable[i]; i++)
405: {
406: do_digraph(FALSE, digtable[i]);
407: }
408: do_digraph(FALSE, (char *)0);
409: }
410: #endif /* NO_DIGRAPH */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.