Final_Project_V19_DLeaming_25574043 - Final tidy of code following installation of new …

(DA) Internet of Things and Smart Electronics- ELE3006M2122 » Code » Final_Project_V19_DLeaming_25574043

(DA) Internet of Things and Smart Electronics- ELE3006M2122 / Mbed 2 deprecated Final_Project_V19_DLeaming_25574043

Final tidy of code following installation of new sensor, more comments added prior to submission

Dependencies: mbed

SD_Card/FATFileSystem/ChaN/ff.cpp@14:3e9991fe64e5, 2022-01-21 (annotated)

Committer:: legstar85
Date:: Fri Jan 21 22:33:32 2022 +0000
Revision:: 14:3e9991fe64e5

Addition of new menu option, start of coding for writing Temp data to SD card

Who changed what in which revision?

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

Repository toolbox

Export to desktop IDE

Build repository

Repository details

Type:	Program
Mbed OS support:	Mbed 2 deprecated
Created:	04 Feb 2022
Imports:	2
Forks:	0
Commits:	19
Dependents:	0
Dependencies:	1
Followers:	21

SD_Card/FATFileSystem/ChaN/ff.cpp@14:3e9991fe64e5, 2022-01-21 (annotated)

Who changed what in which revision?

Repository toolbox

Repository details

Important Information for this Arm website

Access Warning