home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / CMDS / elvis1.7.lzh / elvis1.7 / alias.c.orig < prev    next >
Text File  |  1998-03-30  |  2KB  |  98 lines
  1. /* alias.c */
  2.  
  3. /* Author:
  4.  *        Peter Reinig
  5.  *        Universitaet Kaiserslautern
  6.  *        Postfach 3049
  7.  *        7650 Kaiserslautern
  8.  *        W. Germany
  9.  *        reinig@physik.uni-kl.de
  10.  */
  11.  
  12. /* This tiny program executes elvis with the flags that are appropriate
  13.  * for a given command name.  This program is used only on systems that
  14.  * don't allow UNIX-style file links.
  15.  *
  16.  * The benefit of this program is: instead of having 5 copies of elvis
  17.  * on your disk, you only need one copy of elvis and 4 copies of this
  18.  * little program.
  19.  */
  20.  
  21. #include <stdio.h>
  22. #include "config.h"
  23.  
  24. #define ELVIS    "/dd/cmds/elvis"
  25.  
  26. extern char **environ;
  27. extern int errno;
  28.  
  29. main(argc, argv)
  30.     int    argc;
  31.     char    *argv[];
  32. {
  33.     int    pid, i, j;
  34.     int    letter;
  35.     char    **argblk;
  36. #if OSK
  37.     extern int chainc();
  38. #endif
  39.  
  40.     /* allocate enough space for a copy of the argument list, plus a
  41.      * terminating NULL, plus maybe an added flag.
  42.      */
  43.     argblk = (char **) malloc((argc + 2) * sizeof(char *));
  44.     if (!argblk)
  45.     {
  46. #if OSK
  47.         _errmsg(errno, "Can't get enough memory\n");
  48. #else
  49.         perror(argv[0]);
  50. #endif
  51.         exit(2);
  52.     }
  53.     
  54.     /* find the last letter in the invocation name of this program */
  55.     i = strlen(argv[0]);
  56. #if MSDOS || TOS
  57.     /* we almost certainly must bypass ".EXE" or ".TTP" from argv[0] */
  58.     if (i > 4 && argv[0][i - 4] == '.')
  59.         i -= 4;
  60. #endif
  61.     letter = argv[0][i - 1];
  62.  
  63.     /* copy argv to argblk, possibly inserting a flag such as "-R" */
  64.     argblk[0] = ELVIS;
  65.     i = j = 1;
  66.     switch (letter)
  67.     {
  68.       case 'w':            /* "view" */
  69.       case 'W':
  70.         argblk[i++] = "-R";
  71.         break;
  72. #if !OSK
  73.       case 'x':            /* "ex" */
  74.       case 'X':
  75.         argblk[i++] = "-e";
  76.         break;
  77. #endif
  78.       case 't':            /* "input" */
  79.       case 'T':
  80.         argblk[i++] = "-i";
  81.         break;
  82.     }
  83.     while (j < argc)
  84.     {
  85.         argblk[i++] = argv[j++];
  86.     }
  87.     argblk[i] = (char *)0;
  88.  
  89.     /* execute the real ELVIS program */
  90. #if OSK
  91.     pid = os9exec(chainc, argblk[0], argblk, environ, 0, 0, 3);
  92.     fprintf(stderr, "%s: cannot execute\n", argblk[0]);
  93. #else
  94.     (void)execvp(argblk[0], argblk);
  95.     perror(ELVIS);
  96. #endif
  97. }
  98.