104 lines
2.8 KiB
C
Executable File
104 lines
2.8 KiB
C
Executable File
/* basename.c
|
|
*
|
|
* $Id$
|
|
*
|
|
* Provides an implementation of the "basename" function, conforming
|
|
* to SUSv3, with extensions to accommodate Win32 drive designators,
|
|
* and suitable for use on native Microsoft(R) Win32 platforms.
|
|
*
|
|
* Written by Keith Marshall <keithmarshall@users.sourceforge.net>
|
|
*
|
|
* This is free software. You may redistribute and/or modify it as you
|
|
* see fit, without restriction of copyright.
|
|
*
|
|
* This software is provided "as is", in the hope that it may be useful,
|
|
* but WITHOUT WARRANTY OF ANY KIND, not even any implied warranty of
|
|
* MERCHANTABILITY, nor of FITNESS FOR ANY PARTICULAR PURPOSE. At no
|
|
* time will the author accept any form of liability for any damages,
|
|
* however caused, resulting from the use of this software.
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <libgen.h>
|
|
|
|
#ifndef __cdecl /* If compiling on any non-Win32 platform ... */
|
|
#define __cdecl /* this may not be defined. */
|
|
#endif
|
|
|
|
__cdecl char *basename( char *path )
|
|
{
|
|
char *retname;
|
|
static char retfail[] = ".";
|
|
|
|
if( path && *path )
|
|
{
|
|
/* step over the drive designator, if present ...
|
|
* (FIXME: maybe should confirm *path is a valid drive designator).
|
|
*/
|
|
|
|
if( path[1] == ':' )
|
|
path += 2;
|
|
|
|
/* check again, just to ensure we still have a non-empty path name ... */
|
|
|
|
if( *path )
|
|
{
|
|
/* and, when we do ...
|
|
* scan from left to right, to the char after the final dir separator
|
|
*/
|
|
|
|
for( retname = path ; *path ; ++path )
|
|
{
|
|
if( (*path == '/') || (*path == '\\') )
|
|
{
|
|
/* we found a dir separator ...
|
|
* step over it, and any others which immediately follow it
|
|
*/
|
|
|
|
while( (*path == '/') || (*path == '\\') )
|
|
++path;
|
|
|
|
/* if we didn't reach the end of the path string ... */
|
|
|
|
if( *path )
|
|
|
|
/* then we have a new candidate for the base name */
|
|
|
|
retname = path;
|
|
|
|
/* otherwise ...
|
|
* strip off any trailing dir separators which we found
|
|
*/
|
|
|
|
else while( (path > retname) && ((*--path == '/') || (*path == '\\')) )
|
|
*path = '\0';
|
|
}
|
|
}
|
|
|
|
/* retname now points at the resolved base name ...
|
|
* if it's not empty, then we return it as it is, otherwise ...
|
|
* we must have had only dir separators in the original path name,
|
|
* so we return "/".
|
|
*/
|
|
|
|
return *retname ? retname : strcpy( retfail, "/" );
|
|
}
|
|
|
|
/* or we had an empty residual path name, after the drive designator,
|
|
* in which case we simply fall through ...
|
|
*/
|
|
}
|
|
|
|
/* and, if we get to here ...
|
|
* the path name is either NULL, or it decomposes to an empty string;
|
|
* in either case, we return the default value of "." in our static buffer,
|
|
* (but strcpy it, just in case the caller trashed it after a previous call).
|
|
*/
|
|
|
|
return strcpy( retfail, "." );
|
|
}
|
|
|
|
/* $RCSfile$: end of file */
|