home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / elvis_1.4.tar.Z / elvis_1.4.tar / main.c < prev    next >
C/C++ Source or Header  |  1990-12-06  |  8KB  |  423 lines
  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. #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. #  if CS_SPECIAL
  375.     "2/+",        "4/,",        "^+;",        "^q<",
  376.     "^c=",        "^r>",        "^t?",        "pp]",
  377.     "^^^",        "oo_",        "*a`",        "*ba",
  378.     "*pc",        "*Sd",        "*se",        "*uf",
  379.     "*tg",        "*Ph",        "*Ti",        "*Oj",
  380.     "*dk",        "*Hl",        "*hm",        "*En",
  381.     "*No",        "eqp",        "pmq",        "ger",
  382.     "les",        "*It",        "*iu",        "*/v",
  383.     "*=w",        "sq{",        "^n|",        "^2}",
  384.     "^3~",        "^_\377",
  385. #  endif /* CS_SPECIAL */
  386. # endif /* CS_IBMPC */
  387. # if CS_LATIN1
  388.     "~!!",        "a-*",        "\">+",        "o-:",
  389.     "\"<>",        "~??",
  390.  
  391.     "A`@",        "A'A",        "A^B",        "A~C",
  392.     "A\"D",        "A@E",        "AEF",        "C,G",
  393.     "E`H",        "E'I",        "E^J",        "E\"K",
  394.     "I`L",        "I'M",        "I^N",        "I\"O",
  395.     "-DP",        "N~Q",        "O`R",        "O'S",
  396.     "O^T",        "O~U",        "O\"V",        "O/X",
  397.     "U`Y",        "U'Z",        "U^[",        "U\"\\",
  398.     "Y'_",
  399.  
  400.     "a``",        "a'a",        "a^b",        "a~c",
  401.     "a\"d",        "a@e",        "aef",        "c,g",
  402.     "e`h",        "e'i",        "e^j",        "e\"k",
  403.     "i`l",        "i'm",        "i^n",        "i\"o",
  404.     "-dp",        "n~q",        "o`r",        "o's",
  405.     "o^t",        "o~u",        "o\"v",        "o/x",
  406.     "u`y",        "u'z",        "u^{",        "u\"|",
  407.     "y'~",
  408. # endif /* CS_LATIN1 */
  409.     ""
  410. };
  411.  
  412. static init_digraphs()
  413. {
  414.     int    i;
  415.  
  416.     for (i = 0; *digtable[i]; i++)
  417.     {
  418.         do_digraph(FALSE, digtable[i]);
  419.     }
  420.     do_digraph(FALSE, (char *)0);
  421. }
  422. #endif /* NO_DIGRAPH */
  423.