NySDFileSystem - This is SDFileSystem which corrected the bug for …

Users » nyatla » Code » NySDFileSystem

This is SDFileSystem which corrected the bug for MiMicSDK.

Dependents: MbedFileServer_1768MiniDK2 RedWireBridge IssueDebug_gcc MiMicRemoteMCU-for-Mbed ... more

Fork of SDFileSystem by mbed official

FATFileSystem/ChaN/ff.cpp@9:b2ca0e66c1f7, 2013-11-12 (annotated)

Committer:: nyatla
Date:: Tue Nov 12 03:41:14 2013 +0000
Revision:: 9:b2ca0e66c1f7
Parent:: 6:972a52e4d92c

fix warning.;

Who changed what in which revision?

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

Repository toolbox

Export to desktop IDE

Repository details

Type:	Library
Created:	25 Apr 2013
Imports:	31
Forks:	1
Commits:	10
Dependents:	5
Dependencies:	0
Followers:	3

FATFileSystem/ChaN/ff.cpp@9:b2ca0e66c1f7, 2013-11-12 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning