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