da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner* Copyright (c) 1992-2010 AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin* by AT&T Intellectual Property *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* http://www.opensource.org/licenses/cpl1.0.txt *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * David Korn
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Bell Laboratories
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * namebase pathname [suffix]
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * print the namebase of a pathname
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char usage[] =
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[-?\n@(#)$Id: basename (AT&T Research) 1999-04-10 $\n]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinUSAGE_LICENSE
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+NAME?basename - strip directory and suffix from filenames]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+DESCRIPTION?\bbasename\b removes all leading directory components "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "from the file name defined by \astring\a. If the file name "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "defined by \astring\a has a suffix that ends in \asuffix\a, "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "it is removed as well.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+?If \astring\a consists solely of \b/\b characters the output will "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "be a single \b/\b unless \bPATH_LEADING_SLASHES\b returned by "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "\bgetconf\b(1) is \b1\b and \astring\a consists of multiple "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "\b/\b characters in which case \b//\b will be output. "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "Otherwise, trailing \b/\b characters are removed, and if "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "there are any remaining \b/\b characters in \astring\a, "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "all characters up to and including the last \b/\b are removed. "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "Finally, if \asuffix\a is specified, and is identical the end "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "of \astring\a, these characters are removed. The characters "
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "not removed from \astring\a will be written to standard output.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\n string [suffix]\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"\n"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+EXIT STATUS?]{"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+0?Successful Completion.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin "[+>0?An error occurred.]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"}"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin"[+SEE ALSO?\bdirname\b(1), \bgetconf\b(1), \bbasename\b(3)]"
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <cmd.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic void namebase(Sfio_t *outfile, register char *pathname, char *suffix)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *first, *last;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n=0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(first=last=pathname; *last; last++);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* back over trailing '/' */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(last>first)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(*--last=='/' && last > first);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(last==first && *last=='/')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* all '/' or "" */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*first=='/')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*++last=='/') /* keep leading // */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin last++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(first=last++;first>pathname && *first!='/';first--);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*first=='/')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin first++;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* check for trailing suffix */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(suffix && (n=strlen(suffix)) && n<(last-first))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(memcmp(last-n,suffix,n)==0)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin last -=n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(last>first)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(outfile,first,last-first);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,'\n');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinb_basename(int argc,register char *argv[], void* context)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cmdinit(argc, argv, context, ERROR_CATALOG, 0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while (n = optget(argv, usage)) switch (n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(2, "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2), "%s", opt_info.arg);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argc -= opt_info.index;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors || argc < 1 || argc > 2)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin error(ERROR_usage(2), "%s", optusage(NiL));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin namebase(sfstdout,argv[0],argv[1]);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(0);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin