Difference between revisions of "TCDFSFileSystem"

Latest revision as of 04:48, 29 July 2021

`constructor Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);`
`destructor Destroy; override;`
private
`FCDFSType:TCDFSType;`
`FSwapSerial:Boolean;`
`FVolumeFlags:LongWord;`	Volume flags

`FTreesLoaded:Boolean;`
`FBlocksLoaded:Boolean;`
`FCatalogsLoaded:Boolean;`
`FCatalogsLoading:Boolean;`

`FBlockWrite:Boolean;`
`FTreesPrepared:Boolean;`
`FCatalogsChecked:Boolean;`

`FLogicalBlockSize:Word;`	Size of a logical block on disk
`FLogicalBlockCount:LongWord;`	Number of logical blocks on disk

`FSectorsPerCluster:LongWord;`	Usually 1,2,4,8,16,32,64,128 etc

`FDataStartCluster:LongWord;`	Usually 16 (First cluster of Data Area)
`FBootStartCluster:LongWord;`	Usually 17 (Cluster of the Boot Descriptor)
`FRootStartCluster:LongWord;`	Pointed to by Primary Descriptor

`FBlockShiftCount:Word;`	Shift count for Cluster <-> BlockNo
`FSectorShiftCount:Word;`	Shift count for Sector <-> Cluster
`FClusterShiftCount:Word;`	Shift count for Cluster <-> Bytes

`FEntriesPerBlock:LongWord;`	Number of Cluster entries per Block of bitmap
`FClustersPerBlock:LongWord;`	Number of Clusters per Block of bitmap entries
`FTotalBlockCount:LongWord;`	Total number of Blocks in bitmap

`FTotalClusterCount:LongWord;`	Total number of Clusters on volume

`FLastFreeCluster:LongWord;`	Or cdfsUnknownCluster if not known
`FFreeClusterCount:LongWord;`	Or cdfsUnknownCluster if not known

`FClusterSize:LongWord;`	Size of a Cluster in Bytes (Max 65536 > Word)

`FBoot:TCDFSDiskDescriptor;`
`FPrimary:TCDFSDiskDescriptor;`
`FSupplementary:TCDFSDiskDescriptor;`

`FHeaders:TFileSysList;`	List of Catalog Headers
`FExtensions:TFileSysList;`	List of Catalog Extensions
`FDescriptors:TFileSysList;`	List of Volume Descriptors

`FHeaderLocal:TMutexHandle;`	Local Lock shared by all Catalog Headers
`FExtensionLocal:TMutexHandle;`	Local Lock shared by all Catalog Extensions
`FDescriptorLocal:TMutexHandle;`	Local Lock shared by all Volume Descriptors

`FExtendedLocal:TMutexHandle;`	Local Lock shared by all Extended Attributes

`FPathLock:TSynchronizerHandle;`	Lock shared by all Path lists

`FReadBuffer:Pointer;`	Buffer for partial cluster entry reads (Cluster size)
`FReadLock:TMutexHandle;`	Lock for read buffer

`FWriteBuffer:Pointer;`	Buffer for partial cluster entry writes (Cluster size)
`FWriteLock:TMutexHandle;`	Lock for write buffer

`FClusterBuffer:Pointer;`	Buffer of exactly cluster size
`FClusterLock:TMutexHandle;`	Lock for cluster buffer

`function ReadLock:Boolean;`
`function ReadUnlock:Boolean;`

`function WriteLock:Boolean;`
`function WriteUnlock:Boolean;`

`function ClusterLock:Boolean;`
`function ClusterUnlock:Boolean;`

`function LoadTree(AEntry:TDiskEntry):Boolean;`
`function MarkTree(AEntry:TDiskEntry):Boolean;`
`function PrepareTree(AEntry:TDiskEntry):Boolean;`
`function PrepareTable(ATable:TDiskTable):Boolean;`

`function PrepareTrees:Boolean;`
`function CheckCatalogs:Boolean;`

`function LocatePath(ATable:TCDFSDiskTable; APathNumber:Word):TCDFSDiskPath;`
`function LocateEntry(AEntry:TCDFSDiskEntry; AStartCluster:LongWord):TCDFSDiskEntry;`

`function LoadVolumeFlags:LongWord;`

`function FillClusters(ACluster:LongWord; ACount:Word; AValue:Byte):Boolean;`

`function ReadClusters(ACluster:LongWord; ACount:Word; var ABuffer):Boolean;`
`function WriteClusters(ACluster:LongWord; ACount:Word; const ABuffer):Boolean;`

`function TestClusters(ACluster,ACount:LongWord):Boolean;`
`function MarkClusters(ACluster,ACount:LongWord; AUsed:Boolean):Boolean;`

`function AllocClusters(var ACluster:LongWord; ACount:LongWord):Boolean;`
`function ReleaseClusters(ACluster,ACount:LongWord):Boolean;`

`function GetNextFreeCluster:LongWord;`	Return is a Cluster
`function GetFreeClusterCount:LongWord;`

`function TestBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;`
`function MarkBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord; AUsed:Boolean):Boolean;`

`function AllocBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;`
`function ReleaseBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;`

`function GetBlockNextFree(ABlock:TCDFSDiskBlock; AStart:LongWord):LongWord;`
`function GetBlockFreeCount(ABlock:TCDFSDiskBlock):LongWord;`

`function TestBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord):Boolean;`
`function MarkBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord; AUsed:Boolean):Boolean;`

`function AllocBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;`
`function ReleaseBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;`

`function GetBitmapNextFree(ABuffer:Pointer; ASize,AStart:LongWord):LongWord;`
`function GetBitmapFreeCount(ABuffer:Pointer; ASize:LongWord):LongWord;`

`function GetTableDataFree(ATable:TDiskTable):LongWord;`
`function GetEntryDataFree(AEntry:TDiskEntry):LongWord;`
`function GetCatalogDataFree(ADescriptor:TCDFSDiskDescriptor):LongWord;`

`function GetPreviousPath(ATable:TCDFSDiskTable; APath:TCDFSDiskPath):TCDFSDiskPath;`
`function GetPreviousEntry(AParent,AEntry:TCDFSDiskEntry):TCDFSDiskEntry;`

`function GetSectorsPerCluster(AClusterSize:LongWord):LongWord;`
`function GetBlockShiftCount(AClusterSize:LongWord):Word;`
`function GetSectorShiftCount(AClusterSize:LongWord):Word;`
`function GetClusterShiftCount(AClusterSize:LongWord):Word;`

`function GetEntriesPerBlock(AClusterSize:LongWord):LongWord;`
`function GetClustersPerBlock(AClusterSize:LongWord):LongWord;`
`function GetTotalBlockCount(ATotalClusterCount:LongWord):LongWord;`

`function RenumberPaths(ATable:TDiskTable):Boolean;`

`function ComparePath(APath1,APath2:TCDFSDiskPath; AUnicode:Boolean):Integer;`
`function CompareEntry(AEntry1,AEntry2:TCDFSDiskEntry; AUnicode:Boolean):Integer;`

`function PadString(const AString:String; ALength:Integer; APrefix,AUnicode:Boolean):String;`
`function CompareString(const AString1,AString2:String; AReverse:Boolean):Integer;`

`function ChecksumValidationRecord(AValidation:PELTORITOValidationRecord):Word;`

`function RecordToPath(ARecord:Pointer; APath:TCDFSDiskPath; AUnicode,AEndian:Boolean):Boolean;`
`function PathToRecord(APath:TCDFSDiskPath; ARecord:Pointer; AUnicode,AEndian:Boolean):Boolean;`

`function RecordToEntry(ARecord:Pointer; AEntry:TCDFSDiskEntry; AUnicode:Boolean):Boolean;`
`function EntryToRecord(AEntry:TCDFSDiskEntry; ARecord:Pointer; AUnicode:Boolean):Boolean;`

`function CDFSTypeToFileSysType(ACDFSType:TCDFSType):TFileSysType;`
protected
`function LoadMaxFile:Integer; override;`
`function LoadMaxPath:Integer; override;`
`function LoadAttributes:LongWord; override;`
`function LoadSystemName:String; override;`
`function LoadVolumeName:String; override;`
`function LoadVolumeSerial:LongWord; override;`
`function LoadFileSysType:TFileSysType; override;`

`function SetVolumeName(const AName:String):Boolean;`
`function SetVolumeSerial(ASerial:LongWord):Boolean;`

`function ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;`
`function WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;`

`function LoadTrees:Boolean;`	Not override
`function LoadTables:Boolean; override;`
`function LoadBlocks:Boolean; override;`
`function LoadDescriptors:Boolean;`	Not override
`function LoadRoots:Boolean;`	Not override
`function LoadPaths(ATable:TCDFSDiskTable):Boolean;`	Not override
`function LoadEntries(AParent:TDiskEntry):Boolean; override;`
`function LoadCatalogs:Boolean; override;`

`function SetPaths(ATable:TCDFSDiskTable):Boolean;`	Not override
`function SetEntries(AParent:TDiskEntry):Boolean;`	Not override
`function SetCatalogs:Boolean;`	Not override

`function LoadTable(ATableNo:LongWord):Boolean; override;`
`function LoadBlock(ABlockNo:LongWord):Boolean; override;`
`function LoadDescriptor(ABuffer:Pointer; ACluster:LongWord):Boolean;`	Not override
`function LoadRoot(ADescriptor:TCDFSDiskDescriptor):Boolean;`	Not override
`function LoadPath(ATable:TCDFSDiskTable; ABuffer:Pointer; AOffset:LongWord; ANumber:Word):Boolean;`	Not override
`function LoadEntry(AParent:TCDFSDiskEntry; ABuffer:Pointer; AOffset,ACluster:LongWord):Boolean;`	Not override
`function LoadHeader(ABuffer:Pointer; AOffset,ACluster:LongWord; AHeaderNo:LongWord):Boolean;`	Not override
`function LoadCatalog(ABuffer:Pointer; AOffset,ACluster:LongWord; ACatalogNo:LongWord; AInitial:Boolean):Boolean;`	Not override
`function LoadExtension(ABuffer:Pointer; AOffset,ACluster:LongWord; AExtensionNo:LongWord):Boolean;`	Not override
`function LoadExtended(AEntry:TDiskEntry):Boolean;`	Not override

`function AddDescriptor(AType:Byte):TCDFSDiskDescriptor;`	Not override
`function RemoveDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;`	Not override

`function AddPath(ATable:TDiskTable; AParentNumber:Word; const AName:String; AStartCluster:LongWord):TCDFSDiskPath;`	Not override
`function RemovePath(ATable:TDiskTable; APath:TCDFSDiskPath):Boolean;`	Not override
`function RenamePath(ATable:TDiskTable; APath:TCDFSDiskPath; const AName:String):Boolean;`	Not override
`function MovePath(ATable:TDiskTable; ADestNumber:Word; APath:TCDFSDiskPath):Boolean;`	Not override

`function AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;`
`function AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;`
`function RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; override;`
`function RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; override;`
`function RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; override;`
`function MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; override;`

`function AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; override;`
`function RemoveCatalog(ACatalog:TDiskCatalog):Boolean; override;`
`function GetNextHeaderNo:LongWord;`	Not override
`function GetMaxHeaderNo:LongWord;`	Not override
`function GetNextHeaderOffset:LongWord;`	Not override
`function GetNextHeaderCluster:LongWord;`	Not override
`function GetNextCatalogOffset:LongWord;`	Not override
`function GetNextCatalogCluster:LongWord;`	Not override

`function SetTable(ATable:TDiskTable):Boolean; override;`
`function SetBlock(ABlock:TDiskBlock):Boolean; override;`
`function SetDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;`	Not override
`function SetRoot(ADescriptor:TCDFSDiskDescriptor; ARoot:TDiskEntry):Boolean;`	Not override
`function SetPath(ATable:TDiskTable; APath:TCDFSDiskPath; ABuffer:Pointer):Boolean;`	Not override
`function SetEntry(AParent,AEntry:TDiskEntry):Boolean; override;`
`function SetHeader(AHeader:TCDFSDiskHeader):Boolean;`	Not override
`function SetCatalog(ACatalog:TDiskCatalog):Boolean; override;`
`function SetExtension(AExtension:TCDFSDiskExtension):Boolean;`	Not override
`function SetExtended(AEntry:TDiskEntry; AExtended:TCDFSDiskExtended):Boolean;`	Not override

`function SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; override;`

`function GetBlock(ABlockNo:LongWord):TDiskBlock; override;`
`function GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; override;`
`function GetDescriptor(AType,AInstance:Byte):TCDFSDiskDescriptor;`	Not override
`function GetDescriptorEx(AType,AInstance:Byte; AWrite:Boolean):TCDFSDiskDescriptor;`	Not override
`function GetRoot(ADescriptor:TCDFSDiskDescriptor):TDiskEntry;`	Not override
`function GetPath(ATable:TDiskTable; AParentNumber:Word; const AName:String):TCDFSDiskPath;`	Not override
`function GetHeader(AHeaderNo:LongWord):TCDFSDiskHeader;`	Not override
`function GetHeaderEx(AHeaderNo:LongWord; AWrite:Boolean):TCDFSDiskHeader;`	Not override
`function GetExtension(AExtensionNo:LongWord):TCDFSDiskExtension;`	Not override
`function GetExtensionEx(AExtensionNo:LongWord; AWrite:Boolean):TCDFSDiskExtension;`	Not override
`function GetExtended(AEntry:TDiskEntry):TCDFSDiskExtended;`	Not override

`function GetVersion(const AName:String):String;`

`function StripDot(const AName:String):String;`
`function StripVersion(const AName:String):String;`

`function CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; override;`
`function CompareSequence(const ASequence; const ACompare; ASize:Integer):Boolean;`
`function CompareIdentifier(const AIdentifier; const ACompare; ASize:Integer):Boolean;`

`function CalculateVolumeSerial(ABuffer:Pointer; ASize:Integer):LongWord;`
public
`property ReadOnly:Boolean read FReadOnly write FReadOnly;`
`property LongNames:Boolean read FLongNames write FLongNames;`
`property CasePreserved:Boolean read FCasePreserved write FCasePreserved;`
`property UnicodeNames:Boolean read FUnicodeNames write FUnicodeNames;`
`property SwapSerial:Boolean read FSwapSerial write FSwapSerial;`

`function FileSystemInit:Boolean; override;`

`function MountFileSystem:Boolean; override;`
`function DismountFileSystem:Boolean; override;`
`function InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; override;`

`function GetDriveLabel:String; override;`
`function SetDriveLabel(const ALabel:String):Boolean; override;`
`function SetDriveSerial(ASerial:LongWord):Boolean; override;`

`function GetDriveFreeSpaceEx:Int64; override;`
`function GetDriveTotalSpaceEx:Int64; override;`

`function GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean; override;`

Function declarations

[Expand]

constructor TCDFSFileSystem.Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);

Description: To be documented

[Expand]

destructor TCDFSFileSystem.Destroy;

Description: To be documented

[Expand]

function TCDFSFileSystem.ReadLock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ReadUnlock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.WriteLock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.WriteUnlock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ClusterLock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ClusterUnlock:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadTree(AEntry:TDiskEntry):Boolean;

Description: Load all Entries in a given Tree

[Expand]

function TCDFSFileSystem.MarkTree(AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.PrepareTree(AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.PrepareTable(ATable:TDiskTable):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.PrepareTrees:Boolean;

Description: Prepare Trees releases all entries and paths in the Primary Descriptor except Root

[Expand]

function TCDFSFileSystem.CheckCatalogs:Boolean;

Description: Check Catalogs checks all catalogs for a non zero cluster count

[Expand]

function TCDFSFileSystem.LocatePath(ATable:TCDFSDiskTable; APathNumber:Word):TCDFSDiskPath;

Description: To be documented

[Expand]

function TCDFSFileSystem.LocateEntry(AEntry:TCDFSDiskEntry; AStartCluster:LongWord):TCDFSDiskEntry;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadVolumeFlags:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.FillClusters(ACluster:LongWord; ACount:Word; AValue:Byte):Boolean;

Description: Fill count clusters with the supplied value

[Expand]

function TCDFSFileSystem.ReadClusters(ACluster:LongWord; ACount:Word; var ABuffer):Boolean;

Description: Read count Clusters from the Volume using Cache

[Expand]

function TCDFSFileSystem.WriteClusters(ACluster:LongWord; ACount:Word; const ABuffer):Boolean;

Description: Write count Clusters to the Volume using Cache

[Expand]

function TCDFSFileSystem.TestClusters(ACluster,ACount:LongWord):Boolean;

Description: Test Count clusters from Cluster in the Bitmap Blocks for Free

[Expand]

function TCDFSFileSystem.MarkClusters(ACluster,ACount:LongWord; AUsed:Boolean):Boolean;

Description: Mark Count clusters from Cluster in the Bitmap Blocks as Free or Used

[Expand]

function TCDFSFileSystem.AllocClusters(var ACluster:LongWord; ACount:LongWord):Boolean;

Description: Allocate Count Clusters from Next Free in the Bitmap Blocks or Allocate the requested Cluster and Count Clusters if available

[Expand]

function TCDFSFileSystem.ReleaseClusters(ACluster,ACount:LongWord):Boolean;

Description: Release Count Clusters in the Bitmap Blocks and return to Free

[Expand]

function TCDFSFileSystem.GetNextFreeCluster:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetFreeClusterCount:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.TestBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;

Description: Test Count clusters from Start in the Block bitmap for Free

[Expand]

function TCDFSFileSystem.MarkBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord; AUsed:Boolean):Boolean;

Description: Mark Count clusters from Start in the Block bitmap as Free or Used

[Expand]

function TCDFSFileSystem.AllocBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ReleaseBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBlockNextFree(ABlock:TCDFSDiskBlock; AStart:LongWord):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBlockFreeCount(ABlock:TCDFSDiskBlock):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.TestBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord):Boolean;

Description: Test Count bits from Start in the bitmap for Free

[Expand]

function TCDFSFileSystem.MarkBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord; AUsed:Boolean):Boolean;

Description: Mark Count bits from Start in the bitmap as Free or Used

[Expand]

function TCDFSFileSystem.AllocBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ReleaseBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBitmapNextFree(ABuffer:Pointer; ASize,AStart:LongWord):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBitmapFreeCount(ABuffer:Pointer; ASize:LongWord):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetTableDataFree(ATable:TDiskTable):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetEntryDataFree(AEntry:TDiskEntry):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetCatalogDataFree(ADescriptor:TCDFSDiskDescriptor):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetPreviousPath(ATable:TCDFSDiskTable; APath:TCDFSDiskPath):TCDFSDiskPath;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetPreviousEntry(AParent,AEntry:TCDFSDiskEntry):TCDFSDiskEntry;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetSectorsPerCluster(AClusterSize:LongWord):LongWord;

Description: Calculate the number of sectors per cluster

[Expand]

function TCDFSFileSystem.GetBlockShiftCount(AClusterSize:LongWord):Word;

Description: Calculate the block shift count for cluster to block conversion

[Expand]

function TCDFSFileSystem.GetSectorShiftCount(AClusterSize:LongWord):Word;

Description: Calculate the sector shift count for sector to cluster conversion

[Expand]

function TCDFSFileSystem.GetClusterShiftCount(AClusterSize:LongWord):Word;

Description: Calculate the cluster shift count for cluster to bytes conversion

[Expand]

function TCDFSFileSystem.GetEntriesPerBlock(AClusterSize:LongWord):LongWord;

Description: Calculate the number of cluster entries per block of bitmap entries

[Expand]

function TCDFSFileSystem.GetClustersPerBlock(AClusterSize:LongWord):LongWord;

Description: Calculate the number of clusters per block of bitmap entries

[Expand]

function TCDFSFileSystem.GetTotalBlockCount(ATotalClusterCount:LongWord):LongWord;

Description: Calculate the total number of bitmap entry blocks

[Expand]

function TCDFSFileSystem.RenumberPaths(ATable:TDiskTable):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ComparePath(APath1,APath2:TCDFSDiskPath; AUnicode:Boolean):Integer;

Description: To be documented

[Expand]

function TCDFSFileSystem.CompareEntry(AEntry1,AEntry2:TCDFSDiskEntry; AUnicode:Boolean):Integer;

Description: To be documented

[Expand]

function TCDFSFileSystem.PadString(const AString:String; ALength:Integer; APrefix,AUnicode:Boolean):String;

Description: To be documented

[Expand]

function TCDFSFileSystem.CompareString(const AString1,AString2:String; AReverse:Boolean):Integer;

Description: To be documented

[Expand]

function TCDFSFileSystem.ChecksumValidationRecord(AValidation:PELTORITOValidationRecord):Word;

Description: To be documented

[Expand]

function TCDFSFileSystem.RecordToPath(ARecord:Pointer; APath:TCDFSDiskPath; AUnicode,AEndian:Boolean):Boolean;

Description: Loads a Path from a Path record

[Expand]

function TCDFSFileSystem.PathToRecord(APath:TCDFSDiskPath; ARecord:Pointer; AUnicode,AEndian:Boolean):Boolean;

Description: Loads a Path record from a Path

[Expand]

function TCDFSFileSystem.RecordToEntry(ARecord:Pointer; AEntry:TCDFSDiskEntry; AUnicode:Boolean):Boolean;

Description: Loads an Entry from a Directory record

[Expand]

function TCDFSFileSystem.EntryToRecord(AEntry:TCDFSDiskEntry; ARecord:Pointer; AUnicode:Boolean):Boolean;

Description: Loads a Directory record from an Entry

[Expand]

function TCDFSFileSystem.CDFSTypeToFileSysType(ACDFSType:TCDFSType):TFileSysType;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadMaxFile:Integer;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadMaxPath:Integer;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadAttributes:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadSystemName:String;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadVolumeName:String;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadVolumeSerial:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadFileSysType:TFileSysType;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetVolumeName(const AName:String):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetVolumeSerial(ASerial:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer;

Description: Read count bytes from the supplied entry beginning at the supplied start

[Expand]

function TCDFSFileSystem.WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer;

Description: Write count bytes to the supplied entry beginning at the supplied start

[Expand]

function TCDFSFileSystem.LoadTrees:Boolean;

Description: Load all entries in all trees

[Expand]

function TCDFSFileSystem.LoadTables:Boolean;

Description: Load each of the path tables

[Expand]

function TCDFSFileSystem.LoadBlocks:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadDescriptors:Boolean;

Description: Load each of the volume descriptors

[Expand]

function TCDFSFileSystem.LoadRoots:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadPaths(ATable:TCDFSDiskTable):Boolean;

Description: Load the path records of the table as one single block

[Expand]

function TCDFSFileSystem.LoadEntries(AParent:TDiskEntry):Boolean;

Description: Load the directory entries of the parent one cluster at a time

[Expand]

function TCDFSFileSystem.LoadCatalogs:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetPaths(ATable:TCDFSDiskTable):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetEntries(AParent:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetCatalogs:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadTable(ATableNo:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadBlock(ABlockNo:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadDescriptor(ABuffer:Pointer; ACluster:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadRoot(ADescriptor:TCDFSDiskDescriptor):Boolean;

Description: Caller must hold the descriptors lock

[Expand]

function TCDFSFileSystem.LoadPath(ATable:TCDFSDiskTable; ABuffer:Pointer; AOffset:LongWord; ANumber:Word):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadEntry(AParent:TCDFSDiskEntry; ABuffer:Pointer; AOffset,ACluster:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadHeader(ABuffer:Pointer; AOffset,ACluster:LongWord; AHeaderNo:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadCatalog(ABuffer:Pointer; AOffset,ACluster:LongWord; ACatalogNo:LongWord; AInitial:Boolean):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadExtension(ABuffer:Pointer; AOffset,ACluster:LongWord; AExtensionNo:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.LoadExtended(AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.AddDescriptor(AType:Byte):TCDFSDiskDescriptor;

Description: To be documented

[Expand]

function TCDFSFileSystem.RemoveDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.AddPath(ATable:TDiskTable; AParentNumber:Word; const AName:String; AStartCluster:LongWord):TCDFSDiskPath;

Description: To be documented

[Expand]

function TCDFSFileSystem.RemovePath(ATable:TDiskTable; APath:TCDFSDiskPath):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.RenamePath(ATable:TDiskTable; APath:TCDFSDiskPath; const AName:String):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.MovePath(ATable:TDiskTable; ADestNumber:Word; APath:TCDFSDiskPath):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry;

Description: To be documented

[Expand]

function TCDFSFileSystem.AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry;

Description: To be documented

[Expand]

function TCDFSFileSystem.RemoveEntry(AParent,AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog;

Description: To be documented

[Expand]

function TCDFSFileSystem.RemoveCatalog(ACatalog:TDiskCatalog):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetNextHeaderNo:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetMaxHeaderNo:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetNextHeaderOffset:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetNextHeaderCluster:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetNextCatalogOffset:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetNextCatalogCluster:LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetTable(ATable:TDiskTable):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetBlock(ABlock:TDiskBlock):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetRoot(ADescriptor:TCDFSDiskDescriptor; ARoot:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetPath(ATable:TDiskTable; APath:TCDFSDiskPath; ABuffer:Pointer):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetEntry(AParent,AEntry:TDiskEntry):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetHeader(AHeader:TCDFSDiskHeader):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetCatalog(ACatalog:TDiskCatalog):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetExtension(AExtension:TCDFSDiskExtension):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetExtended(AEntry:TDiskEntry; AExtended:TCDFSDiskExtended):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBlock(ABlockNo:LongWord):TDiskBlock;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDescriptor(AType,AInstance:Byte):TCDFSDiskDescriptor;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDescriptorEx(AType,AInstance:Byte; AWrite:Boolean):TCDFSDiskDescriptor;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetRoot(ADescriptor:TCDFSDiskDescriptor):TDiskEntry;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetPath(ATable:TDiskTable; AParentNumber:Word; const AName:String):TCDFSDiskPath;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetHeader(AHeaderNo:LongWord):TCDFSDiskHeader;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetHeaderEx(AHeaderNo:LongWord; AWrite:Boolean):TCDFSDiskHeader;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetExtension(AExtensionNo:LongWord):TCDFSDiskExtension;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetExtensionEx(AExtensionNo:LongWord; AWrite:Boolean):TCDFSDiskExtension;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetExtended(AEntry:TDiskEntry):TCDFSDiskExtended;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetVersion(const AName:String):String;

Description: To be documented

[Expand]

function TCDFSFileSystem.StripDot(const AName:String):String;

Description: To be documented

[Expand]

function TCDFSFileSystem.StripVersion(const AName:String):String;

Description: To be documented

[Expand]

function TCDFSFileSystem.CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.CompareSequence(const ASequence; const ACompare; ASize:Integer):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.CompareIdentifier(const AIdentifier; const ACompare; ASize:Integer):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.CalculateVolumeSerial(ABuffer:Pointer; ASize:Integer):LongWord;

Description: To be documented

[Expand]

function TCDFSFileSystem.FileSystemInit:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.MountFileSystem:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.DismountFileSystem:Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDriveLabel:String;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetDriveLabel(const ALabel:String):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.SetDriveSerial(ASerial:LongWord):Boolean;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDriveFreeSpaceEx:Int64;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDriveTotalSpaceEx:Int64;

Description: To be documented

[Expand]

function TCDFSFileSystem.GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean;

Description: Get Drive Information from internal CDFS data

Return to Unit Reference

Start	Start is the cluster number in the block to start from Start must be greater than or equal to block cluster
Note	Should only be called by TestClusters Caller must hold the blocks lock

Start	Start is the cluster number in the block to start from Start must be greater than or equal to block cluster
Note	Should only be called by MarkClusters Caller must hold the blocks lock

Start	Start is the cluster number in the block to start from Start must be greater than or equal to block cluster
Note	Should only be called by GetNextFreeCluster Caller must hold the blocks lock

Size	Size is the total number of bits in the bitmap
Start	Start is the bit number in the bitmap to start from
Count	Count is the number of bits in the bitmap to be marked
Note	Should only be called by TestBlock Bitmaps are a multiple of 64 bits in size but free and used blocks are marked using an array of bytes in little endian order Caller must hold the blocks lock

Size	Size is the total number of bits in the bitmap
Start	Start is the bit number in the bitmap to start from (0 if first bit)
Count	Count is the number of bits in the bitmap to be marked
Note	Should only be called by MarkBlock Bitmaps are a multiple of 64 bits in size but free and used blocks are marked using an array of bytes in little endian order Caller must hold the blocks lock

Difference between revisions of "TCDFSFileSystem"

Latest revision as of 04:48, 29 July 2021

Contents

Description

Class definitions

Function declarations

Navigation menu

Personal tools

Namespaces

Variants

Views

More

Search

Navigation

Tools

@@ Line 2,358: / Line 2,358: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,364: / Line 2,364: @@
 |-
 ! Note
-| None documented
+| Overidden to implement multiple entry blocks
 |-
 |}
@@ Line 2,370: / Line 2,370: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDescriptor(AType,AInstance:Byte):TCDFSDiskDescriptor;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,382: / Line 2,382: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDescriptorEx(AType,AInstance:Byte; AWrite:Boolean):TCDFSDiskDescriptor;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,394: / Line 2,394: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetRoot(ADescriptor:TCDFSDiskDescriptor):TDiskEntry;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,400: / Line 2,400: @@
 |-
 ! Note
-| None documented
+| Caller must hold the descriptors lock
 |-
 |}
@@ Line 2,406: / Line 2,406: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.RemoveCatalog(ACatalog:TDiskCatalog):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetPath(ATable:TDiskTable; AParentNumber:Word; const AName:String):TCDFSDiskPath;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,412: / Line 2,412: @@
 |-
 ! Note
-| None documented
+| Caller must hold the tables lock
 |-
 |}
@@ Line 2,418: / Line 2,418: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetNextHeaderNo:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetHeader(AHeaderNo:LongWord):TCDFSDiskHeader;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,424: / Line 2,424: @@
 |-
 ! Note
-| None documented
+| HeaderNo is one based
 |-
 |}
@@ Line 2,430: / Line 2,430: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetMaxHeaderNo:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetHeaderEx(AHeaderNo:LongWord; AWrite:Boolean):TCDFSDiskHeader;</pre>
+<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
+<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+{| class="wikitable" style="font-size: 14px; background: white;"
+|-
+! Note
+| HeaderNo is one based
+|-
+|}
+</div></div>
+<br />
+<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetExtension(AExtensionNo:LongWord):TCDFSDiskExtension;</pre>
+<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
+<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+{| class="wikitable" style="font-size: 14px; background: white;"
+|-
+! Note
+| ExtensionNo is one based
+|-
+|}
+</div></div>
+<br />
+<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetExtensionEx(AExtensionNo:LongWord; AWrite:Boolean):TCDFSDiskExtension;</pre>
+<div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
+<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+{| class="wikitable" style="font-size: 14px; background: white;"
+|-
+! Note
+| ExtensionNo is one based
+|-
+|}
+</div></div>
+<br />
+<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetExtended(AEntry:TDiskEntry):TCDFSDiskExtended;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,442: / Line 2,478: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetNextHeaderOffset:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetVersion(const AName:String):String;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,454: / Line 2,490: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetNextHeaderCluster:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.StripDot(const AName:String):String;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,466: / Line 2,502: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetNextCatalogOffset:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.StripVersion(const AName:String):String;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,478: / Line 2,514: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetNextCatalogCluster:LongWord;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,490: / Line 2,526: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetTable(ATable:TDiskTable):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.CompareSequence(const ASequence; const ACompare; ASize:Integer):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,496: / Line 2,532: @@
 |-
 ! Note
-| SetTable does not perform any disk writes
+| None documented
 |-
 |}
@@ Line 2,502: / Line 2,538: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetBlock(ABlock:TDiskBlock):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.CompareIdentifier(const AIdentifier; const ACompare; ASize:Integer):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,508: / Line 2,544: @@
 |-
 ! Note
-| SetBlock does not perform any disk writes (Blocks are not stored in filesystem)
+| None documented
 |-
 |}
@@ Line 2,514: / Line 2,550: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.CalculateVolumeSerial(ABuffer:Pointer; ASize:Integer):LongWord;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,526: / Line 2,562: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetRoot(ADescriptor:TCDFSDiskDescriptor; ARoot:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.FileSystemInit:Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,532: / Line 2,568: @@
 |-
 ! Note
-| Caller must hold the descriptors lock
+| None documented
 |-
 |}
@@ Line 2,538: / Line 2,574: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetPath(ATable:TDiskTable; APath:TCDFSDiskPath; ABuffer:Pointer):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.MountFileSystem:Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,544: / Line 2,580: @@
 |-
 ! Note
-| SetPath does not use BlockWrite as Buffer is passed by caller
+| None documented
-Caller must hold the tables lock
 |-
 |}
@@ Line 2,551: / Line 2,586: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetEntry(AParent,AEntry:TDiskEntry):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.DismountFileSystem:Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,563: / Line 2,598: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetHeader(AHeader:TCDFSDiskHeader):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,575: / Line 2,610: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetCatalog(ACatalog:TDiskCatalog):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDriveLabel:String;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,587: / Line 2,622: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetExtension(AExtension:TCDFSDiskExtension):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetDriveLabel(const ALabel:String):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,599: / Line 2,634: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetExtended(AEntry:TDiskEntry; AExtended:TCDFSDiskExtended):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SetDriveSerial(ASerial:LongWord):Boolean;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,611: / Line 2,646: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDriveFreeSpaceEx:Int64;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,623: / Line 2,658: @@
 <br />
 <div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
-<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetBlock(ABlockNo:LongWord):TDiskBlock;</pre>
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDriveTotalSpaceEx:Int64;</pre>
 <div style="font-size: 14px; padding-left: 12px;">'''Description:''' To be documented</div>
 <div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
@@ Line 2,629: / Line 2,664: @@
 |-
 ! Note
-| Overidden to implement multiple entry blocks
+| None documented
+|-
+|}
+</div></div>
+<br />
+<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial; padding-top: 0px; padding-bottom: 15px;">
+<pre style="border: 0; padding-bottom:0px;">function TCDFSFileSystem.GetDriveInformation(var AClusterSize:LongWord; var ATotalClusterCount,AFreeClusterCount:Int64):Boolean;</pre>
+<div style="font-size: 14px; padding-left: 12px;">'''Description:''' Get Drive Information from internal CDFS data</div>
+<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
+{| class="wikitable" style="font-size: 14px; background: white;"
+|-
+! Note
+| None documented
 |-
 |}

Reference	Add a reference on the returned entry if True
Note	If AltName already exists then a generated one will be provided, will not fail due to AltName.