pwd.c revision 39e7390a771e8a17884d4f1558a2a41422b38104
/*
* CDDL HEADER START
*
* The contents of this file are subject to the terms of the
* Common Development and Distribution License (the "License").
* You may not use this file except in compliance with the License.
*
* You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
* or http://www.opensolaris.org/os/licensing.
* See the License for the specific language governing permissions
* and limitations under the License.
*
* When distributing Covered Code, include this CDDL HEADER in each
* file and include the License file at usr/src/OPENSOLARIS.LICENSE.
* If applicable, add the following below this CDDL HEADER, with the
* fields enclosed by brackets "[]" replaced with your own identifying
* information: Portions Copyright [yyyy] [name of copyright owner]
*
* CDDL HEADER END
*/
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
/* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
#pragma ident "%Z%%M% %I% %E% SMI"
/*
* UNIX shell
*/
#include "mac.h"
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <limits.h>
#include "defs.h"
#define DOT '.'
#define NULL 0
#define SLASH '/'
#define PARTLY 2
static void rmslash();
#ifdef __STDC__
extern const char longpwd[];
#else
extern char longpwd[];
#endif
extern char *getcwd();
unsigned char cwdname[PATH_MAX+1];
static int didpwd = FALSE;
void
cwd(unsigned char *dir)
{
unsigned char *pcwd;
unsigned char *pdir;
/* First remove extra /'s */
rmslash(dir);
/* Now remove any .'s */
pdir = dir;
if(*dir == SLASH)
pdir++;
while(*pdir) /* remove /./ by itself */
{
if((*pdir==DOT) && (*(pdir+1)==SLASH))
{
movstr(pdir+2, pdir);
continue;
}
pdir++;
while ((*pdir) && (*pdir != SLASH))
pdir++;
if (*pdir)
pdir++;
}
/* take care of trailing /. */
if(*(--pdir)==DOT && pdir > dir && *(--pdir)==SLASH) {
if(pdir > dir) {
*pdir = NULL;
} else {
*(pdir+1) = NULL;
}
}
/* Remove extra /'s */
rmslash(dir);
/* Now that the dir is canonicalized, process it */
if(*dir==DOT && *(dir+1)==NULL)
{
return;
}
if(*dir==SLASH)
{
/* Absolute path */
pcwd = cwdname;
*pcwd++ = *dir++;
didpwd = PARTLY;
}
else
{
/* Relative path */
if (didpwd == FALSE)
return;
didpwd = PARTLY;
pcwd = cwdname + length(cwdname) - 1;
if(pcwd != cwdname+1)
*pcwd++ = SLASH;
}
while(*dir)
{
if(*dir==DOT &&
*(dir+1)==DOT &&
(*(dir+2)==SLASH || *(dir+2)==NULL))
{
/* Parent directory, so backup one */
if( pcwd > cwdname+2 )
--pcwd;
while(*(--pcwd) != SLASH)
;
pcwd++;
dir += 2;
if(*dir==SLASH)
{
dir++;
}
continue;
}
if (pcwd >= &cwdname[PATH_MAX+1])
{
didpwd=FALSE;
return;
}
*pcwd++ = *dir++;
while((*dir) && (*dir != SLASH))
{
if (pcwd >= &cwdname[PATH_MAX+1])
{
didpwd=FALSE;
return;
}
*pcwd++ = *dir++;
}
if (*dir)
{
if (pcwd >= &cwdname[PATH_MAX+1])
{
didpwd=FALSE;
return;
}
*pcwd++ = *dir++;
}
}
if (pcwd >= &cwdname[PATH_MAX+1])
{
didpwd=FALSE;
return;
}
*pcwd = NULL;
--pcwd;
if(pcwd>cwdname && *pcwd==SLASH)
{
/* Remove trailing / */
*pcwd = NULL;
}
return;
}
void
cwd2()
{
struct stat stat1, stat2;
unsigned char *pcwd;
/* check if there are any symbolic links in pathname */
if(didpwd == FALSE)
return;
pcwd = cwdname + 1;
if(didpwd == PARTLY) {
while (*pcwd)
{
char c;
while((c = *pcwd++) != SLASH && c != '\0');
*--pcwd = '\0';
if (lstat((char *)cwdname, &stat1) == -1
|| (stat1.st_mode & S_IFMT) == S_IFLNK) {
didpwd = FALSE;
*pcwd = c;
return;
}
*pcwd = c;
if(c)
pcwd++;
}
didpwd = TRUE;
} else
if (stat((char *)cwdname, &stat1) == -1) {
didpwd = FALSE;
return;
}
/*
* check if ino's and dev's match; pathname could
* consist of symbolic links with ".."
*/
if (stat(".", &stat2) == -1
|| stat1.st_dev != stat2.st_dev
|| stat1.st_ino != stat2.st_ino)
didpwd = FALSE;
return;
}
unsigned char *
cwdget()
{
cwd2();
if (didpwd == FALSE) {
if (getcwd((char *)cwdname, PATH_MAX+1) == NULL)
*cwdname = 0;
didpwd = TRUE;
}
return (cwdname);
}
/*
* Print the current working directory.
*/
void
cwdprint(void)
{
unsigned char *cp;
cwd2();
if (didpwd == FALSE) {
if (getcwd((char *)cwdname, PATH_MAX+1) == NULL) {
if (errno && errno != ERANGE)
error(badpwd);
else
error(longpwd);
}
didpwd = TRUE;
}
for (cp = cwdname; *cp; cp++) {
prc_buff(*cp);
}
prc_buff(NL);
return;
}
/*
* This routine will remove repeated slashes from string.
*/
static void
rmslash(string)
unsigned char *string;
{
unsigned char *pstring;
pstring = string;
while(*pstring)
{
if(*pstring==SLASH && *(pstring+1)==SLASH)
{
/* Remove repeated SLASH's */
movstr(pstring+1, pstring);
continue;
}
pstring++;
}
--pstring;
if(pstring>string && *pstring==SLASH)
{
/* Remove trailing / */
*pstring = NULL;
}
return;
}