1 | /* main.c */
|
---|
2 |
|
---|
3 | /* Author:
|
---|
4 | * Steve Kirkendall
|
---|
5 | * 14407 SW Teal Blvd. #C
|
---|
6 | * Beaverton, OR 97005
|
---|
7 | * kirkenda@cs.pdx.edu
|
---|
8 | */
|
---|
9 |
|
---|
10 |
|
---|
11 | /* This file contains the main() function of vi */
|
---|
12 |
|
---|
13 | /* HACK! bcc needs to disable use of precompiled headers for this file,
|
---|
14 | or else command line args will not be passed to elvis */
|
---|
15 | #if __BORLANDC__
|
---|
16 | #include "borland.h"
|
---|
17 | #endif
|
---|
18 |
|
---|
19 | #include "config.h"
|
---|
20 | #include <setjmp.h>
|
---|
21 | #include "vi.h"
|
---|
22 |
|
---|
23 | extern trapint(); /* defined below */
|
---|
24 | extern char *getenv();
|
---|
25 | jmp_buf jmpenv;
|
---|
26 |
|
---|
27 | #ifndef NO_DIGRAPH
|
---|
28 | static init_digraphs();
|
---|
29 | #endif
|
---|
30 |
|
---|
31 | /*---------------------------------------------------------------------*/
|
---|
32 |
|
---|
33 | #if AMIGA
|
---|
34 | # include "amiwild.c"
|
---|
35 | main (argc, argv)
|
---|
36 | #else
|
---|
37 | # if VMS
|
---|
38 | # include "vmswild.c"
|
---|
39 | main (argc, argv)
|
---|
40 | # else
|
---|
41 | void main(argc, argv)
|
---|
42 | # endif
|
---|
43 | #endif
|
---|
44 | int argc;
|
---|
45 | char *argv[];
|
---|
46 | {
|
---|
47 | int i;
|
---|
48 | char *cmd = (char *)0;
|
---|
49 | char *err = (char *)0;
|
---|
50 | char *str;
|
---|
51 | char *tag = (char *)0;
|
---|
52 |
|
---|
53 | /* set mode to MODE_VI or MODE_EX depending on program name */
|
---|
54 | switch (argv[0][strlen(argv[0]) - 1])
|
---|
55 | {
|
---|
56 | case 'x': /* "ex" */
|
---|
57 | mode = MODE_EX;
|
---|
58 | break;
|
---|
59 |
|
---|
60 | case 'w': /* "view" */
|
---|
61 | mode = MODE_VI;
|
---|
62 | *o_readonly = TRUE;
|
---|
63 | break;
|
---|
64 | #ifndef NO_EXTENSIONS
|
---|
65 | case 't': /* "edit" or "input" */
|
---|
66 | mode = MODE_VI;
|
---|
67 | *o_inputmode = TRUE;
|
---|
68 | break;
|
---|
69 | #endif
|
---|
70 | default: /* "vi" or "elvis" */
|
---|
71 | mode = MODE_VI;
|
---|
72 | }
|
---|
73 |
|
---|
74 | #ifndef DEBUG
|
---|
75 | # ifdef SIGQUIT
|
---|
76 | /* normally, we ignore SIGQUIT. SIGINT is trapped later */
|
---|
77 | signal(SIGQUIT, SIG_IGN);
|
---|
78 | # endif
|
---|
79 | #endif
|
---|
80 |
|
---|
81 | /* temporarily ignore SIGINT */
|
---|
82 | signal(SIGINT, SIG_IGN);
|
---|
83 |
|
---|
84 | /* start curses */
|
---|
85 | initscr();
|
---|
86 | cbreak();
|
---|
87 | noecho();
|
---|
88 | scrollok(stdscr, TRUE);
|
---|
89 |
|
---|
90 | /* arrange for deadly signals to be caught */
|
---|
91 | # ifdef SIGHUP
|
---|
92 | signal(SIGHUP, (void(*)()) deathtrap);
|
---|
93 | # endif
|
---|
94 | # ifndef DEBUG
|
---|
95 | # ifdef SIGILL
|
---|
96 | signal(SIGILL, (void(*)()) deathtrap);
|
---|
97 | # endif
|
---|
98 | # ifdef SIGBUS
|
---|
99 | signal(SIGBUS, (void(*)()) deathtrap);
|
---|
100 | # endif
|
---|
101 | # ifdef SIGSEGV
|
---|
102 | signal(SIGSEGV, (void(*)()) deathtrap);
|
---|
103 | # endif
|
---|
104 | # ifdef SIGSYS
|
---|
105 | signal(SIGSYS, (void(*)()) deathtrap);
|
---|
106 | # endif
|
---|
107 | # endif /* !DEBUG */
|
---|
108 | # ifdef SIGPIPE
|
---|
109 | signal(SIGPIPE, (void(*)()) deathtrap);
|
---|
110 | # endif
|
---|
111 | # ifdef SIGTERM
|
---|
112 | signal(SIGTERM, (void(*)()) deathtrap);
|
---|
113 | # endif
|
---|
114 | # ifdef SIGUSR1
|
---|
115 | signal(SIGUSR1, (void(*)()) deathtrap);
|
---|
116 | # endif
|
---|
117 | # ifdef SIGUSR2
|
---|
118 | signal(SIGUSR2, (void(*)()) deathtrap);
|
---|
119 | # endif
|
---|
120 |
|
---|
121 | /* initialize the options - must be done after initscr(), so that
|
---|
122 | * we can alter LINES and COLS if necessary.
|
---|
123 | */
|
---|
124 | initopts();
|
---|
125 |
|
---|
126 | /* map the arrow keys. The KU,KD,KL,and KR variables correspond to
|
---|
127 | * the :ku=: (etc.) termcap capabilities. The variables are defined
|
---|
128 | * as part of the curses package.
|
---|
129 | */
|
---|
130 | if (has_KU) mapkey(has_KU, "k", WHEN_VICMD|WHEN_INMV, "<Up>");
|
---|
131 | if (has_KD) mapkey(has_KD, "j", WHEN_VICMD|WHEN_INMV, "<Down>");
|
---|
132 | if (has_KL) mapkey(has_KL, "h", WHEN_VICMD|WHEN_INMV, "<Left>");
|
---|
133 | if (has_KR) mapkey(has_KR, "l", WHEN_VICMD|WHEN_INMV, "<Right>");
|
---|
134 | if (has_HM) mapkey(has_HM, "^", WHEN_VICMD|WHEN_INMV, "<Home>");
|
---|
135 | if (has_EN) mapkey(has_EN, "$", WHEN_VICMD|WHEN_INMV, "<End>");
|
---|
136 | if (has_PU) mapkey(has_PU, "\002", WHEN_VICMD|WHEN_INMV, "<PageUp>");
|
---|
137 | if (has_PD) mapkey(has_PD, "\006", WHEN_VICMD|WHEN_INMV, "<PageDn>");
|
---|
138 | if (has_KI) mapkey(has_KI, "i", WHEN_VICMD|WHEN_INMV, "<Insert>");
|
---|
139 | #if MSDOS
|
---|
140 | # if RAINBOW
|
---|
141 | if (!strcmp("rainbow", o_term))
|
---|
142 | {
|
---|
143 | mapkey("\033[1~", "/", WHEN_VICMD, "<Find>");
|
---|
144 | mapkey("\033[3~", "x", WHEN_VICMD|WHEN_INMV, "<Remove>");
|
---|
145 | mapkey("\033[4~", "v", WHEN_VICMD|WHEN_INMV, "<Select>");
|
---|
146 | mapkey("\033[17~", ":sh\n", WHEN_VICMD, "<Intrpt>");
|
---|
147 | mapkey("\033[19~", ":q\n", WHEN_VICMD, "<Cancel>");
|
---|
148 | mapkey("\033[21~", "ZZ", WHEN_VICMD, "<Exit>");
|
---|
149 | mapkey("\033[26~", "V", WHEN_VICMD|WHEN_INMV, "<AddlOp>");
|
---|
150 | mapkey("\033[28~", "\\", WHEN_VICMD|WHEN_INMV, "<Help>");
|
---|
151 | mapkey("\033[29~", "K", WHEN_VICMD|WHEN_INMV, "<Do>");
|
---|
152 | }
|
---|
153 | else
|
---|
154 | # endif /* RAINBOW */
|
---|
155 | {
|
---|
156 | mapkey("#S", "x", WHEN_VICMD|WHEN_INMV, "<Delete>");
|
---|
157 | mapkey("#s", "B", WHEN_VICMD|WHEN_INMV, "^<Left>");
|
---|
158 | mapkey("#t", "W", WHEN_VICMD|WHEN_INMV, "^<Right>");
|
---|
159 | }
|
---|
160 | #else /* not MSDOS */
|
---|
161 | # if COHERENT
|
---|
162 | mapkey("\033[P", "x", WHEN_VICMD|WHEN_INMV, "<Del>");
|
---|
163 | # else
|
---|
164 | #if AMIGA
|
---|
165 | mapkey("\233?~", "\\", WHEN_VICMD|WHEN_INMV, "<Help>");
|
---|
166 | #endif
|
---|
167 |
|
---|
168 | if (ERASEKEY != '\177')
|
---|
169 | {
|
---|
170 | mapkey("\177", "x", WHEN_VICMD|WHEN_INMV, "<Del>");
|
---|
171 | }
|
---|
172 | # endif
|
---|
173 | #endif
|
---|
174 |
|
---|
175 | #ifndef NO_DIGRAPH
|
---|
176 | init_digraphs();
|
---|
177 | #endif /* NO_DIGRAPH */
|
---|
178 |
|
---|
179 | /* process any flags */
|
---|
180 | for (i = 1; i < argc && *argv[i] == '-'; i++)
|
---|
181 | {
|
---|
182 | switch (argv[i][1])
|
---|
183 | {
|
---|
184 | case 'R': /* readonly */
|
---|
185 | *o_readonly = TRUE;
|
---|
186 | break;
|
---|
187 |
|
---|
188 | case 'L':
|
---|
189 | case 'r': /* recover */
|
---|
190 | msg("Use the `elvrec` program to recover lost files");
|
---|
191 | endmsgs();
|
---|
192 | refresh();
|
---|
193 | endwin();
|
---|
194 | exit(0);
|
---|
195 | break;
|
---|
196 |
|
---|
197 | case 't': /* tag */
|
---|
198 | if (argv[i][2])
|
---|
199 | {
|
---|
200 | tag = argv[i] + 2;
|
---|
201 | }
|
---|
202 | else
|
---|
203 | {
|
---|
204 | tag = argv[++i];
|
---|
205 | }
|
---|
206 | break;
|
---|
207 |
|
---|
208 | case 'v': /* vi mode */
|
---|
209 | mode = MODE_VI;
|
---|
210 | break;
|
---|
211 |
|
---|
212 | case 'e': /* ex mode */
|
---|
213 | mode = MODE_EX;
|
---|
214 | break;
|
---|
215 | #ifndef NO_EXTENSIONS
|
---|
216 | case 'i': /* input mode */
|
---|
217 | *o_inputmode = TRUE;
|
---|
218 | break;
|
---|
219 | #endif
|
---|
220 | #ifndef NO_ERRLIST
|
---|
221 | case 'm': /* use "errlist" as the errlist */
|
---|
222 | if (argv[i][2])
|
---|
223 | {
|
---|
224 | err = argv[i] + 2;
|
---|
225 | }
|
---|
226 | else if (i + 1 < argc)
|
---|
227 | {
|
---|
228 | err = argv[++i];
|
---|
229 | }
|
---|
230 | else
|
---|
231 | {
|
---|
232 | err = "";
|
---|
233 | }
|
---|
234 | break;
|
---|
235 | #endif
|
---|
236 | #ifndef CRUNCH
|
---|
237 | case 'c': /* run the following command, later */
|
---|
238 | if (argv[i][2])
|
---|
239 | {
|
---|
240 | cmd = argv[i] + 2;
|
---|
241 | }
|
---|
242 | else
|
---|
243 | {
|
---|
244 | cmd = argv[++i];
|
---|
245 | }
|
---|
246 | break;
|
---|
247 |
|
---|
248 | case 'w': /* set the window size */
|
---|
249 | if (argv[i][2])
|
---|
250 | {
|
---|
251 | *o_window = atoi(argv[i] + 2);
|
---|
252 | wset = TRUE;
|
---|
253 | }
|
---|
254 | else
|
---|
255 | {
|
---|
256 | *o_window = atoi(argv[++i]);
|
---|
257 | wset = TRUE;
|
---|
258 | }
|
---|
259 | break;
|
---|
260 | #endif
|
---|
261 | default:
|
---|
262 | msg("Ignoring unknown flag \"%s\"", argv[i]);
|
---|
263 | }
|
---|
264 | }
|
---|
265 |
|
---|
266 | /* if we were given an initial ex command, save it... */
|
---|
267 | if (i < argc && *argv[i] == '+')
|
---|
268 | {
|
---|
269 | if (argv[i][1])
|
---|
270 | {
|
---|
271 | cmd = argv[i++] + 1;
|
---|
272 | }
|
---|
273 | else
|
---|
274 | {
|
---|
275 | cmd = "$"; /* "vi + file" means start at EOF */
|
---|
276 | i++;
|
---|
277 | }
|
---|
278 | }
|
---|
279 |
|
---|
280 | /* the remaining args are file names. */
|
---|
281 | if (i < argc)
|
---|
282 | {
|
---|
283 | strcpy(args, argv[i]);
|
---|
284 | while (++i < argc && strlen(args) + 1 + strlen(argv[i]) < sizeof args)
|
---|
285 | {
|
---|
286 | strcat(args, " ");
|
---|
287 | strcat(args, argv[i]);
|
---|
288 | }
|
---|
289 | #if MSDOS || TOS
|
---|
290 | /* expand wildcard characters, if necessary */
|
---|
291 | if (strchr(args, '*') || strchr(args, '?'))
|
---|
292 | {
|
---|
293 | strcpy(args, wildcard(args));
|
---|
294 | }
|
---|
295 | #endif
|
---|
296 | strcpy(tmpblk.c, args);
|
---|
297 | cmd_args(MARK_UNSET, MARK_UNSET, CMD_ARGS, TRUE, tmpblk.c);
|
---|
298 | }
|
---|
299 | else
|
---|
300 | {
|
---|
301 | /* empty args list */
|
---|
302 | args[0] = '\0';
|
---|
303 | nargs = 1;
|
---|
304 | argno = -1;
|
---|
305 | }
|
---|
306 |
|
---|
307 | /* perform the .exrc files and EXINIT environment variable */
|
---|
308 | #ifdef SYSEXRC
|
---|
309 | doexrc(SYSEXRC);
|
---|
310 | #endif
|
---|
311 | #ifdef HMEXRC
|
---|
312 | str = getenv("HOME");
|
---|
313 | if (str && *str)
|
---|
314 | {
|
---|
315 | strcpy(tmpblk.c, str);
|
---|
316 | str = tmpblk.c + strlen(tmpblk.c);
|
---|
317 | #if !VMS
|
---|
318 | # if AMIGA /* Don't SLASH a device. "Elvis:.exrc" */
|
---|
319 | if (str[-1] != COLON && str[-1] != SLASH)
|
---|
320 | # else
|
---|
321 | if (str[-1] != SLASH)
|
---|
322 | # endif
|
---|
323 | {
|
---|
324 | *str++ = SLASH;
|
---|
325 | }
|
---|
326 | #endif
|
---|
327 | strcpy(str, HMEXRC);
|
---|
328 | doexrc(tmpblk.c);
|
---|
329 | }
|
---|
330 | #endif
|
---|
331 | #ifndef CRUNCH
|
---|
332 | if (*o_exrc)
|
---|
333 | #endif
|
---|
334 | {
|
---|
335 | doexrc(EXRC);
|
---|
336 | }
|
---|
337 | #ifdef EXINIT
|
---|
338 | str = getenv(EXINIT);
|
---|
339 | if (str)
|
---|
340 | {
|
---|
341 | exstring(str, strlen(str), ctrl('V'));
|
---|
342 | }
|
---|
343 | #endif
|
---|
344 |
|
---|
345 | /* search for a tag (or an error) now, if desired */
|
---|
346 | blkinit();
|
---|
347 | if (tag)
|
---|
348 | {
|
---|
349 | cmd_tag(MARK_FIRST, MARK_FIRST, CMD_TAG, 0, tag);
|
---|
350 | }
|
---|
351 | #ifndef NO_ERRLIST
|
---|
352 | else if (err)
|
---|
353 | {
|
---|
354 | cmd_errlist(MARK_FIRST, MARK_FIRST, CMD_ERRLIST, 0, err);
|
---|
355 | }
|
---|
356 | #endif
|
---|
357 |
|
---|
358 | /* if no tag/err, or tag failed, then start with first arg */
|
---|
359 | if (tmpfd < 0)
|
---|
360 | {
|
---|
361 | /* start with first arg */
|
---|
362 | cmd_next(MARK_UNSET, MARK_UNSET, CMD_NEXT, FALSE, "");
|
---|
363 |
|
---|
364 | /* pretend to do something, just to force a recoverable
|
---|
365 | * version of the file out to disk
|
---|
366 | */
|
---|
367 | ChangeText
|
---|
368 | {
|
---|
369 | }
|
---|
370 | clrflag(file, MODIFIED);
|
---|
371 | }
|
---|
372 |
|
---|
373 | /* now we do the immediate ex command that we noticed before */
|
---|
374 | if (cmd)
|
---|
375 | {
|
---|
376 | doexcmd(cmd);
|
---|
377 | }
|
---|
378 |
|
---|
379 | /* repeatedly call ex() or vi() (depending on the mode) until the
|
---|
380 | * mode is set to MODE_QUIT
|
---|
381 | */
|
---|
382 | while (mode != MODE_QUIT)
|
---|
383 | {
|
---|
384 | if (setjmp(jmpenv))
|
---|
385 | {
|
---|
386 | /* Maybe we just aborted a change? */
|
---|
387 | abortdo();
|
---|
388 | }
|
---|
389 | signal(SIGINT, (void(*)()) trapint);
|
---|
390 |
|
---|
391 | switch (mode)
|
---|
392 | {
|
---|
393 | case MODE_VI:
|
---|
394 | vi();
|
---|
395 | break;
|
---|
396 |
|
---|
397 | case MODE_EX:
|
---|
398 | ex();
|
---|
399 | break;
|
---|
400 | #ifdef DEBUG
|
---|
401 | default:
|
---|
402 | msg("mode = %d?", mode);
|
---|
403 | mode = MODE_QUIT;
|
---|
404 | #endif
|
---|
405 | }
|
---|
406 | }
|
---|
407 |
|
---|
408 | /* free up the cut buffers */
|
---|
409 | cutend();
|
---|
410 |
|
---|
411 | /* end curses */
|
---|
412 | #ifndef NO_CURSORSHAPE
|
---|
413 | if (has_CQ)
|
---|
414 | do_CQ();
|
---|
415 | #endif
|
---|
416 | endmsgs();
|
---|
417 | move(LINES - 1, 0);
|
---|
418 | clrtoeol();
|
---|
419 | refresh();
|
---|
420 | endwin();
|
---|
421 |
|
---|
422 | exit(0);
|
---|
423 | /*NOTREACHED*/
|
---|
424 | }
|
---|
425 |
|
---|
426 |
|
---|
427 | /*ARGSUSED*/
|
---|
428 | int trapint(signo)
|
---|
429 | int signo;
|
---|
430 | {
|
---|
431 | beep();
|
---|
432 | resume_curses(FALSE);
|
---|
433 | abortdo();
|
---|
434 | #if OSK
|
---|
435 | sigmask(-1);
|
---|
436 | #endif
|
---|
437 | #if TURBOC || __GNUC__ || _ANSI
|
---|
438 | signal(signo, (void (*)())trapint);
|
---|
439 | #else
|
---|
440 | signal(signo, trapint);
|
---|
441 | #endif
|
---|
442 | doingglobal = FALSE;
|
---|
443 |
|
---|
444 | longjmp(jmpenv, 1);
|
---|
445 |
|
---|
446 | return 0;
|
---|
447 | }
|
---|
448 |
|
---|
449 |
|
---|
450 |
|
---|
451 | #ifndef NO_DIGRAPH
|
---|
452 |
|
---|
453 | /* This stuff us used to build the default digraphs table. */
|
---|
454 | static char digtable[][4] =
|
---|
455 | {
|
---|
456 | # ifdef CS_IBMPC
|
---|
457 | "C,\200", "u\"\1", "e'\2", "a^\3",
|
---|
458 | "a\"\4", "a`\5", "a@\6", "c,\7",
|
---|
459 | "e^\10", "e\"\211", "e`\12", "i\"\13",
|
---|
460 | "i^\14", "i`\15", "A\"\16", "A@\17",
|
---|
461 | "E'\20", "ae\21", "AE\22", "o^\23",
|
---|
462 | "o\"\24", "o`\25", "u^\26", "u`\27",
|
---|
463 | "y\"\30", "O\"\31", "U\"\32", "a'\240",
|
---|
464 | "i'!", "o'\"", "u'#", "n~$",
|
---|
465 | "N~%", "a-&", "o-'", "~?(",
|
---|
466 | "~!-", "\"<.", "\">/",
|
---|
467 | # ifdef CS_SPECIAL
|
---|
468 | "2/+", "4/,", "^+;", "^q<",
|
---|
469 | "^c=", "^r>", "^t?", "pp]",
|
---|
470 | "^^^", "oo_", "*a`", "*ba",
|
---|
471 | "*pc", "*Sd", "*se", "*uf",
|
---|
472 | "*tg", "*Ph", "*Ti", "*Oj",
|
---|
473 | "*dk", "*Hl", "*hm", "*En",
|
---|
474 | "*No", "eqp", "pmq", "ger",
|
---|
475 | "les", "*It", "*iu", "*/v",
|
---|
476 | "*=w", "sq{", "^n|", "^2}",
|
---|
477 | "^3~", "^_\377",
|
---|
478 | # endif /* CS_SPECIAL */
|
---|
479 | # endif /* CS_IBMPC */
|
---|
480 | # ifdef CS_LATIN1
|
---|
481 | "~!!", "a-*", "\">+", "o-:",
|
---|
482 | "\"<>", "~??",
|
---|
483 |
|
---|
484 | "A`@", "A'A", "A^B", "A~C",
|
---|
485 | "A\"D", "A@E", "AEF", "C,G",
|
---|
486 | "E`H", "E'I", "E^J", "E\"K",
|
---|
487 | "I`L", "I'M", "I^N", "I\"O",
|
---|
488 | "-DP", "N~Q", "O`R", "O'S",
|
---|
489 | "O^T", "O~U", "O\"V", "O/X",
|
---|
490 | "U`Y", "U'Z", "U^[", "U\"\\",
|
---|
491 | "Y'_",
|
---|
492 |
|
---|
493 | "a``", "a'a", "a^b", "a~c",
|
---|
494 | "a\"d", "a@e", "aef", "c,g",
|
---|
495 | "e`h", "e'i", "e^j", "e\"k",
|
---|
496 | "i`l", "i'm", "i^n", "i\"o",
|
---|
497 | "-dp", "n~q", "o`r", "o's",
|
---|
498 | "o^t", "o~u", "o\"v", "o/x",
|
---|
499 | "u`y", "u'z", "u^{", "u\"|",
|
---|
500 | "y'~",
|
---|
501 | # endif /* CS_LATIN1 */
|
---|
502 | ""
|
---|
503 | };
|
---|
504 |
|
---|
505 | static init_digraphs()
|
---|
506 | {
|
---|
507 | int i;
|
---|
508 |
|
---|
509 | for (i = 0; *digtable[i]; i++)
|
---|
510 | {
|
---|
511 | do_digraph(FALSE, digtable[i]);
|
---|
512 | }
|
---|
513 | do_digraph(FALSE, (char *)0);
|
---|
514 | return 0;
|
---|
515 | }
|
---|
516 | #endif /* NO_DIGRAPH */
|
---|