home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / source / radsrc22 / src / common / fixargv0.c < prev    next >
Encoding:
Text File  |  1992-10-09  |  803 b   |  28 lines
  1. /*
  2.  * Fix argv[0] for DOS environments
  3.  */
  4.  
  5.  
  6. char *
  7. fixargv0(av0)                   /* extract command name from full path */
  8. char  *av0;
  9. {
  10.         register char  *cp = av0;
  11.  
  12.         while (*cp) cp++;               /* start from end */
  13.         while (cp-- > av0)
  14.                 switch (*cp) {          /* fix up command name */
  15.                 case '.':                       /* remove extension */
  16.                         *cp = '\0';
  17.                         continue;
  18.                 case '\\':                      /* remove directory */
  19.                         return(cp+1);
  20.                 default:                        /* convert to lower case */
  21.                         *cp = tolower(*cp);
  22.                         continue;
  23.                 }
  24.         return(av0);
  25. }
  26.  
  27.  
  28.