#include <sys/types.h> #include <sys/stat.h> #include <sys/dir.h> #include "fio.h" #define DIRSIZE 14 g_char(a,alen,b) char *a,*b; ftnlen alen; { char *x=a+alen-1,*y=b+alen-1; *(y+1)=0; for(;x>=a && *x==' ';x--) *y--=0; for(;x>=a;*y--= *x--); } b_char(a,b,blen) char *a,*b; ftnlen blen; { int i; for(i=0;i<blen && *a!=0;i++) *b++= *a++; for(;i<blen;i++) *b++=' '; } inode(a) char *a; { struct stat x; if(stat(a,&x)<0) return(-1); return(x.st_ino); } #define DONE {*bufpos++=0; close(file); return;} #define INTBOUND sizeof(int)-1 #define register mvgbt(n,len,a,b) char *a,*b; { register int num=n*len; if( ((int)a&INTBOUND)==0 && ((int)b&INTBOUND)==0 && (num&INTBOUND)==0 ) { register int *x=(int *)a,*y=(int *)b; num /= sizeof(int); if(x>y) for(;num>0;num--) *y++= *x++; else for(num--;num>=0;num--) *(y+num)= *(x+num); } else { register char *x=a,*y=b; if(x>y) for(;num>0;num--) *y++= *x++; else for(num--;num>=0;num--) *(y+num)= *(x+num); } } char *curdir() { char name[256],*bufpos = name; struct stat x; struct direct y; int file,i; *bufpos++ = 0; loop: stat(".",&x); if((file=open("..",0))<0) goto done; do { if(read(file,&y,sizeof(y))<sizeof(y)) goto done; } while(y.d_ino!=x.st_ino); close(file); if(y.d_ino!=2) { dcat(name,y.d_name); chdir(".."); goto loop; } if(stat(y.d_name,&x)<0 || chdir("/")<0 || (file=open("/",0))<0) goto done; i=x.st_dev; do { if(read(file,&y,sizeof(y))<sizeof(y)) goto done; if(y.d_ino==0) continue; if(stat(y.d_name,&x)<0) goto done; } while(x.st_dev!=i || (x.st_mode&S_IFMT)!=S_IFDIR); if(strcmp(".",y.d_name) || strcmp("..",y.d_name)) dcat(name,y.d_name); dcat(name,"/"); done: bufpos=calloc(strlen(name)+1,1); strcpy(bufpos,name); chdir(name); close(file); return(bufpos); } dcat(a,b) char *a,*b; { int i,j; i=strlen(b); j=strlen(a); mvgbt(1,j+1,a,a+i+1); mvgbt(1,i,b,a); a[i]='/'; } fullpath(a,b,errflag) char *a,*b; { char *a1,*a2,*npart,*dpart,*p; a1=curdir(); npart=NULL; for(p=a;*p!=0;p++) if(*p=='/') npart=p; if(npart==NULL) { dpart=NULL; npart=a; } else { dpart=a; *npart++ = 0; } if(dpart!=NULL) { chdir(dpart); a2=curdir(); strcpy(b,a2); } else { a2=NULL; strcpy(b, a1); } strcat(b,npart); chdir(a1); if(a1!=NULL) { free(a1); a1=NULL; } if(a2!=NULL) { free(a2); } return(0); }