Return to v9wd.c CVS log

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

Annotation of researchv9/jtools/src/pi/v9wd.c, revision 1.1

1.1     ! root        1: #include "univ.h"
        !             2: #include <CC/sys/types.h>
        !             3: #include <sys/param.h>
        !             4: #include <CC/sys/stat.h>
        !             5: #include <sys/dir.h>
        !             6: #include "wd.h"
        !             7: SRCFILE("wd.c")
        !             8: 
        !             9: void NewWd() { new Wd; }
        !            10: 
        !            11: Wd::Wd()
        !            12: {
        !            13:        pad = new Pad((PadRcv*) this);
        !            14:        pad->name("pwd/cd");
        !            15:        pad->banner("Working Directory:");
        !            16:        prevwd = 0;
        !            17:        pwd();
        !            18: }
        !            19: 
        !            20: Index Wd::carte()
        !            21: {
        !            22:        struct direct dirbuf;
        !            23:        struct stat stbuf;
        !            24:        Menu m;
        !            25: 
        !            26:        trace( "%d.carte()", this );    OK(ZIndex);
        !            27:        int  fd = ::open(".", 0);
        !            28:        if( fd >= 0 ) {
        !            29:                while( read(fd, (char*) &dirbuf, sizeof dirbuf) > 0 ){
        !            30:                        char dn[16];
        !            31:                        sprintf(dn, "%0.14s", dirbuf.d_name);
        !            32:                        int len = strlen(dn);
        !            33:                        if( len>=3 && dn[len-2]=='.' ) continue;
        !            34:                        if( dirbuf.d_ino == 0 
        !            35:                         || ::stat(dn, &stbuf)== -1
        !            36:                         || (stbuf.st_mode&S_IFMT)!=S_IFDIR )
        !            37:                                continue;
        !            38:                        long opand = (long) sf("%s/%s", getwd, dn);
        !            39:                        m.sort(sf("%s\240", dn), (Action)&Wd::kbd, opand);
        !            40:                }
        !            41:                ::close(fd);
        !            42:        }
        !            43:        return m.index();
        !            44: }
        !            45: 
        !            46: char *Getwd()
        !            47: {
        !            48:        char    *dot = ".", *dotdot = "..", *name;
        !            49:        int     file, off = -1;
        !            50:        struct  stat    d, dd;
        !            51:        struct  direct  dir;
        !            52:        int rdev, rino;
        !            53: 
        !            54:        name = "";
        !            55:        ::stat("/", &d);
        !            56:        rdev = d.st_dev;
        !            57:        rino = d.st_ino;
        !            58:        for (;;) {
        !            59:                ::stat(dot, &d);
        !            60:                if(d.st_ino==rino && d.st_dev==rdev) goto ChDir;
        !            61:                if((file = open(dotdot,0)) < 0)
        !            62:                        return "can't get working directory";
        !            63:                fstat(file, &dd);
        !            64:                chdir(dotdot);
        !            65:                if(d.st_dev == dd.st_dev) {
        !            66:                        if(d.st_ino == dd.st_ino) goto ChDir;
        !            67:                        do
        !            68:                                if (read(file,(char*)&dir,sizeof(dir))<sizeof(dir))
        !            69:                                        return "can't get working directory";
        !            70:                        while (dir.d_ino != d.st_ino);
        !            71:                }
        !            72:                else do {
        !            73:                                if(read(file,(char*)&dir,sizeof(dir))<sizeof(dir))
        !            74:                                        return "can't get working directory";
        !            75:                                ::stat(dir.d_name, &dd);        
        !            76:                        } while(dd.st_ino != d.st_ino || dd.st_dev != d.st_dev);
        !            77:                close(file);
        !            78:                name = sf( name[0]?"%s/%s":"%s", dir.d_name, name );
        !            79:        }
        !            80: ChDir:
        !            81:        name =  sf("/%s",name);
        !            82:        if( chdir(name) == -1 ) return "chdir error";
        !            83:        return name;
        !            84: }
        !            85: 
        !            86: char *Wd::help()
        !            87: {
        !            88:        trace( "%d.help()", this );
        !            89:        return "[cd] <path> {change working directory}";
        !            90: }
        !            91: 
        !            92: char *Wd::kbd(char *s)
        !            93: {
        !            94:        trace( "%d.kbd(%s)", this, s );         OK("kbd");
        !            95:        if( s[0]=='c' && s[1]=='d' && (s[2]==' '||s[2]==0) ) s += 2;
        !            96:        while( *s == ' ' ) ++s;
        !            97:        if( *s==0 ){
        !            98:                char *getenv(char*), *e = getenv("HOME");
        !            99:                if( e ) s = e;
        !           100:        }
        !           101:        if( chdir(s) == -1 ){
        !           102:                pad->insert(key++, "cannot cd %s", s);
        !           103:                prevwd = 0;
        !           104:        }
        !           105:        pwd(SELECTLINE);
        !           106:        return 0;
        !           107: }
        !           108: 
        !           109: void Wd::pwd(Attrib a)
        !           110: {
        !           111:        if( prevwd )
        !           112:                pad->insert(key, a, (PadRcv*)this, ix, "%s", getwd);
        !           113:        getwd = Getwd();
        !           114:        ix = carte();
        !           115:        pad->menu(ix);
        !           116:        pad->insert(++key, a|DONT_CUT, (PadRcv*)this, ix, "wd=%s", getwd);
        !           117:        prevwd = getwd;
        !           118: }

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