src/common/fixargv0.c

#ifndef lint
static const char       RCSid[] = "$Id: fixargv0.c,v 2.8 2016/08/05 00:12:46 greg Exp $";
#endif
/*
 * Fix argv[0] for DOS environments
 *
 *  External symbols declared in paths.h
 */

#include <ctype.h>
#include <string.h>

char *
fixargv0(char *av0)             /* extract command name from full path */
{
        char  *cp = av0, *end;

        while (*cp) cp++;               /* start from end */
        end = cp;
        while (cp-- > av0)
                switch (*cp) {          /* fix up command name */
                case '.':                       /* remove extension */
                        *cp = '\0';
                        end = cp;
                        continue;
                case '\\':                      /* remove directory */
                case '/':
                        /* make sure the original pointer remains the same */
                        memmove(av0, cp+1, end-cp);
                        return(av0);
                default:                        /* convert to lower case */
                        *cp = tolower(*cp);
                        continue;
                }
        return(av0);
}
Revision:	2.9
Committed:	Fri Jul 24 16:58:16 2020 UTC (3 years, 10 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad5R4, rad5R3, HEAD
Changes since 2.8:	+2 -1 lines
Log Message:	Hopeful fix to Windows test issues
#	User	Rev	Content
1	greg	2.1	#ifndef lint
2	greg	2.9	static const char RCSid[] = "$Id: fixargv0.c,v 2.8 2016/08/05 00:12:46 greg Exp $";
3	greg	2.1	#endif
4			/*
5			* Fix argv[0] for DOS environments
6	greg	2.2	*
7	schorsch	2.4	* External symbols declared in paths.h
8	greg	2.2	*/
9
10	schorsch	2.4	#include <ctype.h>
11	schorsch	2.6	#include <string.h>
12	greg	2.1
13	greg	2.8	char *
14			fixargv0(char av0) / extract command name from full path */
15	greg	2.1	{
16	greg	2.8	char cp = av0, end;
17	greg	2.1
18			while (cp) cp++; / start from end */
19	schorsch	2.7	end = cp;
20	greg	2.1	while (cp-- > av0)
21			switch (cp) { / fix up command name */
22			case '.': /* remove extension */
23			*cp = '\0';
24	schorsch	2.7	end = cp;
25	greg	2.1	continue;
26			case '\\': /* remove directory */
27	greg	2.9	case '/':
28	schorsch	2.7	/* make sure the original pointer remains the same */
29			memmove(av0, cp+1, end-cp);
30	greg	2.8	return(av0);
31	greg	2.1	default: /* convert to lower case */
32			cp = tolower(cp);
33			continue;
34			}
35			return(av0);
36			}