Return to v9wd.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

researchv9-SUN3(old)

#include "univ.h"
#include <CC/sys/types.h>
#include <sys/param.h>
#include <CC/sys/stat.h>
#include <sys/dir.h>
#include "wd.h"
SRCFILE("wd.c")

void NewWd() { new Wd; }

Wd::Wd()
{
	pad = new Pad((PadRcv*) this);
	pad->name("pwd/cd");
	pad->banner("Working Directory:");
	prevwd = 0;
	pwd();
}

Index Wd::carte()
{
	struct direct dirbuf;
	struct stat stbuf;
	Menu m;

	trace( "%d.carte()", this );	OK(ZIndex);
	int  fd = ::open(".", 0);
	if( fd >= 0 ) {
		while( read(fd, (char*) &dirbuf, sizeof dirbuf) > 0 ){
			char dn[16];
			sprintf(dn, "%0.14s", dirbuf.d_name);
			int len = strlen(dn);
			if( len>=3 && dn[len-2]=='.' ) continue;
			if( dirbuf.d_ino == 0 
			 || ::stat(dn, &stbuf)== -1
			 || (stbuf.st_mode&S_IFMT)!=S_IFDIR )
				continue;
			long opand = (long) sf("%s/%s", getwd, dn);
			m.sort(sf("%s\240", dn), (Action)&Wd::kbd, opand);
		}
		::close(fd);
	}
	return m.index();
}

char *Getwd()
{
	char	*dot = ".", *dotdot = "..", *name;
	int	file, off = -1;
	struct	stat	d, dd;
	struct	direct	dir;
	int rdev, rino;

	name = "";
	::stat("/", &d);
	rdev = d.st_dev;
	rino = d.st_ino;
	for (;;) {
		::stat(dot, &d);
		if(d.st_ino==rino && d.st_dev==rdev) goto ChDir;
		if((file = open(dotdot,0)) < 0)
			return "can't get working directory";
		fstat(file, &dd);
		chdir(dotdot);
		if(d.st_dev == dd.st_dev) {
			if(d.st_ino == dd.st_ino) goto ChDir;
			do
				if (read(file,(char*)&dir,sizeof(dir))<sizeof(dir))
					return "can't get working directory";
			while (dir.d_ino != d.st_ino);
		}
		else do {
				if(read(file,(char*)&dir,sizeof(dir))<sizeof(dir))
					return "can't get working directory";
				::stat(dir.d_name, &dd);	
			} while(dd.st_ino != d.st_ino || dd.st_dev != d.st_dev);
		close(file);
		name = sf( name[0]?"%s/%s":"%s", dir.d_name, name );
	}
ChDir:
	name =  sf("/%s",name);
	if( chdir(name) == -1 ) return "chdir error";
	return name;
}

char *Wd::help()
{
	trace( "%d.help()", this );
	return "[cd] <path> {change working directory}";
}

char *Wd::kbd(char *s)
{
	trace( "%d.kbd(%s)", this, s );		OK("kbd");
	if( s[0]=='c' && s[1]=='d' && (s[2]==' '||s[2]==0) ) s += 2;
	while( *s == ' ' ) ++s;
	if( *s==0 ){
		char *getenv(char*), *e = getenv("HOME");
		if( e ) s = e;
	}
	if( chdir(s) == -1 ){
		pad->insert(key++, "cannot cd %s", s);
		prevwd = 0;
	}
	pwd(SELECTLINE);
	return 0;
}

void Wd::pwd(Attrib a)
{
	if( prevwd )
		pad->insert(key, a, (PadRcv*)this, ix, "%s", getwd);
	getwd = Getwd();
	ix = carte();
	pad->menu(ix);
	pad->insert(++key, a|DONT_CUT, (PadRcv*)this, ix, "wd=%s", getwd);
	prevwd = getwd;
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.