1 /***********************************************************************
2 *                                                                      *
3 *               This software is part of the ast package               *
4 *           Copyright (c) 1992-2007 AT&T Knowledge Ventures            *
5 *                      and is licensed under the                       *
6 *                  Common Public License, Version 1.0                  *
7 *                      by AT&T Knowledge Ventures                      *
8 *                                                                      *
9 *                A copy of the License is available at                 *
10 *            http://www.opensource.org/licenses/cpl1.0.txt             *
11 *         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
12 *                                                                      *
13 *              Information and Software Systems Research               *
14 *                            AT&T Research                             *
15 *                           Florham Park NJ                            *
16 *                                                                      *
17 *                 Glenn Fowler <gsf@research.att.com>                  *
18 *                  David Korn <dgk@research.att.com>                   *
19 *                                                                      *
20 ***********************************************************************/
21 #pragma prototyped
22 /*
23  * David Korn
24  * AT&T Bell Laboratories
25  *
26  * namebase pathname [suffix]
27  *
28  * print the namebase of a pathname
29  */
30 
31 static const char usage[] =
32 "[-?\n@(#)$Id: basename (AT&T Research) 1999-04-10 $\n]"
33 USAGE_LICENSE
34 "[+NAME?basename - strip directory and suffix from filenames]"
35 "[+DESCRIPTION?\bbasename\b removes all leading directory components "
36 	"from the file name defined by \astring\a.  If the file name "
37 	"defined by \astring\a has a suffix that ends in \asuffix\a, "
38 	"it is removed as well.]"
39 "[+?If \astring\a consists solely of \b/\b characters the output will "
40 	"be a single \b/\b unless \bPATH_LEADING_SLASHES\b returned by "
41 	"\bgetconf\b(1) is \b1\b and \astring\a consists of multiple "
42 	"\b/\b characters in which case \b//\b will be output.  "
43 	"Otherwise, trailing \b/\b characters are removed, and if "
44 	"there are any remaining \b/\b characters in \astring\a, "
45 	"all characters up to and including the last \b/\b are removed.  "
46 	"Finally, if \asuffix\a is specified, and is identical the end "
47 	"of \astring\a, these characters are removed.  The characters "
48 	"not removed from \astring\a will be written to standard output.]"
49 "\n"
50 "\n string [suffix]\n"
51 "\n"
52 "[+EXIT STATUS?]{"
53         "[+0?Successful Completion.]"
54         "[+>0?An error occurred.]"
55 "}"
56 "[+SEE ALSO?\bdirname\b(1), \bgetconf\b(1), \bbasename\b(3)]"
57 ;
58 
59 
60 #include <cmd.h>
61 
62 static void namebase(Sfio_t *outfile, register char *pathname, char *suffix)
63 {
64 	register char *first, *last;
65 	register int n=0;
66 	for(first=last=pathname; *last; last++);
67 	/* back over trailing '/' */
68 	if(last>first)
69 		while(*--last=='/' && last > first);
70 	if(last==first && *last=='/')
71 	{
72 		/* all '/' or "" */
73 		if(*first=='/')
74 			if(*++last=='/')	/* keep leading // */
75 				last++;
76 	}
77 	else
78 	{
79 		for(first=last++;first>pathname && *first!='/';first--);
80 		if(*first=='/')
81 			first++;
82 		/* check for trailing suffix */
83 		if(suffix && (n=strlen(suffix)) && n<(last-first))
84 		{
85 			if(memcmp(last-n,suffix,n)==0)
86 				last -=n;
87 		}
88 	}
89 	if(last>first)
90 		sfwrite(outfile,first,last-first);
91 	sfputc(outfile,'\n');
92 }
93 
94 int
95 b_basename(int argc,register char *argv[], void* context)
96 {
97 	register int  n;
98 
99 	cmdinit(argc, argv, context, ERROR_CATALOG, 0);
100 	while (n = optget(argv, usage)) switch (n)
101 	{
102 	case ':':
103 		error(2, "%s", opt_info.arg);
104 		break;
105 	case '?':
106 		error(ERROR_usage(2), "%s", opt_info.arg);
107 		break;
108 	}
109 	argv += opt_info.index;
110 	argc -= opt_info.index;
111 	if(error_info.errors || argc < 1 || argc > 2)
112 		error(ERROR_usage(2), "%s", optusage(NiL));
113 	namebase(sfstdout,argv[0],argv[1]);
114 	return(0);
115 }
116 
117