xref: /freebsd/contrib/xz/src/common/tuklib_progname.c (revision b077aed33b7b6aefca7b17ddb250cf521f938613)
1 ///////////////////////////////////////////////////////////////////////////////
2 //
3 /// \file       tuklib_progname.c
4 /// \brief      Program name to be displayed in messages
5 //
6 //  Author:     Lasse Collin
7 //
8 //  This file has been put into the public domain.
9 //  You can do whatever you want with this file.
10 //
11 ///////////////////////////////////////////////////////////////////////////////
12 
13 #include "tuklib_progname.h"
14 #include <string.h>
15 
16 
17 #ifndef HAVE_PROGRAM_INVOCATION_NAME
18 char *progname = NULL;
19 #endif
20 
21 
22 extern void
23 tuklib_progname_init(char **argv)
24 {
25 #ifdef TUKLIB_DOSLIKE
26 	// On these systems, argv[0] always has the full path and .exe
27 	// suffix even if the user just types the plain program name.
28 	// We modify argv[0] to make it nicer to read.
29 
30 	// Strip the leading path.
31 	char *p = argv[0] + strlen(argv[0]);
32 	while (argv[0] < p && p[-1] != '/' && p[-1] != '\\')
33 		--p;
34 
35 	argv[0] = p;
36 
37 	// Strip the .exe suffix.
38 	p = strrchr(p, '.');
39 	if (p != NULL)
40 		*p = '\0';
41 
42 	// Make it lowercase.
43 	for (p = argv[0]; *p != '\0'; ++p)
44 		if (*p >= 'A' && *p <= 'Z')
45 			*p = *p - 'A' + 'a';
46 #endif
47 
48 	progname = argv[0];
49 	return;
50 }
51