53 lines
1.2 KiB
C
53 lines
1.2 KiB
C
/*
|
|
* $QNXLicenseC:
|
|
* Copyright 2007, QNX Software Systems. All Rights Reserved.
|
|
*
|
|
* You must obtain a written license from and pay applicable license fees to QNX
|
|
* Software Systems before you may reproduce, modify or distribute this software,
|
|
* or any work that includes all or part of this software. Free development
|
|
* licenses are available for evaluation and non-commercial purposes. For more
|
|
* information visit http://licensing.qnx.com or email licensing@qnx.com.
|
|
*
|
|
* This file may contain contributions from others. Please review this entire
|
|
* file for other proprietary rights or license notices, as well as the QNX
|
|
* Development Suite License Guide at http://licensing.qnx.com/license-guide/
|
|
* for other information.
|
|
* $
|
|
*/
|
|
|
|
|
|
|
|
|
|
|
|
char *dirname(char *fname) {
|
|
if(fname) {
|
|
char *dir = fname, *lastslash = 0;
|
|
|
|
while(*fname) {
|
|
if(*fname == '/') {
|
|
char *p;
|
|
|
|
for(p = fname; *p; p++) {
|
|
if(*p != '/') {
|
|
if((lastslash = fname) == dir) {
|
|
lastslash++;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
if(!lastslash && !*p) {
|
|
lastslash = p;
|
|
dir = --p;
|
|
break;
|
|
}
|
|
}
|
|
fname++;
|
|
}
|
|
if(lastslash) {
|
|
*lastslash = '\0';
|
|
return dir;
|
|
}
|
|
}
|
|
return ".";
|
|
}
|