TempleOSCDV4.02.ISO

Adam/ABlkDev/ADskA.CPP

@@ -58,39 +58,6 @@ public U8 *Dump(U8 *filename,Bool write=FALSE)
   return buf;
 }
 
-#help_index "File/Program Routines"
-
-U0 FOFlatten(CDirEntry *tempde,CDirEntry **a,I64 *i)
-{
-  CDirEntry *tempde1;
-  while (tempde) {
-    tempde1=tempde->next;
-    if (tempde->attr&RS_ATTR_DIR) {
-      FOFlatten(tempde->sub,a,i);
-      DirEntryDel(tempde);
-    } else {
-      a[*i]=tempde;
-      *i=*i+1;
-    }
-    tempde=tempde1;
-  }
-}
-
-public I64 FileCnt(CDirEntry *tempde)
-{//Cnt of files in $LK,"CDirEntry",A="MN:CDirEntry"$ tree.
-  I64 cnt=0;
-  while (tempde) {
-    if (tempde->attr&RS_ATTR_DIR)
-      cnt+=FileCnt(tempde->sub);
-    else
-      cnt++;
-    tempde=tempde->next;
-  }
-  return cnt;
-}
-
-#help_index "File/Cmd Line (Typically);Cmd Line (Typically)"
-
 public Bool Copy(U8 *src_files_find_mask,U8 *dst_files_find_mask=".")
 {//Copy files.
 //If the name ends in ".Z", it will
@@ -281,128 +248,3 @@ Touch(filename,"",,datetime);
   }
   DirTreeDel(tempde1);
 }
-
-public I64 FF(U8 *files_find_mask,U8 *fu_flags=NULL)
-{//Files find. List files matching mask.
-  I64 cnt=0,fuf_flags=0;
-  CDirEntry *tempde,*tempde1;
-  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+f+F");
-  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
-  tempde=tempde1=FilesFind(files_find_mask,fuf_flags);
-  while (tempde) {
-    PutFileLink(tempde->full_name);
-    '\n';
-    cnt++;
-    tempde=tempde->next;
-  }
-  DirTreeDel(tempde1);
-  return cnt;
-}
-
-public U0 DrvTextAttrSet(U8 drv_let,U8 attr)
-{//Set color of the window border text
-//for when this drive is the current drive.
-  CDrv *dv;
-  try {
-    dv=Let2Drv(drv_let);
-    dv->text_attr=attr;
-  } catch
-    Fs->catch_except=TRUE;
-}
-I64 RedSeaUnusedDrvSpace(U8 drv_let=0)
-{
-  CDrv *dv=Let2Drv(drv_let);
-  I64 result=0,i,l;
-  U8 *bitmap;
-  try {
-    l=(dv->size+dv->spc-1)/dv->spc;
-    i=((l+7)>>3+BLK_SIZE-1)>>BLK_SIZE_BITS;
-    bitmap=MAlloc(i<<BLK_SIZE_BITS);
-    RBlks(dv,bitmap,dv->fat1,i);
-    for (i=0;i<l;i++)
-      if (!Bt(bitmap,i))
-	result++;
-    Free(bitmap);
-  } catch
-    DrvUnlock(dv);
-  return result*BLK_SIZE*dv->spc;
-}
-I64 FAT32UnusedDrvSpace(U8 drv_let=0)
-{
-  CDrv *dv=Let2Drv(drv_let);
-  I64 result=0,i,l;
-  U32 *bitmap;
-  try {
-    l=(dv->size+dv->spc-1)/dv->spc;
-    i=(l*4+BLK_SIZE-1)>>BLK_SIZE_BITS;
-    bitmap=MAlloc(i<<BLK_SIZE_BITS);
-    RBlks(dv,bitmap,dv->fat1,i);
-    for (i=0;i<l;i++)
-      if (!bitmap[i])
-	result++;
-    Free(bitmap);
-  } catch
-    DrvUnlock(dv);
-  return result*BLK_SIZE*dv->spc;
-}
-public I64 UnusedDrvSpace(U8 drv_let=0)
-{//Returns unused size in bytes.
-  CDrv *dv=Let2Drv(drv_let),*old_dv=Fs->cur_dv;
-  U8 *old_dir=StrNew(Fs->cur_dir);
-  I64 result=0;
-  Drv(drv_let);
-  switch (dv->type) {
-    case DVT_REDSEA:
-      result=RedSeaUnusedDrvSpace(drv_let);
-      break;
-    case DVT_FAT32:
-      result=FAT32UnusedDrvSpace(drv_let);
-      break;
-    default:
-      PrintErr("File System Not Supported\n");
-  }
-  Drv(Drv2Let(old_dv));
-  Cd(old_dir);
-  Free(old_dir);
-  return result;
-}
-
-#help_index "File/Program Routines"
-I64 Size1(CDirEntry *tempde,I64 *_fuf_flags,I64 round_to)
-{
-  U8 buf[BLK_SIZE];
-  I64 result=0,i;
-  CDrv *dv;
-  while (tempde) {
-    if ((i=tempde->size) && Bt(_fuf_flags,FUf_EXPAND) &&
-	  !(tempde->attr&RS_ATTR_DIR) &&
-	  FileAttr(tempde->name)&RS_ATTR_COMPRESSED) {
-      dv=Let2Drv(*tempde->full_name);
-      RBlks(dv,buf,Cluster2Blk(dv,tempde->cluster),1);
-      i=(&buf)(CArcCompress *)->expanded_size;
-    }
-    if (round_to)
-      i=CeilU64(tempde->size,round_to);
-    if (tempde->attr&RS_ATTR_DIR)
-      i+=Size1(tempde->sub,_fuf_flags,round_to);
-    tempde->user_data=i;
-    result+=i;
-    tempde=tempde->next;
-  }
-  return result;
-}
-public I64 Size(U8 *files_find_mask="/*",U8 *fu_flags=NULL,I64 round_to=0)
-{//Total size of files in mask. "+x" for expanded size.
-//Does not include directory size of base directory, but
-  //does include size of sub directories.
-  I64 fuf_flags=0,result=0;
-  CDirEntry *tempde1=NULL;
-  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
-  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
-  if (tempde1=FilesFind(files_find_mask,fuf_flags&FUG_FILES_FIND)) {
-    fuf_flags&=FUF_EXPAND;
-    result=Size1(tempde1,&fuf_flags,round_to);
-    DirTreeDel(tempde1);
-  }
-  return result;
-}