1 | /*----------------------------------------------------------------------------/
|
---|
2 | / FatFs - FAT file system module R0.07a (C)ChaN, 2009
|
---|
3 | /-----------------------------------------------------------------------------/
|
---|
4 | / FatFs module is an open source software to implement FAT file system to
|
---|
5 | / small embedded systems. This is a free software and is opened for education,
|
---|
6 | / research and commercial developments under license policy of following trems.
|
---|
7 | /
|
---|
8 | / Copyright (C) 2009, ChaN, all right reserved.
|
---|
9 | /
|
---|
10 | / * The FatFs module is a free software and there is NO WARRANTY.
|
---|
11 | / * No restriction on use. You can use, modify and redistribute it for
|
---|
12 | / personal, non-profit or commercial use UNDER YOUR RESPONSIBILITY.
|
---|
13 | / * Redistributions of source code must retain the above copyright notice.
|
---|
14 | //-----------------------------------------------------------------------------/
|
---|
15 | / Feb 26,'06 R0.00 Prototype.
|
---|
16 | /
|
---|
17 | / Apr 29,'06 R0.01 First stable version.
|
---|
18 | /
|
---|
19 | / Jun 01,'06 R0.02 Added FAT12 support.
|
---|
20 | / Removed unbuffered mode.
|
---|
21 | / Fixed a problem on small (<32M) patition.
|
---|
22 | / Jun 10,'06 R0.02a Added a configuration option (_FS_MINIMUM).
|
---|
23 | /
|
---|
24 | / Sep 22,'06 R0.03 Added f_rename().
|
---|
25 | / Changed option _FS_MINIMUM to _FS_MINIMIZE.
|
---|
26 | / Dec 11,'06 R0.03a Improved cluster scan algolithm to write files fast.
|
---|
27 | / Fixed f_mkdir() creates incorrect directory on FAT32.
|
---|
28 | /
|
---|
29 | / Feb 04,'07 R0.04 Supported multiple drive system.
|
---|
30 | / Changed some interfaces for multiple drive system.
|
---|
31 | / Changed f_mountdrv() to f_mount().
|
---|
32 | / Added f_mkfs().
|
---|
33 | / Apr 01,'07 R0.04a Supported multiple partitions on a plysical drive.
|
---|
34 | / Added a capability of extending file size to f_lseek().
|
---|
35 | / Added minimization level 3.
|
---|
36 | / Fixed an endian sensitive code in f_mkfs().
|
---|
37 | / May 05,'07 R0.04b Added a configuration option _USE_NTFLAG.
|
---|
38 | / Added FSInfo support.
|
---|
39 | / Fixed DBCS name can result FR_INVALID_NAME.
|
---|
40 | / Fixed short seek (<= csize) collapses the file object.
|
---|
41 | /
|
---|
42 | / Aug 25,'07 R0.05 Changed arguments of f_read(), f_write() and f_mkfs().
|
---|
43 | / Fixed f_mkfs() on FAT32 creates incorrect FSInfo.
|
---|
44 | / Fixed f_mkdir() on FAT32 creates incorrect directory.
|
---|
45 | / Feb 03,'08 R0.05a Added f_truncate() and f_utime().
|
---|
46 | / Fixed off by one error at FAT sub-type determination.
|
---|
47 | / Fixed btr in f_read() can be mistruncated.
|
---|
48 | / Fixed cached sector is not flushed when create and close
|
---|
49 | / without write.
|
---|
50 | /
|
---|
51 | / Apr 01,'08 R0.06 Added fputc(), fputs(), fprintf() and fgets().
|
---|
52 | / Improved performance of f_lseek() on moving to the same
|
---|
53 | / or following cluster.
|
---|
54 | /
|
---|
55 | / Apr 01,'09 R0.07 Merged Tiny-FatFs as a buffer configuration option.
|
---|
56 | / Added long file name support.
|
---|
57 | / Added multiple code page support.
|
---|
58 | / Added re-entrancy for multitask operation.
|
---|
59 | / Added auto cluster size selection to f_mkfs().
|
---|
60 | / Added rewind option to f_readdir().
|
---|
61 | / Changed result code of critical errors.
|
---|
62 | / Renamed string functions to avoid name collision.
|
---|
63 | / Apr 14,'09 R0.07a Separated out OS dependent code on reentrant cfg.
|
---|
64 | / Added multiple sector size support.
|
---|
65 | /---------------------------------------------------------------------------*/
|
---|
66 |
|
---|
67 | #include "ff.h" /* FatFs configurations and declarations */
|
---|
68 | #include "diskio.h" /* Declarations of low level disk I/O functions */
|
---|
69 |
|
---|
70 |
|
---|
71 | /*--------------------------------------------------------------------------
|
---|
72 |
|
---|
73 | Module Private Definitions
|
---|
74 |
|
---|
75 | ---------------------------------------------------------------------------*/
|
---|
76 |
|
---|
77 | #if _FS_REENTRANT
|
---|
78 | #if _USE_LFN == 1
|
---|
79 | #error Static LFN work area must not be used in re-entrant configuration.
|
---|
80 | #endif
|
---|
81 | #define ENTER_FF(fs) { if (!lock_fs(fs)) return FR_TIMEOUT; }
|
---|
82 | #define LEAVE_FF(fs, res) { unlock_fs(fs, res); return res; }
|
---|
83 |
|
---|
84 | #else
|
---|
85 | #define ENTER_FF(fs)
|
---|
86 | #define LEAVE_FF(fs, res) return res
|
---|
87 |
|
---|
88 | #endif
|
---|
89 |
|
---|
90 | #define ABORT(fs, res) { fp->flag |= FA__ERROR; LEAVE_FF(fs, res); }
|
---|
91 |
|
---|
92 | #ifndef NULL
|
---|
93 | #define NULL 0
|
---|
94 | #endif
|
---|
95 |
|
---|
96 |
|
---|
97 | /*--------------------------------------------------------------------------
|
---|
98 |
|
---|
99 | Private Work Area
|
---|
100 |
|
---|
101 | ---------------------------------------------------------------------------*/
|
---|
102 |
|
---|
103 | static
|
---|
104 | FATFS *FatFs[_DRIVES]; /* Pointer to the file system objects (logical drives) */
|
---|
105 | static
|
---|
106 | WORD Fsid; /* File system mount ID */
|
---|
107 |
|
---|
108 |
|
---|
109 | #if _USE_LFN == 1 /* LFN with static LFN working buffer */
|
---|
110 | static
|
---|
111 | WORD LfnBuf[_MAX_LFN + 1];
|
---|
112 | #define NAMEBUF(sp,lp) BYTE sp[12]; WCHAR *lp = LfnBuf
|
---|
113 | #define INITBUF(dj,sp,lp) dj.fn = sp; dj.lfn = lp
|
---|
114 |
|
---|
115 | #elif _USE_LFN > 1 /* LFN with dynamic LFN working buffer */
|
---|
116 | #define NAMEBUF(sp,lp) BYTE sp[12]; WCHAR lbuf[_MAX_LFN + 1], *lp = lbuf
|
---|
117 | #define INITBUF(dj,sp,lp) dj.fn = sp; dj.lfn = lp
|
---|
118 | #if 1 /* ROI MODIFIED */
|
---|
119 | #define INITBUF2(dj,sp) dj.fn = sp
|
---|
120 | #endif /* ROI MODIFIED */
|
---|
121 |
|
---|
122 | #else /* No LFN */
|
---|
123 | #define NAMEBUF(sp,lp) BYTE sp[12]
|
---|
124 | #define INITBUF(dj,sp,lp) dj.fn = sp
|
---|
125 |
|
---|
126 | #endif
|
---|
127 |
|
---|
128 |
|
---|
129 |
|
---|
130 |
|
---|
131 | /*--------------------------------------------------------------------------
|
---|
132 |
|
---|
133 | Private Functions
|
---|
134 |
|
---|
135 | ---------------------------------------------------------------------------*/
|
---|
136 |
|
---|
137 |
|
---|
138 | /*-----------------------------------------------------------------------*/
|
---|
139 | /* String functions */
|
---|
140 | /*-----------------------------------------------------------------------*/
|
---|
141 |
|
---|
142 | /* Copy memory to memory */
|
---|
143 | static
|
---|
144 | void mem_cpy (void* dst, const void* src, int cnt) {
|
---|
145 | char *d = (char*)dst;
|
---|
146 | const char *s = (const char *)src;
|
---|
147 | while (cnt--) *d++ = *s++;
|
---|
148 | }
|
---|
149 |
|
---|
150 | /* Fill memory */
|
---|
151 | static
|
---|
152 | void mem_set (void* dst, int val, int cnt) {
|
---|
153 | char *d = (char*)dst;
|
---|
154 | while (cnt--) *d++ = (char)val;
|
---|
155 | }
|
---|
156 |
|
---|
157 | /* Compare memory to memory */
|
---|
158 | static
|
---|
159 | int mem_cmp (const void* dst, const void* src, int cnt) {
|
---|
160 | const char *d = (const char *)dst, *s = (const char *)src;
|
---|
161 | int r = 0;
|
---|
162 | while (cnt-- && (r = *d++ - *s++) == 0) ;
|
---|
163 | return r;
|
---|
164 | }
|
---|
165 |
|
---|
166 | /* Check if chr is contained in the string */
|
---|
167 | static
|
---|
168 | int chk_chr (const char* str, int chr) {
|
---|
169 | while (*str && *str != chr) str++;
|
---|
170 | return *str;
|
---|
171 | }
|
---|
172 |
|
---|
173 |
|
---|
174 |
|
---|
175 | /*-----------------------------------------------------------------------*/
|
---|
176 | /* Request/Release grant to access the volume */
|
---|
177 | /*-----------------------------------------------------------------------*/
|
---|
178 | #if _FS_REENTRANT
|
---|
179 |
|
---|
180 | static
|
---|
181 | BOOL lock_fs (
|
---|
182 | FATFS *fs /* File system object */
|
---|
183 | )
|
---|
184 | {
|
---|
185 | return ff_req_grant(fs->sobj);
|
---|
186 | }
|
---|
187 |
|
---|
188 |
|
---|
189 | static
|
---|
190 | void unlock_fs (
|
---|
191 | FATFS *fs, /* File system object */
|
---|
192 | FRESULT res /* Result code to be returned */
|
---|
193 | )
|
---|
194 | {
|
---|
195 | if (res != FR_NOT_ENABLED &&
|
---|
196 | res != FR_INVALID_DRIVE &&
|
---|
197 | res != FR_INVALID_OBJECT &&
|
---|
198 | res != FR_TIMEOUT) {
|
---|
199 | ff_rel_grant(fs->sobj);
|
---|
200 | }
|
---|
201 | }
|
---|
202 | #endif
|
---|
203 |
|
---|
204 |
|
---|
205 |
|
---|
206 | /*-----------------------------------------------------------------------*/
|
---|
207 | /* Change window offset */
|
---|
208 | /*-----------------------------------------------------------------------*/
|
---|
209 |
|
---|
210 | static
|
---|
211 | FRESULT move_window (
|
---|
212 | FATFS *fs, /* File system object */
|
---|
213 | DWORD sector /* Sector number to make apperance in the fs->win[] */
|
---|
214 | ) /* Move to zero only writes back dirty window */
|
---|
215 | {
|
---|
216 | DWORD wsect;
|
---|
217 |
|
---|
218 |
|
---|
219 | wsect = fs->winsect;
|
---|
220 | if (wsect != sector) { /* Changed current window */
|
---|
221 | #if !_FS_READONLY
|
---|
222 | if (fs->wflag) { /* Write back dirty window if needed */
|
---|
223 | if (disk_write(fs->drive, fs->win, wsect, 1) != RES_OK)
|
---|
224 | return FR_DISK_ERR;
|
---|
225 | fs->wflag = 0;
|
---|
226 | if (wsect < (fs->fatbase + fs->sects_fat)) { /* In FAT area */
|
---|
227 | BYTE nf;
|
---|
228 | for (nf = fs->n_fats; nf >= 2; nf--) { /* Refrect the change to FAT copy */
|
---|
229 | wsect += fs->sects_fat;
|
---|
230 | disk_write(fs->drive, fs->win, wsect, 1);
|
---|
231 | }
|
---|
232 | }
|
---|
233 | }
|
---|
234 | #endif
|
---|
235 | if (sector) {
|
---|
236 | if (disk_read(fs->drive, fs->win, sector, 1) != RES_OK)
|
---|
237 | return FR_DISK_ERR;
|
---|
238 | fs->winsect = sector;
|
---|
239 | }
|
---|
240 | }
|
---|
241 |
|
---|
242 | return FR_OK;
|
---|
243 | }
|
---|
244 |
|
---|
245 |
|
---|
246 |
|
---|
247 |
|
---|
248 | /*-----------------------------------------------------------------------*/
|
---|
249 | /* Clean-up cached data */
|
---|
250 | /*-----------------------------------------------------------------------*/
|
---|
251 | #if !_FS_READONLY
|
---|
252 | static
|
---|
253 | FRESULT sync ( /* FR_OK: successful, FR_DISK_ERR: failed */
|
---|
254 | FATFS *fs /* File system object */
|
---|
255 | )
|
---|
256 | {
|
---|
257 | FRESULT res;
|
---|
258 |
|
---|
259 |
|
---|
260 | res = move_window(fs, 0);
|
---|
261 | if (res == FR_OK) {
|
---|
262 | /* Update FSInfo sector if needed */
|
---|
263 | if (fs->fs_type == FS_FAT32 && fs->fsi_flag) {
|
---|
264 | fs->winsect = 0;
|
---|
265 | mem_set(fs->win, 0, 512);
|
---|
266 | ST_WORD(fs->win+BS_55AA, 0xAA55);
|
---|
267 | ST_DWORD(fs->win+FSI_LeadSig, 0x41615252);
|
---|
268 | ST_DWORD(fs->win+FSI_StrucSig, 0x61417272);
|
---|
269 | ST_DWORD(fs->win+FSI_Free_Count, fs->free_clust);
|
---|
270 | ST_DWORD(fs->win+FSI_Nxt_Free, fs->last_clust);
|
---|
271 | disk_write(fs->drive, fs->win, fs->fsi_sector, 1);
|
---|
272 | fs->fsi_flag = 0;
|
---|
273 | }
|
---|
274 | /* Make sure that no pending write process in the physical drive */
|
---|
275 | if (disk_ioctl(fs->drive, CTRL_SYNC, (void*)NULL) != RES_OK)
|
---|
276 | res = FR_DISK_ERR;
|
---|
277 | }
|
---|
278 |
|
---|
279 | return res;
|
---|
280 | }
|
---|
281 | #endif
|
---|
282 |
|
---|
283 |
|
---|
284 |
|
---|
285 |
|
---|
286 | /*-----------------------------------------------------------------------*/
|
---|
287 | /* Get a cluster status */
|
---|
288 | /*-----------------------------------------------------------------------*/
|
---|
289 |
|
---|
290 | static
|
---|
291 | DWORD get_cluster ( /* 0xFFFFFFFF:Disk error, 1:Interal error, Else:Cluster status */
|
---|
292 | FATFS *fs, /* File system object */
|
---|
293 | DWORD clst /* Cluster# to get the link information */
|
---|
294 | )
|
---|
295 | {
|
---|
296 | WORD wc, bc;
|
---|
297 | DWORD fsect;
|
---|
298 |
|
---|
299 |
|
---|
300 | if (clst < 2 || clst >= fs->max_clust) /* Check cluster address range */
|
---|
301 | return 1;
|
---|
302 |
|
---|
303 | fsect = fs->fatbase;
|
---|
304 | switch (fs->fs_type) {
|
---|
305 | case FS_FAT12 :
|
---|
306 | bc = (WORD)clst * 3 / 2;
|
---|
307 | if (move_window(fs, fsect + (bc / SS(fs)))) break;
|
---|
308 | wc = fs->win[bc & (SS(fs) - 1)]; bc++;
|
---|
309 | if (move_window(fs, fsect + (bc / SS(fs)))) break;
|
---|
310 | wc |= (WORD)fs->win[bc & (SS(fs) - 1)] << 8;
|
---|
311 | return (clst & 1) ? (wc >> 4) : (wc & 0xFFF);
|
---|
312 |
|
---|
313 | case FS_FAT16 :
|
---|
314 | if (move_window(fs, fsect + (clst / (SS(fs) / 2)))) break;
|
---|
315 | return LD_WORD(&fs->win[((WORD)clst * 2) & (SS(fs) - 1)]);
|
---|
316 |
|
---|
317 | case FS_FAT32 :
|
---|
318 | if (move_window(fs, fsect + (clst / (SS(fs) / 4)))) break;
|
---|
319 | return LD_DWORD(&fs->win[((WORD)clst * 4) & (SS(fs) - 1)]) & 0x0FFFFFFF;
|
---|
320 | }
|
---|
321 |
|
---|
322 | return 0xFFFFFFFF; /* An error occured at the disk I/O layer */
|
---|
323 | }
|
---|
324 |
|
---|
325 |
|
---|
326 |
|
---|
327 |
|
---|
328 | /*-----------------------------------------------------------------------*/
|
---|
329 | /* Change a cluster status */
|
---|
330 | /*-----------------------------------------------------------------------*/
|
---|
331 | #if !_FS_READONLY
|
---|
332 | static
|
---|
333 | FRESULT put_cluster (
|
---|
334 | FATFS *fs, /* File system object */
|
---|
335 | DWORD clst, /* Cluster# to be changed (must be 2 to fs->max_clust-1) */
|
---|
336 | DWORD val /* New value to mark the cluster */
|
---|
337 | )
|
---|
338 | {
|
---|
339 | WORD bc;
|
---|
340 | BYTE *p;
|
---|
341 | DWORD fsect;
|
---|
342 | FRESULT res;
|
---|
343 |
|
---|
344 |
|
---|
345 | if (clst < 2 || clst >= fs->max_clust) { /* Check cluster address range */
|
---|
346 | res = FR_INT_ERR;
|
---|
347 |
|
---|
348 | } else {
|
---|
349 | fsect = fs->fatbase;
|
---|
350 | switch (fs->fs_type) {
|
---|
351 | case FS_FAT12 :
|
---|
352 | bc = (WORD)clst * 3 / 2;
|
---|
353 | res = move_window(fs, fsect + (bc / SS(fs)));
|
---|
354 | if (res != FR_OK) break;
|
---|
355 | p = &fs->win[bc & (SS(fs) - 1)];
|
---|
356 | *p = (clst & 1) ? ((*p & 0x0F) | ((BYTE)val << 4)) : (BYTE)val;
|
---|
357 | bc++;
|
---|
358 | fs->wflag = 1;
|
---|
359 | res = move_window(fs, fsect + (bc / SS(fs)));
|
---|
360 | if (res != FR_OK) break;
|
---|
361 | p = &fs->win[bc & (SS(fs) - 1)];
|
---|
362 | *p = (clst & 1) ? (BYTE)(val >> 4) : ((*p & 0xF0) | ((BYTE)(val >> 8) & 0x0F));
|
---|
363 | break;
|
---|
364 |
|
---|
365 | case FS_FAT16 :
|
---|
366 | res = move_window(fs, fsect + (clst / (SS(fs) / 2)));
|
---|
367 | if (res != FR_OK) break;
|
---|
368 | ST_WORD(&fs->win[((WORD)clst * 2) & (SS(fs) - 1)], (WORD)val);
|
---|
369 | break;
|
---|
370 |
|
---|
371 | case FS_FAT32 :
|
---|
372 | res = move_window(fs, fsect + (clst / (SS(fs) / 4)));
|
---|
373 | if (res != FR_OK) break;
|
---|
374 | ST_DWORD(&fs->win[((WORD)clst * 4) & (SS(fs) - 1)], val);
|
---|
375 | break;
|
---|
376 |
|
---|
377 | default :
|
---|
378 | res = FR_INT_ERR;
|
---|
379 | }
|
---|
380 | fs->wflag = 1;
|
---|
381 | }
|
---|
382 |
|
---|
383 | return res;
|
---|
384 | }
|
---|
385 | #endif /* !_FS_READONLY */
|
---|
386 |
|
---|
387 |
|
---|
388 |
|
---|
389 |
|
---|
390 | /*-----------------------------------------------------------------------*/
|
---|
391 | /* Remove a cluster chain */
|
---|
392 | /*-----------------------------------------------------------------------*/
|
---|
393 | #if !_FS_READONLY
|
---|
394 | static
|
---|
395 | FRESULT remove_chain (
|
---|
396 | FATFS *fs, /* File system object */
|
---|
397 | DWORD clst /* Cluster# to remove chain from */
|
---|
398 | )
|
---|
399 | {
|
---|
400 | FRESULT res;
|
---|
401 | DWORD nxt;
|
---|
402 |
|
---|
403 |
|
---|
404 | if (clst < 2 || clst >= fs->max_clust) { /* Check cluster address range */
|
---|
405 | res = FR_INT_ERR;
|
---|
406 |
|
---|
407 | } else {
|
---|
408 | res = FR_OK;
|
---|
409 | while (clst < fs->max_clust) { /* Not a last link? */
|
---|
410 | nxt = get_cluster(fs, clst); /* Get cluster status */
|
---|
411 | if (nxt == 0) break; /* Empty cluster? */
|
---|
412 | if (nxt == 1) { res = FR_INT_ERR; break; } /* Internal error? */
|
---|
413 | if (nxt == 0xFFFFFFFF) { res = FR_DISK_ERR; break; } /* Disk error? */
|
---|
414 | res = put_cluster(fs, clst, 0); /* Mark the cluster "empty" */
|
---|
415 | if (res != FR_OK) break;
|
---|
416 | if (fs->free_clust != 0xFFFFFFFF) { /* Update FSInfo */
|
---|
417 | fs->free_clust++;
|
---|
418 | fs->fsi_flag = 1;
|
---|
419 | }
|
---|
420 | clst = nxt; /* Next cluster */
|
---|
421 | }
|
---|
422 | }
|
---|
423 |
|
---|
424 | return res;
|
---|
425 | }
|
---|
426 | #endif
|
---|
427 |
|
---|
428 |
|
---|
429 |
|
---|
430 |
|
---|
431 | /*-----------------------------------------------------------------------*/
|
---|
432 | /* Stretch or create a cluster chain */
|
---|
433 | /*-----------------------------------------------------------------------*/
|
---|
434 | #if !_FS_READONLY
|
---|
435 | static
|
---|
436 | DWORD create_chain ( /* 0:No free cluster, 1:Internal error, 0xFFFFFFFF:Disk error, >=2:New cluster# */
|
---|
437 | FATFS *fs, /* File system object */
|
---|
438 | DWORD clst /* Cluster# to stretch. 0 means create a new chain. */
|
---|
439 | )
|
---|
440 | {
|
---|
441 | DWORD cs, ncl, scl, mcl;
|
---|
442 |
|
---|
443 |
|
---|
444 | mcl = fs->max_clust;
|
---|
445 | if (clst == 0) { /* Create new chain */
|
---|
446 | scl = fs->last_clust; /* Get suggested start point */
|
---|
447 | if (scl == 0 || scl >= mcl) scl = 1;
|
---|
448 | }
|
---|
449 | else { /* Stretch existing chain */
|
---|
450 | cs = get_cluster(fs, clst); /* Check the cluster status */
|
---|
451 | if (cs < 2) return 1; /* It is an invalid cluster */
|
---|
452 | if (cs < mcl) return cs; /* It is already followed by next cluster */
|
---|
453 | scl = clst;
|
---|
454 | }
|
---|
455 |
|
---|
456 | ncl = scl; /* Start cluster */
|
---|
457 | for (;;) {
|
---|
458 | ncl++; /* Next cluster */
|
---|
459 | if (ncl >= mcl) { /* Wrap around */
|
---|
460 | ncl = 2;
|
---|
461 | if (ncl > scl) return 0; /* No free custer */
|
---|
462 | }
|
---|
463 | cs = get_cluster(fs, ncl); /* Get the cluster status */
|
---|
464 | if (cs == 0) break; /* Found a free cluster */
|
---|
465 | if (cs == 0xFFFFFFFF || cs == 1)/* An error occured */
|
---|
466 | return cs;
|
---|
467 | if (ncl == scl) return 0; /* No free custer */
|
---|
468 | }
|
---|
469 |
|
---|
470 | if (put_cluster(fs, ncl, 0x0FFFFFFF)) /* Mark the new cluster "in use" */
|
---|
471 | return 0xFFFFFFFF;
|
---|
472 | if (clst != 0) { /* Link it to previous one if needed */
|
---|
473 | if (put_cluster(fs, clst, ncl))
|
---|
474 | return 0xFFFFFFFF;
|
---|
475 | }
|
---|
476 |
|
---|
477 | fs->last_clust = ncl; /* Update FSINFO */
|
---|
478 | if (fs->free_clust != 0xFFFFFFFF) {
|
---|
479 | fs->free_clust--;
|
---|
480 | fs->fsi_flag = 1;
|
---|
481 | }
|
---|
482 |
|
---|
483 | return ncl; /* Return new cluster number */
|
---|
484 | }
|
---|
485 | #endif /* !_FS_READONLY */
|
---|
486 |
|
---|
487 |
|
---|
488 |
|
---|
489 |
|
---|
490 | /*-----------------------------------------------------------------------*/
|
---|
491 | /* Get sector# from cluster# */
|
---|
492 | /*-----------------------------------------------------------------------*/
|
---|
493 |
|
---|
494 | static
|
---|
495 | DWORD clust2sect ( /* !=0: sector number, 0: failed - invalid cluster# */
|
---|
496 | FATFS *fs, /* File system object */
|
---|
497 | DWORD clst /* Cluster# to be converted */
|
---|
498 | )
|
---|
499 | {
|
---|
500 | clst -= 2;
|
---|
501 | if (clst >= (fs->max_clust - 2)) return 0; /* Invalid cluster# */
|
---|
502 | return clst * fs->csize + fs->database;
|
---|
503 | }
|
---|
504 |
|
---|
505 |
|
---|
506 |
|
---|
507 |
|
---|
508 | /*-----------------------------------------------------------------------*/
|
---|
509 | /* Seek directory index */
|
---|
510 | /*-----------------------------------------------------------------------*/
|
---|
511 |
|
---|
512 | static
|
---|
513 | FRESULT dir_seek (
|
---|
514 | DIR *dj, /* Pointer to directory object */
|
---|
515 | WORD idx /* Directory index number */
|
---|
516 | )
|
---|
517 | {
|
---|
518 | DWORD clst;
|
---|
519 | WORD ic;
|
---|
520 |
|
---|
521 |
|
---|
522 | dj->index = idx;
|
---|
523 | clst = dj->sclust;
|
---|
524 | if (clst == 1 || clst >= dj->fs->max_clust) /* Check start cluster range */
|
---|
525 | return FR_INT_ERR;
|
---|
526 |
|
---|
527 | if (clst == 0) { /* Static table */
|
---|
528 | if (idx >= dj->fs->n_rootdir) /* Index is out of range */
|
---|
529 | return FR_INT_ERR;
|
---|
530 | dj->sect = dj->fs->dirbase + idx / (SS(dj->fs) / 32);
|
---|
531 | }
|
---|
532 | else { /* Dynamic table */
|
---|
533 | ic = SS(dj->fs) / 32 * dj->fs->csize; /* Indexes per cluster */
|
---|
534 | while (idx >= ic) { /* Follow cluster chain */
|
---|
535 | clst = get_cluster(dj->fs, clst); /* Get next cluster */
|
---|
536 | if (clst == 0xFFFFFFFF) return FR_DISK_ERR; /* Disk error */
|
---|
537 | if (clst < 2 || clst >= dj->fs->max_clust) /* Reached to end of table or int error */
|
---|
538 | return FR_INT_ERR;
|
---|
539 | idx -= ic;
|
---|
540 | }
|
---|
541 | dj->clust = clst;
|
---|
542 | dj->sect = clust2sect(dj->fs, clst) + idx / (SS(dj->fs) / 32);
|
---|
543 | }
|
---|
544 | dj->dir = dj->fs->win + (idx % (SS(dj->fs) / 32)) * 32;
|
---|
545 |
|
---|
546 | return FR_OK; /* Seek succeeded */
|
---|
547 | }
|
---|
548 |
|
---|
549 |
|
---|
550 |
|
---|
551 |
|
---|
552 | /*-----------------------------------------------------------------------*/
|
---|
553 | /* Move directory index next */
|
---|
554 | /*-----------------------------------------------------------------------*/
|
---|
555 |
|
---|
556 | static
|
---|
557 | FRESULT dir_next ( /* FR_OK:Succeeded, FR_NO_FILE:End of table, FR_DENIED:EOT and could not streach */
|
---|
558 | DIR *dj, /* Pointer to directory object */
|
---|
559 | BOOL streach /* FALSE: Do not streach table, TRUE: Streach table if needed */
|
---|
560 | )
|
---|
561 | {
|
---|
562 | DWORD clst;
|
---|
563 | WORD i;
|
---|
564 |
|
---|
565 |
|
---|
566 | i = dj->index + 1;
|
---|
567 | if (!i || !dj->sect) /* Report EOT when index has reached 65535 */
|
---|
568 | return FR_NO_FILE;
|
---|
569 |
|
---|
570 | if (!(i % (SS(dj->fs) / 32))) { /* Sector changed? */
|
---|
571 | dj->sect++; /* Next sector */
|
---|
572 |
|
---|
573 | if (dj->sclust == 0) { /* Static table */
|
---|
574 | if (i >= dj->fs->n_rootdir) /* Report EOT when end of table */
|
---|
575 | return FR_NO_FILE;
|
---|
576 | }
|
---|
577 | else { /* Dynamic table */
|
---|
578 | if (((i / (SS(dj->fs) / 32)) & (dj->fs->csize - 1)) == 0) { /* Cluster changed? */
|
---|
579 | clst = get_cluster(dj->fs, dj->clust); /* Get next cluster */
|
---|
580 | if (clst <= 1) return FR_INT_ERR;
|
---|
581 | if (clst == 0xFFFFFFFF) return FR_DISK_ERR;
|
---|
582 | if (clst >= dj->fs->max_clust) { /* When it reached end of dinamic table */
|
---|
583 | #if !_FS_READONLY
|
---|
584 | BYTE c;
|
---|
585 | if (!streach) return FR_NO_FILE; /* When do not streach, report EOT */
|
---|
586 | clst = create_chain(dj->fs, dj->clust); /* Streach cluster chain */
|
---|
587 | if (clst == 0) return FR_DENIED; /* No free cluster */
|
---|
588 | if (clst == 1) return FR_INT_ERR;
|
---|
589 | if (clst == 0xFFFFFFFF) return FR_DISK_ERR;
|
---|
590 | /* Clean-up streached table */
|
---|
591 | if (move_window(dj->fs, 0)) return FR_DISK_ERR; /* Flush active window */
|
---|
592 | mem_set(dj->fs->win, 0, SS(dj->fs)); /* Clear window buffer */
|
---|
593 | dj->fs->winsect = clust2sect(dj->fs, clst); /* Cluster start sector */
|
---|
594 | for (c = 0; c < dj->fs->csize; c++) { /* Fill the new cluster with 0 */
|
---|
595 | dj->fs->wflag = 1;
|
---|
596 | if (move_window(dj->fs, 0)) return FR_DISK_ERR;
|
---|
597 | dj->fs->winsect++;
|
---|
598 | }
|
---|
599 | dj->fs->winsect -= c; /* Rewind window address */
|
---|
600 | #else
|
---|
601 | return FR_NO_FILE; /* Report EOT */
|
---|
602 | #endif
|
---|
603 | }
|
---|
604 | dj->clust = clst; /* Initialize data for new cluster */
|
---|
605 | dj->sect = clust2sect(dj->fs, clst);
|
---|
606 | }
|
---|
607 | }
|
---|
608 | }
|
---|
609 |
|
---|
610 | dj->index = i;
|
---|
611 | dj->dir = dj->fs->win + (i % (SS(dj->fs) / 32)) * 32;
|
---|
612 |
|
---|
613 | return FR_OK;
|
---|
614 | }
|
---|
615 |
|
---|
616 |
|
---|
617 |
|
---|
618 |
|
---|
619 | /*-----------------------------------------------------------------------*/
|
---|
620 | /* Test/Pick/Fit an LFN segment from/to directory entry */
|
---|
621 | /*-----------------------------------------------------------------------*/
|
---|
622 | #if _USE_LFN
|
---|
623 | static
|
---|
624 | const BYTE LfnOfs[] = {1,3,5,7,9,14,16,18,20,22,24,28,30}; /* Offset of LFN chars in the directory entry */
|
---|
625 |
|
---|
626 |
|
---|
627 | static
|
---|
628 | BOOL test_lfn ( /* TRUE:Matched, FALSE:Not matched */
|
---|
629 | WCHAR *lfnbuf, /* Pointer to the LFN to be compared */
|
---|
630 | BYTE *dir /* Pointer to the directory entry containing a part of LFN */
|
---|
631 | )
|
---|
632 | {
|
---|
633 | int i, s;
|
---|
634 | WCHAR wc1, wc2;
|
---|
635 |
|
---|
636 |
|
---|
637 | i = ((dir[LDIR_Ord] & 0xBF) - 1) * 13; /* Offset in the LFN buffer */
|
---|
638 | s = 0;
|
---|
639 | do {
|
---|
640 | if (i >= _MAX_LFN) return FALSE; /* Out of buffer range? */
|
---|
641 | wc1 = LD_WORD(dir+LfnOfs[s]); /* Get both characters to compare */
|
---|
642 | wc2 = lfnbuf[i++];
|
---|
643 | if (IsLower(wc1)) wc1 -= 0x20; /* Compare it (ignore case) */
|
---|
644 | if (IsLower(wc2)) wc2 -= 0x20;
|
---|
645 | if (wc1 != wc2) return FALSE;
|
---|
646 | } while (++s < 13 && wc1); /* Repeat until last char or a NUL char is processed */
|
---|
647 |
|
---|
648 | return TRUE; /* The LFN entry matched */
|
---|
649 | }
|
---|
650 |
|
---|
651 |
|
---|
652 |
|
---|
653 | static
|
---|
654 | BOOL pick_lfn ( /* TRUE:Succeeded, FALSE:Buffer overflow */
|
---|
655 | WCHAR *lfnbuf, /* Pointer to the Unicode-LFN buffer */
|
---|
656 | BYTE *dir /* Pointer to the directory entry */
|
---|
657 | )
|
---|
658 | {
|
---|
659 | int i, s;
|
---|
660 | WCHAR wchr;
|
---|
661 |
|
---|
662 |
|
---|
663 | i = ((dir[LDIR_Ord] & 0xBF) - 1) * 13; /* Offset in the LFN buffer */
|
---|
664 | s = 0;
|
---|
665 | do {
|
---|
666 | wchr = LD_WORD(dir+LfnOfs[s]); /* Get an LFN char */
|
---|
667 | if (!wchr) break; /* End of LFN? */
|
---|
668 | if (i >= _MAX_LFN) return FALSE; /* Buffer overflow */
|
---|
669 | lfnbuf[i++] = wchr; /* Store it */
|
---|
670 | } while (++s < 13); /* Repeat until last char is copied */
|
---|
671 | if (dir[LDIR_Ord] & 0x40) lfnbuf[i] = 0; /* Put terminator if last LFN entry */
|
---|
672 |
|
---|
673 | return TRUE;
|
---|
674 | }
|
---|
675 |
|
---|
676 |
|
---|
677 | #if !_FS_READONLY
|
---|
678 | static
|
---|
679 | void fit_lfn (
|
---|
680 | const WCHAR *lfnbuf, /* Pointer to the LFN buffer */
|
---|
681 | BYTE *dir, /* Pointer to the directory entry */
|
---|
682 | BYTE ord, /* LFN order (1-20) */
|
---|
683 | BYTE sum /* SFN sum */
|
---|
684 | )
|
---|
685 | {
|
---|
686 | int i, s;
|
---|
687 | WCHAR wchr;
|
---|
688 |
|
---|
689 |
|
---|
690 | dir[LDIR_Chksum] = sum; /* Set check sum */
|
---|
691 | dir[LDIR_Attr] = AM_LFN; /* Set attribute. LFN entry */
|
---|
692 | dir[LDIR_Type] = 0;
|
---|
693 | ST_WORD(dir+LDIR_FstClusLO, 0);
|
---|
694 |
|
---|
695 | i = (ord - 1) * 13; /* Offset in the LFN buffer */
|
---|
696 | s = wchr = 0;
|
---|
697 | do {
|
---|
698 | if (wchr != 0xFFFF) wchr = lfnbuf[i++]; /* Get an effective char */
|
---|
699 | ST_WORD(dir+LfnOfs[s], wchr); /* Put it */
|
---|
700 | if (!wchr) wchr = 0xFFFF; /* Padding chars following last char */
|
---|
701 | } while (++s < 13);
|
---|
702 | if (wchr == 0xFFFF || !lfnbuf[i]) ord |= 0x40;/* Bottom LFN part is the start of LFN sequence */
|
---|
703 | dir[LDIR_Ord] = ord; /* Set the LFN order */
|
---|
704 | }
|
---|
705 |
|
---|
706 | #endif
|
---|
707 | #endif
|
---|
708 |
|
---|
709 |
|
---|
710 |
|
---|
711 | /*-----------------------------------------------------------------------*/
|
---|
712 | /* Create numbered name */
|
---|
713 | /*-----------------------------------------------------------------------*/
|
---|
714 | #if _USE_LFN
|
---|
715 | void gen_numname (
|
---|
716 | BYTE *dst, /* Pointer to genartated SFN */
|
---|
717 | const BYTE *src, /* Pointer to source SFN to be modified */
|
---|
718 | const WCHAR *lfn, /* Pointer to LFN */
|
---|
719 | WORD num /* Sequense number */
|
---|
720 | )
|
---|
721 | {
|
---|
722 | char ns[8];
|
---|
723 | int i, j;
|
---|
724 |
|
---|
725 |
|
---|
726 | mem_cpy(dst, src, 11);
|
---|
727 |
|
---|
728 | if (num > 5) { /* On many collisions, generate a hash number instead of sequencial number */
|
---|
729 | do num = (num >> 1) + (num << 15) + (WORD)*lfn++; while (*lfn);
|
---|
730 | }
|
---|
731 |
|
---|
732 | /* itoa */
|
---|
733 | i = 7;
|
---|
734 | do {
|
---|
735 | ns[i--] = (num % 10) + '0';
|
---|
736 | num /= 10;
|
---|
737 | } while (num);
|
---|
738 | ns[i] = '~';
|
---|
739 |
|
---|
740 | /* Append the number */
|
---|
741 | for (j = 0; j < i && dst[j] != ' '; j++) {
|
---|
742 | if (IsDBCS1(dst[j])) {
|
---|
743 | if (j == i - 1) break;
|
---|
744 | j++;
|
---|
745 | }
|
---|
746 | }
|
---|
747 | do {
|
---|
748 | dst[j++] = (i < 8) ? ns[i++] : ' ';
|
---|
749 | } while (j < 8);
|
---|
750 | }
|
---|
751 | #endif
|
---|
752 |
|
---|
753 |
|
---|
754 |
|
---|
755 |
|
---|
756 | /*-----------------------------------------------------------------------*/
|
---|
757 | /* Calculate sum of an SFN */
|
---|
758 | /*-----------------------------------------------------------------------*/
|
---|
759 | #if _USE_LFN
|
---|
760 | static
|
---|
761 | BYTE sum_sfn (
|
---|
762 | const BYTE *dir /* Ptr to directory entry */
|
---|
763 | )
|
---|
764 | {
|
---|
765 | BYTE sum = 0;
|
---|
766 | int n = 11;
|
---|
767 |
|
---|
768 | do sum = (sum >> 1) + (sum << 7) + *dir++; while (--n);
|
---|
769 | return sum;
|
---|
770 | }
|
---|
771 | #endif
|
---|
772 |
|
---|
773 |
|
---|
774 |
|
---|
775 |
|
---|
776 | /*-----------------------------------------------------------------------*/
|
---|
777 | /* Find an object in the directory */
|
---|
778 | /*-----------------------------------------------------------------------*/
|
---|
779 |
|
---|
780 | static
|
---|
781 | FRESULT dir_find (
|
---|
782 | DIR *dj /* Pointer to the directory object linked to the file name */
|
---|
783 | )
|
---|
784 | {
|
---|
785 | FRESULT res;
|
---|
786 | BYTE a, c, lfen, ord, sum, *dir;
|
---|
787 |
|
---|
788 |
|
---|
789 | res = dir_seek(dj, 0); /* Rewind directory object */
|
---|
790 | if (res != FR_OK) return res;
|
---|
791 |
|
---|
792 | ord = sum = 0xFF; lfen = *(dj->fn+11) & 1;
|
---|
793 | do {
|
---|
794 | res = move_window(dj->fs, dj->sect);
|
---|
795 | if (res != FR_OK) break;
|
---|
796 | dir = dj->dir; /* Ptr to the directory entry of current index */
|
---|
797 | c = dir[DIR_Name];
|
---|
798 | if (c == 0) { res = FR_NO_FILE; break; } /* Reached to end of table */
|
---|
799 | a = dir[DIR_Attr] & AM_MASK;
|
---|
800 | #if _USE_LFN /* LFN configuration */
|
---|
801 | if (c == 0xE5 || c == '.' || ((a & AM_VOL) && a != AM_LFN)) { /* An entry without valid data */
|
---|
802 | ord = 0xFF;
|
---|
803 | } else {
|
---|
804 | if (a == AM_LFN) { /* An LFN entry is found */
|
---|
805 | if (dj->lfn) {
|
---|
806 | if (c & 0x40) { /* Is it start of LFN sequence? */
|
---|
807 | sum = dir[LDIR_Chksum];
|
---|
808 | c &= 0xBF; ord = c; /* LFN start order */
|
---|
809 | dj->lfn_idx = dj->index;
|
---|
810 | }
|
---|
811 | /* Check LFN validity. Compare LFN if it is out of 8.3 format */
|
---|
812 | ord = (c == ord && sum == dir[LDIR_Chksum] && (!lfen || test_lfn(dj->lfn, dir))) ? ord - 1 : 0xFF;
|
---|
813 | }
|
---|
814 | } else { /* An SFN entry is found */
|
---|
815 | if (ord || sum != sum_sfn(dir)) { /* Did not LFN match? */
|
---|
816 | dj->lfn_idx = 0xFFFF;
|
---|
817 | ord = 0xFF;
|
---|
818 | }
|
---|
819 | if (lfen) { /* Match LFN if it is out of 8.3 format */
|
---|
820 | if (ord == 0) break;
|
---|
821 | } else { /* Match SFN if LFN is in 8.3 format */
|
---|
822 | if (!mem_cmp(dir, dj->fn, 11)) break;
|
---|
823 | }
|
---|
824 | }
|
---|
825 | }
|
---|
826 | #else /* Non LFN configuration */
|
---|
827 | if (c != 0xE5 && c != '.' && !(a & AM_VOL) && !mem_cmp(dir, dj->fn, 11)) /* Is it a valid entry? */
|
---|
828 | break;
|
---|
829 | #endif
|
---|
830 | res = dir_next(dj, FALSE); /* Next entry */
|
---|
831 | } while (res == FR_OK);
|
---|
832 |
|
---|
833 | return res;
|
---|
834 | }
|
---|
835 |
|
---|
836 |
|
---|
837 |
|
---|
838 |
|
---|
839 | /*-----------------------------------------------------------------------*/
|
---|
840 | /* Read an object from the directory */
|
---|
841 | /*-----------------------------------------------------------------------*/
|
---|
842 | #if _FS_MINIMIZE <= 2
|
---|
843 | static
|
---|
844 | FRESULT dir_read (
|
---|
845 | DIR *dj /* Pointer to the directory object to store read object name */
|
---|
846 | )
|
---|
847 | {
|
---|
848 | FRESULT res;
|
---|
849 | BYTE a, c, ord, sum, *dir;
|
---|
850 |
|
---|
851 |
|
---|
852 | ord = sum = 0xFF;
|
---|
853 | res = FR_NO_FILE;
|
---|
854 | while (dj->sect) {
|
---|
855 | res = move_window(dj->fs, dj->sect);
|
---|
856 | if (res != FR_OK) break;
|
---|
857 | dir = dj->dir; /* Ptr to the directory entry of current index */
|
---|
858 | c = dir[DIR_Name];
|
---|
859 | if (c == 0) { res = FR_NO_FILE; break; } /* Reached to end of table */
|
---|
860 | a = dir[DIR_Attr] & AM_MASK;
|
---|
861 | #if _USE_LFN /* LFN configuration */
|
---|
862 | if (c == 0xE5 || c == '.' || ((a & AM_VOL) && a != AM_LFN)) { /* An entry without valid data */
|
---|
863 | ord = 0xFF;
|
---|
864 | } else {
|
---|
865 | if (a == AM_LFN) { /* An LFN entry is found */
|
---|
866 | if (c & 0x40) { /* Is it start of LFN sequence? */
|
---|
867 | sum = dir[LDIR_Chksum];
|
---|
868 | c &= 0xBF; ord = c;
|
---|
869 | dj->lfn_idx = dj->index;
|
---|
870 | }
|
---|
871 | /* Check LFN validity and capture it */
|
---|
872 | ord = (c == ord && sum == dir[LDIR_Chksum] && pick_lfn(dj->lfn, dir)) ? ord - 1 : 0xFF;
|
---|
873 | } else { /* An SFN entry is found */
|
---|
874 | if (ord || sum != sum_sfn(dir)) /* Is there a valid LFN entry? */
|
---|
875 | dj->lfn_idx = 0xFFFF; /* No LFN. */
|
---|
876 | break;
|
---|
877 | }
|
---|
878 | }
|
---|
879 | #else /* Non LFN configuration */
|
---|
880 | if (c != 0xE5 && c != '.' && !(a & AM_VOL)) /* Is it a valid entry? */
|
---|
881 | break;
|
---|
882 | #endif
|
---|
883 | res = dir_next(dj, FALSE); /* Next entry */
|
---|
884 | if (res != FR_OK) break;
|
---|
885 | }
|
---|
886 |
|
---|
887 | if (res != FR_OK) dj->sect = 0;
|
---|
888 |
|
---|
889 | return res;
|
---|
890 | }
|
---|
891 | #endif
|
---|
892 |
|
---|
893 |
|
---|
894 |
|
---|
895 | /*-----------------------------------------------------------------------*/
|
---|
896 | /* Register an object to the directory */
|
---|
897 | /*-----------------------------------------------------------------------*/
|
---|
898 | #if !_FS_READONLY
|
---|
899 | static
|
---|
900 | FRESULT dir_register ( /* FR_OK:Successful, FR_DENIED:No free entry or too many SFN collision, FR_DISK_ERR:Disk error */
|
---|
901 | DIR *dj /* Target directory with object name to be created */
|
---|
902 | )
|
---|
903 | {
|
---|
904 | FRESULT res;
|
---|
905 | BYTE c, *dir;
|
---|
906 |
|
---|
907 | #if _USE_LFN /* LFN configuration */
|
---|
908 | WORD n, ne, is;
|
---|
909 | BYTE sn[12], *fn, sum;
|
---|
910 | WCHAR *lfn;
|
---|
911 |
|
---|
912 | fn = dj->fn; lfn = dj->lfn;
|
---|
913 | mem_cpy(sn, fn, 12);
|
---|
914 | if (sn[11] & 1) { /* When LFN is out of 8.3 format, generate a numbered name */
|
---|
915 | fn[11] = 0; dj->lfn = NULL; /* Find only SFN */
|
---|
916 | for (n = 1; n < 100; n++) {
|
---|
917 | gen_numname(fn, sn, lfn, n); /* Generate a numbered name */
|
---|
918 | res = dir_find(dj); /* Check if the name collides with existing SFN */
|
---|
919 | if (res != FR_OK) break;
|
---|
920 | }
|
---|
921 | if (n == 100) return FR_DENIED; /* Abort if too many collisions */
|
---|
922 | if (res != FR_NO_FILE) return res; /* Abort if the result is other than 'not collided' */
|
---|
923 | fn[11] = sn[11]; dj->lfn = lfn;
|
---|
924 | }
|
---|
925 | if (sn[11] & 2) { /* When eliminate LFN, reserve only an SFN entry. */
|
---|
926 | ne = 1;
|
---|
927 | } else { /* Otherwise reserve an SFN + LFN entries. */
|
---|
928 | for (ne = 0; lfn[ne]; ne++) ;
|
---|
929 | ne = (ne + 25) / 13;
|
---|
930 | }
|
---|
931 |
|
---|
932 | /* Reserve contiguous entries */
|
---|
933 | res = dir_seek(dj, 0);
|
---|
934 | if (res != FR_OK) return res;
|
---|
935 | n = is = 0;
|
---|
936 | do {
|
---|
937 | res = move_window(dj->fs, dj->sect);
|
---|
938 | if (res != FR_OK) break;
|
---|
939 | c = *dj->dir; /* Check the entry status */
|
---|
940 | if (c == 0xE5 || c == 0) { /* Is it a blank entry? */
|
---|
941 | if (n == 0) is = dj->index; /* First index of the contigulus entry */
|
---|
942 | if (++n == ne) break; /* A contiguous entry that requiered count is found */
|
---|
943 | } else {
|
---|
944 | n = 0; /* Not a blank entry. Restart to search */
|
---|
945 | }
|
---|
946 | res = dir_next(dj, TRUE); /* Next entry with table streach */
|
---|
947 | } while (res == FR_OK);
|
---|
948 |
|
---|
949 | if (res == FR_OK && ne > 1) { /* Initialize LFN entry if needed */
|
---|
950 | res = dir_seek(dj, is);
|
---|
951 | if (res == FR_OK) {
|
---|
952 | sum = sum_sfn(dj->fn); /* Sum of the SFN tied to the LFN */
|
---|
953 | ne--;
|
---|
954 | do { /* Store LFN entries in bottom first */
|
---|
955 | res = move_window(dj->fs, dj->sect);
|
---|
956 | if (res != FR_OK) break;
|
---|
957 | fit_lfn(dj->lfn, dj->dir, (BYTE)ne, sum);
|
---|
958 | dj->fs->wflag = 1;
|
---|
959 | res = dir_next(dj, FALSE); /* Next entry */
|
---|
960 | } while (res == FR_OK && --ne);
|
---|
961 | }
|
---|
962 | }
|
---|
963 |
|
---|
964 | #else /* Non LFN configuration */
|
---|
965 | res = dir_seek(dj, 0);
|
---|
966 | if (res == FR_OK) {
|
---|
967 | do { /* Find a blank entry for the SFN */
|
---|
968 | res = move_window(dj->fs, dj->sect);
|
---|
969 | if (res != FR_OK) break;
|
---|
970 | c = *dj->dir;
|
---|
971 | if (c == 0xE5 || c == 0) break; /* Is it a blank entry? */
|
---|
972 | res = dir_next(dj, TRUE); /* Next entry with table streach */
|
---|
973 | } while (res == FR_OK);
|
---|
974 | }
|
---|
975 | #endif
|
---|
976 |
|
---|
977 | if (res == FR_OK) { /* Initialize the SFN entry */
|
---|
978 | res = move_window(dj->fs, dj->sect);
|
---|
979 | if (res == FR_OK) {
|
---|
980 | dir = dj->dir;
|
---|
981 | mem_set(dir, 0, 32); /* Clean the entry */
|
---|
982 | mem_cpy(dir, dj->fn, 11); /* Put SFN */
|
---|
983 | dir[DIR_NTres] = *(dj->fn+11) & 0x18; /* Put NT flag */
|
---|
984 | dj->fs->wflag = 1;
|
---|
985 | }
|
---|
986 | }
|
---|
987 |
|
---|
988 | return res;
|
---|
989 | }
|
---|
990 | #endif /* !_FS_READONLY */
|
---|
991 |
|
---|
992 |
|
---|
993 |
|
---|
994 |
|
---|
995 | /*-----------------------------------------------------------------------*/
|
---|
996 | /* Remove an object from the directory */
|
---|
997 | /*-----------------------------------------------------------------------*/
|
---|
998 | #if !_FS_READONLY && !_FS_MINIMIZE
|
---|
999 | static
|
---|
1000 | FRESULT dir_remove ( /* FR_OK: Successful, FR_DISK_ERR: A disk error */
|
---|
1001 | DIR *dj /* Directory object pointing the entry to be removed */
|
---|
1002 | )
|
---|
1003 | {
|
---|
1004 | FRESULT res;
|
---|
1005 |
|
---|
1006 | #if _USE_LFN /* LFN configuration */
|
---|
1007 | WORD i;
|
---|
1008 |
|
---|
1009 | i = dj->index; /* SFN index */
|
---|
1010 | res = dir_seek(dj, (WORD)((dj->lfn_idx == 0xFFFF) ? i : dj->lfn_idx)); /* Goto the SFN or top of the LFN entries */
|
---|
1011 | if (res == FR_OK) {
|
---|
1012 | do {
|
---|
1013 | res = move_window(dj->fs, dj->sect);
|
---|
1014 | if (res != FR_OK) break;
|
---|
1015 | *dj->dir = 0xE5; /* Mark the entry "deleted" */
|
---|
1016 | dj->fs->wflag = 1;
|
---|
1017 | if (dj->index >= i) break; /* When SFN is deleted, all entries of the object is deleted. */
|
---|
1018 | res = dir_next(dj, FALSE); /* Next entry */
|
---|
1019 | } while (res == FR_OK);
|
---|
1020 | if (res == FR_NO_FILE) res = FR_INT_ERR;
|
---|
1021 | }
|
---|
1022 |
|
---|
1023 | #else /* Non LFN configuration */
|
---|
1024 | res = dir_seek(dj, dj->index);
|
---|
1025 | if (res == FR_OK) {
|
---|
1026 | res = move_window(dj->fs, dj->sect);
|
---|
1027 | if (res == FR_OK) {
|
---|
1028 | *dj->dir = 0xE5; /* Mark the entry "deleted" */
|
---|
1029 | dj->fs->wflag = 1;
|
---|
1030 | }
|
---|
1031 | }
|
---|
1032 | #endif
|
---|
1033 |
|
---|
1034 | return res;
|
---|
1035 | }
|
---|
1036 | #endif /* !_FS_READONLY */
|
---|
1037 |
|
---|
1038 |
|
---|
1039 |
|
---|
1040 |
|
---|
1041 | /*-----------------------------------------------------------------------*/
|
---|
1042 | /* Pick a segment and create the object name in directory form */
|
---|
1043 | /*-----------------------------------------------------------------------*/
|
---|
1044 |
|
---|
1045 | static
|
---|
1046 | FRESULT create_name (
|
---|
1047 | DIR *dj, /* Pointer to the directory object */
|
---|
1048 | const char **path /* Pointer to pointer to the segment in the path string */
|
---|
1049 | )
|
---|
1050 | {
|
---|
1051 | #if _USE_LFN
|
---|
1052 | BYTE c, b, cf, *sfn;
|
---|
1053 | WCHAR w, *lfn;
|
---|
1054 | int i, ni, si, di;
|
---|
1055 | const char *p;
|
---|
1056 |
|
---|
1057 | /* Create LFN in Unicode */
|
---|
1058 | si = di = 0;
|
---|
1059 | p = *path;
|
---|
1060 | lfn = dj->lfn;
|
---|
1061 | for (;;) {
|
---|
1062 | w = (BYTE)p[si++]; /* Get a character */
|
---|
1063 | if (w < ' ' || w == '/' || w == '\\') break; /* Break on end of segment */
|
---|
1064 | if (IsDBCS1(w)) { /* If it is DBC 1st byte */
|
---|
1065 | c = p[si++]; /* Get 2nd byte */
|
---|
1066 | if (!IsDBCS2(c)) /* Reject invalid DBC */
|
---|
1067 | return FR_INVALID_NAME;
|
---|
1068 | w = (w << 8) + c;
|
---|
1069 | } else {
|
---|
1070 | if (chk_chr("\"*:<>\?|\x7F", w)) /* Reject unallowable chars for LFN */
|
---|
1071 | return FR_INVALID_NAME;
|
---|
1072 | }
|
---|
1073 | w = ff_convert(w, 1); /* Convert OEM to Unicode, store it */
|
---|
1074 | if (!w || di >= _MAX_LFN) /* Reject invalid code or too long name */
|
---|
1075 | return FR_INVALID_NAME;
|
---|
1076 | lfn[di++] = w;
|
---|
1077 | }
|
---|
1078 | *path = &p[si]; /* Rerurn pointer to the next segment */
|
---|
1079 | cf = (w < ' ') ? 4 : 0; /* Set last segment flag if end of path */
|
---|
1080 |
|
---|
1081 | while (di) { /* Strip trailing spaces and dots */
|
---|
1082 | w = lfn[di - 1];
|
---|
1083 | if (w != ' ' && w != '.') break;
|
---|
1084 | di--;
|
---|
1085 | }
|
---|
1086 | if (!di) return FR_INVALID_NAME; /* Reject null string */
|
---|
1087 |
|
---|
1088 | lfn[di] = 0; /* LFN is created */
|
---|
1089 |
|
---|
1090 | /* Create SFN in directory form */
|
---|
1091 | sfn = dj->fn;
|
---|
1092 | mem_set(sfn, ' ', 11);
|
---|
1093 | for (si = 0; lfn[si] == ' ' || lfn[si] == '.'; si++) ; /* Strip leading spaces and dots */
|
---|
1094 | if (si) cf |= 1;
|
---|
1095 | while (di && lfn[di - 1] != '.') di--; /* Find extension (di<=si: no extension) */
|
---|
1096 |
|
---|
1097 | b = i = 0; ni = 8;
|
---|
1098 | for (;;) {
|
---|
1099 | w = lfn[si++]; /* Get an LFN char */
|
---|
1100 | if (w == 0) break; /* Break when enf of the LFN */
|
---|
1101 | if (w == ' ' || (w == '.' && si != di)) { /* Remove spaces and dots */
|
---|
1102 | cf |= 1; continue;
|
---|
1103 | }
|
---|
1104 | if (i >= ni || si == di) { /* Here is extension or end of SFN */
|
---|
1105 | if (ni == 11) { /* Extension is longer than 3 bytes */
|
---|
1106 | cf |= 1; break;
|
---|
1107 | }
|
---|
1108 | if (si != di) cf |= 1; /* File name is longer than 8 bytes */
|
---|
1109 | if (si > di) break; /* No extension */
|
---|
1110 | si = di; i = 8; ni = 11; /* Enter extension section */
|
---|
1111 | b <<= 2; continue;
|
---|
1112 | }
|
---|
1113 | w = ff_convert(w, 0); /* Unicode -> OEM code */
|
---|
1114 | if (w >= 0x80) cf |= 0x20; /* If there is any extended char, force create an LFN */
|
---|
1115 | if (w >= 0x100) { /* Double byte char */
|
---|
1116 | if (i >= ni - 1) {
|
---|
1117 | cf |= 1; i = ni; continue;
|
---|
1118 | }
|
---|
1119 | sfn[i++] = (BYTE)(w >> 8);
|
---|
1120 | } else { /* Single byte char */
|
---|
1121 | if (chk_chr("+,;[=]", w)) { /* Replace unallowable chars for SFN */
|
---|
1122 | w = '_'; cf |= 1;
|
---|
1123 | } else {
|
---|
1124 | if (IsUpper(w)) { /* Large capital */
|
---|
1125 | b |= 2;
|
---|
1126 | } else {
|
---|
1127 | if (IsLower(w)) { /* Small capital */
|
---|
1128 | b |= 1; w -= 0x20;
|
---|
1129 | }
|
---|
1130 | }
|
---|
1131 | }
|
---|
1132 | }
|
---|
1133 | sfn[i++] = (BYTE)w;
|
---|
1134 | }
|
---|
1135 | if (sfn[0] == 0xE5) sfn[0] = 0x05; /* When first char collides with 0xE5, replace it with 0x05 */
|
---|
1136 |
|
---|
1137 | if (ni == 8) b <<= 2;
|
---|
1138 | if ((cf & 0x21) == 0) { /* When LFN is in 8.3 format without extended char, NT flags are created */
|
---|
1139 | if ((b & 0x03) == 0x01) cf |= 0x10; /* NT flag (Extension has only small capital) */
|
---|
1140 | if ((b & 0x0C) == 0x04) cf |= 0x08; /* NT flag (Filename has only small capital) */
|
---|
1141 | if ((b & 0x0C) != 0x0C && (b & 0x03) != 0x03) cf |= 2; /* Eliminate LFN when non composite capitals */
|
---|
1142 | }
|
---|
1143 |
|
---|
1144 | sfn[11] = cf; /* SFN is created */
|
---|
1145 |
|
---|
1146 | #else
|
---|
1147 | BYTE c, d, b, *sfn;
|
---|
1148 | int ni, si, i;
|
---|
1149 | const char *p;
|
---|
1150 |
|
---|
1151 | /* Create file name in directory form */
|
---|
1152 | sfn = dj->fn;
|
---|
1153 | mem_set(sfn, ' ', 11);
|
---|
1154 | si = i = b = 0; ni = 8;
|
---|
1155 | p = *path;
|
---|
1156 | for (;;) {
|
---|
1157 | c = p[si++];
|
---|
1158 | if (c < ' ' || c == '/' || c == '\\') break; /* Break on end of segment */
|
---|
1159 | if (c == '.' || i >= ni) {
|
---|
1160 | if (ni != 8 || c != '.') return FR_INVALID_NAME;
|
---|
1161 | i = 8; ni = 11;
|
---|
1162 | b <<= 2; continue;
|
---|
1163 | }
|
---|
1164 | if (c >= 0x80) b |= 3; /* If there is any extended char, eliminate NT flag */
|
---|
1165 | if (IsDBCS1(c)) { /* If it is DBC 1st byte */
|
---|
1166 | d = p[si++]; /* Get 2nd byte */
|
---|
1167 | if (!IsDBCS2(d) || i >= ni - 1) /* Reject invalid DBC */
|
---|
1168 | return FR_INVALID_NAME;
|
---|
1169 | sfn[i++] = c;
|
---|
1170 | sfn[i++] = d;
|
---|
1171 | } else {
|
---|
1172 | if (chk_chr(" +,;[=]\"*:<>\?|\x7F", c)) /* Reject unallowable chrs for SFN */
|
---|
1173 | return FR_INVALID_NAME;
|
---|
1174 | if (IsUpper(c)) {
|
---|
1175 | b |= 2;
|
---|
1176 | } else {
|
---|
1177 | if (IsLower(c)) {
|
---|
1178 | b |= 1; c -= 0x20;
|
---|
1179 | }
|
---|
1180 | }
|
---|
1181 | sfn[i++] = c;
|
---|
1182 | }
|
---|
1183 | }
|
---|
1184 | *path = &p[si]; /* Rerurn pointer to the next segment */
|
---|
1185 | c = (c < ' ') ? 4 : 0; /* Set last segment flag if end of path */
|
---|
1186 |
|
---|
1187 | if (!i) return FR_INVALID_NAME; /* Reject null string */
|
---|
1188 | if (sfn[0] == 0xE5) sfn[0] = 0x05; /* When first char collides with 0xE5, replace it with 0x05 */
|
---|
1189 |
|
---|
1190 | if (ni == 8) b <<= 2;
|
---|
1191 | if ((b & 0x03) == 0x01) c |= 0x10; /* NT flag (Extension has only small capital) */
|
---|
1192 | if ((b & 0x0C) == 0x04) c |= 0x08; /* NT flag (Filename has only small capital) */
|
---|
1193 |
|
---|
1194 | sfn[11] = c; /* Store NT flag, File name is created */
|
---|
1195 | #endif
|
---|
1196 |
|
---|
1197 | return FR_OK;
|
---|
1198 | }
|
---|
1199 |
|
---|
1200 |
|
---|
1201 |
|
---|
1202 |
|
---|
1203 | /*-----------------------------------------------------------------------*/
|
---|
1204 | /* Get file information from directory entry */
|
---|
1205 | /*-----------------------------------------------------------------------*/
|
---|
1206 | #if _FS_MINIMIZE <= 1
|
---|
1207 | static
|
---|
1208 | void get_fileinfo ( /* No return code */
|
---|
1209 | DIR *dj, /* Pointer to the directory object */
|
---|
1210 | FILINFO *fno /* Pointer to store the file information */
|
---|
1211 | )
|
---|
1212 | {
|
---|
1213 | int i;
|
---|
1214 | BYTE c, nt, *dir;
|
---|
1215 | char *p;
|
---|
1216 |
|
---|
1217 |
|
---|
1218 | p = fno->fname;
|
---|
1219 | if (dj->sect) {
|
---|
1220 | dir = dj->dir;
|
---|
1221 | nt = dir[DIR_NTres]; /* NT flag */
|
---|
1222 | for (i = 0; i < 8; i++) { /* Copy file name body */
|
---|
1223 | c = dir[i];
|
---|
1224 | if (c == ' ') break;
|
---|
1225 | if (c == 0x05) c = 0xE5;
|
---|
1226 | if ((nt & 0x08) && IsUpper(c)) c += 0x20;
|
---|
1227 | *p++ = c;
|
---|
1228 | }
|
---|
1229 | if (dir[8] != ' ') { /* Copy file name extension */
|
---|
1230 | *p++ = '.';
|
---|
1231 | for (i = 8; i < 11; i++) {
|
---|
1232 | c = dir[i];
|
---|
1233 | if (c == ' ') break;
|
---|
1234 | if ((nt & 0x10) && IsUpper(c)) c += 0x20;
|
---|
1235 | *p++ = c;
|
---|
1236 | }
|
---|
1237 | }
|
---|
1238 | fno->fattrib = dir[DIR_Attr]; /* Attribute */
|
---|
1239 | fno->fsize = LD_DWORD(dir+DIR_FileSize); /* Size */
|
---|
1240 | fno->fdate = LD_WORD(dir+DIR_WrtDate); /* Date */
|
---|
1241 | fno->ftime = LD_WORD(dir+DIR_WrtTime); /* Time */
|
---|
1242 | }
|
---|
1243 | *p = 0;
|
---|
1244 |
|
---|
1245 | #if _USE_LFN
|
---|
1246 | p = fno->lfname;
|
---|
1247 | if (p) {
|
---|
1248 | WCHAR wchr, *lfn;
|
---|
1249 |
|
---|
1250 | i = 0;
|
---|
1251 | if (dj->sect && dj->lfn_idx != 0xFFFF) {/* Get LFN if available */
|
---|
1252 | lfn = dj->lfn;
|
---|
1253 | while ((wchr = *lfn++) != 0) { /* Get an LFN char */
|
---|
1254 | wchr = ff_convert(wchr, 0); /* Unicode -> OEM code */
|
---|
1255 | if (!wchr) { i = 0; break; } /* Conversion error, no LFN */
|
---|
1256 | if (_DF1S && wchr >= 0x100) /* Put 1st byte if it is a DBC */
|
---|
1257 | p[i++] = (char)(wchr >> 8);
|
---|
1258 | p[i++] = (char)wchr;
|
---|
1259 | if (i >= fno->lfsize) { i = 0; break; } /* Buffer overrun, no LFN */
|
---|
1260 | }
|
---|
1261 | }
|
---|
1262 | p[i] = 0; /* Terminator */
|
---|
1263 | }
|
---|
1264 | #endif
|
---|
1265 | }
|
---|
1266 | #endif /* _FS_MINIMIZE <= 1 */
|
---|
1267 |
|
---|
1268 |
|
---|
1269 |
|
---|
1270 |
|
---|
1271 | /*-----------------------------------------------------------------------*/
|
---|
1272 | /* Follow a file path */
|
---|
1273 | /*-----------------------------------------------------------------------*/
|
---|
1274 |
|
---|
1275 | static
|
---|
1276 | FRESULT follow_path ( /* FR_OK(0): successful, !=0: error code */
|
---|
1277 | DIR *dj, /* Directory object to return last directory and found object */
|
---|
1278 | const char *path /* Full-path string to find a file or directory */
|
---|
1279 | )
|
---|
1280 | {
|
---|
1281 | FRESULT res;
|
---|
1282 | BYTE *dir, last;
|
---|
1283 |
|
---|
1284 |
|
---|
1285 | if (*path == '/' || *path == '\\' ) path++; /* Strip heading separator */
|
---|
1286 |
|
---|
1287 | dj->sclust = /* Set start directory (root dir) */
|
---|
1288 | (dj->fs->fs_type == FS_FAT32) ? dj->fs->dirbase : 0;
|
---|
1289 |
|
---|
1290 | if ((BYTE)*path < ' ') { /* Null path means the root directory */
|
---|
1291 | res = dir_seek(dj, 0);
|
---|
1292 | dj->dir = NULL;
|
---|
1293 |
|
---|
1294 | } else { /* Follow path */
|
---|
1295 | for (;;) {
|
---|
1296 | res = create_name(dj, &path); /* Get a segment */
|
---|
1297 | if (res != FR_OK) break;
|
---|
1298 | res = dir_find(dj); /* Find it */
|
---|
1299 | last = *(dj->fn+11) & 4;
|
---|
1300 | if (res != FR_OK) { /* Could not find the object */
|
---|
1301 | if (res == FR_NO_FILE && !last)
|
---|
1302 | res = FR_NO_PATH;
|
---|
1303 | break;
|
---|
1304 | }
|
---|
1305 | if (last) break; /* Last segment match. Function completed. */
|
---|
1306 | dir = dj->dir; /* There is next segment. Follow the sub directory */
|
---|
1307 | if (!(dir[DIR_Attr] & AM_DIR)) { /* Cannot follow because it is a file */
|
---|
1308 | res = FR_NO_PATH; break;
|
---|
1309 | }
|
---|
1310 | dj->sclust = ((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) | LD_WORD(dir+DIR_FstClusLO);
|
---|
1311 | }
|
---|
1312 | }
|
---|
1313 |
|
---|
1314 | return res;
|
---|
1315 | }
|
---|
1316 |
|
---|
1317 |
|
---|
1318 |
|
---|
1319 |
|
---|
1320 | /*-----------------------------------------------------------------------*/
|
---|
1321 | /* Load boot record and check if it is an FAT boot record */
|
---|
1322 | /*-----------------------------------------------------------------------*/
|
---|
1323 |
|
---|
1324 | static
|
---|
1325 | BYTE check_fs ( /* 0:The FAT boot record, 1:Valid boot record but not an FAT, 2:Not a boot record, 3:Error */
|
---|
1326 | FATFS *fs, /* File system object */
|
---|
1327 | DWORD sect /* Sector# (lba) to check if it is an FAT boot record or not */
|
---|
1328 | )
|
---|
1329 | {
|
---|
1330 | if (disk_read(fs->drive, fs->win, sect, 1) != RES_OK) /* Load boot record */
|
---|
1331 | return 3;
|
---|
1332 | if (LD_WORD(&fs->win[BS_55AA]) != 0xAA55) /* Check record signature (always placed at offset 510 even if the sector size is >512) */
|
---|
1333 | return 2;
|
---|
1334 |
|
---|
1335 | if (!mem_cmp(&fs->win[BS_FilSysType], "FAT", 3)) /* Check FAT signature */
|
---|
1336 | return 0;
|
---|
1337 | if (!mem_cmp(&fs->win[BS_FilSysType32], "FAT32", 5) && !(fs->win[BPB_ExtFlags] & 0x80))
|
---|
1338 | return 0;
|
---|
1339 |
|
---|
1340 | return 1;
|
---|
1341 | }
|
---|
1342 |
|
---|
1343 |
|
---|
1344 |
|
---|
1345 |
|
---|
1346 | /*-----------------------------------------------------------------------*/
|
---|
1347 | /* Make sure that the file system is valid */
|
---|
1348 | /*-----------------------------------------------------------------------*/
|
---|
1349 |
|
---|
1350 | static
|
---|
1351 | FRESULT auto_mount ( /* FR_OK(0): successful, !=0: any error occured */
|
---|
1352 | const char **path, /* Pointer to pointer to the path name (drive number) */
|
---|
1353 | FATFS **rfs, /* Pointer to pointer to the found file system object */
|
---|
1354 | BYTE chk_wp /* !=0: Check media write protection for write access */
|
---|
1355 | )
|
---|
1356 | {
|
---|
1357 | FRESULT res;
|
---|
1358 | BYTE vol, fmt, *tbl;
|
---|
1359 | DSTATUS stat;
|
---|
1360 | DWORD bsect, fsize, tsect, mclst;
|
---|
1361 | const char *p = *path;
|
---|
1362 | FATFS *fs;
|
---|
1363 |
|
---|
1364 |
|
---|
1365 | /* Get logical drive number from the path name */
|
---|
1366 | vol = p[0] - '0'; /* Is there a drive number? */
|
---|
1367 | if (vol <= 9 && p[1] == ':') {
|
---|
1368 | p += 2; /* Found a drive number, get and strip it */
|
---|
1369 | *path = p; /* Return pointer to the path name */
|
---|
1370 | } else {
|
---|
1371 | vol = 0; /* No drive number is given, use drive number 0 as default */
|
---|
1372 | }
|
---|
1373 |
|
---|
1374 | /* Check if the logical drive number is valid or not */
|
---|
1375 | if (vol >= _DRIVES) return FR_INVALID_DRIVE; /* Is the drive number valid? */
|
---|
1376 | *rfs = fs = FatFs[vol]; /* Returen pointer to the corresponding file system object */
|
---|
1377 | if (!fs) return FR_NOT_ENABLED; /* Is the file system object registered? */
|
---|
1378 |
|
---|
1379 | ENTER_FF(fs); /* Lock file system */
|
---|
1380 |
|
---|
1381 | if (fs->fs_type) { /* If the logical drive has been mounted */
|
---|
1382 | stat = disk_status(fs->drive);
|
---|
1383 | if (!(stat & STA_NOINIT)) { /* and physical drive is kept initialized (has not been changed), */
|
---|
1384 | #if !_FS_READONLY
|
---|
1385 | if (chk_wp && (stat & STA_PROTECT)) /* Check write protection if needed */
|
---|
1386 | return FR_WRITE_PROTECTED;
|
---|
1387 | #endif
|
---|
1388 | return FR_OK; /* The file system object is valid */
|
---|
1389 | }
|
---|
1390 | }
|
---|
1391 |
|
---|
1392 | /* The logical drive must be re-mounted. Following code attempts to mount the volume */
|
---|
1393 |
|
---|
1394 | fs->fs_type = 0; /* Clear the file system object */
|
---|
1395 | fs->drive = LD2PD(vol); /* Bind the logical drive and a physical drive */
|
---|
1396 | stat = disk_initialize(fs->drive); /* Initialize low level disk I/O layer */
|
---|
1397 | if (stat & STA_NOINIT) /* Check if the drive is ready */
|
---|
1398 | return FR_NOT_READY;
|
---|
1399 | #if _MAX_SS != 512 /* Get disk sector size if needed */
|
---|
1400 | if (disk_ioctl(fs->drive, GET_SECTOR_SIZE, &SS(fs)) != RES_OK || SS(fs) > _MAX_SS)
|
---|
1401 | return FR_NO_FILESYSTEM;
|
---|
1402 | #endif
|
---|
1403 | #if !_FS_READONLY
|
---|
1404 | if (chk_wp && (stat & STA_PROTECT)) /* Check write protection if needed */
|
---|
1405 | return FR_WRITE_PROTECTED;
|
---|
1406 | #endif
|
---|
1407 | /* Search FAT partition on the drive */
|
---|
1408 | fmt = check_fs(fs, bsect = 0); /* Check sector 0 as an SFD format */
|
---|
1409 | if (fmt == 1) { /* Not an FAT boot record, it may be patitioned */
|
---|
1410 | /* Check a partition listed in top of the partition table */
|
---|
1411 | tbl = &fs->win[MBR_Table + LD2PT(vol) * 16]; /* Partition table */
|
---|
1412 | if (tbl[4]) { /* Is the partition existing? */
|
---|
1413 | bsect = LD_DWORD(&tbl[8]); /* Partition offset in LBA */
|
---|
1414 | fmt = check_fs(fs, bsect); /* Check the partition */
|
---|
1415 | }
|
---|
1416 | }
|
---|
1417 | if (fmt == 3) return FR_DISK_ERR;
|
---|
1418 | if (fmt || LD_WORD(fs->win+BPB_BytsPerSec) != SS(fs)) /* No valid FAT patition is found */
|
---|
1419 | return FR_NO_FILESYSTEM;
|
---|
1420 |
|
---|
1421 | /* Initialize the file system object */
|
---|
1422 | fsize = LD_WORD(fs->win+BPB_FATSz16); /* Number of sectors per FAT */
|
---|
1423 | if (!fsize) fsize = LD_DWORD(fs->win+BPB_FATSz32);
|
---|
1424 | fs->sects_fat = fsize;
|
---|
1425 | fs->n_fats = fs->win[BPB_NumFATs]; /* Number of FAT copies */
|
---|
1426 | fsize *= fs->n_fats; /* (Number of sectors in FAT area) */
|
---|
1427 | fs->fatbase = bsect + LD_WORD(fs->win+BPB_RsvdSecCnt); /* FAT start sector (lba) */
|
---|
1428 | fs->csize = fs->win[BPB_SecPerClus]; /* Number of sectors per cluster */
|
---|
1429 | fs->n_rootdir = LD_WORD(fs->win+BPB_RootEntCnt); /* Nmuber of root directory entries */
|
---|
1430 | tsect = LD_WORD(fs->win+BPB_TotSec16); /* Number of sectors on the file system */
|
---|
1431 | if (!tsect) tsect = LD_DWORD(fs->win+BPB_TotSec32);
|
---|
1432 | fs->max_clust = mclst = (tsect /* Last cluster# + 1 */
|
---|
1433 | - LD_WORD(fs->win+BPB_RsvdSecCnt) - fsize - fs->n_rootdir / (SS(fs)/32)
|
---|
1434 | ) / fs->csize + 2;
|
---|
1435 |
|
---|
1436 | fmt = FS_FAT12; /* Determine the FAT sub type */
|
---|
1437 | if (mclst >= 0xFF7) fmt = FS_FAT16; /* Number of clusters >= 0xFF5 */
|
---|
1438 | if (mclst >= 0xFFF7) fmt = FS_FAT32; /* Number of clusters >= 0xFFF5 */
|
---|
1439 |
|
---|
1440 | if (fmt == FS_FAT32)
|
---|
1441 | fs->dirbase = LD_DWORD(fs->win+BPB_RootClus); /* Root directory start cluster */
|
---|
1442 | else
|
---|
1443 | fs->dirbase = fs->fatbase + fsize; /* Root directory start sector (lba) */
|
---|
1444 | fs->database = fs->fatbase + fsize + fs->n_rootdir / (SS(fs)/32); /* Data start sector (lba) */
|
---|
1445 |
|
---|
1446 | #if !_FS_READONLY
|
---|
1447 | /* Initialize allocation information */
|
---|
1448 | fs->free_clust = 0xFFFFFFFF;
|
---|
1449 | fs->wflag = 0;
|
---|
1450 | /* Get fsinfo if needed */
|
---|
1451 | if (fmt == FS_FAT32) {
|
---|
1452 | fs->fsi_sector = bsect + LD_WORD(fs->win+BPB_FSInfo);
|
---|
1453 | fs->fsi_flag = 0;
|
---|
1454 | if (disk_read(fs->drive, fs->win, fs->fsi_sector, 1) == RES_OK &&
|
---|
1455 | LD_WORD(fs->win+BS_55AA) == 0xAA55 &&
|
---|
1456 | LD_DWORD(fs->win+FSI_LeadSig) == 0x41615252 &&
|
---|
1457 | LD_DWORD(fs->win+FSI_StrucSig) == 0x61417272) {
|
---|
1458 | fs->last_clust = LD_DWORD(fs->win+FSI_Nxt_Free);
|
---|
1459 | fs->free_clust = LD_DWORD(fs->win+FSI_Free_Count);
|
---|
1460 | }
|
---|
1461 | }
|
---|
1462 | #endif
|
---|
1463 | fs->winsect = 0;
|
---|
1464 | fs->fs_type = fmt; /* FAT syb-type */
|
---|
1465 | fs->id = ++Fsid; /* File system mount ID */
|
---|
1466 | res = FR_OK;
|
---|
1467 |
|
---|
1468 | return res;
|
---|
1469 | }
|
---|
1470 |
|
---|
1471 |
|
---|
1472 |
|
---|
1473 |
|
---|
1474 | /*-----------------------------------------------------------------------*/
|
---|
1475 | /* Check if the file/dir object is valid or not */
|
---|
1476 | /*-----------------------------------------------------------------------*/
|
---|
1477 |
|
---|
1478 | static
|
---|
1479 | FRESULT validate ( /* FR_OK(0): The object is valid, !=0: Invalid */
|
---|
1480 | FATFS *fs, /* Pointer to the file system object */
|
---|
1481 | WORD id /* Member id of the target object to be checked */
|
---|
1482 | )
|
---|
1483 | {
|
---|
1484 | if (!fs || !fs->fs_type || fs->id != id)
|
---|
1485 | return FR_INVALID_OBJECT;
|
---|
1486 |
|
---|
1487 | ENTER_FF(fs); /* Lock file system */
|
---|
1488 |
|
---|
1489 | if (disk_status(fs->drive) & STA_NOINIT)
|
---|
1490 | return FR_NOT_READY;
|
---|
1491 |
|
---|
1492 | return FR_OK;
|
---|
1493 | }
|
---|
1494 |
|
---|
1495 |
|
---|
1496 |
|
---|
1497 |
|
---|
1498 | /*--------------------------------------------------------------------------
|
---|
1499 |
|
---|
1500 | Public Functions
|
---|
1501 |
|
---|
1502 | --------------------------------------------------------------------------*/
|
---|
1503 |
|
---|
1504 |
|
---|
1505 |
|
---|
1506 | /*-----------------------------------------------------------------------*/
|
---|
1507 | /* Mount/Unmount a Locical Drive */
|
---|
1508 | /*-----------------------------------------------------------------------*/
|
---|
1509 |
|
---|
1510 | FRESULT f_mount (
|
---|
1511 | BYTE vol, /* Logical drive number to be mounted/unmounted */
|
---|
1512 | FATFS *fs /* Pointer to new file system object (NULL for unmount)*/
|
---|
1513 | )
|
---|
1514 | {
|
---|
1515 | FATFS *rfs;
|
---|
1516 |
|
---|
1517 |
|
---|
1518 | if (vol >= _DRIVES) /* Check if the drive number is valid */
|
---|
1519 | return FR_INVALID_DRIVE;
|
---|
1520 | rfs = FatFs[vol]; /* Get current state */
|
---|
1521 |
|
---|
1522 | if (rfs) {
|
---|
1523 | #if _FS_REENTRANT /* Discard sync object of the current volume */
|
---|
1524 | if (!ff_del_syncobj(fs->sobj)) return FR_INT_ERR;
|
---|
1525 | #endif
|
---|
1526 | rfs->fs_type = 0; /* Clear old fs object */
|
---|
1527 | }
|
---|
1528 |
|
---|
1529 | if (fs) {
|
---|
1530 | fs->fs_type = 0; /* Clear new fs object */
|
---|
1531 | #if _FS_REENTRANT /* Create sync object for the new volume */
|
---|
1532 | if (!ff_cre_syncobj(vol, &fs->sobj)) return FR_INT_ERR;
|
---|
1533 | #endif
|
---|
1534 | }
|
---|
1535 | FatFs[vol] = fs; /* Register new fs object */
|
---|
1536 |
|
---|
1537 | return FR_OK;
|
---|
1538 | }
|
---|
1539 |
|
---|
1540 |
|
---|
1541 |
|
---|
1542 |
|
---|
1543 | /*-----------------------------------------------------------------------*/
|
---|
1544 | /* Open or Create a File */
|
---|
1545 | /*-----------------------------------------------------------------------*/
|
---|
1546 |
|
---|
1547 | FRESULT f_open (
|
---|
1548 | FIL *fp, /* Pointer to the blank file object */
|
---|
1549 | const char *path, /* Pointer to the file name */
|
---|
1550 | BYTE mode /* Access mode and file open mode flags */
|
---|
1551 | )
|
---|
1552 | {
|
---|
1553 | FRESULT res;
|
---|
1554 | DIR dj;
|
---|
1555 | NAMEBUF(sfn, lfn);
|
---|
1556 | BYTE *dir;
|
---|
1557 |
|
---|
1558 |
|
---|
1559 | fp->fs = NULL; /* Clear file object */
|
---|
1560 | #if !_FS_READONLY
|
---|
1561 | mode &= (FA_READ | FA_WRITE | FA_CREATE_ALWAYS | FA_OPEN_ALWAYS | FA_CREATE_NEW);
|
---|
1562 | res = auto_mount(&path, &dj.fs, (BYTE)(mode & (FA_WRITE | FA_CREATE_ALWAYS | FA_OPEN_ALWAYS | FA_CREATE_NEW)));
|
---|
1563 | #else
|
---|
1564 | mode &= FA_READ;
|
---|
1565 | res = auto_mount(&path, &dj.fs, 0);
|
---|
1566 | #endif
|
---|
1567 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
1568 | INITBUF(dj, sfn, lfn);
|
---|
1569 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
1570 |
|
---|
1571 | #if !_FS_READONLY
|
---|
1572 | /* Create or Open a file */
|
---|
1573 | if (mode & (FA_CREATE_ALWAYS | FA_OPEN_ALWAYS | FA_CREATE_NEW)) {
|
---|
1574 | DWORD ps, cl;
|
---|
1575 |
|
---|
1576 | if (res != FR_OK) { /* No file, create new */
|
---|
1577 | if (res == FR_NO_FILE)
|
---|
1578 | res = dir_register(&dj);
|
---|
1579 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
1580 | mode |= FA_CREATE_ALWAYS;
|
---|
1581 | dir = dj.dir;
|
---|
1582 | }
|
---|
1583 | else { /* Any object is already existing */
|
---|
1584 | if (mode & FA_CREATE_NEW) /* Cannot create new */
|
---|
1585 | LEAVE_FF(dj.fs, FR_EXIST);
|
---|
1586 | dir = dj.dir;
|
---|
1587 | if (!dir || (dir[DIR_Attr] & (AM_RDO | AM_DIR))) /* Cannot overwrite it (R/O or DIR) */
|
---|
1588 | LEAVE_FF(dj.fs, FR_DENIED);
|
---|
1589 | if (mode & FA_CREATE_ALWAYS) { /* Resize it to zero if needed */
|
---|
1590 | cl = ((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) | LD_WORD(dir+DIR_FstClusLO); /* Get start cluster */
|
---|
1591 | ST_WORD(dir+DIR_FstClusHI, 0); /* cluster = 0 */
|
---|
1592 | ST_WORD(dir+DIR_FstClusLO, 0);
|
---|
1593 | ST_DWORD(dir+DIR_FileSize, 0); /* size = 0 */
|
---|
1594 | dj.fs->wflag = 1;
|
---|
1595 | ps = dj.fs->winsect; /* Remove the cluster chain */
|
---|
1596 | if (cl) {
|
---|
1597 | res = remove_chain(dj.fs, cl);
|
---|
1598 | if (res) LEAVE_FF(dj.fs, res);
|
---|
1599 | dj.fs->last_clust = cl - 1; /* Reuse the cluster hole */
|
---|
1600 | }
|
---|
1601 | res = move_window(dj.fs, ps);
|
---|
1602 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
1603 | }
|
---|
1604 | }
|
---|
1605 | if (mode & FA_CREATE_ALWAYS) {
|
---|
1606 | dir[DIR_Attr] = 0; /* Reset attribute */
|
---|
1607 | ps = get_fattime();
|
---|
1608 | ST_DWORD(dir+DIR_CrtTime, ps); /* Created time */
|
---|
1609 | dj.fs->wflag = 1;
|
---|
1610 | mode |= FA__WRITTEN; /* Set file changed flag */
|
---|
1611 | }
|
---|
1612 | }
|
---|
1613 | /* Open an existing file */
|
---|
1614 | else {
|
---|
1615 | #endif /* !_FS_READONLY */
|
---|
1616 | if (res != FR_OK) LEAVE_FF(dj.fs, res); /* Follow failed */
|
---|
1617 | dir = dj.dir;
|
---|
1618 | if (!dir || (dir[DIR_Attr] & AM_DIR)) /* It is a directory */
|
---|
1619 | LEAVE_FF(dj.fs, FR_NO_FILE);
|
---|
1620 | #if !_FS_READONLY
|
---|
1621 | if ((mode & FA_WRITE) && (dir[DIR_Attr] & AM_RDO)) /* R/O violation */
|
---|
1622 | LEAVE_FF(dj.fs, FR_DENIED);
|
---|
1623 | }
|
---|
1624 | fp->dir_sect = dj.fs->winsect; /* Pointer to the directory entry */
|
---|
1625 | fp->dir_ptr = dj.dir;
|
---|
1626 | #endif
|
---|
1627 | fp->flag = mode; /* File access mode */
|
---|
1628 | fp->org_clust = /* File start cluster */
|
---|
1629 | ((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) | LD_WORD(dir+DIR_FstClusLO);
|
---|
1630 | fp->fsize = LD_DWORD(dir+DIR_FileSize); /* File size */
|
---|
1631 | fp->fptr = 0; fp->csect = 255; /* File pointer */
|
---|
1632 | fp->dsect = 0;
|
---|
1633 | fp->fs = dj.fs; fp->id = dj.fs->id; /* Owner file system object of the file */
|
---|
1634 |
|
---|
1635 | LEAVE_FF(dj.fs, FR_OK);
|
---|
1636 | }
|
---|
1637 |
|
---|
1638 |
|
---|
1639 |
|
---|
1640 |
|
---|
1641 | /*-----------------------------------------------------------------------*/
|
---|
1642 | /* Read File */
|
---|
1643 | /*-----------------------------------------------------------------------*/
|
---|
1644 |
|
---|
1645 | FRESULT f_read (
|
---|
1646 | FIL *fp, /* Pointer to the file object */
|
---|
1647 | void *buff, /* Pointer to data buffer */
|
---|
1648 | UINT btr, /* Number of bytes to read */
|
---|
1649 | UINT *br /* Pointer to number of bytes read */
|
---|
1650 | )
|
---|
1651 | {
|
---|
1652 | FRESULT res;
|
---|
1653 | DWORD clst, sect, remain;
|
---|
1654 | UINT rcnt, cc;
|
---|
1655 | BYTE *rbuff = buff;
|
---|
1656 |
|
---|
1657 |
|
---|
1658 | *br = 0;
|
---|
1659 |
|
---|
1660 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
1661 | if (res != FR_OK) LEAVE_FF(fp->fs, res);
|
---|
1662 | if (fp->flag & FA__ERROR) /* Check abort flag */
|
---|
1663 | LEAVE_FF(fp->fs, FR_INT_ERR);
|
---|
1664 | if (!(fp->flag & FA_READ)) /* Check access mode */
|
---|
1665 | LEAVE_FF(fp->fs, FR_DENIED);
|
---|
1666 | remain = fp->fsize - fp->fptr;
|
---|
1667 | if (btr > remain) btr = (UINT)remain; /* Truncate btr by remaining bytes */
|
---|
1668 |
|
---|
1669 | for ( ; btr; /* Repeat until all data transferred */
|
---|
1670 | rbuff += rcnt, fp->fptr += rcnt, *br += rcnt, btr -= rcnt) {
|
---|
1671 | if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
|
---|
1672 | if (fp->csect >= fp->fs->csize) { /* On the cluster boundary? */
|
---|
1673 | clst = (fp->fptr == 0) ? /* On the top of the file? */
|
---|
1674 | fp->org_clust : get_cluster(fp->fs, fp->curr_clust);
|
---|
1675 | if (clst <= 1) ABORT(fp->fs, FR_INT_ERR);
|
---|
1676 | if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
|
---|
1677 | fp->curr_clust = clst; /* Update current cluster */
|
---|
1678 | fp->csect = 0; /* Reset sector offset in the cluster */
|
---|
1679 | }
|
---|
1680 | sect = clust2sect(fp->fs, fp->curr_clust); /* Get current sector */
|
---|
1681 | if (!sect) ABORT(fp->fs, FR_INT_ERR);
|
---|
1682 | sect += fp->csect;
|
---|
1683 | cc = btr / SS(fp->fs); /* When remaining bytes >= sector size, */
|
---|
1684 | if (cc) { /* Read maximum contiguous sectors directly */
|
---|
1685 | if (fp->csect + cc > fp->fs->csize) /* Clip at cluster boundary */
|
---|
1686 | cc = fp->fs->csize - fp->csect;
|
---|
1687 | if (disk_read(fp->fs->drive, rbuff, sect, (BYTE)cc) != RES_OK)
|
---|
1688 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1689 | fp->csect += (BYTE)cc; /* Next sector address in the cluster */
|
---|
1690 | rcnt = SS(fp->fs) * cc; /* Number of bytes transferred */
|
---|
1691 | continue;
|
---|
1692 | }
|
---|
1693 | #if !_FS_TINY
|
---|
1694 | #if !_FS_READONLY
|
---|
1695 | if (fp->flag & FA__DIRTY) { /* Write sector I/O buffer if needed */
|
---|
1696 | if (disk_write(fp->fs->drive, fp->buf, fp->dsect, 1) != RES_OK)
|
---|
1697 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1698 | fp->flag &= (BYTE)~FA__DIRTY;
|
---|
1699 | }
|
---|
1700 | #endif
|
---|
1701 | if (fp->dsect != sect) { /* Fill sector buffer with file data */
|
---|
1702 | if (disk_read(fp->fs->drive, fp->buf, sect, 1) != RES_OK)
|
---|
1703 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1704 | }
|
---|
1705 | #endif
|
---|
1706 | fp->dsect = sect;
|
---|
1707 | fp->csect++; /* Next sector address in the cluster */
|
---|
1708 | }
|
---|
1709 | rcnt = SS(fp->fs) - (fp->fptr % SS(fp->fs)); /* Get partial sector data from sector buffer */
|
---|
1710 | if (rcnt > btr) rcnt = btr;
|
---|
1711 | #if _FS_TINY
|
---|
1712 | if (move_window(fp->fs, fp->dsect)) /* Move sector window */
|
---|
1713 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1714 | mem_cpy(rbuff, &fp->fs->win[fp->fptr % SS(fp->fs)], rcnt); /* Pick partial sector */
|
---|
1715 | #else
|
---|
1716 | mem_cpy(rbuff, &fp->buf[fp->fptr % SS(fp->fs)], rcnt); /* Pick partial sector */
|
---|
1717 | #endif
|
---|
1718 | }
|
---|
1719 |
|
---|
1720 |
|
---|
1721 | LEAVE_FF(fp->fs, FR_OK);
|
---|
1722 | }
|
---|
1723 |
|
---|
1724 |
|
---|
1725 |
|
---|
1726 |
|
---|
1727 | #if !_FS_READONLY
|
---|
1728 | /*-----------------------------------------------------------------------*/
|
---|
1729 | /* Write File */
|
---|
1730 | /*-----------------------------------------------------------------------*/
|
---|
1731 |
|
---|
1732 | FRESULT f_write (
|
---|
1733 | FIL *fp, /* Pointer to the file object */
|
---|
1734 | const void *buff, /* Pointer to the data to be written */
|
---|
1735 | UINT btw, /* Number of bytes to write */
|
---|
1736 | UINT *bw /* Pointer to number of bytes written */
|
---|
1737 | )
|
---|
1738 | {
|
---|
1739 | FRESULT res;
|
---|
1740 | DWORD clst, sect;
|
---|
1741 | UINT wcnt, cc;
|
---|
1742 | const BYTE *wbuff = buff;
|
---|
1743 |
|
---|
1744 |
|
---|
1745 | *bw = 0;
|
---|
1746 |
|
---|
1747 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
1748 | if (res != FR_OK) LEAVE_FF(fp->fs, res);
|
---|
1749 | if (fp->flag & FA__ERROR) /* Check abort flag */
|
---|
1750 | LEAVE_FF(fp->fs, FR_INT_ERR);
|
---|
1751 | if (!(fp->flag & FA_WRITE)) /* Check access mode */
|
---|
1752 | LEAVE_FF(fp->fs, FR_DENIED);
|
---|
1753 | if (fp->fsize + btw < fp->fsize) btw = 0; /* File size cannot reach 4GB */
|
---|
1754 |
|
---|
1755 | for ( ; btw; /* Repeat until all data transferred */
|
---|
1756 | wbuff += wcnt, fp->fptr += wcnt, *bw += wcnt, btw -= wcnt) {
|
---|
1757 | if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
|
---|
1758 | if (fp->csect >= fp->fs->csize) { /* On the cluster boundary? */
|
---|
1759 | if (fp->fptr == 0) { /* On the top of the file? */
|
---|
1760 | clst = fp->org_clust; /* Follow from the origin */
|
---|
1761 | if (clst == 0) /* When there is no cluster chain, */
|
---|
1762 | fp->org_clust = clst = create_chain(fp->fs, 0); /* Create a new cluster chain */
|
---|
1763 | } else { /* Middle or end of the file */
|
---|
1764 | clst = create_chain(fp->fs, fp->curr_clust); /* Follow or streach cluster chain */
|
---|
1765 | }
|
---|
1766 | if (clst == 0) break; /* Could not allocate a new cluster (disk full) */
|
---|
1767 | if (clst == 1) ABORT(fp->fs, FR_INT_ERR);
|
---|
1768 | if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
|
---|
1769 | fp->curr_clust = clst; /* Update current cluster */
|
---|
1770 | fp->csect = 0; /* Reset sector address in the cluster */
|
---|
1771 | }
|
---|
1772 | #if _FS_TINY
|
---|
1773 | if (fp->fs->winsect == fp->dsect && move_window(fp->fs, 0)) /* Write back data buffer prior to following direct transfer */
|
---|
1774 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1775 | #else
|
---|
1776 | if (fp->flag & FA__DIRTY) { /* Write back data buffer prior to following direct transfer */
|
---|
1777 | if (disk_write(fp->fs->drive, fp->buf, fp->dsect, 1) != RES_OK)
|
---|
1778 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1779 | fp->flag &= (BYTE)~FA__DIRTY;
|
---|
1780 | }
|
---|
1781 | #endif
|
---|
1782 | sect = clust2sect(fp->fs, fp->curr_clust); /* Get current sector */
|
---|
1783 | if (!sect) ABORT(fp->fs, FR_INT_ERR);
|
---|
1784 | sect += fp->csect;
|
---|
1785 | cc = btw / SS(fp->fs); /* When remaining bytes >= sector size, */
|
---|
1786 | if (cc) { /* Write maximum contiguous sectors directly */
|
---|
1787 | if (fp->csect + cc > fp->fs->csize) /* Clip at cluster boundary */
|
---|
1788 | cc = fp->fs->csize - fp->csect;
|
---|
1789 | if (disk_write(fp->fs->drive, wbuff, sect, (BYTE)cc) != RES_OK)
|
---|
1790 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1791 | fp->csect += (BYTE)cc; /* Next sector address in the cluster */
|
---|
1792 | wcnt = SS(fp->fs) * cc; /* Number of bytes transferred */
|
---|
1793 | continue;
|
---|
1794 | }
|
---|
1795 | #if _FS_TINY
|
---|
1796 | if (fp->fptr >= fp->fsize) { /* Avoid silly buffer filling at growing edge */
|
---|
1797 | if (move_window(fp->fs, 0)) ABORT(fp->fs, FR_DISK_ERR);
|
---|
1798 | fp->fs->winsect = sect;
|
---|
1799 | }
|
---|
1800 | #else
|
---|
1801 | if (fp->dsect != sect) { /* Fill sector buffer with file data */
|
---|
1802 | if (fp->fptr < fp->fsize &&
|
---|
1803 | disk_read(fp->fs->drive, fp->buf, sect, 1) != RES_OK)
|
---|
1804 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1805 | }
|
---|
1806 | #endif
|
---|
1807 | fp->dsect = sect;
|
---|
1808 | fp->csect++; /* Next sector address in the cluster */
|
---|
1809 | }
|
---|
1810 | wcnt = SS(fp->fs) - (fp->fptr % SS(fp->fs)); /* Put partial sector into file I/O buffer */
|
---|
1811 | if (wcnt > btw) wcnt = btw;
|
---|
1812 | #if _FS_TINY
|
---|
1813 | if (move_window(fp->fs, fp->dsect)) /* Move sector window */
|
---|
1814 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1815 | mem_cpy(&fp->fs->win[fp->fptr % SS(fp->fs)], wbuff, wcnt); /* Fit partial sector */
|
---|
1816 | fp->fs->wflag = 1;
|
---|
1817 | #else
|
---|
1818 | mem_cpy(&fp->buf[fp->fptr % SS(fp->fs)], wbuff, wcnt); /* Fit partial sector */
|
---|
1819 | fp->flag |= FA__DIRTY;
|
---|
1820 | #endif
|
---|
1821 | }
|
---|
1822 |
|
---|
1823 | if (fp->fptr > fp->fsize) fp->fsize = fp->fptr; /* Update file size if needed */
|
---|
1824 | fp->flag |= FA__WRITTEN; /* Set file changed flag */
|
---|
1825 |
|
---|
1826 | LEAVE_FF(fp->fs, FR_OK);
|
---|
1827 | }
|
---|
1828 |
|
---|
1829 |
|
---|
1830 |
|
---|
1831 |
|
---|
1832 | /*-----------------------------------------------------------------------*/
|
---|
1833 | /* Synchronize the File Object */
|
---|
1834 | /*-----------------------------------------------------------------------*/
|
---|
1835 |
|
---|
1836 | FRESULT f_sync (
|
---|
1837 | FIL *fp /* Pointer to the file object */
|
---|
1838 | )
|
---|
1839 | {
|
---|
1840 | FRESULT res;
|
---|
1841 | DWORD tim;
|
---|
1842 | BYTE *dir;
|
---|
1843 |
|
---|
1844 |
|
---|
1845 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
1846 | if (res == FR_OK) {
|
---|
1847 | if (fp->flag & FA__WRITTEN) { /* Has the file been written? */
|
---|
1848 | #if !_FS_TINY /* Write-back dirty buffer */
|
---|
1849 | if (fp->flag & FA__DIRTY) {
|
---|
1850 | if (disk_write(fp->fs->drive, fp->buf, fp->dsect, 1) != RES_OK)
|
---|
1851 | LEAVE_FF(fp->fs, FR_DISK_ERR);
|
---|
1852 | fp->flag &= (BYTE)~FA__DIRTY;
|
---|
1853 | }
|
---|
1854 | #endif
|
---|
1855 | /* Update the directory entry */
|
---|
1856 | res = move_window(fp->fs, fp->dir_sect);
|
---|
1857 | if (res == FR_OK) {
|
---|
1858 | dir = fp->dir_ptr;
|
---|
1859 | dir[DIR_Attr] |= AM_ARC; /* Set archive bit */
|
---|
1860 | ST_DWORD(dir+DIR_FileSize, fp->fsize); /* Update file size */
|
---|
1861 | ST_WORD(dir+DIR_FstClusLO, fp->org_clust); /* Update start cluster */
|
---|
1862 | ST_WORD(dir+DIR_FstClusHI, fp->org_clust >> 16);
|
---|
1863 | tim = get_fattime(); /* Updated time */
|
---|
1864 | ST_DWORD(dir+DIR_WrtTime, tim);
|
---|
1865 | fp->flag &= (BYTE)~FA__WRITTEN;
|
---|
1866 | fp->fs->wflag = 1;
|
---|
1867 | res = sync(fp->fs);
|
---|
1868 | }
|
---|
1869 | }
|
---|
1870 | }
|
---|
1871 |
|
---|
1872 | LEAVE_FF(fp->fs, res);
|
---|
1873 | }
|
---|
1874 |
|
---|
1875 | #endif /* !_FS_READONLY */
|
---|
1876 |
|
---|
1877 |
|
---|
1878 |
|
---|
1879 |
|
---|
1880 | /*-----------------------------------------------------------------------*/
|
---|
1881 | /* Close File */
|
---|
1882 | /*-----------------------------------------------------------------------*/
|
---|
1883 |
|
---|
1884 | FRESULT f_close (
|
---|
1885 | FIL *fp /* Pointer to the file object to be closed */
|
---|
1886 | )
|
---|
1887 | {
|
---|
1888 | FRESULT res;
|
---|
1889 |
|
---|
1890 |
|
---|
1891 | #if _FS_READONLY
|
---|
1892 | res = validate(fp->fs, fp->id);
|
---|
1893 | if (res == FR_OK) fp->fs = NULL;
|
---|
1894 | LEAVE_FF(fp->fs, res);
|
---|
1895 | #else
|
---|
1896 | res = f_sync(fp);
|
---|
1897 | if (res == FR_OK) fp->fs = NULL;
|
---|
1898 | return res;
|
---|
1899 | #endif
|
---|
1900 | }
|
---|
1901 |
|
---|
1902 |
|
---|
1903 |
|
---|
1904 |
|
---|
1905 | #if _FS_MINIMIZE <= 2
|
---|
1906 | /*-----------------------------------------------------------------------*/
|
---|
1907 | /* Seek File R/W Pointer */
|
---|
1908 | /*-----------------------------------------------------------------------*/
|
---|
1909 |
|
---|
1910 | FRESULT f_lseek (
|
---|
1911 | FIL *fp, /* Pointer to the file object */
|
---|
1912 | DWORD ofs /* File pointer from top of file */
|
---|
1913 | )
|
---|
1914 | {
|
---|
1915 | FRESULT res;
|
---|
1916 | DWORD clst, bcs, nsect, ifptr;
|
---|
1917 |
|
---|
1918 |
|
---|
1919 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
1920 | if (res != FR_OK) LEAVE_FF(fp->fs, res);
|
---|
1921 | if (fp->flag & FA__ERROR) /* Check abort flag */
|
---|
1922 | LEAVE_FF(fp->fs, FR_INT_ERR);
|
---|
1923 | if (ofs > fp->fsize /* In read-only mode, clip offset with the file size */
|
---|
1924 | #if !_FS_READONLY
|
---|
1925 | && !(fp->flag & FA_WRITE)
|
---|
1926 | #endif
|
---|
1927 | ) ofs = fp->fsize;
|
---|
1928 |
|
---|
1929 | ifptr = fp->fptr;
|
---|
1930 | fp->fptr = 0; fp->csect = 255;
|
---|
1931 | nsect = 0;
|
---|
1932 | if (ofs > 0) {
|
---|
1933 | bcs = (DWORD)fp->fs->csize * SS(fp->fs); /* Cluster size (byte) */
|
---|
1934 | if (ifptr > 0 &&
|
---|
1935 | (ofs - 1) / bcs >= (ifptr - 1) / bcs) { /* When seek to same or following cluster, */
|
---|
1936 | fp->fptr = (ifptr - 1) & ~(bcs - 1); /* start from the current cluster */
|
---|
1937 | ofs -= fp->fptr;
|
---|
1938 | clst = fp->curr_clust;
|
---|
1939 | } else { /* When seek to back cluster, */
|
---|
1940 | clst = fp->org_clust; /* start from the first cluster */
|
---|
1941 | #if !_FS_READONLY
|
---|
1942 | if (clst == 0) { /* If no cluster chain, create a new chain */
|
---|
1943 | clst = create_chain(fp->fs, 0);
|
---|
1944 | if (clst == 1) ABORT(fp->fs, FR_INT_ERR);
|
---|
1945 | if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
|
---|
1946 | fp->org_clust = clst;
|
---|
1947 | }
|
---|
1948 | #endif
|
---|
1949 | fp->curr_clust = clst;
|
---|
1950 | }
|
---|
1951 | if (clst != 0) {
|
---|
1952 | while (ofs > bcs) { /* Cluster following loop */
|
---|
1953 | #if !_FS_READONLY
|
---|
1954 | if (fp->flag & FA_WRITE) { /* Check if in write mode or not */
|
---|
1955 | clst = create_chain(fp->fs, clst); /* Force streached if in write mode */
|
---|
1956 | if (clst == 0) { /* When disk gets full, clip file size */
|
---|
1957 | ofs = bcs; break;
|
---|
1958 | }
|
---|
1959 | } else
|
---|
1960 | #endif
|
---|
1961 | clst = get_cluster(fp->fs, clst); /* Follow cluster chain if not in write mode */
|
---|
1962 | if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
|
---|
1963 | if (clst <= 1 || clst >= fp->fs->max_clust) ABORT(fp->fs, FR_INT_ERR);
|
---|
1964 | fp->curr_clust = clst;
|
---|
1965 | fp->fptr += bcs;
|
---|
1966 | ofs -= bcs;
|
---|
1967 | }
|
---|
1968 | fp->fptr += ofs;
|
---|
1969 | fp->csect = (BYTE)(ofs / SS(fp->fs)); /* Sector offset in the cluster */
|
---|
1970 | if (ofs % SS(fp->fs)) {
|
---|
1971 | nsect = clust2sect(fp->fs, clst); /* Current sector */
|
---|
1972 | if (!nsect) ABORT(fp->fs, FR_INT_ERR);
|
---|
1973 | nsect += fp->csect;
|
---|
1974 | fp->csect++;
|
---|
1975 | }
|
---|
1976 | }
|
---|
1977 | }
|
---|
1978 | if (nsect && nsect != fp->dsect && fp->fptr % SS(fp->fs)) {
|
---|
1979 | #if !_FS_TINY
|
---|
1980 | #if !_FS_READONLY
|
---|
1981 | if (fp->flag & FA__DIRTY) { /* Write-back dirty buffer if needed */
|
---|
1982 | if (disk_write(fp->fs->drive, fp->buf, fp->dsect, 1) != RES_OK)
|
---|
1983 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1984 | fp->flag &= (BYTE)~FA__DIRTY;
|
---|
1985 | }
|
---|
1986 | #endif
|
---|
1987 | if (disk_read(fp->fs->drive, fp->buf, nsect, 1) != RES_OK)
|
---|
1988 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
1989 | #endif
|
---|
1990 | fp->dsect = nsect;
|
---|
1991 | }
|
---|
1992 | #if !_FS_READONLY
|
---|
1993 | if (fp->fptr > fp->fsize) { /* Set changed flag if the file size is extended */
|
---|
1994 | fp->fsize = fp->fptr;
|
---|
1995 | fp->flag |= FA__WRITTEN;
|
---|
1996 | }
|
---|
1997 | #endif
|
---|
1998 |
|
---|
1999 | LEAVE_FF(fp->fs, res);
|
---|
2000 | }
|
---|
2001 |
|
---|
2002 |
|
---|
2003 |
|
---|
2004 |
|
---|
2005 | #if _FS_MINIMIZE <= 1
|
---|
2006 | /*-----------------------------------------------------------------------*/
|
---|
2007 | /* Create a Directroy Object */
|
---|
2008 | /*-----------------------------------------------------------------------*/
|
---|
2009 |
|
---|
2010 | FRESULT f_opendir (
|
---|
2011 | DIR *dj, /* Pointer to directory object to create */
|
---|
2012 | const char *path /* Pointer to the directory path */
|
---|
2013 | )
|
---|
2014 | {
|
---|
2015 | FRESULT res;
|
---|
2016 | NAMEBUF(sfn, lfn);
|
---|
2017 | BYTE *dir;
|
---|
2018 |
|
---|
2019 |
|
---|
2020 | res = auto_mount(&path, &dj->fs, 0);
|
---|
2021 | if (res == FR_OK) {
|
---|
2022 | INITBUF((*dj), sfn, lfn);
|
---|
2023 | res = follow_path(dj, path); /* Follow the path to the directory */
|
---|
2024 | if (res == FR_OK) { /* Follow completed */
|
---|
2025 | dir = dj->dir;
|
---|
2026 | if (dir) { /* It is not the root dir */
|
---|
2027 | if (dir[DIR_Attr] & AM_DIR) { /* The object is a directory */
|
---|
2028 | dj->sclust = ((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) | LD_WORD(dir+DIR_FstClusLO);
|
---|
2029 | } else { /* The object is not a directory */
|
---|
2030 | res = FR_NO_PATH;
|
---|
2031 | }
|
---|
2032 | } else { /* It is the root dir */
|
---|
2033 | dj->sclust = (dj->fs->fs_type == FS_FAT32) ? dj->fs->dirbase : 0;
|
---|
2034 | }
|
---|
2035 | if (res == FR_OK) res = dir_seek(dj, 0);
|
---|
2036 | dj->id = dj->fs->id;
|
---|
2037 | } else {
|
---|
2038 | if (res == FR_NO_FILE) res = FR_NO_PATH;
|
---|
2039 | }
|
---|
2040 | }
|
---|
2041 |
|
---|
2042 | LEAVE_FF(dj->fs, res);
|
---|
2043 | }
|
---|
2044 |
|
---|
2045 |
|
---|
2046 |
|
---|
2047 |
|
---|
2048 | /*-----------------------------------------------------------------------*/
|
---|
2049 | /* Read Directory Entry in Sequense */
|
---|
2050 | /*-----------------------------------------------------------------------*/
|
---|
2051 |
|
---|
2052 | FRESULT f_readdir (
|
---|
2053 | DIR *dj, /* Pointer to the open directory object */
|
---|
2054 | FILINFO *fno /* Pointer to file information to return */
|
---|
2055 | )
|
---|
2056 | {
|
---|
2057 | FRESULT res;
|
---|
2058 | NAMEBUF(sfn, lfn);
|
---|
2059 |
|
---|
2060 |
|
---|
2061 | res = validate(dj->fs, dj->id); /* Check validity of the object */
|
---|
2062 | if (res == FR_OK) {
|
---|
2063 | #if 0 /* ROI DEBUG */
|
---|
2064 | INITBUF((*dj), sfn, lfn);
|
---|
2065 | #else /* ROI DEBUG */
|
---|
2066 | INITBUF2((*dj), sfn);
|
---|
2067 | #endif /* ROI DEBUG */
|
---|
2068 | if (!fno) {
|
---|
2069 | res = dir_seek(dj, 0);
|
---|
2070 | } else {
|
---|
2071 | res = dir_read(dj);
|
---|
2072 | if (res == FR_NO_FILE) {
|
---|
2073 | dj->sect = 0;
|
---|
2074 | res = FR_OK;
|
---|
2075 | }
|
---|
2076 | if (res == FR_OK) { /* A valid entry is found */
|
---|
2077 | get_fileinfo(dj, fno); /* Get the object information */
|
---|
2078 | res = dir_next(dj, FALSE); /* Increment index for next */
|
---|
2079 | if (res == FR_NO_FILE) {
|
---|
2080 | dj->sect = 0;
|
---|
2081 | res = FR_OK;
|
---|
2082 | }
|
---|
2083 | }
|
---|
2084 | }
|
---|
2085 | }
|
---|
2086 |
|
---|
2087 | LEAVE_FF(dj->fs, res);
|
---|
2088 | }
|
---|
2089 |
|
---|
2090 |
|
---|
2091 |
|
---|
2092 | #if _FS_MINIMIZE == 0
|
---|
2093 | /*-----------------------------------------------------------------------*/
|
---|
2094 | /* Get File Status */
|
---|
2095 | /*-----------------------------------------------------------------------*/
|
---|
2096 |
|
---|
2097 | FRESULT f_stat (
|
---|
2098 | const char *path, /* Pointer to the file path */
|
---|
2099 | FILINFO *fno /* Pointer to file information to return */
|
---|
2100 | )
|
---|
2101 | {
|
---|
2102 | FRESULT res;
|
---|
2103 | DIR dj;
|
---|
2104 | NAMEBUF(sfn, lfn);
|
---|
2105 |
|
---|
2106 |
|
---|
2107 | res = auto_mount(&path, &dj.fs, 0);
|
---|
2108 | if (res == FR_OK) {
|
---|
2109 | INITBUF(dj, sfn, lfn);
|
---|
2110 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
2111 | if (res == FR_OK) { /* Follwo completed */
|
---|
2112 | if (dj.dir) /* Found an object */
|
---|
2113 | get_fileinfo(&dj, fno);
|
---|
2114 | else /* It is root dir */
|
---|
2115 | res = FR_INVALID_NAME;
|
---|
2116 | }
|
---|
2117 | }
|
---|
2118 |
|
---|
2119 | LEAVE_FF(dj.fs, res);
|
---|
2120 | }
|
---|
2121 |
|
---|
2122 |
|
---|
2123 |
|
---|
2124 | #if !_FS_READONLY
|
---|
2125 | /*-----------------------------------------------------------------------*/
|
---|
2126 | /* Truncate File */
|
---|
2127 | /*-----------------------------------------------------------------------*/
|
---|
2128 |
|
---|
2129 | FRESULT f_truncate (
|
---|
2130 | FIL *fp /* Pointer to the file object */
|
---|
2131 | )
|
---|
2132 | {
|
---|
2133 | FRESULT res;
|
---|
2134 | DWORD ncl;
|
---|
2135 |
|
---|
2136 |
|
---|
2137 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
2138 | if (res != FR_OK) LEAVE_FF(fp->fs, res);
|
---|
2139 | if (fp->flag & FA__ERROR) /* Check abort flag */
|
---|
2140 | LEAVE_FF(fp->fs, FR_INT_ERR);
|
---|
2141 | if (!(fp->flag & FA_WRITE)) /* Check access mode */
|
---|
2142 | LEAVE_FF(fp->fs, FR_DENIED);
|
---|
2143 |
|
---|
2144 | if (fp->fsize > fp->fptr) {
|
---|
2145 | fp->fsize = fp->fptr; /* Set file size to current R/W point */
|
---|
2146 | fp->flag |= FA__WRITTEN;
|
---|
2147 | if (fp->fptr == 0) { /* When set file size to zero, remove entire cluster chain */
|
---|
2148 | res = remove_chain(fp->fs, fp->org_clust);
|
---|
2149 | fp->org_clust = 0;
|
---|
2150 | } else { /* When truncate a part of the file, remove remaining clusters */
|
---|
2151 | ncl = get_cluster(fp->fs, fp->curr_clust);
|
---|
2152 | res = FR_OK;
|
---|
2153 | if (ncl == 0xFFFFFFFF) res = FR_DISK_ERR;
|
---|
2154 | if (ncl == 1) res = FR_INT_ERR;
|
---|
2155 | if (res == FR_OK && ncl < fp->fs->max_clust) {
|
---|
2156 | res = put_cluster(fp->fs, fp->curr_clust, 0x0FFFFFFF);
|
---|
2157 | if (res == FR_OK) res = remove_chain(fp->fs, ncl);
|
---|
2158 | }
|
---|
2159 | }
|
---|
2160 | }
|
---|
2161 | if (res != FR_OK) fp->flag |= FA__ERROR;
|
---|
2162 |
|
---|
2163 | LEAVE_FF(fp->fs, res);
|
---|
2164 | }
|
---|
2165 |
|
---|
2166 |
|
---|
2167 |
|
---|
2168 |
|
---|
2169 | /*-----------------------------------------------------------------------*/
|
---|
2170 | /* Get Number of Free Clusters */
|
---|
2171 | /*-----------------------------------------------------------------------*/
|
---|
2172 |
|
---|
2173 | FRESULT f_getfree (
|
---|
2174 | const char *path, /* Pointer to the logical drive number (root dir) */
|
---|
2175 | DWORD *nclst, /* Pointer to the variable to return number of free clusters */
|
---|
2176 | FATFS **fatfs /* Pointer to pointer to corresponding file system object to return */
|
---|
2177 | )
|
---|
2178 | {
|
---|
2179 | FRESULT res;
|
---|
2180 | DWORD n, clst, sect;
|
---|
2181 | BYTE fat, f, *p;
|
---|
2182 |
|
---|
2183 |
|
---|
2184 | /* Get drive number */
|
---|
2185 | res = auto_mount(&path, fatfs, 0);
|
---|
2186 | if (res != FR_OK) LEAVE_FF(*fatfs, res);
|
---|
2187 |
|
---|
2188 | /* If number of free cluster is valid, return it without cluster scan. */
|
---|
2189 | if ((*fatfs)->free_clust <= (*fatfs)->max_clust - 2) {
|
---|
2190 | *nclst = (*fatfs)->free_clust;
|
---|
2191 | LEAVE_FF(*fatfs, FR_OK);
|
---|
2192 | }
|
---|
2193 |
|
---|
2194 | /* Get number of free clusters */
|
---|
2195 | fat = (*fatfs)->fs_type;
|
---|
2196 | n = 0;
|
---|
2197 | if (fat == FS_FAT12) {
|
---|
2198 | clst = 2;
|
---|
2199 | do {
|
---|
2200 | if ((WORD)get_cluster(*fatfs, clst) == 0) n++;
|
---|
2201 | } while (++clst < (*fatfs)->max_clust);
|
---|
2202 | } else {
|
---|
2203 | clst = (*fatfs)->max_clust;
|
---|
2204 | sect = (*fatfs)->fatbase;
|
---|
2205 | f = 0; p = 0;
|
---|
2206 | do {
|
---|
2207 | if (!f) {
|
---|
2208 | res = move_window(*fatfs, sect++);
|
---|
2209 | if (res != FR_OK)
|
---|
2210 | LEAVE_FF(*fatfs, res);
|
---|
2211 | p = (*fatfs)->win;
|
---|
2212 | }
|
---|
2213 | if (fat == FS_FAT16) {
|
---|
2214 | if (LD_WORD(p) == 0) n++;
|
---|
2215 | p += 2; f += 1;
|
---|
2216 | } else {
|
---|
2217 | if (LD_DWORD(p) == 0) n++;
|
---|
2218 | p += 4; f += 2;
|
---|
2219 | }
|
---|
2220 | } while (--clst);
|
---|
2221 | }
|
---|
2222 | (*fatfs)->free_clust = n;
|
---|
2223 | if (fat == FS_FAT32) (*fatfs)->fsi_flag = 1;
|
---|
2224 | *nclst = n;
|
---|
2225 |
|
---|
2226 | LEAVE_FF(*fatfs, FR_OK);
|
---|
2227 | }
|
---|
2228 |
|
---|
2229 |
|
---|
2230 |
|
---|
2231 |
|
---|
2232 | /*-----------------------------------------------------------------------*/
|
---|
2233 | /* Delete a File or Directory */
|
---|
2234 | /*-----------------------------------------------------------------------*/
|
---|
2235 |
|
---|
2236 | FRESULT f_unlink (
|
---|
2237 | const char *path /* Pointer to the file or directory path */
|
---|
2238 | )
|
---|
2239 | {
|
---|
2240 | FRESULT res;
|
---|
2241 | DIR dj, sdj;
|
---|
2242 | NAMEBUF(sfn, lfn);
|
---|
2243 | BYTE *dir;
|
---|
2244 | DWORD dclst;
|
---|
2245 |
|
---|
2246 |
|
---|
2247 | res = auto_mount(&path, &dj.fs, 1);
|
---|
2248 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
2249 |
|
---|
2250 | INITBUF(dj, sfn, lfn);
|
---|
2251 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
2252 | if (res != FR_OK) LEAVE_FF(dj.fs, res); /* Follow failed */
|
---|
2253 |
|
---|
2254 | dir = dj.dir;
|
---|
2255 | if (!dir) /* Is it the root directory? */
|
---|
2256 | LEAVE_FF(dj.fs, FR_INVALID_NAME);
|
---|
2257 | if (dir[DIR_Attr] & AM_RDO) /* Is it a R/O object? */
|
---|
2258 | LEAVE_FF(dj.fs, FR_DENIED);
|
---|
2259 | dclst = ((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) | LD_WORD(dir+DIR_FstClusLO);
|
---|
2260 |
|
---|
2261 | if (dir[DIR_Attr] & AM_DIR) { /* It is a sub-directory */
|
---|
2262 | if (dclst < 2) LEAVE_FF(dj.fs, FR_INT_ERR);
|
---|
2263 | mem_cpy(&sdj, &dj, sizeof(DIR)); /* Check if the sub-dir is empty or not */
|
---|
2264 | sdj.sclust = dclst;
|
---|
2265 | res = dir_seek(&sdj, 0);
|
---|
2266 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
2267 | res = dir_read(&sdj);
|
---|
2268 | if (res == FR_OK) res = FR_DENIED; /* Not empty sub-dir */
|
---|
2269 | if (res != FR_NO_FILE) LEAVE_FF(dj.fs, res);
|
---|
2270 | }
|
---|
2271 |
|
---|
2272 | res = dir_remove(&dj); /* Remove directory entry */
|
---|
2273 | if (res == FR_OK) {
|
---|
2274 | if (dclst)
|
---|
2275 | res = remove_chain(dj.fs, dclst); /* Remove the cluster chain */
|
---|
2276 | if (res == FR_OK) res = sync(dj.fs);
|
---|
2277 | }
|
---|
2278 |
|
---|
2279 | LEAVE_FF(dj.fs, FR_OK);
|
---|
2280 | }
|
---|
2281 |
|
---|
2282 |
|
---|
2283 |
|
---|
2284 |
|
---|
2285 | /*-----------------------------------------------------------------------*/
|
---|
2286 | /* Create a Directory */
|
---|
2287 | /*-----------------------------------------------------------------------*/
|
---|
2288 |
|
---|
2289 | FRESULT f_mkdir (
|
---|
2290 | const char *path /* Pointer to the directory path */
|
---|
2291 | )
|
---|
2292 | {
|
---|
2293 | FRESULT res;
|
---|
2294 | DIR dj;
|
---|
2295 | NAMEBUF(sfn, lfn);
|
---|
2296 | BYTE *dir, n;
|
---|
2297 | DWORD dsect, dclst, pclst, tim;
|
---|
2298 |
|
---|
2299 |
|
---|
2300 | res = auto_mount(&path, &dj.fs, 1);
|
---|
2301 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
2302 |
|
---|
2303 | INITBUF(dj, sfn, lfn);
|
---|
2304 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
2305 | if (res == FR_OK) res = FR_EXIST; /* Any file or directory is already existing */
|
---|
2306 | if (res != FR_NO_FILE) /* Any error occured */
|
---|
2307 | LEAVE_FF(dj.fs, res);
|
---|
2308 |
|
---|
2309 | dclst = create_chain(dj.fs, 0); /* Allocate a new cluster for new directory table */
|
---|
2310 | res = FR_OK;
|
---|
2311 | if (dclst == 0) res = FR_DENIED;
|
---|
2312 | if (dclst == 1) res = FR_INT_ERR;
|
---|
2313 | if (dclst == 0xFFFFFFFF) res = FR_DISK_ERR;
|
---|
2314 | if (res == FR_OK)
|
---|
2315 | res = move_window(dj.fs, 0);
|
---|
2316 | if (res != FR_OK) LEAVE_FF(dj.fs, res);
|
---|
2317 | dsect = clust2sect(dj.fs, dclst);
|
---|
2318 |
|
---|
2319 | dir = dj.fs->win; /* Initialize the new directory table */
|
---|
2320 | mem_set(dir, 0, SS(dj.fs));
|
---|
2321 | mem_set(dir+DIR_Name, ' ', 8+3); /* Create "." entry */
|
---|
2322 | dir[DIR_Name] = '.';
|
---|
2323 | dir[DIR_Attr] = AM_DIR;
|
---|
2324 | tim = get_fattime();
|
---|
2325 | ST_DWORD(dir+DIR_WrtTime, tim);
|
---|
2326 | ST_WORD(dir+DIR_FstClusLO, dclst);
|
---|
2327 | ST_WORD(dir+DIR_FstClusHI, dclst >> 16);
|
---|
2328 | mem_cpy(dir+32, dir, 32); /* Create ".." entry */
|
---|
2329 | dir[33] = '.';
|
---|
2330 | pclst = dj.sclust;
|
---|
2331 | if (dj.fs->fs_type == FS_FAT32 && pclst == dj.fs->dirbase)
|
---|
2332 | pclst = 0;
|
---|
2333 | ST_WORD(dir+32+DIR_FstClusLO, pclst);
|
---|
2334 | ST_WORD(dir+32+DIR_FstClusHI, pclst >> 16);
|
---|
2335 | for (n = 0; n < dj.fs->csize; n++) { /* Write dot entries and clear left sectors */
|
---|
2336 | dj.fs->winsect = dsect++;
|
---|
2337 | dj.fs->wflag = 1;
|
---|
2338 | res = move_window(dj.fs, 0);
|
---|
2339 | if (res) LEAVE_FF(dj.fs, res);
|
---|
2340 | mem_set(dir, 0, SS(dj.fs));
|
---|
2341 | }
|
---|
2342 |
|
---|
2343 | res = dir_register(&dj);
|
---|
2344 | if (res != FR_OK) {
|
---|
2345 | remove_chain(dj.fs, dclst);
|
---|
2346 | } else {
|
---|
2347 | dir = dj.dir;
|
---|
2348 | dir[DIR_Attr] = AM_DIR; /* Attribute */
|
---|
2349 | ST_DWORD(dir+DIR_WrtTime, tim); /* Crated time */
|
---|
2350 | ST_WORD(dir+DIR_FstClusLO, dclst); /* Table start cluster */
|
---|
2351 | ST_WORD(dir+DIR_FstClusHI, dclst >> 16);
|
---|
2352 | dj.fs->wflag = 1;
|
---|
2353 | res = sync(dj.fs);
|
---|
2354 | }
|
---|
2355 |
|
---|
2356 | LEAVE_FF(dj.fs, res);
|
---|
2357 | }
|
---|
2358 |
|
---|
2359 |
|
---|
2360 |
|
---|
2361 |
|
---|
2362 | /*-----------------------------------------------------------------------*/
|
---|
2363 | /* Change File Attribute */
|
---|
2364 | /*-----------------------------------------------------------------------*/
|
---|
2365 |
|
---|
2366 | FRESULT f_chmod (
|
---|
2367 | const char *path, /* Pointer to the file path */
|
---|
2368 | BYTE value, /* Attribute bits */
|
---|
2369 | BYTE mask /* Attribute mask to change */
|
---|
2370 | )
|
---|
2371 | {
|
---|
2372 | FRESULT res;
|
---|
2373 | DIR dj;
|
---|
2374 | NAMEBUF(sfn, lfn);
|
---|
2375 | BYTE *dir;
|
---|
2376 |
|
---|
2377 |
|
---|
2378 | res = auto_mount(&path, &dj.fs, 1);
|
---|
2379 | if (res == FR_OK) {
|
---|
2380 | INITBUF(dj, sfn, lfn);
|
---|
2381 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
2382 | if (res == FR_OK) {
|
---|
2383 | dir = dj.dir;
|
---|
2384 | if (!dir) { /* Is it a root directory? */
|
---|
2385 | res = FR_INVALID_NAME;
|
---|
2386 | } else { /* File or sub directory */
|
---|
2387 | mask &= AM_RDO|AM_HID|AM_SYS|AM_ARC; /* Valid attribute mask */
|
---|
2388 | dir[DIR_Attr] = (value & mask) | (dir[DIR_Attr] & (BYTE)~mask); /* Apply attribute change */
|
---|
2389 | dj.fs->wflag = 1;
|
---|
2390 | res = sync(dj.fs);
|
---|
2391 | }
|
---|
2392 | }
|
---|
2393 | }
|
---|
2394 |
|
---|
2395 | LEAVE_FF(dj.fs, res);
|
---|
2396 | }
|
---|
2397 |
|
---|
2398 |
|
---|
2399 |
|
---|
2400 |
|
---|
2401 | /*-----------------------------------------------------------------------*/
|
---|
2402 | /* Change Timestamp */
|
---|
2403 | /*-----------------------------------------------------------------------*/
|
---|
2404 |
|
---|
2405 | FRESULT f_utime (
|
---|
2406 | const char *path, /* Pointer to the file/directory name */
|
---|
2407 | const FILINFO *fno /* Pointer to the timestamp to be set */
|
---|
2408 | )
|
---|
2409 | {
|
---|
2410 | FRESULT res;
|
---|
2411 | DIR dj;
|
---|
2412 | NAMEBUF(sfn, lfn);
|
---|
2413 | BYTE *dir;
|
---|
2414 |
|
---|
2415 |
|
---|
2416 | res = auto_mount(&path, &dj.fs, 1);
|
---|
2417 | if (res == FR_OK) {
|
---|
2418 | INITBUF(dj, sfn, lfn);
|
---|
2419 | res = follow_path(&dj, path); /* Follow the file path */
|
---|
2420 | if (res == FR_OK) {
|
---|
2421 | dir = dj.dir;
|
---|
2422 | if (!dir) { /* Root directory */
|
---|
2423 | res = FR_INVALID_NAME;
|
---|
2424 | } else { /* File or sub-directory */
|
---|
2425 | ST_WORD(dir+DIR_WrtTime, fno->ftime);
|
---|
2426 | ST_WORD(dir+DIR_WrtDate, fno->fdate);
|
---|
2427 | dj.fs->wflag = 1;
|
---|
2428 | res = sync(dj.fs);
|
---|
2429 | }
|
---|
2430 | }
|
---|
2431 | }
|
---|
2432 |
|
---|
2433 | LEAVE_FF(dj.fs, res);
|
---|
2434 | }
|
---|
2435 |
|
---|
2436 |
|
---|
2437 |
|
---|
2438 |
|
---|
2439 | /*-----------------------------------------------------------------------*/
|
---|
2440 | /* Rename File/Directory */
|
---|
2441 | /*-----------------------------------------------------------------------*/
|
---|
2442 |
|
---|
2443 | FRESULT f_rename (
|
---|
2444 | const char *path_old, /* Pointer to the old name */
|
---|
2445 | const char *path_new /* Pointer to the new name */
|
---|
2446 | )
|
---|
2447 | {
|
---|
2448 | FRESULT res;
|
---|
2449 | DIR dj_old, dj_new;
|
---|
2450 | NAMEBUF(sfn, lfn);
|
---|
2451 | BYTE buf[21], *dir;
|
---|
2452 | DWORD dw;
|
---|
2453 |
|
---|
2454 |
|
---|
2455 | INITBUF(dj_old, sfn, lfn);
|
---|
2456 | res = auto_mount(&path_old, &dj_old.fs, 1);
|
---|
2457 | if (res == FR_OK) {
|
---|
2458 | dj_new.fs = dj_old.fs;
|
---|
2459 | res = follow_path(&dj_old, path_old); /* Check old object */
|
---|
2460 | }
|
---|
2461 | if (res != FR_OK) LEAVE_FF(dj_old.fs, res); /* The old object is not found */
|
---|
2462 |
|
---|
2463 | if (!dj_old.dir) LEAVE_FF(dj_old.fs, FR_NO_FILE); /* Is root dir? */
|
---|
2464 | mem_cpy(buf, dj_old.dir+DIR_Attr, 21); /* Save the object information */
|
---|
2465 |
|
---|
2466 | mem_cpy(&dj_new, &dj_old, sizeof(DIR));
|
---|
2467 | res = follow_path(&dj_new, path_new); /* Check new object */
|
---|
2468 | if (res == FR_OK) res = FR_EXIST; /* The new object name is already existing */
|
---|
2469 | if (res == FR_NO_FILE) { /* Is it a valid path and no name collision? */
|
---|
2470 | res = dir_register(&dj_new); /* Register the new object */
|
---|
2471 | if (res == FR_OK) {
|
---|
2472 | dir = dj_new.dir; /* Copy object information into new entry */
|
---|
2473 | mem_cpy(dir+13, buf+2, 19);
|
---|
2474 | dir[DIR_Attr] = buf[0];
|
---|
2475 | dj_old.fs->wflag = 1;
|
---|
2476 | if (dir[DIR_Attr] & AM_DIR) { /* Update .. entry in the directory if needed */
|
---|
2477 | dw = clust2sect(dj_new.fs, (DWORD)LD_WORD(dir+DIR_FstClusHI) | LD_WORD(dir+DIR_FstClusLO));
|
---|
2478 | if (!dw) {
|
---|
2479 | res = FR_INT_ERR;
|
---|
2480 | } else {
|
---|
2481 | res = move_window(dj_new.fs, dw);
|
---|
2482 | dir = dj_new.fs->win+32;
|
---|
2483 | if (res == FR_OK && dir[1] == '.') {
|
---|
2484 | dw = (dj_new.fs->fs_type == FS_FAT32 && dj_new.sclust == dj_new.fs->dirbase) ? 0 : dj_new.sclust;
|
---|
2485 | ST_WORD(dir+DIR_FstClusLO, dw);
|
---|
2486 | ST_WORD(dir+DIR_FstClusHI, dw >> 16);
|
---|
2487 | dj_new.fs->wflag = 1;
|
---|
2488 | }
|
---|
2489 | }
|
---|
2490 | }
|
---|
2491 | if (res == FR_OK) {
|
---|
2492 | res = dir_remove(&dj_old); /* Remove old entry */
|
---|
2493 | if (res == FR_OK)
|
---|
2494 | res = sync(dj_old.fs);
|
---|
2495 | }
|
---|
2496 | }
|
---|
2497 | }
|
---|
2498 |
|
---|
2499 | LEAVE_FF(dj_old.fs, res);
|
---|
2500 | }
|
---|
2501 |
|
---|
2502 | #endif /* !_FS_READONLY */
|
---|
2503 | #endif /* _FS_MINIMIZE == 0 */
|
---|
2504 | #endif /* _FS_MINIMIZE <= 1 */
|
---|
2505 | #endif /* _FS_MINIMIZE <= 2 */
|
---|
2506 |
|
---|
2507 |
|
---|
2508 |
|
---|
2509 | /*-----------------------------------------------------------------------*/
|
---|
2510 | /* Forward data to the stream directly (Available on only _FS_TINY cfg) */
|
---|
2511 | /*-----------------------------------------------------------------------*/
|
---|
2512 | #if _USE_FORWARD && _FS_TINY
|
---|
2513 |
|
---|
2514 | FRESULT f_forward (
|
---|
2515 | FIL *fp, /* Pointer to the file object */
|
---|
2516 | UINT (*func)(const BYTE*,UINT), /* Pointer to the streaming function */
|
---|
2517 | UINT btr, /* Number of bytes to forward */
|
---|
2518 | UINT *bf /* Pointer to number of bytes forwarded */
|
---|
2519 | )
|
---|
2520 | {
|
---|
2521 | FRESULT res;
|
---|
2522 | DWORD remain, clst, sect;
|
---|
2523 | UINT rcnt;
|
---|
2524 |
|
---|
2525 |
|
---|
2526 | *bf = 0;
|
---|
2527 |
|
---|
2528 | res = validate(fp->fs, fp->id); /* Check validity of the object */
|
---|
2529 | if (res != FR_OK) LEAVE_FF(fp->fs, res);
|
---|
2530 | if (fp->flag & FA__ERROR) /* Check error flag */
|
---|
2531 | LEAVE_FF(fp->fs, FR_INT_ERR);
|
---|
2532 | if (!(fp->flag & FA_READ)) /* Check access mode */
|
---|
2533 | LEAVE_FF(fp->fs, FR_DENIED);
|
---|
2534 |
|
---|
2535 | remain = fp->fsize - fp->fptr;
|
---|
2536 | if (btr > remain) btr = (UINT)remain; /* Truncate btr by remaining bytes */
|
---|
2537 |
|
---|
2538 | for ( ; btr && (*func)(NULL, 0); /* Repeat until all data transferred or stream becomes busy */
|
---|
2539 | fp->fptr += rcnt, *bf += rcnt, btr -= rcnt) {
|
---|
2540 | if ((fp->fptr % SS(fp->fs)) == 0) { /* On the sector boundary? */
|
---|
2541 | if (fp->csect >= fp->fs->csize) { /* On the cluster boundary? */
|
---|
2542 | clst = (fp->fptr == 0) ? /* On the top of the file? */
|
---|
2543 | fp->org_clust : get_cluster(fp->fs, fp->curr_clust);
|
---|
2544 | if (clst <= 1) ABORT(fp->fs, FR_INT_ERR);
|
---|
2545 | if (clst == 0xFFFFFFFF) ABORT(fp->fs, FR_DISK_ERR);
|
---|
2546 | fp->curr_clust = clst; /* Update current cluster */
|
---|
2547 | fp->csect = 0; /* Reset sector address in the cluster */
|
---|
2548 | }
|
---|
2549 | fp->csect++; /* Next sector address in the cluster */
|
---|
2550 | }
|
---|
2551 | sect = clust2sect(fp->fs, fp->curr_clust); /* Get current data sector */
|
---|
2552 | if (!sect) ABORT(fp->fs, FR_INT_ERR);
|
---|
2553 | sect += fp->csect - 1;
|
---|
2554 | if (move_window(fp->fs, sect)) /* Move sector window */
|
---|
2555 | ABORT(fp->fs, FR_DISK_ERR);
|
---|
2556 | fp->dsect = sect;
|
---|
2557 | rcnt = SS(fp->fs) - (WORD)(fp->fptr % SS(fp->fs)); /* Forward data from sector window */
|
---|
2558 | if (rcnt > btr) rcnt = btr;
|
---|
2559 | rcnt = (*func)(&fp->fs->win[(WORD)fp->fptr % SS(fp->fs)], rcnt);
|
---|
2560 | if (!rcnt) ABORT(fp->fs, FR_INT_ERR);
|
---|
2561 | }
|
---|
2562 |
|
---|
2563 | LEAVE_FF(fp->fs, FR_OK);
|
---|
2564 | }
|
---|
2565 | #endif /* _USE_FORWARD */
|
---|
2566 |
|
---|
2567 |
|
---|
2568 |
|
---|
2569 | #if _USE_MKFS && !_FS_READONLY
|
---|
2570 | /*-----------------------------------------------------------------------*/
|
---|
2571 | /* Create File System on the Drive */
|
---|
2572 | /*-----------------------------------------------------------------------*/
|
---|
2573 | #define N_ROOTDIR 512 /* Multiple of 32 and <= 2048 */
|
---|
2574 | #define N_FATS 1 /* 1 or 2 */
|
---|
2575 | #define MAX_SECTOR 131072000UL /* Maximum partition size */
|
---|
2576 | #ifndef MIN_SECTOR /* ROI DEBUG */
|
---|
2577 | #define MIN_SECTOR 2000UL /* Minimum partition size */
|
---|
2578 | #endif /* ROI DEBUG */
|
---|
2579 |
|
---|
2580 |
|
---|
2581 | FRESULT f_mkfs (
|
---|
2582 | BYTE drv, /* Logical drive number */
|
---|
2583 | BYTE partition, /* Partitioning rule 0:FDISK, 1:SFD */
|
---|
2584 | WORD allocsize /* Allocation unit size [bytes] */
|
---|
2585 | )
|
---|
2586 | {
|
---|
2587 | static const DWORD sstbl[] = { 2048000, 1024000, 512000, 256000, 128000, 64000, 32000, 16000, 8000, 4000, 0 };
|
---|
2588 | static const WORD cstbl[] = { 32768, 16384, 8192, 4096, 2048, 16384, 8192, 4096, 2048, 1024, 512 };
|
---|
2589 | BYTE fmt, m, *tbl;
|
---|
2590 | DWORD b_part, b_fat, b_dir, b_data; /* Area offset (LBA) */
|
---|
2591 | DWORD n_part, n_rsv, n_fat, n_dir; /* Area size */
|
---|
2592 | DWORD n_clst, n;
|
---|
2593 | WORD as;
|
---|
2594 | FATFS *fs;
|
---|
2595 | DSTATUS stat;
|
---|
2596 |
|
---|
2597 |
|
---|
2598 | /* Check validity of the parameters */
|
---|
2599 | if (drv >= _DRIVES) return FR_INVALID_DRIVE;
|
---|
2600 | if (partition >= 2) return FR_MKFS_ABORTED;
|
---|
2601 |
|
---|
2602 | /* Check mounted drive and clear work area */
|
---|
2603 | fs = FatFs[drv];
|
---|
2604 | if (!fs) return FR_NOT_ENABLED;
|
---|
2605 | fs->fs_type = 0;
|
---|
2606 | drv = LD2PD(drv);
|
---|
2607 |
|
---|
2608 | /* Get disk statics */
|
---|
2609 | stat = disk_initialize(drv);
|
---|
2610 | if (stat & STA_NOINIT) return FR_NOT_READY;
|
---|
2611 | if (stat & STA_PROTECT) return FR_WRITE_PROTECTED;
|
---|
2612 | if (disk_ioctl(drv, GET_SECTOR_COUNT, &n_part) != RES_OK || n_part < MIN_SECTOR)
|
---|
2613 | return FR_MKFS_ABORTED;
|
---|
2614 | if (n_part > MAX_SECTOR) n_part = MAX_SECTOR;
|
---|
2615 | b_part = (!partition) ? 63 : 0; /* Boot sector */
|
---|
2616 | n_part -= b_part;
|
---|
2617 | #if _MAX_SS == 512
|
---|
2618 | if (!allocsize) { /* Auto selection of cluster size */
|
---|
2619 | for (n = 0; n_part < sstbl[n]; n++) ;
|
---|
2620 | allocsize = cstbl[n];
|
---|
2621 | }
|
---|
2622 | #endif
|
---|
2623 | for (as = 512; as <= 32768U && as != allocsize; as <<= 1);
|
---|
2624 | if (as != allocsize) return FR_MKFS_ABORTED;
|
---|
2625 | #if _MAX_SS != 512 /* Check disk sector size */
|
---|
2626 | if (disk_ioctl(drv, GET_SECTOR_SIZE, &SS(fs)) != RES_OK
|
---|
2627 | || SS(fs) > _MAX_SS
|
---|
2628 | || SS(fs) > allocsize)
|
---|
2629 | return FR_MKFS_ABORTED;
|
---|
2630 | #endif
|
---|
2631 | allocsize /= SS(fs); /* Number of sectors per cluster */
|
---|
2632 |
|
---|
2633 | /* Pre-compute number of clusters and FAT type */
|
---|
2634 | n_clst = n_part / allocsize;
|
---|
2635 | fmt = FS_FAT12;
|
---|
2636 | if (n_clst >= 0xFF5) fmt = FS_FAT16;
|
---|
2637 | if (n_clst >= 0xFFF5) fmt = FS_FAT32;
|
---|
2638 |
|
---|
2639 | /* Determine offset and size of FAT structure */
|
---|
2640 | switch (fmt) {
|
---|
2641 | case FS_FAT12:
|
---|
2642 | n_fat = ((n_clst * 3 + 1) / 2 + 3 + SS(fs) - 1) / SS(fs);
|
---|
2643 | n_rsv = 1 + partition;
|
---|
2644 | n_dir = N_ROOTDIR * 32 / SS(fs);
|
---|
2645 | break;
|
---|
2646 | case FS_FAT16:
|
---|
2647 | n_fat = ((n_clst * 2) + 4 + SS(fs) - 1) / SS(fs);
|
---|
2648 | n_rsv = 1 + partition;
|
---|
2649 | n_dir = N_ROOTDIR * 32 / SS(fs);
|
---|
2650 | break;
|
---|
2651 | default:
|
---|
2652 | n_fat = ((n_clst * 4) + 8 + SS(fs) - 1) / SS(fs);
|
---|
2653 | n_rsv = 33 - partition;
|
---|
2654 | n_dir = 0;
|
---|
2655 | }
|
---|
2656 | b_fat = b_part + n_rsv; /* FATs start sector */
|
---|
2657 | b_dir = b_fat + n_fat * N_FATS; /* Directory start sector */
|
---|
2658 | b_data = b_dir + n_dir; /* Data start sector */
|
---|
2659 |
|
---|
2660 | /* Align data start sector to erase block boundary (for flash memory media) */
|
---|
2661 | if (disk_ioctl(drv, GET_BLOCK_SIZE, &n) != RES_OK) return FR_MKFS_ABORTED;
|
---|
2662 | n = (b_data + n - 1) & ~(n - 1);
|
---|
2663 | n_fat += (n - b_data) / N_FATS;
|
---|
2664 | /* b_dir and b_data are no longer used below */
|
---|
2665 |
|
---|
2666 | /* Determine number of cluster and final check of validity of the FAT type */
|
---|
2667 | n_clst = (n_part - n_rsv - n_fat * N_FATS - n_dir) / allocsize;
|
---|
2668 | if ( (fmt == FS_FAT16 && n_clst < 0xFF5)
|
---|
2669 | || (fmt == FS_FAT32 && n_clst < 0xFFF5))
|
---|
2670 | return FR_MKFS_ABORTED;
|
---|
2671 |
|
---|
2672 | /* Create partition table if needed */
|
---|
2673 | if (!partition) {
|
---|
2674 | DWORD n_disk = b_part + n_part;
|
---|
2675 |
|
---|
2676 | tbl = fs->win+MBR_Table;
|
---|
2677 | ST_DWORD(tbl, 0x00010180); /* Partition start in CHS */
|
---|
2678 | if (n_disk < 63UL * 255 * 1024) { /* Partition end in CHS */
|
---|
2679 | n_disk = n_disk / 63 / 255;
|
---|
2680 | tbl[7] = (BYTE)n_disk;
|
---|
2681 | tbl[6] = (BYTE)((n_disk >> 2) | 63);
|
---|
2682 | } else {
|
---|
2683 | ST_WORD(&tbl[6], 0xFFFF);
|
---|
2684 | }
|
---|
2685 | tbl[5] = 254;
|
---|
2686 | if (fmt != FS_FAT32) /* System ID */
|
---|
2687 | tbl[4] = (n_part < 0x10000) ? 0x04 : 0x06;
|
---|
2688 | else
|
---|
2689 | tbl[4] = 0x0c;
|
---|
2690 | ST_DWORD(tbl+8, 63); /* Partition start in LBA */
|
---|
2691 | ST_DWORD(tbl+12, n_part); /* Partition size in LBA */
|
---|
2692 | ST_WORD(tbl+64, 0xAA55); /* Signature */
|
---|
2693 | if (disk_write(drv, fs->win, 0, 1) != RES_OK)
|
---|
2694 | return FR_DISK_ERR;
|
---|
2695 | }
|
---|
2696 |
|
---|
2697 | /* Create boot record */
|
---|
2698 | tbl = fs->win; /* Clear buffer */
|
---|
2699 | mem_set(tbl, 0, SS(fs));
|
---|
2700 | ST_DWORD(tbl+BS_jmpBoot, 0x90FEEB); /* Boot code (jmp $, nop) */
|
---|
2701 | ST_WORD(tbl+BPB_BytsPerSec, SS(fs)); /* Sector size */
|
---|
2702 | tbl[BPB_SecPerClus] = (BYTE)allocsize; /* Sectors per cluster */
|
---|
2703 | ST_WORD(tbl+BPB_RsvdSecCnt, n_rsv); /* Reserved sectors */
|
---|
2704 | tbl[BPB_NumFATs] = N_FATS; /* Number of FATs */
|
---|
2705 | ST_WORD(tbl+BPB_RootEntCnt, SS(fs) / 32 * n_dir); /* Number of rootdir entries */
|
---|
2706 | if (n_part < 0x10000) { /* Number of total sectors */
|
---|
2707 | ST_WORD(tbl+BPB_TotSec16, n_part);
|
---|
2708 | } else {
|
---|
2709 | ST_DWORD(tbl+BPB_TotSec32, n_part);
|
---|
2710 | }
|
---|
2711 | tbl[BPB_Media] = 0xF8; /* Media descripter */
|
---|
2712 | ST_WORD(tbl+BPB_SecPerTrk, 63); /* Number of sectors per track */
|
---|
2713 | ST_WORD(tbl+BPB_NumHeads, 255); /* Number of heads */
|
---|
2714 | ST_DWORD(tbl+BPB_HiddSec, b_part); /* Hidden sectors */
|
---|
2715 | n = get_fattime(); /* Use current time as a VSN */
|
---|
2716 | if (fmt != FS_FAT32) {
|
---|
2717 | ST_DWORD(tbl+BS_VolID, n); /* Volume serial number */
|
---|
2718 | ST_WORD(tbl+BPB_FATSz16, n_fat); /* Number of secters per FAT */
|
---|
2719 | tbl[BS_DrvNum] = 0x80; /* Drive number */
|
---|
2720 | tbl[BS_BootSig] = 0x29; /* Extended boot signature */
|
---|
2721 | mem_cpy(tbl+BS_VolLab, "NO NAME FAT ", 19); /* Volume lavel, FAT signature */
|
---|
2722 | } else {
|
---|
2723 | ST_DWORD(tbl+BS_VolID32, n); /* Volume serial number */
|
---|
2724 | ST_DWORD(tbl+BPB_FATSz32, n_fat); /* Number of secters per FAT */
|
---|
2725 | ST_DWORD(tbl+BPB_RootClus, 2); /* Root directory cluster (2) */
|
---|
2726 | ST_WORD(tbl+BPB_FSInfo, 1); /* FSInfo record offset (bs+1) */
|
---|
2727 | ST_WORD(tbl+BPB_BkBootSec, 6); /* Backup boot record offset (bs+6) */
|
---|
2728 | tbl[BS_DrvNum32] = 0x80; /* Drive number */
|
---|
2729 | tbl[BS_BootSig32] = 0x29; /* Extended boot signature */
|
---|
2730 | mem_cpy(tbl+BS_VolLab32, "NO NAME FAT32 ", 19); /* Volume lavel, FAT signature */
|
---|
2731 | }
|
---|
2732 | ST_WORD(tbl+BS_55AA, 0xAA55); /* Signature */
|
---|
2733 | if (disk_write(drv, tbl, b_part+0, 1) != RES_OK)
|
---|
2734 | return FR_DISK_ERR;
|
---|
2735 | if (fmt == FS_FAT32)
|
---|
2736 | disk_write(drv, tbl, b_part+6, 1);
|
---|
2737 |
|
---|
2738 | /* Initialize FAT area */
|
---|
2739 | for (m = 0; m < N_FATS; m++) {
|
---|
2740 | mem_set(tbl, 0, SS(fs)); /* 1st sector of the FAT */
|
---|
2741 | if (fmt != FS_FAT32) {
|
---|
2742 | n = (fmt == FS_FAT12) ? 0x00FFFFF8 : 0xFFFFFFF8;
|
---|
2743 | ST_DWORD(tbl, n); /* Reserve cluster #0-1 (FAT12/16) */
|
---|
2744 | } else {
|
---|
2745 | ST_DWORD(tbl+0, 0xFFFFFFF8); /* Reserve cluster #0-1 (FAT32) */
|
---|
2746 | ST_DWORD(tbl+4, 0xFFFFFFFF);
|
---|
2747 | ST_DWORD(tbl+8, 0x0FFFFFFF); /* Reserve cluster #2 for root dir */
|
---|
2748 | }
|
---|
2749 | if (disk_write(drv, tbl, b_fat++, 1) != RES_OK)
|
---|
2750 | return FR_DISK_ERR;
|
---|
2751 | mem_set(tbl, 0, SS(fs)); /* Following FAT entries are filled by zero */
|
---|
2752 | for (n = 1; n < n_fat; n++) {
|
---|
2753 | if (disk_write(drv, tbl, b_fat++, 1) != RES_OK)
|
---|
2754 | return FR_DISK_ERR;
|
---|
2755 | }
|
---|
2756 | }
|
---|
2757 |
|
---|
2758 | /* Initialize Root directory */
|
---|
2759 | m = (BYTE)((fmt == FS_FAT32) ? allocsize : n_dir);
|
---|
2760 | do {
|
---|
2761 | if (disk_write(drv, tbl, b_fat++, 1) != RES_OK)
|
---|
2762 | return FR_DISK_ERR;
|
---|
2763 | } while (--m);
|
---|
2764 |
|
---|
2765 | /* Create FSInfo record if needed */
|
---|
2766 | if (fmt == FS_FAT32) {
|
---|
2767 | ST_WORD(tbl+BS_55AA, 0xAA55);
|
---|
2768 | ST_DWORD(tbl+FSI_LeadSig, 0x41615252);
|
---|
2769 | ST_DWORD(tbl+FSI_StrucSig, 0x61417272);
|
---|
2770 | ST_DWORD(tbl+FSI_Free_Count, n_clst - 1);
|
---|
2771 | ST_DWORD(tbl+FSI_Nxt_Free, 0xFFFFFFFF);
|
---|
2772 | disk_write(drv, tbl, b_part+1, 1);
|
---|
2773 | disk_write(drv, tbl, b_part+7, 1);
|
---|
2774 | }
|
---|
2775 |
|
---|
2776 | return (disk_ioctl(drv, CTRL_SYNC, (void*)NULL) == RES_OK) ? FR_OK : FR_DISK_ERR;
|
---|
2777 | }
|
---|
2778 |
|
---|
2779 | #endif /* _USE_MKFS && !_FS_READONLY */
|
---|
2780 |
|
---|
2781 |
|
---|
2782 |
|
---|
2783 |
|
---|
2784 | #if _USE_STRFUNC
|
---|
2785 | /*-----------------------------------------------------------------------*/
|
---|
2786 | /* Get a string from the file */
|
---|
2787 | /*-----------------------------------------------------------------------*/
|
---|
2788 | char* f_gets (
|
---|
2789 | char* buff, /* Pointer to the string buffer to read */
|
---|
2790 | int len, /* Size of string buffer */
|
---|
2791 | FIL* fil /* Pointer to the file object */
|
---|
2792 | )
|
---|
2793 | {
|
---|
2794 | int i = 0;
|
---|
2795 | char *p = buff;
|
---|
2796 | UINT rc;
|
---|
2797 |
|
---|
2798 |
|
---|
2799 | while (i < len - 1) { /* Read bytes until buffer gets filled */
|
---|
2800 | f_read(fil, p, 1, &rc);
|
---|
2801 | if (rc != 1) break; /* Break when no data to read */
|
---|
2802 | #if _USE_STRFUNC >= 2
|
---|
2803 | if (*p == '\r') continue; /* Strip '\r' */
|
---|
2804 | #endif
|
---|
2805 | i++;
|
---|
2806 | if (*p++ == '\n') break; /* Break when reached end of line */
|
---|
2807 | }
|
---|
2808 | *p = 0;
|
---|
2809 | return i ? buff : NULL; /* When no data read (eof or error), return with error. */
|
---|
2810 | }
|
---|
2811 |
|
---|
2812 |
|
---|
2813 |
|
---|
2814 | #if !_FS_READONLY
|
---|
2815 | #include <stdarg.h>
|
---|
2816 | /*-----------------------------------------------------------------------*/
|
---|
2817 | /* Put a character to the file */
|
---|
2818 | /*-----------------------------------------------------------------------*/
|
---|
2819 | int f_putc (
|
---|
2820 | int chr, /* A character to be output */
|
---|
2821 | FIL* fil /* Ponter to the file object */
|
---|
2822 | )
|
---|
2823 | {
|
---|
2824 | UINT bw;
|
---|
2825 | char c;
|
---|
2826 |
|
---|
2827 |
|
---|
2828 | #if _USE_STRFUNC >= 2
|
---|
2829 | if (chr == '\n') f_putc ('\r', fil); /* LF -> CRLF conversion */
|
---|
2830 | #endif
|
---|
2831 | if (!fil) { /* Special value may be used to switch the destination to any other device */
|
---|
2832 | /* put_console(chr); */
|
---|
2833 | return chr;
|
---|
2834 | }
|
---|
2835 | c = (char)chr;
|
---|
2836 | f_write(fil, &c, 1, &bw); /* Write a byte to the file */
|
---|
2837 | return bw ? chr : EOF; /* Return the result */
|
---|
2838 | }
|
---|
2839 |
|
---|
2840 |
|
---|
2841 |
|
---|
2842 |
|
---|
2843 | /*-----------------------------------------------------------------------*/
|
---|
2844 | /* Put a string to the file */
|
---|
2845 | /*-----------------------------------------------------------------------*/
|
---|
2846 | int f_puts (
|
---|
2847 | const char* str, /* Pointer to the string to be output */
|
---|
2848 | FIL* fil /* Pointer to the file object */
|
---|
2849 | )
|
---|
2850 | {
|
---|
2851 | int n;
|
---|
2852 |
|
---|
2853 |
|
---|
2854 | for (n = 0; *str; str++, n++) {
|
---|
2855 | if (f_putc(*str, fil) == EOF) return EOF;
|
---|
2856 | }
|
---|
2857 | return n;
|
---|
2858 | }
|
---|
2859 |
|
---|
2860 |
|
---|
2861 |
|
---|
2862 |
|
---|
2863 | /*-----------------------------------------------------------------------*/
|
---|
2864 | /* Put a formatted string to the file */
|
---|
2865 | /*-----------------------------------------------------------------------*/
|
---|
2866 | int f_printf (
|
---|
2867 | FIL* fil, /* Pointer to the file object */
|
---|
2868 | const char* str, /* Pointer to the format string */
|
---|
2869 | ... /* Optional arguments... */
|
---|
2870 | )
|
---|
2871 | {
|
---|
2872 | va_list arp;
|
---|
2873 | UCHAR c, f, r;
|
---|
2874 | ULONG val;
|
---|
2875 | char s[16];
|
---|
2876 | int i, w, res, cc;
|
---|
2877 |
|
---|
2878 |
|
---|
2879 | va_start(arp, str);
|
---|
2880 |
|
---|
2881 | for (cc = res = 0; cc != EOF; res += cc) {
|
---|
2882 | c = *str++;
|
---|
2883 | if (c == 0) break; /* End of string */
|
---|
2884 | if (c != '%') { /* Non escape cahracter */
|
---|
2885 | cc = f_putc(c, fil);
|
---|
2886 | if (cc != EOF) cc = 1;
|
---|
2887 | continue;
|
---|
2888 | }
|
---|
2889 | w = f = 0;
|
---|
2890 | c = *str++;
|
---|
2891 | if (c == '0') { /* Flag: '0' padding */
|
---|
2892 | f = 1; c = *str++;
|
---|
2893 | }
|
---|
2894 | while (c >= '0' && c <= '9') { /* Precision */
|
---|
2895 | w = w * 10 + (c - '0');
|
---|
2896 | c = *str++;
|
---|
2897 | }
|
---|
2898 | if (c == 'l') { /* Prefix: Size is long int */
|
---|
2899 | f |= 2; c = *str++;
|
---|
2900 | }
|
---|
2901 | if (c == 's') { /* Type is string */
|
---|
2902 | cc = f_puts(va_arg(arp, char*), fil);
|
---|
2903 | continue;
|
---|
2904 | }
|
---|
2905 | if (c == 'c') { /* Type is character */
|
---|
2906 | cc = f_putc(va_arg(arp, int), fil);
|
---|
2907 | if (cc != EOF) cc = 1;
|
---|
2908 | continue;
|
---|
2909 | }
|
---|
2910 | r = 0;
|
---|
2911 | if (c == 'd') r = 10; /* Type is signed decimal */
|
---|
2912 | if (c == 'u') r = 10; /* Type is unsigned decimal */
|
---|
2913 | if (c == 'X') r = 16; /* Type is unsigned hexdecimal */
|
---|
2914 | if (r == 0) break; /* Unknown type */
|
---|
2915 | if (f & 2) { /* Get the value */
|
---|
2916 | val = (ULONG)va_arg(arp, long);
|
---|
2917 | } else {
|
---|
2918 | val = (c == 'd') ? (ULONG)(long)va_arg(arp, int) : (ULONG)va_arg(arp, unsigned int);
|
---|
2919 | }
|
---|
2920 | /* Put numeral string */
|
---|
2921 | if (c == 'd') {
|
---|
2922 | if (val & 0x80000000) {
|
---|
2923 | val = 0 - val;
|
---|
2924 | f |= 4;
|
---|
2925 | }
|
---|
2926 | }
|
---|
2927 | i = sizeof(s) - 1; s[i] = 0;
|
---|
2928 | do {
|
---|
2929 | c = (UCHAR)(val % r + '0');
|
---|
2930 | if (c > '9') c += 7;
|
---|
2931 | s[--i] = c;
|
---|
2932 | val /= r;
|
---|
2933 | } while (i && val);
|
---|
2934 | if (i && (f & 4)) s[--i] = '-';
|
---|
2935 | w = sizeof(s) - 1 - w;
|
---|
2936 | while (i && i > w) s[--i] = (f & 1) ? '0' : ' ';
|
---|
2937 | cc = f_puts(&s[i], fil);
|
---|
2938 | }
|
---|
2939 |
|
---|
2940 | va_end(arp);
|
---|
2941 | return (cc == EOF) ? cc : res;
|
---|
2942 | }
|
---|
2943 |
|
---|
2944 | #endif /* !_FS_READONLY */
|
---|
2945 | #endif /* _USE_STRFUNC */
|
---|