1*b30d1939SAndy Fiddaman /*********************************************************************** 2*b30d1939SAndy Fiddaman * * 3*b30d1939SAndy Fiddaman * This software is part of the ast package * 4*b30d1939SAndy Fiddaman * Copyright (c) 1985-2011 AT&T Intellectual Property * 5*b30d1939SAndy Fiddaman * and is licensed under the * 6*b30d1939SAndy Fiddaman * Eclipse Public License, Version 1.0 * 7*b30d1939SAndy Fiddaman * by AT&T Intellectual Property * 8*b30d1939SAndy Fiddaman * * 9*b30d1939SAndy Fiddaman * A copy of the License is available at * 10*b30d1939SAndy Fiddaman * http://www.eclipse.org/org/documents/epl-v10.html * 11*b30d1939SAndy Fiddaman * (with md5 checksum b35adb5213ca9657e911e9befb180842) * 12*b30d1939SAndy Fiddaman * * 13*b30d1939SAndy Fiddaman * Information and Software Systems Research * 14*b30d1939SAndy Fiddaman * AT&T Research * 15*b30d1939SAndy Fiddaman * Florham Park NJ * 16*b30d1939SAndy Fiddaman * * 17*b30d1939SAndy Fiddaman * Glenn Fowler <gsf@research.att.com> * 18*b30d1939SAndy Fiddaman * David Korn <dgk@research.att.com> * 19*b30d1939SAndy Fiddaman * Phong Vo <kpv@research.att.com> * 20*b30d1939SAndy Fiddaman * * 21*b30d1939SAndy Fiddaman ***********************************************************************/ 22*b30d1939SAndy Fiddaman #pragma prototyped 23*b30d1939SAndy Fiddaman /* 24*b30d1939SAndy Fiddaman * dirname(3) implementation 25*b30d1939SAndy Fiddaman */ 26*b30d1939SAndy Fiddaman 27*b30d1939SAndy Fiddaman #include <ast_std.h> 28*b30d1939SAndy Fiddaman 29*b30d1939SAndy Fiddaman #if defined(__EXPORT__) 30*b30d1939SAndy Fiddaman #define extern __EXPORT__ 31*b30d1939SAndy Fiddaman #endif 32*b30d1939SAndy Fiddaman dirname(register char * pathname)33*b30d1939SAndy Fiddamanextern char *dirname(register char *pathname) 34*b30d1939SAndy Fiddaman { 35*b30d1939SAndy Fiddaman register char *last; 36*b30d1939SAndy Fiddaman /* go to end of path */ 37*b30d1939SAndy Fiddaman for(last=pathname; *last; last++); 38*b30d1939SAndy Fiddaman /* back over trailing '/' */ 39*b30d1939SAndy Fiddaman while(last>pathname && *--last=='/'); 40*b30d1939SAndy Fiddaman /* back over non-slash chars */ 41*b30d1939SAndy Fiddaman for(;last>pathname && *last!='/';last--); 42*b30d1939SAndy Fiddaman if(last==pathname) 43*b30d1939SAndy Fiddaman { 44*b30d1939SAndy Fiddaman /* all '/' or "" */ 45*b30d1939SAndy Fiddaman if(*last!='/') 46*b30d1939SAndy Fiddaman *last = '.'; 47*b30d1939SAndy Fiddaman /* preserve // */ 48*b30d1939SAndy Fiddaman else if(last[1]=='/') 49*b30d1939SAndy Fiddaman last++; 50*b30d1939SAndy Fiddaman } 51*b30d1939SAndy Fiddaman else 52*b30d1939SAndy Fiddaman { 53*b30d1939SAndy Fiddaman /* back over trailing '/' */ 54*b30d1939SAndy Fiddaman for(;*last=='/' && last > pathname; last--); 55*b30d1939SAndy Fiddaman /* preserve // */ 56*b30d1939SAndy Fiddaman if(last==pathname && *pathname=='/' && pathname[1]=='/') 57*b30d1939SAndy Fiddaman last++; 58*b30d1939SAndy Fiddaman } 59*b30d1939SAndy Fiddaman *(last + 1) = 0; 60*b30d1939SAndy Fiddaman return(pathname); 61*b30d1939SAndy Fiddaman } 62