Difference between revisions of "Unit CDFS"

From Ultibo.org
Jump to: navigation, search
Line 1,181: Line 1,181:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO validation record types'''   
+
'''EL TORITO validation record types'''   
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,213: Line 1,213:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO default record types'''   
+
'''EL TORITO default record types'''   
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,251: Line 1,251:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO section header types'''
+
'''EL TORITO section header types'''
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,277: Line 1,277:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO section record types'''   
+
'''EL TORITO section record types'''   
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,318: Line 1,318:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO section extension types'''   
+
'''EL TORITO section extension types'''   
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,341: Line 1,341:
 
</div></div>   
 
</div></div>   
 
   
 
   
−
'''ELTORITO volume descriptor boot types'''   
+
'''EL TORITO volume descriptor boot types'''   
  
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
Line 1,380: Line 1,380:
 
----
 
----
  
−
''To be documented''
+
 
 +
'''CDFS recognizer'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSRecognizer = class(TRecognizer)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
| <code>constructor Create(ADriver:TFileSysDriver);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLongNames:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSwapSerial:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CheckPrimaryDescriptor(ASector:PSector; const AStartSector:Int64; ASectorCount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
 +
|-
 +
| <code>function GetName:String; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property LongNames:Boolean read FLongNames write FLongNames;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SwapSerial:Boolean read FSwapSerial write FSwapSerial;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function RecognizePartitionId(APartitionId:Byte):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RecognizeBootSector(ABootSector:PBootSector; const AStartSector,ASectorCount:Int64):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function RecognizePartition(APartition:TDiskPartition):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RecognizeVolume(AVolume:TDiskVolume):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MountVolume(AVolume:TDiskVolume; ADrive:TDiskDrive):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS formatter'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSFormatter = class(TDiskFormatter)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>function CheckDevice(AVolume:TDiskVolume; ADrive:TDiskDrive; AFloppyType:TFloppyType):Boolean;</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>function CheckPartition(AVolume:TDiskVolume; ADrive:TDiskDrive; AFileSysType:TFileSysType):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetPathTableSize(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetPathTableStart(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary,AEndian:Boolean):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetRootDirectorySize(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetRootDirectoryStart(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ASupplementary:Boolean):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CreatePrimaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WritePrimaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WritePrimaryPathTables(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WritePrimaryRootDirectory(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorPrimary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CreateSupplementaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteSupplementaryDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteSupplementaryPathTables(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteSupplementaryRootDirectory(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorSupplementary):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CreateTerminatorDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorTerminator):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteTerminatorDescriptor(AVolume:TDiskVolume; ADrive:TDiskDrive; ACDFSType:TCDFSType; ADescriptor:PCDFSVolumeDescriptorTerminator):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>function AcceptVolume(AVolume:TDiskVolume; AFloppyType:TFloppyType; AFileSysType:TFileSysType):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function FormatVolume(AVolume:TDiskVolume; AFloppyType:TFloppyType; AFileSysType:TFileSysType):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS resizer'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSResizer = class(TDiskResizer)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>function AcceptVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ShrinkVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ExpandVolume(AVolume:TDiskVolume; const AStart,ASize:Int64):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div> 
 +
 
 +
'''CDFS copier'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSCopier = class(TDiskCopier)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>function AcceptVolume(AVolume,ADest:TDiskVolume):Boolean; override;</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CopyVolume(AVolume,ADest:TDiskVolume):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS file system'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSFileSystem = class(TFileSystem)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
| <code>constructor Create(ADriver:TFileSysDriver; AVolume:TDiskVolume; ADrive:TDiskDrive);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FCDFSType:TCDFSType;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSwapSerial:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FVolumeFlags:LongWord;</code>
 +
| Volume flags
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FTreesLoaded:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FBlocksLoaded:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FCatalogsLoaded:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FCatalogsLoading:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FBlockWrite:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FTreesPrepared:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FCatalogsChecked:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FLogicalBlockSize:Word;</code>
 +
| Size of a logical block on disk
 +
|-
 +
| <code>FLogicalBlockCount:LongWord;</code>
 +
| Number of logical blocks on disk
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FSectorsPerCluster:LongWord;</code>
 +
| Usually 1,2,4,8,16,32,64,128 etc
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FDataStartCluster:LongWord;</code>
 +
| Usually 16 (First cluster of Data Area)
 +
|-
 +
| <code>FBootStartCluster:LongWord;</code>
 +
| Usually 17 (Cluster of the Boot Descriptor)
 +
|-
 +
| <code>FRootStartCluster:LongWord;</code>
 +
| Pointed to by Primary Descriptor
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FBlockShiftCount:Word;</code>
 +
| Shift count for Cluster <-> BlockNo
 +
|-
 +
| <code>FSectorShiftCount:Word;</code>
 +
| Shift count for Sector <-> Cluster
 +
|-
 +
| <code>FClusterShiftCount:Word;</code>
 +
| Shift count for Cluster <-> Bytes
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FEntriesPerBlock:LongWord;</code>
 +
| Number of Cluster entries per Block of bitmap
 +
|-
 +
| <code>FClustersPerBlock:LongWord;</code>
 +
| Number of Clusters per Block of bitmap entries
 +
|-
 +
| <code>FTotalBlockCount:LongWord;</code>
 +
| Total number of Blocks in bitmap
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FTotalClusterCount:LongWord;</code>
 +
| Total number of Clusters on volume
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FLastFreeCluster:LongWord;</code>
 +
| Or cdfsUnknownCluster if not known
 +
|-
 +
| <code>FFreeClusterCount:LongWord;</code>
 +
| Or cdfsUnknownCluster if not known
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FClusterSize:LongWord;</code>
 +
| Size of a Cluster in Bytes (Max 65536 > Word)
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FBoot:TCDFSDiskDescriptor;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPrimary:TCDFSDiskDescriptor;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSupplementary:TCDFSDiskDescriptor;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FHeaders:TFileSysList;</code>
 +
| List of Catalog Headers
 +
|-
 +
| <code>FExtensions:TFileSysList;</code>
 +
| List of Catalog Extensions
 +
|-
 +
| <code>FDescriptors:TFileSysList;</code>
 +
| List of Volume Descriptors
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FHeaderLocal:TMutexHandle;</code>
 +
| Local Lock shared by all Catalog Headers
 +
|-
 +
| <code>FExtensionLocal:TMutexHandle;</code>
 +
| Local Lock shared by all Catalog Extensions
 +
|-
 +
| <code>FDescriptorLocal:TMutexHandle;</code>
 +
| Local Lock shared by all Volume Descriptors
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FExtendedLocal:TMutexHandle;</code>
 +
| Local Lock shared by all Extended Attributes
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPathLock:TSynchronizerHandle;</code>
 +
| Lock shared by all Path lists
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FReadBuffer:Pointer;</code>
 +
| Buffer for partial cluster entry reads (Cluster size)
 +
|-
 +
| <code>FReadLock:TMutexHandle;</code>
 +
| Lock for read buffer
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FWriteBuffer:Pointer;</code>
 +
| Buffer for partial cluster entry writes (Cluster size)
 +
|-
 +
| <code>FWriteLock:TMutexHandle;</code>
 +
| Lock for write buffer
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FClusterBuffer:Pointer;</code>
 +
| Buffer of exactly cluster size
 +
|-
 +
| <code>FClusterLock:TMutexHandle;</code>
 +
| Lock for cluster buffer
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ReadLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReadUnlock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function WriteLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteUnlock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ClusterLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ClusterUnlock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function LoadTree(AEntry:TDiskEntry):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MarkTree(AEntry:TDiskEntry):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function PrepareTree(AEntry:TDiskEntry):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function PrepareTable(ATable:TDiskTable):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function PrepareTrees:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function CheckCatalogs:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function LocatePath(ATable:TCDFSDiskTable; APathNumber:Word):TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LocateEntry(AEntry:TCDFSDiskEntry; AStartCluster:LongWord):TCDFSDiskEntry;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function LoadVolumeFlags:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function FillClusters(ACluster:LongWord; ACount:Word; AValue:Byte):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ReadClusters(ACluster:LongWord; ACount:Word; var ABuffer):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteClusters(ACluster:LongWord; ACount:Word; const ABuffer):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function TestClusters(ACluster,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MarkClusters(ACluster,ACount:LongWord; AUsed:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AllocClusters(var ACluster:LongWord; ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseClusters(ACluster,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetNextFreeCluster:LongWord;</code>
 +
| Return is a Cluster
 +
|-
 +
| <code>function GetFreeClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function TestBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MarkBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord; AUsed:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AllocBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseBlock(ABlock:TCDFSDiskBlock; AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetBlockNextFree(ABlock:TCDFSDiskBlock; AStart:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetBlockFreeCount(ABlock:TCDFSDiskBlock):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function TestBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MarkBitmap(ABuffer:Pointer; ASize,AStart,ACount:LongWord; AUsed:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AllocBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseBitmap(ABuffer:Pointer; ASize:LongWord; AStart,ACount:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetBitmapNextFree(ABuffer:Pointer; ASize,AStart:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetBitmapFreeCount(ABuffer:Pointer; ASize:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetTableDataFree(ATable:TDiskTable):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetEntryDataFree(AEntry:TDiskEntry):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetCatalogDataFree(ADescriptor:TCDFSDiskDescriptor):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetPreviousPath(ATable:TCDFSDiskTable; APath:TCDFSDiskPath):TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetPreviousEntry(AParent,AEntry:TCDFSDiskEntry):TCDFSDiskEntry;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetSectorsPerCluster(AClusterSize:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetBlockShiftCount(AClusterSize:LongWord):Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetSectorShiftCount(AClusterSize:LongWord):Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetClusterShiftCount(AClusterSize:LongWord):Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetEntriesPerBlock(AClusterSize:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetClustersPerBlock(AClusterSize:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetTotalBlockCount(ATotalClusterCount:LongWord):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function RenumberPaths(ATable:TDiskTable):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ComparePath(APath1,APath2:TCDFSDiskPath; AUnicode:Boolean):Integer;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function CompareEntry(AEntry1,AEntry2:TCDFSDiskEntry; AUnicode:Boolean):Integer;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function PadString(const AString:String; ALength:Integer; APrefix,AUnicode:Boolean):String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function CompareString(const AString1,AString2:String; AReverse:Boolean):Integer;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ChecksumValidationRecord(AValidation:PELTORITOValidationRecord):Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function RecordToPath(ARecord:Pointer; APath:TCDFSDiskPath; AUnicode,AEndian:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function PathToRecord(APath:TCDFSDiskPath; ARecord:Pointer; AUnicode,AEndian:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function RecordToEntry(ARecord:Pointer; AEntry:TCDFSDiskEntry; AUnicode:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function EntryToRecord(AEntry:TCDFSDiskEntry; ARecord:Pointer; AUnicode:Boolean):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CDFSTypeToFileSysType(ACDFSType:TCDFSType):TFileSysType;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
 +
|-
 +
| <code>function LoadMaxFile:Integer; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadMaxPath:Integer; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadAttributes:LongWord; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadSystemName:String; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadVolumeName:String; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadVolumeSerial:LongWord; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadFileSysType:TFileSysType; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function SetVolumeName(const AName:String):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetVolumeSerial(ASerial:LongWord):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ReadEntry(AParent,AEntry:TDiskEntry; var ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function WriteEntry(AParent,AEntry:TDiskEntry; const ABuffer; const AStart:Int64; ACount:LongWord; var AOffset,AValue:LongWord):Integer; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function LoadTrees:Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadTables:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadBlocks:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadDescriptors:Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadRoots:Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadPaths(ATable:TCDFSDiskTable):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadEntries(AParent:TDiskEntry):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadCatalogs:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function SetPaths(ATable:TCDFSDiskTable):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetEntries(AParent:TDiskEntry):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetCatalogs:Boolean;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function LoadTable(ATableNo:LongWord):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadBlock(ABlockNo:LongWord):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function LoadDescriptor(ABuffer:Pointer; ACluster:LongWord):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadRoot(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadPath(ATable:TCDFSDiskTable; ABuffer:Pointer; AOffset:LongWord; ANumber:Word):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadEntry(AParent:TCDFSDiskEntry; ABuffer:Pointer; AOffset,ACluster:LongWord):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadHeader(ABuffer:Pointer; AOffset,ACluster:LongWord; AHeaderNo:LongWord):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadCatalog(ABuffer:Pointer; AOffset,ACluster:LongWord; ACatalogNo:LongWord; AInitial:Boolean):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadExtension(ABuffer:Pointer; AOffset,ACluster:LongWord; AExtensionNo:LongWord):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function LoadExtended(AEntry:TDiskEntry):Boolean;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AddDescriptor(AType:Byte):TCDFSDiskDescriptor;</code>
 +
| Not override
 +
|-
 +
| <code>function RemoveDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AddPath(ATable:TDiskTable; AParentNumber:Word; const AName:String; AStartCluster:LongWord):TCDFSDiskPath;</code>
 +
| Not override
 +
|-
 +
| <code>function RemovePath(ATable:TDiskTable; APath:TCDFSDiskPath):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function RenamePath(ATable:TDiskTable; APath:TCDFSDiskPath; const AName:String):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function MovePath(ATable:TDiskTable; ADestNumber:Word; APath:TCDFSDiskPath):Boolean;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AddEntry(AParent:TDiskEntry; const AName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function AddEntryEx(AParent:TDiskEntry; const AName,AAltName:String; AAttributes:LongWord; AReference:Boolean):TDiskEntry; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RemoveEntry(AParent,AEntry:TDiskEntry):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RenameEntry(AParent,AEntry:TDiskEntry; const AName:String):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RenameEntryEx(AParent,AEntry:TDiskEntry; const AAltName:String):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function MoveEntry(ASource,ADest,AEntry:TDiskEntry):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AddCatalog(AEntry:TDiskEntry; AMediaType:TMediaType; AFloppyType:TFloppyType; AAttributes:LongWord; ASectorSize:Word; const ASectorCount:Int64):TDiskCatalog; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function RemoveCatalog(ACatalog:TDiskCatalog):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetNextHeaderNo:LongWord;</code>
 +
| Not override
 +
|-
 +
| <code>function GetMaxHeaderNo:LongWord;</code>
 +
| Not override
 +
|-
 +
| <code>function GetNextHeaderOffset:LongWord;</code>
 +
| Not override
 +
|-
 +
| <code>function GetNextHeaderCluster:LongWord;</code>
 +
| Not override
 +
|-
 +
| <code>function GetNextCatalogOffset:LongWord;</code>
 +
| Not override
 +
|-
 +
| <code>function GetNextCatalogCluster:LongWord;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function SetTable(ATable:TDiskTable):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetBlock(ABlock:TDiskBlock):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetDescriptor(ADescriptor:TCDFSDiskDescriptor):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetRoot(ADescriptor:TCDFSDiskDescriptor; ARoot:TDiskEntry):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetPath(ATable:TDiskTable; APath:TCDFSDiskPath; ABuffer:Pointer):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetEntry(AParent,AEntry:TDiskEntry):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetHeader(AHeader:TCDFSDiskHeader):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetCatalog(ACatalog:TDiskCatalog):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetExtension(AExtension:TCDFSDiskExtension):Boolean;</code>
 +
| Not override
 +
|-
 +
| <code>function SetExtended(AEntry:TDiskEntry; AExtended:TCDFSDiskExtended):Boolean;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function SizeEntry(AParent,AEntry:TDiskEntry; const ASize:Int64):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetBlock(ABlockNo:LongWord):TDiskBlock; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetBlockEx(ABlockNo:LongWord; AWrite:Boolean):TDiskBlock; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetDescriptor(AType,AInstance:Byte):TCDFSDiskDescriptor;</code>
 +
| Not override
 +
|-
 +
| <code>function GetDescriptorEx(AType,AInstance:Byte; AWrite:Boolean):TCDFSDiskDescriptor;</code>
 +
| Not override
 +
|-
 +
| <code>function GetRoot(ADescriptor:TCDFSDiskDescriptor):TDiskEntry;</code>
 +
| Not override
 +
|-
 +
| <code>function GetPath(ATable:TDiskTable; AParentNumber:Word; const AName:String):TCDFSDiskPath;</code>
 +
| Not override
 +
|-
 +
| <code>function GetHeader(AHeaderNo:LongWord):TCDFSDiskHeader;</code>
 +
| Not override
 +
|-
 +
| <code>function GetHeaderEx(AHeaderNo:LongWord; AWrite:Boolean):TCDFSDiskHeader;</code>
 +
| Not override
 +
|-
 +
| <code>function GetExtension(AExtensionNo:LongWord):TCDFSDiskExtension;</code>
 +
| Not override
 +
|-
 +
| <code>function GetExtensionEx(AExtensionNo:LongWord; AWrite:Boolean):TCDFSDiskExtension;</code>
 +
| Not override
 +
|-
 +
| <code>function GetExtended(AEntry:TDiskEntry):TCDFSDiskExtended;</code>
 +
| Not override
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetVersion(const AName:String):String;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function StripDot(const AName:String):String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function StripVersion(const AName:String):String;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CompareName(const AName,AMatch:String; AWildcard:Boolean):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function CompareSequence(const ASequence; const ACompare; ASize:Integer):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function CompareIdentifier(const AIdentifier; const ACompare; ASize:Integer):Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function CalculateVolumeSerial(ABuffer:Pointer; ASize:Integer):LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property ReadOnly:Boolean read FReadOnly write FReadOnly;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property LongNames:Boolean read FLongNames write FLongNames;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CasePreserved:Boolean read FCasePreserved write FCasePreserved;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property UnicodeNames:Boolean read FUnicodeNames write FUnicodeNames;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SwapSerial:Boolean read FSwapSerial write FSwapSerial;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function FileSystemInit:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function MountFileSystem:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function DismountFileSystem:Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function InitializeFileSystem(ASectorsPerCluster:LongWord; AFileSysType:TFileSysType):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetDriveLabel:String; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetDriveLabel(const ALabel:String):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function SetDriveSerial(ASerial:LongWord):Boolean; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetDriveFreeSpaceEx:Int64; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetDriveTotalSpaceEx:Int64; override;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk table'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskTable = class(TDiskTable)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS path table.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALock:TSynchronizerHandle; ALocalLock:TMutexHandle; ADescriptor:TCDFSDiskDescriptor);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FTableType:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FEndian:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FUnicode:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPathsLoaded:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FDataFree:LongWord;</code>
 +
| Data Free
 +
|-
 +
| <code>FDataSize:LongWord;</code>
 +
| Data Length
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPaths:TFileSysListEx;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPathLocal:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FDescriptor:TCDFSDiskDescriptor;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property TableType:Byte read FTableType write FTableType;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Endian:Boolean read FEndian write FEndian;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property PathsLoaded:Boolean read FPathsLoaded write FPathsLoaded;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property DataFree:LongWord read FDataFree write FDataFree;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property DataSize:LongWord read FDataSize write FDataSize;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Paths:TFileSysListEx read FPaths;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PathLocal:TMutexHandle read FPathLocal;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Descriptor:TCDFSDiskDescriptor read FDescriptor;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk block'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskBlock = class(TDiskBlock)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a block of clusters.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FBlockCount:LongWord;</code>
 +
| Number of cluster entries in this block
 +
|-
 +
| <code>FBlockBuffer:Pointer;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FBlockCluster:LongWord;</code>
 +
| First cluster represented by this block
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property BlockCount:LongWord read FBlockCount write FBlockCount;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BlockBuffer:Pointer read FBlockBuffer write FBlockBuffer;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BlockCluster:LongWord read FBlockCluster write FBlockCluster;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk entry'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskEntry = class(TDiskEntry)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS directory entry.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FUnicode:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FVersion:String;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FEntryOffset:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FEntryCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FRecordSize:Byte;</code>
 +
| Length of Directory Record (LEN-DR)
 +
|-
 +
| <code>FExtendedSize:Byte;</code>
 +
| Extended Attribute Record Length
 +
|-
 +
| <code>FDataSize:LongWord;</code>
 +
| Data Length
 +
|-
 +
| <code>FUnitSize:Byte;</code>
 +
| File Unit Size
 +
|-
 +
| <code>FInterleaveSize:Byte;</code>
 +
| Interleave Gap Size
 +
|-
 +
| <code>FSequenceNumber:Word;</code>
 +
| Volume Sequence Number
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FDataFree:LongWord;</code>
 +
| Data Free
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPath:TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPathM:TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FAltPath:TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FAltPathM:TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FExtended:TCDFSDiskExtended;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetVersion:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetVersion(const AVersion:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Version:String read GetVersion write SetVersion;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property EntryOffset:LongWord read FEntryOffset write FEntryOffset;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EntryCluster:LongWord read FEntryCluster write FEntryCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property RecordSize:Byte read FRecordSize write FRecordSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExtendedSize:Byte read FExtendedSize write FExtendedSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property DataSize:LongWord read FDataSize write FDataSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property FirstBlock:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property UnitSize:Byte read FUnitSize write FUnitSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property InterleaveSize:Byte read FInterleaveSize write FInterleaveSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SequenceNumber:Word read FSequenceNumber write FSequenceNumber;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property DataFree:LongWord read FDataFree write FDataFree;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Path:TCDFSDiskPath read FPath write FPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PathM:TCDFSDiskPath read FPathM write FPathM;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AltPath:TCDFSDiskPath read FAltPath write FAltPath;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AltPathM:TCDFSDiskPath read FAltPathM write FAltPathM;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Extended:TCDFSDiskExtended read FExtended write FExtended;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function PathNumber:Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ParentNumber:Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function FileIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function FileIdentifierSize:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function DirectoryRecordSize:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ExtendedRecordSize:Byte;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk catalog'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskCatalog = class(TDiskCatalog)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS boot catalog entry (Also the Initial/Default entry).
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FCatalogOffset:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FCatalogCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FInitial:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FBootIndicator:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FBootMedia:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FLoadSegment:Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSystemType:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FLoadCount:Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FSelectionType:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSelectionData:Pointer;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FEntry:TCDFSDiskEntry;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FHeader:TCDFSDiskHeader;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''protected'''</div>
 +
|-
 +
| <code>function GetName:String; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetName(const AName:String); override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetMediaType:TMediaType; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetMediaType(AMediaType:TMediaType); override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetFloppyType:TFloppyType; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetFloppyType(AFloppyType:TFloppyType); override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetAttributes:LongWord; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetAttributes(AAttributes:LongWord); override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetSectorSize:Word; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetSectorSize(ASectorSize:Word); override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetSectorCount:Int64; override;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetSectorCount(const ASectorCount:Int64); override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetStartCluster(AStartCluster:LongWord);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetClusterCount(AClusterCount:LongWord);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property CatalogOffset:LongWord read FCatalogOffset write FCatalogOffset;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CatalogCluster:LongWord read FCatalogCluster write FCatalogCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property StartCluster:LongWord read GetStartCluster write SetStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ClusterCount:LongWord read GetClusterCount write SetClusterCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Initial:Boolean read FInitial write FInitial;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BootIndicator:Byte read FBootIndicator write FBootIndicator;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BootMedia:Byte read FBootMedia write FBootMedia;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property LoadSegment:Word read FLoadSegment write FLoadSegment;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SystemType:Byte read FSystemType write FSystemType;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property LoadCount:Word read FLoadCount write FLoadCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property SelectionType:Byte read FSelectionType write FSelectionType;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SelectionData:Pointer read FSelectionData write FSelectionData;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Entry:TCDFSDiskEntry read FEntry write FEntry;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Header:TCDFSDiskHeader read FHeader write FHeader;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Validation:TCDFSDiskHeader read FHeader write FHeader;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk path'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskPath = class(TListObject)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS path table entry.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLocalLock:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FName:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FHash:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPathNumber:Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPathOffset:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FExtendedSize:Byte;</code>
 +
| Extended Attribute Record Length
 +
|-
 +
| <code>FParentNumber:Word;</code>
 +
| Parent Directory Number
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FParent:TCDFSDiskPath;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AcquireLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetName:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetName(const AName:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property Name:String read GetName write SetName;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Hash:LongWord read FHash;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property PathNumber:Word read FPathNumber write FPathNumber;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PathOffset:LongWord read FPathOffset write FPathOffset;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property ExtendedSize:Byte read FExtendedSize write FExtendedSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property FirstBlock:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ParentNumber:Word read FParentNumber write FParentNumber;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Parent:TCDFSDiskPath read FParent write FParent;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function PathIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function PathIdentifierSize(AUnicode:Boolean):Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function PathRecordSize(AUnicode:Boolean):Byte;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk extended'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskExtended = class(TObject)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS extended attribute.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLocalLock:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FClusterCount:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FOwnerId:Word;</code>
 +
| Owner Identification
 +
|-
 +
| <code>FGroupId:Word;</code>
 +
| Group Identification
 +
|-
 +
| <code>FPermissions:Word;</code>
 +
| Permissions 16 bits
 +
|-
 +
| <code>FCreateTime:TFileTime;</code>
 +
| File Creation Date and Time
 +
|-
 +
| <code>FModifyTime:TFileTime;</code>
 +
| File Modification Date and Time
 +
|-
 +
| <code>FExpireTime:TFileTime;</code>
 +
| File Expiration Date and Time
 +
|-
 +
| <code>FEffectiveTime:TFileTime;</code>
 +
| File Effective Date and Time
 +
|-
 +
| <code>FRecordFormat:Byte;</code>
 +
| Record Format
 +
|-
 +
| <code>FRecordAttributes:Byte;</code>
 +
| Record Attributes
 +
|-
 +
| <code>FRecordLength:Word;</code>
 +
| Record Length
 +
|-
 +
| <code>FSystemIdentifier:String;</code>
 +
| System Identifier a-characters, a1-characters
 +
|-
 +
| <code>FSystemData:Pointer;</code>
 +
| System Use not specified
 +
|-
 +
| <code>FExtendedVersion:Byte;</code>
 +
| Extended Attribute Record Version
 +
|-
 +
| <code>FEscapeSequenceSize:Byte;</code>
 +
| Length of Escape Sequences (LEN_ESC)
 +
|-
 +
| <code>FApplicationDataSize:Word;</code>
 +
| Length of Application Use (LEN_AU)
 +
|-
 +
| <code>FApplicationData:Pointer;</code>
 +
| Application Use LEN_AU bytes
 +
|-
 +
| <code>FEscapeSequence:Pointer;</code>
 +
| Escape Sequences LEN_ESC bytes
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AcquireLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetSystemIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetSystemIdentifier(const ASystemIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ClusterCount:LongWord read FClusterCount write FClusterCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property OwnerId:Word read FOwnerId write FOwnerId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property GroupId:Word read FGroupId write FGroupId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Permissions:Word read FPermissions write FPermissions;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CreateTime:TFileTime read FCreateTime write FCreateTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ModifyTime:TFileTime read FModifyTime write FModifyTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExpireTime:TFileTime read FExpireTime write FExpireTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EffectiveTime:TFileTime read FEffectiveTime write FEffectiveTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property RecordFormat:Byte read FRecordFormat write FRecordFormat;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property RecordAttributes:Byte read FRecordAttributes write FRecordAttributes;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property RecordLength:Word read FRecordLength write FRecordLength;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SystemIdentifier:String read GetSystemIdentifier write SetSystemIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SystemData:Pointer read FSystemData write FSystemData;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExtendedVersion:Byte read FExtendedVersion write FExtendedVersion;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EscapeSequenceSize:Byte read FEscapeSequenceSize write FEscapeSequenceSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ApplicationDataSize:Word read FApplicationDataSize write FApplicationDataSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ApplicationData:Pointer read FApplicationData write FApplicationData;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EscapeSequence:Pointer read FEscapeSequence write FEscapeSequence;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function ExtendedRecordSize:Byte;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk descriptor'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskDescriptor = class(TListObject)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS volume descriptor.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLocalLock:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FUnicode:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FStartCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FDescriptorType:Byte;</code>
 +
| Descriptor Type (00 = Boot, 01 = Primary etc)
 +
|-
 +
| <code>FDescriptorVersion:Byte;</code>
 +
| Descriptor Version (1)
 +
|-
 +
| <code>FStandardIdentifier:String;</code>
 +
| Standard Identifier ('CD001')
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FSystemIdentifier:String;</code>
 +
| System Identifier a-characters (eg EL TORITO SPECIFICATION)
 +
|-
 +
| <code>FVolumeIdentifier:String;</code>
 +
| Volume Identifier d-characters
 +
|-
 +
| <code>FVolumeSpaceSize:LongWord;</code>
 +
| Volume Space Size
 +
|-
 +
| <code>FVolumeSetSize:Word;</code>
 +
| Volume Set Size
 +
|-
 +
| <code>FVolumeSequenceNumber:Word;</code>
 +
| Volume Sequence Number
 +
|-
 +
| <code>FLogicalBlockSize:Word;</code>
 +
| Logical Block Size
 +
|-
 +
| <code>FPathTableSize:LongWord;</code>
 +
| Path Table Size
 +
|-
 +
| <code>FPrimaryPathTable:LongWord;</code>
 +
| Location of Occurrence of Type L Path Table
 +
|-
 +
| <code>FAlternatePathTable:LongWord;</code>
 +
| Location of Optional Occurrence of Type L Path Table
 +
|-
 +
| <code>FPrimaryPathTableM:LongWord;</code>
 +
| Location of Occurrence of Type M Path Table
 +
|-
 +
| <code>FAlternatePathTableM:LongWord;</code>
 +
| Location of Optional Occurrence of Type M Path Table
 +
|-
 +
| <code>FVolumeSetIdentifier:String;</code>
 +
| Volume Set Identifier d-characters
 +
|-
 +
| <code>FPublisherIdentifier:String;</code>
 +
| Publisher Identifier a-characters
 +
|-
 +
| <code>FPreparerIdentifier:String;</code>
 +
| Data Preparer Identifier a-characters
 +
|-
 +
| <code>FApplicationIdentifier:String;</code>
 +
| Application Identifier a-characters
 +
|-
 +
| <code>FCopyrightIdentifier:String;</code>
 +
| Copyright File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
 +
|-
 +
| <code>FAbstractIdentifier:String;</code>
 +
| Abstract File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
 +
|-
 +
| <code>FBibliographicIdentifier:String;</code>
 +
| Bibliographic File Identifier d-characters, SEPARATOR 1, SEPARATOR 2
 +
|-
 +
| <code>FCreateTime:TFileTime;</code>
 +
| Volume Creation Date and Time
 +
|-
 +
| <code>FModifyTime:TFileTime;</code>
 +
| Volume Modification Date and Time
 +
|-
 +
| <code>FExpireTime:TFileTime;</code>
 +
| Volume Expiration Date and Time
 +
|-
 +
| <code>FEffectiveTime:TFileTime;</code>
 +
| Volume Effective Date and Time
 +
|-
 +
| <code>FFileStructureVersion:Byte;</code>
 +
| File Structure Version
 +
|-
 +
| <code>FApplicationData:Pointer;</code>
 +
| Application Use not specified
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FVolumeFlags:Byte;</code>
 +
| Volume Flags 8 bits
 +
|-
 +
| <code>FEscapeSequences:Pointer;</code>
 +
| Escape Sequences 32 bytes
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FBootIdentifier:String;</code>
 +
| 32 a-characters
 +
|-
 +
| <code>FCatalogStart:LongWord;</code>
 +
| Absolute pointer to first sector of Boot Catalog
 +
|-
 +
| <code>FCatalogCount:LongWord;</code>
 +
| Number of Sectors in Boot Catalog (Not Stored)
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FPartitionIdentifier:String;</code>
 +
| Volume Partition Identifier d-characters
 +
|-
 +
| <code>FPartitionStart:LongWord;</code>
 +
| Volume Partition Location (first Logical Block)
 +
|-
 +
| <code>FPartitionSize:LongWord;</code>
 +
| Volume Partition Size (in Logical Blocks)
 +
|-
 +
| <code>FSystemData:Pointer;</code>
 +
| System Use not specified
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FRoot:TCDFSDiskEntry;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPrimary:TCDFSDiskTable;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPrimaryM:TCDFSDiskTable;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FAlternate:TCDFSDiskTable;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FAlternateM:TCDFSDiskTable;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FInitial:TCDFSDiskCatalog;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FValidation:TCDFSDiskHeader;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AcquireLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetStandardIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetStandardIdentifier(const AStandardIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetSystemIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetSystemIdentifier(const ASystemIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetVolumeIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetVolumeIdentifier(const AVolumeIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetVolumeSetIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetVolumeSetIdentifier(const AVolumeSetIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetPublisherIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetPublisherIdentifier(const APublisherIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetPreparerIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetPreparerIdentifier(const APreparerIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetApplicationIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetApplicationIdentifier(const AApplicationIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetCopyrightIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetCopyrightIdentifier(const ACopyrightIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetAbstractIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetAbstractIdentifier(const AAbstractIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
| <code>function GetBibliographicIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetBibliographicIdentifier(const ABibliographicIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetBootIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetBootIdentifier(const ABootIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetPartitionIdentifier:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetPartitionIdentifier(const APartitionIdentifier:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property Unicode:Boolean read FUnicode write FUnicode;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property StartCluster:LongWord read FStartCluster write FStartCluster;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property DescriptorType:Byte read FDescriptorType write FDescriptorType;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property DescriptorVersion:Byte read FDescriptorVersion write FDescriptorVersion;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property StandardIdentifier:String read GetStandardIdentifier write SetStandardIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property SystemIdentifier:String read GetSystemIdentifier write SetSystemIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VolumeIdentifier:String read GetVolumeIdentifier write SetVolumeIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VolumeSpaceSize:LongWord read FVolumeSpaceSize write FVolumeSpaceSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VolumeSetSize:Word read FVolumeSetSize write FVolumeSetSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VolumeSequenceNumber:Word read FVolumeSequenceNumber write FVolumeSequenceNumber;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property LogicalBlockSize:Word read FLogicalBlockSize write FLogicalBlockSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PathTableSize:LongWord read FPathTableSize write FPathTableSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PrimaryPathTable:LongWord read FPrimaryPathTable write FPrimaryPathTable;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AlternatePathTable:LongWord read FAlternatePathTable write FAlternatePathTable;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PrimaryPathTableM:LongWord read FPrimaryPathTableM write FPrimaryPathTableM;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AlternatePathTableM:LongWord read FAlternatePathTableM write FAlternatePathTableM;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VolumeSetIdentifier:String read GetVolumeSetIdentifier write SetVolumeSetIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PublisherIdentifier:String read GetPublisherIdentifier write SetPublisherIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PreparerIdentifier:String read GetPreparerIdentifier write SetPreparerIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ApplicationIdentifier:String read GetApplicationIdentifier write SetApplicationIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CopyrightIdentifier:String read GetCopyrightIdentifier write SetCopyrightIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AbstractIdentifier:String read GetAbstractIdentifier write SetAbstractIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property BibliographicIdentifier:String read GetBibliographicIdentifier write SetBibliographicIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CreateTime:TFileTime read FCreateTime write FCreateTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ModifyTime:TFileTime read FModifyTime write FModifyTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExpireTime:TFileTime read FExpireTime write FExpireTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EffectiveTime:TFileTime read FEffectiveTime write FEffectiveTime;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property FileStructureVersion:Byte read FFileStructureVersion write FFileStructureVersion;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ApplicationData:Pointer read FApplicationData write FApplicationData;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property VolumeFlags:Byte read FVolumeFlags write FVolumeFlags;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property EscapeSequences:Pointer read FEscapeSequences write FEscapeSequences;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property BootIdentifier:String read GetBootIdentifier write SetBootIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CatalogStart:LongWord read FCatalogStart write FCatalogStart;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property CatalogCount:LongWord read FCatalogCount write FCatalogCount;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property PartitionIdentifier:String read GetPartitionIdentifier write SetPartitionIdentifier;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PartitionStart:LongWord read FPartitionStart write FPartitionStart;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PartitionSize:LongWord read FPartitionSize write FPartitionSize;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SystemData:Pointer read FSystemData write FSystemData;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Root:TCDFSDiskEntry read FRoot write FRoot;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Primary:TCDFSDiskTable read FPrimary write FPrimary;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PrimaryM:TCDFSDiskTable read FPrimaryM write FPrimaryM;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Alternate:TCDFSDiskTable read FAlternate write FAlternate;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property AlternateM:TCDFSDiskTable read FAlternateM write FAlternateM;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Initial:TCDFSDiskCatalog read FInitial write FInitial;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Validation:TCDFSDiskHeader read FValidation write FValidation;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk header'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskHeader = class(TListObject)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS catalog header (Also the Validation entry).
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLocalLock:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FHeaderNo:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FHeaderOffset:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FHeaderCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FValidation:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FHeaderId:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FPlatformId:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FVendorId:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FChecksum:Word;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSignature:Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FSectionCount:Word;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AcquireLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function GetVendorId:String;</code>
 +
| &nbsp;
 +
|-
 +
| <code>procedure SetVendorId(const AVendorId:String);</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property HeaderNo:LongWord read FHeaderNo write FHeaderNo;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property HeaderOffset:LongWord read FHeaderOffset write FHeaderOffset;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property HeaderCluster:LongWord read FHeaderCluster write FHeaderCluster;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Validation:Boolean read FValidation write FValidation;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property HeaderId:Byte read FHeaderId write FHeaderId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property PlatformId:Byte read FPlatformId write FPlatformId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property VendorId:String read GetVendorId write SetVendorId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Checksum:Word read FChecksum write FChecksum;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property Signature:Word read FSignature write FSignature;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property HeaderIndicator:Byte read FHeaderId write FHeaderId;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SectionCount:Word read FSectionCount write FSectionCount;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SectionId:String read GetVendorId write SetVendorId;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
 
 +
'''CDFS disk extension'''
 +
 
 +
<div class="toccolours mw-collapsible mw-collapsed" style="border: 1; font-family: arial;">
 +
 
 +
<code>TCDFSDiskExtension = class(TListObject)</code>
 +
<div class="mw-collapsible-content" style="text-align: left; padding-left: 5px;">
 +
{| class="wikitable" style="font-size: 14px; background: white;"
 +
|-
 +
|colspan="2"|Note: Represents a CDFS catalog extension.
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>constructor Create(ALocalLock:TMutexHandle);</code>
 +
| style="width: 50%;"|&nbsp;
 +
|-
 +
| <code>destructor Destroy; override;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''private'''</div>
 +
|-
 +
| <code>FLocalLock:TMutexHandle;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FExtensionNo:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FExtensionOffset:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FExtensionCluster:LongWord;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FExtensionIndicator:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FExtensionFlag:Byte;</code>
 +
| &nbsp;
 +
|-
 +
| <code>FSelectionData:Pointer;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>FCatalog:TCDFSDiskCatalog;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>function AcquireLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
| <code>function ReleaseLock:Boolean;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|<div style="font-family: monospace,courier;">'''public'''</div>
 +
|-
 +
| <code>property ExtensionNo:LongWord read FExtensionNo write FExtensionNo;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property ExtensionOffset:LongWord read FExtensionOffset write FExtensionOffset;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExtensionCluster:LongWord read FExtensionCluster write FExtensionCluster;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property ExtensionIndicator:Byte read FExtensionIndicator write FExtensionIndicator;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property ExtensionFlag:Byte read FExtensionFlag write FExtensionFlag;</code>
 +
| &nbsp;
 +
|-
 +
| <code>property SelectionData:Pointer read FSelectionData write FSelectionData;</code>
 +
| &nbsp;
 +
|-
 +
|colspan="2"|&nbsp;
 +
|-
 +
| <code>property Catalog:TCDFSDiskCatalog read FCatalog write FCatalog;</code>
 +
| &nbsp;
 +
|-
 +
|}
 +
</div></div>
 +
<br />
  
 
=== Public variables ===
 
=== Public variables ===

Revision as of 03:33, 9 March 2017

Return to Unit Reference


Description

Ultibo CDFS interface unit

To be documented

Constants


[Expand]
CDFS specific constants cdfs*


[Expand]
CDFS bitmap mask constants cdfsBitmapMask*


[Expand]
CDFS volume flag constants cdfsVolumeFlag*


[Expand]
CDFS file flag constants cdfsFileFlag*


[Expand]
CDFS permissions constants cdfsPermission*


[Expand]
CDFS path table constants cdfsPathTable*


[Expand]
CDFS volume descriptor constants cdfsVolumeDescriptor*


[Expand]
CDFS header constants cdfsElTorito*


[Expand]
CDFS signature constants cdfsElToritoSignature*


[Expand]
CDFS platform Id constants cdfsElToritoPlatform*


[Expand]
CDFS media type constants cdfsElToritoMedia*


[Expand]
CDFS extension flag constants cdfsElToritoExtensionFlag*


Type definitions


CDFS specific types

TCDFSType = (ctNONE,ctISO9660,ctJOLIET,ctSIERRA,ctROCKRIDGE,ctAUDIO,ctUDF);

CDFS time types

[Expand]

PCDFSTime = ^TCDFSTime;

TCDFSTime = packed record

CDFS date time types

[Expand]

PCDFSDateTime = ^TCDFSDateTime;

TCDFSDateTime = packed record

CDFS directory record types

[Expand]

PCDFSDirectoryRecord = ^TCDFSDirectoryRecord;

TCDFSDirectoryRecord = packed record

CDFS path record types

[Expand]

PCDFSPathRecord = ^TCDFSPathRecord;

TCDFSPathRecord = packed record

CDFS extended record types

[Expand]

PCDFSExtendedRecord = ^TCDFSExtendedRecord;

TCDFSExtendedRecord = packed record

CDFS volume descriptor header types

[Expand]

PCDFSVolumeDescriptorHeader = ^TCDFSVolumeDescriptorHeader;

TCDFSVolumeDescriptorHeader = packed record

CDFS volume descriptor boot types

[Expand]

PCDFSVolumeDescriptorBoot = ^TCDFSVolumeDescriptorBoot;

TCDFSVolumeDescriptorBoot = packed record

CDFS volume descriptor primary types

[Expand]

PCDFSVolumeDescriptorPrimary = ^TCDFSVolumeDescriptorPrimary;

TCDFSVolumeDescriptorPrimary = packed record

CDFS volume descriptor supplementary types

[Expand]

PCDFSVolumeDescriptorSupplementary = ^TCDFSVolumeDescriptorSupplementary;

TCDFSVolumeDescriptorSupplementary = packed record

CDFS volume descriptor partition types

[Expand]

PCDFSVolumeDescriptorPartition = ^TCDFSVolumeDescriptorPartition;

TCDFSVolumeDescriptorPartition = packed record

CDFS volume descriptor terminator types

[Expand]

PCDFSVolumeDescriptorTerminator = ^TCDFSVolumeDescriptorTerminator;

TCDFSVolumeDescriptorTerminator = packed record

EL TORITO validation record types

[Expand]

PELTORITOValidationRecord = ^TELTORITOValidationRecord;

TELTORITOValidationRecord = packed record

EL TORITO default record types

[Expand]

PELTORITODefaultRecord = ^TELTORITODefaultRecord;

TELTORITODefaultRecord = packed record

EL TORITO section header types

[Expand]

PELTORITOSectionHeader = ^TELTORITOSectionHeader;

TELTORITOSectionHeader = packed record

EL TORITO section record types

[Expand]

PELTORITOSectionRecord = ^TELTORITOSectionRecord;

TELTORITOSectionRecord = packed record

EL TORITO section extension types

[Expand]

PELTORITOSectionExtension = ^TELTORITOSectionExtension;

TELTORITOSectionExtension = packed record

EL TORITO volume descriptor boot types

[Expand]

PELTORITOVolumeDescriptorBoot = ^TELTORITOVolumeDescriptorBoot;

TELTORITOVolumeDescriptorBoot = packed record


Class definitions


CDFS recognizer

[Expand]

TCDFSRecognizer = class(TRecognizer)

CDFS formatter

[Expand]

TCDFSFormatter = class(TDiskFormatter)

CDFS resizer

[Expand]

TCDFSResizer = class(TDiskResizer)

CDFS copier

[Expand]

TCDFSCopier = class(TDiskCopier)

CDFS file system

[Expand]

TCDFSFileSystem = class(TFileSystem)

CDFS disk table

[Expand]

TCDFSDiskTable = class(TDiskTable)

CDFS disk block

[Expand]

TCDFSDiskBlock = class(TDiskBlock)

CDFS disk entry

[Expand]

TCDFSDiskEntry = class(TDiskEntry)

CDFS disk catalog

[Expand]

TCDFSDiskCatalog = class(TDiskCatalog)

CDFS disk path

[Expand]

TCDFSDiskPath = class(TListObject)

CDFS disk extended

[Expand]

TCDFSDiskExtended = class(TObject)

CDFS disk descriptor

[Expand]

TCDFSDiskDescriptor = class(TListObject)

CDFS disk header

[Expand]

TCDFSDiskHeader = class(TListObject)

CDFS disk extension

[Expand]

TCDFSDiskExtension = class(TListObject)


Public variables

None defined

Function declarations


Initialization functions

[Expand] 
procedure CDFSInit;
Description: To be documented


[Expand] 
procedure CDFSQuit;
Description: To be documented


CDFS helper functions

[Expand] 
function CDFSDataToPointer(const AData; ASize:Integer; ASwap:Boolean):Pointer;
Description: Creates a pointer and copies data from a buffer


[Expand] 
function CDFSPointerToData(APointer:Pointer; var AData; ASize:Integer; ASwap:Boolean):Boolean;
Description: Copies data to a buffer from supplied pointer


[Expand] 
function CDFSIdentifierToString(const AIdentifier; ASize:Integer; AUnicode:Boolean):String;
Description: Converts the supplied indentifier to a string


[Expand] 
function CDFSStringToIdentifier(const AString:String; var AIdentifier; ASize:Integer; AUnicode:Boolean):Boolean;
Description: Converts the supplied string to an identifier


[Expand] 
function CDFSIdentifierToFileName(const AIdentifier; ASize:Integer; AUnicode:Boolean):String;
Description: Converts the supplied identifier to a filename


[Expand] 
function CDFSFileNameToIdentifier(const AFileName:String; var AIdentifier; ASize:Integer; AUnicode:Boolean):Boolean;
Description: Converts the supplied filename to an identifier


[Expand] 
function CDFSTimeToFileTime(const ATime:TCDFSTime):TFileTime;
Description: Converts a CDFS Time in Local to a File Time in UTC


[Expand] 
function FileTimeToCDFSTime(const AFileTime:TFileTime; var ATime:TCDFSTime):Boolean;
Description: Converts a File Time in UTC to a CDFS Time in Local


[Expand] 
function CDFSDateTimeToFileTime(const ADateTime:TCDFSDateTime):TFileTime;
Description: Converts a CDFS Date Time in Local to a File Time in UTC


[Expand] 
function FileTimeToCDFSDateTime(const AFileTime:TFileTime; var ADateTime:TCDFSDateTime):Boolean;
Description: Converts a File Time in UTC to a CDFS Date Time in Local


Return to Unit Reference

Retrieved from "https://ultibo.org/mediawiki_ultibo_org/index.php?title=Unit_CDFS&oldid=2601"