SDFileSystem2 - A fork of the original SDFileSystem, added only s…

Users » vpcola » Code » SDFileSystem2

A fork of the original SDFileSystem, added only stat() for getting file information.

Added code to the original SDFileSystem to export the stat() command. It would now be possible to get the FILEINFO struct of a directory entry to get information such as file size, etc.

SDFileSystem2 usage

#include "SDFileSystem.h"
SDFileSystem sd(p5,p6,p7,p8,"sd"); // mosi, miso, sck, cs 

static void cmd_ls(Stream * chp, int argc, char * argv[])
{
   DIR * dp;
   struct dirent * dirp;
   FILINFO fileInfo;
   char dirroot[256];
   
   if (argc >= 1)
       sprintf(dirroot, "/sd/%s", argv[0]);
   else
       sprintf(dirroot, "/sd");
   
   chp->printf("Listing directory [%s]\r\n", dirroot);
   
   dp = opendir(dirroot);			
   while((dirp = readdir(dp)) != NULL)
   {
       if (sd.stat(dirp->d_name, &fileInfo) == 0)
       {
           if (fileInfo.fattrib & AM_DIR )
                   chp->printf("<DIR>\t\t");
           else
                   chp->printf("%ld\t\t", fileInfo.fsize);
       }
       chp->printf("%s\r\n", dirp->d_name);
   }
   closedir(dp);
}

FATFileSystem/ChaN/ff.cpp@0:572d27f56fcd, 2015-04-28 (annotated)

Committer:: vpcola
Date:: Tue Apr 28 16:55:30 2015 +0000
Revision:: 0:572d27f56fcd

Added stat() to get file information

Who changed what in which revision?

User	Revision	Line number	New contents of line
vpcola	0:572d27f56fcd	1	/*----------------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2	/ FatFs - FAT file system module R0.09a (C)ChaN, 2012
vpcola	0:572d27f56fcd	3	/-----------------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4	/ FatFs module is a generic FAT file system module for small embedded systems.
vpcola	0:572d27f56fcd	5	/ This is a free software that opened for education, research and commercial
vpcola	0:572d27f56fcd	6	/ developments under license policy of following terms.
vpcola	0:572d27f56fcd	7	/
vpcola	0:572d27f56fcd	8	/ Copyright (C) 2012, ChaN, all right reserved.
vpcola	0:572d27f56fcd	9	/
vpcola	0:572d27f56fcd	10	/ * The FatFs module is a free software and there is NO WARRANTY.
vpcola	0:572d27f56fcd	11	/ * No restriction on use. You can use, modify and redistribute it for
vpcola	0:572d27f56fcd	12	/ personal, non-profit or commercial products UNDER YOUR RESPONSIBILITY.
vpcola	0:572d27f56fcd	13	/ * Redistributions of source code must retain the above copyright notice.
vpcola	0:572d27f56fcd	14	/
vpcola	0:572d27f56fcd	15	/-----------------------------------------------------------------------------/
vpcola	0:572d27f56fcd	16	/ Feb 26,'06 R0.00 Prototype.
vpcola	0:572d27f56fcd	17	/
vpcola	0:572d27f56fcd	18	/ Apr 29,'06 R0.01 First stable version.
vpcola	0:572d27f56fcd	19	/
vpcola	0:572d27f56fcd	20	/ Jun 01,'06 R0.02 Added FAT12 support.
vpcola	0:572d27f56fcd	21	/ Removed unbuffered mode.
vpcola	0:572d27f56fcd	22	/ Fixed a problem on small (<32M) partition.
vpcola	0:572d27f56fcd	23	/ Jun 10,'06 R0.02a Added a configuration option (_FS_MINIMUM).
vpcola	0:572d27f56fcd	24	/
vpcola	0:572d27f56fcd	25	/ Sep 22,'06 R0.03 Added f_rename().
vpcola	0:572d27f56fcd	26	/ Changed option _FS_MINIMUM to _FS_MINIMIZE.
vpcola	0:572d27f56fcd	27	/ Dec 11,'06 R0.03a Improved cluster scan algorithm to write files fast.
vpcola	0:572d27f56fcd	28	/ Fixed f_mkdir() creates incorrect directory on FAT32.
vpcola	0:572d27f56fcd	29	/
vpcola	0:572d27f56fcd	30	/ Feb 04,'07 R0.04 Supported multiple drive system.
vpcola	0:572d27f56fcd	31	/ Changed some interfaces for multiple drive system.
vpcola	0:572d27f56fcd	32	/ Changed f_mountdrv() to f_mount().
vpcola	0:572d27f56fcd	33	/ Added f_mkfs().
vpcola	0:572d27f56fcd	34	/ Apr 01,'07 R0.04a Supported multiple partitions on a physical drive.
vpcola	0:572d27f56fcd	35	/ Added a capability of extending file size to f_lseek().
vpcola	0:572d27f56fcd	36	/ Added minimization level 3.
vpcola	0:572d27f56fcd	37	/ Fixed an endian sensitive code in f_mkfs().
vpcola	0:572d27f56fcd	38	/ May 05,'07 R0.04b Added a configuration option _USE_NTFLAG.
vpcola	0:572d27f56fcd	39	/ Added FSInfo support.
vpcola	0:572d27f56fcd	40	/ Fixed DBCS name can result FR_INVALID_NAME.
vpcola	0:572d27f56fcd	41	/ Fixed short seek (<= csize) collapses the file object.
vpcola	0:572d27f56fcd	42	/
vpcola	0:572d27f56fcd	43	/ Aug 25,'07 R0.05 Changed arguments of f_read(), f_write() and f_mkfs().
vpcola	0:572d27f56fcd	44	/ Fixed f_mkfs() on FAT32 creates incorrect FSInfo.
vpcola	0:572d27f56fcd	45	/ Fixed f_mkdir() on FAT32 creates incorrect directory.
vpcola	0:572d27f56fcd	46	/ Feb 03,'08 R0.05a Added f_truncate() and f_utime().
vpcola	0:572d27f56fcd	47	/ Fixed off by one error at FAT sub-type determination.
vpcola	0:572d27f56fcd	48	/ Fixed btr in f_read() can be mistruncated.
vpcola	0:572d27f56fcd	49	/ Fixed cached sector is not flushed when create and close without write.
vpcola	0:572d27f56fcd	50	/
vpcola	0:572d27f56fcd	51	/ Apr 01,'08 R0.06 Added fputc(), fputs(), fprintf() and fgets().
vpcola	0:572d27f56fcd	52	/ Improved performance of f_lseek() on moving to the same or following cluster.
vpcola	0:572d27f56fcd	53	/
vpcola	0:572d27f56fcd	54	/ Apr 01,'09 R0.07 Merged Tiny-FatFs as a configuration option. (_FS_TINY)
vpcola	0:572d27f56fcd	55	/ Added long file name feature.
vpcola	0:572d27f56fcd	56	/ Added multiple code page feature.
vpcola	0:572d27f56fcd	57	/ Added re-entrancy for multitask operation.
vpcola	0:572d27f56fcd	58	/ Added auto cluster size selection to f_mkfs().
vpcola	0:572d27f56fcd	59	/ Added rewind option to f_readdir().
vpcola	0:572d27f56fcd	60	/ Changed result code of critical errors.
vpcola	0:572d27f56fcd	61	/ Renamed string functions to avoid name collision.
vpcola	0:572d27f56fcd	62	/ Apr 14,'09 R0.07a Separated out OS dependent code on reentrant cfg.
vpcola	0:572d27f56fcd	63	/ Added multiple sector size feature.
vpcola	0:572d27f56fcd	64	/ Jun 21,'09 R0.07c Fixed f_unlink() can return FR_OK on error.
vpcola	0:572d27f56fcd	65	/ Fixed wrong cache control in f_lseek().
vpcola	0:572d27f56fcd	66	/ Added relative path feature.
vpcola	0:572d27f56fcd	67	/ Added f_chdir() and f_chdrive().
vpcola	0:572d27f56fcd	68	/ Added proper case conversion to extended char.
vpcola	0:572d27f56fcd	69	/ Nov 03,'09 R0.07e Separated out configuration options from ff.h to ffconf.h.
vpcola	0:572d27f56fcd	70	/ Fixed f_unlink() fails to remove a sub-dir on _FS_RPATH.
vpcola	0:572d27f56fcd	71	/ Fixed name matching error on the 13 char boundary.
vpcola	0:572d27f56fcd	72	/ Added a configuration option, _LFN_UNICODE.
vpcola	0:572d27f56fcd	73	/ Changed f_readdir() to return the SFN with always upper case on non-LFN cfg.
vpcola	0:572d27f56fcd	74	/
vpcola	0:572d27f56fcd	75	/ May 15,'10 R0.08 Added a memory configuration option. (_USE_LFN = 3)
vpcola	0:572d27f56fcd	76	/ Added file lock feature. (_FS_SHARE)
vpcola	0:572d27f56fcd	77	/ Added fast seek feature. (_USE_FASTSEEK)
vpcola	0:572d27f56fcd	78	/ Changed some types on the API, XCHAR->TCHAR.
vpcola	0:572d27f56fcd	79	/ Changed fname member in the FILINFO structure on Unicode cfg.
vpcola	0:572d27f56fcd	80	/ String functions support UTF-8 encoding files on Unicode cfg.
vpcola	0:572d27f56fcd	81	/ Aug 16,'10 R0.08a Added f_getcwd(). (_FS_RPATH = 2)
vpcola	0:572d27f56fcd	82	/ Added sector erase feature. (_USE_ERASE)
vpcola	0:572d27f56fcd	83	/ Moved file lock semaphore table from fs object to the bss.
vpcola	0:572d27f56fcd	84	/ Fixed a wrong directory entry is created on non-LFN cfg when the given name contains ';'.
vpcola	0:572d27f56fcd	85	/ Fixed f_mkfs() creates wrong FAT32 volume.
vpcola	0:572d27f56fcd	86	/ Jan 15,'11 R0.08b Fast seek feature is also applied to f_read() and f_write().
vpcola	0:572d27f56fcd	87	/ f_lseek() reports required table size on creating CLMP.
vpcola	0:572d27f56fcd	88	/ Extended format syntax of f_printf function.
vpcola	0:572d27f56fcd	89	/ Ignores duplicated directory separators in given path name.
vpcola	0:572d27f56fcd	90	/
vpcola	0:572d27f56fcd	91	/ Sep 06,'11 R0.09 f_mkfs() supports multiple partition to finish the multiple partition feature.
vpcola	0:572d27f56fcd	92	/ Added f_fdisk(). (_MULTI_PARTITION = 2)
vpcola	0:572d27f56fcd	93	/ Aug 27,'12 R0.09a Fixed assertion failure due to OS/2 EA on FAT12/16 volume.
vpcola	0:572d27f56fcd	94	/ Changed f_open() and f_opendir reject null object pointer to avoid crash.
vpcola	0:572d27f56fcd	95	/ Changed option name _FS_SHARE to _FS_LOCK.
vpcola	0:572d27f56fcd	96	/---------------------------------------------------------------------------*/
vpcola	0:572d27f56fcd	97
vpcola	0:572d27f56fcd	98	#include "ff.h" /* FatFs configurations and declarations */
vpcola	0:572d27f56fcd	99	#include "diskio.h" /* Declarations of low level disk I/O functions */
vpcola	0:572d27f56fcd	100
vpcola	0:572d27f56fcd	101
vpcola	0:572d27f56fcd	102	/*--------------------------------------------------------------------------
vpcola	0:572d27f56fcd	103
vpcola	0:572d27f56fcd	104	Module Private Definitions
vpcola	0:572d27f56fcd	105
vpcola	0:572d27f56fcd	106	---------------------------------------------------------------------------*/
vpcola	0:572d27f56fcd	107
vpcola	0:572d27f56fcd	108	#if _FATFS != 4004 /* Revision ID */
vpcola	0:572d27f56fcd	109	#error Wrong include file (ff.h).
vpcola	0:572d27f56fcd	110	#endif
vpcola	0:572d27f56fcd	111
vpcola	0:572d27f56fcd	112
vpcola	0:572d27f56fcd	113	/* Definitions on sector size */
vpcola	0:572d27f56fcd	114	#if _MAX_SS != 512 && _MAX_SS != 1024 && _MAX_SS != 2048 && _MAX_SS != 4096
vpcola	0:572d27f56fcd	115	#error Wrong sector size.
vpcola	0:572d27f56fcd	116	#endif
vpcola	0:572d27f56fcd	117	#if _MAX_SS != 512
vpcola	0:572d27f56fcd	118	#define SS(fs) ((fs)->ssize) /* Variable sector size */
vpcola	0:572d27f56fcd	119	#else
vpcola	0:572d27f56fcd	120	#define SS(fs) 512U /* Fixed sector size */
vpcola	0:572d27f56fcd	121	#endif
vpcola	0:572d27f56fcd	122
vpcola	0:572d27f56fcd	123
vpcola	0:572d27f56fcd	124	/* Reentrancy related */
vpcola	0:572d27f56fcd	125	#if _FS_REENTRANT
vpcola	0:572d27f56fcd	126	#if _USE_LFN == 1
vpcola	0:572d27f56fcd	127	#error Static LFN work area must not be used in re-entrant configuration.
vpcola	0:572d27f56fcd	128	#endif
vpcola	0:572d27f56fcd	129	#define ENTER_FF(fs) { if (!lock_fs(fs)) return FR_TIMEOUT; }
vpcola	0:572d27f56fcd	130	#define LEAVE_FF(fs, res) { unlock_fs(fs, res); return res; }
vpcola	0:572d27f56fcd	131	#else
vpcola	0:572d27f56fcd	132	#define ENTER_FF(fs)
vpcola	0:572d27f56fcd	133	#define LEAVE_FF(fs, res) return res
vpcola	0:572d27f56fcd	134	#endif
vpcola	0:572d27f56fcd	135
vpcola	0:572d27f56fcd	136	#define ABORT(fs, res) { fp->flag \|= FA__ERROR; LEAVE_FF(fs, res); }
vpcola	0:572d27f56fcd	137
vpcola	0:572d27f56fcd	138
vpcola	0:572d27f56fcd	139	/* File access control feature */
vpcola	0:572d27f56fcd	140	#if _FS_LOCK
vpcola	0:572d27f56fcd	141	#if _FS_READONLY
vpcola	0:572d27f56fcd	142	#error _FS_LOCK must be 0 on read-only cfg.
vpcola	0:572d27f56fcd	143	#endif
vpcola	0:572d27f56fcd	144	typedef struct {
vpcola	0:572d27f56fcd	145	FATFS fs; / File ID 1, volume (NULL:blank entry) */
vpcola	0:572d27f56fcd	146	DWORD clu; /* File ID 2, directory */
vpcola	0:572d27f56fcd	147	WORD idx; /* File ID 3, directory index */
vpcola	0:572d27f56fcd	148	WORD ctr; /* File open counter, 0:none, 0x01..0xFF:read open count, 0x100:write mode */
vpcola	0:572d27f56fcd	149	} FILESEM;
vpcola	0:572d27f56fcd	150	#endif
vpcola	0:572d27f56fcd	151
vpcola	0:572d27f56fcd	152
vpcola	0:572d27f56fcd	153
vpcola	0:572d27f56fcd	154	/* DBCS code ranges and SBCS extend char conversion table */
vpcola	0:572d27f56fcd	155
vpcola	0:572d27f56fcd	156	#if _CODE_PAGE == 932 /* Japanese Shift-JIS */
vpcola	0:572d27f56fcd	157	#define _DF1S 0x81 /* DBC 1st byte range 1 start */
vpcola	0:572d27f56fcd	158	#define _DF1E 0x9F /* DBC 1st byte range 1 end */
vpcola	0:572d27f56fcd	159	#define _DF2S 0xE0 /* DBC 1st byte range 2 start */
vpcola	0:572d27f56fcd	160	#define _DF2E 0xFC /* DBC 1st byte range 2 end */
vpcola	0:572d27f56fcd	161	#define _DS1S 0x40 /* DBC 2nd byte range 1 start */
vpcola	0:572d27f56fcd	162	#define _DS1E 0x7E /* DBC 2nd byte range 1 end */
vpcola	0:572d27f56fcd	163	#define _DS2S 0x80 /* DBC 2nd byte range 2 start */
vpcola	0:572d27f56fcd	164	#define _DS2E 0xFC /* DBC 2nd byte range 2 end */
vpcola	0:572d27f56fcd	165
vpcola	0:572d27f56fcd	166	#elif _CODE_PAGE == 936 /* Simplified Chinese GBK */
vpcola	0:572d27f56fcd	167	#define _DF1S 0x81
vpcola	0:572d27f56fcd	168	#define _DF1E 0xFE
vpcola	0:572d27f56fcd	169	#define _DS1S 0x40
vpcola	0:572d27f56fcd	170	#define _DS1E 0x7E
vpcola	0:572d27f56fcd	171	#define _DS2S 0x80
vpcola	0:572d27f56fcd	172	#define _DS2E 0xFE
vpcola	0:572d27f56fcd	173
vpcola	0:572d27f56fcd	174	#elif _CODE_PAGE == 949 /* Korean */
vpcola	0:572d27f56fcd	175	#define _DF1S 0x81
vpcola	0:572d27f56fcd	176	#define _DF1E 0xFE
vpcola	0:572d27f56fcd	177	#define _DS1S 0x41
vpcola	0:572d27f56fcd	178	#define _DS1E 0x5A
vpcola	0:572d27f56fcd	179	#define _DS2S 0x61
vpcola	0:572d27f56fcd	180	#define _DS2E 0x7A
vpcola	0:572d27f56fcd	181	#define _DS3S 0x81
vpcola	0:572d27f56fcd	182	#define _DS3E 0xFE
vpcola	0:572d27f56fcd	183
vpcola	0:572d27f56fcd	184	#elif _CODE_PAGE == 950 /* Traditional Chinese Big5 */
vpcola	0:572d27f56fcd	185	#define _DF1S 0x81
vpcola	0:572d27f56fcd	186	#define _DF1E 0xFE
vpcola	0:572d27f56fcd	187	#define _DS1S 0x40
vpcola	0:572d27f56fcd	188	#define _DS1E 0x7E
vpcola	0:572d27f56fcd	189	#define _DS2S 0xA1
vpcola	0:572d27f56fcd	190	#define _DS2E 0xFE
vpcola	0:572d27f56fcd	191
vpcola	0:572d27f56fcd	192	#elif _CODE_PAGE == 437 /* U.S. (OEM) */
vpcola	0:572d27f56fcd	193	#define _DF1S 0
vpcola	0:572d27f56fcd	194	#define _EXCVT {0x80,0x9A,0x90,0x41,0x8E,0x41,0x8F,0x80,0x45,0x45,0x45,0x49,0x49,0x49,0x8E,0x8F,0x90,0x92,0x92,0x4F,0x99,0x4F,0x55,0x55,0x59,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	195	0x41,0x49,0x4F,0x55,0xA5,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0x21,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	196	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	197	0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	198
vpcola	0:572d27f56fcd	199	#elif _CODE_PAGE == 720 /* Arabic (OEM) */
vpcola	0:572d27f56fcd	200	#define _DF1S 0
vpcola	0:572d27f56fcd	201	#define _EXCVT {0x80,0x81,0x45,0x41,0x84,0x41,0x86,0x43,0x45,0x45,0x45,0x49,0x49,0x8D,0x8E,0x8F,0x90,0x92,0x92,0x93,0x94,0x95,0x49,0x49,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	202	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	203	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	204	0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	205
vpcola	0:572d27f56fcd	206	#elif _CODE_PAGE == 737 /* Greek (OEM) */
vpcola	0:572d27f56fcd	207	#define _DF1S 0
vpcola	0:572d27f56fcd	208	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x92,0x92,0x93,0x94,0x95,0x96,0x97,0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87, \
vpcola	0:572d27f56fcd	209	0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0xAA,0x92,0x93,0x94,0x95,0x96,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	210	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	211	0x97,0xEA,0xEB,0xEC,0xE4,0xED,0xEE,0xE7,0xE8,0xF1,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	212
vpcola	0:572d27f56fcd	213	#elif _CODE_PAGE == 775 /* Baltic (OEM) */
vpcola	0:572d27f56fcd	214	#define _DF1S 0
vpcola	0:572d27f56fcd	215	#define _EXCVT {0x80,0x9A,0x91,0xA0,0x8E,0x95,0x8F,0x80,0xAD,0xED,0x8A,0x8A,0xA1,0x8D,0x8E,0x8F,0x90,0x92,0x92,0xE2,0x99,0x95,0x96,0x97,0x97,0x99,0x9A,0x9D,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	216	0xA0,0xA1,0xE0,0xA3,0xA3,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	217	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xB5,0xB6,0xB7,0xB8,0xBD,0xBE,0xC6,0xC7,0xA5,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	218	0xE0,0xE1,0xE2,0xE3,0xE5,0xE5,0xE6,0xE3,0xE8,0xE8,0xEA,0xEA,0xEE,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	219
vpcola	0:572d27f56fcd	220	#elif _CODE_PAGE == 850 /* Multilingual Latin 1 (OEM) */
vpcola	0:572d27f56fcd	221	#define _DF1S 0
vpcola	0:572d27f56fcd	222	#define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xB7,0x8F,0x80,0xD2,0xD3,0xD4,0xD8,0xD7,0xDE,0x8E,0x8F,0x90,0x92,0x92,0xE2,0x99,0xE3,0xEA,0xEB,0x59,0x99,0x9A,0x9D,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	223	0xB5,0xD6,0xE0,0xE9,0xA5,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0x21,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	224	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC7,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	225	0xE0,0xE1,0xE2,0xE3,0xE5,0xE5,0xE6,0xE7,0xE7,0xE9,0xEA,0xEB,0xED,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	226
vpcola	0:572d27f56fcd	227	#elif _CODE_PAGE == 852 /* Latin 2 (OEM) */
vpcola	0:572d27f56fcd	228	#define _DF1S 0
vpcola	0:572d27f56fcd	229	#define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xDE,0x8F,0x80,0x9D,0xD3,0x8A,0x8A,0xD7,0x8D,0x8E,0x8F,0x90,0x91,0x91,0xE2,0x99,0x95,0x95,0x97,0x97,0x99,0x9A,0x9B,0x9B,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	230	0xB5,0xD6,0xE0,0xE9,0xA4,0xA4,0xA6,0xA6,0xA8,0xA8,0xAA,0x8D,0xAC,0xB8,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBD,0xBF, \
vpcola	0:572d27f56fcd	231	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC6,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD1,0xD1,0xD2,0xD3,0xD2,0xD5,0xD6,0xD7,0xB7,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	232	0xE0,0xE1,0xE2,0xE3,0xE3,0xD5,0xE6,0xE6,0xE8,0xE9,0xE8,0xEB,0xED,0xED,0xDD,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xEB,0xFC,0xFC,0xFE,0xFF}
vpcola	0:572d27f56fcd	233
vpcola	0:572d27f56fcd	234	#elif _CODE_PAGE == 855 /* Cyrillic (OEM) */
vpcola	0:572d27f56fcd	235	#define _DF1S 0
vpcola	0:572d27f56fcd	236	#define _EXCVT {0x81,0x81,0x83,0x83,0x85,0x85,0x87,0x87,0x89,0x89,0x8B,0x8B,0x8D,0x8D,0x8F,0x8F,0x91,0x91,0x93,0x93,0x95,0x95,0x97,0x97,0x99,0x99,0x9B,0x9B,0x9D,0x9D,0x9F,0x9F, \
vpcola	0:572d27f56fcd	237	0xA1,0xA1,0xA3,0xA3,0xA5,0xA5,0xA7,0xA7,0xA9,0xA9,0xAB,0xAB,0xAD,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB6,0xB6,0xB8,0xB8,0xB9,0xBA,0xBB,0xBC,0xBE,0xBE,0xBF, \
vpcola	0:572d27f56fcd	238	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC7,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD1,0xD1,0xD3,0xD3,0xD5,0xD5,0xD7,0xD7,0xDD,0xD9,0xDA,0xDB,0xDC,0xDD,0xE0,0xDF, \
vpcola	0:572d27f56fcd	239	0xE0,0xE2,0xE2,0xE4,0xE4,0xE6,0xE6,0xE8,0xE8,0xEA,0xEA,0xEC,0xEC,0xEE,0xEE,0xEF,0xF0,0xF2,0xF2,0xF4,0xF4,0xF6,0xF6,0xF8,0xF8,0xFA,0xFA,0xFC,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	240
vpcola	0:572d27f56fcd	241	#elif _CODE_PAGE == 857 /* Turkish (OEM) */
vpcola	0:572d27f56fcd	242	#define _DF1S 0
vpcola	0:572d27f56fcd	243	#define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xB7,0x8F,0x80,0xD2,0xD3,0xD4,0xD8,0xD7,0x98,0x8E,0x8F,0x90,0x92,0x92,0xE2,0x99,0xE3,0xEA,0xEB,0x98,0x99,0x9A,0x9D,0x9C,0x9D,0x9E,0x9E, \
vpcola	0:572d27f56fcd	244	0xB5,0xD6,0xE0,0xE9,0xA5,0xA5,0xA6,0xA6,0xA8,0xA9,0xAA,0xAB,0xAC,0x21,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	245	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC7,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	246	0xE0,0xE1,0xE2,0xE3,0xE5,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xDE,0x59,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	247
vpcola	0:572d27f56fcd	248	#elif _CODE_PAGE == 858 /* Multilingual Latin 1 + Euro (OEM) */
vpcola	0:572d27f56fcd	249	#define _DF1S 0
vpcola	0:572d27f56fcd	250	#define _EXCVT {0x80,0x9A,0x90,0xB6,0x8E,0xB7,0x8F,0x80,0xD2,0xD3,0xD4,0xD8,0xD7,0xDE,0x8E,0x8F,0x90,0x92,0x92,0xE2,0x99,0xE3,0xEA,0xEB,0x59,0x99,0x9A,0x9D,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	251	0xB5,0xD6,0xE0,0xE9,0xA5,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0x21,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	252	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC7,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD1,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	253	0xE0,0xE1,0xE2,0xE3,0xE5,0xE5,0xE6,0xE7,0xE7,0xE9,0xEA,0xEB,0xED,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	254
vpcola	0:572d27f56fcd	255	#elif _CODE_PAGE == 862 /* Hebrew (OEM) */
vpcola	0:572d27f56fcd	256	#define _DF1S 0
vpcola	0:572d27f56fcd	257	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	258	0x41,0x49,0x4F,0x55,0xA5,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0x21,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	259	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	260	0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	261
vpcola	0:572d27f56fcd	262	#elif _CODE_PAGE == 866 /* Russian (OEM) */
vpcola	0:572d27f56fcd	263	#define _DF1S 0
vpcola	0:572d27f56fcd	264	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	265	0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	266	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	267	0x90,0x91,0x92,0x93,0x9d,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F,0xF0,0xF0,0xF2,0xF2,0xF4,0xF4,0xF6,0xF6,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	268
vpcola	0:572d27f56fcd	269	#elif _CODE_PAGE == 874 /* Thai (OEM, Windows) */
vpcola	0:572d27f56fcd	270	#define _DF1S 0
vpcola	0:572d27f56fcd	271	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	272	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	273	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	274	0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	275
vpcola	0:572d27f56fcd	276	#elif _CODE_PAGE == 1250 /* Central Europe (Windows) */
vpcola	0:572d27f56fcd	277	#define _DF1S 0
vpcola	0:572d27f56fcd	278	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x8A,0x9B,0x8C,0x8D,0x8E,0x8F, \
vpcola	0:572d27f56fcd	279	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xA3,0xB4,0xB5,0xB6,0xB7,0xB8,0xA5,0xAA,0xBB,0xBC,0xBD,0xBC,0xAF, \
vpcola	0:572d27f56fcd	280	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	281	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xF7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xFF}
vpcola	0:572d27f56fcd	282
vpcola	0:572d27f56fcd	283	#elif _CODE_PAGE == 1251 /* Cyrillic (Windows) */
vpcola	0:572d27f56fcd	284	#define _DF1S 0
vpcola	0:572d27f56fcd	285	#define _EXCVT {0x80,0x81,0x82,0x82,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x80,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x8A,0x9B,0x8C,0x8D,0x8E,0x8F, \
vpcola	0:572d27f56fcd	286	0xA0,0xA2,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB2,0xA5,0xB5,0xB6,0xB7,0xA8,0xB9,0xAA,0xBB,0xA3,0xBD,0xBD,0xAF, \
vpcola	0:572d27f56fcd	287	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	288	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF}
vpcola	0:572d27f56fcd	289
vpcola	0:572d27f56fcd	290	#elif _CODE_PAGE == 1252 /* Latin 1 (Windows) */
vpcola	0:572d27f56fcd	291	#define _DF1S 0
vpcola	0:572d27f56fcd	292	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0xAd,0x9B,0x8C,0x9D,0xAE,0x9F, \
vpcola	0:572d27f56fcd	293	0xA0,0x21,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	294	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	295	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xF7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0x9F}
vpcola	0:572d27f56fcd	296
vpcola	0:572d27f56fcd	297	#elif _CODE_PAGE == 1253 /* Greek (Windows) */
vpcola	0:572d27f56fcd	298	#define _DF1S 0
vpcola	0:572d27f56fcd	299	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	300	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	301	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xA2,0xB8,0xB9,0xBA, \
vpcola	0:572d27f56fcd	302	0xE0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xF2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xFB,0xBC,0xFD,0xBF,0xFF}
vpcola	0:572d27f56fcd	303
vpcola	0:572d27f56fcd	304	#elif _CODE_PAGE == 1254 /* Turkish (Windows) */
vpcola	0:572d27f56fcd	305	#define _DF1S 0
vpcola	0:572d27f56fcd	306	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x8A,0x9B,0x8C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	307	0xA0,0x21,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	308	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	309	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xF7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0x9F}
vpcola	0:572d27f56fcd	310
vpcola	0:572d27f56fcd	311	#elif _CODE_PAGE == 1255 /* Hebrew (Windows) */
vpcola	0:572d27f56fcd	312	#define _DF1S 0
vpcola	0:572d27f56fcd	313	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	314	0xA0,0x21,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	315	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	316	0xE0,0xE1,0xE2,0xE3,0xE4,0xE5,0xE6,0xE7,0xE8,0xE9,0xEA,0xEB,0xEC,0xED,0xEE,0xEF,0xF0,0xF1,0xF2,0xF3,0xF4,0xF5,0xF6,0xF7,0xF8,0xF9,0xFA,0xFB,0xFC,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	317
vpcola	0:572d27f56fcd	318	#elif _CODE_PAGE == 1256 /* Arabic (Windows) */
vpcola	0:572d27f56fcd	319	#define _DF1S 0
vpcola	0:572d27f56fcd	320	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x8C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	321	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	322	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	323	0x41,0xE1,0x41,0xE3,0xE4,0xE5,0xE6,0x43,0x45,0x45,0x45,0x45,0xEC,0xED,0x49,0x49,0xF0,0xF1,0xF2,0xF3,0x4F,0xF5,0xF6,0xF7,0xF8,0x55,0xFA,0x55,0x55,0xFD,0xFE,0xFF}
vpcola	0:572d27f56fcd	324
vpcola	0:572d27f56fcd	325	#elif _CODE_PAGE == 1257 /* Baltic (Windows) */
vpcola	0:572d27f56fcd	326	#define _DF1S 0
vpcola	0:572d27f56fcd	327	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0x9C,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	328	0xA0,0xA1,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xA8,0xB9,0xAA,0xBB,0xBC,0xBD,0xBE,0xAF, \
vpcola	0:572d27f56fcd	329	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	330	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xF7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xFF}
vpcola	0:572d27f56fcd	331
vpcola	0:572d27f56fcd	332	#elif _CODE_PAGE == 1258 /* Vietnam (OEM, Windows) */
vpcola	0:572d27f56fcd	333	#define _DF1S 0
vpcola	0:572d27f56fcd	334	#define _EXCVT {0x80,0x81,0x82,0x83,0x84,0x85,0x86,0x87,0x88,0x89,0x8A,0x8B,0x8C,0x8D,0x8E,0x8F,0x90,0x91,0x92,0x93,0x94,0x95,0x96,0x97,0x98,0x99,0x9A,0x9B,0xAC,0x9D,0x9E,0x9F, \
vpcola	0:572d27f56fcd	335	0xA0,0x21,0xA2,0xA3,0xA4,0xA5,0xA6,0xA7,0xA8,0xA9,0xAA,0xAB,0xAC,0xAD,0xAE,0xAF,0xB0,0xB1,0xB2,0xB3,0xB4,0xB5,0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD,0xBE,0xBF, \
vpcola	0:572d27f56fcd	336	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xCC,0xCD,0xCE,0xCF,0xD0,0xD1,0xD2,0xD3,0xD4,0xD5,0xD6,0xD7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xDE,0xDF, \
vpcola	0:572d27f56fcd	337	0xC0,0xC1,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7,0xC8,0xC9,0xCA,0xCB,0xEC,0xCD,0xCE,0xCF,0xD0,0xD1,0xF2,0xD3,0xD4,0xD5,0xD6,0xF7,0xD8,0xD9,0xDA,0xDB,0xDC,0xDD,0xFE,0x9F}
vpcola	0:572d27f56fcd	338
vpcola	0:572d27f56fcd	339	#elif _CODE_PAGE == 1 /* ASCII (for only non-LFN cfg) */
vpcola	0:572d27f56fcd	340	#if _USE_LFN
vpcola	0:572d27f56fcd	341	#error Cannot use LFN feature without valid code page.
vpcola	0:572d27f56fcd	342	#endif
vpcola	0:572d27f56fcd	343	#define _DF1S 0
vpcola	0:572d27f56fcd	344
vpcola	0:572d27f56fcd	345	#else
vpcola	0:572d27f56fcd	346	#error Unknown code page
vpcola	0:572d27f56fcd	347
vpcola	0:572d27f56fcd	348	#endif
vpcola	0:572d27f56fcd	349
vpcola	0:572d27f56fcd	350
vpcola	0:572d27f56fcd	351	/* Character code support macros */
vpcola	0:572d27f56fcd	352	#define IsUpper(c) (((c)>='A')&&((c)<='Z'))
vpcola	0:572d27f56fcd	353	#define IsLower(c) (((c)>='a')&&((c)<='z'))
vpcola	0:572d27f56fcd	354	#define IsDigit(c) (((c)>='0')&&((c)<='9'))
vpcola	0:572d27f56fcd	355
vpcola	0:572d27f56fcd	356	#if _DF1S /* Code page is DBCS */
vpcola	0:572d27f56fcd	357
vpcola	0:572d27f56fcd	358	#ifdef _DF2S /* Two 1st byte areas */
vpcola	0:572d27f56fcd	359	#define IsDBCS1(c) (((BYTE)(c) >= _DF1S && (BYTE)(c) <= _DF1E) \|\| ((BYTE)(c) >= _DF2S && (BYTE)(c) <= _DF2E))
vpcola	0:572d27f56fcd	360	#else /* One 1st byte area */
vpcola	0:572d27f56fcd	361	#define IsDBCS1(c) ((BYTE)(c) >= _DF1S && (BYTE)(c) <= _DF1E)
vpcola	0:572d27f56fcd	362	#endif
vpcola	0:572d27f56fcd	363
vpcola	0:572d27f56fcd	364	#ifdef _DS3S /* Three 2nd byte areas */
vpcola	0:572d27f56fcd	365	#define IsDBCS2(c) (((BYTE)(c) >= _DS1S && (BYTE)(c) <= _DS1E) \|\| ((BYTE)(c) >= _DS2S && (BYTE)(c) <= _DS2E) \|\| ((BYTE)(c) >= _DS3S && (BYTE)(c) <= _DS3E))
vpcola	0:572d27f56fcd	366	#else /* Two 2nd byte areas */
vpcola	0:572d27f56fcd	367	#define IsDBCS2(c) (((BYTE)(c) >= _DS1S && (BYTE)(c) <= _DS1E) \|\| ((BYTE)(c) >= _DS2S && (BYTE)(c) <= _DS2E))
vpcola	0:572d27f56fcd	368	#endif
vpcola	0:572d27f56fcd	369
vpcola	0:572d27f56fcd	370	#else /* Code page is SBCS */
vpcola	0:572d27f56fcd	371
vpcola	0:572d27f56fcd	372	#define IsDBCS1(c) 0
vpcola	0:572d27f56fcd	373	#define IsDBCS2(c) 0
vpcola	0:572d27f56fcd	374
vpcola	0:572d27f56fcd	375	#endif /* _DF1S */
vpcola	0:572d27f56fcd	376
vpcola	0:572d27f56fcd	377
vpcola	0:572d27f56fcd	378	/* Name status flags */
vpcola	0:572d27f56fcd	379	#define NS 11 /* Index of name status byte in fn[] */
vpcola	0:572d27f56fcd	380	#define NS_LOSS 0x01 /* Out of 8.3 format */
vpcola	0:572d27f56fcd	381	#define NS_LFN 0x02 /* Force to create LFN entry */
vpcola	0:572d27f56fcd	382	#define NS_LAST 0x04 /* Last segment */
vpcola	0:572d27f56fcd	383	#define NS_BODY 0x08 /* Lower case flag (body) */
vpcola	0:572d27f56fcd	384	#define NS_EXT 0x10 /* Lower case flag (ext) */
vpcola	0:572d27f56fcd	385	#define NS_DOT 0x20 /* Dot entry */
vpcola	0:572d27f56fcd	386
vpcola	0:572d27f56fcd	387
vpcola	0:572d27f56fcd	388	/* FAT sub-type boundaries */
vpcola	0:572d27f56fcd	389	/* Note that the FAT spec by Microsoft says 4085 but Windows works with 4087! */
vpcola	0:572d27f56fcd	390	#define MIN_FAT16 4086 /* Minimum number of clusters for FAT16 */
vpcola	0:572d27f56fcd	391	#define MIN_FAT32 65526 /* Minimum number of clusters for FAT32 */
vpcola	0:572d27f56fcd	392
vpcola	0:572d27f56fcd	393
vpcola	0:572d27f56fcd	394	/* FatFs refers the members in the FAT structures as byte array instead of
vpcola	0:572d27f56fcd	395	/ structure member because the structure is not binary compatible between
vpcola	0:572d27f56fcd	396	/ different platforms */
vpcola	0:572d27f56fcd	397
vpcola	0:572d27f56fcd	398	#define BS_jmpBoot 0 /* Jump instruction (3) */
vpcola	0:572d27f56fcd	399	#define BS_OEMName 3 /* OEM name (8) */
vpcola	0:572d27f56fcd	400	#define BPB_BytsPerSec 11 /* Sector size [byte] (2) */
vpcola	0:572d27f56fcd	401	#define BPB_SecPerClus 13 /* Cluster size [sector] (1) */
vpcola	0:572d27f56fcd	402	#define BPB_RsvdSecCnt 14 /* Size of reserved area [sector] (2) */
vpcola	0:572d27f56fcd	403	#define BPB_NumFATs 16 /* Number of FAT copies (1) */
vpcola	0:572d27f56fcd	404	#define BPB_RootEntCnt 17 /* Number of root dir entries for FAT12/16 (2) */
vpcola	0:572d27f56fcd	405	#define BPB_TotSec16 19 /* Volume size [sector] (2) */
vpcola	0:572d27f56fcd	406	#define BPB_Media 21 /* Media descriptor (1) */
vpcola	0:572d27f56fcd	407	#define BPB_FATSz16 22 /* FAT size [sector] (2) */
vpcola	0:572d27f56fcd	408	#define BPB_SecPerTrk 24 /* Track size [sector] (2) */
vpcola	0:572d27f56fcd	409	#define BPB_NumHeads 26 /* Number of heads (2) */
vpcola	0:572d27f56fcd	410	#define BPB_HiddSec 28 /* Number of special hidden sectors (4) */
vpcola	0:572d27f56fcd	411	#define BPB_TotSec32 32 /* Volume size [sector] (4) */
vpcola	0:572d27f56fcd	412	#define BS_DrvNum 36 /* Physical drive number (2) */
vpcola	0:572d27f56fcd	413	#define BS_BootSig 38 /* Extended boot signature (1) */
vpcola	0:572d27f56fcd	414	#define BS_VolID 39 /* Volume serial number (4) */
vpcola	0:572d27f56fcd	415	#define BS_VolLab 43 /* Volume label (8) */
vpcola	0:572d27f56fcd	416	#define BS_FilSysType 54 /* File system type (1) */
vpcola	0:572d27f56fcd	417	#define BPB_FATSz32 36 /* FAT size [sector] (4) */
vpcola	0:572d27f56fcd	418	#define BPB_ExtFlags 40 /* Extended flags (2) */
vpcola	0:572d27f56fcd	419	#define BPB_FSVer 42 /* File system version (2) */
vpcola	0:572d27f56fcd	420	#define BPB_RootClus 44 /* Root dir first cluster (4) */
vpcola	0:572d27f56fcd	421	#define BPB_FSInfo 48 /* Offset of FSInfo sector (2) */
vpcola	0:572d27f56fcd	422	#define BPB_BkBootSec 50 /* Offset of backup boot sector (2) */
vpcola	0:572d27f56fcd	423	#define BS_DrvNum32 64 /* Physical drive number (2) */
vpcola	0:572d27f56fcd	424	#define BS_BootSig32 66 /* Extended boot signature (1) */
vpcola	0:572d27f56fcd	425	#define BS_VolID32 67 /* Volume serial number (4) */
vpcola	0:572d27f56fcd	426	#define BS_VolLab32 71 /* Volume label (8) */
vpcola	0:572d27f56fcd	427	#define BS_FilSysType32 82 /* File system type (1) */
vpcola	0:572d27f56fcd	428	#define FSI_LeadSig 0 /* FSI: Leading signature (4) */
vpcola	0:572d27f56fcd	429	#define FSI_StrucSig 484 /* FSI: Structure signature (4) */
vpcola	0:572d27f56fcd	430	#define FSI_Free_Count 488 /* FSI: Number of free clusters (4) */
vpcola	0:572d27f56fcd	431	#define FSI_Nxt_Free 492 /* FSI: Last allocated cluster (4) */
vpcola	0:572d27f56fcd	432	#define MBR_Table 446 /* MBR: Partition table offset (2) */
vpcola	0:572d27f56fcd	433	#define SZ_PTE 16 /* MBR: Size of a partition table entry */
vpcola	0:572d27f56fcd	434	#define BS_55AA 510 /* Boot sector signature (2) */
vpcola	0:572d27f56fcd	435
vpcola	0:572d27f56fcd	436	#define DIR_Name 0 /* Short file name (11) */
vpcola	0:572d27f56fcd	437	#define DIR_Attr 11 /* Attribute (1) */
vpcola	0:572d27f56fcd	438	#define DIR_NTres 12 /* NT flag (1) */
vpcola	0:572d27f56fcd	439	#define DIR_CrtTimeTenth 13 /* Created time sub-second (1) */
vpcola	0:572d27f56fcd	440	#define DIR_CrtTime 14 /* Created time (2) */
vpcola	0:572d27f56fcd	441	#define DIR_CrtDate 16 /* Created date (2) */
vpcola	0:572d27f56fcd	442	#define DIR_LstAccDate 18 /* Last accessed date (2) */
vpcola	0:572d27f56fcd	443	#define DIR_FstClusHI 20 /* Higher 16-bit of first cluster (2) */
vpcola	0:572d27f56fcd	444	#define DIR_WrtTime 22 /* Modified time (2) */
vpcola	0:572d27f56fcd	445	#define DIR_WrtDate 24 /* Modified date (2) */
vpcola	0:572d27f56fcd	446	#define DIR_FstClusLO 26 /* Lower 16-bit of first cluster (2) */
vpcola	0:572d27f56fcd	447	#define DIR_FileSize 28 /* File size (4) */
vpcola	0:572d27f56fcd	448	#define LDIR_Ord 0 /* LFN entry order and LLE flag (1) */
vpcola	0:572d27f56fcd	449	#define LDIR_Attr 11 /* LFN attribute (1) */
vpcola	0:572d27f56fcd	450	#define LDIR_Type 12 /* LFN type (1) */
vpcola	0:572d27f56fcd	451	#define LDIR_Chksum 13 /* Sum of corresponding SFN entry */
vpcola	0:572d27f56fcd	452	#define LDIR_FstClusLO 26 /* Filled by zero (0) */
vpcola	0:572d27f56fcd	453	#define SZ_DIR 32 /* Size of a directory entry */
vpcola	0:572d27f56fcd	454	#define LLE 0x40 /* Last long entry flag in LDIR_Ord */
vpcola	0:572d27f56fcd	455	#define DDE 0xE5 /* Deleted directory entry mark in DIR_Name[0] */
vpcola	0:572d27f56fcd	456	#define NDDE 0x05 /* Replacement of the character collides with DDE */
vpcola	0:572d27f56fcd	457
vpcola	0:572d27f56fcd	458
vpcola	0:572d27f56fcd	459	/------------------------------------------------------------/
vpcola	0:572d27f56fcd	460	/* Module private work area */
vpcola	0:572d27f56fcd	461	/------------------------------------------------------------/
vpcola	0:572d27f56fcd	462	/* Note that uninitialized variables with static duration are
vpcola	0:572d27f56fcd	463	/ zeroed/nulled at start-up. If not, the compiler or start-up
vpcola	0:572d27f56fcd	464	/ routine is out of ANSI-C standard.
vpcola	0:572d27f56fcd	465	*/
vpcola	0:572d27f56fcd	466
vpcola	0:572d27f56fcd	467	#if _VOLUMES
vpcola	0:572d27f56fcd	468	static
vpcola	0:572d27f56fcd	469	FATFS FatFs[_VOLUMES]; / Pointer to the file system objects (logical drives) */
vpcola	0:572d27f56fcd	470	#else
vpcola	0:572d27f56fcd	471	#error Number of volumes must not be 0.
vpcola	0:572d27f56fcd	472	#endif
vpcola	0:572d27f56fcd	473
vpcola	0:572d27f56fcd	474	static
vpcola	0:572d27f56fcd	475	WORD Fsid; /* File system mount ID */
vpcola	0:572d27f56fcd	476
vpcola	0:572d27f56fcd	477	#if _FS_RPATH
vpcola	0:572d27f56fcd	478	static
vpcola	0:572d27f56fcd	479	BYTE CurrVol; /* Current drive */
vpcola	0:572d27f56fcd	480	#endif
vpcola	0:572d27f56fcd	481
vpcola	0:572d27f56fcd	482	#if _FS_LOCK
vpcola	0:572d27f56fcd	483	static
vpcola	0:572d27f56fcd	484	FILESEM Files[_FS_LOCK]; /* File lock semaphores */
vpcola	0:572d27f56fcd	485	#endif
vpcola	0:572d27f56fcd	486
vpcola	0:572d27f56fcd	487	#if _USE_LFN == 0 /* No LFN feature */
vpcola	0:572d27f56fcd	488	#define DEF_NAMEBUF BYTE sfn[12]
vpcola	0:572d27f56fcd	489	#define INIT_BUF(dobj) (dobj).fn = sfn
vpcola	0:572d27f56fcd	490	#define FREE_BUF()
vpcola	0:572d27f56fcd	491
vpcola	0:572d27f56fcd	492	#elif _USE_LFN == 1 /* LFN feature with static working buffer */
vpcola	0:572d27f56fcd	493	static WCHAR LfnBuf[_MAX_LFN+1];
vpcola	0:572d27f56fcd	494	#define DEF_NAMEBUF BYTE sfn[12]
vpcola	0:572d27f56fcd	495	#define INIT_BUF(dobj) { (dobj).fn = sfn; (dobj).lfn = LfnBuf; }
vpcola	0:572d27f56fcd	496	#define FREE_BUF()
vpcola	0:572d27f56fcd	497
vpcola	0:572d27f56fcd	498	#elif _USE_LFN == 2 /* LFN feature with dynamic working buffer on the stack */
vpcola	0:572d27f56fcd	499	#define DEF_NAMEBUF BYTE sfn[12]; WCHAR lbuf[_MAX_LFN+1]
vpcola	0:572d27f56fcd	500	#define INIT_BUF(dobj) { (dobj).fn = sfn; (dobj).lfn = lbuf; }
vpcola	0:572d27f56fcd	501	#define FREE_BUF()
vpcola	0:572d27f56fcd	502
vpcola	0:572d27f56fcd	503	#elif _USE_LFN == 3 /* LFN feature with dynamic working buffer on the heap */
vpcola	0:572d27f56fcd	504	#define DEF_NAMEBUF BYTE sfn[12]; WCHAR *lfn
vpcola	0:572d27f56fcd	505	#define INIT_BUF(dobj) { lfn = ff_memalloc((_MAX_LFN + 1) * 2); \
vpcola	0:572d27f56fcd	506	if (!lfn) LEAVE_FF((dobj).fs, FR_NOT_ENOUGH_CORE); \
vpcola	0:572d27f56fcd	507	(dobj).lfn = lfn; (dobj).fn = sfn; }
vpcola	0:572d27f56fcd	508	#define FREE_BUF() ff_memfree(lfn)
vpcola	0:572d27f56fcd	509
vpcola	0:572d27f56fcd	510	#else
vpcola	0:572d27f56fcd	511	#error Wrong LFN configuration.
vpcola	0:572d27f56fcd	512	#endif
vpcola	0:572d27f56fcd	513
vpcola	0:572d27f56fcd	514
vpcola	0:572d27f56fcd	515
vpcola	0:572d27f56fcd	516
vpcola	0:572d27f56fcd	517	/*--------------------------------------------------------------------------
vpcola	0:572d27f56fcd	518
vpcola	0:572d27f56fcd	519	Module Private Functions
vpcola	0:572d27f56fcd	520
vpcola	0:572d27f56fcd	521	---------------------------------------------------------------------------*/
vpcola	0:572d27f56fcd	522
vpcola	0:572d27f56fcd	523
vpcola	0:572d27f56fcd	524	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	525	/* String functions */
vpcola	0:572d27f56fcd	526	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	527
vpcola	0:572d27f56fcd	528	/* Copy memory to memory */
vpcola	0:572d27f56fcd	529	static
vpcola	0:572d27f56fcd	530	void mem_cpy (void* dst, const void* src, UINT cnt)
vpcola	0:572d27f56fcd	531	{
vpcola	0:572d27f56fcd	532	BYTE d = (BYTE)dst;
vpcola	0:572d27f56fcd	533	const BYTE s = (const BYTE)src;
vpcola	0:572d27f56fcd	534
vpcola	0:572d27f56fcd	535	#if _WORD_ACCESS == 1
vpcola	0:572d27f56fcd	536	while (cnt >= sizeof (int)) {
vpcola	0:572d27f56fcd	537	(int)d = (int)s;
vpcola	0:572d27f56fcd	538	d += sizeof (int);
vpcola	0:572d27f56fcd	539	s += sizeof (int);
vpcola	0:572d27f56fcd	540	cnt -= sizeof (int);
vpcola	0:572d27f56fcd	541	}
vpcola	0:572d27f56fcd	542	#endif
vpcola	0:572d27f56fcd	543	while (cnt--)
vpcola	0:572d27f56fcd	544	d++ = s++;
vpcola	0:572d27f56fcd	545	}
vpcola	0:572d27f56fcd	546
vpcola	0:572d27f56fcd	547	/* Fill memory */
vpcola	0:572d27f56fcd	548	static
vpcola	0:572d27f56fcd	549	void mem_set (void* dst, int val, UINT cnt)
vpcola	0:572d27f56fcd	550	{
vpcola	0:572d27f56fcd	551	BYTE d = (BYTE)dst;
vpcola	0:572d27f56fcd	552
vpcola	0:572d27f56fcd	553	while (cnt--)
vpcola	0:572d27f56fcd	554	*d++ = (BYTE)val;
vpcola	0:572d27f56fcd	555	}
vpcola	0:572d27f56fcd	556
vpcola	0:572d27f56fcd	557	/* Compare memory to memory */
vpcola	0:572d27f56fcd	558	static
vpcola	0:572d27f56fcd	559	int mem_cmp (const void* dst, const void* src, UINT cnt)
vpcola	0:572d27f56fcd	560	{
vpcola	0:572d27f56fcd	561	const BYTE d = (const BYTE )dst, s = (const BYTE )src;
vpcola	0:572d27f56fcd	562	int r = 0;
vpcola	0:572d27f56fcd	563
vpcola	0:572d27f56fcd	564	while (cnt-- && (r = d++ - s++) == 0) ;
vpcola	0:572d27f56fcd	565	return r;
vpcola	0:572d27f56fcd	566	}
vpcola	0:572d27f56fcd	567
vpcola	0:572d27f56fcd	568	/* Check if chr is contained in the string */
vpcola	0:572d27f56fcd	569	static
vpcola	0:572d27f56fcd	570	int chk_chr (const char* str, int chr)
vpcola	0:572d27f56fcd	571	{
vpcola	0:572d27f56fcd	572	while (str && str != chr) str++;
vpcola	0:572d27f56fcd	573	return *str;
vpcola	0:572d27f56fcd	574	}
vpcola	0:572d27f56fcd	575
vpcola	0:572d27f56fcd	576
vpcola	0:572d27f56fcd	577
vpcola	0:572d27f56fcd	578	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	579	/* Request/Release grant to access the volume */
vpcola	0:572d27f56fcd	580	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	581	#if _FS_REENTRANT
vpcola	0:572d27f56fcd	582
vpcola	0:572d27f56fcd	583	static
vpcola	0:572d27f56fcd	584	int lock_fs (
vpcola	0:572d27f56fcd	585	FATFS fs / File system object */
vpcola	0:572d27f56fcd	586	)
vpcola	0:572d27f56fcd	587	{
vpcola	0:572d27f56fcd	588	return ff_req_grant(fs->sobj);
vpcola	0:572d27f56fcd	589	}
vpcola	0:572d27f56fcd	590
vpcola	0:572d27f56fcd	591
vpcola	0:572d27f56fcd	592	static
vpcola	0:572d27f56fcd	593	void unlock_fs (
vpcola	0:572d27f56fcd	594	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	595	FRESULT res /* Result code to be returned */
vpcola	0:572d27f56fcd	596	)
vpcola	0:572d27f56fcd	597	{
vpcola	0:572d27f56fcd	598	if (fs &&
vpcola	0:572d27f56fcd	599	res != FR_NOT_ENABLED &&
vpcola	0:572d27f56fcd	600	res != FR_INVALID_DRIVE &&
vpcola	0:572d27f56fcd	601	res != FR_INVALID_OBJECT &&
vpcola	0:572d27f56fcd	602	res != FR_TIMEOUT) {
vpcola	0:572d27f56fcd	603	ff_rel_grant(fs->sobj);
vpcola	0:572d27f56fcd	604	}
vpcola	0:572d27f56fcd	605	}
vpcola	0:572d27f56fcd	606	#endif
vpcola	0:572d27f56fcd	607
vpcola	0:572d27f56fcd	608
vpcola	0:572d27f56fcd	609
vpcola	0:572d27f56fcd	610	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	611	/* File lock control functions */
vpcola	0:572d27f56fcd	612	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	613	#if _FS_LOCK
vpcola	0:572d27f56fcd	614
vpcola	0:572d27f56fcd	615	static
vpcola	0:572d27f56fcd	616	FRESULT chk_lock ( /* Check if the file can be accessed */
vpcola	0:572d27f56fcd	617	DIR* dj, /* Directory object pointing the file to be checked */
vpcola	0:572d27f56fcd	618	int acc /* Desired access (0:Read, 1:Write, 2:Delete/Rename) */
vpcola	0:572d27f56fcd	619	)
vpcola	0:572d27f56fcd	620	{
vpcola	0:572d27f56fcd	621	UINT i, be;
vpcola	0:572d27f56fcd	622
vpcola	0:572d27f56fcd	623	/* Search file semaphore table */
vpcola	0:572d27f56fcd	624	for (i = be = 0; i < _FS_LOCK; i++) {
vpcola	0:572d27f56fcd	625	if (Files[i].fs) { /* Existing entry */
vpcola	0:572d27f56fcd	626	if (Files[i].fs == dj->fs && /* Check if the file matched with an open file */
vpcola	0:572d27f56fcd	627	Files[i].clu == dj->sclust &&
vpcola	0:572d27f56fcd	628	Files[i].idx == dj->index) break;
vpcola	0:572d27f56fcd	629	} else { /* Blank entry */
vpcola	0:572d27f56fcd	630	be++;
vpcola	0:572d27f56fcd	631	}
vpcola	0:572d27f56fcd	632	}
vpcola	0:572d27f56fcd	633	if (i == _FS_LOCK) /* The file is not opened */
vpcola	0:572d27f56fcd	634	return (be \|\| acc == 2) ? FR_OK : FR_TOO_MANY_OPEN_FILES; /* Is there a blank entry for new file? */
vpcola	0:572d27f56fcd	635
vpcola	0:572d27f56fcd	636	/* The file has been opened. Reject any open against writing file and all write mode open */
vpcola	0:572d27f56fcd	637	return (acc \|\| Files[i].ctr == 0x100) ? FR_LOCKED : FR_OK;
vpcola	0:572d27f56fcd	638	}
vpcola	0:572d27f56fcd	639
vpcola	0:572d27f56fcd	640
vpcola	0:572d27f56fcd	641	static
vpcola	0:572d27f56fcd	642	int enq_lock (void) /* Check if an entry is available for a new file */
vpcola	0:572d27f56fcd	643	{
vpcola	0:572d27f56fcd	644	UINT i;
vpcola	0:572d27f56fcd	645
vpcola	0:572d27f56fcd	646	for (i = 0; i < _FS_LOCK && Files[i].fs; i++) ;
vpcola	0:572d27f56fcd	647	return (i == _FS_LOCK) ? 0 : 1;
vpcola	0:572d27f56fcd	648	}
vpcola	0:572d27f56fcd	649
vpcola	0:572d27f56fcd	650
vpcola	0:572d27f56fcd	651	static
vpcola	0:572d27f56fcd	652	UINT inc_lock ( /* Increment file open counter and returns its index (0:int error) */
vpcola	0:572d27f56fcd	653	DIR* dj, /* Directory object pointing the file to register or increment */
vpcola	0:572d27f56fcd	654	int acc /* Desired access mode (0:Read, !0:Write) */
vpcola	0:572d27f56fcd	655	)
vpcola	0:572d27f56fcd	656	{
vpcola	0:572d27f56fcd	657	UINT i;
vpcola	0:572d27f56fcd	658
vpcola	0:572d27f56fcd	659
vpcola	0:572d27f56fcd	660	for (i = 0; i < _FS_LOCK; i++) { /* Find the file */
vpcola	0:572d27f56fcd	661	if (Files[i].fs == dj->fs &&
vpcola	0:572d27f56fcd	662	Files[i].clu == dj->sclust &&
vpcola	0:572d27f56fcd	663	Files[i].idx == dj->index) break;
vpcola	0:572d27f56fcd	664	}
vpcola	0:572d27f56fcd	665
vpcola	0:572d27f56fcd	666	if (i == _FS_LOCK) { /* Not opened. Register it as new. */
vpcola	0:572d27f56fcd	667	for (i = 0; i < _FS_LOCK && Files[i].fs; i++) ;
vpcola	0:572d27f56fcd	668	if (i == _FS_LOCK) return 0; /* No space to register (int err) */
vpcola	0:572d27f56fcd	669	Files[i].fs = dj->fs;
vpcola	0:572d27f56fcd	670	Files[i].clu = dj->sclust;
vpcola	0:572d27f56fcd	671	Files[i].idx = dj->index;
vpcola	0:572d27f56fcd	672	Files[i].ctr = 0;
vpcola	0:572d27f56fcd	673	}
vpcola	0:572d27f56fcd	674
vpcola	0:572d27f56fcd	675	if (acc && Files[i].ctr) return 0; /* Access violation (int err) */
vpcola	0:572d27f56fcd	676
vpcola	0:572d27f56fcd	677	Files[i].ctr = acc ? 0x100 : Files[i].ctr + 1; /* Set semaphore value */
vpcola	0:572d27f56fcd	678
vpcola	0:572d27f56fcd	679	return i + 1;
vpcola	0:572d27f56fcd	680	}
vpcola	0:572d27f56fcd	681
vpcola	0:572d27f56fcd	682
vpcola	0:572d27f56fcd	683	static
vpcola	0:572d27f56fcd	684	FRESULT dec_lock ( /* Decrement file open counter */
vpcola	0:572d27f56fcd	685	UINT i /* Semaphore index */
vpcola	0:572d27f56fcd	686	)
vpcola	0:572d27f56fcd	687	{
vpcola	0:572d27f56fcd	688	WORD n;
vpcola	0:572d27f56fcd	689	FRESULT res;
vpcola	0:572d27f56fcd	690
vpcola	0:572d27f56fcd	691
vpcola	0:572d27f56fcd	692	if (--i < _FS_LOCK) {
vpcola	0:572d27f56fcd	693	n = Files[i].ctr;
vpcola	0:572d27f56fcd	694	if (n == 0x100) n = 0;
vpcola	0:572d27f56fcd	695	if (n) n--;
vpcola	0:572d27f56fcd	696	Files[i].ctr = n;
vpcola	0:572d27f56fcd	697	if (!n) Files[i].fs = 0;
vpcola	0:572d27f56fcd	698	res = FR_OK;
vpcola	0:572d27f56fcd	699	} else {
vpcola	0:572d27f56fcd	700	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	701	}
vpcola	0:572d27f56fcd	702	return res;
vpcola	0:572d27f56fcd	703	}
vpcola	0:572d27f56fcd	704
vpcola	0:572d27f56fcd	705
vpcola	0:572d27f56fcd	706	static
vpcola	0:572d27f56fcd	707	void clear_lock ( /* Clear lock entries of the volume */
vpcola	0:572d27f56fcd	708	FATFS *fs
vpcola	0:572d27f56fcd	709	)
vpcola	0:572d27f56fcd	710	{
vpcola	0:572d27f56fcd	711	UINT i;
vpcola	0:572d27f56fcd	712
vpcola	0:572d27f56fcd	713	for (i = 0; i < _FS_LOCK; i++) {
vpcola	0:572d27f56fcd	714	if (Files[i].fs == fs) Files[i].fs = 0;
vpcola	0:572d27f56fcd	715	}
vpcola	0:572d27f56fcd	716	}
vpcola	0:572d27f56fcd	717	#endif
vpcola	0:572d27f56fcd	718
vpcola	0:572d27f56fcd	719
vpcola	0:572d27f56fcd	720
vpcola	0:572d27f56fcd	721	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	722	/* Change window offset */
vpcola	0:572d27f56fcd	723	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	724
vpcola	0:572d27f56fcd	725	static
vpcola	0:572d27f56fcd	726	FRESULT move_window (
vpcola	0:572d27f56fcd	727	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	728	DWORD sector /* Sector number to make appearance in the fs->win[] */
vpcola	0:572d27f56fcd	729	) /* Move to zero only writes back dirty window */
vpcola	0:572d27f56fcd	730	{
vpcola	0:572d27f56fcd	731	DWORD wsect;
vpcola	0:572d27f56fcd	732
vpcola	0:572d27f56fcd	733
vpcola	0:572d27f56fcd	734	wsect = fs->winsect;
vpcola	0:572d27f56fcd	735	if (wsect != sector) { /* Changed current window */
vpcola	0:572d27f56fcd	736	#if !_FS_READONLY
vpcola	0:572d27f56fcd	737	if (fs->wflag) { /* Write back dirty window if needed */
vpcola	0:572d27f56fcd	738	if (disk_write(fs->drv, fs->win, wsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	739	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	740	fs->wflag = 0;
vpcola	0:572d27f56fcd	741	if (wsect < (fs->fatbase + fs->fsize)) { /* In FAT area */
vpcola	0:572d27f56fcd	742	BYTE nf;
vpcola	0:572d27f56fcd	743	for (nf = fs->n_fats; nf > 1; nf--) { /* Reflect the change to all FAT copies */
vpcola	0:572d27f56fcd	744	wsect += fs->fsize;
vpcola	0:572d27f56fcd	745	disk_write(fs->drv, fs->win, wsect, 1);
vpcola	0:572d27f56fcd	746	}
vpcola	0:572d27f56fcd	747	}
vpcola	0:572d27f56fcd	748	}
vpcola	0:572d27f56fcd	749	#endif
vpcola	0:572d27f56fcd	750	if (sector) {
vpcola	0:572d27f56fcd	751	if (disk_read(fs->drv, fs->win, sector, 1) != RES_OK)
vpcola	0:572d27f56fcd	752	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	753	fs->winsect = sector;
vpcola	0:572d27f56fcd	754	}
vpcola	0:572d27f56fcd	755	}
vpcola	0:572d27f56fcd	756
vpcola	0:572d27f56fcd	757	return FR_OK;
vpcola	0:572d27f56fcd	758	}
vpcola	0:572d27f56fcd	759
vpcola	0:572d27f56fcd	760
vpcola	0:572d27f56fcd	761
vpcola	0:572d27f56fcd	762
vpcola	0:572d27f56fcd	763	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	764	/* Clean-up cached data */
vpcola	0:572d27f56fcd	765	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	766	#if !_FS_READONLY
vpcola	0:572d27f56fcd	767	static
vpcola	0:572d27f56fcd	768	FRESULT sync ( /* FR_OK: successful, FR_DISK_ERR: failed */
vpcola	0:572d27f56fcd	769	FATFS fs / File system object */
vpcola	0:572d27f56fcd	770	)
vpcola	0:572d27f56fcd	771	{
vpcola	0:572d27f56fcd	772	FRESULT res;
vpcola	0:572d27f56fcd	773
vpcola	0:572d27f56fcd	774
vpcola	0:572d27f56fcd	775	res = move_window(fs, 0);
vpcola	0:572d27f56fcd	776	if (res == FR_OK) {
vpcola	0:572d27f56fcd	777	/* Update FSInfo sector if needed */
vpcola	0:572d27f56fcd	778	if (fs->fs_type == FS_FAT32 && fs->fsi_flag) {
vpcola	0:572d27f56fcd	779	fs->winsect = 0;
vpcola	0:572d27f56fcd	780	/* Create FSInfo structure */
vpcola	0:572d27f56fcd	781	mem_set(fs->win, 0, 512);
vpcola	0:572d27f56fcd	782	ST_WORD(fs->win+BS_55AA, 0xAA55);
vpcola	0:572d27f56fcd	783	ST_DWORD(fs->win+FSI_LeadSig, 0x41615252);
vpcola	0:572d27f56fcd	784	ST_DWORD(fs->win+FSI_StrucSig, 0x61417272);
vpcola	0:572d27f56fcd	785	ST_DWORD(fs->win+FSI_Free_Count, fs->free_clust);
vpcola	0:572d27f56fcd	786	ST_DWORD(fs->win+FSI_Nxt_Free, fs->last_clust);
vpcola	0:572d27f56fcd	787	/* Write it into the FSInfo sector */
vpcola	0:572d27f56fcd	788	disk_write(fs->drv, fs->win, fs->fsi_sector, 1);
vpcola	0:572d27f56fcd	789	fs->fsi_flag = 0;
vpcola	0:572d27f56fcd	790	}
vpcola	0:572d27f56fcd	791	/* Make sure that no pending write process in the physical drive */
vpcola	0:572d27f56fcd	792	if (disk_ioctl(fs->drv, CTRL_SYNC, 0) != RES_OK)
vpcola	0:572d27f56fcd	793	res = FR_DISK_ERR;
vpcola	0:572d27f56fcd	794	}
vpcola	0:572d27f56fcd	795
vpcola	0:572d27f56fcd	796	return res;
vpcola	0:572d27f56fcd	797	}
vpcola	0:572d27f56fcd	798	#endif
vpcola	0:572d27f56fcd	799
vpcola	0:572d27f56fcd	800
vpcola	0:572d27f56fcd	801
vpcola	0:572d27f56fcd	802
vpcola	0:572d27f56fcd	803	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	804	/* Get sector# from cluster# */
vpcola	0:572d27f56fcd	805	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	806
vpcola	0:572d27f56fcd	807
vpcola	0:572d27f56fcd	808	DWORD clust2sect ( /* !=0: Sector number, 0: Failed - invalid cluster# */
vpcola	0:572d27f56fcd	809	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	810	DWORD clst /* Cluster# to be converted */
vpcola	0:572d27f56fcd	811	)
vpcola	0:572d27f56fcd	812	{
vpcola	0:572d27f56fcd	813	clst -= 2;
vpcola	0:572d27f56fcd	814	if (clst >= (fs->n_fatent - 2)) return 0; /* Invalid cluster# */
vpcola	0:572d27f56fcd	815	return clst * fs->csize + fs->database;
vpcola	0:572d27f56fcd	816	}
vpcola	0:572d27f56fcd	817
vpcola	0:572d27f56fcd	818
vpcola	0:572d27f56fcd	819
vpcola	0:572d27f56fcd	820
vpcola	0:572d27f56fcd	821	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	822	/* FAT access - Read value of a FAT entry */
vpcola	0:572d27f56fcd	823	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	824
vpcola	0:572d27f56fcd	825
vpcola	0:572d27f56fcd	826	DWORD get_fat ( /* 0xFFFFFFFF:Disk error, 1:Internal error, Else:Cluster status */
vpcola	0:572d27f56fcd	827	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	828	DWORD clst /* Cluster# to get the link information */
vpcola	0:572d27f56fcd	829	)
vpcola	0:572d27f56fcd	830	{
vpcola	0:572d27f56fcd	831	UINT wc, bc;
vpcola	0:572d27f56fcd	832	BYTE *p;
vpcola	0:572d27f56fcd	833
vpcola	0:572d27f56fcd	834
vpcola	0:572d27f56fcd	835	if (clst < 2 \|\| clst >= fs->n_fatent) /* Check range */
vpcola	0:572d27f56fcd	836	return 1;
vpcola	0:572d27f56fcd	837
vpcola	0:572d27f56fcd	838	switch (fs->fs_type) {
vpcola	0:572d27f56fcd	839	case FS_FAT12 :
vpcola	0:572d27f56fcd	840	bc = (UINT)clst;
vpcola	0:572d27f56fcd	841	bc += bc / 2;
vpcola	0:572d27f56fcd	842	if (move_window(fs, fs->fatbase + (bc / SS(fs)))) break;
vpcola	0:572d27f56fcd	843	wc = fs->win[bc % SS(fs)];
vpcola	0:572d27f56fcd	844	bc++;
vpcola	0:572d27f56fcd	845	if (move_window(fs, fs->fatbase + (bc / SS(fs)))) break;
vpcola	0:572d27f56fcd	846	wc \|= fs->win[bc % SS(fs)] << 8;
vpcola	0:572d27f56fcd	847	return (clst & 1) ? (wc >> 4) : (wc & 0xFFF);
vpcola	0:572d27f56fcd	848
vpcola	0:572d27f56fcd	849	case FS_FAT16 :
vpcola	0:572d27f56fcd	850	if (move_window(fs, fs->fatbase + (clst / (SS(fs) / 2)))) break;
vpcola	0:572d27f56fcd	851	p = &fs->win[clst * 2 % SS(fs)];
vpcola	0:572d27f56fcd	852	return LD_WORD(p);
vpcola	0:572d27f56fcd	853
vpcola	0:572d27f56fcd	854	case FS_FAT32 :
vpcola	0:572d27f56fcd	855	if (move_window(fs, fs->fatbase + (clst / (SS(fs) / 4)))) break;
vpcola	0:572d27f56fcd	856	p = &fs->win[clst * 4 % SS(fs)];
vpcola	0:572d27f56fcd	857	return LD_DWORD(p) & 0x0FFFFFFF;
vpcola	0:572d27f56fcd	858	}
vpcola	0:572d27f56fcd	859
vpcola	0:572d27f56fcd	860	return 0xFFFFFFFF; /* An error occurred at the disk I/O layer */
vpcola	0:572d27f56fcd	861	}
vpcola	0:572d27f56fcd	862
vpcola	0:572d27f56fcd	863
vpcola	0:572d27f56fcd	864
vpcola	0:572d27f56fcd	865
vpcola	0:572d27f56fcd	866	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	867	/* FAT access - Change value of a FAT entry */
vpcola	0:572d27f56fcd	868	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	869	#if !_FS_READONLY
vpcola	0:572d27f56fcd	870
vpcola	0:572d27f56fcd	871	FRESULT put_fat (
vpcola	0:572d27f56fcd	872	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	873	DWORD clst, /* Cluster# to be changed in range of 2 to fs->n_fatent - 1 */
vpcola	0:572d27f56fcd	874	DWORD val /* New value to mark the cluster */
vpcola	0:572d27f56fcd	875	)
vpcola	0:572d27f56fcd	876	{
vpcola	0:572d27f56fcd	877	UINT bc;
vpcola	0:572d27f56fcd	878	BYTE *p;
vpcola	0:572d27f56fcd	879	FRESULT res;
vpcola	0:572d27f56fcd	880
vpcola	0:572d27f56fcd	881
vpcola	0:572d27f56fcd	882	if (clst < 2 \|\| clst >= fs->n_fatent) { /* Check range */
vpcola	0:572d27f56fcd	883	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	884
vpcola	0:572d27f56fcd	885	} else {
vpcola	0:572d27f56fcd	886	switch (fs->fs_type) {
vpcola	0:572d27f56fcd	887	case FS_FAT12 :
vpcola	0:572d27f56fcd	888	bc = (UINT)clst;
vpcola	0:572d27f56fcd	889	bc += bc / 2;
vpcola	0:572d27f56fcd	890	res = move_window(fs, fs->fatbase + (bc / SS(fs)));
vpcola	0:572d27f56fcd	891	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	892	p = &fs->win[bc % SS(fs)];
vpcola	0:572d27f56fcd	893	p = (clst & 1) ? ((p & 0x0F) \| ((BYTE)val << 4)) : (BYTE)val;
vpcola	0:572d27f56fcd	894	bc++;
vpcola	0:572d27f56fcd	895	fs->wflag = 1;
vpcola	0:572d27f56fcd	896	res = move_window(fs, fs->fatbase + (bc / SS(fs)));
vpcola	0:572d27f56fcd	897	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	898	p = &fs->win[bc % SS(fs)];
vpcola	0:572d27f56fcd	899	p = (clst & 1) ? (BYTE)(val >> 4) : ((p & 0xF0) \| ((BYTE)(val >> 8) & 0x0F));
vpcola	0:572d27f56fcd	900	break;
vpcola	0:572d27f56fcd	901
vpcola	0:572d27f56fcd	902	case FS_FAT16 :
vpcola	0:572d27f56fcd	903	res = move_window(fs, fs->fatbase + (clst / (SS(fs) / 2)));
vpcola	0:572d27f56fcd	904	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	905	p = &fs->win[clst * 2 % SS(fs)];
vpcola	0:572d27f56fcd	906	ST_WORD(p, (WORD)val);
vpcola	0:572d27f56fcd	907	break;
vpcola	0:572d27f56fcd	908
vpcola	0:572d27f56fcd	909	case FS_FAT32 :
vpcola	0:572d27f56fcd	910	res = move_window(fs, fs->fatbase + (clst / (SS(fs) / 4)));
vpcola	0:572d27f56fcd	911	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	912	p = &fs->win[clst * 4 % SS(fs)];
vpcola	0:572d27f56fcd	913	val \|= LD_DWORD(p) & 0xF0000000;
vpcola	0:572d27f56fcd	914	ST_DWORD(p, val);
vpcola	0:572d27f56fcd	915	break;
vpcola	0:572d27f56fcd	916
vpcola	0:572d27f56fcd	917	default :
vpcola	0:572d27f56fcd	918	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	919	}
vpcola	0:572d27f56fcd	920	fs->wflag = 1;
vpcola	0:572d27f56fcd	921	}
vpcola	0:572d27f56fcd	922
vpcola	0:572d27f56fcd	923	return res;
vpcola	0:572d27f56fcd	924	}
vpcola	0:572d27f56fcd	925	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	926
vpcola	0:572d27f56fcd	927
vpcola	0:572d27f56fcd	928
vpcola	0:572d27f56fcd	929
vpcola	0:572d27f56fcd	930	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	931	/* FAT handling - Remove a cluster chain */
vpcola	0:572d27f56fcd	932	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	933	#if !_FS_READONLY
vpcola	0:572d27f56fcd	934	static
vpcola	0:572d27f56fcd	935	FRESULT remove_chain (
vpcola	0:572d27f56fcd	936	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	937	DWORD clst /* Cluster# to remove a chain from */
vpcola	0:572d27f56fcd	938	)
vpcola	0:572d27f56fcd	939	{
vpcola	0:572d27f56fcd	940	FRESULT res;
vpcola	0:572d27f56fcd	941	DWORD nxt;
vpcola	0:572d27f56fcd	942	#if _USE_ERASE
vpcola	0:572d27f56fcd	943	DWORD scl = clst, ecl = clst, rt[2];
vpcola	0:572d27f56fcd	944	#endif
vpcola	0:572d27f56fcd	945
vpcola	0:572d27f56fcd	946	if (clst < 2 \|\| clst >= fs->n_fatent) { /* Check range */
vpcola	0:572d27f56fcd	947	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	948
vpcola	0:572d27f56fcd	949	} else {
vpcola	0:572d27f56fcd	950	res = FR_OK;
vpcola	0:572d27f56fcd	951	while (clst < fs->n_fatent) { /* Not a last link? */
vpcola	0:572d27f56fcd	952	nxt = get_fat(fs, clst); /* Get cluster status */
vpcola	0:572d27f56fcd	953	if (nxt == 0) break; /* Empty cluster? */
vpcola	0:572d27f56fcd	954	if (nxt == 1) {
vpcola	0:572d27f56fcd	955	res = FR_INT_ERR; /* Internal error? */
vpcola	0:572d27f56fcd	956	break;
vpcola	0:572d27f56fcd	957	}
vpcola	0:572d27f56fcd	958	if (nxt == 0xFFFFFFFF) {
vpcola	0:572d27f56fcd	959	res = FR_DISK_ERR; /* Disk error? */
vpcola	0:572d27f56fcd	960	break;
vpcola	0:572d27f56fcd	961	}
vpcola	0:572d27f56fcd	962	res = put_fat(fs, clst, 0); /* Mark the cluster "empty" */
vpcola	0:572d27f56fcd	963	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	964	if (fs->free_clust != 0xFFFFFFFF) { /* Update FSInfo */
vpcola	0:572d27f56fcd	965	fs->free_clust++;
vpcola	0:572d27f56fcd	966	fs->fsi_flag = 1;
vpcola	0:572d27f56fcd	967	}
vpcola	0:572d27f56fcd	968	#if _USE_ERASE
vpcola	0:572d27f56fcd	969	if (ecl + 1 == nxt) { /* Is next cluster contiguous? */
vpcola	0:572d27f56fcd	970	ecl = nxt;
vpcola	0:572d27f56fcd	971	} else { /* End of contiguous clusters */
vpcola	0:572d27f56fcd	972	rt[0] = clust2sect(fs, scl); /* Start sector */
vpcola	0:572d27f56fcd	973	rt[1] = clust2sect(fs, ecl) + fs->csize - 1; /* End sector */
vpcola	0:572d27f56fcd	974	disk_ioctl(fs->drv, CTRL_ERASE_SECTOR, rt); /* Erase the block */
vpcola	0:572d27f56fcd	975	scl = ecl = nxt;
vpcola	0:572d27f56fcd	976	}
vpcola	0:572d27f56fcd	977	#endif
vpcola	0:572d27f56fcd	978	clst = nxt; /* Next cluster */
vpcola	0:572d27f56fcd	979	}
vpcola	0:572d27f56fcd	980	}
vpcola	0:572d27f56fcd	981
vpcola	0:572d27f56fcd	982	return res;
vpcola	0:572d27f56fcd	983	}
vpcola	0:572d27f56fcd	984	#endif
vpcola	0:572d27f56fcd	985
vpcola	0:572d27f56fcd	986
vpcola	0:572d27f56fcd	987
vpcola	0:572d27f56fcd	988
vpcola	0:572d27f56fcd	989	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	990	/* FAT handling - Stretch or Create a cluster chain */
vpcola	0:572d27f56fcd	991	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	992	#if !_FS_READONLY
vpcola	0:572d27f56fcd	993	static
vpcola	0:572d27f56fcd	994	DWORD create_chain ( /* 0:No free cluster, 1:Internal error, 0xFFFFFFFF:Disk error, >=2:New cluster# */
vpcola	0:572d27f56fcd	995	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	996	DWORD clst /* Cluster# to stretch. 0 means create a new chain. */
vpcola	0:572d27f56fcd	997	)
vpcola	0:572d27f56fcd	998	{
vpcola	0:572d27f56fcd	999	DWORD cs, ncl, scl;
vpcola	0:572d27f56fcd	1000	FRESULT res;
vpcola	0:572d27f56fcd	1001
vpcola	0:572d27f56fcd	1002
vpcola	0:572d27f56fcd	1003	if (clst == 0) { /* Create a new chain */
vpcola	0:572d27f56fcd	1004	scl = fs->last_clust; /* Get suggested start point */
vpcola	0:572d27f56fcd	1005	if (!scl \|\| scl >= fs->n_fatent) scl = 1;
vpcola	0:572d27f56fcd	1006	} else { /* Stretch the current chain */
vpcola	0:572d27f56fcd	1007	cs = get_fat(fs, clst); /* Check the cluster status */
vpcola	0:572d27f56fcd	1008	if (cs < 2) return 1; /* It is an invalid cluster */
vpcola	0:572d27f56fcd	1009	if (cs < fs->n_fatent) return cs; /* It is already followed by next cluster */
vpcola	0:572d27f56fcd	1010	scl = clst;
vpcola	0:572d27f56fcd	1011	}
vpcola	0:572d27f56fcd	1012
vpcola	0:572d27f56fcd	1013	ncl = scl; /* Start cluster */
vpcola	0:572d27f56fcd	1014	for (;;) {
vpcola	0:572d27f56fcd	1015	ncl++; /* Next cluster */
vpcola	0:572d27f56fcd	1016	if (ncl >= fs->n_fatent) { /* Wrap around */
vpcola	0:572d27f56fcd	1017	ncl = 2;
vpcola	0:572d27f56fcd	1018	if (ncl > scl) return 0; /* No free cluster */
vpcola	0:572d27f56fcd	1019	}
vpcola	0:572d27f56fcd	1020	cs = get_fat(fs, ncl); /* Get the cluster status */
vpcola	0:572d27f56fcd	1021	if (cs == 0) break; /* Found a free cluster */
vpcola	0:572d27f56fcd	1022	if (cs == 0xFFFFFFFF \|\| cs == 1)/* An error occurred */
vpcola	0:572d27f56fcd	1023	return cs;
vpcola	0:572d27f56fcd	1024	if (ncl == scl) return 0; /* No free cluster */
vpcola	0:572d27f56fcd	1025	}
vpcola	0:572d27f56fcd	1026
vpcola	0:572d27f56fcd	1027	res = put_fat(fs, ncl, 0x0FFFFFFF); /* Mark the new cluster "last link" */
vpcola	0:572d27f56fcd	1028	if (res == FR_OK && clst != 0) {
vpcola	0:572d27f56fcd	1029	res = put_fat(fs, clst, ncl); /* Link it to the previous one if needed */
vpcola	0:572d27f56fcd	1030	}
vpcola	0:572d27f56fcd	1031	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1032	fs->last_clust = ncl; /* Update FSINFO */
vpcola	0:572d27f56fcd	1033	if (fs->free_clust != 0xFFFFFFFF) {
vpcola	0:572d27f56fcd	1034	fs->free_clust--;
vpcola	0:572d27f56fcd	1035	fs->fsi_flag = 1;
vpcola	0:572d27f56fcd	1036	}
vpcola	0:572d27f56fcd	1037	} else {
vpcola	0:572d27f56fcd	1038	ncl = (res == FR_DISK_ERR) ? 0xFFFFFFFF : 1;
vpcola	0:572d27f56fcd	1039	}
vpcola	0:572d27f56fcd	1040
vpcola	0:572d27f56fcd	1041	return ncl; /* Return new cluster number or error code */
vpcola	0:572d27f56fcd	1042	}
vpcola	0:572d27f56fcd	1043	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	1044
vpcola	0:572d27f56fcd	1045
vpcola	0:572d27f56fcd	1046
vpcola	0:572d27f56fcd	1047	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1048	/* FAT handling - Convert offset into cluster with link map table */
vpcola	0:572d27f56fcd	1049	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1050
vpcola	0:572d27f56fcd	1051	#if _USE_FASTSEEK
vpcola	0:572d27f56fcd	1052	static
vpcola	0:572d27f56fcd	1053	DWORD clmt_clust ( /* <2:Error, >=2:Cluster number */
vpcola	0:572d27f56fcd	1054	FIL* fp, /* Pointer to the file object */
vpcola	0:572d27f56fcd	1055	DWORD ofs /* File offset to be converted to cluster# */
vpcola	0:572d27f56fcd	1056	)
vpcola	0:572d27f56fcd	1057	{
vpcola	0:572d27f56fcd	1058	DWORD cl, ncl, *tbl;
vpcola	0:572d27f56fcd	1059
vpcola	0:572d27f56fcd	1060
vpcola	0:572d27f56fcd	1061	tbl = fp->cltbl + 1; /* Top of CLMT */
vpcola	0:572d27f56fcd	1062	cl = ofs / SS(fp->fs) / fp->fs->csize; /* Cluster order from top of the file */
vpcola	0:572d27f56fcd	1063	for (;;) {
vpcola	0:572d27f56fcd	1064	ncl = tbl++; / Number of cluters in the fragment */
vpcola	0:572d27f56fcd	1065	if (!ncl) return 0; /* End of table? (error) */
vpcola	0:572d27f56fcd	1066	if (cl < ncl) break; /* In this fragment? */
vpcola	0:572d27f56fcd	1067	cl -= ncl;
vpcola	0:572d27f56fcd	1068	tbl++; /* Next fragment */
vpcola	0:572d27f56fcd	1069	}
vpcola	0:572d27f56fcd	1070	return cl + tbl; / Return the cluster number */
vpcola	0:572d27f56fcd	1071	}
vpcola	0:572d27f56fcd	1072	#endif /* _USE_FASTSEEK */
vpcola	0:572d27f56fcd	1073
vpcola	0:572d27f56fcd	1074
vpcola	0:572d27f56fcd	1075
vpcola	0:572d27f56fcd	1076	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1077	/* Directory handling - Set directory index */
vpcola	0:572d27f56fcd	1078	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1079
vpcola	0:572d27f56fcd	1080	static
vpcola	0:572d27f56fcd	1081	FRESULT dir_sdi (
vpcola	0:572d27f56fcd	1082	FATFS_DIR dj, / Pointer to directory object */
vpcola	0:572d27f56fcd	1083	WORD idx /* Index of directory table */
vpcola	0:572d27f56fcd	1084	)
vpcola	0:572d27f56fcd	1085	{
vpcola	0:572d27f56fcd	1086	DWORD clst;
vpcola	0:572d27f56fcd	1087	WORD ic;
vpcola	0:572d27f56fcd	1088
vpcola	0:572d27f56fcd	1089
vpcola	0:572d27f56fcd	1090	dj->index = idx;
vpcola	0:572d27f56fcd	1091	clst = dj->sclust;
vpcola	0:572d27f56fcd	1092	if (clst == 1 \|\| clst >= dj->fs->n_fatent) /* Check start cluster range */
vpcola	0:572d27f56fcd	1093	return FR_INT_ERR;
vpcola	0:572d27f56fcd	1094	if (!clst && dj->fs->fs_type == FS_FAT32) /* Replace cluster# 0 with root cluster# if in FAT32 */
vpcola	0:572d27f56fcd	1095	clst = dj->fs->dirbase;
vpcola	0:572d27f56fcd	1096
vpcola	0:572d27f56fcd	1097	if (clst == 0) { /* Static table (root-dir in FAT12/16) */
vpcola	0:572d27f56fcd	1098	dj->clust = clst;
vpcola	0:572d27f56fcd	1099	if (idx >= dj->fs->n_rootdir) /* Index is out of range */
vpcola	0:572d27f56fcd	1100	return FR_INT_ERR;
vpcola	0:572d27f56fcd	1101	dj->sect = dj->fs->dirbase + idx / (SS(dj->fs) / SZ_DIR); /* Sector# */
vpcola	0:572d27f56fcd	1102	} else { /* Dynamic table (sub-dirs or root-dir in FAT32) */
vpcola	0:572d27f56fcd	1103	ic = SS(dj->fs) / SZ_DIR * dj->fs->csize; /* Entries per cluster */
vpcola	0:572d27f56fcd	1104	while (idx >= ic) { /* Follow cluster chain */
vpcola	0:572d27f56fcd	1105	clst = get_fat(dj->fs, clst); /* Get next cluster */
vpcola	0:572d27f56fcd	1106	if (clst == 0xFFFFFFFF) return FR_DISK_ERR; /* Disk error */
vpcola	0:572d27f56fcd	1107	if (clst < 2 \|\| clst >= dj->fs->n_fatent) /* Reached to end of table or int error */
vpcola	0:572d27f56fcd	1108	return FR_INT_ERR;
vpcola	0:572d27f56fcd	1109	idx -= ic;
vpcola	0:572d27f56fcd	1110	}
vpcola	0:572d27f56fcd	1111	dj->clust = clst;
vpcola	0:572d27f56fcd	1112	dj->sect = clust2sect(dj->fs, clst) + idx / (SS(dj->fs) / SZ_DIR); /* Sector# */
vpcola	0:572d27f56fcd	1113	}
vpcola	0:572d27f56fcd	1114
vpcola	0:572d27f56fcd	1115	dj->dir = dj->fs->win + (idx % (SS(dj->fs) / SZ_DIR)) * SZ_DIR; /* Ptr to the entry in the sector */
vpcola	0:572d27f56fcd	1116
vpcola	0:572d27f56fcd	1117	return FR_OK; /* Seek succeeded */
vpcola	0:572d27f56fcd	1118	}
vpcola	0:572d27f56fcd	1119
vpcola	0:572d27f56fcd	1120
vpcola	0:572d27f56fcd	1121
vpcola	0:572d27f56fcd	1122
vpcola	0:572d27f56fcd	1123	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1124	/* Directory handling - Move directory table index next */
vpcola	0:572d27f56fcd	1125	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1126
vpcola	0:572d27f56fcd	1127	static
vpcola	0:572d27f56fcd	1128	FRESULT dir_next ( /* FR_OK:Succeeded, FR_NO_FILE:End of table, FR_DENIED:EOT and could not stretch */
vpcola	0:572d27f56fcd	1129	FATFS_DIR dj, / Pointer to directory object */
vpcola	0:572d27f56fcd	1130	int stretch /* 0: Do not stretch table, 1: Stretch table if needed */
vpcola	0:572d27f56fcd	1131	)
vpcola	0:572d27f56fcd	1132	{
vpcola	0:572d27f56fcd	1133	DWORD clst;
vpcola	0:572d27f56fcd	1134	WORD i;
vpcola	0:572d27f56fcd	1135
vpcola	0:572d27f56fcd	1136
vpcola	0:572d27f56fcd	1137	stretch = stretch; /* To suppress warning on read-only cfg. */
vpcola	0:572d27f56fcd	1138	i = dj->index + 1;
vpcola	0:572d27f56fcd	1139	if (!i \|\| !dj->sect) /* Report EOT when index has reached 65535 */
vpcola	0:572d27f56fcd	1140	return FR_NO_FILE;
vpcola	0:572d27f56fcd	1141
vpcola	0:572d27f56fcd	1142	if (!(i % (SS(dj->fs) / SZ_DIR))) { /* Sector changed? */
vpcola	0:572d27f56fcd	1143	dj->sect++; /* Next sector */
vpcola	0:572d27f56fcd	1144
vpcola	0:572d27f56fcd	1145	if (dj->clust == 0) { /* Static table */
vpcola	0:572d27f56fcd	1146	if (i >= dj->fs->n_rootdir) /* Report EOT when end of table */
vpcola	0:572d27f56fcd	1147	return FR_NO_FILE;
vpcola	0:572d27f56fcd	1148	} else { /* Dynamic table */
vpcola	0:572d27f56fcd	1149	if (((i / (SS(dj->fs) / SZ_DIR)) & (dj->fs->csize - 1)) == 0) { /* Cluster changed? */
vpcola	0:572d27f56fcd	1150	clst = get_fat(dj->fs, dj->clust); /* Get next cluster */
vpcola	0:572d27f56fcd	1151	if (clst <= 1) return FR_INT_ERR;
vpcola	0:572d27f56fcd	1152	if (clst == 0xFFFFFFFF) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	1153	if (clst >= dj->fs->n_fatent) { /* When it reached end of dynamic table */
vpcola	0:572d27f56fcd	1154	#if !_FS_READONLY
vpcola	0:572d27f56fcd	1155	BYTE c;
vpcola	0:572d27f56fcd	1156	if (!stretch) return FR_NO_FILE; /* When do not stretch, report EOT */
vpcola	0:572d27f56fcd	1157	clst = create_chain(dj->fs, dj->clust); /* Stretch cluster chain */
vpcola	0:572d27f56fcd	1158	if (clst == 0) return FR_DENIED; /* No free cluster */
vpcola	0:572d27f56fcd	1159	if (clst == 1) return FR_INT_ERR;
vpcola	0:572d27f56fcd	1160	if (clst == 0xFFFFFFFF) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	1161	/* Clean-up stretched table */
vpcola	0:572d27f56fcd	1162	if (move_window(dj->fs, 0)) return FR_DISK_ERR; /* Flush active window */
vpcola	0:572d27f56fcd	1163	mem_set(dj->fs->win, 0, SS(dj->fs)); /* Clear window buffer */
vpcola	0:572d27f56fcd	1164	dj->fs->winsect = clust2sect(dj->fs, clst); /* Cluster start sector */
vpcola	0:572d27f56fcd	1165	for (c = 0; c < dj->fs->csize; c++) { /* Fill the new cluster with 0 */
vpcola	0:572d27f56fcd	1166	dj->fs->wflag = 1;
vpcola	0:572d27f56fcd	1167	if (move_window(dj->fs, 0)) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	1168	dj->fs->winsect++;
vpcola	0:572d27f56fcd	1169	}
vpcola	0:572d27f56fcd	1170	dj->fs->winsect -= c; /* Rewind window address */
vpcola	0:572d27f56fcd	1171	#else
vpcola	0:572d27f56fcd	1172	return FR_NO_FILE; /* Report EOT */
vpcola	0:572d27f56fcd	1173	#endif
vpcola	0:572d27f56fcd	1174	}
vpcola	0:572d27f56fcd	1175	dj->clust = clst; /* Initialize data for new cluster */
vpcola	0:572d27f56fcd	1176	dj->sect = clust2sect(dj->fs, clst);
vpcola	0:572d27f56fcd	1177	}
vpcola	0:572d27f56fcd	1178	}
vpcola	0:572d27f56fcd	1179	}
vpcola	0:572d27f56fcd	1180
vpcola	0:572d27f56fcd	1181	dj->index = i;
vpcola	0:572d27f56fcd	1182	dj->dir = dj->fs->win + (i % (SS(dj->fs) / SZ_DIR)) * SZ_DIR;
vpcola	0:572d27f56fcd	1183
vpcola	0:572d27f56fcd	1184	return FR_OK;
vpcola	0:572d27f56fcd	1185	}
vpcola	0:572d27f56fcd	1186
vpcola	0:572d27f56fcd	1187
vpcola	0:572d27f56fcd	1188
vpcola	0:572d27f56fcd	1189
vpcola	0:572d27f56fcd	1190	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1191	/* Directory handling - Load/Store start cluster number */
vpcola	0:572d27f56fcd	1192	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1193
vpcola	0:572d27f56fcd	1194	static
vpcola	0:572d27f56fcd	1195	DWORD ld_clust (
vpcola	0:572d27f56fcd	1196	FATFS fs, / Pointer to the fs object */
vpcola	0:572d27f56fcd	1197	BYTE dir / Pointer to the directory entry */
vpcola	0:572d27f56fcd	1198	)
vpcola	0:572d27f56fcd	1199	{
vpcola	0:572d27f56fcd	1200	DWORD cl;
vpcola	0:572d27f56fcd	1201
vpcola	0:572d27f56fcd	1202	cl = LD_WORD(dir+DIR_FstClusLO);
vpcola	0:572d27f56fcd	1203	if (fs->fs_type == FS_FAT32)
vpcola	0:572d27f56fcd	1204	cl \|= (DWORD)LD_WORD(dir+DIR_FstClusHI) << 16;
vpcola	0:572d27f56fcd	1205
vpcola	0:572d27f56fcd	1206	return cl;
vpcola	0:572d27f56fcd	1207	}
vpcola	0:572d27f56fcd	1208
vpcola	0:572d27f56fcd	1209
vpcola	0:572d27f56fcd	1210	#if !_FS_READONLY
vpcola	0:572d27f56fcd	1211	static
vpcola	0:572d27f56fcd	1212	void st_clust (
vpcola	0:572d27f56fcd	1213	BYTE dir, / Pointer to the directory entry */
vpcola	0:572d27f56fcd	1214	DWORD cl /* Value to be set */
vpcola	0:572d27f56fcd	1215	)
vpcola	0:572d27f56fcd	1216	{
vpcola	0:572d27f56fcd	1217	ST_WORD(dir+DIR_FstClusLO, cl);
vpcola	0:572d27f56fcd	1218	ST_WORD(dir+DIR_FstClusHI, cl >> 16);
vpcola	0:572d27f56fcd	1219	}
vpcola	0:572d27f56fcd	1220	#endif
vpcola	0:572d27f56fcd	1221
vpcola	0:572d27f56fcd	1222
vpcola	0:572d27f56fcd	1223
vpcola	0:572d27f56fcd	1224	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1225	/* LFN handling - Test/Pick/Fit an LFN segment from/to directory entry */
vpcola	0:572d27f56fcd	1226	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1227	#if _USE_LFN
vpcola	0:572d27f56fcd	1228	static
vpcola	0:572d27f56fcd	1229	const BYTE LfnOfs[] = {1,3,5,7,9,14,16,18,20,22,24,28,30}; /* Offset of LFN chars in the directory entry */
vpcola	0:572d27f56fcd	1230
vpcola	0:572d27f56fcd	1231
vpcola	0:572d27f56fcd	1232	static
vpcola	0:572d27f56fcd	1233	int cmp_lfn ( /* 1:Matched, 0:Not matched */
vpcola	0:572d27f56fcd	1234	WCHAR lfnbuf, / Pointer to the LFN to be compared */
vpcola	0:572d27f56fcd	1235	BYTE dir / Pointer to the directory entry containing a part of LFN */
vpcola	0:572d27f56fcd	1236	)
vpcola	0:572d27f56fcd	1237	{
vpcola	0:572d27f56fcd	1238	UINT i, s;
vpcola	0:572d27f56fcd	1239	WCHAR wc, uc;
vpcola	0:572d27f56fcd	1240
vpcola	0:572d27f56fcd	1241
vpcola	0:572d27f56fcd	1242	i = ((dir[LDIR_Ord] & ~LLE) - 1) * 13; /* Get offset in the LFN buffer */
vpcola	0:572d27f56fcd	1243	s = 0;
vpcola	0:572d27f56fcd	1244	wc = 1;
vpcola	0:572d27f56fcd	1245	do {
vpcola	0:572d27f56fcd	1246	uc = LD_WORD(dir+LfnOfs[s]); /* Pick an LFN character from the entry */
vpcola	0:572d27f56fcd	1247	if (wc) { /* Last char has not been processed */
vpcola	0:572d27f56fcd	1248	wc = ff_wtoupper(uc); /* Convert it to upper case */
vpcola	0:572d27f56fcd	1249	if (i >= _MAX_LFN \|\| wc != ff_wtoupper(lfnbuf[i++])) /* Compare it */
vpcola	0:572d27f56fcd	1250	return 0; /* Not matched */
vpcola	0:572d27f56fcd	1251	} else {
vpcola	0:572d27f56fcd	1252	if (uc != 0xFFFF) return 0; /* Check filler */
vpcola	0:572d27f56fcd	1253	}
vpcola	0:572d27f56fcd	1254	} while (++s < 13); /* Repeat until all chars in the entry are checked */
vpcola	0:572d27f56fcd	1255
vpcola	0:572d27f56fcd	1256	if ((dir[LDIR_Ord] & LLE) && wc && lfnbuf[i]) /* Last segment matched but different length */
vpcola	0:572d27f56fcd	1257	return 0;
vpcola	0:572d27f56fcd	1258
vpcola	0:572d27f56fcd	1259	return 1; /* The part of LFN matched */
vpcola	0:572d27f56fcd	1260	}
vpcola	0:572d27f56fcd	1261
vpcola	0:572d27f56fcd	1262
vpcola	0:572d27f56fcd	1263
vpcola	0:572d27f56fcd	1264	static
vpcola	0:572d27f56fcd	1265	int pick_lfn ( /* 1:Succeeded, 0:Buffer overflow */
vpcola	0:572d27f56fcd	1266	WCHAR lfnbuf, / Pointer to the Unicode-LFN buffer */
vpcola	0:572d27f56fcd	1267	BYTE dir / Pointer to the directory entry */
vpcola	0:572d27f56fcd	1268	)
vpcola	0:572d27f56fcd	1269	{
vpcola	0:572d27f56fcd	1270	UINT i, s;
vpcola	0:572d27f56fcd	1271	WCHAR wc, uc;
vpcola	0:572d27f56fcd	1272
vpcola	0:572d27f56fcd	1273
vpcola	0:572d27f56fcd	1274	i = ((dir[LDIR_Ord] & 0x3F) - 1) * 13; /* Offset in the LFN buffer */
vpcola	0:572d27f56fcd	1275
vpcola	0:572d27f56fcd	1276	s = 0;
vpcola	0:572d27f56fcd	1277	wc = 1;
vpcola	0:572d27f56fcd	1278	do {
vpcola	0:572d27f56fcd	1279	uc = LD_WORD(dir+LfnOfs[s]); /* Pick an LFN character from the entry */
vpcola	0:572d27f56fcd	1280	if (wc) { /* Last char has not been processed */
vpcola	0:572d27f56fcd	1281	if (i >= _MAX_LFN) return 0; /* Buffer overflow? */
vpcola	0:572d27f56fcd	1282	lfnbuf[i++] = wc = uc; /* Store it */
vpcola	0:572d27f56fcd	1283	} else {
vpcola	0:572d27f56fcd	1284	if (uc != 0xFFFF) return 0; /* Check filler */
vpcola	0:572d27f56fcd	1285	}
vpcola	0:572d27f56fcd	1286	} while (++s < 13); /* Read all character in the entry */
vpcola	0:572d27f56fcd	1287
vpcola	0:572d27f56fcd	1288	if (dir[LDIR_Ord] & LLE) { /* Put terminator if it is the last LFN part */
vpcola	0:572d27f56fcd	1289	if (i >= _MAX_LFN) return 0; /* Buffer overflow? */
vpcola	0:572d27f56fcd	1290	lfnbuf[i] = 0;
vpcola	0:572d27f56fcd	1291	}
vpcola	0:572d27f56fcd	1292
vpcola	0:572d27f56fcd	1293	return 1;
vpcola	0:572d27f56fcd	1294	}
vpcola	0:572d27f56fcd	1295
vpcola	0:572d27f56fcd	1296
vpcola	0:572d27f56fcd	1297	#if !_FS_READONLY
vpcola	0:572d27f56fcd	1298	static
vpcola	0:572d27f56fcd	1299	void fit_lfn (
vpcola	0:572d27f56fcd	1300	const WCHAR lfnbuf, / Pointer to the LFN buffer */
vpcola	0:572d27f56fcd	1301	BYTE dir, / Pointer to the directory entry */
vpcola	0:572d27f56fcd	1302	BYTE ord, /* LFN order (1-20) */
vpcola	0:572d27f56fcd	1303	BYTE sum /* SFN sum */
vpcola	0:572d27f56fcd	1304	)
vpcola	0:572d27f56fcd	1305	{
vpcola	0:572d27f56fcd	1306	UINT i, s;
vpcola	0:572d27f56fcd	1307	WCHAR wc;
vpcola	0:572d27f56fcd	1308
vpcola	0:572d27f56fcd	1309
vpcola	0:572d27f56fcd	1310	dir[LDIR_Chksum] = sum; /* Set check sum */
vpcola	0:572d27f56fcd	1311	dir[LDIR_Attr] = AM_LFN; /* Set attribute. LFN entry */
vpcola	0:572d27f56fcd	1312	dir[LDIR_Type] = 0;
vpcola	0:572d27f56fcd	1313	ST_WORD(dir+LDIR_FstClusLO, 0);
vpcola	0:572d27f56fcd	1314
vpcola	0:572d27f56fcd	1315	i = (ord - 1) * 13; /* Get offset in the LFN buffer */
vpcola	0:572d27f56fcd	1316	s = wc = 0;
vpcola	0:572d27f56fcd	1317	do {
vpcola	0:572d27f56fcd	1318	if (wc != 0xFFFF) wc = lfnbuf[i++]; /* Get an effective char */
vpcola	0:572d27f56fcd	1319	ST_WORD(dir+LfnOfs[s], wc); /* Put it */
vpcola	0:572d27f56fcd	1320	if (!wc) wc = 0xFFFF; /* Padding chars following last char */
vpcola	0:572d27f56fcd	1321	} while (++s < 13);
vpcola	0:572d27f56fcd	1322	if (wc == 0xFFFF \|\| !lfnbuf[i]) ord \|= LLE; /* Bottom LFN part is the start of LFN sequence */
vpcola	0:572d27f56fcd	1323	dir[LDIR_Ord] = ord; /* Set the LFN order */
vpcola	0:572d27f56fcd	1324	}
vpcola	0:572d27f56fcd	1325
vpcola	0:572d27f56fcd	1326	#endif
vpcola	0:572d27f56fcd	1327	#endif
vpcola	0:572d27f56fcd	1328
vpcola	0:572d27f56fcd	1329
vpcola	0:572d27f56fcd	1330
vpcola	0:572d27f56fcd	1331	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1332	/* Create numbered name */
vpcola	0:572d27f56fcd	1333	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1334	#if _USE_LFN
vpcola	0:572d27f56fcd	1335	void gen_numname (
vpcola	0:572d27f56fcd	1336	BYTE dst, / Pointer to generated SFN */
vpcola	0:572d27f56fcd	1337	const BYTE src, / Pointer to source SFN to be modified */
vpcola	0:572d27f56fcd	1338	const WCHAR lfn, / Pointer to LFN */
vpcola	0:572d27f56fcd	1339	WORD seq /* Sequence number */
vpcola	0:572d27f56fcd	1340	)
vpcola	0:572d27f56fcd	1341	{
vpcola	0:572d27f56fcd	1342	BYTE ns[8], c;
vpcola	0:572d27f56fcd	1343	UINT i, j;
vpcola	0:572d27f56fcd	1344
vpcola	0:572d27f56fcd	1345
vpcola	0:572d27f56fcd	1346	mem_cpy(dst, src, 11);
vpcola	0:572d27f56fcd	1347
vpcola	0:572d27f56fcd	1348	if (seq > 5) { /* On many collisions, generate a hash number instead of sequential number */
vpcola	0:572d27f56fcd	1349	do seq = (seq >> 1) + (seq << 15) + (WORD)*lfn++;
vpcola	0:572d27f56fcd	1350	while (*lfn);
vpcola	0:572d27f56fcd	1351	}
vpcola	0:572d27f56fcd	1352
vpcola	0:572d27f56fcd	1353	/* itoa (hexdecimal) */
vpcola	0:572d27f56fcd	1354	i = 7;
vpcola	0:572d27f56fcd	1355	do {
vpcola	0:572d27f56fcd	1356	c = (seq % 16) + '0';
vpcola	0:572d27f56fcd	1357	if (c > '9') c += 7;
vpcola	0:572d27f56fcd	1358	ns[i--] = c;
vpcola	0:572d27f56fcd	1359	seq /= 16;
vpcola	0:572d27f56fcd	1360	} while (seq);
vpcola	0:572d27f56fcd	1361	ns[i] = '~';
vpcola	0:572d27f56fcd	1362
vpcola	0:572d27f56fcd	1363	/* Append the number */
vpcola	0:572d27f56fcd	1364	for (j = 0; j < i && dst[j] != ' '; j++) {
vpcola	0:572d27f56fcd	1365	if (IsDBCS1(dst[j])) {
vpcola	0:572d27f56fcd	1366	if (j == i - 1) break;
vpcola	0:572d27f56fcd	1367	j++;
vpcola	0:572d27f56fcd	1368	}
vpcola	0:572d27f56fcd	1369	}
vpcola	0:572d27f56fcd	1370	do {
vpcola	0:572d27f56fcd	1371	dst[j++] = (i < 8) ? ns[i++] : ' ';
vpcola	0:572d27f56fcd	1372	} while (j < 8);
vpcola	0:572d27f56fcd	1373	}
vpcola	0:572d27f56fcd	1374	#endif
vpcola	0:572d27f56fcd	1375
vpcola	0:572d27f56fcd	1376
vpcola	0:572d27f56fcd	1377
vpcola	0:572d27f56fcd	1378
vpcola	0:572d27f56fcd	1379	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1380	/* Calculate sum of an SFN */
vpcola	0:572d27f56fcd	1381	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1382	#if _USE_LFN
vpcola	0:572d27f56fcd	1383	static
vpcola	0:572d27f56fcd	1384	BYTE sum_sfn (
vpcola	0:572d27f56fcd	1385	const BYTE dir / Ptr to directory entry */
vpcola	0:572d27f56fcd	1386	)
vpcola	0:572d27f56fcd	1387	{
vpcola	0:572d27f56fcd	1388	BYTE sum = 0;
vpcola	0:572d27f56fcd	1389	UINT n = 11;
vpcola	0:572d27f56fcd	1390
vpcola	0:572d27f56fcd	1391	do sum = (sum >> 1) + (sum << 7) + *dir++;
vpcola	0:572d27f56fcd	1392	while (--n);
vpcola	0:572d27f56fcd	1393	return sum;
vpcola	0:572d27f56fcd	1394	}
vpcola	0:572d27f56fcd	1395	#endif
vpcola	0:572d27f56fcd	1396
vpcola	0:572d27f56fcd	1397
vpcola	0:572d27f56fcd	1398
vpcola	0:572d27f56fcd	1399
vpcola	0:572d27f56fcd	1400	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1401	/* Directory handling - Find an object in the directory */
vpcola	0:572d27f56fcd	1402	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1403
vpcola	0:572d27f56fcd	1404	static
vpcola	0:572d27f56fcd	1405	FRESULT dir_find (
vpcola	0:572d27f56fcd	1406	FATFS_DIR dj / Pointer to the directory object linked to the file name */
vpcola	0:572d27f56fcd	1407	)
vpcola	0:572d27f56fcd	1408	{
vpcola	0:572d27f56fcd	1409	FRESULT res;
vpcola	0:572d27f56fcd	1410	BYTE c, *dir;
vpcola	0:572d27f56fcd	1411	#if _USE_LFN
vpcola	0:572d27f56fcd	1412	BYTE a, ord, sum;
vpcola	0:572d27f56fcd	1413	#endif
vpcola	0:572d27f56fcd	1414
vpcola	0:572d27f56fcd	1415	res = dir_sdi(dj, 0); /* Rewind directory object */
vpcola	0:572d27f56fcd	1416	if (res != FR_OK) return res;
vpcola	0:572d27f56fcd	1417
vpcola	0:572d27f56fcd	1418	#if _USE_LFN
vpcola	0:572d27f56fcd	1419	ord = sum = 0xFF;
vpcola	0:572d27f56fcd	1420	#endif
vpcola	0:572d27f56fcd	1421	do {
vpcola	0:572d27f56fcd	1422	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1423	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1424	dir = dj->dir; /* Ptr to the directory entry of current index */
vpcola	0:572d27f56fcd	1425	c = dir[DIR_Name];
vpcola	0:572d27f56fcd	1426	if (c == 0) {
vpcola	0:572d27f56fcd	1427	res = FR_NO_FILE; /* Reached to end of table */
vpcola	0:572d27f56fcd	1428	break;
vpcola	0:572d27f56fcd	1429	}
vpcola	0:572d27f56fcd	1430	#if _USE_LFN /* LFN configuration */
vpcola	0:572d27f56fcd	1431	a = dir[DIR_Attr] & AM_MASK;
vpcola	0:572d27f56fcd	1432	if (c == DDE \|\| ((a & AM_VOL) && a != AM_LFN)) { /* An entry without valid data */
vpcola	0:572d27f56fcd	1433	ord = 0xFF;
vpcola	0:572d27f56fcd	1434	} else {
vpcola	0:572d27f56fcd	1435	if (a == AM_LFN) { /* An LFN entry is found */
vpcola	0:572d27f56fcd	1436	if (dj->lfn) {
vpcola	0:572d27f56fcd	1437	if (c & LLE) { /* Is it start of LFN sequence? */
vpcola	0:572d27f56fcd	1438	sum = dir[LDIR_Chksum];
vpcola	0:572d27f56fcd	1439	c &= ~LLE;
vpcola	0:572d27f56fcd	1440	ord = c; /* LFN start order */
vpcola	0:572d27f56fcd	1441	dj->lfn_idx = dj->index;
vpcola	0:572d27f56fcd	1442	}
vpcola	0:572d27f56fcd	1443	/* Check validity of the LFN entry and compare it with given name */
vpcola	0:572d27f56fcd	1444	ord = (c == ord && sum == dir[LDIR_Chksum] && cmp_lfn(dj->lfn, dir)) ? ord - 1 : 0xFF;
vpcola	0:572d27f56fcd	1445	}
vpcola	0:572d27f56fcd	1446	} else { /* An SFN entry is found */
vpcola	0:572d27f56fcd	1447	if (!ord && sum == sum_sfn(dir)) break; /* LFN matched? */
vpcola	0:572d27f56fcd	1448	ord = 0xFF;
vpcola	0:572d27f56fcd	1449	dj->lfn_idx = 0xFFFF; /* Reset LFN sequence */
vpcola	0:572d27f56fcd	1450	if (!(dj->fn[NS] & NS_LOSS) && !mem_cmp(dir, dj->fn, 11)) break; /* SFN matched? */
vpcola	0:572d27f56fcd	1451	}
vpcola	0:572d27f56fcd	1452	}
vpcola	0:572d27f56fcd	1453	#else /* Non LFN configuration */
vpcola	0:572d27f56fcd	1454	if (!(dir[DIR_Attr] & AM_VOL) && !mem_cmp(dir, dj->fn, 11)) /* Is it a valid entry? */
vpcola	0:572d27f56fcd	1455	break;
vpcola	0:572d27f56fcd	1456	#endif
vpcola	0:572d27f56fcd	1457	res = dir_next(dj, 0); /* Next entry */
vpcola	0:572d27f56fcd	1458	} while (res == FR_OK);
vpcola	0:572d27f56fcd	1459
vpcola	0:572d27f56fcd	1460	return res;
vpcola	0:572d27f56fcd	1461	}
vpcola	0:572d27f56fcd	1462
vpcola	0:572d27f56fcd	1463
vpcola	0:572d27f56fcd	1464
vpcola	0:572d27f56fcd	1465
vpcola	0:572d27f56fcd	1466	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1467	/* Read an object from the directory */
vpcola	0:572d27f56fcd	1468	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1469	#if _FS_MINIMIZE <= 1
vpcola	0:572d27f56fcd	1470	static
vpcola	0:572d27f56fcd	1471	FRESULT dir_read (
vpcola	0:572d27f56fcd	1472	FATFS_DIR dj / Pointer to the directory object that pointing the entry to be read */
vpcola	0:572d27f56fcd	1473	)
vpcola	0:572d27f56fcd	1474	{
vpcola	0:572d27f56fcd	1475	FRESULT res;
vpcola	0:572d27f56fcd	1476	BYTE c, *dir;
vpcola	0:572d27f56fcd	1477	#if _USE_LFN
vpcola	0:572d27f56fcd	1478	BYTE a, ord = 0xFF, sum = 0xFF;
vpcola	0:572d27f56fcd	1479	#endif
vpcola	0:572d27f56fcd	1480
vpcola	0:572d27f56fcd	1481	res = FR_NO_FILE;
vpcola	0:572d27f56fcd	1482	while (dj->sect) {
vpcola	0:572d27f56fcd	1483	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1484	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1485	dir = dj->dir; /* Ptr to the directory entry of current index */
vpcola	0:572d27f56fcd	1486	c = dir[DIR_Name];
vpcola	0:572d27f56fcd	1487	if (c == 0) {
vpcola	0:572d27f56fcd	1488	res = FR_NO_FILE; /* Reached to end of table */
vpcola	0:572d27f56fcd	1489	break;
vpcola	0:572d27f56fcd	1490	}
vpcola	0:572d27f56fcd	1491	#if _USE_LFN /* LFN configuration */
vpcola	0:572d27f56fcd	1492	a = dir[DIR_Attr] & AM_MASK;
vpcola	0:572d27f56fcd	1493	if (c == DDE \|\| (!_FS_RPATH && c == '.') \|\| ((a & AM_VOL) && a != AM_LFN)) { /* An entry without valid data */
vpcola	0:572d27f56fcd	1494	ord = 0xFF;
vpcola	0:572d27f56fcd	1495	} else {
vpcola	0:572d27f56fcd	1496	if (a == AM_LFN) { /* An LFN entry is found */
vpcola	0:572d27f56fcd	1497	if (c & LLE) { /* Is it start of LFN sequence? */
vpcola	0:572d27f56fcd	1498	sum = dir[LDIR_Chksum];
vpcola	0:572d27f56fcd	1499	c &= ~LLE;
vpcola	0:572d27f56fcd	1500	ord = c;
vpcola	0:572d27f56fcd	1501	dj->lfn_idx = dj->index;
vpcola	0:572d27f56fcd	1502	}
vpcola	0:572d27f56fcd	1503	/* Check LFN validity and capture it */
vpcola	0:572d27f56fcd	1504	ord = (c == ord && sum == dir[LDIR_Chksum] && pick_lfn(dj->lfn, dir)) ? ord - 1 : 0xFF;
vpcola	0:572d27f56fcd	1505	} else { /* An SFN entry is found */
vpcola	0:572d27f56fcd	1506	if (ord \|\| sum != sum_sfn(dir)) /* Is there a valid LFN? */
vpcola	0:572d27f56fcd	1507	dj->lfn_idx = 0xFFFF; /* It has no LFN. */
vpcola	0:572d27f56fcd	1508	break;
vpcola	0:572d27f56fcd	1509	}
vpcola	0:572d27f56fcd	1510	}
vpcola	0:572d27f56fcd	1511	#else /* Non LFN configuration */
vpcola	0:572d27f56fcd	1512	if (c != DDE && (_FS_RPATH \|\| c != '.') && !(dir[DIR_Attr] & AM_VOL)) /* Is it a valid entry? */
vpcola	0:572d27f56fcd	1513	break;
vpcola	0:572d27f56fcd	1514	#endif
vpcola	0:572d27f56fcd	1515	res = dir_next(dj, 0); /* Next entry */
vpcola	0:572d27f56fcd	1516	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1517	}
vpcola	0:572d27f56fcd	1518
vpcola	0:572d27f56fcd	1519	if (res != FR_OK) dj->sect = 0;
vpcola	0:572d27f56fcd	1520
vpcola	0:572d27f56fcd	1521	return res;
vpcola	0:572d27f56fcd	1522	}
vpcola	0:572d27f56fcd	1523	#endif
vpcola	0:572d27f56fcd	1524
vpcola	0:572d27f56fcd	1525
vpcola	0:572d27f56fcd	1526
vpcola	0:572d27f56fcd	1527	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1528	/* Register an object to the directory */
vpcola	0:572d27f56fcd	1529	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1530	#if !_FS_READONLY
vpcola	0:572d27f56fcd	1531	static
vpcola	0:572d27f56fcd	1532	FRESULT dir_register ( /* FR_OK:Successful, FR_DENIED:No free entry or too many SFN collision, FR_DISK_ERR:Disk error */
vpcola	0:572d27f56fcd	1533	FATFS_DIR dj / Target directory with object name to be created */
vpcola	0:572d27f56fcd	1534	)
vpcola	0:572d27f56fcd	1535	{
vpcola	0:572d27f56fcd	1536	FRESULT res;
vpcola	0:572d27f56fcd	1537	BYTE c, *dir;
vpcola	0:572d27f56fcd	1538	#if _USE_LFN /* LFN configuration */
vpcola	0:572d27f56fcd	1539	WORD n, ne, is;
vpcola	0:572d27f56fcd	1540	BYTE sn[12], *fn, sum;
vpcola	0:572d27f56fcd	1541	WCHAR *lfn;
vpcola	0:572d27f56fcd	1542
vpcola	0:572d27f56fcd	1543
vpcola	0:572d27f56fcd	1544	fn = dj->fn;
vpcola	0:572d27f56fcd	1545	lfn = dj->lfn;
vpcola	0:572d27f56fcd	1546	mem_cpy(sn, fn, 12);
vpcola	0:572d27f56fcd	1547
vpcola	0:572d27f56fcd	1548	if (_FS_RPATH && (sn[NS] & NS_DOT)) /* Cannot create dot entry */
vpcola	0:572d27f56fcd	1549	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1550
vpcola	0:572d27f56fcd	1551	if (sn[NS] & NS_LOSS) { /* When LFN is out of 8.3 format, generate a numbered name */
vpcola	0:572d27f56fcd	1552	fn[NS] = 0;
vpcola	0:572d27f56fcd	1553	dj->lfn = 0; /* Find only SFN */
vpcola	0:572d27f56fcd	1554	for (n = 1; n < 100; n++) {
vpcola	0:572d27f56fcd	1555	gen_numname(fn, sn, lfn, n); /* Generate a numbered name */
vpcola	0:572d27f56fcd	1556	res = dir_find(dj); /* Check if the name collides with existing SFN */
vpcola	0:572d27f56fcd	1557	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1558	}
vpcola	0:572d27f56fcd	1559	if (n == 100) return FR_DENIED; /* Abort if too many collisions */
vpcola	0:572d27f56fcd	1560	if (res != FR_NO_FILE) return res; /* Abort if the result is other than 'not collided' */
vpcola	0:572d27f56fcd	1561	fn[NS] = sn[NS];
vpcola	0:572d27f56fcd	1562	dj->lfn = lfn;
vpcola	0:572d27f56fcd	1563	}
vpcola	0:572d27f56fcd	1564
vpcola	0:572d27f56fcd	1565	if (sn[NS] & NS_LFN) { /* When LFN is to be created, reserve an SFN + LFN entries. */
vpcola	0:572d27f56fcd	1566	for (ne = 0; lfn[ne]; ne++) ;
vpcola	0:572d27f56fcd	1567	ne = (ne + 25) / 13;
vpcola	0:572d27f56fcd	1568	} else { /* Otherwise reserve only an SFN entry. */
vpcola	0:572d27f56fcd	1569	ne = 1;
vpcola	0:572d27f56fcd	1570	}
vpcola	0:572d27f56fcd	1571
vpcola	0:572d27f56fcd	1572	/* Reserve contiguous entries */
vpcola	0:572d27f56fcd	1573	res = dir_sdi(dj, 0);
vpcola	0:572d27f56fcd	1574	if (res != FR_OK) return res;
vpcola	0:572d27f56fcd	1575	n = is = 0;
vpcola	0:572d27f56fcd	1576	do {
vpcola	0:572d27f56fcd	1577	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1578	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1579	c = dj->dir; / Check the entry status */
vpcola	0:572d27f56fcd	1580	if (c == DDE \|\| c == 0) { /* Is it a blank entry? */
vpcola	0:572d27f56fcd	1581	if (n == 0) is = dj->index; /* First index of the contiguous entry */
vpcola	0:572d27f56fcd	1582	if (++n == ne) break; /* A contiguous entry that required count is found */
vpcola	0:572d27f56fcd	1583	} else {
vpcola	0:572d27f56fcd	1584	n = 0; /* Not a blank entry. Restart to search */
vpcola	0:572d27f56fcd	1585	}
vpcola	0:572d27f56fcd	1586	res = dir_next(dj, 1); /* Next entry with table stretch */
vpcola	0:572d27f56fcd	1587	} while (res == FR_OK);
vpcola	0:572d27f56fcd	1588
vpcola	0:572d27f56fcd	1589	if (res == FR_OK && ne > 1) { /* Initialize LFN entry if needed */
vpcola	0:572d27f56fcd	1590	res = dir_sdi(dj, is);
vpcola	0:572d27f56fcd	1591	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1592	sum = sum_sfn(dj->fn); /* Sum of the SFN tied to the LFN */
vpcola	0:572d27f56fcd	1593	ne--;
vpcola	0:572d27f56fcd	1594	do { /* Store LFN entries in bottom first */
vpcola	0:572d27f56fcd	1595	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1596	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1597	fit_lfn(dj->lfn, dj->dir, (BYTE)ne, sum);
vpcola	0:572d27f56fcd	1598	dj->fs->wflag = 1;
vpcola	0:572d27f56fcd	1599	res = dir_next(dj, 0); /* Next entry */
vpcola	0:572d27f56fcd	1600	} while (res == FR_OK && --ne);
vpcola	0:572d27f56fcd	1601	}
vpcola	0:572d27f56fcd	1602	}
vpcola	0:572d27f56fcd	1603
vpcola	0:572d27f56fcd	1604	#else /* Non LFN configuration */
vpcola	0:572d27f56fcd	1605	res = dir_sdi(dj, 0);
vpcola	0:572d27f56fcd	1606	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1607	do { /* Find a blank entry for the SFN */
vpcola	0:572d27f56fcd	1608	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1609	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1610	c = *dj->dir;
vpcola	0:572d27f56fcd	1611	if (c == DDE \|\| c == 0) break; /* Is it a blank entry? */
vpcola	0:572d27f56fcd	1612	res = dir_next(dj, 1); /* Next entry with table stretch */
vpcola	0:572d27f56fcd	1613	} while (res == FR_OK);
vpcola	0:572d27f56fcd	1614	}
vpcola	0:572d27f56fcd	1615	#endif
vpcola	0:572d27f56fcd	1616
vpcola	0:572d27f56fcd	1617	if (res == FR_OK) { /* Initialize the SFN entry */
vpcola	0:572d27f56fcd	1618	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1619	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1620	dir = dj->dir;
vpcola	0:572d27f56fcd	1621	mem_set(dir, 0, SZ_DIR); /* Clean the entry */
vpcola	0:572d27f56fcd	1622	mem_cpy(dir, dj->fn, 11); /* Put SFN */
vpcola	0:572d27f56fcd	1623	#if _USE_LFN
vpcola	0:572d27f56fcd	1624	dir[DIR_NTres] = (dj->fn+NS) & (NS_BODY \| NS_EXT); / Put NT flag */
vpcola	0:572d27f56fcd	1625	#endif
vpcola	0:572d27f56fcd	1626	dj->fs->wflag = 1;
vpcola	0:572d27f56fcd	1627	}
vpcola	0:572d27f56fcd	1628	}
vpcola	0:572d27f56fcd	1629
vpcola	0:572d27f56fcd	1630	return res;
vpcola	0:572d27f56fcd	1631	}
vpcola	0:572d27f56fcd	1632	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	1633
vpcola	0:572d27f56fcd	1634
vpcola	0:572d27f56fcd	1635
vpcola	0:572d27f56fcd	1636
vpcola	0:572d27f56fcd	1637	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1638	/* Remove an object from the directory */
vpcola	0:572d27f56fcd	1639	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1640	#if !_FS_READONLY && !_FS_MINIMIZE
vpcola	0:572d27f56fcd	1641	static
vpcola	0:572d27f56fcd	1642	FRESULT dir_remove ( /* FR_OK: Successful, FR_DISK_ERR: A disk error */
vpcola	0:572d27f56fcd	1643	FATFS_DIR dj / Directory object pointing the entry to be removed */
vpcola	0:572d27f56fcd	1644	)
vpcola	0:572d27f56fcd	1645	{
vpcola	0:572d27f56fcd	1646	FRESULT res;
vpcola	0:572d27f56fcd	1647	#if _USE_LFN /* LFN configuration */
vpcola	0:572d27f56fcd	1648	WORD i;
vpcola	0:572d27f56fcd	1649
vpcola	0:572d27f56fcd	1650	i = dj->index; /* SFN index */
vpcola	0:572d27f56fcd	1651	res = dir_sdi(dj, (WORD)((dj->lfn_idx == 0xFFFF) ? i : dj->lfn_idx)); /* Goto the SFN or top of the LFN entries */
vpcola	0:572d27f56fcd	1652	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1653	do {
vpcola	0:572d27f56fcd	1654	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1655	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	1656	dj->dir = DDE; / Mark the entry "deleted" */
vpcola	0:572d27f56fcd	1657	dj->fs->wflag = 1;
vpcola	0:572d27f56fcd	1658	if (dj->index >= i) break; /* When reached SFN, all entries of the object has been deleted. */
vpcola	0:572d27f56fcd	1659	res = dir_next(dj, 0); /* Next entry */
vpcola	0:572d27f56fcd	1660	} while (res == FR_OK);
vpcola	0:572d27f56fcd	1661	if (res == FR_NO_FILE) res = FR_INT_ERR;
vpcola	0:572d27f56fcd	1662	}
vpcola	0:572d27f56fcd	1663
vpcola	0:572d27f56fcd	1664	#else /* Non LFN configuration */
vpcola	0:572d27f56fcd	1665	res = dir_sdi(dj, dj->index);
vpcola	0:572d27f56fcd	1666	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1667	res = move_window(dj->fs, dj->sect);
vpcola	0:572d27f56fcd	1668	if (res == FR_OK) {
vpcola	0:572d27f56fcd	1669	dj->dir = DDE; / Mark the entry "deleted" */
vpcola	0:572d27f56fcd	1670	dj->fs->wflag = 1;
vpcola	0:572d27f56fcd	1671	}
vpcola	0:572d27f56fcd	1672	}
vpcola	0:572d27f56fcd	1673	#endif
vpcola	0:572d27f56fcd	1674
vpcola	0:572d27f56fcd	1675	return res;
vpcola	0:572d27f56fcd	1676	}
vpcola	0:572d27f56fcd	1677	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	1678
vpcola	0:572d27f56fcd	1679
vpcola	0:572d27f56fcd	1680
vpcola	0:572d27f56fcd	1681
vpcola	0:572d27f56fcd	1682	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1683	/* Pick a segment and create the object name in directory form */
vpcola	0:572d27f56fcd	1684	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1685
vpcola	0:572d27f56fcd	1686	static
vpcola	0:572d27f56fcd	1687	FRESULT create_name (
vpcola	0:572d27f56fcd	1688	FATFS_DIR dj, / Pointer to the directory object */
vpcola	0:572d27f56fcd	1689	const TCHAR *path / Pointer to pointer to the segment in the path string */
vpcola	0:572d27f56fcd	1690	)
vpcola	0:572d27f56fcd	1691	{
vpcola	0:572d27f56fcd	1692	#ifdef _EXCVT
vpcola	0:572d27f56fcd	1693	static const BYTE excvt[] = _EXCVT; /* Upper conversion table for extended chars */
vpcola	0:572d27f56fcd	1694	#endif
vpcola	0:572d27f56fcd	1695
vpcola	0:572d27f56fcd	1696	#if _USE_LFN /* LFN configuration */
vpcola	0:572d27f56fcd	1697	BYTE b, cf;
vpcola	0:572d27f56fcd	1698	WCHAR w, *lfn;
vpcola	0:572d27f56fcd	1699	UINT i, ni, si, di;
vpcola	0:572d27f56fcd	1700	const TCHAR *p;
vpcola	0:572d27f56fcd	1701
vpcola	0:572d27f56fcd	1702	/* Create LFN in Unicode */
vpcola	0:572d27f56fcd	1703	for (p = path; p == '/' \|\| p == '\\'; p++) ; / Strip duplicated separator */
vpcola	0:572d27f56fcd	1704	lfn = dj->lfn;
vpcola	0:572d27f56fcd	1705	si = di = 0;
vpcola	0:572d27f56fcd	1706	for (;;) {
vpcola	0:572d27f56fcd	1707	w = p[si++]; /* Get a character */
vpcola	0:572d27f56fcd	1708	if (w < ' ' \|\| w == '/' \|\| w == '\\') break; /* Break on end of segment */
vpcola	0:572d27f56fcd	1709	if (di >= _MAX_LFN) /* Reject too long name */
vpcola	0:572d27f56fcd	1710	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1711	#if !_LFN_UNICODE
vpcola	0:572d27f56fcd	1712	w &= 0xFF;
vpcola	0:572d27f56fcd	1713	if (IsDBCS1(w)) { /* Check if it is a DBC 1st byte (always false on SBCS cfg) */
vpcola	0:572d27f56fcd	1714	b = (BYTE)p[si++]; /* Get 2nd byte */
vpcola	0:572d27f56fcd	1715	if (!IsDBCS2(b))
vpcola	0:572d27f56fcd	1716	return FR_INVALID_NAME; /* Reject invalid sequence */
vpcola	0:572d27f56fcd	1717	else
vpcola	0:572d27f56fcd	1718	w = (w << 8) + b; /* Create a DBC */
vpcola	0:572d27f56fcd	1719	}
vpcola	0:572d27f56fcd	1720	w = ff_convert(w, 1); /* Convert ANSI/OEM to Unicode */
vpcola	0:572d27f56fcd	1721	if (!w) return FR_INVALID_NAME; /* Reject invalid code */
vpcola	0:572d27f56fcd	1722	#endif
vpcola	0:572d27f56fcd	1723	if (w < 0x80 && chk_chr("\":<>\?\|\x7F", w)) / Reject illegal chars for LFN */
vpcola	0:572d27f56fcd	1724	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1725	lfn[di++] = w; /* Store the Unicode char */
vpcola	0:572d27f56fcd	1726	}
vpcola	0:572d27f56fcd	1727	path = &p[si]; / Return pointer to the next segment */
vpcola	0:572d27f56fcd	1728	cf = (w < ' ') ? NS_LAST : 0; /* Set last segment flag if end of path */
vpcola	0:572d27f56fcd	1729	#if _FS_RPATH
vpcola	0:572d27f56fcd	1730	if ((di == 1 && lfn[di-1] == '.') \|\| /* Is this a dot entry? */
vpcola	0:572d27f56fcd	1731	(di == 2 && lfn[di-1] == '.' && lfn[di-2] == '.')) {
vpcola	0:572d27f56fcd	1732	lfn[di] = 0;
vpcola	0:572d27f56fcd	1733	for (i = 0; i < 11; i++)
vpcola	0:572d27f56fcd	1734	dj->fn[i] = (i < di) ? '.' : ' ';
vpcola	0:572d27f56fcd	1735	dj->fn[i] = cf \| NS_DOT; /* This is a dot entry */
vpcola	0:572d27f56fcd	1736	return FR_OK;
vpcola	0:572d27f56fcd	1737	}
vpcola	0:572d27f56fcd	1738	#endif
vpcola	0:572d27f56fcd	1739	while (di) { /* Strip trailing spaces and dots */
vpcola	0:572d27f56fcd	1740	w = lfn[di-1];
vpcola	0:572d27f56fcd	1741	if (w != ' ' && w != '.') break;
vpcola	0:572d27f56fcd	1742	di--;
vpcola	0:572d27f56fcd	1743	}
vpcola	0:572d27f56fcd	1744	if (!di) return FR_INVALID_NAME; /* Reject nul string */
vpcola	0:572d27f56fcd	1745
vpcola	0:572d27f56fcd	1746	lfn[di] = 0; /* LFN is created */
vpcola	0:572d27f56fcd	1747
vpcola	0:572d27f56fcd	1748	/* Create SFN in directory form */
vpcola	0:572d27f56fcd	1749	mem_set(dj->fn, ' ', 11);
vpcola	0:572d27f56fcd	1750	for (si = 0; lfn[si] == ' ' \|\| lfn[si] == '.'; si++) ; /* Strip leading spaces and dots */
vpcola	0:572d27f56fcd	1751	if (si) cf \|= NS_LOSS \| NS_LFN;
vpcola	0:572d27f56fcd	1752	while (di && lfn[di - 1] != '.') di--; /* Find extension (di<=si: no extension) */
vpcola	0:572d27f56fcd	1753
vpcola	0:572d27f56fcd	1754	b = i = 0;
vpcola	0:572d27f56fcd	1755	ni = 8;
vpcola	0:572d27f56fcd	1756	for (;;) {
vpcola	0:572d27f56fcd	1757	w = lfn[si++]; /* Get an LFN char */
vpcola	0:572d27f56fcd	1758	if (!w) break; /* Break on end of the LFN */
vpcola	0:572d27f56fcd	1759	if (w == ' ' \|\| (w == '.' && si != di)) { /* Remove spaces and dots */
vpcola	0:572d27f56fcd	1760	cf \|= NS_LOSS \| NS_LFN;
vpcola	0:572d27f56fcd	1761	continue;
vpcola	0:572d27f56fcd	1762	}
vpcola	0:572d27f56fcd	1763
vpcola	0:572d27f56fcd	1764	if (i >= ni \|\| si == di) { /* Extension or end of SFN */
vpcola	0:572d27f56fcd	1765	if (ni == 11) { /* Long extension */
vpcola	0:572d27f56fcd	1766	cf \|= NS_LOSS \| NS_LFN;
vpcola	0:572d27f56fcd	1767	break;
vpcola	0:572d27f56fcd	1768	}
vpcola	0:572d27f56fcd	1769	if (si != di) cf \|= NS_LOSS \| NS_LFN; /* Out of 8.3 format */
vpcola	0:572d27f56fcd	1770	if (si > di) break; /* No extension */
vpcola	0:572d27f56fcd	1771	si = di;
vpcola	0:572d27f56fcd	1772	i = 8;
vpcola	0:572d27f56fcd	1773	ni = 11; /* Enter extension section */
vpcola	0:572d27f56fcd	1774	b <<= 2;
vpcola	0:572d27f56fcd	1775	continue;
vpcola	0:572d27f56fcd	1776	}
vpcola	0:572d27f56fcd	1777
vpcola	0:572d27f56fcd	1778	if (w >= 0x80) { /* Non ASCII char */
vpcola	0:572d27f56fcd	1779	#ifdef _EXCVT
vpcola	0:572d27f56fcd	1780	w = ff_convert(w, 0); /* Unicode -> OEM code */
vpcola	0:572d27f56fcd	1781	if (w) w = excvt[w - 0x80]; /* Convert extended char to upper (SBCS) */
vpcola	0:572d27f56fcd	1782	#else
vpcola	0:572d27f56fcd	1783	w = ff_convert(ff_wtoupper(w), 0); /* Upper converted Unicode -> OEM code */
vpcola	0:572d27f56fcd	1784	#endif
vpcola	0:572d27f56fcd	1785	cf \|= NS_LFN; /* Force create LFN entry */
vpcola	0:572d27f56fcd	1786	}
vpcola	0:572d27f56fcd	1787
vpcola	0:572d27f56fcd	1788	if (_DF1S && w >= 0x100) { /* Double byte char (always false on SBCS cfg) */
vpcola	0:572d27f56fcd	1789	if (i >= ni - 1) {
vpcola	0:572d27f56fcd	1790	cf \|= NS_LOSS \| NS_LFN;
vpcola	0:572d27f56fcd	1791	i = ni;
vpcola	0:572d27f56fcd	1792	continue;
vpcola	0:572d27f56fcd	1793	}
vpcola	0:572d27f56fcd	1794	dj->fn[i++] = (BYTE)(w >> 8);
vpcola	0:572d27f56fcd	1795	} else { /* Single byte char */
vpcola	0:572d27f56fcd	1796	if (!w \|\| chk_chr("+,;=[]", w)) { /* Replace illegal chars for SFN */
vpcola	0:572d27f56fcd	1797	w = '_';
vpcola	0:572d27f56fcd	1798	cf \|= NS_LOSS \| NS_LFN;/* Lossy conversion */
vpcola	0:572d27f56fcd	1799	} else {
vpcola	0:572d27f56fcd	1800	if (IsUpper(w)) { /* ASCII large capital */
vpcola	0:572d27f56fcd	1801	b \|= 2;
vpcola	0:572d27f56fcd	1802	} else {
vpcola	0:572d27f56fcd	1803	if (IsLower(w)) { /* ASCII small capital */
vpcola	0:572d27f56fcd	1804	b \|= 1;
vpcola	0:572d27f56fcd	1805	w -= 0x20;
vpcola	0:572d27f56fcd	1806	}
vpcola	0:572d27f56fcd	1807	}
vpcola	0:572d27f56fcd	1808	}
vpcola	0:572d27f56fcd	1809	}
vpcola	0:572d27f56fcd	1810	dj->fn[i++] = (BYTE)w;
vpcola	0:572d27f56fcd	1811	}
vpcola	0:572d27f56fcd	1812
vpcola	0:572d27f56fcd	1813	if (dj->fn[0] == DDE) dj->fn[0] = NDDE; /* If the first char collides with deleted mark, replace it with 0x05 */
vpcola	0:572d27f56fcd	1814
vpcola	0:572d27f56fcd	1815	if (ni == 8) b <<= 2;
vpcola	0:572d27f56fcd	1816	if ((b & 0x0C) == 0x0C \|\| (b & 0x03) == 0x03) /* Create LFN entry when there are composite capitals */
vpcola	0:572d27f56fcd	1817	cf \|= NS_LFN;
vpcola	0:572d27f56fcd	1818	if (!(cf & NS_LFN)) { /* When LFN is in 8.3 format without extended char, NT flags are created */
vpcola	0:572d27f56fcd	1819	if ((b & 0x03) == 0x01) cf \|= NS_EXT; /* NT flag (Extension has only small capital) */
vpcola	0:572d27f56fcd	1820	if ((b & 0x0C) == 0x04) cf \|= NS_BODY; /* NT flag (Filename has only small capital) */
vpcola	0:572d27f56fcd	1821	}
vpcola	0:572d27f56fcd	1822
vpcola	0:572d27f56fcd	1823	dj->fn[NS] = cf; /* SFN is created */
vpcola	0:572d27f56fcd	1824
vpcola	0:572d27f56fcd	1825	return FR_OK;
vpcola	0:572d27f56fcd	1826
vpcola	0:572d27f56fcd	1827
vpcola	0:572d27f56fcd	1828	#else /* Non-LFN configuration */
vpcola	0:572d27f56fcd	1829	BYTE b, c, d, *sfn;
vpcola	0:572d27f56fcd	1830	UINT ni, si, i;
vpcola	0:572d27f56fcd	1831	const char *p;
vpcola	0:572d27f56fcd	1832
vpcola	0:572d27f56fcd	1833	/* Create file name in directory form */
vpcola	0:572d27f56fcd	1834	for (p = path; p == '/' \|\| p == '\\'; p++) ; / Strip duplicated separator */
vpcola	0:572d27f56fcd	1835	sfn = dj->fn;
vpcola	0:572d27f56fcd	1836	mem_set(sfn, ' ', 11);
vpcola	0:572d27f56fcd	1837	si = i = b = 0;
vpcola	0:572d27f56fcd	1838	ni = 8;
vpcola	0:572d27f56fcd	1839	#if _FS_RPATH
vpcola	0:572d27f56fcd	1840	if (p[si] == '.') { /* Is this a dot entry? */
vpcola	0:572d27f56fcd	1841	for (;;) {
vpcola	0:572d27f56fcd	1842	c = (BYTE)p[si++];
vpcola	0:572d27f56fcd	1843	if (c != '.' \|\| si >= 3) break;
vpcola	0:572d27f56fcd	1844	sfn[i++] = c;
vpcola	0:572d27f56fcd	1845	}
vpcola	0:572d27f56fcd	1846	if (c != '/' && c != '\\' && c > ' ') return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1847	path = &p[si]; / Return pointer to the next segment */
vpcola	0:572d27f56fcd	1848	sfn[NS] = (c <= ' ') ? NS_LAST \| NS_DOT : NS_DOT; /* Set last segment flag if end of path */
vpcola	0:572d27f56fcd	1849	return FR_OK;
vpcola	0:572d27f56fcd	1850	}
vpcola	0:572d27f56fcd	1851	#endif
vpcola	0:572d27f56fcd	1852	for (;;) {
vpcola	0:572d27f56fcd	1853	c = (BYTE)p[si++];
vpcola	0:572d27f56fcd	1854	if (c <= ' ' \|\| c == '/' \|\| c == '\\') break; /* Break on end of segment */
vpcola	0:572d27f56fcd	1855	if (c == '.' \|\| i >= ni) {
vpcola	0:572d27f56fcd	1856	if (ni != 8 \|\| c != '.') return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1857	i = 8;
vpcola	0:572d27f56fcd	1858	ni = 11;
vpcola	0:572d27f56fcd	1859	b <<= 2;
vpcola	0:572d27f56fcd	1860	continue;
vpcola	0:572d27f56fcd	1861	}
vpcola	0:572d27f56fcd	1862	if (c >= 0x80) { /* Extended char? */
vpcola	0:572d27f56fcd	1863	b \|= 3; /* Eliminate NT flag */
vpcola	0:572d27f56fcd	1864	#ifdef _EXCVT
vpcola	0:572d27f56fcd	1865	c = excvt[c - 0x80]; /* Upper conversion (SBCS) */
vpcola	0:572d27f56fcd	1866	#else
vpcola	0:572d27f56fcd	1867	#if !_DF1S /* ASCII only cfg */
vpcola	0:572d27f56fcd	1868	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1869	#endif
vpcola	0:572d27f56fcd	1870	#endif
vpcola	0:572d27f56fcd	1871	}
vpcola	0:572d27f56fcd	1872	if (IsDBCS1(c)) { /* Check if it is a DBC 1st byte (always false on SBCS cfg) */
vpcola	0:572d27f56fcd	1873	d = (BYTE)p[si++]; /* Get 2nd byte */
vpcola	0:572d27f56fcd	1874	if (!IsDBCS2(d) \|\| i >= ni - 1) /* Reject invalid DBC */
vpcola	0:572d27f56fcd	1875	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1876	sfn[i++] = c;
vpcola	0:572d27f56fcd	1877	sfn[i++] = d;
vpcola	0:572d27f56fcd	1878	} else { /* Single byte code */
vpcola	0:572d27f56fcd	1879	if (chk_chr("\"+,:;<=>\?[]\|\x7F", c)) / Reject illegal chrs for SFN */
vpcola	0:572d27f56fcd	1880	return FR_INVALID_NAME;
vpcola	0:572d27f56fcd	1881	if (IsUpper(c)) { /* ASCII large capital? */
vpcola	0:572d27f56fcd	1882	b \|= 2;
vpcola	0:572d27f56fcd	1883	} else {
vpcola	0:572d27f56fcd	1884	if (IsLower(c)) { /* ASCII small capital? */
vpcola	0:572d27f56fcd	1885	b \|= 1;
vpcola	0:572d27f56fcd	1886	c -= 0x20;
vpcola	0:572d27f56fcd	1887	}
vpcola	0:572d27f56fcd	1888	}
vpcola	0:572d27f56fcd	1889	sfn[i++] = c;
vpcola	0:572d27f56fcd	1890	}
vpcola	0:572d27f56fcd	1891	}
vpcola	0:572d27f56fcd	1892	path = &p[si]; / Return pointer to the next segment */
vpcola	0:572d27f56fcd	1893	c = (c <= ' ') ? NS_LAST : 0; /* Set last segment flag if end of path */
vpcola	0:572d27f56fcd	1894
vpcola	0:572d27f56fcd	1895	if (!i) return FR_INVALID_NAME; /* Reject nul string */
vpcola	0:572d27f56fcd	1896	if (sfn[0] == DDE) sfn[0] = NDDE; /* When first char collides with DDE, replace it with 0x05 */
vpcola	0:572d27f56fcd	1897
vpcola	0:572d27f56fcd	1898	if (ni == 8) b <<= 2;
vpcola	0:572d27f56fcd	1899	if ((b & 0x03) == 0x01) c \|= NS_EXT; /* NT flag (Name extension has only small capital) */
vpcola	0:572d27f56fcd	1900	if ((b & 0x0C) == 0x04) c \|= NS_BODY; /* NT flag (Name body has only small capital) */
vpcola	0:572d27f56fcd	1901
vpcola	0:572d27f56fcd	1902	sfn[NS] = c; /* Store NT flag, File name is created */
vpcola	0:572d27f56fcd	1903
vpcola	0:572d27f56fcd	1904	return FR_OK;
vpcola	0:572d27f56fcd	1905	#endif
vpcola	0:572d27f56fcd	1906	}
vpcola	0:572d27f56fcd	1907
vpcola	0:572d27f56fcd	1908
vpcola	0:572d27f56fcd	1909
vpcola	0:572d27f56fcd	1910
vpcola	0:572d27f56fcd	1911	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1912	/* Get file information from directory entry */
vpcola	0:572d27f56fcd	1913	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	1914	#if _FS_MINIMIZE <= 1
vpcola	0:572d27f56fcd	1915	static
vpcola	0:572d27f56fcd	1916	void get_fileinfo ( /* No return code */
vpcola	0:572d27f56fcd	1917	FATFS_DIR dj, / Pointer to the directory object */
vpcola	0:572d27f56fcd	1918	FILINFO fno / Pointer to the file information to be filled */
vpcola	0:572d27f56fcd	1919	)
vpcola	0:572d27f56fcd	1920	{
vpcola	0:572d27f56fcd	1921	UINT i;
vpcola	0:572d27f56fcd	1922	BYTE nt, *dir;
vpcola	0:572d27f56fcd	1923	TCHAR *p, c;
vpcola	0:572d27f56fcd	1924
vpcola	0:572d27f56fcd	1925
vpcola	0:572d27f56fcd	1926	p = fno->fname;
vpcola	0:572d27f56fcd	1927	if (dj->sect) {
vpcola	0:572d27f56fcd	1928	dir = dj->dir;
vpcola	0:572d27f56fcd	1929	nt = dir[DIR_NTres]; /* NT flag */
vpcola	0:572d27f56fcd	1930	for (i = 0; i < 8; i++) { /* Copy name body */
vpcola	0:572d27f56fcd	1931	c = dir[i];
vpcola	0:572d27f56fcd	1932	if (c == ' ') break;
vpcola	0:572d27f56fcd	1933	if (c == NDDE) c = (TCHAR)DDE;
vpcola	0:572d27f56fcd	1934	if (_USE_LFN && (nt & NS_BODY) && IsUpper(c)) c += 0x20;
vpcola	0:572d27f56fcd	1935	#if _LFN_UNICODE
vpcola	0:572d27f56fcd	1936	if (IsDBCS1(c) && i < 7 && IsDBCS2(dir[i+1]))
vpcola	0:572d27f56fcd	1937	c = (c << 8) \| dir[++i];
vpcola	0:572d27f56fcd	1938	c = ff_convert(c, 1);
vpcola	0:572d27f56fcd	1939	if (!c) c = '?';
vpcola	0:572d27f56fcd	1940	#endif
vpcola	0:572d27f56fcd	1941	*p++ = c;
vpcola	0:572d27f56fcd	1942	}
vpcola	0:572d27f56fcd	1943	if (dir[8] != ' ') { /* Copy name extension */
vpcola	0:572d27f56fcd	1944	*p++ = '.';
vpcola	0:572d27f56fcd	1945	for (i = 8; i < 11; i++) {
vpcola	0:572d27f56fcd	1946	c = dir[i];
vpcola	0:572d27f56fcd	1947	if (c == ' ') break;
vpcola	0:572d27f56fcd	1948	if (_USE_LFN && (nt & NS_EXT) && IsUpper(c)) c += 0x20;
vpcola	0:572d27f56fcd	1949	#if _LFN_UNICODE
vpcola	0:572d27f56fcd	1950	if (IsDBCS1(c) && i < 10 && IsDBCS2(dir[i+1]))
vpcola	0:572d27f56fcd	1951	c = (c << 8) \| dir[++i];
vpcola	0:572d27f56fcd	1952	c = ff_convert(c, 1);
vpcola	0:572d27f56fcd	1953	if (!c) c = '?';
vpcola	0:572d27f56fcd	1954	#endif
vpcola	0:572d27f56fcd	1955	*p++ = c;
vpcola	0:572d27f56fcd	1956	}
vpcola	0:572d27f56fcd	1957	}
vpcola	0:572d27f56fcd	1958	fno->fattrib = dir[DIR_Attr]; /* Attribute */
vpcola	0:572d27f56fcd	1959	fno->fsize = LD_DWORD(dir+DIR_FileSize); /* Size */
vpcola	0:572d27f56fcd	1960	fno->fdate = LD_WORD(dir+DIR_WrtDate); /* Date */
vpcola	0:572d27f56fcd	1961	fno->ftime = LD_WORD(dir+DIR_WrtTime); /* Time */
vpcola	0:572d27f56fcd	1962	}
vpcola	0:572d27f56fcd	1963	p = 0; / Terminate SFN str by a \0 */
vpcola	0:572d27f56fcd	1964
vpcola	0:572d27f56fcd	1965	#if _USE_LFN
vpcola	0:572d27f56fcd	1966	if (fno->lfname && fno->lfsize) {
vpcola	0:572d27f56fcd	1967	TCHAR *tp = fno->lfname;
vpcola	0:572d27f56fcd	1968	WCHAR w, *lfn;
vpcola	0:572d27f56fcd	1969
vpcola	0:572d27f56fcd	1970	i = 0;
vpcola	0:572d27f56fcd	1971	if (dj->sect && dj->lfn_idx != 0xFFFF) {/* Get LFN if available */
vpcola	0:572d27f56fcd	1972	lfn = dj->lfn;
vpcola	0:572d27f56fcd	1973	while ((w = lfn++) != 0) { / Get an LFN char */
vpcola	0:572d27f56fcd	1974	#if !_LFN_UNICODE
vpcola	0:572d27f56fcd	1975	w = ff_convert(w, 0); /* Unicode -> OEM conversion */
vpcola	0:572d27f56fcd	1976	if (!w) {
vpcola	0:572d27f56fcd	1977	i = 0; /* Could not convert, no LFN */
vpcola	0:572d27f56fcd	1978	break;
vpcola	0:572d27f56fcd	1979	}
vpcola	0:572d27f56fcd	1980	if (_DF1S && w >= 0x100) /* Put 1st byte if it is a DBC (always false on SBCS cfg) */
vpcola	0:572d27f56fcd	1981	tp[i++] = (TCHAR)(w >> 8);
vpcola	0:572d27f56fcd	1982	#endif
vpcola	0:572d27f56fcd	1983	if (i >= fno->lfsize - 1) {
vpcola	0:572d27f56fcd	1984	i = 0; /* Buffer overflow, no LFN */
vpcola	0:572d27f56fcd	1985	break;
vpcola	0:572d27f56fcd	1986	}
vpcola	0:572d27f56fcd	1987	tp[i++] = (TCHAR)w;
vpcola	0:572d27f56fcd	1988	}
vpcola	0:572d27f56fcd	1989	}
vpcola	0:572d27f56fcd	1990	tp[i] = 0; /* Terminate the LFN str by a \0 */
vpcola	0:572d27f56fcd	1991	}
vpcola	0:572d27f56fcd	1992	#endif
vpcola	0:572d27f56fcd	1993	}
vpcola	0:572d27f56fcd	1994	#endif /* _FS_MINIMIZE <= 1 */
vpcola	0:572d27f56fcd	1995
vpcola	0:572d27f56fcd	1996
vpcola	0:572d27f56fcd	1997
vpcola	0:572d27f56fcd	1998
vpcola	0:572d27f56fcd	1999	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2000	/* Follow a file path */
vpcola	0:572d27f56fcd	2001	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2002
vpcola	0:572d27f56fcd	2003	static
vpcola	0:572d27f56fcd	2004	FRESULT follow_path ( /* FR_OK(0): successful, !=0: error code */
vpcola	0:572d27f56fcd	2005	FATFS_DIR dj, / Directory object to return last directory and found object */
vpcola	0:572d27f56fcd	2006	const TCHAR path / Full-path string to find a file or directory */
vpcola	0:572d27f56fcd	2007	)
vpcola	0:572d27f56fcd	2008	{
vpcola	0:572d27f56fcd	2009	FRESULT res;
vpcola	0:572d27f56fcd	2010	BYTE *dir, ns;
vpcola	0:572d27f56fcd	2011
vpcola	0:572d27f56fcd	2012
vpcola	0:572d27f56fcd	2013	#if _FS_RPATH
vpcola	0:572d27f56fcd	2014	if (path == '/' \|\| path == '\\') { /* There is a heading separator */
vpcola	0:572d27f56fcd	2015	path++;
vpcola	0:572d27f56fcd	2016	dj->sclust = 0; /* Strip it and start from the root dir */
vpcola	0:572d27f56fcd	2017	} else { /* No heading separator */
vpcola	0:572d27f56fcd	2018	dj->sclust = dj->fs->cdir; /* Start from the current dir */
vpcola	0:572d27f56fcd	2019	}
vpcola	0:572d27f56fcd	2020	#else
vpcola	0:572d27f56fcd	2021	if (path == '/' \|\| path == '\\') /* Strip heading separator if exist */
vpcola	0:572d27f56fcd	2022	path++;
vpcola	0:572d27f56fcd	2023	dj->sclust = 0; /* Start from the root dir */
vpcola	0:572d27f56fcd	2024	#endif
vpcola	0:572d27f56fcd	2025
vpcola	0:572d27f56fcd	2026	if ((UINT)path < ' ') { / Nul path means the start directory itself */
vpcola	0:572d27f56fcd	2027	res = dir_sdi(dj, 0);
vpcola	0:572d27f56fcd	2028	dj->dir = 0;
vpcola	0:572d27f56fcd	2029	} else { /* Follow path */
vpcola	0:572d27f56fcd	2030	for (;;) {
vpcola	0:572d27f56fcd	2031	res = create_name(dj, &path); /* Get a segment */
vpcola	0:572d27f56fcd	2032	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2033	res = dir_find(dj); /* Find it */
vpcola	0:572d27f56fcd	2034	ns = *(dj->fn+NS);
vpcola	0:572d27f56fcd	2035	if (res != FR_OK) { /* Failed to find the object */
vpcola	0:572d27f56fcd	2036	if (res != FR_NO_FILE) break; /* Abort if any hard error occurred */
vpcola	0:572d27f56fcd	2037	/* Object not found */
vpcola	0:572d27f56fcd	2038	if (_FS_RPATH && (ns & NS_DOT)) { /* If dot entry is not exit */
vpcola	0:572d27f56fcd	2039	dj->sclust = 0;
vpcola	0:572d27f56fcd	2040	dj->dir = 0; /* It is the root dir */
vpcola	0:572d27f56fcd	2041	res = FR_OK;
vpcola	0:572d27f56fcd	2042	if (!(ns & NS_LAST)) continue;
vpcola	0:572d27f56fcd	2043	} else { /* Could not find the object */
vpcola	0:572d27f56fcd	2044	if (!(ns & NS_LAST)) res = FR_NO_PATH;
vpcola	0:572d27f56fcd	2045	}
vpcola	0:572d27f56fcd	2046	break;
vpcola	0:572d27f56fcd	2047	}
vpcola	0:572d27f56fcd	2048	if (ns & NS_LAST) break; /* Last segment match. Function completed. */
vpcola	0:572d27f56fcd	2049	dir = dj->dir; /* There is next segment. Follow the sub directory */
vpcola	0:572d27f56fcd	2050	if (!(dir[DIR_Attr] & AM_DIR)) { /* Cannot follow because it is a file */
vpcola	0:572d27f56fcd	2051	res = FR_NO_PATH;
vpcola	0:572d27f56fcd	2052	break;
vpcola	0:572d27f56fcd	2053	}
vpcola	0:572d27f56fcd	2054	dj->sclust = ld_clust(dj->fs, dir);
vpcola	0:572d27f56fcd	2055	}
vpcola	0:572d27f56fcd	2056	}
vpcola	0:572d27f56fcd	2057
vpcola	0:572d27f56fcd	2058	return res;
vpcola	0:572d27f56fcd	2059	}
vpcola	0:572d27f56fcd	2060
vpcola	0:572d27f56fcd	2061
vpcola	0:572d27f56fcd	2062
vpcola	0:572d27f56fcd	2063
vpcola	0:572d27f56fcd	2064	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2065	/* Load a sector and check if it is an FAT Volume Boot Record */
vpcola	0:572d27f56fcd	2066	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2067
vpcola	0:572d27f56fcd	2068	static
vpcola	0:572d27f56fcd	2069	BYTE check_fs ( /* 0:FAT-VBR, 1:Any BR but not FAT, 2:Not a BR, 3:Disk error */
vpcola	0:572d27f56fcd	2070	FATFS fs, / File system object */
vpcola	0:572d27f56fcd	2071	DWORD sect /* Sector# (lba) to check if it is an FAT boot record or not */
vpcola	0:572d27f56fcd	2072	)
vpcola	0:572d27f56fcd	2073	{
vpcola	0:572d27f56fcd	2074	if (disk_read(fs->drv, fs->win, sect, 1) != RES_OK) /* Load boot record */
vpcola	0:572d27f56fcd	2075	return 3;
vpcola	0:572d27f56fcd	2076	if (LD_WORD(&fs->win[BS_55AA]) != 0xAA55) /* Check record signature (always placed at offset 510 even if the sector size is >512) */
vpcola	0:572d27f56fcd	2077	return 2;
vpcola	0:572d27f56fcd	2078
vpcola	0:572d27f56fcd	2079	if ((LD_DWORD(&fs->win[BS_FilSysType]) & 0xFFFFFF) == 0x544146) /* Check "FAT" string */
vpcola	0:572d27f56fcd	2080	return 0;
vpcola	0:572d27f56fcd	2081	if ((LD_DWORD(&fs->win[BS_FilSysType32]) & 0xFFFFFF) == 0x544146)
vpcola	0:572d27f56fcd	2082	return 0;
vpcola	0:572d27f56fcd	2083
vpcola	0:572d27f56fcd	2084	return 1;
vpcola	0:572d27f56fcd	2085	}
vpcola	0:572d27f56fcd	2086
vpcola	0:572d27f56fcd	2087
vpcola	0:572d27f56fcd	2088
vpcola	0:572d27f56fcd	2089
vpcola	0:572d27f56fcd	2090	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2091	/* Check if the file system object is valid or not */
vpcola	0:572d27f56fcd	2092	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2093
vpcola	0:572d27f56fcd	2094	static
vpcola	0:572d27f56fcd	2095	FRESULT chk_mounted ( /* FR_OK(0): successful, !=0: any error occurred */
vpcola	0:572d27f56fcd	2096	const TCHAR *path, / Pointer to pointer to the path name (drive number) */
vpcola	0:572d27f56fcd	2097	FATFS *rfs, / Pointer to pointer to the found file system object */
vpcola	0:572d27f56fcd	2098	BYTE wmode /* !=0: Check write protection for write access */
vpcola	0:572d27f56fcd	2099	)
vpcola	0:572d27f56fcd	2100	{
vpcola	0:572d27f56fcd	2101	BYTE fmt, b, pi, *tbl;
vpcola	0:572d27f56fcd	2102	UINT vol;
vpcola	0:572d27f56fcd	2103	DSTATUS stat;
vpcola	0:572d27f56fcd	2104	DWORD bsect, fasize, tsect, sysect, nclst, szbfat;
vpcola	0:572d27f56fcd	2105	WORD nrsv;
vpcola	0:572d27f56fcd	2106	const TCHAR p = path;
vpcola	0:572d27f56fcd	2107	FATFS *fs;
vpcola	0:572d27f56fcd	2108
vpcola	0:572d27f56fcd	2109
vpcola	0:572d27f56fcd	2110	/* Get logical drive number from the path name */
vpcola	0:572d27f56fcd	2111	vol = p[0] - '0'; /* Is there a drive number? */
vpcola	0:572d27f56fcd	2112	if (vol <= 9 && p[1] == ':') { /* Found a drive number, get and strip it */
vpcola	0:572d27f56fcd	2113	p += 2;
vpcola	0:572d27f56fcd	2114	path = p; / Return pointer to the path name */
vpcola	0:572d27f56fcd	2115	} else { /* No drive number is given */
vpcola	0:572d27f56fcd	2116	#if _FS_RPATH
vpcola	0:572d27f56fcd	2117	vol = CurrVol; /* Use current drive */
vpcola	0:572d27f56fcd	2118	#else
vpcola	0:572d27f56fcd	2119	vol = 0; /* Use drive 0 */
vpcola	0:572d27f56fcd	2120	#endif
vpcola	0:572d27f56fcd	2121	}
vpcola	0:572d27f56fcd	2122
vpcola	0:572d27f56fcd	2123	/* Check if the file system object is valid or not */
vpcola	0:572d27f56fcd	2124	*rfs = 0;
vpcola	0:572d27f56fcd	2125	if (vol >= _VOLUMES) /* Is the drive number valid? */
vpcola	0:572d27f56fcd	2126	return FR_INVALID_DRIVE;
vpcola	0:572d27f56fcd	2127	fs = FatFs[vol]; /* Get corresponding file system object */
vpcola	0:572d27f56fcd	2128	if (!fs) return FR_NOT_ENABLED; /* Is the file system object available? */
vpcola	0:572d27f56fcd	2129
vpcola	0:572d27f56fcd	2130	ENTER_FF(fs); /* Lock file system */
vpcola	0:572d27f56fcd	2131
vpcola	0:572d27f56fcd	2132	rfs = fs; / Return pointer to the corresponding file system object */
vpcola	0:572d27f56fcd	2133	if (fs->fs_type) { /* If the volume has been mounted */
vpcola	0:572d27f56fcd	2134	stat = disk_status(fs->drv);
vpcola	0:572d27f56fcd	2135	if (!(stat & STA_NOINIT)) { /* and the physical drive is kept initialized (has not been changed), */
vpcola	0:572d27f56fcd	2136	if (!_FS_READONLY && wmode && (stat & STA_PROTECT)) /* Check write protection if needed */
vpcola	0:572d27f56fcd	2137	return FR_WRITE_PROTECTED;
vpcola	0:572d27f56fcd	2138	return FR_OK; /* The file system object is valid */
vpcola	0:572d27f56fcd	2139	}
vpcola	0:572d27f56fcd	2140	}
vpcola	0:572d27f56fcd	2141
vpcola	0:572d27f56fcd	2142	/* The file system object is not valid. */
vpcola	0:572d27f56fcd	2143	/* Following code attempts to mount the volume. (analyze BPB and initialize the fs object) */
vpcola	0:572d27f56fcd	2144
vpcola	0:572d27f56fcd	2145	fs->fs_type = 0; /* Clear the file system object */
vpcola	0:572d27f56fcd	2146	fs->drv = LD2PD(vol); /* Bind the logical drive and a physical drive */
vpcola	0:572d27f56fcd	2147	stat = disk_initialize(fs->drv); /* Initialize the physical drive */
vpcola	0:572d27f56fcd	2148	if (stat & STA_NOINIT) /* Check if the initialization succeeded */
vpcola	0:572d27f56fcd	2149	return FR_NOT_READY; /* Failed to initialize due to no medium or hard error */
vpcola	0:572d27f56fcd	2150	if (!_FS_READONLY && wmode && (stat & STA_PROTECT)) /* Check disk write protection if needed */
vpcola	0:572d27f56fcd	2151	return FR_WRITE_PROTECTED;
vpcola	0:572d27f56fcd	2152	#if _MAX_SS != 512 /* Get disk sector size (variable sector size cfg only) */
vpcola	0:572d27f56fcd	2153	if (disk_ioctl(fs->drv, GET_SECTOR_SIZE, &fs->ssize) != RES_OK)
vpcola	0:572d27f56fcd	2154	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	2155	#endif
vpcola	0:572d27f56fcd	2156	/* Search FAT partition on the drive. Supports only generic partitions, FDISK and SFD. */
vpcola	0:572d27f56fcd	2157	fmt = check_fs(fs, bsect = 0); /* Load sector 0 and check if it is an FAT-VBR (in SFD) */
vpcola	0:572d27f56fcd	2158	if (LD2PT(vol) && !fmt) fmt = 1; /* Force non-SFD if the volume is forced partition */
vpcola	0:572d27f56fcd	2159	if (fmt == 1) { /* Not an FAT-VBR, the physical drive can be partitioned */
vpcola	0:572d27f56fcd	2160	/* Check the partition listed in the partition table */
vpcola	0:572d27f56fcd	2161	pi = LD2PT(vol);
vpcola	0:572d27f56fcd	2162	if (pi) pi--;
vpcola	0:572d27f56fcd	2163	tbl = &fs->win[MBR_Table + pi * SZ_PTE];/* Partition table */
vpcola	0:572d27f56fcd	2164	if (tbl[4]) { /* Is the partition existing? */
vpcola	0:572d27f56fcd	2165	bsect = LD_DWORD(&tbl[8]); /* Partition offset in LBA */
vpcola	0:572d27f56fcd	2166	fmt = check_fs(fs, bsect); /* Check the partition */
vpcola	0:572d27f56fcd	2167	}
vpcola	0:572d27f56fcd	2168	}
vpcola	0:572d27f56fcd	2169	if (fmt == 3) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	2170	if (fmt) return FR_NO_FILESYSTEM; /* No FAT volume is found */
vpcola	0:572d27f56fcd	2171
vpcola	0:572d27f56fcd	2172	/* An FAT volume is found. Following code initializes the file system object */
vpcola	0:572d27f56fcd	2173
vpcola	0:572d27f56fcd	2174	if (LD_WORD(fs->win+BPB_BytsPerSec) != SS(fs)) /* (BPB_BytsPerSec must be equal to the physical sector size) */
vpcola	0:572d27f56fcd	2175	return FR_NO_FILESYSTEM;
vpcola	0:572d27f56fcd	2176
vpcola	0:572d27f56fcd	2177	fasize = LD_WORD(fs->win+BPB_FATSz16); /* Number of sectors per FAT */
vpcola	0:572d27f56fcd	2178	if (!fasize) fasize = LD_DWORD(fs->win+BPB_FATSz32);
vpcola	0:572d27f56fcd	2179	fs->fsize = fasize;
vpcola	0:572d27f56fcd	2180
vpcola	0:572d27f56fcd	2181	fs->n_fats = b = fs->win[BPB_NumFATs]; /* Number of FAT copies */
vpcola	0:572d27f56fcd	2182	if (b != 1 && b != 2) return FR_NO_FILESYSTEM; /* (Must be 1 or 2) */
vpcola	0:572d27f56fcd	2183	fasize = b; / Number of sectors for FAT area */
vpcola	0:572d27f56fcd	2184
vpcola	0:572d27f56fcd	2185	fs->csize = b = fs->win[BPB_SecPerClus]; /* Number of sectors per cluster */
vpcola	0:572d27f56fcd	2186	if (!b \|\| (b & (b - 1))) return FR_NO_FILESYSTEM; /* (Must be power of 2) */
vpcola	0:572d27f56fcd	2187
vpcola	0:572d27f56fcd	2188	fs->n_rootdir = LD_WORD(fs->win+BPB_RootEntCnt); /* Number of root directory entries */
vpcola	0:572d27f56fcd	2189	if (fs->n_rootdir % (SS(fs) / SZ_DIR)) return FR_NO_FILESYSTEM; /* (BPB_RootEntCnt must be sector aligned) */
vpcola	0:572d27f56fcd	2190
vpcola	0:572d27f56fcd	2191	tsect = LD_WORD(fs->win+BPB_TotSec16); /* Number of sectors on the volume */
vpcola	0:572d27f56fcd	2192	if (!tsect) tsect = LD_DWORD(fs->win+BPB_TotSec32);
vpcola	0:572d27f56fcd	2193
vpcola	0:572d27f56fcd	2194	nrsv = LD_WORD(fs->win+BPB_RsvdSecCnt); /* Number of reserved sectors */
vpcola	0:572d27f56fcd	2195	if (!nrsv) return FR_NO_FILESYSTEM; /* (BPB_RsvdSecCnt must not be 0) */
vpcola	0:572d27f56fcd	2196
vpcola	0:572d27f56fcd	2197	/* Determine the FAT sub type */
vpcola	0:572d27f56fcd	2198	sysect = nrsv + fasize + fs->n_rootdir / (SS(fs) / SZ_DIR); /* RSV+FAT+DIR */
vpcola	0:572d27f56fcd	2199	if (tsect < sysect) return FR_NO_FILESYSTEM; /* (Invalid volume size) */
vpcola	0:572d27f56fcd	2200	nclst = (tsect - sysect) / fs->csize; /* Number of clusters */
vpcola	0:572d27f56fcd	2201	if (!nclst) return FR_NO_FILESYSTEM; /* (Invalid volume size) */
vpcola	0:572d27f56fcd	2202	fmt = FS_FAT12;
vpcola	0:572d27f56fcd	2203	if (nclst >= MIN_FAT16) fmt = FS_FAT16;
vpcola	0:572d27f56fcd	2204	if (nclst >= MIN_FAT32) fmt = FS_FAT32;
vpcola	0:572d27f56fcd	2205
vpcola	0:572d27f56fcd	2206	/* Boundaries and Limits */
vpcola	0:572d27f56fcd	2207	fs->n_fatent = nclst + 2; /* Number of FAT entries */
vpcola	0:572d27f56fcd	2208	fs->database = bsect + sysect; /* Data start sector */
vpcola	0:572d27f56fcd	2209	fs->fatbase = bsect + nrsv; /* FAT start sector */
vpcola	0:572d27f56fcd	2210	if (fmt == FS_FAT32) {
vpcola	0:572d27f56fcd	2211	if (fs->n_rootdir) return FR_NO_FILESYSTEM; /* (BPB_RootEntCnt must be 0) */
vpcola	0:572d27f56fcd	2212	fs->dirbase = LD_DWORD(fs->win+BPB_RootClus); /* Root directory start cluster */
vpcola	0:572d27f56fcd	2213	szbfat = fs->n_fatent * 4; /* (Required FAT size) */
vpcola	0:572d27f56fcd	2214	} else {
vpcola	0:572d27f56fcd	2215	if (!fs->n_rootdir) return FR_NO_FILESYSTEM; /* (BPB_RootEntCnt must not be 0) */
vpcola	0:572d27f56fcd	2216	fs->dirbase = fs->fatbase + fasize; /* Root directory start sector */
vpcola	0:572d27f56fcd	2217	szbfat = (fmt == FS_FAT16) ? /* (Required FAT size) */
vpcola	0:572d27f56fcd	2218	fs->n_fatent * 2 : fs->n_fatent * 3 / 2 + (fs->n_fatent & 1);
vpcola	0:572d27f56fcd	2219	}
vpcola	0:572d27f56fcd	2220	if (fs->fsize < (szbfat + (SS(fs) - 1)) / SS(fs)) /* (BPB_FATSz must not be less than required) */
vpcola	0:572d27f56fcd	2221	return FR_NO_FILESYSTEM;
vpcola	0:572d27f56fcd	2222
vpcola	0:572d27f56fcd	2223	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2224	/* Initialize cluster allocation information */
vpcola	0:572d27f56fcd	2225	fs->free_clust = 0xFFFFFFFF;
vpcola	0:572d27f56fcd	2226	fs->last_clust = 0;
vpcola	0:572d27f56fcd	2227
vpcola	0:572d27f56fcd	2228	/* Get fsinfo if available */
vpcola	0:572d27f56fcd	2229	if (fmt == FS_FAT32) {
vpcola	0:572d27f56fcd	2230	fs->fsi_flag = 0;
vpcola	0:572d27f56fcd	2231	fs->fsi_sector = bsect + LD_WORD(fs->win+BPB_FSInfo);
vpcola	0:572d27f56fcd	2232	if (disk_read(fs->drv, fs->win, fs->fsi_sector, 1) == RES_OK &&
vpcola	0:572d27f56fcd	2233	LD_WORD(fs->win+BS_55AA) == 0xAA55 &&
vpcola	0:572d27f56fcd	2234	LD_DWORD(fs->win+FSI_LeadSig) == 0x41615252 &&
vpcola	0:572d27f56fcd	2235	LD_DWORD(fs->win+FSI_StrucSig) == 0x61417272) {
vpcola	0:572d27f56fcd	2236	fs->last_clust = LD_DWORD(fs->win+FSI_Nxt_Free);
vpcola	0:572d27f56fcd	2237	fs->free_clust = LD_DWORD(fs->win+FSI_Free_Count);
vpcola	0:572d27f56fcd	2238	}
vpcola	0:572d27f56fcd	2239	}
vpcola	0:572d27f56fcd	2240	#endif
vpcola	0:572d27f56fcd	2241	fs->fs_type = fmt; /* FAT sub-type */
vpcola	0:572d27f56fcd	2242	fs->id = ++Fsid; /* File system mount ID */
vpcola	0:572d27f56fcd	2243	fs->winsect = 0; /* Invalidate sector cache */
vpcola	0:572d27f56fcd	2244	fs->wflag = 0;
vpcola	0:572d27f56fcd	2245	#if _FS_RPATH
vpcola	0:572d27f56fcd	2246	fs->cdir = 0; /* Current directory (root dir) */
vpcola	0:572d27f56fcd	2247	#endif
vpcola	0:572d27f56fcd	2248	#if _FS_LOCK /* Clear file lock semaphores */
vpcola	0:572d27f56fcd	2249	clear_lock(fs);
vpcola	0:572d27f56fcd	2250	#endif
vpcola	0:572d27f56fcd	2251
vpcola	0:572d27f56fcd	2252	return FR_OK;
vpcola	0:572d27f56fcd	2253	}
vpcola	0:572d27f56fcd	2254
vpcola	0:572d27f56fcd	2255
vpcola	0:572d27f56fcd	2256
vpcola	0:572d27f56fcd	2257
vpcola	0:572d27f56fcd	2258	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2259	/* Check if the file/dir object is valid or not */
vpcola	0:572d27f56fcd	2260	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2261
vpcola	0:572d27f56fcd	2262	static
vpcola	0:572d27f56fcd	2263	FRESULT validate ( /* FR_OK(0): The object is valid, !=0: Invalid */
vpcola	0:572d27f56fcd	2264	void* obj /* Pointer to the object FIL/DIR to check validity */
vpcola	0:572d27f56fcd	2265	)
vpcola	0:572d27f56fcd	2266	{
vpcola	0:572d27f56fcd	2267	FIL *fil;
vpcola	0:572d27f56fcd	2268
vpcola	0:572d27f56fcd	2269
vpcola	0:572d27f56fcd	2270	fil = (FIL)obj; / Assuming offset of fs and id in the FIL/DIR is identical */
vpcola	0:572d27f56fcd	2271	if (!fil->fs \|\| !fil->fs->fs_type \|\| fil->fs->id != fil->id)
vpcola	0:572d27f56fcd	2272	return FR_INVALID_OBJECT;
vpcola	0:572d27f56fcd	2273
vpcola	0:572d27f56fcd	2274	ENTER_FF(fil->fs); /* Lock file system */
vpcola	0:572d27f56fcd	2275
vpcola	0:572d27f56fcd	2276	if (disk_status(fil->fs->drv) & STA_NOINIT)
vpcola	0:572d27f56fcd	2277	return FR_NOT_READY;
vpcola	0:572d27f56fcd	2278
vpcola	0:572d27f56fcd	2279	return FR_OK;
vpcola	0:572d27f56fcd	2280	}
vpcola	0:572d27f56fcd	2281
vpcola	0:572d27f56fcd	2282
vpcola	0:572d27f56fcd	2283
vpcola	0:572d27f56fcd	2284
vpcola	0:572d27f56fcd	2285	/*--------------------------------------------------------------------------
vpcola	0:572d27f56fcd	2286
vpcola	0:572d27f56fcd	2287	Public Functions
vpcola	0:572d27f56fcd	2288
vpcola	0:572d27f56fcd	2289	--------------------------------------------------------------------------*/
vpcola	0:572d27f56fcd	2290
vpcola	0:572d27f56fcd	2291
vpcola	0:572d27f56fcd	2292
vpcola	0:572d27f56fcd	2293	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2294	/* Mount/Unmount a Logical Drive */
vpcola	0:572d27f56fcd	2295	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2296
vpcola	0:572d27f56fcd	2297	FRESULT f_mount (
vpcola	0:572d27f56fcd	2298	BYTE vol, /* Logical drive number to be mounted/unmounted */
vpcola	0:572d27f56fcd	2299	FATFS fs / Pointer to new file system object (NULL for unmount)*/
vpcola	0:572d27f56fcd	2300	)
vpcola	0:572d27f56fcd	2301	{
vpcola	0:572d27f56fcd	2302	FATFS *rfs;
vpcola	0:572d27f56fcd	2303
vpcola	0:572d27f56fcd	2304
vpcola	0:572d27f56fcd	2305	if (vol >= _VOLUMES) /* Check if the drive number is valid */
vpcola	0:572d27f56fcd	2306	return FR_INVALID_DRIVE;
vpcola	0:572d27f56fcd	2307	rfs = FatFs[vol]; /* Get current fs object */
vpcola	0:572d27f56fcd	2308
vpcola	0:572d27f56fcd	2309	if (rfs) {
vpcola	0:572d27f56fcd	2310	#if _FS_LOCK
vpcola	0:572d27f56fcd	2311	clear_lock(rfs);
vpcola	0:572d27f56fcd	2312	#endif
vpcola	0:572d27f56fcd	2313	#if _FS_REENTRANT /* Discard sync object of the current volume */
vpcola	0:572d27f56fcd	2314	if (!ff_del_syncobj(rfs->sobj)) return FR_INT_ERR;
vpcola	0:572d27f56fcd	2315	#endif
vpcola	0:572d27f56fcd	2316	rfs->fs_type = 0; /* Clear old fs object */
vpcola	0:572d27f56fcd	2317	}
vpcola	0:572d27f56fcd	2318
vpcola	0:572d27f56fcd	2319	if (fs) {
vpcola	0:572d27f56fcd	2320	fs->fs_type = 0; /* Clear new fs object */
vpcola	0:572d27f56fcd	2321	#if _FS_REENTRANT /* Create sync object for the new volume */
vpcola	0:572d27f56fcd	2322	if (!ff_cre_syncobj(vol, &fs->sobj)) return FR_INT_ERR;
vpcola	0:572d27f56fcd	2323	#endif
vpcola	0:572d27f56fcd	2324	}
vpcola	0:572d27f56fcd	2325	FatFs[vol] = fs; /* Register new fs object */
vpcola	0:572d27f56fcd	2326
vpcola	0:572d27f56fcd	2327	return FR_OK;
vpcola	0:572d27f56fcd	2328	}
vpcola	0:572d27f56fcd	2329
vpcola	0:572d27f56fcd	2330
vpcola	0:572d27f56fcd	2331
vpcola	0:572d27f56fcd	2332
vpcola	0:572d27f56fcd	2333	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2334	/* Open or Create a File */
vpcola	0:572d27f56fcd	2335	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2336
vpcola	0:572d27f56fcd	2337	FRESULT f_open (
vpcola	0:572d27f56fcd	2338	FIL fp, / Pointer to the blank file object */
vpcola	0:572d27f56fcd	2339	const TCHAR path, / Pointer to the file name */
vpcola	0:572d27f56fcd	2340	BYTE mode /* Access mode and file open mode flags */
vpcola	0:572d27f56fcd	2341	)
vpcola	0:572d27f56fcd	2342	{
vpcola	0:572d27f56fcd	2343	FRESULT res;
vpcola	0:572d27f56fcd	2344	FATFS_DIR dj;
vpcola	0:572d27f56fcd	2345	BYTE *dir;
vpcola	0:572d27f56fcd	2346	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	2347
vpcola	0:572d27f56fcd	2348
vpcola	0:572d27f56fcd	2349	if (!fp) return FR_INVALID_OBJECT;
vpcola	0:572d27f56fcd	2350	fp->fs = 0; /* Clear file object */
vpcola	0:572d27f56fcd	2351
vpcola	0:572d27f56fcd	2352	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2353	mode &= FA_READ \| FA_WRITE \| FA_CREATE_ALWAYS \| FA_OPEN_ALWAYS \| FA_CREATE_NEW;
vpcola	0:572d27f56fcd	2354	res = chk_mounted(&path, &dj.fs, (BYTE)(mode & ~FA_READ));
vpcola	0:572d27f56fcd	2355	#else
vpcola	0:572d27f56fcd	2356	mode &= FA_READ;
vpcola	0:572d27f56fcd	2357	res = chk_mounted(&path, &dj.fs, 0);
vpcola	0:572d27f56fcd	2358	#endif
vpcola	0:572d27f56fcd	2359	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2360	INIT_BUF(dj);
vpcola	0:572d27f56fcd	2361	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	2362	dir = dj.dir;
vpcola	0:572d27f56fcd	2363	#if !_FS_READONLY /* R/W configuration */
vpcola	0:572d27f56fcd	2364	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2365	if (!dir) /* Current dir itself */
vpcola	0:572d27f56fcd	2366	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	2367	#if _FS_LOCK
vpcola	0:572d27f56fcd	2368	else
vpcola	0:572d27f56fcd	2369	res = chk_lock(&dj, (mode & ~FA_READ) ? 1 : 0);
vpcola	0:572d27f56fcd	2370	#endif
vpcola	0:572d27f56fcd	2371	}
vpcola	0:572d27f56fcd	2372	/* Create or Open a file */
vpcola	0:572d27f56fcd	2373	if (mode & (FA_CREATE_ALWAYS \| FA_OPEN_ALWAYS \| FA_CREATE_NEW)) {
vpcola	0:572d27f56fcd	2374	DWORD dw, cl;
vpcola	0:572d27f56fcd	2375
vpcola	0:572d27f56fcd	2376	if (res != FR_OK) { /* No file, create new */
vpcola	0:572d27f56fcd	2377	if (res == FR_NO_FILE) /* There is no file to open, create a new entry */
vpcola	0:572d27f56fcd	2378	#if _FS_LOCK
vpcola	0:572d27f56fcd	2379	res = enq_lock() ? dir_register(&dj) : FR_TOO_MANY_OPEN_FILES;
vpcola	0:572d27f56fcd	2380	#else
vpcola	0:572d27f56fcd	2381	res = dir_register(&dj);
vpcola	0:572d27f56fcd	2382	#endif
vpcola	0:572d27f56fcd	2383	mode \|= FA_CREATE_ALWAYS; /* File is created */
vpcola	0:572d27f56fcd	2384	dir = dj.dir; /* New entry */
vpcola	0:572d27f56fcd	2385	} else { /* Any object is already existing */
vpcola	0:572d27f56fcd	2386	if (dir[DIR_Attr] & (AM_RDO \| AM_DIR)) { /* Cannot overwrite it (R/O or DIR) */
vpcola	0:572d27f56fcd	2387	res = FR_DENIED;
vpcola	0:572d27f56fcd	2388	} else {
vpcola	0:572d27f56fcd	2389	if (mode & FA_CREATE_NEW) /* Cannot create as new file */
vpcola	0:572d27f56fcd	2390	res = FR_EXIST;
vpcola	0:572d27f56fcd	2391	}
vpcola	0:572d27f56fcd	2392	}
vpcola	0:572d27f56fcd	2393	if (res == FR_OK && (mode & FA_CREATE_ALWAYS)) { /* Truncate it if overwrite mode */
vpcola	0:572d27f56fcd	2394	dw = get_fattime(); /* Created time */
vpcola	0:572d27f56fcd	2395	ST_DWORD(dir+DIR_CrtTime, dw);
vpcola	0:572d27f56fcd	2396	dir[DIR_Attr] = 0; /* Reset attribute */
vpcola	0:572d27f56fcd	2397	ST_DWORD(dir+DIR_FileSize, 0); /* size = 0 */
vpcola	0:572d27f56fcd	2398	cl = ld_clust(dj.fs, dir); /* Get start cluster */
vpcola	0:572d27f56fcd	2399	st_clust(dir, 0); /* cluster = 0 */
vpcola	0:572d27f56fcd	2400	dj.fs->wflag = 1;
vpcola	0:572d27f56fcd	2401	if (cl) { /* Remove the cluster chain if exist */
vpcola	0:572d27f56fcd	2402	dw = dj.fs->winsect;
vpcola	0:572d27f56fcd	2403	res = remove_chain(dj.fs, cl);
vpcola	0:572d27f56fcd	2404	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2405	dj.fs->last_clust = cl - 1; /* Reuse the cluster hole */
vpcola	0:572d27f56fcd	2406	res = move_window(dj.fs, dw);
vpcola	0:572d27f56fcd	2407	}
vpcola	0:572d27f56fcd	2408	}
vpcola	0:572d27f56fcd	2409	}
vpcola	0:572d27f56fcd	2410	} else { /* Open an existing file */
vpcola	0:572d27f56fcd	2411	if (res == FR_OK) { /* Follow succeeded */
vpcola	0:572d27f56fcd	2412	if (dir[DIR_Attr] & AM_DIR) { /* It is a directory */
vpcola	0:572d27f56fcd	2413	res = FR_NO_FILE;
vpcola	0:572d27f56fcd	2414	} else {
vpcola	0:572d27f56fcd	2415	if ((mode & FA_WRITE) && (dir[DIR_Attr] & AM_RDO)) /* R/O violation */
vpcola	0:572d27f56fcd	2416	res = FR_DENIED;
vpcola	0:572d27f56fcd	2417	}
vpcola	0:572d27f56fcd	2418	}
vpcola	0:572d27f56fcd	2419	}
vpcola	0:572d27f56fcd	2420	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2421	if (mode & FA_CREATE_ALWAYS) /* Set file change flag if created or overwritten */
vpcola	0:572d27f56fcd	2422	mode \|= FA__WRITTEN;
vpcola	0:572d27f56fcd	2423	fp->dir_sect = dj.fs->winsect; /* Pointer to the directory entry */
vpcola	0:572d27f56fcd	2424	fp->dir_ptr = dir;
vpcola	0:572d27f56fcd	2425	#if _FS_LOCK
vpcola	0:572d27f56fcd	2426	fp->lockid = inc_lock(&dj, (mode & ~FA_READ) ? 1 : 0);
vpcola	0:572d27f56fcd	2427	if (!fp->lockid) res = FR_INT_ERR;
vpcola	0:572d27f56fcd	2428	#endif
vpcola	0:572d27f56fcd	2429	}
vpcola	0:572d27f56fcd	2430
vpcola	0:572d27f56fcd	2431	#else /* R/O configuration */
vpcola	0:572d27f56fcd	2432	if (res == FR_OK) { /* Follow succeeded */
vpcola	0:572d27f56fcd	2433	dir = dj.dir;
vpcola	0:572d27f56fcd	2434	if (!dir) { /* Current dir itself */
vpcola	0:572d27f56fcd	2435	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	2436	} else {
vpcola	0:572d27f56fcd	2437	if (dir[DIR_Attr] & AM_DIR) /* It is a directory */
vpcola	0:572d27f56fcd	2438	res = FR_NO_FILE;
vpcola	0:572d27f56fcd	2439	}
vpcola	0:572d27f56fcd	2440	}
vpcola	0:572d27f56fcd	2441	#endif
vpcola	0:572d27f56fcd	2442	FREE_BUF();
vpcola	0:572d27f56fcd	2443
vpcola	0:572d27f56fcd	2444	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2445	fp->flag = mode; /* File access mode */
vpcola	0:572d27f56fcd	2446	fp->sclust = ld_clust(dj.fs, dir); /* File start cluster */
vpcola	0:572d27f56fcd	2447	fp->fsize = LD_DWORD(dir+DIR_FileSize); /* File size */
vpcola	0:572d27f56fcd	2448	fp->fptr = 0; /* File pointer */
vpcola	0:572d27f56fcd	2449	fp->dsect = 0;
vpcola	0:572d27f56fcd	2450	#if _USE_FASTSEEK
vpcola	0:572d27f56fcd	2451	fp->cltbl = 0; /* Normal seek mode */
vpcola	0:572d27f56fcd	2452	#endif
vpcola	0:572d27f56fcd	2453	fp->fs = dj.fs;
vpcola	0:572d27f56fcd	2454	fp->id = dj.fs->id; /* Validate file object */
vpcola	0:572d27f56fcd	2455	}
vpcola	0:572d27f56fcd	2456	}
vpcola	0:572d27f56fcd	2457
vpcola	0:572d27f56fcd	2458	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	2459	}
vpcola	0:572d27f56fcd	2460
vpcola	0:572d27f56fcd	2461
vpcola	0:572d27f56fcd	2462
vpcola	0:572d27f56fcd	2463
vpcola	0:572d27f56fcd	2464	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2465	/* Read File */
vpcola	0:572d27f56fcd	2466	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2467
vpcola	0:572d27f56fcd	2468	FRESULT f_read (
vpcola	0:572d27f56fcd	2469	FIL fp, / Pointer to the file object */
vpcola	0:572d27f56fcd	2470	void buff, / Pointer to data buffer */
vpcola	0:572d27f56fcd	2471	UINT btr, /* Number of bytes to read */
vpcola	0:572d27f56fcd	2472	UINT br / Pointer to number of bytes read */
vpcola	0:572d27f56fcd	2473	)
vpcola	0:572d27f56fcd	2474	{
vpcola	0:572d27f56fcd	2475	FRESULT res;
vpcola	0:572d27f56fcd	2476	DWORD clst, sect, remain;
vpcola	0:572d27f56fcd	2477	UINT rcnt, cc;
vpcola	0:572d27f56fcd	2478	BYTE csect, rbuff = (BYTE )buff;
vpcola	0:572d27f56fcd	2479
vpcola	0:572d27f56fcd	2480
vpcola	0:572d27f56fcd	2481	br = 0; / Clear read byte counter */
vpcola	0:572d27f56fcd	2482
vpcola	0:572d27f56fcd	2483	res = validate(fp); /* Check validity */
vpcola	0:572d27f56fcd	2484	if (res != FR_OK) LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	2485	if (fp->flag & FA__ERROR) /* Aborted file? */
vpcola	0:572d27f56fcd	2486	LEAVE_FF(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2487	if (!(fp->flag & FA_READ)) /* Check access mode */
vpcola	0:572d27f56fcd	2488	LEAVE_FF(fp->fs, FR_DENIED);
vpcola	0:572d27f56fcd	2489	remain = fp->fsize - fp->fptr;
vpcola	0:572d27f56fcd	2490	if (btr > remain) btr = (UINT)remain; /* Truncate btr by remaining bytes */
vpcola	0:572d27f56fcd	2491
vpcola	0:572d27f56fcd	2492	for ( ; btr; /* Repeat until all data read */
vpcola	0:572d27f56fcd	2493	rbuff += rcnt, fp->fptr += rcnt, *br += rcnt, btr -= rcnt) {
vpcola	0:572d27f56fcd	2494	if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
vpcola	0:572d27f56fcd	2495	csect = (BYTE)(fp->fptr / SS(fp->fs) & (fp->fs->csize - 1)); /* Sector offset in the cluster */
vpcola	0:572d27f56fcd	2496	if (!csect) { /* On the cluster boundary? */
vpcola	0:572d27f56fcd	2497	if (fp->fptr == 0) { /* On the top of the file? */
vpcola	0:572d27f56fcd	2498	clst = fp->sclust; /* Follow from the origin */
vpcola	0:572d27f56fcd	2499	} else { /* Middle or end of the file */
vpcola	0:572d27f56fcd	2500	#if _USE_FASTSEEK
vpcola	0:572d27f56fcd	2501	if (fp->cltbl)
vpcola	0:572d27f56fcd	2502	clst = clmt_clust(fp, fp->fptr); /* Get cluster# from the CLMT */
vpcola	0:572d27f56fcd	2503	else
vpcola	0:572d27f56fcd	2504	#endif
vpcola	0:572d27f56fcd	2505	clst = get_fat(fp->fs, fp->clust); /* Follow cluster chain on the FAT */
vpcola	0:572d27f56fcd	2506	}
vpcola	0:572d27f56fcd	2507	if (clst < 2) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2508	if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2509	fp->clust = clst; /* Update current cluster */
vpcola	0:572d27f56fcd	2510	}
vpcola	0:572d27f56fcd	2511	sect = clust2sect(fp->fs, fp->clust); /* Get current sector */
vpcola	0:572d27f56fcd	2512	if (!sect) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2513	sect += csect;
vpcola	0:572d27f56fcd	2514	cc = btr / SS(fp->fs); /* When remaining bytes >= sector size, */
vpcola	0:572d27f56fcd	2515	if (cc) { /* Read maximum contiguous sectors directly */
vpcola	0:572d27f56fcd	2516	if (csect + cc > fp->fs->csize) /* Clip at cluster boundary */
vpcola	0:572d27f56fcd	2517	cc = fp->fs->csize - csect;
vpcola	0:572d27f56fcd	2518	if (disk_read(fp->fs->drv, rbuff, sect, (BYTE)cc) != RES_OK)
vpcola	0:572d27f56fcd	2519	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2520	#if !_FS_READONLY && _FS_MINIMIZE <= 2 /* Replace one of the read sectors with cached data if it contains a dirty sector */
vpcola	0:572d27f56fcd	2521	#if _FS_TINY
vpcola	0:572d27f56fcd	2522	if (fp->fs->wflag && fp->fs->winsect - sect < cc)
vpcola	0:572d27f56fcd	2523	mem_cpy(rbuff + ((fp->fs->winsect - sect) * SS(fp->fs)), fp->fs->win, SS(fp->fs));
vpcola	0:572d27f56fcd	2524	#else
vpcola	0:572d27f56fcd	2525	if ((fp->flag & FA__DIRTY) && fp->dsect - sect < cc)
vpcola	0:572d27f56fcd	2526	mem_cpy(rbuff + ((fp->dsect - sect) * SS(fp->fs)), fp->buf, SS(fp->fs));
vpcola	0:572d27f56fcd	2527	#endif
vpcola	0:572d27f56fcd	2528	#endif
vpcola	0:572d27f56fcd	2529	rcnt = SS(fp->fs) * cc; /* Number of bytes transferred */
vpcola	0:572d27f56fcd	2530	continue;
vpcola	0:572d27f56fcd	2531	}
vpcola	0:572d27f56fcd	2532	#if !_FS_TINY
vpcola	0:572d27f56fcd	2533	if (fp->dsect != sect) { /* Load data sector if not in cache */
vpcola	0:572d27f56fcd	2534	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2535	if (fp->flag & FA__DIRTY) { /* Write-back dirty sector cache */
vpcola	0:572d27f56fcd	2536	if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	2537	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2538	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	2539	}
vpcola	0:572d27f56fcd	2540	#endif
vpcola	0:572d27f56fcd	2541	if (disk_read(fp->fs->drv, fp->buf, sect, 1) != RES_OK) /* Fill sector cache */
vpcola	0:572d27f56fcd	2542	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2543	}
vpcola	0:572d27f56fcd	2544	#endif
vpcola	0:572d27f56fcd	2545	fp->dsect = sect;
vpcola	0:572d27f56fcd	2546	}
vpcola	0:572d27f56fcd	2547	rcnt = SS(fp->fs) - ((UINT)fp->fptr % SS(fp->fs)); /* Get partial sector data from sector buffer */
vpcola	0:572d27f56fcd	2548	if (rcnt > btr) rcnt = btr;
vpcola	0:572d27f56fcd	2549	#if _FS_TINY
vpcola	0:572d27f56fcd	2550	if (move_window(fp->fs, fp->dsect)) /* Move sector window */
vpcola	0:572d27f56fcd	2551	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2552	mem_cpy(rbuff, &fp->fs->win[fp->fptr % SS(fp->fs)], rcnt); /* Pick partial sector */
vpcola	0:572d27f56fcd	2553	#else
vpcola	0:572d27f56fcd	2554	mem_cpy(rbuff, &fp->buf[fp->fptr % SS(fp->fs)], rcnt); /* Pick partial sector */
vpcola	0:572d27f56fcd	2555	#endif
vpcola	0:572d27f56fcd	2556	}
vpcola	0:572d27f56fcd	2557
vpcola	0:572d27f56fcd	2558	LEAVE_FF(fp->fs, FR_OK);
vpcola	0:572d27f56fcd	2559	}
vpcola	0:572d27f56fcd	2560
vpcola	0:572d27f56fcd	2561
vpcola	0:572d27f56fcd	2562
vpcola	0:572d27f56fcd	2563
vpcola	0:572d27f56fcd	2564	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2565	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2566	/* Write File */
vpcola	0:572d27f56fcd	2567	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2568
vpcola	0:572d27f56fcd	2569	FRESULT f_write (
vpcola	0:572d27f56fcd	2570	FIL fp, / Pointer to the file object */
vpcola	0:572d27f56fcd	2571	const void buff, / Pointer to the data to be written */
vpcola	0:572d27f56fcd	2572	UINT btw, /* Number of bytes to write */
vpcola	0:572d27f56fcd	2573	UINT bw / Pointer to number of bytes written */
vpcola	0:572d27f56fcd	2574	)
vpcola	0:572d27f56fcd	2575	{
vpcola	0:572d27f56fcd	2576	FRESULT res;
vpcola	0:572d27f56fcd	2577	DWORD clst, sect;
vpcola	0:572d27f56fcd	2578	UINT wcnt, cc;
vpcola	0:572d27f56fcd	2579	const BYTE wbuff = (const BYTE )buff;
vpcola	0:572d27f56fcd	2580	BYTE csect;
vpcola	0:572d27f56fcd	2581
vpcola	0:572d27f56fcd	2582
vpcola	0:572d27f56fcd	2583	bw = 0; / Clear write byte counter */
vpcola	0:572d27f56fcd	2584
vpcola	0:572d27f56fcd	2585	res = validate(fp); /* Check validity */
vpcola	0:572d27f56fcd	2586	if (res != FR_OK) LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	2587	if (fp->flag & FA__ERROR) /* Aborted file? */
vpcola	0:572d27f56fcd	2588	LEAVE_FF(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2589	if (!(fp->flag & FA_WRITE)) /* Check access mode */
vpcola	0:572d27f56fcd	2590	LEAVE_FF(fp->fs, FR_DENIED);
vpcola	0:572d27f56fcd	2591	if ((DWORD)(fp->fsize + btw) < fp->fsize) btw = 0; /* File size cannot reach 4GB */
vpcola	0:572d27f56fcd	2592
vpcola	0:572d27f56fcd	2593	for ( ; btw; /* Repeat until all data written */
vpcola	0:572d27f56fcd	2594	wbuff += wcnt, fp->fptr += wcnt, *bw += wcnt, btw -= wcnt) {
vpcola	0:572d27f56fcd	2595	if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
vpcola	0:572d27f56fcd	2596	csect = (BYTE)(fp->fptr / SS(fp->fs) & (fp->fs->csize - 1)); /* Sector offset in the cluster */
vpcola	0:572d27f56fcd	2597	if (!csect) { /* On the cluster boundary? */
vpcola	0:572d27f56fcd	2598	if (fp->fptr == 0) { /* On the top of the file? */
vpcola	0:572d27f56fcd	2599	clst = fp->sclust; /* Follow from the origin */
vpcola	0:572d27f56fcd	2600	if (clst == 0) /* When no cluster is allocated, */
vpcola	0:572d27f56fcd	2601	fp->sclust = clst = create_chain(fp->fs, 0); /* Create a new cluster chain */
vpcola	0:572d27f56fcd	2602	} else { /* Middle or end of the file */
vpcola	0:572d27f56fcd	2603	#if _USE_FASTSEEK
vpcola	0:572d27f56fcd	2604	if (fp->cltbl)
vpcola	0:572d27f56fcd	2605	clst = clmt_clust(fp, fp->fptr); /* Get cluster# from the CLMT */
vpcola	0:572d27f56fcd	2606	else
vpcola	0:572d27f56fcd	2607	#endif
vpcola	0:572d27f56fcd	2608	clst = create_chain(fp->fs, fp->clust); /* Follow or stretch cluster chain on the FAT */
vpcola	0:572d27f56fcd	2609	}
vpcola	0:572d27f56fcd	2610	if (clst == 0) break; /* Could not allocate a new cluster (disk full) */
vpcola	0:572d27f56fcd	2611	if (clst == 1) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2612	if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2613	fp->clust = clst; /* Update current cluster */
vpcola	0:572d27f56fcd	2614	}
vpcola	0:572d27f56fcd	2615	#if _FS_TINY
vpcola	0:572d27f56fcd	2616	if (fp->fs->winsect == fp->dsect && move_window(fp->fs, 0)) /* Write-back sector cache */
vpcola	0:572d27f56fcd	2617	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2618	#else
vpcola	0:572d27f56fcd	2619	if (fp->flag & FA__DIRTY) { /* Write-back sector cache */
vpcola	0:572d27f56fcd	2620	if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	2621	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2622	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	2623	}
vpcola	0:572d27f56fcd	2624	#endif
vpcola	0:572d27f56fcd	2625	sect = clust2sect(fp->fs, fp->clust); /* Get current sector */
vpcola	0:572d27f56fcd	2626	if (!sect) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2627	sect += csect;
vpcola	0:572d27f56fcd	2628	cc = btw / SS(fp->fs); /* When remaining bytes >= sector size, */
vpcola	0:572d27f56fcd	2629	if (cc) { /* Write maximum contiguous sectors directly */
vpcola	0:572d27f56fcd	2630	if (csect + cc > fp->fs->csize) /* Clip at cluster boundary */
vpcola	0:572d27f56fcd	2631	cc = fp->fs->csize - csect;
vpcola	0:572d27f56fcd	2632	if (disk_write(fp->fs->drv, wbuff, sect, (BYTE)cc) != RES_OK)
vpcola	0:572d27f56fcd	2633	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2634	#if _FS_TINY
vpcola	0:572d27f56fcd	2635	if (fp->fs->winsect - sect < cc) { /* Refill sector cache if it gets invalidated by the direct write */
vpcola	0:572d27f56fcd	2636	mem_cpy(fp->fs->win, wbuff + ((fp->fs->winsect - sect) * SS(fp->fs)), SS(fp->fs));
vpcola	0:572d27f56fcd	2637	fp->fs->wflag = 0;
vpcola	0:572d27f56fcd	2638	}
vpcola	0:572d27f56fcd	2639	#else
vpcola	0:572d27f56fcd	2640	if (fp->dsect - sect < cc) { /* Refill sector cache if it gets invalidated by the direct write */
vpcola	0:572d27f56fcd	2641	mem_cpy(fp->buf, wbuff + ((fp->dsect - sect) * SS(fp->fs)), SS(fp->fs));
vpcola	0:572d27f56fcd	2642	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	2643	}
vpcola	0:572d27f56fcd	2644	#endif
vpcola	0:572d27f56fcd	2645	wcnt = SS(fp->fs) * cc; /* Number of bytes transferred */
vpcola	0:572d27f56fcd	2646	continue;
vpcola	0:572d27f56fcd	2647	}
vpcola	0:572d27f56fcd	2648	#if _FS_TINY
vpcola	0:572d27f56fcd	2649	if (fp->fptr >= fp->fsize) { /* Avoid silly cache filling at growing edge */
vpcola	0:572d27f56fcd	2650	if (move_window(fp->fs, 0)) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2651	fp->fs->winsect = sect;
vpcola	0:572d27f56fcd	2652	}
vpcola	0:572d27f56fcd	2653	#else
vpcola	0:572d27f56fcd	2654	if (fp->dsect != sect) { /* Fill sector cache with file data */
vpcola	0:572d27f56fcd	2655	if (fp->fptr < fp->fsize &&
vpcola	0:572d27f56fcd	2656	disk_read(fp->fs->drv, fp->buf, sect, 1) != RES_OK)
vpcola	0:572d27f56fcd	2657	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2658	}
vpcola	0:572d27f56fcd	2659	#endif
vpcola	0:572d27f56fcd	2660	fp->dsect = sect;
vpcola	0:572d27f56fcd	2661	}
vpcola	0:572d27f56fcd	2662	wcnt = SS(fp->fs) - ((UINT)fp->fptr % SS(fp->fs));/* Put partial sector into file I/O buffer */
vpcola	0:572d27f56fcd	2663	if (wcnt > btw) wcnt = btw;
vpcola	0:572d27f56fcd	2664	#if _FS_TINY
vpcola	0:572d27f56fcd	2665	if (move_window(fp->fs, fp->dsect)) /* Move sector window */
vpcola	0:572d27f56fcd	2666	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2667	mem_cpy(&fp->fs->win[fp->fptr % SS(fp->fs)], wbuff, wcnt); /* Fit partial sector */
vpcola	0:572d27f56fcd	2668	fp->fs->wflag = 1;
vpcola	0:572d27f56fcd	2669	#else
vpcola	0:572d27f56fcd	2670	mem_cpy(&fp->buf[fp->fptr % SS(fp->fs)], wbuff, wcnt); /* Fit partial sector */
vpcola	0:572d27f56fcd	2671	fp->flag \|= FA__DIRTY;
vpcola	0:572d27f56fcd	2672	#endif
vpcola	0:572d27f56fcd	2673	}
vpcola	0:572d27f56fcd	2674
vpcola	0:572d27f56fcd	2675	if (fp->fptr > fp->fsize) fp->fsize = fp->fptr; /* Update file size if needed */
vpcola	0:572d27f56fcd	2676	fp->flag \|= FA__WRITTEN; /* Set file change flag */
vpcola	0:572d27f56fcd	2677
vpcola	0:572d27f56fcd	2678	LEAVE_FF(fp->fs, FR_OK);
vpcola	0:572d27f56fcd	2679	}
vpcola	0:572d27f56fcd	2680
vpcola	0:572d27f56fcd	2681
vpcola	0:572d27f56fcd	2682
vpcola	0:572d27f56fcd	2683
vpcola	0:572d27f56fcd	2684	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2685	/* Synchronize the File Object */
vpcola	0:572d27f56fcd	2686	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2687
vpcola	0:572d27f56fcd	2688	FRESULT f_sync (
vpcola	0:572d27f56fcd	2689	FIL fp / Pointer to the file object */
vpcola	0:572d27f56fcd	2690	)
vpcola	0:572d27f56fcd	2691	{
vpcola	0:572d27f56fcd	2692	FRESULT res;
vpcola	0:572d27f56fcd	2693	DWORD tim;
vpcola	0:572d27f56fcd	2694	BYTE *dir;
vpcola	0:572d27f56fcd	2695
vpcola	0:572d27f56fcd	2696
vpcola	0:572d27f56fcd	2697	res = validate(fp); /* Check validity of the object */
vpcola	0:572d27f56fcd	2698	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2699	if (fp->flag & FA__WRITTEN) { /* Has the file been written? */
vpcola	0:572d27f56fcd	2700	#if !_FS_TINY /* Write-back dirty buffer */
vpcola	0:572d27f56fcd	2701	if (fp->flag & FA__DIRTY) {
vpcola	0:572d27f56fcd	2702	if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	2703	LEAVE_FF(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2704	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	2705	}
vpcola	0:572d27f56fcd	2706	#endif
vpcola	0:572d27f56fcd	2707	/* Update the directory entry */
vpcola	0:572d27f56fcd	2708	res = move_window(fp->fs, fp->dir_sect);
vpcola	0:572d27f56fcd	2709	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2710	dir = fp->dir_ptr;
vpcola	0:572d27f56fcd	2711	dir[DIR_Attr] \|= AM_ARC; /* Set archive bit */
vpcola	0:572d27f56fcd	2712	ST_DWORD(dir+DIR_FileSize, fp->fsize); /* Update file size */
vpcola	0:572d27f56fcd	2713	st_clust(dir, fp->sclust); /* Update start cluster */
vpcola	0:572d27f56fcd	2714	tim = get_fattime(); /* Update updated time */
vpcola	0:572d27f56fcd	2715	ST_DWORD(dir+DIR_WrtTime, tim);
vpcola	0:572d27f56fcd	2716	ST_WORD(dir+DIR_LstAccDate, 0);
vpcola	0:572d27f56fcd	2717	fp->flag &= ~FA__WRITTEN;
vpcola	0:572d27f56fcd	2718	fp->fs->wflag = 1;
vpcola	0:572d27f56fcd	2719	res = sync(fp->fs);
vpcola	0:572d27f56fcd	2720	}
vpcola	0:572d27f56fcd	2721	}
vpcola	0:572d27f56fcd	2722	}
vpcola	0:572d27f56fcd	2723
vpcola	0:572d27f56fcd	2724	LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	2725	}
vpcola	0:572d27f56fcd	2726
vpcola	0:572d27f56fcd	2727	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	2728
vpcola	0:572d27f56fcd	2729
vpcola	0:572d27f56fcd	2730
vpcola	0:572d27f56fcd	2731
vpcola	0:572d27f56fcd	2732	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2733	/* Close File */
vpcola	0:572d27f56fcd	2734	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2735
vpcola	0:572d27f56fcd	2736	FRESULT f_close (
vpcola	0:572d27f56fcd	2737	FIL fp / Pointer to the file object to be closed */
vpcola	0:572d27f56fcd	2738	)
vpcola	0:572d27f56fcd	2739	{
vpcola	0:572d27f56fcd	2740	FRESULT res;
vpcola	0:572d27f56fcd	2741
vpcola	0:572d27f56fcd	2742
vpcola	0:572d27f56fcd	2743	#if _FS_READONLY
vpcola	0:572d27f56fcd	2744	res = validate(fp);
vpcola	0:572d27f56fcd	2745	{
vpcola	0:572d27f56fcd	2746	#if _FS_REENTRANT
vpcola	0:572d27f56fcd	2747	FATFS *fs = fp->fs;
vpcola	0:572d27f56fcd	2748	#endif
vpcola	0:572d27f56fcd	2749	if (res == FR_OK) fp->fs = 0; /* Discard file object */
vpcola	0:572d27f56fcd	2750	LEAVE_FF(fs, res);
vpcola	0:572d27f56fcd	2751	}
vpcola	0:572d27f56fcd	2752	#else
vpcola	0:572d27f56fcd	2753	res = f_sync(fp); /* Flush cached data */
vpcola	0:572d27f56fcd	2754	#if _FS_LOCK
vpcola	0:572d27f56fcd	2755	if (res == FR_OK) { /* Decrement open counter */
vpcola	0:572d27f56fcd	2756	#if _FS_REENTRANT
vpcola	0:572d27f56fcd	2757	FATFS *fs = fp->fs;;
vpcola	0:572d27f56fcd	2758	res = validate(fp);
vpcola	0:572d27f56fcd	2759	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2760	res = dec_lock(fp->lockid);
vpcola	0:572d27f56fcd	2761	unlock_fs(fs, FR_OK);
vpcola	0:572d27f56fcd	2762	}
vpcola	0:572d27f56fcd	2763	#else
vpcola	0:572d27f56fcd	2764	res = dec_lock(fp->lockid);
vpcola	0:572d27f56fcd	2765	#endif
vpcola	0:572d27f56fcd	2766	}
vpcola	0:572d27f56fcd	2767	#endif
vpcola	0:572d27f56fcd	2768	if (res == FR_OK) fp->fs = 0; /* Discard file object */
vpcola	0:572d27f56fcd	2769	return res;
vpcola	0:572d27f56fcd	2770	#endif
vpcola	0:572d27f56fcd	2771	}
vpcola	0:572d27f56fcd	2772
vpcola	0:572d27f56fcd	2773
vpcola	0:572d27f56fcd	2774
vpcola	0:572d27f56fcd	2775
vpcola	0:572d27f56fcd	2776	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2777	/* Current Drive/Directory Handlings */
vpcola	0:572d27f56fcd	2778	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2779
vpcola	0:572d27f56fcd	2780	#if _FS_RPATH >= 1
vpcola	0:572d27f56fcd	2781
vpcola	0:572d27f56fcd	2782	FRESULT f_chdrive (
vpcola	0:572d27f56fcd	2783	BYTE drv /* Drive number */
vpcola	0:572d27f56fcd	2784	)
vpcola	0:572d27f56fcd	2785	{
vpcola	0:572d27f56fcd	2786	if (drv >= _VOLUMES) return FR_INVALID_DRIVE;
vpcola	0:572d27f56fcd	2787
vpcola	0:572d27f56fcd	2788	CurrVol = drv;
vpcola	0:572d27f56fcd	2789
vpcola	0:572d27f56fcd	2790	return FR_OK;
vpcola	0:572d27f56fcd	2791	}
vpcola	0:572d27f56fcd	2792
vpcola	0:572d27f56fcd	2793
vpcola	0:572d27f56fcd	2794
vpcola	0:572d27f56fcd	2795	FRESULT f_chdir (
vpcola	0:572d27f56fcd	2796	const TCHAR path / Pointer to the directory path */
vpcola	0:572d27f56fcd	2797	)
vpcola	0:572d27f56fcd	2798	{
vpcola	0:572d27f56fcd	2799	FRESULT res;
vpcola	0:572d27f56fcd	2800	DIR dj;
vpcola	0:572d27f56fcd	2801	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	2802
vpcola	0:572d27f56fcd	2803
vpcola	0:572d27f56fcd	2804	res = chk_mounted(&path, &dj.fs, 0);
vpcola	0:572d27f56fcd	2805	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2806	INIT_BUF(dj);
vpcola	0:572d27f56fcd	2807	res = follow_path(&dj, path); /* Follow the path */
vpcola	0:572d27f56fcd	2808	FREE_BUF();
vpcola	0:572d27f56fcd	2809	if (res == FR_OK) { /* Follow completed */
vpcola	0:572d27f56fcd	2810	if (!dj.dir) {
vpcola	0:572d27f56fcd	2811	dj.fs->cdir = dj.sclust; /* Start directory itself */
vpcola	0:572d27f56fcd	2812	} else {
vpcola	0:572d27f56fcd	2813	if (dj.dir[DIR_Attr] & AM_DIR) /* Reached to the directory */
vpcola	0:572d27f56fcd	2814	dj.fs->cdir = ld_clust(dj.fs, dj.dir);
vpcola	0:572d27f56fcd	2815	else
vpcola	0:572d27f56fcd	2816	res = FR_NO_PATH; /* Reached but a file */
vpcola	0:572d27f56fcd	2817	}
vpcola	0:572d27f56fcd	2818	}
vpcola	0:572d27f56fcd	2819	if (res == FR_NO_FILE) res = FR_NO_PATH;
vpcola	0:572d27f56fcd	2820	}
vpcola	0:572d27f56fcd	2821
vpcola	0:572d27f56fcd	2822	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	2823	}
vpcola	0:572d27f56fcd	2824
vpcola	0:572d27f56fcd	2825
vpcola	0:572d27f56fcd	2826	#if _FS_RPATH >= 2
vpcola	0:572d27f56fcd	2827	FRESULT f_getcwd (
vpcola	0:572d27f56fcd	2828	TCHAR path, / Pointer to the directory path */
vpcola	0:572d27f56fcd	2829	UINT sz_path /* Size of path */
vpcola	0:572d27f56fcd	2830	)
vpcola	0:572d27f56fcd	2831	{
vpcola	0:572d27f56fcd	2832	FRESULT res;
vpcola	0:572d27f56fcd	2833	DIR dj;
vpcola	0:572d27f56fcd	2834	UINT i, n;
vpcola	0:572d27f56fcd	2835	DWORD ccl;
vpcola	0:572d27f56fcd	2836	TCHAR *tp;
vpcola	0:572d27f56fcd	2837	FILINFO fno;
vpcola	0:572d27f56fcd	2838	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	2839
vpcola	0:572d27f56fcd	2840
vpcola	0:572d27f56fcd	2841	*path = 0;
vpcola	0:572d27f56fcd	2842	res = chk_mounted((const TCHAR*)&path, &dj.fs, 0); / Get current volume */
vpcola	0:572d27f56fcd	2843	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2844	INIT_BUF(dj);
vpcola	0:572d27f56fcd	2845	i = sz_path; /* Bottom of buffer (dir stack base) */
vpcola	0:572d27f56fcd	2846	dj.sclust = dj.fs->cdir; /* Start to follow upper dir from current dir */
vpcola	0:572d27f56fcd	2847	while ((ccl = dj.sclust) != 0) { /* Repeat while current dir is a sub-dir */
vpcola	0:572d27f56fcd	2848	res = dir_sdi(&dj, 1); /* Get parent dir */
vpcola	0:572d27f56fcd	2849	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2850	res = dir_read(&dj);
vpcola	0:572d27f56fcd	2851	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2852	dj.sclust = ld_clust(dj.fs, dj.dir); /* Goto parent dir */
vpcola	0:572d27f56fcd	2853	res = dir_sdi(&dj, 0);
vpcola	0:572d27f56fcd	2854	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2855	do { /* Find the entry links to the child dir */
vpcola	0:572d27f56fcd	2856	res = dir_read(&dj);
vpcola	0:572d27f56fcd	2857	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2858	if (ccl == ld_clust(dj.fs, dj.dir)) break; /* Found the entry */
vpcola	0:572d27f56fcd	2859	res = dir_next(&dj, 0);
vpcola	0:572d27f56fcd	2860	} while (res == FR_OK);
vpcola	0:572d27f56fcd	2861	if (res == FR_NO_FILE) res = FR_INT_ERR;/* It cannot be 'not found'. */
vpcola	0:572d27f56fcd	2862	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	2863	#if _USE_LFN
vpcola	0:572d27f56fcd	2864	fno.lfname = path;
vpcola	0:572d27f56fcd	2865	fno.lfsize = i;
vpcola	0:572d27f56fcd	2866	#endif
vpcola	0:572d27f56fcd	2867	get_fileinfo(&dj, &fno); /* Get the dir name and push it to the buffer */
vpcola	0:572d27f56fcd	2868	tp = fno.fname;
vpcola	0:572d27f56fcd	2869	if (_USE_LFN && *path) tp = path;
vpcola	0:572d27f56fcd	2870	for (n = 0; tp[n]; n++) ;
vpcola	0:572d27f56fcd	2871	if (i < n + 3) {
vpcola	0:572d27f56fcd	2872	res = FR_NOT_ENOUGH_CORE;
vpcola	0:572d27f56fcd	2873	break;
vpcola	0:572d27f56fcd	2874	}
vpcola	0:572d27f56fcd	2875	while (n) path[--i] = tp[--n];
vpcola	0:572d27f56fcd	2876	path[--i] = '/';
vpcola	0:572d27f56fcd	2877	}
vpcola	0:572d27f56fcd	2878	tp = path;
vpcola	0:572d27f56fcd	2879	if (res == FR_OK) {
vpcola	0:572d27f56fcd	2880	tp++ = '0' + CurrVol; / Put drive number */
vpcola	0:572d27f56fcd	2881	*tp++ = ':';
vpcola	0:572d27f56fcd	2882	if (i == sz_path) { /* Root-dir */
vpcola	0:572d27f56fcd	2883	*tp++ = '/';
vpcola	0:572d27f56fcd	2884	} else { /* Sub-dir */
vpcola	0:572d27f56fcd	2885	do /* Add stacked path str */
vpcola	0:572d27f56fcd	2886	*tp++ = path[i++];
vpcola	0:572d27f56fcd	2887	while (i < sz_path);
vpcola	0:572d27f56fcd	2888	}
vpcola	0:572d27f56fcd	2889	}
vpcola	0:572d27f56fcd	2890	*tp = 0;
vpcola	0:572d27f56fcd	2891	FREE_BUF();
vpcola	0:572d27f56fcd	2892	}
vpcola	0:572d27f56fcd	2893
vpcola	0:572d27f56fcd	2894	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	2895	}
vpcola	0:572d27f56fcd	2896	#endif /* _FS_RPATH >= 2 */
vpcola	0:572d27f56fcd	2897	#endif /* _FS_RPATH >= 1 */
vpcola	0:572d27f56fcd	2898
vpcola	0:572d27f56fcd	2899
vpcola	0:572d27f56fcd	2900
vpcola	0:572d27f56fcd	2901	#if _FS_MINIMIZE <= 2
vpcola	0:572d27f56fcd	2902	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2903	/* Seek File R/W Pointer */
vpcola	0:572d27f56fcd	2904	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	2905
vpcola	0:572d27f56fcd	2906	FRESULT f_lseek (
vpcola	0:572d27f56fcd	2907	FIL fp, / Pointer to the file object */
vpcola	0:572d27f56fcd	2908	DWORD ofs /* File pointer from top of file */
vpcola	0:572d27f56fcd	2909	)
vpcola	0:572d27f56fcd	2910	{
vpcola	0:572d27f56fcd	2911	FRESULT res;
vpcola	0:572d27f56fcd	2912
vpcola	0:572d27f56fcd	2913
vpcola	0:572d27f56fcd	2914	res = validate(fp); /* Check validity of the object */
vpcola	0:572d27f56fcd	2915	if (res != FR_OK) LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	2916	if (fp->flag & FA__ERROR) /* Check abort flag */
vpcola	0:572d27f56fcd	2917	LEAVE_FF(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2918
vpcola	0:572d27f56fcd	2919	#if _USE_FASTSEEK
vpcola	0:572d27f56fcd	2920	if (fp->cltbl) { /* Fast seek */
vpcola	0:572d27f56fcd	2921	DWORD cl, pcl, ncl, tcl, dsc, tlen, ulen, *tbl;
vpcola	0:572d27f56fcd	2922
vpcola	0:572d27f56fcd	2923	if (ofs == CREATE_LINKMAP) { /* Create CLMT */
vpcola	0:572d27f56fcd	2924	tbl = fp->cltbl;
vpcola	0:572d27f56fcd	2925	tlen = *tbl++;
vpcola	0:572d27f56fcd	2926	ulen = 2; /* Given table size and required table size */
vpcola	0:572d27f56fcd	2927	cl = fp->sclust; /* Top of the chain */
vpcola	0:572d27f56fcd	2928	if (cl) {
vpcola	0:572d27f56fcd	2929	do {
vpcola	0:572d27f56fcd	2930	/* Get a fragment */
vpcola	0:572d27f56fcd	2931	tcl = cl;
vpcola	0:572d27f56fcd	2932	ncl = 0;
vpcola	0:572d27f56fcd	2933	ulen += 2; /* Top, length and used items */
vpcola	0:572d27f56fcd	2934	do {
vpcola	0:572d27f56fcd	2935	pcl = cl;
vpcola	0:572d27f56fcd	2936	ncl++;
vpcola	0:572d27f56fcd	2937	cl = get_fat(fp->fs, cl);
vpcola	0:572d27f56fcd	2938	if (cl <= 1) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2939	if (cl == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2940	} while (cl == pcl + 1);
vpcola	0:572d27f56fcd	2941	if (ulen <= tlen) { /* Store the length and top of the fragment */
vpcola	0:572d27f56fcd	2942	*tbl++ = ncl;
vpcola	0:572d27f56fcd	2943	*tbl++ = tcl;
vpcola	0:572d27f56fcd	2944	}
vpcola	0:572d27f56fcd	2945	} while (cl < fp->fs->n_fatent); /* Repeat until end of chain */
vpcola	0:572d27f56fcd	2946	}
vpcola	0:572d27f56fcd	2947	fp->cltbl = ulen; / Number of items used */
vpcola	0:572d27f56fcd	2948	if (ulen <= tlen)
vpcola	0:572d27f56fcd	2949	tbl = 0; / Terminate table */
vpcola	0:572d27f56fcd	2950	else
vpcola	0:572d27f56fcd	2951	res = FR_NOT_ENOUGH_CORE; /* Given table size is smaller than required */
vpcola	0:572d27f56fcd	2952
vpcola	0:572d27f56fcd	2953	} else { /* Fast seek */
vpcola	0:572d27f56fcd	2954	if (ofs > fp->fsize) /* Clip offset at the file size */
vpcola	0:572d27f56fcd	2955	ofs = fp->fsize;
vpcola	0:572d27f56fcd	2956	fp->fptr = ofs; /* Set file pointer */
vpcola	0:572d27f56fcd	2957	if (ofs) {
vpcola	0:572d27f56fcd	2958	fp->clust = clmt_clust(fp, ofs - 1);
vpcola	0:572d27f56fcd	2959	dsc = clust2sect(fp->fs, fp->clust);
vpcola	0:572d27f56fcd	2960	if (!dsc) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	2961	dsc += (ofs - 1) / SS(fp->fs) & (fp->fs->csize - 1);
vpcola	0:572d27f56fcd	2962	if (fp->fptr % SS(fp->fs) && dsc != fp->dsect) { /* Refill sector cache if needed */
vpcola	0:572d27f56fcd	2963	#if !_FS_TINY
vpcola	0:572d27f56fcd	2964	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2965	if (fp->flag & FA__DIRTY) { /* Write-back dirty sector cache */
vpcola	0:572d27f56fcd	2966	if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	2967	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2968	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	2969	}
vpcola	0:572d27f56fcd	2970	#endif
vpcola	0:572d27f56fcd	2971	if (disk_read(fp->fs->drv, fp->buf, dsc, 1) != RES_OK) /* Load current sector */
vpcola	0:572d27f56fcd	2972	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	2973	#endif
vpcola	0:572d27f56fcd	2974	fp->dsect = dsc;
vpcola	0:572d27f56fcd	2975	}
vpcola	0:572d27f56fcd	2976	}
vpcola	0:572d27f56fcd	2977	}
vpcola	0:572d27f56fcd	2978	} else
vpcola	0:572d27f56fcd	2979	#endif
vpcola	0:572d27f56fcd	2980
vpcola	0:572d27f56fcd	2981	/* Normal Seek */
vpcola	0:572d27f56fcd	2982	{
vpcola	0:572d27f56fcd	2983	DWORD clst, bcs, nsect, ifptr;
vpcola	0:572d27f56fcd	2984
vpcola	0:572d27f56fcd	2985	if (ofs > fp->fsize /* In read-only mode, clip offset with the file size */
vpcola	0:572d27f56fcd	2986	#if !_FS_READONLY
vpcola	0:572d27f56fcd	2987	&& !(fp->flag & FA_WRITE)
vpcola	0:572d27f56fcd	2988	#endif
vpcola	0:572d27f56fcd	2989	) ofs = fp->fsize;
vpcola	0:572d27f56fcd	2990
vpcola	0:572d27f56fcd	2991	ifptr = fp->fptr;
vpcola	0:572d27f56fcd	2992	fp->fptr = nsect = 0;
vpcola	0:572d27f56fcd	2993	if (ofs) {
vpcola	0:572d27f56fcd	2994	bcs = (DWORD)fp->fs->csize * SS(fp->fs); /* Cluster size (byte) */
vpcola	0:572d27f56fcd	2995	if (ifptr > 0 &&
vpcola	0:572d27f56fcd	2996	(ofs - 1) / bcs >= (ifptr - 1) / bcs) { /* When seek to same or following cluster, */
vpcola	0:572d27f56fcd	2997	fp->fptr = (ifptr - 1) & ~(bcs - 1); /* start from the current cluster */
vpcola	0:572d27f56fcd	2998	ofs -= fp->fptr;
vpcola	0:572d27f56fcd	2999	clst = fp->clust;
vpcola	0:572d27f56fcd	3000	} else { /* When seek to back cluster, */
vpcola	0:572d27f56fcd	3001	clst = fp->sclust; /* start from the first cluster */
vpcola	0:572d27f56fcd	3002	#if !_FS_READONLY
vpcola	0:572d27f56fcd	3003	if (clst == 0) { /* If no cluster chain, create a new chain */
vpcola	0:572d27f56fcd	3004	clst = create_chain(fp->fs, 0);
vpcola	0:572d27f56fcd	3005	if (clst == 1) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3006	if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3007	fp->sclust = clst;
vpcola	0:572d27f56fcd	3008	}
vpcola	0:572d27f56fcd	3009	#endif
vpcola	0:572d27f56fcd	3010	fp->clust = clst;
vpcola	0:572d27f56fcd	3011	}
vpcola	0:572d27f56fcd	3012	if (clst != 0) {
vpcola	0:572d27f56fcd	3013	while (ofs > bcs) { /* Cluster following loop */
vpcola	0:572d27f56fcd	3014	#if !_FS_READONLY
vpcola	0:572d27f56fcd	3015	if (fp->flag & FA_WRITE) { /* Check if in write mode or not */
vpcola	0:572d27f56fcd	3016	clst = create_chain(fp->fs, clst); /* Force stretch if in write mode */
vpcola	0:572d27f56fcd	3017	if (clst == 0) { /* When disk gets full, clip file size */
vpcola	0:572d27f56fcd	3018	ofs = bcs;
vpcola	0:572d27f56fcd	3019	break;
vpcola	0:572d27f56fcd	3020	}
vpcola	0:572d27f56fcd	3021	} else
vpcola	0:572d27f56fcd	3022	#endif
vpcola	0:572d27f56fcd	3023	clst = get_fat(fp->fs, clst); /* Follow cluster chain if not in write mode */
vpcola	0:572d27f56fcd	3024	if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3025	if (clst <= 1 \|\| clst >= fp->fs->n_fatent) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3026	fp->clust = clst;
vpcola	0:572d27f56fcd	3027	fp->fptr += bcs;
vpcola	0:572d27f56fcd	3028	ofs -= bcs;
vpcola	0:572d27f56fcd	3029	}
vpcola	0:572d27f56fcd	3030	fp->fptr += ofs;
vpcola	0:572d27f56fcd	3031	if (ofs % SS(fp->fs)) {
vpcola	0:572d27f56fcd	3032	nsect = clust2sect(fp->fs, clst); /* Current sector */
vpcola	0:572d27f56fcd	3033	if (!nsect) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3034	nsect += ofs / SS(fp->fs);
vpcola	0:572d27f56fcd	3035	}
vpcola	0:572d27f56fcd	3036	}
vpcola	0:572d27f56fcd	3037	}
vpcola	0:572d27f56fcd	3038	if (fp->fptr % SS(fp->fs) && nsect != fp->dsect) { /* Fill sector cache if needed */
vpcola	0:572d27f56fcd	3039	#if !_FS_TINY
vpcola	0:572d27f56fcd	3040	#if !_FS_READONLY
vpcola	0:572d27f56fcd	3041	if (fp->flag & FA__DIRTY) { /* Write-back dirty sector cache */
vpcola	0:572d27f56fcd	3042	if (disk_write(fp->fs->drv, fp->buf, fp->dsect, 1) != RES_OK)
vpcola	0:572d27f56fcd	3043	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3044	fp->flag &= ~FA__DIRTY;
vpcola	0:572d27f56fcd	3045	}
vpcola	0:572d27f56fcd	3046	#endif
vpcola	0:572d27f56fcd	3047	if (disk_read(fp->fs->drv, fp->buf, nsect, 1) != RES_OK) /* Fill sector cache */
vpcola	0:572d27f56fcd	3048	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3049	#endif
vpcola	0:572d27f56fcd	3050	fp->dsect = nsect;
vpcola	0:572d27f56fcd	3051	}
vpcola	0:572d27f56fcd	3052	#if !_FS_READONLY
vpcola	0:572d27f56fcd	3053	if (fp->fptr > fp->fsize) { /* Set file change flag if the file size is extended */
vpcola	0:572d27f56fcd	3054	fp->fsize = fp->fptr;
vpcola	0:572d27f56fcd	3055	fp->flag \|= FA__WRITTEN;
vpcola	0:572d27f56fcd	3056	}
vpcola	0:572d27f56fcd	3057	#endif
vpcola	0:572d27f56fcd	3058	}
vpcola	0:572d27f56fcd	3059
vpcola	0:572d27f56fcd	3060	LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	3061	}
vpcola	0:572d27f56fcd	3062
vpcola	0:572d27f56fcd	3063
vpcola	0:572d27f56fcd	3064
vpcola	0:572d27f56fcd	3065	#if _FS_MINIMIZE <= 1
vpcola	0:572d27f56fcd	3066	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3067	/* Create a Directory Object */
vpcola	0:572d27f56fcd	3068	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3069
vpcola	0:572d27f56fcd	3070	FRESULT f_opendir (
vpcola	0:572d27f56fcd	3071	FATFS_DIR dj, / Pointer to directory object to create */
vpcola	0:572d27f56fcd	3072	const TCHAR path / Pointer to the directory path */
vpcola	0:572d27f56fcd	3073	)
vpcola	0:572d27f56fcd	3074	{
vpcola	0:572d27f56fcd	3075	FRESULT res;
vpcola	0:572d27f56fcd	3076	FATFS *fs;
vpcola	0:572d27f56fcd	3077	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3078
vpcola	0:572d27f56fcd	3079
vpcola	0:572d27f56fcd	3080	if (!dj) return FR_INVALID_OBJECT;
vpcola	0:572d27f56fcd	3081
vpcola	0:572d27f56fcd	3082	res = chk_mounted(&path, &dj->fs, 0);
vpcola	0:572d27f56fcd	3083	fs = dj->fs;
vpcola	0:572d27f56fcd	3084	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3085	INIT_BUF(*dj);
vpcola	0:572d27f56fcd	3086	res = follow_path(dj, path); /* Follow the path to the directory */
vpcola	0:572d27f56fcd	3087	FREE_BUF();
vpcola	0:572d27f56fcd	3088	if (res == FR_OK) { /* Follow completed */
vpcola	0:572d27f56fcd	3089	if (dj->dir) { /* It is not the root dir */
vpcola	0:572d27f56fcd	3090	if (dj->dir[DIR_Attr] & AM_DIR) { /* The object is a directory */
vpcola	0:572d27f56fcd	3091	dj->sclust = ld_clust(fs, dj->dir);
vpcola	0:572d27f56fcd	3092	} else { /* The object is not a directory */
vpcola	0:572d27f56fcd	3093	res = FR_NO_PATH;
vpcola	0:572d27f56fcd	3094	}
vpcola	0:572d27f56fcd	3095	}
vpcola	0:572d27f56fcd	3096	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3097	dj->id = fs->id;
vpcola	0:572d27f56fcd	3098	res = dir_sdi(dj, 0); /* Rewind dir */
vpcola	0:572d27f56fcd	3099	}
vpcola	0:572d27f56fcd	3100	}
vpcola	0:572d27f56fcd	3101	if (res == FR_NO_FILE) res = FR_NO_PATH;
vpcola	0:572d27f56fcd	3102	if (res != FR_OK) dj->fs = 0; /* Invalidate the dir object if function faild */
vpcola	0:572d27f56fcd	3103	} else {
vpcola	0:572d27f56fcd	3104	dj->fs = 0;
vpcola	0:572d27f56fcd	3105	}
vpcola	0:572d27f56fcd	3106
vpcola	0:572d27f56fcd	3107	LEAVE_FF(fs, res);
vpcola	0:572d27f56fcd	3108	}
vpcola	0:572d27f56fcd	3109
vpcola	0:572d27f56fcd	3110
vpcola	0:572d27f56fcd	3111
vpcola	0:572d27f56fcd	3112
vpcola	0:572d27f56fcd	3113	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3114	/* Read Directory Entry in Sequence */
vpcola	0:572d27f56fcd	3115	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3116
vpcola	0:572d27f56fcd	3117	FRESULT f_readdir (
vpcola	0:572d27f56fcd	3118	FATFS_DIR dj, / Pointer to the open directory object */
vpcola	0:572d27f56fcd	3119	FILINFO fno / Pointer to file information to return */
vpcola	0:572d27f56fcd	3120	)
vpcola	0:572d27f56fcd	3121	{
vpcola	0:572d27f56fcd	3122	FRESULT res;
vpcola	0:572d27f56fcd	3123	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3124
vpcola	0:572d27f56fcd	3125
vpcola	0:572d27f56fcd	3126	res = validate(dj); /* Check validity of the object */
vpcola	0:572d27f56fcd	3127	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3128	if (!fno) {
vpcola	0:572d27f56fcd	3129	res = dir_sdi(dj, 0); /* Rewind the directory object */
vpcola	0:572d27f56fcd	3130	} else {
vpcola	0:572d27f56fcd	3131	INIT_BUF(*dj);
vpcola	0:572d27f56fcd	3132	res = dir_read(dj); /* Read an directory item */
vpcola	0:572d27f56fcd	3133	if (res == FR_NO_FILE) { /* Reached end of dir */
vpcola	0:572d27f56fcd	3134	dj->sect = 0;
vpcola	0:572d27f56fcd	3135	res = FR_OK;
vpcola	0:572d27f56fcd	3136	}
vpcola	0:572d27f56fcd	3137	if (res == FR_OK) { /* A valid entry is found */
vpcola	0:572d27f56fcd	3138	get_fileinfo(dj, fno); /* Get the object information */
vpcola	0:572d27f56fcd	3139	res = dir_next(dj, 0); /* Increment index for next */
vpcola	0:572d27f56fcd	3140	if (res == FR_NO_FILE) {
vpcola	0:572d27f56fcd	3141	dj->sect = 0;
vpcola	0:572d27f56fcd	3142	res = FR_OK;
vpcola	0:572d27f56fcd	3143	}
vpcola	0:572d27f56fcd	3144	}
vpcola	0:572d27f56fcd	3145	FREE_BUF();
vpcola	0:572d27f56fcd	3146	}
vpcola	0:572d27f56fcd	3147	}
vpcola	0:572d27f56fcd	3148
vpcola	0:572d27f56fcd	3149	LEAVE_FF(dj->fs, res);
vpcola	0:572d27f56fcd	3150	}
vpcola	0:572d27f56fcd	3151
vpcola	0:572d27f56fcd	3152
vpcola	0:572d27f56fcd	3153
vpcola	0:572d27f56fcd	3154	#if _FS_MINIMIZE == 0
vpcola	0:572d27f56fcd	3155	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3156	/* Get File Status */
vpcola	0:572d27f56fcd	3157	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3158
vpcola	0:572d27f56fcd	3159	FRESULT f_stat (
vpcola	0:572d27f56fcd	3160	const TCHAR path, / Pointer to the file path */
vpcola	0:572d27f56fcd	3161	FILINFO fno / Pointer to file information to return */
vpcola	0:572d27f56fcd	3162	)
vpcola	0:572d27f56fcd	3163	{
vpcola	0:572d27f56fcd	3164	FRESULT res;
vpcola	0:572d27f56fcd	3165	FATFS_DIR dj;
vpcola	0:572d27f56fcd	3166	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3167
vpcola	0:572d27f56fcd	3168
vpcola	0:572d27f56fcd	3169	res = chk_mounted(&path, &dj.fs, 0);
vpcola	0:572d27f56fcd	3170	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3171	INIT_BUF(dj);
vpcola	0:572d27f56fcd	3172	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	3173	if (res == FR_OK) { /* Follow completed */
vpcola	0:572d27f56fcd	3174	if (dj.dir) /* Found an object */
vpcola	0:572d27f56fcd	3175	get_fileinfo(&dj, fno);
vpcola	0:572d27f56fcd	3176	else /* It is root dir */
vpcola	0:572d27f56fcd	3177	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3178	}
vpcola	0:572d27f56fcd	3179	FREE_BUF();
vpcola	0:572d27f56fcd	3180	}
vpcola	0:572d27f56fcd	3181
vpcola	0:572d27f56fcd	3182	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	3183	}
vpcola	0:572d27f56fcd	3184
vpcola	0:572d27f56fcd	3185
vpcola	0:572d27f56fcd	3186
vpcola	0:572d27f56fcd	3187	#if !_FS_READONLY
vpcola	0:572d27f56fcd	3188	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3189	/* Get Number of Free Clusters */
vpcola	0:572d27f56fcd	3190	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3191
vpcola	0:572d27f56fcd	3192	FRESULT f_getfree (
vpcola	0:572d27f56fcd	3193	const TCHAR path, / Pointer to the logical drive number (root dir) */
vpcola	0:572d27f56fcd	3194	DWORD nclst, / Pointer to the variable to return number of free clusters */
vpcola	0:572d27f56fcd	3195	FATFS *fatfs / Pointer to pointer to corresponding file system object to return */
vpcola	0:572d27f56fcd	3196	)
vpcola	0:572d27f56fcd	3197	{
vpcola	0:572d27f56fcd	3198	FRESULT res;
vpcola	0:572d27f56fcd	3199	FATFS *fs;
vpcola	0:572d27f56fcd	3200	DWORD n, clst, sect, stat;
vpcola	0:572d27f56fcd	3201	UINT i;
vpcola	0:572d27f56fcd	3202	BYTE fat, *p;
vpcola	0:572d27f56fcd	3203
vpcola	0:572d27f56fcd	3204
vpcola	0:572d27f56fcd	3205	/* Get drive number */
vpcola	0:572d27f56fcd	3206	res = chk_mounted(&path, fatfs, 0);
vpcola	0:572d27f56fcd	3207	fs = *fatfs;
vpcola	0:572d27f56fcd	3208	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3209	/* If free_clust is valid, return it without full cluster scan */
vpcola	0:572d27f56fcd	3210	if (fs->free_clust <= fs->n_fatent - 2) {
vpcola	0:572d27f56fcd	3211	*nclst = fs->free_clust;
vpcola	0:572d27f56fcd	3212	} else {
vpcola	0:572d27f56fcd	3213	/* Get number of free clusters */
vpcola	0:572d27f56fcd	3214	fat = fs->fs_type;
vpcola	0:572d27f56fcd	3215	n = 0;
vpcola	0:572d27f56fcd	3216	if (fat == FS_FAT12) {
vpcola	0:572d27f56fcd	3217	clst = 2;
vpcola	0:572d27f56fcd	3218	do {
vpcola	0:572d27f56fcd	3219	stat = get_fat(fs, clst);
vpcola	0:572d27f56fcd	3220	if (stat == 0xFFFFFFFF) {
vpcola	0:572d27f56fcd	3221	res = FR_DISK_ERR;
vpcola	0:572d27f56fcd	3222	break;
vpcola	0:572d27f56fcd	3223	}
vpcola	0:572d27f56fcd	3224	if (stat == 1) {
vpcola	0:572d27f56fcd	3225	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3226	break;
vpcola	0:572d27f56fcd	3227	}
vpcola	0:572d27f56fcd	3228	if (stat == 0) n++;
vpcola	0:572d27f56fcd	3229	} while (++clst < fs->n_fatent);
vpcola	0:572d27f56fcd	3230	} else {
vpcola	0:572d27f56fcd	3231	clst = fs->n_fatent;
vpcola	0:572d27f56fcd	3232	sect = fs->fatbase;
vpcola	0:572d27f56fcd	3233	i = 0;
vpcola	0:572d27f56fcd	3234	p = 0;
vpcola	0:572d27f56fcd	3235	do {
vpcola	0:572d27f56fcd	3236	if (!i) {
vpcola	0:572d27f56fcd	3237	res = move_window(fs, sect++);
vpcola	0:572d27f56fcd	3238	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	3239	p = fs->win;
vpcola	0:572d27f56fcd	3240	i = SS(fs);
vpcola	0:572d27f56fcd	3241	}
vpcola	0:572d27f56fcd	3242	if (fat == FS_FAT16) {
vpcola	0:572d27f56fcd	3243	if (LD_WORD(p) == 0) n++;
vpcola	0:572d27f56fcd	3244	p += 2;
vpcola	0:572d27f56fcd	3245	i -= 2;
vpcola	0:572d27f56fcd	3246	} else {
vpcola	0:572d27f56fcd	3247	if ((LD_DWORD(p) & 0x0FFFFFFF) == 0) n++;
vpcola	0:572d27f56fcd	3248	p += 4;
vpcola	0:572d27f56fcd	3249	i -= 4;
vpcola	0:572d27f56fcd	3250	}
vpcola	0:572d27f56fcd	3251	} while (--clst);
vpcola	0:572d27f56fcd	3252	}
vpcola	0:572d27f56fcd	3253	fs->free_clust = n;
vpcola	0:572d27f56fcd	3254	if (fat == FS_FAT32) fs->fsi_flag = 1;
vpcola	0:572d27f56fcd	3255	*nclst = n;
vpcola	0:572d27f56fcd	3256	}
vpcola	0:572d27f56fcd	3257	}
vpcola	0:572d27f56fcd	3258	LEAVE_FF(fs, res);
vpcola	0:572d27f56fcd	3259	}
vpcola	0:572d27f56fcd	3260
vpcola	0:572d27f56fcd	3261
vpcola	0:572d27f56fcd	3262
vpcola	0:572d27f56fcd	3263
vpcola	0:572d27f56fcd	3264	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3265	/* Truncate File */
vpcola	0:572d27f56fcd	3266	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3267
vpcola	0:572d27f56fcd	3268	FRESULT f_truncate (
vpcola	0:572d27f56fcd	3269	FIL fp / Pointer to the file object */
vpcola	0:572d27f56fcd	3270	)
vpcola	0:572d27f56fcd	3271	{
vpcola	0:572d27f56fcd	3272	FRESULT res;
vpcola	0:572d27f56fcd	3273	DWORD ncl;
vpcola	0:572d27f56fcd	3274
vpcola	0:572d27f56fcd	3275
vpcola	0:572d27f56fcd	3276	if (!fp) return FR_INVALID_OBJECT;
vpcola	0:572d27f56fcd	3277
vpcola	0:572d27f56fcd	3278	res = validate(fp); /* Check validity of the object */
vpcola	0:572d27f56fcd	3279	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3280	if (fp->flag & FA__ERROR) { /* Check abort flag */
vpcola	0:572d27f56fcd	3281	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3282	} else {
vpcola	0:572d27f56fcd	3283	if (!(fp->flag & FA_WRITE)) /* Check access mode */
vpcola	0:572d27f56fcd	3284	res = FR_DENIED;
vpcola	0:572d27f56fcd	3285	}
vpcola	0:572d27f56fcd	3286	}
vpcola	0:572d27f56fcd	3287	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3288	if (fp->fsize > fp->fptr) {
vpcola	0:572d27f56fcd	3289	fp->fsize = fp->fptr; /* Set file size to current R/W point */
vpcola	0:572d27f56fcd	3290	fp->flag \|= FA__WRITTEN;
vpcola	0:572d27f56fcd	3291	if (fp->fptr == 0) { /* When set file size to zero, remove entire cluster chain */
vpcola	0:572d27f56fcd	3292	res = remove_chain(fp->fs, fp->sclust);
vpcola	0:572d27f56fcd	3293	fp->sclust = 0;
vpcola	0:572d27f56fcd	3294	} else { /* When truncate a part of the file, remove remaining clusters */
vpcola	0:572d27f56fcd	3295	ncl = get_fat(fp->fs, fp->clust);
vpcola	0:572d27f56fcd	3296	res = FR_OK;
vpcola	0:572d27f56fcd	3297	if (ncl == 0xFFFFFFFF) res = FR_DISK_ERR;
vpcola	0:572d27f56fcd	3298	if (ncl == 1) res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3299	if (res == FR_OK && ncl < fp->fs->n_fatent) {
vpcola	0:572d27f56fcd	3300	res = put_fat(fp->fs, fp->clust, 0x0FFFFFFF);
vpcola	0:572d27f56fcd	3301	if (res == FR_OK) res = remove_chain(fp->fs, ncl);
vpcola	0:572d27f56fcd	3302	}
vpcola	0:572d27f56fcd	3303	}
vpcola	0:572d27f56fcd	3304	}
vpcola	0:572d27f56fcd	3305	if (res != FR_OK) fp->flag \|= FA__ERROR;
vpcola	0:572d27f56fcd	3306	}
vpcola	0:572d27f56fcd	3307
vpcola	0:572d27f56fcd	3308	LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	3309	}
vpcola	0:572d27f56fcd	3310
vpcola	0:572d27f56fcd	3311
vpcola	0:572d27f56fcd	3312
vpcola	0:572d27f56fcd	3313
vpcola	0:572d27f56fcd	3314	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3315	/* Delete a File or Directory */
vpcola	0:572d27f56fcd	3316	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3317
vpcola	0:572d27f56fcd	3318	FRESULT f_unlink (
vpcola	0:572d27f56fcd	3319	const TCHAR path / Pointer to the file or directory path */
vpcola	0:572d27f56fcd	3320	)
vpcola	0:572d27f56fcd	3321	{
vpcola	0:572d27f56fcd	3322	FRESULT res;
vpcola	0:572d27f56fcd	3323	FATFS_DIR dj, sdj;
vpcola	0:572d27f56fcd	3324	BYTE *dir;
vpcola	0:572d27f56fcd	3325	DWORD dclst;
vpcola	0:572d27f56fcd	3326	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3327
vpcola	0:572d27f56fcd	3328
vpcola	0:572d27f56fcd	3329	res = chk_mounted(&path, &dj.fs, 1);
vpcola	0:572d27f56fcd	3330	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3331	INIT_BUF(dj);
vpcola	0:572d27f56fcd	3332	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	3333	if (_FS_RPATH && res == FR_OK && (dj.fn[NS] & NS_DOT))
vpcola	0:572d27f56fcd	3334	res = FR_INVALID_NAME; /* Cannot remove dot entry */
vpcola	0:572d27f56fcd	3335	#if _FS_LOCK
vpcola	0:572d27f56fcd	3336	if (res == FR_OK) res = chk_lock(&dj, 2); /* Cannot remove open file */
vpcola	0:572d27f56fcd	3337	#endif
vpcola	0:572d27f56fcd	3338	if (res == FR_OK) { /* The object is accessible */
vpcola	0:572d27f56fcd	3339	dir = dj.dir;
vpcola	0:572d27f56fcd	3340	if (!dir) {
vpcola	0:572d27f56fcd	3341	res = FR_INVALID_NAME; /* Cannot remove the start directory */
vpcola	0:572d27f56fcd	3342	} else {
vpcola	0:572d27f56fcd	3343	if (dir[DIR_Attr] & AM_RDO)
vpcola	0:572d27f56fcd	3344	res = FR_DENIED; /* Cannot remove R/O object */
vpcola	0:572d27f56fcd	3345	}
vpcola	0:572d27f56fcd	3346	dclst = ld_clust(dj.fs, dir);
vpcola	0:572d27f56fcd	3347	if (res == FR_OK && (dir[DIR_Attr] & AM_DIR)) { /* Is it a sub-dir? */
vpcola	0:572d27f56fcd	3348	if (dclst < 2) {
vpcola	0:572d27f56fcd	3349	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3350	} else {
vpcola	0:572d27f56fcd	3351	mem_cpy(&sdj, &dj, sizeof (FATFS_DIR)); /* Check if the sub-dir is empty or not */
vpcola	0:572d27f56fcd	3352	sdj.sclust = dclst;
vpcola	0:572d27f56fcd	3353	res = dir_sdi(&sdj, 2); /* Exclude dot entries */
vpcola	0:572d27f56fcd	3354	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3355	res = dir_read(&sdj);
vpcola	0:572d27f56fcd	3356	if (res == FR_OK /* Not empty dir */
vpcola	0:572d27f56fcd	3357	#if _FS_RPATH
vpcola	0:572d27f56fcd	3358	\|\| dclst == dj.fs->cdir /* Current dir */
vpcola	0:572d27f56fcd	3359	#endif
vpcola	0:572d27f56fcd	3360	) res = FR_DENIED;
vpcola	0:572d27f56fcd	3361	if (res == FR_NO_FILE) res = FR_OK; /* Empty */
vpcola	0:572d27f56fcd	3362	}
vpcola	0:572d27f56fcd	3363	}
vpcola	0:572d27f56fcd	3364	}
vpcola	0:572d27f56fcd	3365	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3366	res = dir_remove(&dj); /* Remove the directory entry */
vpcola	0:572d27f56fcd	3367	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3368	if (dclst) /* Remove the cluster chain if exist */
vpcola	0:572d27f56fcd	3369	res = remove_chain(dj.fs, dclst);
vpcola	0:572d27f56fcd	3370	if (res == FR_OK) res = sync(dj.fs);
vpcola	0:572d27f56fcd	3371	}
vpcola	0:572d27f56fcd	3372	}
vpcola	0:572d27f56fcd	3373	}
vpcola	0:572d27f56fcd	3374	FREE_BUF();
vpcola	0:572d27f56fcd	3375	}
vpcola	0:572d27f56fcd	3376	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	3377	}
vpcola	0:572d27f56fcd	3378
vpcola	0:572d27f56fcd	3379
vpcola	0:572d27f56fcd	3380
vpcola	0:572d27f56fcd	3381
vpcola	0:572d27f56fcd	3382	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3383	/* Create a Directory */
vpcola	0:572d27f56fcd	3384	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3385
vpcola	0:572d27f56fcd	3386	FRESULT f_mkdir (
vpcola	0:572d27f56fcd	3387	const TCHAR path / Pointer to the directory path */
vpcola	0:572d27f56fcd	3388	)
vpcola	0:572d27f56fcd	3389	{
vpcola	0:572d27f56fcd	3390	FRESULT res;
vpcola	0:572d27f56fcd	3391	FATFS_DIR dj;
vpcola	0:572d27f56fcd	3392	BYTE *dir, n;
vpcola	0:572d27f56fcd	3393	DWORD dsc, dcl, pcl, tim = get_fattime();
vpcola	0:572d27f56fcd	3394	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3395
vpcola	0:572d27f56fcd	3396
vpcola	0:572d27f56fcd	3397	res = chk_mounted(&path, &dj.fs, 1);
vpcola	0:572d27f56fcd	3398	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3399	INIT_BUF(dj);
vpcola	0:572d27f56fcd	3400	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	3401	if (res == FR_OK) res = FR_EXIST; /* Any object with same name is already existing */
vpcola	0:572d27f56fcd	3402	if (_FS_RPATH && res == FR_NO_FILE && (dj.fn[NS] & NS_DOT))
vpcola	0:572d27f56fcd	3403	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3404	if (res == FR_NO_FILE) { /* Can create a new directory */
vpcola	0:572d27f56fcd	3405	dcl = create_chain(dj.fs, 0); /* Allocate a cluster for the new directory table */
vpcola	0:572d27f56fcd	3406	res = FR_OK;
vpcola	0:572d27f56fcd	3407	if (dcl == 0) res = FR_DENIED; /* No space to allocate a new cluster */
vpcola	0:572d27f56fcd	3408	if (dcl == 1) res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3409	if (dcl == 0xFFFFFFFF) res = FR_DISK_ERR;
vpcola	0:572d27f56fcd	3410	if (res == FR_OK) /* Flush FAT */
vpcola	0:572d27f56fcd	3411	res = move_window(dj.fs, 0);
vpcola	0:572d27f56fcd	3412	if (res == FR_OK) { /* Initialize the new directory table */
vpcola	0:572d27f56fcd	3413	dsc = clust2sect(dj.fs, dcl);
vpcola	0:572d27f56fcd	3414	dir = dj.fs->win;
vpcola	0:572d27f56fcd	3415	mem_set(dir, 0, SS(dj.fs));
vpcola	0:572d27f56fcd	3416	mem_set(dir+DIR_Name, ' ', 8+3); /* Create "." entry */
vpcola	0:572d27f56fcd	3417	dir[DIR_Name] = '.';
vpcola	0:572d27f56fcd	3418	dir[DIR_Attr] = AM_DIR;
vpcola	0:572d27f56fcd	3419	ST_DWORD(dir+DIR_WrtTime, tim);
vpcola	0:572d27f56fcd	3420	st_clust(dir, dcl);
vpcola	0:572d27f56fcd	3421	mem_cpy(dir+SZ_DIR, dir, SZ_DIR); /* Create ".." entry */
vpcola	0:572d27f56fcd	3422	dir[33] = '.';
vpcola	0:572d27f56fcd	3423	pcl = dj.sclust;
vpcola	0:572d27f56fcd	3424	if (dj.fs->fs_type == FS_FAT32 && pcl == dj.fs->dirbase)
vpcola	0:572d27f56fcd	3425	pcl = 0;
vpcola	0:572d27f56fcd	3426	st_clust(dir+SZ_DIR, pcl);
vpcola	0:572d27f56fcd	3427	for (n = dj.fs->csize; n; n--) { /* Write dot entries and clear following sectors */
vpcola	0:572d27f56fcd	3428	dj.fs->winsect = dsc++;
vpcola	0:572d27f56fcd	3429	dj.fs->wflag = 1;
vpcola	0:572d27f56fcd	3430	res = move_window(dj.fs, 0);
vpcola	0:572d27f56fcd	3431	if (res != FR_OK) break;
vpcola	0:572d27f56fcd	3432	mem_set(dir, 0, SS(dj.fs));
vpcola	0:572d27f56fcd	3433	}
vpcola	0:572d27f56fcd	3434	}
vpcola	0:572d27f56fcd	3435	if (res == FR_OK) res = dir_register(&dj); /* Register the object to the directoy */
vpcola	0:572d27f56fcd	3436	if (res != FR_OK) {
vpcola	0:572d27f56fcd	3437	remove_chain(dj.fs, dcl); /* Could not register, remove cluster chain */
vpcola	0:572d27f56fcd	3438	} else {
vpcola	0:572d27f56fcd	3439	dir = dj.dir;
vpcola	0:572d27f56fcd	3440	dir[DIR_Attr] = AM_DIR; /* Attribute */
vpcola	0:572d27f56fcd	3441	ST_DWORD(dir+DIR_WrtTime, tim); /* Created time */
vpcola	0:572d27f56fcd	3442	st_clust(dir, dcl); /* Table start cluster */
vpcola	0:572d27f56fcd	3443	dj.fs->wflag = 1;
vpcola	0:572d27f56fcd	3444	res = sync(dj.fs);
vpcola	0:572d27f56fcd	3445	}
vpcola	0:572d27f56fcd	3446	}
vpcola	0:572d27f56fcd	3447	FREE_BUF();
vpcola	0:572d27f56fcd	3448	}
vpcola	0:572d27f56fcd	3449
vpcola	0:572d27f56fcd	3450	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	3451	}
vpcola	0:572d27f56fcd	3452
vpcola	0:572d27f56fcd	3453
vpcola	0:572d27f56fcd	3454
vpcola	0:572d27f56fcd	3455
vpcola	0:572d27f56fcd	3456	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3457	/* Change Attribute */
vpcola	0:572d27f56fcd	3458	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3459
vpcola	0:572d27f56fcd	3460	FRESULT f_chmod (
vpcola	0:572d27f56fcd	3461	const TCHAR path, / Pointer to the file path */
vpcola	0:572d27f56fcd	3462	BYTE value, /* Attribute bits */
vpcola	0:572d27f56fcd	3463	BYTE mask /* Attribute mask to change */
vpcola	0:572d27f56fcd	3464	)
vpcola	0:572d27f56fcd	3465	{
vpcola	0:572d27f56fcd	3466	FRESULT res;
vpcola	0:572d27f56fcd	3467	FATFS_DIR dj;
vpcola	0:572d27f56fcd	3468	BYTE *dir;
vpcola	0:572d27f56fcd	3469	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3470
vpcola	0:572d27f56fcd	3471
vpcola	0:572d27f56fcd	3472	res = chk_mounted(&path, &dj.fs, 1);
vpcola	0:572d27f56fcd	3473	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3474	INIT_BUF(dj);
vpcola	0:572d27f56fcd	3475	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	3476	FREE_BUF();
vpcola	0:572d27f56fcd	3477	if (_FS_RPATH && res == FR_OK && (dj.fn[NS] & NS_DOT))
vpcola	0:572d27f56fcd	3478	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3479	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3480	dir = dj.dir;
vpcola	0:572d27f56fcd	3481	if (!dir) { /* Is it a root directory? */
vpcola	0:572d27f56fcd	3482	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3483	} else { /* File or sub directory */
vpcola	0:572d27f56fcd	3484	mask &= AM_RDO\|AM_HID\|AM_SYS\|AM_ARC; /* Valid attribute mask */
vpcola	0:572d27f56fcd	3485	dir[DIR_Attr] = (value & mask) \| (dir[DIR_Attr] & (BYTE)~mask); /* Apply attribute change */
vpcola	0:572d27f56fcd	3486	dj.fs->wflag = 1;
vpcola	0:572d27f56fcd	3487	res = sync(dj.fs);
vpcola	0:572d27f56fcd	3488	}
vpcola	0:572d27f56fcd	3489	}
vpcola	0:572d27f56fcd	3490	}
vpcola	0:572d27f56fcd	3491
vpcola	0:572d27f56fcd	3492	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	3493	}
vpcola	0:572d27f56fcd	3494
vpcola	0:572d27f56fcd	3495
vpcola	0:572d27f56fcd	3496
vpcola	0:572d27f56fcd	3497
vpcola	0:572d27f56fcd	3498	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3499	/* Change Timestamp */
vpcola	0:572d27f56fcd	3500	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3501
vpcola	0:572d27f56fcd	3502	FRESULT f_utime (
vpcola	0:572d27f56fcd	3503	const TCHAR path, / Pointer to the file/directory name */
vpcola	0:572d27f56fcd	3504	const FILINFO fno / Pointer to the time stamp to be set */
vpcola	0:572d27f56fcd	3505	)
vpcola	0:572d27f56fcd	3506	{
vpcola	0:572d27f56fcd	3507	FRESULT res;
vpcola	0:572d27f56fcd	3508	FATFS_DIR dj;
vpcola	0:572d27f56fcd	3509	BYTE *dir;
vpcola	0:572d27f56fcd	3510	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3511
vpcola	0:572d27f56fcd	3512
vpcola	0:572d27f56fcd	3513	res = chk_mounted(&path, &dj.fs, 1);
vpcola	0:572d27f56fcd	3514	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3515	INIT_BUF(dj);
vpcola	0:572d27f56fcd	3516	res = follow_path(&dj, path); /* Follow the file path */
vpcola	0:572d27f56fcd	3517	FREE_BUF();
vpcola	0:572d27f56fcd	3518	if (_FS_RPATH && res == FR_OK && (dj.fn[NS] & NS_DOT))
vpcola	0:572d27f56fcd	3519	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3520	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3521	dir = dj.dir;
vpcola	0:572d27f56fcd	3522	if (!dir) { /* Root directory */
vpcola	0:572d27f56fcd	3523	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3524	} else { /* File or sub-directory */
vpcola	0:572d27f56fcd	3525	ST_WORD(dir+DIR_WrtTime, fno->ftime);
vpcola	0:572d27f56fcd	3526	ST_WORD(dir+DIR_WrtDate, fno->fdate);
vpcola	0:572d27f56fcd	3527	dj.fs->wflag = 1;
vpcola	0:572d27f56fcd	3528	res = sync(dj.fs);
vpcola	0:572d27f56fcd	3529	}
vpcola	0:572d27f56fcd	3530	}
vpcola	0:572d27f56fcd	3531	}
vpcola	0:572d27f56fcd	3532
vpcola	0:572d27f56fcd	3533	LEAVE_FF(dj.fs, res);
vpcola	0:572d27f56fcd	3534	}
vpcola	0:572d27f56fcd	3535
vpcola	0:572d27f56fcd	3536
vpcola	0:572d27f56fcd	3537
vpcola	0:572d27f56fcd	3538
vpcola	0:572d27f56fcd	3539	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3540	/* Rename File/Directory */
vpcola	0:572d27f56fcd	3541	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3542
vpcola	0:572d27f56fcd	3543	FRESULT f_rename (
vpcola	0:572d27f56fcd	3544	const TCHAR path_old, / Pointer to the old name */
vpcola	0:572d27f56fcd	3545	const TCHAR path_new / Pointer to the new name */
vpcola	0:572d27f56fcd	3546	)
vpcola	0:572d27f56fcd	3547	{
vpcola	0:572d27f56fcd	3548	FRESULT res;
vpcola	0:572d27f56fcd	3549	FATFS_DIR djo, djn;
vpcola	0:572d27f56fcd	3550	BYTE buf[21], *dir;
vpcola	0:572d27f56fcd	3551	DWORD dw;
vpcola	0:572d27f56fcd	3552	DEF_NAMEBUF;
vpcola	0:572d27f56fcd	3553
vpcola	0:572d27f56fcd	3554
vpcola	0:572d27f56fcd	3555	res = chk_mounted(&path_old, &djo.fs, 1);
vpcola	0:572d27f56fcd	3556	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3557	djn.fs = djo.fs;
vpcola	0:572d27f56fcd	3558	INIT_BUF(djo);
vpcola	0:572d27f56fcd	3559	res = follow_path(&djo, path_old); /* Check old object */
vpcola	0:572d27f56fcd	3560	if (_FS_RPATH && res == FR_OK && (djo.fn[NS] & NS_DOT))
vpcola	0:572d27f56fcd	3561	res = FR_INVALID_NAME;
vpcola	0:572d27f56fcd	3562	#if _FS_LOCK
vpcola	0:572d27f56fcd	3563	if (res == FR_OK) res = chk_lock(&djo, 2);
vpcola	0:572d27f56fcd	3564	#endif
vpcola	0:572d27f56fcd	3565	if (res == FR_OK) { /* Old object is found */
vpcola	0:572d27f56fcd	3566	if (!djo.dir) { /* Is root dir? */
vpcola	0:572d27f56fcd	3567	res = FR_NO_FILE;
vpcola	0:572d27f56fcd	3568	} else {
vpcola	0:572d27f56fcd	3569	mem_cpy(buf, djo.dir+DIR_Attr, 21); /* Save the object information except for name */
vpcola	0:572d27f56fcd	3570	mem_cpy(&djn, &djo, sizeof (FATFS_DIR)); /* Check new object */
vpcola	0:572d27f56fcd	3571	res = follow_path(&djn, path_new);
vpcola	0:572d27f56fcd	3572	if (res == FR_OK) res = FR_EXIST; /* The new object name is already existing */
vpcola	0:572d27f56fcd	3573	if (res == FR_NO_FILE) { /* Is it a valid path and no name collision? */
vpcola	0:572d27f56fcd	3574	/* Start critical section that an interruption or error can cause cross-link */
vpcola	0:572d27f56fcd	3575	res = dir_register(&djn); /* Register the new entry */
vpcola	0:572d27f56fcd	3576	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3577	dir = djn.dir; /* Copy object information except for name */
vpcola	0:572d27f56fcd	3578	mem_cpy(dir+13, buf+2, 19);
vpcola	0:572d27f56fcd	3579	dir[DIR_Attr] = buf[0] \| AM_ARC;
vpcola	0:572d27f56fcd	3580	djo.fs->wflag = 1;
vpcola	0:572d27f56fcd	3581	if (djo.sclust != djn.sclust && (dir[DIR_Attr] & AM_DIR)) { /* Update .. entry in the directory if needed */
vpcola	0:572d27f56fcd	3582	dw = clust2sect(djo.fs, ld_clust(djo.fs, dir));
vpcola	0:572d27f56fcd	3583	if (!dw) {
vpcola	0:572d27f56fcd	3584	res = FR_INT_ERR;
vpcola	0:572d27f56fcd	3585	} else {
vpcola	0:572d27f56fcd	3586	res = move_window(djo.fs, dw);
vpcola	0:572d27f56fcd	3587	dir = djo.fs->win+SZ_DIR; /* .. entry */
vpcola	0:572d27f56fcd	3588	if (res == FR_OK && dir[1] == '.') {
vpcola	0:572d27f56fcd	3589	dw = (djo.fs->fs_type == FS_FAT32 && djn.sclust == djo.fs->dirbase) ? 0 : djn.sclust;
vpcola	0:572d27f56fcd	3590	st_clust(dir, dw);
vpcola	0:572d27f56fcd	3591	djo.fs->wflag = 1;
vpcola	0:572d27f56fcd	3592	}
vpcola	0:572d27f56fcd	3593	}
vpcola	0:572d27f56fcd	3594	}
vpcola	0:572d27f56fcd	3595	if (res == FR_OK) {
vpcola	0:572d27f56fcd	3596	res = dir_remove(&djo); /* Remove old entry */
vpcola	0:572d27f56fcd	3597	if (res == FR_OK)
vpcola	0:572d27f56fcd	3598	res = sync(djo.fs);
vpcola	0:572d27f56fcd	3599	}
vpcola	0:572d27f56fcd	3600	}
vpcola	0:572d27f56fcd	3601	/* End critical section */
vpcola	0:572d27f56fcd	3602	}
vpcola	0:572d27f56fcd	3603	}
vpcola	0:572d27f56fcd	3604	}
vpcola	0:572d27f56fcd	3605	FREE_BUF();
vpcola	0:572d27f56fcd	3606	}
vpcola	0:572d27f56fcd	3607	LEAVE_FF(djo.fs, res);
vpcola	0:572d27f56fcd	3608	}
vpcola	0:572d27f56fcd	3609
vpcola	0:572d27f56fcd	3610	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	3611	#endif /* _FS_MINIMIZE == 0 */
vpcola	0:572d27f56fcd	3612	#endif /* _FS_MINIMIZE <= 1 */
vpcola	0:572d27f56fcd	3613	#endif /* _FS_MINIMIZE <= 2 */
vpcola	0:572d27f56fcd	3614
vpcola	0:572d27f56fcd	3615
vpcola	0:572d27f56fcd	3616
vpcola	0:572d27f56fcd	3617	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3618	/* Forward data to the stream directly (available on only tiny cfg) */
vpcola	0:572d27f56fcd	3619	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3620	#if _USE_FORWARD && _FS_TINY
vpcola	0:572d27f56fcd	3621
vpcola	0:572d27f56fcd	3622	FRESULT f_forward (
vpcola	0:572d27f56fcd	3623	FIL fp, / Pointer to the file object */
vpcola	0:572d27f56fcd	3624	UINT (func)(const BYTE,UINT), /* Pointer to the streaming function */
vpcola	0:572d27f56fcd	3625	UINT btr, /* Number of bytes to forward */
vpcola	0:572d27f56fcd	3626	UINT bf / Pointer to number of bytes forwarded */
vpcola	0:572d27f56fcd	3627	)
vpcola	0:572d27f56fcd	3628	{
vpcola	0:572d27f56fcd	3629	FRESULT res;
vpcola	0:572d27f56fcd	3630	DWORD remain, clst, sect;
vpcola	0:572d27f56fcd	3631	UINT rcnt;
vpcola	0:572d27f56fcd	3632	BYTE csect;
vpcola	0:572d27f56fcd	3633
vpcola	0:572d27f56fcd	3634
vpcola	0:572d27f56fcd	3635	bf = 0; / Clear transfer byte counter */
vpcola	0:572d27f56fcd	3636
vpcola	0:572d27f56fcd	3637	if (!fp) return FR_INVALID_OBJECT;
vpcola	0:572d27f56fcd	3638
vpcola	0:572d27f56fcd	3639	res = validate(fp); /* Check validity of the object */
vpcola	0:572d27f56fcd	3640	if (res != FR_OK) LEAVE_FF(fp->fs, res);
vpcola	0:572d27f56fcd	3641	if (fp->flag & FA__ERROR) /* Check error flag */
vpcola	0:572d27f56fcd	3642	LEAVE_FF(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3643	if (!(fp->flag & FA_READ)) /* Check access mode */
vpcola	0:572d27f56fcd	3644	LEAVE_FF(fp->fs, FR_DENIED);
vpcola	0:572d27f56fcd	3645
vpcola	0:572d27f56fcd	3646	remain = fp->fsize - fp->fptr;
vpcola	0:572d27f56fcd	3647	if (btr > remain) btr = (UINT)remain; /* Truncate btr by remaining bytes */
vpcola	0:572d27f56fcd	3648
vpcola	0:572d27f56fcd	3649	for ( ; btr && (func)(0, 0); / Repeat until all data transferred or stream becomes busy */
vpcola	0:572d27f56fcd	3650	fp->fptr += rcnt, *bf += rcnt, btr -= rcnt) {
vpcola	0:572d27f56fcd	3651	csect = (BYTE)(fp->fptr / SS(fp->fs) & (fp->fs->csize - 1)); /* Sector offset in the cluster */
vpcola	0:572d27f56fcd	3652	if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
vpcola	0:572d27f56fcd	3653	if (!csect) { /* On the cluster boundary? */
vpcola	0:572d27f56fcd	3654	clst = (fp->fptr == 0) ? /* On the top of the file? */
vpcola	0:572d27f56fcd	3655	fp->sclust : get_fat(fp->fs, fp->clust);
vpcola	0:572d27f56fcd	3656	if (clst <= 1) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3657	if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3658	fp->clust = clst; /* Update current cluster */
vpcola	0:572d27f56fcd	3659	}
vpcola	0:572d27f56fcd	3660	}
vpcola	0:572d27f56fcd	3661	sect = clust2sect(fp->fs, fp->clust); /* Get current data sector */
vpcola	0:572d27f56fcd	3662	if (!sect) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3663	sect += csect;
vpcola	0:572d27f56fcd	3664	if (move_window(fp->fs, sect)) /* Move sector window */
vpcola	0:572d27f56fcd	3665	ABORT(fp->fs, FR_DISK_ERR);
vpcola	0:572d27f56fcd	3666	fp->dsect = sect;
vpcola	0:572d27f56fcd	3667	rcnt = SS(fp->fs) - (WORD)(fp->fptr % SS(fp->fs)); /* Forward data from sector window */
vpcola	0:572d27f56fcd	3668	if (rcnt > btr) rcnt = btr;
vpcola	0:572d27f56fcd	3669	rcnt = (*func)(&fp->fs->win[(WORD)fp->fptr % SS(fp->fs)], rcnt);
vpcola	0:572d27f56fcd	3670	if (!rcnt) ABORT(fp->fs, FR_INT_ERR);
vpcola	0:572d27f56fcd	3671	}
vpcola	0:572d27f56fcd	3672
vpcola	0:572d27f56fcd	3673	LEAVE_FF(fp->fs, FR_OK);
vpcola	0:572d27f56fcd	3674	}
vpcola	0:572d27f56fcd	3675	#endif /* _USE_FORWARD */
vpcola	0:572d27f56fcd	3676
vpcola	0:572d27f56fcd	3677
vpcola	0:572d27f56fcd	3678
vpcola	0:572d27f56fcd	3679	#if _USE_MKFS && !_FS_READONLY
vpcola	0:572d27f56fcd	3680	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3681	/* Create File System on the Drive */
vpcola	0:572d27f56fcd	3682	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3683	#define N_ROOTDIR 512 /* Number of root dir entries for FAT12/16 */
vpcola	0:572d27f56fcd	3684	#define N_FATS 1 /* Number of FAT copies (1 or 2) */
vpcola	0:572d27f56fcd	3685
vpcola	0:572d27f56fcd	3686
vpcola	0:572d27f56fcd	3687	FRESULT f_mkfs (
vpcola	0:572d27f56fcd	3688	BYTE drv, /* Logical drive number */
vpcola	0:572d27f56fcd	3689	BYTE sfd, /* Partitioning rule 0:FDISK, 1:SFD */
vpcola	0:572d27f56fcd	3690	UINT au /* Allocation unit size [bytes] */
vpcola	0:572d27f56fcd	3691	)
vpcola	0:572d27f56fcd	3692	{
vpcola	0:572d27f56fcd	3693	static const WORD vst[] = { 1024, 512, 256, 128, 64, 32, 16, 8, 4, 2, 0};
vpcola	0:572d27f56fcd	3694	static const WORD cst[] = {32768, 16384, 8192, 4096, 2048, 16384, 8192, 4096, 2048, 1024, 512};
vpcola	0:572d27f56fcd	3695	BYTE fmt, md, sys, *tbl, pdrv, part;
vpcola	0:572d27f56fcd	3696	DWORD n_clst, vs, n, wsect;
vpcola	0:572d27f56fcd	3697	UINT i;
vpcola	0:572d27f56fcd	3698	DWORD b_vol, b_fat, b_dir, b_data; /* LBA */
vpcola	0:572d27f56fcd	3699	DWORD n_vol, n_rsv, n_fat, n_dir; /* Size */
vpcola	0:572d27f56fcd	3700	FATFS *fs;
vpcola	0:572d27f56fcd	3701	DSTATUS stat;
vpcola	0:572d27f56fcd	3702
vpcola	0:572d27f56fcd	3703
vpcola	0:572d27f56fcd	3704	/* Check mounted drive and clear work area */
vpcola	0:572d27f56fcd	3705	if (drv >= _VOLUMES) return FR_INVALID_DRIVE;
vpcola	0:572d27f56fcd	3706	if (sfd > 1) return FR_INVALID_PARAMETER;
vpcola	0:572d27f56fcd	3707	if (au & (au - 1)) return FR_INVALID_PARAMETER;
vpcola	0:572d27f56fcd	3708	fs = FatFs[drv];
vpcola	0:572d27f56fcd	3709	if (!fs) return FR_NOT_ENABLED;
vpcola	0:572d27f56fcd	3710	fs->fs_type = 0;
vpcola	0:572d27f56fcd	3711	pdrv = LD2PD(drv); /* Physical drive */
vpcola	0:572d27f56fcd	3712	part = LD2PT(drv); /* Partition (0:auto detect, 1-4:get from partition table)*/
vpcola	0:572d27f56fcd	3713
vpcola	0:572d27f56fcd	3714	/* Get disk statics */
vpcola	0:572d27f56fcd	3715	stat = disk_initialize(pdrv);
vpcola	0:572d27f56fcd	3716	if (stat & STA_NOINIT) return FR_NOT_READY;
vpcola	0:572d27f56fcd	3717	if (stat & STA_PROTECT) return FR_WRITE_PROTECTED;
vpcola	0:572d27f56fcd	3718	#if _MAX_SS != 512 /* Get disk sector size */
vpcola	0:572d27f56fcd	3719	if (disk_ioctl(pdrv, GET_SECTOR_SIZE, &SS(fs)) != RES_OK \|\| SS(fs) > _MAX_SS)
vpcola	0:572d27f56fcd	3720	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3721	#endif
vpcola	0:572d27f56fcd	3722	if (_MULTI_PARTITION && part) {
vpcola	0:572d27f56fcd	3723	/* Get partition information from partition table in the MBR */
vpcola	0:572d27f56fcd	3724	if (disk_read(pdrv, fs->win, 0, 1) != RES_OK) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3725	if (LD_WORD(fs->win+BS_55AA) != 0xAA55) return FR_MKFS_ABORTED;
vpcola	0:572d27f56fcd	3726	tbl = &fs->win[MBR_Table + (part - 1) * SZ_PTE];
vpcola	0:572d27f56fcd	3727	if (!tbl[4]) return FR_MKFS_ABORTED; /* No partition? */
vpcola	0:572d27f56fcd	3728	b_vol = LD_DWORD(tbl+8); /* Volume start sector */
vpcola	0:572d27f56fcd	3729	n_vol = LD_DWORD(tbl+12); /* Volume size */
vpcola	0:572d27f56fcd	3730	} else {
vpcola	0:572d27f56fcd	3731	/* Create a partition in this function */
vpcola	0:572d27f56fcd	3732	if (disk_ioctl(pdrv, GET_SECTOR_COUNT, &n_vol) != RES_OK \|\| n_vol < 128)
vpcola	0:572d27f56fcd	3733	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3734	b_vol = (sfd) ? 0 : 63; /* Volume start sector */
vpcola	0:572d27f56fcd	3735	n_vol -= b_vol; /* Volume size */
vpcola	0:572d27f56fcd	3736	}
vpcola	0:572d27f56fcd	3737
vpcola	0:572d27f56fcd	3738	if (!au) { /* AU auto selection */
vpcola	0:572d27f56fcd	3739	vs = n_vol / (2000 / (SS(fs) / 512));
vpcola	0:572d27f56fcd	3740	for (i = 0; vs < vst[i]; i++) ;
vpcola	0:572d27f56fcd	3741	au = cst[i];
vpcola	0:572d27f56fcd	3742	}
vpcola	0:572d27f56fcd	3743	au /= SS(fs); /* Number of sectors per cluster */
vpcola	0:572d27f56fcd	3744	if (au == 0) au = 1;
vpcola	0:572d27f56fcd	3745	if (au > 128) au = 128;
vpcola	0:572d27f56fcd	3746
vpcola	0:572d27f56fcd	3747	/* Pre-compute number of clusters and FAT sub-type */
vpcola	0:572d27f56fcd	3748	n_clst = n_vol / au;
vpcola	0:572d27f56fcd	3749	fmt = FS_FAT12;
vpcola	0:572d27f56fcd	3750	if (n_clst >= MIN_FAT16) fmt = FS_FAT16;
vpcola	0:572d27f56fcd	3751	if (n_clst >= MIN_FAT32) fmt = FS_FAT32;
vpcola	0:572d27f56fcd	3752
vpcola	0:572d27f56fcd	3753	/* Determine offset and size of FAT structure */
vpcola	0:572d27f56fcd	3754	if (fmt == FS_FAT32) {
vpcola	0:572d27f56fcd	3755	n_fat = ((n_clst * 4) + 8 + SS(fs) - 1) / SS(fs);
vpcola	0:572d27f56fcd	3756	n_rsv = 32;
vpcola	0:572d27f56fcd	3757	n_dir = 0;
vpcola	0:572d27f56fcd	3758	} else {
vpcola	0:572d27f56fcd	3759	n_fat = (fmt == FS_FAT12) ? (n_clst * 3 + 1) / 2 + 3 : (n_clst * 2) + 4;
vpcola	0:572d27f56fcd	3760	n_fat = (n_fat + SS(fs) - 1) / SS(fs);
vpcola	0:572d27f56fcd	3761	n_rsv = 1;
vpcola	0:572d27f56fcd	3762	n_dir = (DWORD)N_ROOTDIR * SZ_DIR / SS(fs);
vpcola	0:572d27f56fcd	3763	}
vpcola	0:572d27f56fcd	3764	b_fat = b_vol + n_rsv; /* FAT area start sector */
vpcola	0:572d27f56fcd	3765	b_dir = b_fat + n_fat * N_FATS; /* Directory area start sector */
vpcola	0:572d27f56fcd	3766	b_data = b_dir + n_dir; /* Data area start sector */
vpcola	0:572d27f56fcd	3767	if (n_vol < b_data + au - b_vol) return FR_MKFS_ABORTED; /* Too small volume */
vpcola	0:572d27f56fcd	3768
vpcola	0:572d27f56fcd	3769	/* Align data start sector to erase block boundary (for flash memory media) */
vpcola	0:572d27f56fcd	3770	if (disk_ioctl(pdrv, GET_BLOCK_SIZE, &n) != RES_OK \|\| !n \|\| n > 32768) n = 1;
vpcola	0:572d27f56fcd	3771	n = (b_data + n - 1) & ~(n - 1); /* Next nearest erase block from current data start */
vpcola	0:572d27f56fcd	3772	n = (n - b_data) / N_FATS;
vpcola	0:572d27f56fcd	3773	if (fmt == FS_FAT32) { /* FAT32: Move FAT offset */
vpcola	0:572d27f56fcd	3774	n_rsv += n;
vpcola	0:572d27f56fcd	3775	b_fat += n;
vpcola	0:572d27f56fcd	3776	} else { /* FAT12/16: Expand FAT size */
vpcola	0:572d27f56fcd	3777	n_fat += n;
vpcola	0:572d27f56fcd	3778	}
vpcola	0:572d27f56fcd	3779
vpcola	0:572d27f56fcd	3780	/* Determine number of clusters and final check of validity of the FAT sub-type */
vpcola	0:572d27f56fcd	3781	n_clst = (n_vol - n_rsv - n_fat * N_FATS - n_dir) / au;
vpcola	0:572d27f56fcd	3782	if ( (fmt == FS_FAT16 && n_clst < MIN_FAT16)
vpcola	0:572d27f56fcd	3783	\|\| (fmt == FS_FAT32 && n_clst < MIN_FAT32))
vpcola	0:572d27f56fcd	3784	return FR_MKFS_ABORTED;
vpcola	0:572d27f56fcd	3785
vpcola	0:572d27f56fcd	3786	switch (fmt) { /* Determine system ID for partition table */
vpcola	0:572d27f56fcd	3787	case FS_FAT12:
vpcola	0:572d27f56fcd	3788	sys = 0x01;
vpcola	0:572d27f56fcd	3789	break;
vpcola	0:572d27f56fcd	3790	case FS_FAT16:
vpcola	0:572d27f56fcd	3791	sys = (n_vol < 0x10000) ? 0x04 : 0x06;
vpcola	0:572d27f56fcd	3792	break;
vpcola	0:572d27f56fcd	3793	default:
vpcola	0:572d27f56fcd	3794	sys = 0x0C;
vpcola	0:572d27f56fcd	3795	}
vpcola	0:572d27f56fcd	3796
vpcola	0:572d27f56fcd	3797	if (_MULTI_PARTITION && part) {
vpcola	0:572d27f56fcd	3798	/* Update system ID in the partition table */
vpcola	0:572d27f56fcd	3799	tbl = &fs->win[MBR_Table + (part - 1) * SZ_PTE];
vpcola	0:572d27f56fcd	3800	tbl[4] = sys;
vpcola	0:572d27f56fcd	3801	if (disk_write(pdrv, fs->win, 0, 1) != RES_OK) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3802	md = 0xF8;
vpcola	0:572d27f56fcd	3803	} else {
vpcola	0:572d27f56fcd	3804	if (sfd) { /* No partition table (SFD) */
vpcola	0:572d27f56fcd	3805	md = 0xF0;
vpcola	0:572d27f56fcd	3806	} else { /* Create partition table (FDISK) */
vpcola	0:572d27f56fcd	3807	mem_set(fs->win, 0, SS(fs));
vpcola	0:572d27f56fcd	3808	tbl = fs->win+MBR_Table; /* Create partition table for single partition in the drive */
vpcola	0:572d27f56fcd	3809	tbl[1] = 1; /* Partition start head */
vpcola	0:572d27f56fcd	3810	tbl[2] = 1; /* Partition start sector */
vpcola	0:572d27f56fcd	3811	tbl[3] = 0; /* Partition start cylinder */
vpcola	0:572d27f56fcd	3812	tbl[4] = sys; /* System type */
vpcola	0:572d27f56fcd	3813	tbl[5] = 254; /* Partition end head */
vpcola	0:572d27f56fcd	3814	n = (b_vol + n_vol) / 63 / 255;
vpcola	0:572d27f56fcd	3815	tbl[6] = (BYTE)((n >> 2) \| 63); /* Partition end sector */
vpcola	0:572d27f56fcd	3816	tbl[7] = (BYTE)n; /* End cylinder */
vpcola	0:572d27f56fcd	3817	ST_DWORD(tbl+8, 63); /* Partition start in LBA */
vpcola	0:572d27f56fcd	3818	ST_DWORD(tbl+12, n_vol); /* Partition size in LBA */
vpcola	0:572d27f56fcd	3819	ST_WORD(fs->win+BS_55AA, 0xAA55); /* MBR signature */
vpcola	0:572d27f56fcd	3820	if (disk_write(pdrv, fs->win, 0, 1) != RES_OK) /* Write it to the MBR sector */
vpcola	0:572d27f56fcd	3821	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3822	md = 0xF8;
vpcola	0:572d27f56fcd	3823	}
vpcola	0:572d27f56fcd	3824	}
vpcola	0:572d27f56fcd	3825
vpcola	0:572d27f56fcd	3826	/* Create BPB in the VBR */
vpcola	0:572d27f56fcd	3827	tbl = fs->win; /* Clear sector */
vpcola	0:572d27f56fcd	3828	mem_set(tbl, 0, SS(fs));
vpcola	0:572d27f56fcd	3829	mem_cpy(tbl, "\xEB\xFE\x90" "MSDOS5.0", 11);/* Boot jump code, OEM name */
vpcola	0:572d27f56fcd	3830	i = SS(fs); /* Sector size */
vpcola	0:572d27f56fcd	3831	ST_WORD(tbl+BPB_BytsPerSec, i);
vpcola	0:572d27f56fcd	3832	tbl[BPB_SecPerClus] = (BYTE)au; /* Sectors per cluster */
vpcola	0:572d27f56fcd	3833	ST_WORD(tbl+BPB_RsvdSecCnt, n_rsv); /* Reserved sectors */
vpcola	0:572d27f56fcd	3834	tbl[BPB_NumFATs] = N_FATS; /* Number of FATs */
vpcola	0:572d27f56fcd	3835	i = (fmt == FS_FAT32) ? 0 : N_ROOTDIR; /* Number of rootdir entries */
vpcola	0:572d27f56fcd	3836	ST_WORD(tbl+BPB_RootEntCnt, i);
vpcola	0:572d27f56fcd	3837	if (n_vol < 0x10000) { /* Number of total sectors */
vpcola	0:572d27f56fcd	3838	ST_WORD(tbl+BPB_TotSec16, n_vol);
vpcola	0:572d27f56fcd	3839	} else {
vpcola	0:572d27f56fcd	3840	ST_DWORD(tbl+BPB_TotSec32, n_vol);
vpcola	0:572d27f56fcd	3841	}
vpcola	0:572d27f56fcd	3842	tbl[BPB_Media] = md; /* Media descriptor */
vpcola	0:572d27f56fcd	3843	ST_WORD(tbl+BPB_SecPerTrk, 63); /* Number of sectors per track */
vpcola	0:572d27f56fcd	3844	ST_WORD(tbl+BPB_NumHeads, 255); /* Number of heads */
vpcola	0:572d27f56fcd	3845	ST_DWORD(tbl+BPB_HiddSec, b_vol); /* Hidden sectors */
vpcola	0:572d27f56fcd	3846	n = get_fattime(); /* Use current time as VSN */
vpcola	0:572d27f56fcd	3847	if (fmt == FS_FAT32) {
vpcola	0:572d27f56fcd	3848	ST_DWORD(tbl+BS_VolID32, n); /* VSN */
vpcola	0:572d27f56fcd	3849	ST_DWORD(tbl+BPB_FATSz32, n_fat); /* Number of sectors per FAT */
vpcola	0:572d27f56fcd	3850	ST_DWORD(tbl+BPB_RootClus, 2); /* Root directory start cluster (2) */
vpcola	0:572d27f56fcd	3851	ST_WORD(tbl+BPB_FSInfo, 1); /* FSInfo record offset (VBR+1) */
vpcola	0:572d27f56fcd	3852	ST_WORD(tbl+BPB_BkBootSec, 6); /* Backup boot record offset (VBR+6) */
vpcola	0:572d27f56fcd	3853	tbl[BS_DrvNum32] = 0x80; /* Drive number */
vpcola	0:572d27f56fcd	3854	tbl[BS_BootSig32] = 0x29; /* Extended boot signature */
vpcola	0:572d27f56fcd	3855	mem_cpy(tbl+BS_VolLab32, "NO NAME " "FAT32 ", 19); /* Volume label, FAT signature */
vpcola	0:572d27f56fcd	3856	} else {
vpcola	0:572d27f56fcd	3857	ST_DWORD(tbl+BS_VolID, n); /* VSN */
vpcola	0:572d27f56fcd	3858	ST_WORD(tbl+BPB_FATSz16, n_fat); /* Number of sectors per FAT */
vpcola	0:572d27f56fcd	3859	tbl[BS_DrvNum] = 0x80; /* Drive number */
vpcola	0:572d27f56fcd	3860	tbl[BS_BootSig] = 0x29; /* Extended boot signature */
vpcola	0:572d27f56fcd	3861	mem_cpy(tbl+BS_VolLab, "NO NAME " "FAT ", 19); /* Volume label, FAT signature */
vpcola	0:572d27f56fcd	3862	}
vpcola	0:572d27f56fcd	3863	ST_WORD(tbl+BS_55AA, 0xAA55); /* Signature (Offset is fixed here regardless of sector size) */
vpcola	0:572d27f56fcd	3864	if (disk_write(pdrv, tbl, b_vol, 1) != RES_OK) /* Write it to the VBR sector */
vpcola	0:572d27f56fcd	3865	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3866	if (fmt == FS_FAT32) /* Write backup VBR if needed (VBR+6) */
vpcola	0:572d27f56fcd	3867	disk_write(pdrv, tbl, b_vol + 6, 1);
vpcola	0:572d27f56fcd	3868
vpcola	0:572d27f56fcd	3869	/* Initialize FAT area */
vpcola	0:572d27f56fcd	3870	wsect = b_fat;
vpcola	0:572d27f56fcd	3871	for (i = 0; i < N_FATS; i++) { /* Initialize each FAT copy */
vpcola	0:572d27f56fcd	3872	mem_set(tbl, 0, SS(fs)); /* 1st sector of the FAT */
vpcola	0:572d27f56fcd	3873	n = md; /* Media descriptor byte */
vpcola	0:572d27f56fcd	3874	if (fmt != FS_FAT32) {
vpcola	0:572d27f56fcd	3875	n \|= (fmt == FS_FAT12) ? 0x00FFFF00 : 0xFFFFFF00;
vpcola	0:572d27f56fcd	3876	ST_DWORD(tbl+0, n); /* Reserve cluster #0-1 (FAT12/16) */
vpcola	0:572d27f56fcd	3877	} else {
vpcola	0:572d27f56fcd	3878	n \|= 0xFFFFFF00;
vpcola	0:572d27f56fcd	3879	ST_DWORD(tbl+0, n); /* Reserve cluster #0-1 (FAT32) */
vpcola	0:572d27f56fcd	3880	ST_DWORD(tbl+4, 0xFFFFFFFF);
vpcola	0:572d27f56fcd	3881	ST_DWORD(tbl+8, 0x0FFFFFFF); /* Reserve cluster #2 for root dir */
vpcola	0:572d27f56fcd	3882	}
vpcola	0:572d27f56fcd	3883	if (disk_write(pdrv, tbl, wsect++, 1) != RES_OK)
vpcola	0:572d27f56fcd	3884	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3885	mem_set(tbl, 0, SS(fs)); /* Fill following FAT entries with zero */
vpcola	0:572d27f56fcd	3886	for (n = 1; n < n_fat; n++) { /* This loop may take a time on FAT32 volume due to many single sector writes */
vpcola	0:572d27f56fcd	3887	if (disk_write(pdrv, tbl, wsect++, 1) != RES_OK)
vpcola	0:572d27f56fcd	3888	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3889	}
vpcola	0:572d27f56fcd	3890	}
vpcola	0:572d27f56fcd	3891
vpcola	0:572d27f56fcd	3892	/* Initialize root directory */
vpcola	0:572d27f56fcd	3893	i = (fmt == FS_FAT32) ? au : n_dir;
vpcola	0:572d27f56fcd	3894	do {
vpcola	0:572d27f56fcd	3895	if (disk_write(pdrv, tbl, wsect++, 1) != RES_OK)
vpcola	0:572d27f56fcd	3896	return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3897	} while (--i);
vpcola	0:572d27f56fcd	3898
vpcola	0:572d27f56fcd	3899	#if _USE_ERASE /* Erase data area if needed */
vpcola	0:572d27f56fcd	3900	{
vpcola	0:572d27f56fcd	3901	DWORD eb[2];
vpcola	0:572d27f56fcd	3902
vpcola	0:572d27f56fcd	3903	eb[0] = wsect;
vpcola	0:572d27f56fcd	3904	eb[1] = wsect + (n_clst - ((fmt == FS_FAT32) ? 1 : 0)) * au - 1;
vpcola	0:572d27f56fcd	3905	disk_ioctl(pdrv, CTRL_ERASE_SECTOR, eb);
vpcola	0:572d27f56fcd	3906	}
vpcola	0:572d27f56fcd	3907	#endif
vpcola	0:572d27f56fcd	3908
vpcola	0:572d27f56fcd	3909	/* Create FSInfo if needed */
vpcola	0:572d27f56fcd	3910	if (fmt == FS_FAT32) {
vpcola	0:572d27f56fcd	3911	ST_DWORD(tbl+FSI_LeadSig, 0x41615252);
vpcola	0:572d27f56fcd	3912	ST_DWORD(tbl+FSI_StrucSig, 0x61417272);
vpcola	0:572d27f56fcd	3913	ST_DWORD(tbl+FSI_Free_Count, n_clst - 1); /* Number of free clusters */
vpcola	0:572d27f56fcd	3914	ST_DWORD(tbl+FSI_Nxt_Free, 2); /* Last allocated cluster# */
vpcola	0:572d27f56fcd	3915	ST_WORD(tbl+BS_55AA, 0xAA55);
vpcola	0:572d27f56fcd	3916	disk_write(pdrv, tbl, b_vol + 1, 1); /* Write original (VBR+1) */
vpcola	0:572d27f56fcd	3917	disk_write(pdrv, tbl, b_vol + 7, 1); /* Write backup (VBR+7) */
vpcola	0:572d27f56fcd	3918	}
vpcola	0:572d27f56fcd	3919
vpcola	0:572d27f56fcd	3920	return (disk_ioctl(pdrv, CTRL_SYNC, 0) == RES_OK) ? FR_OK : FR_DISK_ERR;
vpcola	0:572d27f56fcd	3921	}
vpcola	0:572d27f56fcd	3922
vpcola	0:572d27f56fcd	3923
vpcola	0:572d27f56fcd	3924	#if _MULTI_PARTITION == 2
vpcola	0:572d27f56fcd	3925	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3926	/* Divide Physical Drive */
vpcola	0:572d27f56fcd	3927	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	3928
vpcola	0:572d27f56fcd	3929	FRESULT f_fdisk (
vpcola	0:572d27f56fcd	3930	BYTE pdrv, /* Physical drive number */
vpcola	0:572d27f56fcd	3931	const DWORD szt[], /* Pointer to the size table for each partitions */
vpcola	0:572d27f56fcd	3932	void* work /* Pointer to the working buffer */
vpcola	0:572d27f56fcd	3933	)
vpcola	0:572d27f56fcd	3934	{
vpcola	0:572d27f56fcd	3935	UINT i, n, sz_cyl, tot_cyl, b_cyl, e_cyl, p_cyl;
vpcola	0:572d27f56fcd	3936	BYTE s_hd, e_hd, p, buf = (BYTE*)work;
vpcola	0:572d27f56fcd	3937	DSTATUS stat;
vpcola	0:572d27f56fcd	3938	DWORD sz_disk, sz_part, s_part;
vpcola	0:572d27f56fcd	3939
vpcola	0:572d27f56fcd	3940
vpcola	0:572d27f56fcd	3941	stat = disk_initialize(pdrv);
vpcola	0:572d27f56fcd	3942	if (stat & STA_NOINIT) return FR_NOT_READY;
vpcola	0:572d27f56fcd	3943	if (stat & STA_PROTECT) return FR_WRITE_PROTECTED;
vpcola	0:572d27f56fcd	3944	if (disk_ioctl(pdrv, GET_SECTOR_COUNT, &sz_disk)) return FR_DISK_ERR;
vpcola	0:572d27f56fcd	3945
vpcola	0:572d27f56fcd	3946	/* Determine CHS in the table regardless of the drive geometry */
vpcola	0:572d27f56fcd	3947	for (n = 16; n < 256 && sz_disk / n / 63 > 1024; n *= 2) ;
vpcola	0:572d27f56fcd	3948	if (n == 256) n--;
vpcola	0:572d27f56fcd	3949	e_hd = n - 1;
vpcola	0:572d27f56fcd	3950	sz_cyl = 63 * n;
vpcola	0:572d27f56fcd	3951	tot_cyl = sz_disk / sz_cyl;
vpcola	0:572d27f56fcd	3952
vpcola	0:572d27f56fcd	3953	/* Create partition table */
vpcola	0:572d27f56fcd	3954	mem_set(buf, 0, _MAX_SS);
vpcola	0:572d27f56fcd	3955	p = buf + MBR_Table;
vpcola	0:572d27f56fcd	3956	b_cyl = 0;
vpcola	0:572d27f56fcd	3957	for (i = 0; i < 4; i++, p += SZ_PTE) {
vpcola	0:572d27f56fcd	3958	p_cyl = (szt[i] <= 100) ? (DWORD)tot_cyl * szt[i] / 100 : szt[i] / sz_cyl;
vpcola	0:572d27f56fcd	3959	if (!p_cyl) continue;
vpcola	0:572d27f56fcd	3960	s_part = (DWORD)sz_cyl * b_cyl;
vpcola	0:572d27f56fcd	3961	sz_part = (DWORD)sz_cyl * p_cyl;
vpcola	0:572d27f56fcd	3962	if (i == 0) { /* Exclude first track of cylinder 0 */
vpcola	0:572d27f56fcd	3963	s_hd = 1;
vpcola	0:572d27f56fcd	3964	s_part += 63;
vpcola	0:572d27f56fcd	3965	sz_part -= 63;
vpcola	0:572d27f56fcd	3966	} else {
vpcola	0:572d27f56fcd	3967	s_hd = 0;
vpcola	0:572d27f56fcd	3968	}
vpcola	0:572d27f56fcd	3969	e_cyl = b_cyl + p_cyl - 1;
vpcola	0:572d27f56fcd	3970	if (e_cyl >= tot_cyl) return FR_INVALID_PARAMETER;
vpcola	0:572d27f56fcd	3971
vpcola	0:572d27f56fcd	3972	/* Set partition table */
vpcola	0:572d27f56fcd	3973	p[1] = s_hd; /* Start head */
vpcola	0:572d27f56fcd	3974	p[2] = (BYTE)((b_cyl >> 2) + 1); /* Start sector */
vpcola	0:572d27f56fcd	3975	p[3] = (BYTE)b_cyl; /* Start cylinder */
vpcola	0:572d27f56fcd	3976	p[4] = 0x06; /* System type (temporary setting) */
vpcola	0:572d27f56fcd	3977	p[5] = e_hd; /* End head */
vpcola	0:572d27f56fcd	3978	p[6] = (BYTE)((e_cyl >> 2) + 63); /* End sector */
vpcola	0:572d27f56fcd	3979	p[7] = (BYTE)e_cyl; /* End cylinder */
vpcola	0:572d27f56fcd	3980	ST_DWORD(p + 8, s_part); /* Start sector in LBA */
vpcola	0:572d27f56fcd	3981	ST_DWORD(p + 12, sz_part); /* Partition size */
vpcola	0:572d27f56fcd	3982
vpcola	0:572d27f56fcd	3983	/* Next partition */
vpcola	0:572d27f56fcd	3984	b_cyl += p_cyl;
vpcola	0:572d27f56fcd	3985	}
vpcola	0:572d27f56fcd	3986	ST_WORD(p, 0xAA55);
vpcola	0:572d27f56fcd	3987
vpcola	0:572d27f56fcd	3988	/* Write it to the MBR */
vpcola	0:572d27f56fcd	3989	return (disk_write(pdrv, buf, 0, 1) \|\| disk_ioctl(pdrv, CTRL_SYNC, 0)) ? FR_DISK_ERR : FR_OK;
vpcola	0:572d27f56fcd	3990	}
vpcola	0:572d27f56fcd	3991
vpcola	0:572d27f56fcd	3992
vpcola	0:572d27f56fcd	3993	#endif /* _MULTI_PARTITION == 2 */
vpcola	0:572d27f56fcd	3994	#endif /* _USE_MKFS && !_FS_READONLY */
vpcola	0:572d27f56fcd	3995
vpcola	0:572d27f56fcd	3996
vpcola	0:572d27f56fcd	3997
vpcola	0:572d27f56fcd	3998
vpcola	0:572d27f56fcd	3999	#if _USE_STRFUNC
vpcola	0:572d27f56fcd	4000	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4001	/* Get a string from the file */
vpcola	0:572d27f56fcd	4002	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4003	TCHAR* f_gets (
vpcola	0:572d27f56fcd	4004	TCHAR* buff, /* Pointer to the string buffer to read */
vpcola	0:572d27f56fcd	4005	int len, /* Size of string buffer (characters) */
vpcola	0:572d27f56fcd	4006	FIL* fil /* Pointer to the file object */
vpcola	0:572d27f56fcd	4007	)
vpcola	0:572d27f56fcd	4008	{
vpcola	0:572d27f56fcd	4009	int n = 0;
vpcola	0:572d27f56fcd	4010	TCHAR c, *p = buff;
vpcola	0:572d27f56fcd	4011	BYTE s[2];
vpcola	0:572d27f56fcd	4012	UINT rc;
vpcola	0:572d27f56fcd	4013
vpcola	0:572d27f56fcd	4014
vpcola	0:572d27f56fcd	4015	while (n < len - 1) { /* Read bytes until buffer gets filled */
vpcola	0:572d27f56fcd	4016	f_read(fil, s, 1, &rc);
vpcola	0:572d27f56fcd	4017	if (rc != 1) break; /* Break on EOF or error */
vpcola	0:572d27f56fcd	4018	c = s[0];
vpcola	0:572d27f56fcd	4019	#if _LFN_UNICODE /* Read a character in UTF-8 encoding */
vpcola	0:572d27f56fcd	4020	if (c >= 0x80) {
vpcola	0:572d27f56fcd	4021	if (c < 0xC0) continue; /* Skip stray trailer */
vpcola	0:572d27f56fcd	4022	if (c < 0xE0) { /* Two-byte sequence */
vpcola	0:572d27f56fcd	4023	f_read(fil, s, 1, &rc);
vpcola	0:572d27f56fcd	4024	if (rc != 1) break;
vpcola	0:572d27f56fcd	4025	c = ((c & 0x1F) << 6) \| (s[0] & 0x3F);
vpcola	0:572d27f56fcd	4026	if (c < 0x80) c = '?';
vpcola	0:572d27f56fcd	4027	} else {
vpcola	0:572d27f56fcd	4028	if (c < 0xF0) { /* Three-byte sequence */
vpcola	0:572d27f56fcd	4029	f_read(fil, s, 2, &rc);
vpcola	0:572d27f56fcd	4030	if (rc != 2) break;
vpcola	0:572d27f56fcd	4031	c = (c << 12) \| ((s[0] & 0x3F) << 6) \| (s[1] & 0x3F);
vpcola	0:572d27f56fcd	4032	if (c < 0x800) c = '?';
vpcola	0:572d27f56fcd	4033	} else { /* Reject four-byte sequence */
vpcola	0:572d27f56fcd	4034	c = '?';
vpcola	0:572d27f56fcd	4035	}
vpcola	0:572d27f56fcd	4036	}
vpcola	0:572d27f56fcd	4037	}
vpcola	0:572d27f56fcd	4038	#endif
vpcola	0:572d27f56fcd	4039	#if _USE_STRFUNC >= 2
vpcola	0:572d27f56fcd	4040	if (c == '\r') continue; /* Strip '\r' */
vpcola	0:572d27f56fcd	4041	#endif
vpcola	0:572d27f56fcd	4042	*p++ = c;
vpcola	0:572d27f56fcd	4043	n++;
vpcola	0:572d27f56fcd	4044	if (c == '\n') break; /* Break on EOL */
vpcola	0:572d27f56fcd	4045	}
vpcola	0:572d27f56fcd	4046	*p = 0;
vpcola	0:572d27f56fcd	4047	return n ? buff : 0; /* When no data read (eof or error), return with error. */
vpcola	0:572d27f56fcd	4048	}
vpcola	0:572d27f56fcd	4049
vpcola	0:572d27f56fcd	4050
vpcola	0:572d27f56fcd	4051
vpcola	0:572d27f56fcd	4052	#if !_FS_READONLY
vpcola	0:572d27f56fcd	4053	#include <stdarg.h>
vpcola	0:572d27f56fcd	4054	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4055	/* Put a character to the file */
vpcola	0:572d27f56fcd	4056	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4057	int f_putc (
vpcola	0:572d27f56fcd	4058	TCHAR c, /* A character to be output */
vpcola	0:572d27f56fcd	4059	FIL* fil /* Pointer to the file object */
vpcola	0:572d27f56fcd	4060	)
vpcola	0:572d27f56fcd	4061	{
vpcola	0:572d27f56fcd	4062	UINT bw, btw;
vpcola	0:572d27f56fcd	4063	BYTE s[3];
vpcola	0:572d27f56fcd	4064
vpcola	0:572d27f56fcd	4065
vpcola	0:572d27f56fcd	4066	#if _USE_STRFUNC >= 2
vpcola	0:572d27f56fcd	4067	if (c == '\n') f_putc ('\r', fil); /* LF -> CRLF conversion */
vpcola	0:572d27f56fcd	4068	#endif
vpcola	0:572d27f56fcd	4069
vpcola	0:572d27f56fcd	4070	#if _LFN_UNICODE /* Write the character in UTF-8 encoding */
vpcola	0:572d27f56fcd	4071	if (c < 0x80) { /* 7-bit */
vpcola	0:572d27f56fcd	4072	s[0] = (BYTE)c;
vpcola	0:572d27f56fcd	4073	btw = 1;
vpcola	0:572d27f56fcd	4074	} else {
vpcola	0:572d27f56fcd	4075	if (c < 0x800) { /* 11-bit */
vpcola	0:572d27f56fcd	4076	s[0] = (BYTE)(0xC0 \| (c >> 6));
vpcola	0:572d27f56fcd	4077	s[1] = (BYTE)(0x80 \| (c & 0x3F));
vpcola	0:572d27f56fcd	4078	btw = 2;
vpcola	0:572d27f56fcd	4079	} else { /* 16-bit */
vpcola	0:572d27f56fcd	4080	s[0] = (BYTE)(0xE0 \| (c >> 12));
vpcola	0:572d27f56fcd	4081	s[1] = (BYTE)(0x80 \| ((c >> 6) & 0x3F));
vpcola	0:572d27f56fcd	4082	s[2] = (BYTE)(0x80 \| (c & 0x3F));
vpcola	0:572d27f56fcd	4083	btw = 3;
vpcola	0:572d27f56fcd	4084	}
vpcola	0:572d27f56fcd	4085	}
vpcola	0:572d27f56fcd	4086	#else /* Write the character without conversion */
vpcola	0:572d27f56fcd	4087	s[0] = (BYTE)c;
vpcola	0:572d27f56fcd	4088	btw = 1;
vpcola	0:572d27f56fcd	4089	#endif
vpcola	0:572d27f56fcd	4090	f_write(fil, s, btw, &bw); /* Write the char to the file */
vpcola	0:572d27f56fcd	4091	return (bw == btw) ? 1 : EOF; /* Return the result */
vpcola	0:572d27f56fcd	4092	}
vpcola	0:572d27f56fcd	4093
vpcola	0:572d27f56fcd	4094
vpcola	0:572d27f56fcd	4095
vpcola	0:572d27f56fcd	4096
vpcola	0:572d27f56fcd	4097	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4098	/* Put a string to the file */
vpcola	0:572d27f56fcd	4099	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4100	int f_puts (
vpcola	0:572d27f56fcd	4101	const TCHAR* str, /* Pointer to the string to be output */
vpcola	0:572d27f56fcd	4102	FIL* fil /* Pointer to the file object */
vpcola	0:572d27f56fcd	4103	)
vpcola	0:572d27f56fcd	4104	{
vpcola	0:572d27f56fcd	4105	int n;
vpcola	0:572d27f56fcd	4106
vpcola	0:572d27f56fcd	4107
vpcola	0:572d27f56fcd	4108	for (n = 0; *str; str++, n++) {
vpcola	0:572d27f56fcd	4109	if (f_putc(*str, fil) == EOF) return EOF;
vpcola	0:572d27f56fcd	4110	}
vpcola	0:572d27f56fcd	4111	return n;
vpcola	0:572d27f56fcd	4112	}
vpcola	0:572d27f56fcd	4113
vpcola	0:572d27f56fcd	4114
vpcola	0:572d27f56fcd	4115
vpcola	0:572d27f56fcd	4116
vpcola	0:572d27f56fcd	4117	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4118	/* Put a formatted string to the file */
vpcola	0:572d27f56fcd	4119	/-----------------------------------------------------------------------/
vpcola	0:572d27f56fcd	4120	int f_printf (
vpcola	0:572d27f56fcd	4121	FIL* fil, /* Pointer to the file object */
vpcola	0:572d27f56fcd	4122	const TCHAR* str, /* Pointer to the format string */
vpcola	0:572d27f56fcd	4123	... /* Optional arguments... */
vpcola	0:572d27f56fcd	4124	)
vpcola	0:572d27f56fcd	4125	{
vpcola	0:572d27f56fcd	4126	va_list arp;
vpcola	0:572d27f56fcd	4127	BYTE f, r;
vpcola	0:572d27f56fcd	4128	UINT i, j, w;
vpcola	0:572d27f56fcd	4129	ULONG v;
vpcola	0:572d27f56fcd	4130	TCHAR c, d, s[16], *p;
vpcola	0:572d27f56fcd	4131	int res, chc, cc;
vpcola	0:572d27f56fcd	4132
vpcola	0:572d27f56fcd	4133
vpcola	0:572d27f56fcd	4134	va_start(arp, str);
vpcola	0:572d27f56fcd	4135
vpcola	0:572d27f56fcd	4136	for (cc = res = 0; cc != EOF; res += cc) {
vpcola	0:572d27f56fcd	4137	c = *str++;
vpcola	0:572d27f56fcd	4138	if (c == 0) break; /* End of string */
vpcola	0:572d27f56fcd	4139	if (c != '%') { /* Non escape character */
vpcola	0:572d27f56fcd	4140	cc = f_putc(c, fil);
vpcola	0:572d27f56fcd	4141	if (cc != EOF) cc = 1;
vpcola	0:572d27f56fcd	4142	continue;
vpcola	0:572d27f56fcd	4143	}
vpcola	0:572d27f56fcd	4144	w = f = 0;
vpcola	0:572d27f56fcd	4145	c = *str++;
vpcola	0:572d27f56fcd	4146	if (c == '0') { /* Flag: '0' padding */
vpcola	0:572d27f56fcd	4147	f = 1;
vpcola	0:572d27f56fcd	4148	c = *str++;
vpcola	0:572d27f56fcd	4149	} else {
vpcola	0:572d27f56fcd	4150	if (c == '-') { /* Flag: left justified */
vpcola	0:572d27f56fcd	4151	f = 2;
vpcola	0:572d27f56fcd	4152	c = *str++;
vpcola	0:572d27f56fcd	4153	}
vpcola	0:572d27f56fcd	4154	}
vpcola	0:572d27f56fcd	4155	while (IsDigit(c)) { /* Precision */
vpcola	0:572d27f56fcd	4156	w = w * 10 + c - '0';
vpcola	0:572d27f56fcd	4157	c = *str++;
vpcola	0:572d27f56fcd	4158	}
vpcola	0:572d27f56fcd	4159	if (c == 'l' \|\| c == 'L') { /* Prefix: Size is long int */
vpcola	0:572d27f56fcd	4160	f \|= 4;
vpcola	0:572d27f56fcd	4161	c = *str++;
vpcola	0:572d27f56fcd	4162	}
vpcola	0:572d27f56fcd	4163	if (!c) break;
vpcola	0:572d27f56fcd	4164	d = c;
vpcola	0:572d27f56fcd	4165	if (IsLower(d)) d -= 0x20;
vpcola	0:572d27f56fcd	4166	switch (d) { /* Type is... */
vpcola	0:572d27f56fcd	4167	case 'S' : /* String */
vpcola	0:572d27f56fcd	4168	p = va_arg(arp, TCHAR*);
vpcola	0:572d27f56fcd	4169	for (j = 0; p[j]; j++) ;
vpcola	0:572d27f56fcd	4170	chc = 0;
vpcola	0:572d27f56fcd	4171	if (!(f & 2)) {
vpcola	0:572d27f56fcd	4172	while (j++ < w) chc += (cc = f_putc(' ', fil));
vpcola	0:572d27f56fcd	4173	}
vpcola	0:572d27f56fcd	4174	chc += (cc = f_puts(p, fil));
vpcola	0:572d27f56fcd	4175	while (j++ < w) chc += (cc = f_putc(' ', fil));
vpcola	0:572d27f56fcd	4176	if (cc != EOF) cc = chc;
vpcola	0:572d27f56fcd	4177	continue;
vpcola	0:572d27f56fcd	4178	case 'C' : /* Character */
vpcola	0:572d27f56fcd	4179	cc = f_putc((TCHAR)va_arg(arp, int), fil);
vpcola	0:572d27f56fcd	4180	continue;
vpcola	0:572d27f56fcd	4181	case 'B' : /* Binary */
vpcola	0:572d27f56fcd	4182	r = 2;
vpcola	0:572d27f56fcd	4183	break;
vpcola	0:572d27f56fcd	4184	case 'O' : /* Octal */
vpcola	0:572d27f56fcd	4185	r = 8;
vpcola	0:572d27f56fcd	4186	break;
vpcola	0:572d27f56fcd	4187	case 'D' : /* Signed decimal */
vpcola	0:572d27f56fcd	4188	case 'U' : /* Unsigned decimal */
vpcola	0:572d27f56fcd	4189	r = 10;
vpcola	0:572d27f56fcd	4190	break;
vpcola	0:572d27f56fcd	4191	case 'X' : /* Hexdecimal */
vpcola	0:572d27f56fcd	4192	r = 16;
vpcola	0:572d27f56fcd	4193	break;
vpcola	0:572d27f56fcd	4194	default: /* Unknown type (pass-through) */
vpcola	0:572d27f56fcd	4195	cc = f_putc(c, fil);
vpcola	0:572d27f56fcd	4196	continue;
vpcola	0:572d27f56fcd	4197	}
vpcola	0:572d27f56fcd	4198
vpcola	0:572d27f56fcd	4199	/* Get an argument and put it in numeral */
vpcola	0:572d27f56fcd	4200	v = (f & 4) ? (ULONG)va_arg(arp, long) : ((d == 'D') ? (ULONG)(long)va_arg(arp, int) : (ULONG)va_arg(arp, unsigned int));
vpcola	0:572d27f56fcd	4201	if (d == 'D' && (v & 0x80000000)) {
vpcola	0:572d27f56fcd	4202	v = 0 - v;
vpcola	0:572d27f56fcd	4203	f \|= 8;
vpcola	0:572d27f56fcd	4204	}
vpcola	0:572d27f56fcd	4205	i = 0;
vpcola	0:572d27f56fcd	4206	do {
vpcola	0:572d27f56fcd	4207	d = (TCHAR)(v % r);
vpcola	0:572d27f56fcd	4208	v /= r;
vpcola	0:572d27f56fcd	4209	if (d > 9) d += (c == 'x') ? 0x27 : 0x07;
vpcola	0:572d27f56fcd	4210	s[i++] = d + '0';
vpcola	0:572d27f56fcd	4211	} while (v && i < sizeof s / sizeof s[0]);
vpcola	0:572d27f56fcd	4212	if (f & 8) s[i++] = '-';
vpcola	0:572d27f56fcd	4213	j = i;
vpcola	0:572d27f56fcd	4214	d = (f & 1) ? '0' : ' ';
vpcola	0:572d27f56fcd	4215	res = 0;
vpcola	0:572d27f56fcd	4216	while (!(f & 2) && j++ < w) res += (cc = f_putc(d, fil));
vpcola	0:572d27f56fcd	4217	do res += (cc = f_putc(s[--i], fil));
vpcola	0:572d27f56fcd	4218	while(i);
vpcola	0:572d27f56fcd	4219	while (j++ < w) res += (cc = f_putc(' ', fil));
vpcola	0:572d27f56fcd	4220	if (cc != EOF) cc = res;
vpcola	0:572d27f56fcd	4221	}
vpcola	0:572d27f56fcd	4222
vpcola	0:572d27f56fcd	4223	va_end(arp);
vpcola	0:572d27f56fcd	4224	return (cc == EOF) ? cc : res;
vpcola	0:572d27f56fcd	4225	}
vpcola	0:572d27f56fcd	4226
vpcola	0:572d27f56fcd	4227	#endif /* !_FS_READONLY */
vpcola	0:572d27f56fcd	4228	#endif /* _USE_STRFUNC */

Repository toolbox

Export to desktop IDE

Repository details

Type:	Library
Created:	28 Apr 2015
Imports:	65
Forks:	0
Commits:	1
Dependents:	1
Dependencies:	0
Followers:	2

SDFileSystem2 usage

FATFileSystem/ChaN/ff.cpp@0:572d27f56fcd, 2015-04-28 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning