/*
* NAME: hfs->rmdir()
* DESCRIPTION: delete an empty directory
*/
int hfs_rmdir(hfsvol *vol, char *path)
{
CatKeyRec key;
CatDataRec data;
long parid;
char name[HFS_MAX_FLEN + 1];
unsigned char pkey[HFS_CATKEYLEN];
if (v_getvol(&vol) < 0 ||
v_resolve(&vol, path, &data, &parid, name, 0) <= 0)
return -1;
if (data.cdrType != cdrDirRec)
{
ERROR(ENOTDIR, 0);
return -1;
}
if (data.u.dir.dirVal != 0)
{
ERROR(ENOTEMPTY, 0);
return -1;
}
if (parid == HFS_CNID_ROOTPAR)
{
ERROR(EINVAL, 0);
return -1;
}
if (vol->flags & HFS_READONLY)
{
ERROR(EROFS, 0);
return -1;
}
/* delete directory record */
r_makecatkey(&key, parid, name);
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) < 0)
return -1;
/* delete thread record */
r_makecatkey(&key, data.u.dir.dirDirID, (char *)"");
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) < 0 ||
v_adjvalence(vol, parid, 1, -1) < 0)
return -1;
return 0;
}
/*
* NAME: vol->catsearch()
* DESCRIPTION: search catalog tree
*/
int v_catsearch(hfsvol *vol, long parid, const char *name,
CatDataRec *data, char *cname, node *np)
{
CatKeyRec key;
byte pkey[HFS_CATKEYLEN];
const byte *ptr;
node n;
int found;
if (np == 0)
np = &n;
r_makecatkey(&key, parid, name);
r_packcatkey(&key, pkey, 0);
found = bt_search(&vol->cat, pkey, np);
if (found <= 0)
return found;
ptr = HFS_NODEREC(*np, np->rnum);
if (cname)
{
r_unpackcatkey(ptr, &key);
strcpy(cname, key.ckrCName);
}
if (data)
r_unpackcatdata(HFS_RECDATA(ptr), data);
return 1;
}
/*
* NAME: hfs->opendir()
* DESCRIPTION: prepare to read the contents of a directory
*/
hfsdir *hfs_opendir(hfsvol *vol, const char *path)
{
hfsdir *dir = 0;
CatKeyRec key;
CatDataRec data;
byte pkey[HFS_CATKEYLEN];
if (getvol(&vol) == -1)
goto fail;
dir = ALLOC(hfsdir, 1);
if (dir == 0)
ERROR(ENOMEM, 0);
dir->vol = vol;
if (*path == 0)
{
#ifdef CP_NO_STATIC
/* meta-directory containing root dirs from all mounted volumes */
dir->dirid = 0;
dir->vptr = hfs_mounts;
#else
assert(0);
#endif
}
else
{
if (v_resolve(&vol, path, &data, 0, 0, 0) <= 0)
goto fail;
if (data.cdrType != cdrDirRec)
ERROR(ENOTDIR, 0);
dir->dirid = data.u.dir.dirDirID;
dir->vptr = 0;
r_makecatkey(&key, dir->dirid, "");
r_packcatkey(&key, pkey, 0);
if (bt_search(&vol->cat, pkey, &dir->n) <= 0)
goto fail;
}
dir->prev = 0;
dir->next = vol->dirs;
if (vol->dirs)
vol->dirs->prev = dir;
vol->dirs = dir;
return dir;
fail:
FREE(dir);
return 0;
}
/*
* NAME: hfs->rmdir()
* DESCRIPTION: delete an empty directory
*/
int hfs_rmdir(hfsvol *vol, const char *path)
{
CatKeyRec key;
CatDataRec data;
unsigned long parid;
char name[HFS_MAX_FLEN + 1];
byte pkey[HFS_CATKEYLEN];
if (getvol(&vol) == -1 ||
v_resolve(&vol, path, &data, &parid, name, 0) <= 0)
goto fail;
if (data.cdrType != cdrDirRec)
ERROR(ENOTDIR, 0);
if (data.u.dir.dirVal != 0)
ERROR(ENOTEMPTY, 0);
if (parid == HFS_CNID_ROOTPAR)
ERROR(EINVAL, 0);
if (vol->flags & HFS_VOL_READONLY)
ERROR(EROFS, 0);
/* delete directory record */
r_makecatkey(&key, parid, name);
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) == -1)
goto fail;
/* delete thread record */
r_makecatkey(&key, data.u.dir.dirDirID, "");
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) == -1 ||
v_adjvalence(vol, parid, 1, -1) == -1)
goto fail;
return 0;
fail:
return -1;
}
/*
* NAME: vol->newfolder()
* DESCRIPTION: create a new HFS folder
*/
int v_newfolder(hfsvol *vol, long parid, char *name)
{
CatKeyRec key;
CatDataRec data;
long id;
unsigned char record[HFS_CATRECMAXLEN];
int i, reclen;
if (bt_space(&vol->cat, 2) < 0)
return -1;
id = vol->mdb.drNxtCNID++;
vol->flags |= HFS_UPDATE_MDB;
/* create directory record */
data.cdrType = cdrDirRec;
data.cdrResrv2 = 0;
data.u.dir.dirFlags = 0;
data.u.dir.dirVal = 0;
data.u.dir.dirDirID = id;
#ifdef UHFS
data.u.dir.dirCrDat = 0;
#else
data.u.dir.dirCrDat = d_tomtime(time(0));
#endif
data.u.dir.dirMdDat = data.u.dir.dirCrDat;
data.u.dir.dirBkDat = 0;
memset(&data.u.dir.dirUsrInfo, 0, sizeof(data.u.dir.dirUsrInfo));
memset(&data.u.dir.dirFndrInfo, 0, sizeof(data.u.dir.dirFndrInfo));
for (i = 0; i < 4; ++i)
data.u.dir.dirResrv[i] = 0;
r_makecatkey(&key, parid, name);
r_packcatkey(&key, record, &reclen);
r_packcatdata(&data, HFS_RECDATA(record), &reclen);
if (bt_insert(&vol->cat, record, reclen) < 0)
return -1;
/* create thread record */
data.cdrType = cdrThdRec;
data.cdrResrv2 = 0;
data.u.dthd.thdResrv[0] = 0;
data.u.dthd.thdResrv[1] = 0;
data.u.dthd.thdParID = parid;
strcpy(data.u.dthd.thdCName, name);
r_makecatkey(&key, id, "");
r_packcatkey(&key, record, &reclen);
r_packcatdata(&data, HFS_RECDATA(record), &reclen);
if (bt_insert(&vol->cat, record, reclen) < 0 ||
v_adjvalence(vol, parid, 1, 1) < 0)
return -1;
return 0;
}
/*
* NAME: record->packcatrec()
* DESCRIPTION: create a packed catalog record
*/
void r_packcatrec(const CatKeyRec *key, const CatDataRec *data,
byte *precord, int *len)
{
r_packcatkey(key, precord, len);
r_packcatdata(data, HFS_RECDATA(precord), len);
}
/*
* NAME: hfs->rename()
* DESCRIPTION: change the name of and/or move a file or directory
*/
int hfs_rename(hfsvol *vol, const char *srcpath, const char *dstpath)
{
hfsvol *srcvol;
CatDataRec src, dst;
unsigned long srcid, dstid;
CatKeyRec key;
char srcname[HFS_MAX_FLEN + 1], dstname[HFS_MAX_FLEN + 1];
byte record[HFS_MAX_CATRECLEN];
unsigned int reclen;
int found, isdir, moving;
node n;
if (getvol(&vol) == -1 ||
v_resolve(&vol, srcpath, &src, &srcid, srcname, 0) <= 0)
goto fail;
isdir = (src.cdrType == cdrDirRec);
srcvol = vol;
found = v_resolve(&vol, dstpath, &dst, &dstid, dstname, 0);
if (found == -1)
goto fail;
if (vol != srcvol)
ERROR(EINVAL, "can't move across volumes");
if (dstid == 0)
ERROR(ENOENT, "bad destination path");
if (found &&
dst.cdrType == cdrDirRec &&
dst.u.dir.dirDirID != src.u.dir.dirDirID)
{
dstid = dst.u.dir.dirDirID;
strcpy(dstname, srcname);
found = v_catsearch(vol, dstid, dstname, 0, 0, 0);
if (found == -1)
goto fail;
}
moving = (srcid != dstid);
if (found)
{
const char *ptr;
ptr = strrchr(dstpath, ':');
if (ptr == 0)
ptr = dstpath;
else
++ptr;
if (*ptr)
strcpy(dstname, ptr);
if (! moving && strcmp(srcname, dstname) == 0)
goto done; /* source and destination are identical */
if (moving || d_relstring(srcname, dstname))
ERROR(EEXIST, "can't use destination name");
}
/* can't move anything into the root directory's parent */
if (moving && dstid == HFS_CNID_ROOTPAR)
ERROR(EINVAL, "can't move above root directory");
if (moving && isdir)
{
unsigned long id;
/* can't move root directory anywhere */
if (src.u.dir.dirDirID == HFS_CNID_ROOTDIR)
ERROR(EINVAL, "can't move root directory");
/* make sure we aren't trying to move a directory inside itself */
for (id = dstid; id != HFS_CNID_ROOTDIR; id = dst.u.dthd.thdParID)
{
if (id == src.u.dir.dirDirID)
ERROR(EINVAL, "can't move directory inside itself");
if (v_getdthread(vol, id, &dst, 0) <= 0)
goto fail;
}
}
if (vol->flags & HFS_VOL_READONLY)
ERROR(EROFS, 0);
/* change volume name */
if (dstid == HFS_CNID_ROOTPAR)
{
if (! validvname(dstname))
goto fail;
strcpy(vol->mdb.drVN, dstname);
vol->flags |= HFS_VOL_UPDATE_MDB;
}
/* remove source record */
r_makecatkey(&key, srcid, srcname);
r_packcatkey(&key, record, 0);
if (bt_delete(&vol->cat, record) == -1)
goto fail;
/* insert destination record */
r_makecatkey(&key, dstid, dstname);
r_packcatrec(&key, &src, record, &reclen);
if (bt_insert(&vol->cat, record, reclen) == -1)
goto fail;
/* update thread record */
if (isdir)
{
if (v_getdthread(vol, src.u.dir.dirDirID, &dst, &n) <= 0)
goto fail;
dst.u.dthd.thdParID = dstid;
strcpy(dst.u.dthd.thdCName, dstname);
if (v_putcatrec(&dst, &n) == -1)
goto fail;
}
else
{
found = v_getfthread(vol, src.u.fil.filFlNum, &dst, &n);
if (found == -1)
goto fail;
if (found)
{
dst.u.fthd.fthdParID = dstid;
strcpy(dst.u.fthd.fthdCName, dstname);
if (v_putcatrec(&dst, &n) == -1)
goto fail;
}
}
/* update directory valences */
if (moving)
{
if (v_adjvalence(vol, srcid, isdir, -1) == -1 ||
v_adjvalence(vol, dstid, isdir, 1) == -1)
goto fail;
}
done:
return 0;
fail:
return -1;
}
/*
* NAME: hfs->delete()
* DESCRIPTION: remove both forks of a file
*/
int hfs_delete(hfsvol *vol, const char *path)
{
hfsfile file;
CatKeyRec key;
byte pkey[HFS_CATKEYLEN];
int found;
if (getvol(&vol) == -1 ||
v_resolve(&vol, path, &file.cat, &file.parid, file.name, 0) <= 0)
goto fail;
if (file.cat.cdrType != cdrFilRec)
ERROR(EISDIR, 0);
if (file.parid == HFS_CNID_ROOTPAR)
ERROR(EINVAL, 0);
if (vol->flags & HFS_VOL_READONLY)
ERROR(EROFS, 0);
/* free allocation blocks */
file.vol = vol;
file.flags = 0;
file.cat.u.fil.filLgLen = 0;
file.cat.u.fil.filRLgLen = 0;
f_selectfork(&file, fkData);
if (f_trunc(&file) == -1)
goto fail;
f_selectfork(&file, fkRsrc);
if (f_trunc(&file) == -1)
goto fail;
/* delete file record */
r_makecatkey(&key, file.parid, file.name);
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) == -1 ||
v_adjvalence(vol, file.parid, 0, -1) == -1)
goto fail;
/* delete file thread, if any */
found = v_getfthread(vol, file.cat.u.fil.filFlNum, 0, 0);
if (found == -1)
goto fail;
if (found)
{
r_makecatkey(&key, file.cat.u.fil.filFlNum, "");
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) == -1)
goto fail;
}
return 0;
fail:
return -1;
}
/*
* NAME: hfs->opendir()
* DESCRIPTION: prepare to read the contents of a directory
*/
hfsdir *hfs_opendir(hfsvol *vol, char *path)
{
hfsdir *dir;
CatKeyRec key;
CatDataRec data;
unsigned char pkey[HFS_CATKEYLEN];
if (v_getvol(&vol) < 0)
return 0;
dir = ALLOC(hfsdir, 1);
if (dir == 0)
{
ERROR(ENOMEM, 0);
return 0;
}
dir->vol = vol;
if (*path == 0)
{
/* meta-directory containing root dirs from all mounted volumes */
dir->dirid = 0;
dir->vptr = hfs_mounts;
}
else
{
if (v_resolve(&vol, path, &data, 0, 0, 0) <= 0)
{
FREE(dir);
return 0;
}
if (data.cdrType != cdrDirRec)
{
FREE(dir);
ERROR(ENOTDIR, 0);
return 0;
}
dir->dirid = data.u.dir.dirDirID;
dir->vptr = 0;
r_makecatkey(&key, dir->dirid, (char *)"");
r_packcatkey(&key, pkey, 0);
if (bt_search(&vol->cat, pkey, &dir->n) <= 0)
{
FREE(dir);
return 0;
}
}
dir->prev = 0;
dir->next = vol->dirs;
if (vol->dirs)
vol->dirs->prev = dir;
vol->dirs = dir;
return dir;
}
/*
* NAME: hfs->delete()
* DESCRIPTION: remove both forks of a file
*/
int hfs_delete(hfsvol *vol, char *path)
{
hfsfile file;
CatKeyRec key;
unsigned char pkey[HFS_CATKEYLEN];
int found;
if (v_getvol(&vol) < 0 ||
v_resolve(&vol, path, &file.cat, &file.parid, file.name, 0) <= 0)
return -1;
if (file.cat.cdrType != cdrFilRec)
{
ERROR(EISDIR, 0);
return -1;
}
if (file.parid == HFS_CNID_ROOTPAR)
{
ERROR(EINVAL, 0);
return -1;
}
if (vol->flags & HFS_READONLY)
{
ERROR(EROFS, 0);
return -1;
}
/* free disk blocks */
file.vol = vol;
file.flags = 0;
file.cat.u.fil.filLgLen = 0;
file.cat.u.fil.filRLgLen = 0;
f_selectfork(&file, 0);
if (f_trunc(&file) < 0)
return -1;
f_selectfork(&file, 1);
if (f_trunc(&file) < 0)
return -1;
/* delete file record */
r_makecatkey(&key, file.parid, file.name);
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) < 0 ||
v_adjvalence(vol, file.parid, 0, -1) < 0)
return -1;
/* delete file thread, if any */
found = v_getfthread(vol, file.cat.u.fil.filFlNum, 0, 0);
if (found < 0)
return -1;
if (found)
{
r_makecatkey(&key, file.cat.u.fil.filFlNum, (char *)"");
r_packcatkey(&key, pkey, 0);
if (bt_delete(&vol->cat, pkey) < 0)
return -1;
}
return 0;
}
/*
* NAME: hfs->create()
* DESCRIPTION: create a new file
*/
int hfs_create(hfsvol *vol, char *path, char *type, char *creator)
{
CatKeyRec key;
CatDataRec data;
long id, parid;
char name[HFS_MAX_FLEN + 1];
unsigned char record[HFS_CATRECMAXLEN];
int found, i, reclen;
if (v_getvol(&vol) < 0)
return -1;
found = v_resolve(&vol, path, &data, &parid, name, 0);
if (found < 0 || parid == 0)
return -1;
else if (found)
{
ERROR(EEXIST, 0);
return -1;
}
if (parid == HFS_CNID_ROOTPAR)
{
ERROR(EINVAL, 0);
return -1;
}
if (vol->flags & HFS_READONLY)
{
ERROR(EROFS, 0);
return -1;
}
/* create file `name' in parent `parid' */
if (bt_space(&vol->cat, 1) < 0)
return -1;
id = vol->mdb.drNxtCNID++;
vol->flags |= HFS_UPDATE_MDB;
/* create file record */
data.cdrType = cdrFilRec;
data.cdrResrv2 = 0;
data.u.fil.filFlags = 0;
data.u.fil.filTyp = 0;
memset(&data.u.fil.filUsrWds, 0, sizeof(data.u.fil.filUsrWds));
data.u.fil.filUsrWds.fdType = d_getl((unsigned char *) type);
data.u.fil.filUsrWds.fdCreator = d_getl((unsigned char *) creator);
data.u.fil.filFlNum = id;
data.u.fil.filStBlk = 0;
data.u.fil.filLgLen = 0;
data.u.fil.filPyLen = 0;
data.u.fil.filRStBlk = 0;
data.u.fil.filRLgLen = 0;
data.u.fil.filRPyLen = 0;
data.u.fil.filCrDat = d_tomtime(/*time*/(0));
data.u.fil.filMdDat = data.u.fil.filCrDat;
data.u.fil.filBkDat = 0;
memset(&data.u.fil.filFndrInfo, 0, sizeof(data.u.fil.filFndrInfo));
data.u.fil.filClpSize = 0;
for (i = 0; i < 3; ++i)
{
data.u.fil.filExtRec[i].xdrStABN = 0;
data.u.fil.filExtRec[i].xdrNumABlks = 0;
data.u.fil.filRExtRec[i].xdrStABN = 0;
data.u.fil.filRExtRec[i].xdrNumABlks = 0;
}
data.u.fil.filResrv = 0;
r_makecatkey(&key, parid, name);
r_packcatkey(&key, record, &reclen);
r_packcatdata(&data, HFS_RECDATA(record), &reclen);
if (bt_insert(&vol->cat, record, reclen) < 0 ||
v_adjvalence(vol, parid, 0, 1) < 0)
return -1;
return 0;
}
