291 lines
6.8 KiB
C++
291 lines
6.8 KiB
C++
//ISO1 is ISO9660
|
|
//ISO2 is ISO13490
|
|
//ISO3 is ISO13346
|
|
|
|
Bool ISODrvInit(CDrv *dv,I64 blk)
|
|
{
|
|
CBlkDev *bd=dv->bd;
|
|
I64 spc=bd->blk_size>>BLK_SIZE_BITS,i=blk/spc;
|
|
CISO1PriDesc *iso=MAlloc(bd->blk_size);
|
|
CISO1DirEntry *de;
|
|
Bool unlock,result=FALSE;
|
|
U8 buf[8];
|
|
|
|
try {
|
|
unlock=DrvLock(dv);
|
|
dv->type=DVT_ISO9660; //default
|
|
dv->spc=spc;
|
|
dv->base_offset=dv->data_area=dv->root_cluster=dv->size=0;
|
|
while (TRUE) {
|
|
dv->size=MaxI64(dv->size,(i+1)*spc);
|
|
RBlks(dv,iso,i*spc,spc);
|
|
buf[0](U32)=iso->id[0](U32);
|
|
buf[4](U16)=iso->id[4](U8);
|
|
switch (LstMatch(buf,"CD001\0CDW02\0BEA01\0BOOT2\0NSR02\0NSR03\0TEA01\0",
|
|
LMF_EXACT)) {
|
|
case 0:
|
|
dv->type=DVT_ISO9660;
|
|
switch (iso->type) {
|
|
case ISO1T_SUPPLEMENTARY_DESC:
|
|
dv->data_area=0;
|
|
de=&iso->root_dir_record;
|
|
dv->root_cluster=de->loc.little;
|
|
dv->size=iso->vol_space_size.little*bd->blk_size>>BLK_SIZE_BITS;
|
|
result=TRUE;
|
|
goto ipi_done;
|
|
case ISO1T_TERMINATOR:
|
|
throw('Drv');
|
|
}
|
|
break;
|
|
default: //Its normal for ISO13346 to read NULL blk as terminator
|
|
PrintErr("File System Not Supported\n");
|
|
throw('Drv');
|
|
}
|
|
i++;
|
|
}
|
|
ipi_done:
|
|
Free(iso);
|
|
if (unlock)
|
|
DrvUnlock(dv);
|
|
} catch {
|
|
dv->type=DVT_ISO9660;
|
|
dv->spc=spc;
|
|
dv->base_offset=dv->data_area=dv->root_cluster=0;
|
|
Free(iso);
|
|
if (unlock)
|
|
DrvUnlock(dv);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
U0 Date2ISO1(CISO1Date *dst,CDate cdt)
|
|
{
|
|
CDateStruct ds;
|
|
Date2Struct(&ds,cdt);
|
|
dst->year=ds.year-ISO1_BASE_YEAR;
|
|
dst->mon=ds.mon;
|
|
dst->day=ds.day_of_mon;
|
|
dst->hour=ds.hour;
|
|
dst->min=ds.min;
|
|
dst->sec=ds.sec;
|
|
dst->sec100=ds.sec100;
|
|
}
|
|
|
|
CDate ISO1DateStruct2CDate(CISO1Date *dt)
|
|
{
|
|
CDateStruct ds;
|
|
MemSet(&ds,0,sizeof(CDateStruct));
|
|
ds.day_of_mon=dt->day;
|
|
ds.mon=dt->mon;
|
|
ds.year=dt->year+ISO1_BASE_YEAR;
|
|
ds.sec100=dt->sec100;
|
|
ds.sec=dt->sec;
|
|
ds.min=dt->min;
|
|
ds.hour=dt->hour;
|
|
return Struct2Date(&ds);
|
|
}
|
|
|
|
Bool ISO1FromName(U8 *dst,U8 *src)
|
|
{
|
|
I64 i,j,n;
|
|
MemSet(dst,0,CDIR_FILENAME_LEN);
|
|
n=*src++;
|
|
if (n==1 && !*src) {
|
|
*dst='.';
|
|
} else if (n==1 && *src==1) {
|
|
*dst='.';
|
|
dst[1]='.';
|
|
} else {
|
|
n>>=1;
|
|
j=0;
|
|
for (i=0;i<n;i++) {
|
|
src++;
|
|
if (*src==';')
|
|
break;
|
|
if (Bt(chars_bmp_filename,*src)) {
|
|
if (j>=CDIR_FILENAME_LEN-1)
|
|
return FALSE;
|
|
dst[j++]=*src++;
|
|
} else
|
|
return FALSE;
|
|
}
|
|
}
|
|
return FileNameChk(dst);
|
|
}
|
|
|
|
Bool ISO1CDirFill(CDirEntry *tempde,CISO1DirEntry *de)
|
|
{
|
|
Bool result;
|
|
MemSet(tempde,0,sizeof(CDirEntry));
|
|
result=ISO1FromName(tempde->name,&de->name_len);
|
|
tempde->cluster=de->loc.little;
|
|
tempde->size=de->size.little;
|
|
tempde->attr=FileAttr(tempde->name);
|
|
if (de->flags & ISO1_ATTR_DIR)
|
|
tempde->attr|=RS_ATTR_DIR;
|
|
tempde->datetime=ISO1DateStruct2CDate(&de->date);
|
|
return result;
|
|
}
|
|
|
|
Bool ISO1FileFind(CDrv *dv,I64 cur_dir_cluster,U8 *name,
|
|
CDirEntry *_result,I64 fuf_flags=0)
|
|
{//$LK,"FUF_JUST_DIRS",A="MN:FUF_JUST_DIRS"$, $LK,"FUF_JUST_FILES",A="MN:FUF_JUST_FILES"$
|
|
CISO1DirEntry *isoptr,*buf;
|
|
U8 dname[CDIR_FILENAME_LEN];
|
|
Bool result=FALSE,unlock;
|
|
I64 i;
|
|
if (fuf_flags&~FUG_FILE_FIND)
|
|
throw('FUF');
|
|
DrvChk(dv);
|
|
if (dv->type!=DVT_ISO9660)
|
|
PrintErr("Not ISO9660 Drv\n");
|
|
else
|
|
try {
|
|
unlock=DrvLock(dv);
|
|
isoptr=MAlloc(dv->spc<<BLK_SIZE_BITS);
|
|
RClusters(dv,isoptr,cur_dir_cluster,1);
|
|
if (isoptr->name_len==1 && !isoptr->name) {//curdir
|
|
i=(isoptr->size.little+dv->spc<<BLK_SIZE_BITS-1)/dv->spc<<BLK_SIZE_BITS;
|
|
buf=MAlloc(dv->spc<<BLK_SIZE_BITS*i);
|
|
RClusters(dv,buf,cur_dir_cluster,i);
|
|
Free(isoptr);
|
|
} else {
|
|
buf=isoptr;
|
|
i=1;
|
|
}
|
|
i*=dv->spc<<BLK_SIZE_BITS;
|
|
isoptr=buf;
|
|
while (i>0) {
|
|
if (!isoptr->len) {
|
|
isoptr(U8 *)++;
|
|
i--;
|
|
} else {
|
|
ISO1FromName(dname,&isoptr->name_len);
|
|
if (*dname) {
|
|
if (!StrCmp(name,dname)) {
|
|
result=ISO1CDirFill(_result,isoptr);
|
|
if (result &&
|
|
!(fuf_flags&FUF_JUST_DIRS &&
|
|
!(_result->attr & RS_ATTR_DIR)) &&
|
|
!(fuf_flags&FUF_JUST_FILES && _result->attr & RS_ATTR_DIR) )
|
|
goto iff_done;
|
|
else
|
|
result=FALSE;
|
|
}
|
|
}
|
|
i-=isoptr->len;
|
|
isoptr(U8 *)+=isoptr->len;
|
|
}
|
|
}
|
|
iff_done:
|
|
Free(buf);
|
|
if (unlock)
|
|
DrvUnlock(dv);
|
|
} catch
|
|
if (unlock)
|
|
DrvUnlock(dv);
|
|
return result;
|
|
}
|
|
|
|
U8 *ISO1FileRead(CDrv *dv,U8 *cur_dir,U8 *filename,I64 *_size,I64 *_attr)
|
|
{
|
|
U8 *buf=NULL;
|
|
CDirEntry de;
|
|
I64 c,blk_cnt,cur_dir_cluster;
|
|
DrvChk(dv);
|
|
*_size=0;
|
|
*_attr=0;
|
|
if (dv->type!=DVT_ISO9660)
|
|
PrintErr("Not ISO9660 Drv\n");
|
|
else
|
|
try {
|
|
DrvLock(dv);
|
|
cur_dir_cluster=Name2DirCluster(dv,cur_dir);
|
|
if (ISO1FileFind(dv,cur_dir_cluster,filename,&de,FUF_JUST_FILES)) {
|
|
blk_cnt=(de.size+BLK_SIZE-1)>>BLK_SIZE_BITS;
|
|
buf=MAlloc(blk_cnt<<BLK_SIZE_BITS+1);
|
|
c=de.cluster;
|
|
c=RClustersBlks(dv,buf,c,blk_cnt);
|
|
buf[de.size]=0; //Terminate
|
|
*_size=de.size;
|
|
*_attr=FileAttr(de.name,de.attr);
|
|
}
|
|
DrvUnlock(dv);
|
|
} catch
|
|
DrvUnlock(dv);
|
|
return buf;
|
|
}
|
|
|
|
Bool ISO1Cd(U8 *name,I64 cur_dir_cluster)
|
|
{
|
|
CDirEntry de;
|
|
if (Fs->cur_dv->type!=DVT_ISO9660)
|
|
PrintErr("Not ISO9660 Drv\n");
|
|
else if (ISO1FileFind(Fs->cur_dv,cur_dir_cluster,name,&de,FUF_JUST_DIRS))
|
|
return TRUE;
|
|
else {
|
|
"%s ",name;
|
|
PrintErr("File not found.\n");
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
CDirEntry *ISO1FilesFind(U8 *files_find_mask,
|
|
I64 fuf_flags,CDirEntry *parent=NULL)
|
|
{
|
|
CDrv *dv=Fs->cur_dv;
|
|
CISO1DirEntry *buf,*buf2,*isoptr;
|
|
I64 i,cur_dir_cluster=Name2DirCluster(dv,Fs->cur_dir);
|
|
CDirEntry *result=NULL,*tempde;
|
|
if (fuf_flags&~FUG_FILES_FIND)
|
|
throw('FUF');
|
|
isoptr=MAlloc(dv->spc<<BLK_SIZE_BITS);
|
|
RClusters(dv,isoptr,cur_dir_cluster,1);
|
|
if (isoptr->name_len==1 && !isoptr->name) {//curdir
|
|
i=(isoptr->size.little+dv->spc<<BLK_SIZE_BITS-1)/dv->spc<<BLK_SIZE_BITS;
|
|
buf=MAlloc(dv->spc<<BLK_SIZE_BITS*i);
|
|
RClusters(dv,buf,cur_dir_cluster,i);
|
|
Free(isoptr);
|
|
} else {
|
|
buf=isoptr;
|
|
i=1;
|
|
}
|
|
buf2=buf;
|
|
i*=dv->spc<<BLK_SIZE_BITS;
|
|
while (i>0) {
|
|
if (!buf->len) {
|
|
buf(U8 *)++;
|
|
i--;
|
|
} else {
|
|
tempde=MAlloc(sizeof(CDirEntry));
|
|
if (ISO1CDirFill(tempde,buf)) {
|
|
tempde->parent=parent;
|
|
if (Bt(&fuf_flags,FUf_RECURSE) && tempde->attr&RS_ATTR_DIR &&
|
|
*tempde->name!='.') {
|
|
tempde->next=result;
|
|
result=tempde;
|
|
tempde->full_name=DirNameAbs(tempde->name);
|
|
if (Cd(tempde->name)) {
|
|
tempde->sub=ISO1FilesFind(files_find_mask,fuf_flags,tempde);
|
|
Cd("..");
|
|
}
|
|
} else if ((tempde->attr & RS_ATTR_DIR ||
|
|
!Bt(&fuf_flags,FUf_JUST_DIRS)) &&
|
|
!(Bt(&fuf_flags,FUf_RECURSE) &&
|
|
*tempde->name=='.' && tempde->attr&RS_ATTR_DIR) &&
|
|
FilesFindMatch(tempde->name,files_find_mask,fuf_flags)) {
|
|
tempde->next=result;
|
|
result=tempde;
|
|
tempde->full_name=FileNameAbs(tempde->name);
|
|
} else
|
|
DirEntryDel(tempde);
|
|
} else
|
|
DirEntryDel(tempde);
|
|
i-=buf->len;
|
|
buf(U8 *)+=buf->len;
|
|
}
|
|
}
|
|
Free(buf2);
|
|
return result;
|
|
}
|