diff options
author | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
---|---|---|
committer | Igor Pashev <pashev.igor@gmail.com> | 2012-06-24 22:28:35 +0000 |
commit | 3950ffe2a485479f6561c27364d3d7df5a21d124 (patch) | |
tree | 468c6e14449d1b1e279222ec32f676b0311917d2 /src/lib/libast/comp/dirname.c | |
download | ksh-upstream.tar.gz |
Imported Upstream version 93u+upstream
Diffstat (limited to 'src/lib/libast/comp/dirname.c')
-rw-r--r-- | src/lib/libast/comp/dirname.c | 61 |
1 files changed, 61 insertions, 0 deletions
diff --git a/src/lib/libast/comp/dirname.c b/src/lib/libast/comp/dirname.c new file mode 100644 index 0000000..b03d734 --- /dev/null +++ b/src/lib/libast/comp/dirname.c @@ -0,0 +1,61 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 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> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +#pragma prototyped +/* + * dirname(3) implementation + */ + +#include <ast_std.h> + +#if defined(__EXPORT__) +#define extern __EXPORT__ +#endif + +extern char *dirname(register char *pathname) +{ + register char *last; + /* go to end of path */ + for(last=pathname; *last; last++); + /* back over trailing '/' */ + while(last>pathname && *--last=='/'); + /* back over non-slash chars */ + for(;last>pathname && *last!='/';last--); + if(last==pathname) + { + /* all '/' or "" */ + if(*last!='/') + *last = '.'; + /* preserve // */ + else if(last[1]=='/') + last++; + } + else + { + /* back over trailing '/' */ + for(;*last=='/' && last > pathname; last--); + /* preserve // */ + if(last==pathname && *pathname=='/' && pathname[1]=='/') + last++; + } + *(last + 1) = 0; + return(pathname); +} |