3 * FAT12/16/32 Driver Version (Incl LFN)
\r
5 * NOTE: This driver will only support _reading_ long file names, not
\r
6 * writing. I don't even know why I'm adding write-support. FAT sucks.
\r
9 * - LFN Is buggy in FAT_ReadDir
\r
12 * \todo Implement changing of the parent directory when a file is written to
\r
13 * \todo Implement file creation / deletion
\r
18 #define CACHE_FAT 1 //!< Caches the FAT in memory
\r
19 #define USE_LFN 1 //!< Enables the use of Long File Names
\r
20 #define SUPPORT_WRITE 0
\r
23 #include <modules.h>
\r
27 #define FAT_FLAG_DIRTY 0x10000
\r
28 #define FAT_FLAG_DELETE 0x20000
\r
32 typedef struct s_lfncache
\r
38 struct s_lfncache *Next;
\r
42 // === PROTOTYPES ===
\r
43 int FAT_Install(char **Arguments);
\r
44 tVFS_Node *FAT_InitDevice(char *device, char **options);
\r
45 void FAT_Unmount(tVFS_Node *Node);
\r
47 Uint32 FAT_int_GetFatValue(tFAT_VolInfo *Disk, Uint32 Cluster);
\r
48 Uint32 FAT_int_AllocateCluster(tFAT_VolInfo *Disk, Uint32 Previous);
\r
50 void FAT_int_ReadCluster(tFAT_VolInfo *Disk, Uint32 Cluster, int Length, void *Buffer);
\r
51 Uint64 FAT_Read(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);
\r
53 void FAT_int_WriteCluster(tFAT_VolInfo *Disk, Uint32 Cluster, void *Buffer);
\r
54 Uint64 FAT_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer);
\r
57 char *FAT_ReadDir(tVFS_Node *Node, int ID);
\r
58 tVFS_Node *FAT_FindDir(tVFS_Node *Node, char *Name);
\r
59 int FAT_Mknod(tVFS_Node *Node, char *Name, Uint Flags);
\r
60 int FAT_Relink(tVFS_Node *node, char *OldName, char *NewName);
\r
61 void FAT_CloseFile(tVFS_Node *node);
\r
64 int giFAT_MaxCachedClusters = 1024*512/4;
\r
66 // === SEMI-GLOBALS ===
\r
67 MODULE_DEFINE(0, (0<<8)|50 /*v0.50*/, VFAT, FAT_Install, NULL, NULL);
\r
68 tFAT_VolInfo gFAT_Disks[8];
\r
69 int giFAT_PartCount = 0;
\r
71 t_lfncache *fat_lfncache;
\r
73 tVFS_Driver gFAT_FSInfo = {"fat", 0, FAT_InitDevice, FAT_Unmount, NULL};
\r
77 * \fn int FAT_Install(char **Arguments)
\r
80 int FAT_Install(char **Arguments)
\r
82 VFS_AddDriver( &gFAT_FSInfo );
\r
83 return MODULE_ERR_OK;
\r
87 * \fn tVFS_Node *FAT_InitDevice(char *Device, char **Options)
\r
88 * \brief Reads the boot sector of a disk and prepares the structures for it
\r
90 tVFS_Node *FAT_InitDevice(char *Device, char **Options)
\r
94 Uint32 FATSz, RootDirSectors, TotSec;
\r
95 tVFS_Node *node = NULL;
\r
96 tFAT_VolInfo *diskInfo = &gFAT_Disks[giFAT_PartCount];
\r
98 // Temporary Pointer
\r
99 bs = &diskInfo->bootsect;
\r
101 //Open device and read boot sector
\r
102 diskInfo->fileHandle = VFS_Open(Device, VFS_OPENFLAG_READ|VFS_OPENFLAG_WRITE);
\r
103 if(diskInfo->fileHandle == -1) {
\r
104 Log_Notice("FAT", "Unable to open device '%s'", Device);
\r
108 VFS_ReadAt(diskInfo->fileHandle, 0, 512, bs);
\r
110 if(bs->bps == 0 || bs->spc == 0) {
\r
111 Log_Notice("FAT", "Error in FAT Boot Sector");
\r
115 // FAT Type Determining
\r
116 // - From Microsoft FAT Specifcation
\r
117 RootDirSectors = ((bs->files_in_root*32) + (bs->bps - 1)) / bs->bps;
\r
119 if(bs->fatSz16 != 0) FATSz = bs->fatSz16;
\r
120 else FATSz = bs->spec.fat32.fatSz32;
\r
122 if(bs->totalSect16 != 0) TotSec = bs->totalSect16;
\r
123 else TotSec = bs->totalSect32;
\r
125 diskInfo->ClusterCount = (TotSec - (bs->resvSectCount + (bs->fatCount * FATSz) + RootDirSectors)) / bs->spc;
\r
127 if(diskInfo->ClusterCount < 4085)
\r
128 diskInfo->type = FAT12;
\r
129 else if(diskInfo->ClusterCount < 65525)
\r
130 diskInfo->type = FAT16;
\r
132 diskInfo->type = FAT32;
\r
136 char *sFatType, *sSize;
\r
137 Uint iSize = diskInfo->ClusterCount * bs->spc * bs->bps / 1024;
\r
139 switch(diskInfo->type)
\r
141 case FAT12: sFatType = "FAT12"; break;
\r
142 case FAT16: sFatType = "FAT16"; break;
\r
143 case FAT32: sFatType = "FAT32"; break;
\r
144 default: sFatType = "UNKNOWN"; break;
\r
146 if(iSize <= 2*1024) {
\r
149 else if(iSize <= 2*1024*1024) {
\r
157 Log_Notice("FAT", "'%s' %s, %i %s", Device, sFatType, iSize, sSize);
\r
162 if(diskInfo->type == FAT32) {
\r
164 diskInfo->name[i] = (bs->spec.fat32.label[i] == ' ' ? '\0' : bs->spec.fat32.label[i]);
\r
168 diskInfo->name[i] = (bs->spec.fat16.label[i] == ' ' ? '\0' : bs->spec.fat16.label[i]);
\r
170 diskInfo->name[11] = '\0';
\r
172 // Compute Root directory offset
\r
173 if(diskInfo->type == FAT32)
\r
174 diskInfo->rootOffset = bs->spec.fat32.rootClust;
\r
176 diskInfo->rootOffset = (FATSz * bs->fatCount) / bs->spc;
\r
178 diskInfo->firstDataSect = bs->resvSectCount + (bs->fatCount * FATSz) + RootDirSectors;
\r
180 //Allow for Caching the FAT
\r
182 if( diskInfo->ClusterCount <= giFAT_MaxCachedClusters )
\r
185 diskInfo->FATCache = (Uint32*)malloc(sizeof(Uint32)*diskInfo->ClusterCount);
\r
186 if(diskInfo->FATCache == NULL) {
\r
187 Log_Warning("FAT", "Heap Exhausted");
\r
190 Ofs = bs->resvSectCount*512;
\r
191 if(diskInfo->type == FAT12)
\r
196 for(i = 0; i < diskInfo->ClusterCount/2; i++) {
\r
197 j = i & 511; //%512
\r
199 VFS_ReadAt(diskInfo->fileHandle, Ofs, 3*512, buf);
\r
202 val = *((int*)(buf+j*3));
\r
203 diskInfo->FATCache[i*2] = val & 0xFFF;
\r
204 diskInfo->FATCache[i*2+1] = (val>>12) & 0xFFF;
\r
207 else if(diskInfo->type == FAT16)
\r
210 for(i=0;i<diskInfo->ClusterCount;i++) {
\r
211 if( (i & 255) == 0 ) {
\r
212 VFS_ReadAt(diskInfo->fileHandle, Ofs, 512, buf);
\r
215 diskInfo->FATCache[i] = buf[i&255];
\r
218 else if(diskInfo->type == FAT32)
\r
221 for(i=0;i<diskInfo->ClusterCount;i++) {
\r
222 if( (i & 127) == 0 ) {
\r
223 VFS_ReadAt(diskInfo->fileHandle, Ofs, 512, buf);
\r
226 diskInfo->FATCache[i] = buf[i&127];
\r
229 LOG("FAT Fully Cached");
\r
231 #endif /*CACHE_FAT*/
\r
233 diskInfo->BytesPerCluster = bs->spc * bs->bps;
\r
235 // Initalise inode cache for filesystem
\r
236 diskInfo->inodeHandle = Inode_GetHandle();
\r
237 LOG("Inode Cache handle is %i", diskInfo->inodeHandle);
\r
239 // == VFS Interface
\r
240 node = &diskInfo->rootNode;
\r
241 //node->Size = bs->files_in_root;
\r
243 node->Inode = diskInfo->rootOffset; // 0:31 - Cluster, 32:63 - Parent Directory Cluster
\r
244 node->ImplPtr = diskInfo; // Disk info pointer
\r
245 node->ImplInt = 0; // 0:15 - Directory Index, 16: Dirty Flag, 17: Deletion Flag
\r
247 node->ReferenceCount = 1;
\r
249 node->UID = 0; node->GID = 0;
\r
251 node->ACLs = &gVFS_ACL_EveryoneRWX;
\r
252 node->Flags = VFS_FFLAG_DIRECTORY;
\r
253 node->CTime = node->MTime = node->ATime = now();
\r
255 node->Read = node->Write = NULL;
\r
256 node->ReadDir = FAT_ReadDir;
\r
257 node->FindDir = FAT_FindDir;
\r
259 node->Relink = FAT_Relink;
\r
260 node->MkNod = FAT_Mknod;
\r
262 node->Relink = NULL;
\r
263 node->MkNod = NULL;
\r
265 //node->Close = FAT_Unmount;
\r
267 giFAT_PartCount ++;
\r
272 * \brief Closes a mount and marks it as free
\r
273 * \param Node Mount Root
\r
275 * \todo Remove FAT Cache
\r
276 * \todo Clear LFN Cache
\r
277 * \todo Check that all files are closed and flushed
\r
279 void FAT_Unmount(tVFS_Node *Node)
\r
281 tFAT_VolInfo *disk = Node->ImplPtr;
\r
283 // Close Disk Handle
\r
284 VFS_Close( disk->fileHandle );
\r
285 // Clear Node Cache
\r
286 Inode_ClearCache(disk->inodeHandle);
\r
288 disk->fileHandle = -2;
\r
293 * \brief Converts an offset in a file into a disk address
\r
294 * \param Node File (or directory) node
\r
295 * \param Offset Offset in the file
\r
296 * \param Addr Return Address
\r
297 * \param Cluster Set to the current cluster (or the last one if \a Offset
\r
298 * is past EOC) - Not touched if the node is the root
\r
300 * \return Zero on success, non-zero on error
\r
302 int FAT_int_GetAddress(tVFS_Node *Node, Uint64 Offset, Uint64 *Addr, Uint32 *Cluster)
\r
307 tFAT_VolInfo *disk = Node->ImplPtr;
\r
309 ENTER("pNode XOffset", Node, Offset);
\r
311 cluster = Node->Inode & 0xFFFFFFFF; // Cluster ID
\r
312 LOG("cluster = %08x", cluster);
\r
315 // - Pre FAT32 had a reserved area for the root.
\r
316 if( disk->type == FAT32 || cluster != disk->rootOffset )
\r
318 skip = Offset / disk->BytesPerCluster;
\r
319 LOG("skip = %i", skip);
\r
320 // Skip previous clusters
\r
323 if(Cluster) *Cluster = cluster;
\r
324 cluster = FAT_int_GetFatValue(disk, cluster);
\r
325 // Check for end of cluster chain
\r
326 if(cluster == -1) { LEAVE('i', 1); return 1;}
\r
328 if(Cluster) *Cluster = cluster;
\r
331 LOG("cluster = %08x", cluster);
\r
333 // Bounds Checking (Used to spot corruption)
\r
334 if(cluster > disk->ClusterCount + 2)
\r
336 Log_Warning("FAT", "Cluster ID is over cluster count (0x%x>0x%x)",
\r
337 cluster, disk->ClusterCount+2);
\r
343 // - Pre FAT32 cluster base (in sectors)
\r
344 if( cluster == disk->rootOffset && disk->type != FAT32 ) {
\r
345 addr = disk->bootsect.resvSectCount * disk->bootsect.bps;
\r
346 addr += cluster * disk->BytesPerCluster;
\r
349 addr = disk->firstDataSect * disk->bootsect.bps;
\r
350 addr += (cluster - 2) * disk->BytesPerCluster;
\r
352 addr += Offset % disk->BytesPerCluster;
\r
354 LOG("addr = 0x%08x", addr);
\r
361 * ====================
\r
363 * ====================
\r
366 * \fn Uint32 FAT_int_GetFatValue(tFAT_VolInfo *Disk, Uint32 cluster)
\r
367 * \brief Fetches a value from the FAT
\r
369 Uint32 FAT_int_GetFatValue(tFAT_VolInfo *Disk, Uint32 cluster)
\r
373 ENTER("pDisk xCluster", Disk, cluster);
\r
374 LOCK( &Disk->lFAT );
\r
376 if( Disk->ClusterCount <= giFAT_MaxCachedClusters )
\r
378 val = Disk->FATCache[cluster];
\r
379 if(Disk->type == FAT12 && val == EOC_FAT12) val = -1;
\r
380 if(Disk->type == FAT16 && val == EOC_FAT16) val = -1;
\r
381 if(Disk->type == FAT32 && val == EOC_FAT32) val = -1;
\r
386 ofs = Disk->bootsect.resvSectCount*512;
\r
387 if(Disk->type == FAT12) {
\r
388 VFS_ReadAt(Disk->fileHandle, ofs+(cluster>>1)*3, 3, &val);
\r
389 val = (cluster&1 ? val&0xFFF : val>>12);
\r
390 if(val == EOC_FAT12) val = -1;
\r
391 } else if(Disk->type == FAT16) {
\r
392 VFS_ReadAt(Disk->fileHandle, ofs+cluster*2, 2, &val);
\r
393 if(val == EOC_FAT16) val = -1;
\r
395 VFS_ReadAt(Disk->fileHandle, ofs+cluster*4, 4, &val);
\r
396 if(val == EOC_FAT32) val = -1;
\r
400 #endif /*CACHE_FAT*/
\r
401 RELEASE( &Disk->lFAT );
\r
408 * \brief Allocate a new cluster
\r
410 Uint32 FAT_int_AllocateCluster(tFAT_VolInfo *Disk, Uint32 Previous)
\r
412 Uint32 ret = Previous;
\r
414 if( Disk->ClusterCount <= giFAT_MaxCachedClusters )
\r
419 for(ret = Previous; ret < Disk->ClusterCount; ret++)
\r
421 if(Disk->FATCache[ret] == 0)
\r
424 for(ret = 0; ret < Previous; ret++)
\r
426 if(Disk->FATCache[ret] == 0)
\r
430 RELEASE(Disk->lFAT);
\r
436 case FAT12: eoc = EOC_FAT12; break;
\r
437 case FAT16: eoc = EOC_FAT16; break;
\r
438 case FAT32: eoc = EOC_FAT32; break;
\r
442 Disk->FATCache[ret] = eoc;
\r
443 Disk->FATCache[Previous] = ret;
\r
445 RELEASE(Disk->lFAT);
\r
452 Uint32 ofs = Disk->bootsect.resvSectCount*512;
\r
453 Log_Warning("FAT", "TODO: Implement cluster allocation with non cached FAT");
\r
459 VFS_ReadAt(Disk->fileHandle, ofs+(Previous>>1)*3, 3, &val);
\r
460 if( Previous & 1 ) {
\r
468 VFS_WriteAt(Disk->fileHandle, ofs+(Previous>>1)*3, 3, &val);
\r
470 VFS_ReadAt(Disk->fileHandle, ofs+(ret>>1)*3, 3, &val);
\r
471 if( Cluster & 1 ) {
\r
479 VFS_WriteAt(Disk->fileHandle, ofs+(ret>>1)*3, 3, &val);
\r
482 VFS_ReadAt(Disk->fileHandle, ofs+Previous*2, 2, &ret);
\r
483 VFS_WriteAt(Disk->fileHandle, ofs+ret*2, 2, &eoc);
\r
486 VFS_ReadAt(Disk->fileHandle, ofs+Previous*4, 4, &ret);
\r
487 VFS_WriteAt(Disk->fileHandle, ofs+ret*4, 4, &eoc);
\r
497 * \brief Free's a cluster
\r
498 * \return The original contents of the cluster
\r
500 Uint32 FAT_int_FreeCluster(tFAT_VolInfo *Disk, Uint32 Cluster)
\r
504 if( Disk->ClusterCount <= giFAT_MaxCachedClusters )
\r
508 ret = Disk->FATCache[Cluster];
\r
509 Disk->FATCache[Cluster] = 0;
\r
511 RELEASE(Disk->lFAT);
\r
517 Uint32 ofs = Disk->bootsect.resvSectCount*512;
\r
522 VFS_ReadAt(Disk->fileHandle, ofs+(Cluster>>1)*3, 3, &val);
\r
523 if( Cluster & 1 ) {
\r
524 ret = val & 0xFFF0000;
\r
531 VFS_WriteAt(Disk->fileHandle, ofs+(Previous>>1)*3, 3, &val);
\r
534 VFS_ReadAt(Disk->fileHandle, ofs+Previous*2, 2, &ret);
\r
536 VFS_WriteAt(Disk->fileHandle, ofs+Cluster*2, 2, &val);
\r
539 VFS_ReadAt(Disk->fileHandle, ofs+Previous*4, 4, &ret);
\r
541 VFS_WriteAt(Disk->fileHandle, ofs+Cluster*2, 2, &val);
\r
544 RELEASE(Disk->lFAT);
\r
548 if(Disk->type == FAT12 && ret == EOC_FAT12) ret = -1;
\r
549 if(Disk->type == FAT16 && ret == EOC_FAT16) ret = -1;
\r
550 if(Disk->type == FAT32 && ret == EOC_FAT32) ret = -1;
\r
556 * ====================
\r
558 * ====================
\r
561 * \brief Read a cluster
\r
563 void FAT_int_ReadCluster(tFAT_VolInfo *Disk, Uint32 Cluster, int Length, void *Buffer)
\r
565 ENTER("pDisk xCluster iLength pBuffer", Disk, Cluster, Length, Buffer);
\r
566 //Log("Cluster = %i (0x%x)", Cluster, Cluster);
\r
569 (Disk->firstDataSect + (Cluster-2)*Disk->bootsect.spc )
\r
570 * Disk->bootsect.bps,
\r
577 /* ====================
\r
579 * ====================
\r
582 * \fn Uint64 FAT_Read(tVFS_Node *node, Uint64 offset, Uint64 length, void *buffer)
\r
583 * \brief Reads data from a specified file
\r
585 Uint64 FAT_Read(tVFS_Node *Node, Uint64 offset, Uint64 length, void *buffer)
\r
587 int preSkip, count;
\r
588 int i, cluster, pos;
\r
591 tFAT_VolInfo *disk = Node->ImplPtr;
\r
593 ENTER("pNode Xoffset Xlength pbuffer", Node, offset, length, buffer);
\r
595 // Calculate and Allocate Bytes Per Cluster
\r
596 bpc = disk->BytesPerCluster;
\r
597 tmpBuf = (void*) malloc(bpc);
\r
598 if( !tmpBuf ) return 0;
\r
600 // Cluster is stored in Inode Field
\r
601 cluster = Node->Inode & 0xFFFFFFFF;
\r
603 // Sanity Check offset
\r
604 if(offset > Node->Size) {
\r
605 LOG("Reading past EOF (%i > %i)", offset, Node->Size);
\r
610 if(offset + length > Node->Size) {
\r
611 LOG("Reading past EOF (%lli + %lli > %lli), clamped to %lli",
\r
612 offset, length, Node->Size, Node->Size - offset);
\r
613 length = Node->Size - offset;
\r
616 // Single Cluster including offset
\r
617 if(length + offset < bpc)
\r
619 FAT_int_ReadCluster(disk, cluster, bpc, tmpBuf);
\r
620 memcpy( buffer, (void*)( tmpBuf + offset%bpc ), length );
\r
627 if( FAT_int_GetAddress(Node, offset, &addr) )
\r
629 Log_Warning("FAT", "Offset is past end of cluster chain mark");
\r
635 preSkip = offset / bpc;
\r
637 //Skip previous clusters
\r
638 for(i=preSkip;i--;) {
\r
639 cluster = FAT_int_GetFatValue(disk, cluster);
\r
640 if(cluster == -1) {
\r
641 Log_Warning("FAT", "Offset is past end of cluster chain mark");
\r
647 // Get Count of Clusters to read
\r
648 count = ((offset%bpc+length) / bpc) + 1;
\r
650 // Get buffer Position after 1st cluster
\r
651 pos = bpc - offset%bpc;
\r
653 // Read 1st Cluster
\r
654 FAT_int_ReadCluster(disk, cluster, bpc, tmpBuf);
\r
657 (void*)( tmpBuf + (bpc-pos) ),
\r
658 (pos < length ? pos : length)
\r
667 cluster = FAT_int_GetFatValue(disk, cluster);
\r
670 LOG("pos = %i", pos);
\r
671 LOG("Reading the rest of the clusters");
\r
675 // Read the rest of the cluster data
\r
676 for( i = 1; i < count-1; i++ )
\r
678 FAT_int_ReadCluster(disk, cluster, bpc, tmpBuf);
\r
679 memcpy((void*)(buffer+pos), tmpBuf, bpc);
\r
681 cluster = FAT_int_GetFatValue(disk, cluster);
\r
682 if(cluster == -1) {
\r
683 Warning("FAT_Read - Read past End of Cluster Chain");
\r
690 FAT_int_ReadCluster(disk, cluster, bpc, tmpBuf);
\r
691 memcpy((void*)(buffer+pos), tmpBuf, length-pos);
\r
694 LOG("Free tmpBuf(0x%x) and Return", tmpBuf);
\r
698 LEAVE('X', length);
\r
704 * \brief Write a cluster to disk
\r
706 void FAT_int_WriteCluster(tFAT_VolInfo *Disk, Uint32 Cluster, void *Buffer)
\r
708 ENTER("pDisk xCluster pBuffer", Disk, Cluster, Buffer);
\r
711 (Disk->firstDataSect + (Cluster-2)*Disk->bootsect.spc )
\r
712 * Disk->bootsect.bps,
\r
713 Disk->BytesPerCluster,
\r
720 * \brief Write to a file
\r
721 * \param Node File Node
\r
722 * \param Offset Offset within file
\r
723 * \param Length Size of data to write
\r
724 * \param Buffer Data source
\r
726 Uint64 FAT_Write(tVFS_Node *Node, Uint64 Offset, Uint64 Length, void *Buffer)
\r
728 tFAT_VolInfo *disk = Node->ImplPtr;
\r
730 int remLength = Length;
\r
731 Uint32 cluster, tmpCluster;
\r
732 int bNewCluster = 0;
\r
734 if(Offset > Node->Size) return 0;
\r
737 cluster = Node->Inode & 0xFFFFFFFF;
\r
738 while( Offset > disk->BytesPerCluster )
\r
740 cluster = FAT_int_GetFatValue( disk, cluster );
\r
741 if(cluster == -1) {
\r
742 Log_Warning("FAT", "EOC Unexpectedly Reached");
\r
745 Offset -= disk->BytesPerCluster;
\r
747 if( Offset == disk->BytesPerCluster )
\r
749 Uint32 tmp = FAT_int_AllocateCluster(disk, cluster);
\r
752 Offset -= disk->BytesPerCluster;
\r
755 if( Offset + Length < disk->BytesPerCluster )
\r
757 tmpBuf = malloc( disk->BytesPerCluster );
\r
759 // Read-Modify-Write
\r
760 FAT_int_ReadCluster( disk, cluster, disk->BytesPerCluster, tmpBuf );
\r
761 memcpy( tmpBuf + Offset, Buffer, Length );
\r
762 FAT_int_WriteCluster( disk, cluster, tmpBuf );
\r
768 // Clean up changes within a cluster
\r
771 tmpBuf = malloc( disk->BytesPerCluster );
\r
773 // Read-Modify-Write
\r
774 FAT_int_ReadCluster( disk, cluster, disk->BytesPerCluster, tmpBuf );
\r
775 memcpy( tmpBuf + Offset, Buffer, disk->BytesPerCluster - Offset );
\r
776 FAT_int_WriteCluster( disk, cluster, tmpBuf );
\r
780 remLength -= disk->BytesPerCluster - Offset;
\r
781 Buffer += disk->BytesPerCluster - Offset;
\r
783 // Get next cluster (allocating if needed)
\r
784 tmpCluster = FAT_int_GetFatValue(disk, cluster);
\r
785 if(tmpCluster == -1) {
\r
786 tmpCluster = FAT_int_AllocateCluster(disk, cluster);
\r
787 if( tmpCluster == 0 ) {
\r
788 return Length - remLength;
\r
791 cluster = tmpCluster;
\r
794 while( remLength > disk->BytesPerCluster )
\r
796 FAT_int_WriteCluster( disk, cluster, Buffer );
\r
797 Buffer += disk->BytesPerCluster;
\r
799 // Get next cluster (allocating if needed)
\r
800 tmpCluster = FAT_int_GetFatValue(disk, cluster);
\r
801 if(tmpCluster == -1) {
\r
803 tmpCluster = FAT_int_AllocateCluster(disk, cluster);
\r
804 if( tmpCluster == 0 ) {
\r
805 return Length - remLength;
\r
808 cluster = tmpCluster;
\r
812 tmpBuf = malloc( disk->BytesPerCluster );
\r
814 memset(tmpBuf, 0, disk->BytesPerCluster);
\r
816 FAT_int_ReadCluster( disk, cluster, disk->BytesPerCluster, tmpBuf );
\r
817 memcpy( tmpBuf, Buffer, remLength );
\r
818 FAT_int_WriteCluster( disk, cluster, tmpBuf );
\r
825 /* ====================
\r
826 * File Names & Nodes
\r
827 * ====================
\r
830 * \fn void FAT_int_ProperFilename(char *dest, char *src)
\r
831 * \brief Converts a FAT directory entry name into a proper filename
\r
833 void FAT_int_ProperFilename(char *dest, char *src)
\r
837 for( a = 0; a < 8; a++) {
\r
838 if(src[a] == ' ') break;
\r
845 for( ; a < 11; a++, b++) {
\r
846 if(src[a] == ' ') break;
\r
851 //LOG("dest='%s'", dest);
\r
856 * \fn char *FAT_int_CreateName(fat_filetable *ft, char *LongFileName)
\r
857 * \brief Converts either a LFN or a 8.3 Name into a proper name
\r
859 char *FAT_int_CreateName(fat_filetable *ft, char *LongFileName)
\r
862 ENTER("pft sLongFileName", ft, LongFileName);
\r
864 if(LongFileName && LongFileName[0] != '\0')
\r
866 ret = strdup(LongFileName);
\r
871 ret = (char*) malloc(13);
\r
872 memset(ret, 13, '\0');
\r
873 FAT_int_ProperFilename(ret, ft->name);
\r
882 * \fn tVFS_Node *FAT_int_CreateNode(tVFS_Node *parent, fat_filetable *ft)
\r
883 * \brief Creates a tVFS_Node structure for a given file entry
\r
885 tVFS_Node *FAT_int_CreateNode(tVFS_Node *Parent, fat_filetable *Entry, int Pos)
\r
887 tVFS_Node node = {0};
\r
889 tFAT_VolInfo *disk = Parent->ImplPtr;
\r
891 ENTER("pParent pFT", Parent, Entry);
\r
894 node.Inode = Entry->cluster | (Entry->clusterHi<<16) | (Parent->Inode << 32);
\r
895 LOG("node.Inode = %llx", node.Inode);
\r
896 node.ImplInt = Pos & 0xFFFF;
\r
897 node.ImplPtr = disk;
\r
898 node.Size = Entry->size;
\r
899 LOG("Entry->size = %i", Entry->size);
\r
900 node.UID = 0; node.GID = 0;
\r
904 if(Entry->attrib & ATTR_DIRECTORY) node.Flags |= VFS_FFLAG_DIRECTORY;
\r
905 if(Entry->attrib & ATTR_READONLY) {
\r
906 node.Flags |= VFS_FFLAG_READONLY;
\r
907 node.ACLs = &gVFS_ACL_EveryoneRX; // R-XR-XR-X
\r
910 node.ACLs = &gVFS_ACL_EveryoneRWX; // RWXRWXRWX
\r
913 node.ATime = timestamp(0,0,0,
\r
914 ((Entry->adate&0x1F) - 1), // Days
\r
915 ((Entry->adate&0x1E0) - 1), // Months
\r
916 1980+((Entry->adate&0xFF00)>>8) // Years
\r
919 node.CTime = Entry->ctimems * 10; // Miliseconds
\r
920 node.CTime += timestamp(
\r
921 ((Entry->ctime&0x1F)<<1), // Seconds
\r
922 ((Entry->ctime&0x3F0)>>5), // Minutes
\r
923 ((Entry->ctime&0xF800)>>11), // Hours
\r
924 ((Entry->cdate&0x1F)-1), // Days
\r
925 ((Entry->cdate&0x1E0)-1), // Months
\r
926 1980+((Entry->cdate&0xFF00)>>8) // Years
\r
929 node.MTime = timestamp(
\r
930 ((Entry->mtime&0x1F)<<1), // Seconds
\r
931 ((Entry->mtime&0x3F0)>>5), // Minutes
\r
932 ((Entry->mtime&0xF800)>>11), // Hours
\r
933 ((Entry->mdate&0x1F)-1), // Days
\r
934 ((Entry->mdate&0x1E0)-1), // Months
\r
935 1980+((Entry->mdate&0xFF00)>>8) // Years
\r
938 if(node.Flags & VFS_FFLAG_DIRECTORY) {
\r
939 //Log_Debug("FAT", "Directory %08x has size 0x%x", node.Inode, node.Size);
\r
940 node.ReadDir = FAT_ReadDir;
\r
941 node.FindDir = FAT_FindDir;
\r
943 node.MkNod = FAT_Mknod;
\r
944 node.Relink = FAT_Relink;
\r
948 node.Read = FAT_Read;
\r
950 node.Write = FAT_Write;
\r
953 node.Close = FAT_CloseFile;
\r
955 ret = Inode_CacheNode(disk->inodeHandle, &node);
\r
960 /* ====================
\r
962 * ====================
\r
966 * \brief Reads a sector from the disk
\r
968 int FAT_int_ReadDirSector(tVFS_Node *Node, int Sector, fat_filetable *Buffer)
\r
971 tFAT_VolInfo *disk = Node->ImplPtr;
\r
973 ENTER("pNode iSector pEntry", Node, Sector, Buffer);
\r
975 if(FAT_int_GetAddress(Node, Sector * 512, &addr, NULL))
\r
981 LOG("addr = 0x%llx", addr);
\r
983 if(VFS_ReadAt(disk->fileHandle, addr, 512, Buffer) != 512)
\r
995 * \brief Writes an entry to the disk
\r
996 * \todo Support expanding a directory
\r
997 * \return Zero on success, non-zero on error
\r
999 int FAT_int_WriteDirEntry(tVFS_Node *Node, int ID, fat_filetable *Entry)
\r
1003 Uint32 cluster = 0;
\r
1004 tFAT_VolInfo *disk = Node->ImplPtr;
\r
1006 ENTER("pNode iID pEntry", Node, ID, Entry);
\r
1008 tmp = FAT_int_GetAddress(Node, ID * sizeof(fat_filetable), &addr, &cluster);
\r
1011 //TODO: Allocate a cluster
\r
1012 cluster = FAT_int_AllocateCluster(Node->ImplPtr, cluster);
\r
1013 if(cluster == -1) {
\r
1014 Log_Warning("FAT", "Unable to allocate an other cluster for %p", Node);
\r
1018 FAT_int_GetAddress(Node, ID * sizeof(fat_filetable), &addr, &cluster);
\r
1022 LOG("addr = 0x%llx", addr);
\r
1025 VFS_WriteAt(disk->fileHandle, addr, sizeof(fat_filetable), Entry); // Read Dir Data
\r
1033 // I should probably more tightly associate the LFN cache with the node
\r
1034 // somehow, maybe by adding a field to tVFS_Node before locking it
\r
1035 // Maybe .Cache or something like that (something that is free'd by the
\r
1036 // Inode_UncacheNode function)
\r
1039 * \fn char *FAT_int_GetLFN(tVFS_Node *node)
\r
1040 * \brief Return pointer to LFN cache entry
\r
1042 char *FAT_int_GetLFN(tVFS_Node *node)
\r
1045 tmp = fat_lfncache;
\r
1048 if(tmp->Inode == node->Inode && tmp->Disk == node->ImplPtr)
\r
1052 tmp = malloc(sizeof(t_lfncache));
\r
1053 tmp->Inode = node->Inode;
\r
1054 tmp->Disk = node->ImplPtr;
\r
1055 memset(tmp->Name, 0, 256);
\r
1057 tmp->Next = fat_lfncache;
\r
1058 fat_lfncache = tmp;
\r
1064 * \fn void FAT_int_DelLFN(tVFS_Node *node)
\r
1065 * \brief Delete a LFN cache entry
\r
1067 void FAT_int_DelLFN(tVFS_Node *node)
\r
1071 if(!fat_lfncache) return;
\r
1073 if(!fat_lfncache->Next)
\r
1075 tmp = fat_lfncache;
\r
1076 fat_lfncache = tmp->Next;
\r
1080 tmp = fat_lfncache;
\r
1081 while(tmp && tmp->Next)
\r
1083 if(tmp->Inode == node->Inode && tmp->Disk == node->ImplPtr)
\r
1086 tmp->Next = tmp->Next->Next;
\r
1095 * \fn char *FAT_ReadDir(tVFS_Node *Node, int ID)
\r
1096 * \param Node Node structure of directory
\r
1097 * \param ID Directory position
\r
1099 char *FAT_ReadDir(tVFS_Node *Node, int ID)
\r
1101 fat_filetable fileinfo[16]; //Sizeof=32, 16 per sector
\r
1108 ENTER("pNode iID", Node, ID);
\r
1110 if(FAT_int_ReadDirSector(Node, ID/16, fileinfo))
\r
1112 LOG("End of chain, end of dir");
\r
1117 // Offset in sector
\r
1120 LOG("fileinfo[%i].name[0] = 0x%x", a, (Uint8)fileinfo[a].name[0]);
\r
1122 // Check if this is the last entry
\r
1123 if( fileinfo[a].name[0] == '\0' ) {
\r
1125 LOG("End of list");
\r
1127 return NULL; // break
\r
1130 // Check for empty entry
\r
1131 if( (Uint8)fileinfo[a].name[0] == 0xE5 ) {
\r
1132 LOG("Empty Entry");
\r
1133 #if 0 // Stop on empty entry?
\r
1135 return NULL; // Stop
\r
1137 LEAVE('p', VFS_SKIP);
\r
1138 return VFS_SKIP; // Skip
\r
1143 // Get Long File Name Cache
\r
1144 lfn = FAT_int_GetLFN(Node);
\r
1145 if(fileinfo[a].attrib == ATTR_LFN)
\r
1147 fat_longfilename *lfnInfo;
\r
1150 lfnInfo = (fat_longfilename *) &fileinfo[a];
\r
1151 if(lfnInfo->id & 0x40) memset(lfn, 0, 256);
\r
1152 // Get the current length
\r
1153 len = strlen(lfn);
\r
1155 // Sanity Check (FAT implementations should not allow >255 bytes)
\r
1156 if(len + 13 > 255) return VFS_SKIP;
\r
1157 // Rebase all bytes
\r
1158 for(a=len+1;a--;) lfn[a+13] = lfn[a];
\r
1160 // Append new bytes
\r
1161 lfn[ 0] = lfnInfo->name1[0]; lfn[ 1] = lfnInfo->name1[1];
\r
1162 lfn[ 2] = lfnInfo->name1[2]; lfn[ 3] = lfnInfo->name1[3];
\r
1163 lfn[ 4] = lfnInfo->name1[4];
\r
1164 lfn[ 5] = lfnInfo->name2[0]; lfn[ 6] = lfnInfo->name2[1];
\r
1165 lfn[ 7] = lfnInfo->name2[2]; lfn[ 8] = lfnInfo->name2[3];
\r
1166 lfn[ 9] = lfnInfo->name2[4]; lfn[10] = lfnInfo->name2[5];
\r
1167 lfn[11] = lfnInfo->name3[0]; lfn[12] = lfnInfo->name3[1];
\r
1168 LOG("lfn = '%s'", lfn);
\r
1169 LEAVE('p', VFS_SKIP);
\r
1174 //Check if it is a volume entry
\r
1175 if(fileinfo[a].attrib & 0x08) {
\r
1176 LEAVE('p', VFS_SKIP);
\r
1179 // Ignore . and ..
\r
1180 if(fileinfo[a].name[0] == '.') {
\r
1181 LEAVE('p', VFS_SKIP);
\r
1185 LOG("name='%c%c%c%c%c%c%c%c.%c%c%c'",
\r
1186 fileinfo[a].name[0], fileinfo[a].name[1], fileinfo[a].name[2], fileinfo[a].name[3],
\r
1187 fileinfo[a].name[4], fileinfo[a].name[5], fileinfo[a].name[6], fileinfo[a].name[7],
\r
1188 fileinfo[a].name[8], fileinfo[a].name[9], fileinfo[a].name[10] );
\r
1191 ret = FAT_int_CreateName(&fileinfo[a], lfn);
\r
1194 ret = FAT_int_CreateName(&fileinfo[a], NULL);
\r
1202 * \fn tVFS_Node *FAT_FindDir(tVFS_Node *node, char *name)
\r
1203 * \brief Finds an entry in the current directory
\r
1205 tVFS_Node *FAT_FindDir(tVFS_Node *Node, char *Name)
\r
1207 fat_filetable fileinfo[16];
\r
1210 fat_longfilename *lfnInfo;
\r
1212 int lfnPos=255, lfnId = -1;
\r
1215 tVFS_Node *tmpNode;
\r
1216 tFAT_VolInfo *disk = Node->ImplPtr;
\r
1219 ENTER("pNode sname", Node, Name);
\r
1222 if(!Name || Name[0] == '\0') {
\r
1227 for( i = 0; ; i++ )
\r
1229 if((i & 0xF) == 0) {
\r
1230 if(FAT_int_ReadDirSector(Node, i/16, fileinfo))
\r
1237 //Check if the files are free
\r
1238 if(fileinfo[i&0xF].name[0] == '\0') break; // End of List marker
\r
1239 if(fileinfo[i&0xF].name[0] == '\xE5') continue; // Free entry
\r
1243 // Long File Name Entry
\r
1244 if(fileinfo[i&0xF].attrib == ATTR_LFN)
\r
1246 lfnInfo = (fat_longfilename *) &fileinfo[i&0xF];
\r
1247 if(lfnInfo->id & 0x40) {
\r
1248 memset(lfn, 0, 256);
\r
1251 lfn[lfnPos--] = lfnInfo->name3[1]; lfn[lfnPos--] = lfnInfo->name3[0];
\r
1252 lfn[lfnPos--] = lfnInfo->name2[5]; lfn[lfnPos--] = lfnInfo->name2[4];
\r
1253 lfn[lfnPos--] = lfnInfo->name2[3]; lfn[lfnPos--] = lfnInfo->name2[2];
\r
1254 lfn[lfnPos--] = lfnInfo->name2[1]; lfn[lfnPos--] = lfnInfo->name2[0];
\r
1255 lfn[lfnPos--] = lfnInfo->name1[4]; lfn[lfnPos--] = lfnInfo->name1[3];
\r
1256 lfn[lfnPos--] = lfnInfo->name1[2]; lfn[lfnPos--] = lfnInfo->name1[1];
\r
1257 lfn[lfnPos--] = lfnInfo->name1[0];
\r
1258 if((lfnInfo->id&0x3F) == 1)
\r
1260 memcpy(lfn, lfn+lfnPos+1, 256-lfnPos);
\r
1266 // Remove LFN if it does not apply
\r
1267 if(lfnId != i) lfn[0] = '\0';
\r
1269 if(fileinfo[i&0xF].attrib == ATTR_LFN) continue;
\r
1271 // Get Real Filename
\r
1272 FAT_int_ProperFilename(tmpName, fileinfo[i&0xF].name);
\r
1273 LOG("tmpName = '%s'", tmpName);
\r
1275 // Only the long name is case sensitive, 8.3 is not
\r
1277 if(strucmp(tmpName, Name) == 0 || strcmp(lfn, Name) == 0)
\r
1279 if(strucmp(tmpName, Name) == 0)
\r
1282 cluster = fileinfo[i&0xF].cluster | (fileinfo[i&0xF].clusterHi << 16);
\r
1283 tmpNode = Inode_GetCache(disk->inodeHandle, cluster);
\r
1284 if(tmpNode == NULL) // Node is not cached
\r
1286 tmpNode = FAT_int_CreateNode(Node, &fileinfo[i&0xF], i);
\r
1288 LEAVE('p', tmpNode);
\r
1302 * \fn int FAT_Mknod(tVFS_Node *Node, char *Name, Uint Flags)
\r
1303 * \brief Create a new node
\r
1305 int FAT_Mknod(tVFS_Node *Node, char *Name, Uint Flags)
\r
1311 * \fn int FAT_Relink(tVFS_Node *Node, char *OldName, char *NewName)
\r
1312 * \brief Rename / Delete a file
\r
1314 int FAT_Relink(tVFS_Node *Node, char *OldName, char *NewName)
\r
1317 fat_filetable ft = {0};
\r
1320 child = FAT_FindDir(Node, OldName);
\r
1321 if(!child) return ENOTFOUND;
\r
1324 if( NewName == NULL )
\r
1326 child->ImplInt |= FAT_FLAG_DELETE; // Mark for deletion on close
\r
1328 // Delete from the directory
\r
1329 ft.name[0] = '\xE9';
\r
1330 FAT_int_WriteDirEntry(Node, child->ImplInt & 0xFFFF, &ft);
\r
1338 Log_Warning("FAT", "Renaming no yet supported %p ('%s' => '%s')",
\r
1339 Node, OldName, NewName);
\r
1344 child->Close( child );
\r
1350 * \fn void FAT_CloseFile(tVFS_Node *Node)
\r
1351 * \brief Close an open file
\r
1353 void FAT_CloseFile(tVFS_Node *Node)
\r
1355 tFAT_VolInfo *disk = Node->ImplPtr;
\r
1356 if(Node == NULL) return ;
\r
1359 // Update the node if it's dirty (don't bother if it's marked for
\r
1361 if( Node->ImplInt & FAT_FLAG_DIRTY && !(Node->ImplInt & FAT_FLAG_DELETE) )
\r
1363 tFAT_VolInfo buf[16];
\r
1364 tFAT_VolInfo *ft = &buf[ (Node->ImplInt & 0xFFFF) % 16 ];
\r
1366 FAT_int_ReadDirSector(Node, (Node->ImplInt & 0xFFFF)/16, buf);
\r
1367 ft->size = Node->Size;
\r
1368 // TODO: update adate, mtime, mdate
\r
1369 FAT_int_WriteDirEntry(Node, Node->ImplInt & 0xFFFF, ft);
\r
1371 Node->ImplInt &= ~FAT_FLAG_DIRTY;
\r
1375 // TODO: Make this more thread safe somehow, probably by moving the
\r
1376 // Inode_UncacheNode higher up and saving the cluster value somewhere
\r
1377 if( Node->ReferenceCount == 1 )
\r
1379 // Delete LFN Cache
\r
1381 if( Node->Flags & VFS_FFLAG_DIRECTORY)
\r
1382 FAT_int_DelLFN(Node);
\r
1387 if( Node->ImplInt & FAT_FLAG_DELETE ) {
\r
1388 // Since the node is marked, we only need to remove it's data
\r
1389 Uint32 cluster = Node->Inode & 0xFFFFFFFF;
\r
1390 while( cluster != -1 )
\r
1391 cluster = FAT_int_FreeCluster(Node->ImplPtr, cluster);
\r
1396 Inode_UncacheNode(disk->inodeHandle, Node->Inode);
\r