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(char_bmp_filename,*src))
      {
        if (j>=CDIR_FILENAME_LEN-1)
          return FALSE;
        dst[j++]=*src++;
      }
      else
        return FALSE;
    }
  }
  return FileNameChk(dst);
}

Bool ISO1CDirFill(CDirEntry *tmpde,CISO1DirEntry *de)
{
  Bool res;
  MemSet(tmpde,0,sizeof(CDirEntry));
  res=ISO1FromName(tmpde->name,&de->name_len);
  tmpde->clus=de->loc.little;
  tmpde->size=de->size.little;
  tmpde->attr=FileAttr(tmpde->name);
  if (de->flags & ISO1_ATTR_DIR)
    tmpde->attr|=RS_ATTR_DIR;
  tmpde->datetime=ISO1DateStruct2CDate(&de->date);
  return res;
}

Bool ISO1FileFind(CDrv *dv,I64 cur_dir_clus,U8 *name,
                  CDirEntry *_res,I64 fuf_flags=0)
{//FUF_JUST_DIRS, FUF_JUST_FILES
  CISO1DirEntry *isoptr,*buf;
  U8 dname[CDIR_FILENAME_LEN];
  Bool res=FALSE,unlock;
  I64 i;
  if (fuf_flags&~FUG_FILE_FIND)
    throw('FUF');
  DrvChk(dv);
  if (dv->fs_type!=FSt_ISO9660)
    PrintErr("Not ISO9660 Drv\n");
  else
    try
    {
      unlock=DrvLock(dv);
      isoptr=MAlloc(dv->spc<<BLK_SIZE_BITS);
      ClusRead(dv,isoptr,cur_dir_clus,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);
        ClusRead(dv,buf,cur_dir_clus,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))
            {
              res=ISO1CDirFill(_res,isoptr);
              if (res &&
                  !(fuf_flags&FUF_JUST_DIRS &&
                    !(_res->attr & RS_ATTR_DIR)) &&
                  !(fuf_flags&FUF_JUST_FILES && _res->attr & RS_ATTR_DIR) )
                goto iff_done;
              else
                res=FALSE;
            }
          }
          i-=isoptr->len;
          isoptr(U8 *)+=isoptr->len;
        }
      }
iff_done:
      Free(buf);
      if (unlock)
        DrvUnlock(dv);
    }
    catch
      if (unlock)
        DrvUnlock(dv);
  return res;
}

U8 *ISO1FileRead(CDrv *dv,U8 *cur_dir,U8 *filename,I64 *_size,I64 *_attr)
{
  U8 *buf=NULL;
  CDirEntry de;
  I64 c,blk_cnt,cur_dir_clus;
  DrvChk(dv);
  *_size=0;
  *_attr=0;
  if (dv->fs_type!=FSt_ISO9660)
    PrintErr("Not ISO9660 Drv\n");
  else
    try
    {
      DrvLock(dv);
      cur_dir_clus=Name2DirClus(dv,cur_dir);
      if (ISO1FileFind(dv,cur_dir_clus,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.clus;
        c=ClusBlkRead(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_clus)
{
  CDirEntry de;
  if (Fs->cur_dv->fs_type!=FSt_ISO9660)
    PrintErr("Not ISO9660 Drv\n");
  else if (ISO1FileFind(Fs->cur_dv,cur_dir_clus,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_clus=Name2DirClus(dv,Fs->cur_dir);
  CDirEntry *res=NULL,*tmpde;
  if (fuf_flags&~FUG_FILES_FIND)
    throw('FUF');
  isoptr=MAlloc(dv->spc<<BLK_SIZE_BITS);
  ClusRead(dv,isoptr,cur_dir_clus,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);
    ClusRead(dv,buf,cur_dir_clus,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
    {
      tmpde=MAlloc(sizeof(CDirEntry));
      if (ISO1CDirFill(tmpde,buf))
      {
        tmpde->parent=parent;
        if (Bt(&fuf_flags,FUf_RECURSE) && tmpde->attr&RS_ATTR_DIR &&
            *tmpde->name!='.')
        {
          tmpde->next=res;
          res=tmpde;
          tmpde->full_name=DirNameAbs(tmpde->name);
          if (Cd(tmpde->name))
          {
            tmpde->sub=ISO1FilesFind(files_find_mask,fuf_flags,tmpde);
            Cd("..");
          }
        }
        else
        {
          tmpde->full_name=FileNameAbs(tmpde->name);
          if ((tmpde->attr & RS_ATTR_DIR ||
               !Bt(&fuf_flags,FUf_JUST_DIRS)) &&
              !(Bt(&fuf_flags,FUf_RECURSE) &&
                *tmpde->name=='.' && tmpde->attr&RS_ATTR_DIR) &&
              FilesFindMatch(tmpde->full_name,files_find_mask,fuf_flags))
          {
            tmpde->next=res;
            res=tmpde;
          }
          else
            DirEntryDel(tmpde);
        }
      }
      else
        DirEntryDel(tmpde);
      i-=buf->len;
      buf(U8 *)+=buf->len;
    }
  }
  Free(buf2);
  return res;
}