Return to wd.c CVS log

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

Annotation of researchv9/jtools/src/pi/wd.c, revision 1.1.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 <dirent.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 stat stbuf;
                     23:        Menu m;
                     24:        struct dirent *dp;
                     25:        DIR *dirp;
                     26: 
                     27:        dirp = ::opendir(".");
                     28:        if (dirp == NULL)
                     29:                return m.index();
                     30:        for ( dp = ::readdir(dirp); dp!=NULL; dp=::readdir(dirp) ) {
                     31:                char dn[25];
                     32:                sprintf(dn, "%0.25s", dp->d_name);
                     33:                int len = strlen(dn);
                     34:                if( len>=3 && dn[len-2]=='.' ) continue;
                     35:                if( dp->d_ino == 0 
                     36:                 || ::stat(dn, &stbuf)== -1
                     37:                 || (stbuf.st_mode&S_IFMT)!=S_IFDIR )
                     38:                        continue;
                     39:                long opand = (long) sf("%s/%s", getwd, dn);
                     40:                m.sort(sf("%s\240", dn), (Action)&Wd::kbd, opand);
                     41:        }
                     42:        ::closedir(dirp);
                     43:        return m.index();
                     44: }
                     45: 
                     46: char *Getwd()
                     47: {
                     48:        char pathname[MAXPATHLEN];
                     49:        char *getwd(char*);
                     50: 
                     51:        if (getwd(pathname) == 0)
                     52:                return "getwd error";
                     53:        return sf("%s",pathname);
                     54: }
                     55: 
                     56: char *Wd::help()
                     57: {
                     58:        trace( "%d.help()", this );
                     59:        return "[cd] <path> {change working directory}";
                     60: }
                     61: 
                     62: char *Wd::kbd(char *s)
                     63: {
                     64:        trace( "%d.kbd(%s)", this, s );         OK("kbd");
                     65:        if( s[0]=='c' && s[1]=='d' && (s[2]==' '||s[2]==0) ) s += 2;
                     66:        while( *s == ' ' ) ++s;
                     67:        if( *s==0 ){
                     68:                char *getenv(char*), *e = getenv("HOME");
                     69:                if( e ) s = e;
                     70:        }
                     71:        if( chdir(s) == -1 ){
                     72:                pad->insert(key++, "cannot cd %s", s);
                     73:                prevwd = 0;
                     74:        }
                     75:        pwd(SELECTLINE);
                     76:        return 0;
                     77: }
                     78: 
                     79: void Wd::pwd(Attrib a)
                     80: {
                     81:        if( prevwd )
                     82:                pad->insert(key, a, (PadRcv*)this, ix, "%s", getwd);
                     83:        getwd = Getwd();
                     84:        ix = carte();
                     85:        pad->menu(ix);
                     86:        pad->insert(++key, a|DONT_CUT, (PadRcv*)this, ix, "wd=%s", getwd);
                     87:        prevwd = getwd;
                     88: }

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