/* p: start of path element to crack * d: ptr to destination buffer * dirspec: true = no file name, just dir path */ static int getpath(const char *p, char *d, int dirspec) { register int i, i2 ; register const char *p1 ; for( i = 0 , p1 = p ; *p1 && (*p1 != SLASH) ; p1++ , i++ ) ; /* ** If the string we have just scanned over is a directory name, it ** will either be terminated by a SLASH, or 'dirspec' will be set ** indicating that we are dealing with a directory path only ** (no file name at the end). */ if( *p1 != '\0' || dirspec ) { /* directory name */ i2 = 0 ; if (p[0] == '.') /* dots in name */ { i2--; /* -1 for dot */ if (p[1] == '.') i2--; /* -2 for dotdot */ return(i2); } if( i ) /* if not null path el */ builds(p,d); /* d => dir style fn */ return(i); /* return nbr chars */ } return(0); /* if string is a file name */ }
/* name: path name of file * attr: atttributes */ long ixcreat(char *name, char attr) { DND *dn; OFD *fd; FCB *f; const char *s; char n[2], a[11]; /* M01.01.03 */ int i, f2; /* M01.01.03 */ long pos, rc; n[0] = (char)ERASE_MARKER; n[1] = 0; /* first find path */ if ((long)(dn = findit(name,&s,0)) < 0) /* M01.01.1212.01 */ return (long)dn; if (!dn) /* M01.01.1214.01 */ return EPTHNF; if (!*s || (*s == '.')) /* no file name || '.' || '..' */ return EPTHNF; /* M01.01.0721.01 */ if (contains_illegal_characters(s)) return EACCDN; /* * if the volume label attribute is set, no others are allowed */ if ((attr&FA_VOL) && (attr != FA_VOL)) return EACCDN; /* * volume labels may only be created in the root */ if ((attr == FA_VOL) && dn->d_parent) return EACCDN; if (!(fd = dn->d_ofd)) fd = makofd(dn); /* makofd() also updates dn->d_ofd */ /* * if a matching file already exists, we delete it first. note * that the definition of matching, and the action taken, differs * depending on whether the file is a volume label or not: * . for a volume label, *any* existing volume label matches * and will be deleted (reference: Rainbow TOS Release Notes) * . for other files, the name must match, and the existing * file will be deleted unless (a) it's read-only or a folder * or (b) the file being created is a folder. */ pos = 0; if (attr == FA_VOL) f = scan(dn,"*.*",FA_VOL,&pos); else f = scan(dn,s,FA_NORM|FA_SUBDIR,&pos); if (f) /* found matching file / label */ { if (attr != FA_VOL) /* for normal files, need to check more stuff */ { /* M01.01.0730.01 */ if ((f->f_attrib & (FA_SUBDIR | FA_RO)) || (attr == FA_SUBDIR)) return EACCDN; /* subdir or read only */ } pos -= 32; ixdel(dn,f,pos); } else pos = 0; /* now scan for empty space */ /* M01.01.SCC.FS.02 */ while( !( f = scan(dn,n,0xff,&pos) ) ) { /* not in current dir, need to grow */ if (!fd->o_dnode) /* but can't grow root */ return EACCDN; if ( nextcl(fd,1) ) return EACCDN; f = dirinit(dn); pos = 0; } builds(s,a); pos -= 32; f->f_attrib = attr; for (i = 0; i < 10; i++) f->f_fill[i] = 0; f->f_td.time = current_time; swpw(f->f_td.time); f->f_td.date = current_date; swpw(f->f_td.date); f->f_clust = 0; f->f_fileln = 0; ixlseek(fd,pos); ixwrite(fd,11L,a); /* write name, set dirty flag */ ixclose(fd,CL_DIR); /* partial close to flush */ ixlseek(fd,pos); s = (char*) ixread(fd,32L,NULL); f2 = rc = opnfil((FCB*)s,dn,(f->f_attrib&FA_RO)?RO_MODE:RW_MODE); if (rc < 0) return rc; getofd(f2)->o_flag |= O_DIRTY; return f2; }
/*ARGSUSED*/ long xrename(int n, char *p1, char *p2) { register OFD *fd2; OFD *f1,*fd; FCB *f; DND *dn1,*dn2; const char *s1,*s2; char buf[11]; int hnew,att; long rc, h1; if (!ixsfirst(p2,0,(DTAINFO *)0L)) return(EACCDN); if ((long)(dn1 = findit(p1,&s1,0)) < 0) /* M01.01.1212.01 */ return( (long)dn1 ); if (!dn1) /* M01.01.1214.01 */ return( EPTHNF ); if ((long)(dn2 = findit(p2,&s2,0)) < 0) /* M01.01.1212.01 */ return( (long)dn2 ); if (!dn2) /* M01.01.1214.01 */ return( EPTHNF ); if (contains_illegal_characters(s2)) return( EACCDN ) ; if ((h1 = xopen(p1, 2)) < 0L) return (h1); f1 = getofd ((int)h1); fd = f1->o_dirfil; buf[0] = 0xe5; ixlseek(fd,f1->o_dirbyt); if (dn1 != dn2) { /* get old attribute */ f = (FCB *) ixread(fd,32L,NULLPTR); att = f->f_attrib; /* erase (0xe5) old file */ ixlseek(fd,f1->o_dirbyt); ixwrite(fd,1L,buf); /* copy time/date/clust, etc. */ ixlseek(fd,f1->o_dirbyt + 22); ixread(fd,10L,buf); hnew = xcreat(p2,att); fd2 = getofd(hnew); ixlseek(fd2->o_dirfil,fd2->o_dirbyt + 22); ixwrite(fd2->o_dirfil,10L,buf); fd2->o_flag &= ~O_DIRTY; xclose(hnew); ixclose(fd2->o_dirfil,CL_DIR); } else { builds(s2,buf); ixwrite(fd,11L,buf); } if ((rc = xclose((int)h1)) < 0L) return(rc); return(ixclose(fd,CL_DIR)); }
FCB *scan(register DND *dnd, const char *n, WORD att, LONG *posp) { char name[12]; register FCB *fcb; OFD *fd; DND *dnd1; BOOL m; /* T: found a matching FCB */ #if DBGFSDIR kprintf("scan(%p, '%s', 0x%x, %p)\n", dnd, n, att, posp); #endif m = 0; /* have_match = false */ builds(n,name); /* format name into dir format */ name[11] = att; dnd1 = 0; /* dummy to avoid warning */ /* ** if there is no open file descr for this directory, make one */ if (!(fd = dnd->d_ofd)) { if (!(dnd->d_ofd = (fd = makofd(dnd)))) { return ( (FCB *) 0 ); } } /* ** seek to desired starting position. If posp == -1, then start at ** the beginning. */ ixlseek( fd , (*posp == -1) ? 0L : *posp ) ; /* ** scan thru the directory file, looking for a match */ while ((fcb = (FCB *) ixread(fd,32L,NULLPTR)) && (fcb->f_name[0])) { /* ** Add New DND. ** ( iff after scan ptr && complete flag not set && not a . ** or .. && subdirectory && not deleted ) M01.01.0512.01 */ if( (fcb->f_attrib & FA_SUBDIR) && #if ! M0101052901 (!(fd->o_flag & O_COMPLETE)) && #endif (fcb->f_name[0] != '.') && (fcb->f_name[0] != (char)0xe5) ) { /* see if we already have it */ dnd1 = getdnd( &fcb->f_name[0] , dnd ) ; if (!dnd1) if (!(dnd1 = makdnd(dnd,fcb))) return( NULLPTR ) ; } if ( (m = match( name , fcb->f_name )) ) break; } #if DBGFSDIR kprintf("\n scan(pos=%ld DND=%08lx DNDfoundFile=%08lx name=%s name1=%s, %d)", (long)fd->o_bytnum, (long)dnd, (long)dnd1, fcb->f_name, name, m); #endif /* restore directory scanning pointer */ if( *posp != -1L ) *posp = fd->o_bytnum ; /* ** if there was no match, but we were looking for a deleted entry, ** then return a pointer to a deleted fcb. Otherwise, if there was ** no match, return a null pointer */ if (!m) { /* assumes that (*n != 0xe5) (if posp == -1) */ if( fcb && (*n == (char)0xe5) ) return(fcb) ; #if ! M0101052901 fd->o_flag |= O_COMPLETE; #endif return( (FCB *) 0 ); } if (*posp == -1) { /* seek to position of found entry */ ixlseek(fd,fd->o_bytnum - 32); return(((FCB *) dnd1)); } return(fcb); }