Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtksh/ksh93/src/lib/libcmd/dirname.c

@@ -0,0 +1,125 @@
+/* $XConsortium: dirname.c /main/3 1995/11/01 19:05:19 rswiston $ */
+/***************************************************************
+*                                                              *
+*                      AT&T - PROPRIETARY                      *
+*                                                              *
+*         THIS IS PROPRIETARY SOURCE CODE LICENSED BY          *
+*                          AT&T CORP.                          *
+*                                                              *
+*                Copyright (c) 1995 AT&T Corp.                 *
+*                     All Rights Reserved                      *
+*                                                              *
+*           This software is licensed by AT&T Corp.            *
+*       under the terms and conditions of the license in       *
+*       http://www.research.att.com/orgs/ssr/book/reuse        *
+*                                                              *
+*               This software was created by the               *
+*           Software Engineering Research Department           *
+*                    AT&T Bell Laboratories                    *
+*                                                              *
+*               For further information contact                *
+*                     gsf@research.att.com                     *
+*                                                              *
+***************************************************************/
+
+/* : : generated by proto : : */
+
+#if !defined(__PROTO__)
+#if defined(__STDC__) || defined(__cplusplus) || defined(_proto) || defined(c_plusplus)
+#if defined(__cplusplus)
+#define __MANGLE__	"C"
+#else
+#define __MANGLE__
+#endif
+#define __STDARG__
+#define __PROTO__(x)	x
+#define __OTORP__(x)
+#define __PARAM__(n,o)	n
+#if !defined(__STDC__) && !defined(__cplusplus)
+#if !defined(c_plusplus)
+#define const
+#endif
+#define signed
+#define void		int
+#define volatile
+#define __V_		char
+#else
+#define __V_		void
+#endif
+#else
+#define __PROTO__(x)	()
+#define __OTORP__(x)	x
+#define __PARAM__(n,o)	o
+#define __MANGLE__
+#define __V_		char
+#define const
+#define signed
+#define void		int
+#define volatile
+#endif
+#if defined(__cplusplus) || defined(c_plusplus)
+#define __VARARG__	...
+#else
+#define __VARARG__
+#endif
+#if defined(__STDARG__)
+#define __VA_START__(p,a)	va_start(p,a)
+#else
+#define __VA_START__(p,a)	va_start(p)
+#endif
+#endif
+static const char id[] = "\n@(#)dirname (AT&T Bell Laboratories) 07/17/92\0\n";
+
+#include <cmdlib.h>
+
+static void dirname __PARAM__((register Sfio_t *outfile, register const char *pathname), (outfile, pathname)) __OTORP__(register Sfio_t *outfile; register const char *pathname;){
+	register const char  *last;
+	/* go to end of path */
+	for(last=pathname; *last; last++);
+	/* back over trailing '/' */
+	while(last>pathname && *--last=='/') 1;
+	/* back over non-slash chars */
+	for(;last>pathname && *last!='/';last--);
+	if(last==pathname)
+	{
+		/* all '/' or "" */
+		if(*pathname!='/')
+			last = pathname = ".";
+		/* preserve // */
+		else if(pathname[1]=='/')
+			last++;
+	}
+	else
+	{
+		/* back over trailing '/' */
+		for(;*last=='/' && last > pathname; last--);
+		/* preserve // */
+		if(last==pathname && *pathname=='/' && pathname[1]=='/')
+			last++;
+	}
+	sfwrite(outfile,pathname,last+1-pathname);
+	sfputc(outfile,'\n');
+}
+
+int
+b_dirname __PARAM__((int argc,register char *argv[]), (argc, argv)) __OTORP__(int argc;register char *argv[];){
+	register int n;
+
+	NoP(id[0]);
+	cmdinit(argv);
+	while (n = optget(argv, " pathname")) switch (n)
+	{
+	case ':':
+		error(2, opt_info.arg);
+		break;
+	case '?':
+		error(ERROR_usage(2), opt_info.arg);
+		break;
+	}
+	argv += opt_info.index;
+	argc -= opt_info.index;
+	if(error_info.errors || argc != 1)
+		error(ERROR_usage(2),optusage(NiL));
+	dirname(sfstdout,argv[0]);
+	return(0);
+}