| User | Revision | Line number | New contents of line |
|---|
| shintamainjp |
0:a71ab7426128
|
1
|
/*----------------------------------------------------------------------------/
|
| shintamainjp |
0:a71ab7426128
|
2
|
/ Petit FatFs - FAT file system module R0.02 (C)ChaN, 2009
|
| shintamainjp |
0:a71ab7426128
|
3
|
/-----------------------------------------------------------------------------/
|
| shintamainjp |
0:a71ab7426128
|
4
|
/ Petit FatFs module is an open source software to implement FAT file system to
|
| shintamainjp |
0:a71ab7426128
|
5
|
/ small embedded systems. This is a free software and is opened for education,
|
| shintamainjp |
0:a71ab7426128
|
6
|
/ research and commercial developments under license policy of following trems.
|
| shintamainjp |
0:a71ab7426128
|
7
|
/
|
| shintamainjp |
0:a71ab7426128
|
8
|
/ Copyright (C) 2009, ChaN, all right reserved.
|
| shintamainjp |
0:a71ab7426128
|
9
|
/
|
| shintamainjp |
0:a71ab7426128
|
10
|
/ * The Petit FatFs module is a free software and there is NO WARRANTY.
|
| shintamainjp |
0:a71ab7426128
|
11
|
/ * No restriction on use. You can use, modify and redistribute it for
|
| shintamainjp |
0:a71ab7426128
|
12
|
/ personal, non-profit or commercial use UNDER YOUR RESPONSIBILITY.
|
| shintamainjp |
0:a71ab7426128
|
13
|
/ * Redistributions of source code must retain the above copyright notice.
|
| shintamainjp |
0:a71ab7426128
|
14
|
/
|
| shintamainjp |
0:a71ab7426128
|
15
|
/-----------------------------------------------------------------------------/
|
| shintamainjp |
0:a71ab7426128
|
16
|
/ Jun 15,'09 R0.01a First release. (Branched from FatFs R0.07b.)
|
| shintamainjp |
0:a71ab7426128
|
17
|
/
|
| shintamainjp |
0:a71ab7426128
|
18
|
/ Dec 14,'09 R0.02 Added multiple code page support.
|
| shintamainjp |
0:a71ab7426128
|
19
|
/ Added write funciton.
|
| shintamainjp |
0:a71ab7426128
|
20
|
/ Changed stream read mode interface.
|
| shintamainjp |
0:a71ab7426128
|
21
|
/----------------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
22
|
|
| shintamainjp |
0:a71ab7426128
|
23
|
#include "pff.h" /* Petit FatFs configurations and declarations */
|
| shintamainjp |
0:a71ab7426128
|
24
|
#include "diskio.h" /* Declarations of low level disk I/O functions */
|
| shintamainjp |
0:a71ab7426128
|
25
|
|
| shintamainjp |
0:a71ab7426128
|
26
|
|
| shintamainjp |
0:a71ab7426128
|
27
|
/*--------------------------------------------------------------------------
|
| shintamainjp |
0:a71ab7426128
|
28
|
|
| shintamainjp |
0:a71ab7426128
|
29
|
Private Functions
|
| shintamainjp |
0:a71ab7426128
|
30
|
|
| shintamainjp |
0:a71ab7426128
|
31
|
---------------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
32
|
|
| shintamainjp |
0:a71ab7426128
|
33
|
|
| shintamainjp |
0:a71ab7426128
|
34
|
|
| shintamainjp |
0:a71ab7426128
|
35
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
36
|
/* String functions */
|
| shintamainjp |
0:a71ab7426128
|
37
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
38
|
|
| shintamainjp |
0:a71ab7426128
|
39
|
/* Fill memory */
|
| shintamainjp |
0:a71ab7426128
|
40
|
void PetitFileSystem::mem_set (void* dst, int val, int cnt) {
|
| shintamainjp |
0:a71ab7426128
|
41
|
char *d = (char*)dst;
|
| shintamainjp |
0:a71ab7426128
|
42
|
while (cnt--) *d++ = (char)val;
|
| shintamainjp |
0:a71ab7426128
|
43
|
}
|
| shintamainjp |
0:a71ab7426128
|
44
|
|
| shintamainjp |
0:a71ab7426128
|
45
|
/* Compare memory to memory */
|
| shintamainjp |
0:a71ab7426128
|
46
|
int PetitFileSystem::mem_cmp (const void* dst, const void* src, int cnt) {
|
| shintamainjp |
0:a71ab7426128
|
47
|
const char *d = (const char *)dst, *s = (const char *)src;
|
| shintamainjp |
0:a71ab7426128
|
48
|
int r = 0;
|
| shintamainjp |
0:a71ab7426128
|
49
|
while (cnt-- && (r = *d++ - *s++) == 0) ;
|
| shintamainjp |
0:a71ab7426128
|
50
|
return r;
|
| shintamainjp |
0:a71ab7426128
|
51
|
}
|
| shintamainjp |
0:a71ab7426128
|
52
|
|
| shintamainjp |
0:a71ab7426128
|
53
|
|
| shintamainjp |
0:a71ab7426128
|
54
|
|
| shintamainjp |
0:a71ab7426128
|
55
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
56
|
/* FAT access - Read value of a FAT entry */
|
| shintamainjp |
0:a71ab7426128
|
57
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
58
|
|
| shintamainjp |
0:a71ab7426128
|
59
|
CLUST PetitFileSystem::get_fat ( /* 1:IO error, Else:Cluster status */
|
| shintamainjp |
0:a71ab7426128
|
60
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
61
|
CLUST clst /* Cluster# to get the link information */
|
| shintamainjp |
0:a71ab7426128
|
62
|
) {
|
| shintamainjp |
0:a71ab7426128
|
63
|
WORD wc, bc, ofs;
|
| shintamainjp |
0:a71ab7426128
|
64
|
BYTE buf[4];
|
| shintamainjp |
0:a71ab7426128
|
65
|
|
| shintamainjp |
0:a71ab7426128
|
66
|
if (clst < 2 || clst >= fs->max_clust) /* Range check */
|
| shintamainjp |
0:a71ab7426128
|
67
|
return 1;
|
| shintamainjp |
0:a71ab7426128
|
68
|
|
| shintamainjp |
0:a71ab7426128
|
69
|
switch (fs->fs_type) {
|
| shintamainjp |
0:a71ab7426128
|
70
|
case FS_FAT12 :
|
| shintamainjp |
0:a71ab7426128
|
71
|
bc = (WORD)clst;
|
| shintamainjp |
0:a71ab7426128
|
72
|
bc += bc / 2;
|
| shintamainjp |
0:a71ab7426128
|
73
|
ofs = bc % 512;
|
| shintamainjp |
0:a71ab7426128
|
74
|
bc /= 512;
|
| shintamainjp |
0:a71ab7426128
|
75
|
if (ofs != 511) {
|
| shintamainjp |
0:a71ab7426128
|
76
|
if (disk_readp(buf, fs->fatbase + bc, ofs, 2)) break;
|
| shintamainjp |
0:a71ab7426128
|
77
|
} else {
|
| shintamainjp |
0:a71ab7426128
|
78
|
if (disk_readp(buf, fs->fatbase + bc, 511, 1)) break;
|
| shintamainjp |
0:a71ab7426128
|
79
|
if (disk_readp(buf+1, fs->fatbase + bc + 1, 0, 1)) break;
|
| shintamainjp |
0:a71ab7426128
|
80
|
}
|
| shintamainjp |
0:a71ab7426128
|
81
|
wc = LD_WORD(buf);
|
| shintamainjp |
0:a71ab7426128
|
82
|
return (clst & 1) ? (wc >> 4) : (wc & 0xFFF);
|
| shintamainjp |
0:a71ab7426128
|
83
|
|
| shintamainjp |
0:a71ab7426128
|
84
|
case FS_FAT16 :
|
| shintamainjp |
0:a71ab7426128
|
85
|
if (disk_readp(buf, fs->fatbase + clst / 256, (WORD)(((WORD)clst % 256) * 2), 2)) break;
|
| shintamainjp |
0:a71ab7426128
|
86
|
return LD_WORD(buf);
|
| shintamainjp |
0:a71ab7426128
|
87
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
88
|
case FS_FAT32 :
|
| shintamainjp |
0:a71ab7426128
|
89
|
if (disk_readp(buf, fs->fatbase + clst / 128, (WORD)(((WORD)clst % 128) * 4), 4)) break;
|
| shintamainjp |
0:a71ab7426128
|
90
|
return LD_DWORD(buf) & 0x0FFFFFFF;
|
| shintamainjp |
0:a71ab7426128
|
91
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
92
|
}
|
| shintamainjp |
0:a71ab7426128
|
93
|
|
| shintamainjp |
0:a71ab7426128
|
94
|
return 1; /* An error occured at the disk I/O layer */
|
| shintamainjp |
0:a71ab7426128
|
95
|
}
|
| shintamainjp |
0:a71ab7426128
|
96
|
|
| shintamainjp |
0:a71ab7426128
|
97
|
|
| shintamainjp |
0:a71ab7426128
|
98
|
|
| shintamainjp |
0:a71ab7426128
|
99
|
|
| shintamainjp |
0:a71ab7426128
|
100
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
101
|
/* Get sector# from cluster# */
|
| shintamainjp |
0:a71ab7426128
|
102
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
103
|
|
| shintamainjp |
0:a71ab7426128
|
104
|
DWORD PetitFileSystem::clust2sect ( /* !=0: Sector number, 0: Failed - invalid cluster# */
|
| shintamainjp |
0:a71ab7426128
|
105
|
FATFS *fs, CLUST clst /* Cluster# to be converted */
|
| shintamainjp |
0:a71ab7426128
|
106
|
) {
|
| shintamainjp |
0:a71ab7426128
|
107
|
|
| shintamainjp |
0:a71ab7426128
|
108
|
clst -= 2;
|
| shintamainjp |
0:a71ab7426128
|
109
|
if (clst >= (fs->max_clust - 2)) return 0; /* Invalid cluster# */
|
| shintamainjp |
0:a71ab7426128
|
110
|
return (DWORD)clst * fs->csize + fs->database;
|
| shintamainjp |
0:a71ab7426128
|
111
|
}
|
| shintamainjp |
0:a71ab7426128
|
112
|
|
| shintamainjp |
0:a71ab7426128
|
113
|
|
| shintamainjp |
0:a71ab7426128
|
114
|
|
| shintamainjp |
0:a71ab7426128
|
115
|
|
| shintamainjp |
0:a71ab7426128
|
116
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
117
|
/* Directory handling - Rewind directory index */
|
| shintamainjp |
0:a71ab7426128
|
118
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
119
|
|
| shintamainjp |
0:a71ab7426128
|
120
|
PetitFileSystem::FRESULT PetitFileSystem::dir_rewind ( FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
121
|
FATDIR *dj /* Pointer to directory object */
|
| shintamainjp |
0:a71ab7426128
|
122
|
) {
|
| shintamainjp |
0:a71ab7426128
|
123
|
CLUST clst;
|
| shintamainjp |
0:a71ab7426128
|
124
|
|
| shintamainjp |
0:a71ab7426128
|
125
|
|
| shintamainjp |
0:a71ab7426128
|
126
|
|
| shintamainjp |
0:a71ab7426128
|
127
|
dj->index = 0;
|
| shintamainjp |
0:a71ab7426128
|
128
|
clst = dj->sclust;
|
| shintamainjp |
0:a71ab7426128
|
129
|
if (clst == 1 || clst >= fs->max_clust) /* Check start cluster range */
|
| shintamainjp |
0:a71ab7426128
|
130
|
return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
131
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
132
|
if (!clst && fs->fs_type == FS_FAT32) /* Replace cluster# 0 with root cluster# if in FAT32 */
|
| shintamainjp |
0:a71ab7426128
|
133
|
clst = fs->dirbase;
|
| shintamainjp |
0:a71ab7426128
|
134
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
135
|
dj->clust = clst; /* Current cluster */
|
| shintamainjp |
0:a71ab7426128
|
136
|
dj->sect = clst ? clust2sect(fs, clst) : fs->dirbase; /* Current sector */
|
| shintamainjp |
0:a71ab7426128
|
137
|
|
| shintamainjp |
0:a71ab7426128
|
138
|
return FR_OK; /* Seek succeeded */
|
| shintamainjp |
0:a71ab7426128
|
139
|
}
|
| shintamainjp |
0:a71ab7426128
|
140
|
|
| shintamainjp |
0:a71ab7426128
|
141
|
|
| shintamainjp |
0:a71ab7426128
|
142
|
|
| shintamainjp |
0:a71ab7426128
|
143
|
|
| shintamainjp |
0:a71ab7426128
|
144
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
145
|
/* Directory handling - Move directory index next */
|
| shintamainjp |
0:a71ab7426128
|
146
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
147
|
|
| shintamainjp |
0:a71ab7426128
|
148
|
PetitFileSystem::FRESULT PetitFileSystem::dir_next ( /* FR_OK:Succeeded, FR_NO_FILE:End of table */
|
| shintamainjp |
0:a71ab7426128
|
149
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
150
|
FATDIR *dj /* Pointer to directory object */
|
| shintamainjp |
0:a71ab7426128
|
151
|
) {
|
| shintamainjp |
0:a71ab7426128
|
152
|
CLUST clst;
|
| shintamainjp |
0:a71ab7426128
|
153
|
WORD i;
|
| shintamainjp |
0:a71ab7426128
|
154
|
|
| shintamainjp |
0:a71ab7426128
|
155
|
|
| shintamainjp |
0:a71ab7426128
|
156
|
i = dj->index + 1;
|
| shintamainjp |
0:a71ab7426128
|
157
|
if (!i || !dj->sect) /* Report EOT when index has reached 65535 */
|
| shintamainjp |
0:a71ab7426128
|
158
|
return FR_NO_FILE;
|
| shintamainjp |
0:a71ab7426128
|
159
|
|
| shintamainjp |
0:a71ab7426128
|
160
|
if (!(i & (16-1))) { /* Sector changed? */
|
| shintamainjp |
0:a71ab7426128
|
161
|
dj->sect++; /* Next sector */
|
| shintamainjp |
0:a71ab7426128
|
162
|
|
| shintamainjp |
0:a71ab7426128
|
163
|
if (dj->clust == 0) { /* Static table */
|
| shintamainjp |
0:a71ab7426128
|
164
|
if (i >= fs->n_rootdir) /* Report EOT when end of table */
|
| shintamainjp |
0:a71ab7426128
|
165
|
return FR_NO_FILE;
|
| shintamainjp |
0:a71ab7426128
|
166
|
} else { /* Dynamic table */
|
| shintamainjp |
0:a71ab7426128
|
167
|
if (((i / 16) & (fs->csize-1)) == 0) { /* Cluster changed? */
|
| shintamainjp |
0:a71ab7426128
|
168
|
clst = get_fat(fs, dj->clust); /* Get next cluster */
|
| shintamainjp |
0:a71ab7426128
|
169
|
if (clst <= 1) return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
170
|
if (clst >= fs->max_clust) /* When it reached end of dynamic table */
|
| shintamainjp |
0:a71ab7426128
|
171
|
return FR_NO_FILE; /* Report EOT */
|
| shintamainjp |
0:a71ab7426128
|
172
|
dj->clust = clst; /* Initialize data for new cluster */
|
| shintamainjp |
0:a71ab7426128
|
173
|
dj->sect = clust2sect(fs, clst);
|
| shintamainjp |
0:a71ab7426128
|
174
|
}
|
| shintamainjp |
0:a71ab7426128
|
175
|
}
|
| shintamainjp |
0:a71ab7426128
|
176
|
}
|
| shintamainjp |
0:a71ab7426128
|
177
|
|
| shintamainjp |
0:a71ab7426128
|
178
|
dj->index = i;
|
| shintamainjp |
0:a71ab7426128
|
179
|
|
| shintamainjp |
0:a71ab7426128
|
180
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
181
|
}
|
| shintamainjp |
0:a71ab7426128
|
182
|
|
| shintamainjp |
0:a71ab7426128
|
183
|
|
| shintamainjp |
0:a71ab7426128
|
184
|
|
| shintamainjp |
0:a71ab7426128
|
185
|
|
| shintamainjp |
0:a71ab7426128
|
186
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
187
|
/* Directory handling - Find an object in the directory */
|
| shintamainjp |
0:a71ab7426128
|
188
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
189
|
|
| shintamainjp |
0:a71ab7426128
|
190
|
PetitFileSystem::FRESULT PetitFileSystem::dir_find (
|
| shintamainjp |
0:a71ab7426128
|
191
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
192
|
FATDIR *dj /* Pointer to the directory object linked to the file name */
|
| shintamainjp |
0:a71ab7426128
|
193
|
) {
|
| shintamainjp |
0:a71ab7426128
|
194
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
195
|
BYTE c, *dir;
|
| shintamainjp |
0:a71ab7426128
|
196
|
|
| shintamainjp |
0:a71ab7426128
|
197
|
|
| shintamainjp |
0:a71ab7426128
|
198
|
res = dir_rewind(fs, dj); /* Rewind directory object */
|
| shintamainjp |
0:a71ab7426128
|
199
|
if (res != FR_OK) return res;
|
| shintamainjp |
0:a71ab7426128
|
200
|
|
| shintamainjp |
0:a71ab7426128
|
201
|
dir = fs->buf;
|
| shintamainjp |
0:a71ab7426128
|
202
|
do {
|
| shintamainjp |
0:a71ab7426128
|
203
|
res = disk_readp(dir, dj->sect, (WORD)((dj->index % 16) * 32), 32) /* Read an entry */
|
| shintamainjp |
0:a71ab7426128
|
204
|
? FR_DISK_ERR : FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
205
|
if (res != FR_OK) break;
|
| shintamainjp |
0:a71ab7426128
|
206
|
c = dir[DIR_Name]; /* First character */
|
| shintamainjp |
0:a71ab7426128
|
207
|
if (c == 0) {
|
| shintamainjp |
0:a71ab7426128
|
208
|
res = FR_NO_FILE; /* Reached to end of table */
|
| shintamainjp |
0:a71ab7426128
|
209
|
break;
|
| shintamainjp |
0:a71ab7426128
|
210
|
}
|
| shintamainjp |
0:a71ab7426128
|
211
|
if (!(dir[DIR_Attr] & AM_VOL) && !mem_cmp(dir, dj->fn, 11)) /* Is it a valid entry? */
|
| shintamainjp |
0:a71ab7426128
|
212
|
break;
|
| shintamainjp |
0:a71ab7426128
|
213
|
res = dir_next(fs, dj); /* Next entry */
|
| shintamainjp |
0:a71ab7426128
|
214
|
} while (res == FR_OK);
|
| shintamainjp |
0:a71ab7426128
|
215
|
|
| shintamainjp |
0:a71ab7426128
|
216
|
return res;
|
| shintamainjp |
0:a71ab7426128
|
217
|
}
|
| shintamainjp |
0:a71ab7426128
|
218
|
|
| shintamainjp |
0:a71ab7426128
|
219
|
|
| shintamainjp |
0:a71ab7426128
|
220
|
|
| shintamainjp |
0:a71ab7426128
|
221
|
|
| shintamainjp |
0:a71ab7426128
|
222
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
223
|
/* Read an object from the directory */
|
| shintamainjp |
0:a71ab7426128
|
224
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
225
|
#if _USE_DIR
|
| shintamainjp |
0:a71ab7426128
|
226
|
PetitFileSystem::FRESULT PetitFileSystem::dir_read (
|
| shintamainjp |
0:a71ab7426128
|
227
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
228
|
FATDIR *dj /* Pointer to the directory object to store read object name */
|
| shintamainjp |
0:a71ab7426128
|
229
|
) {
|
| shintamainjp |
0:a71ab7426128
|
230
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
231
|
BYTE a, c, *dir;
|
| shintamainjp |
0:a71ab7426128
|
232
|
|
| shintamainjp |
0:a71ab7426128
|
233
|
|
| shintamainjp |
0:a71ab7426128
|
234
|
res = FR_NO_FILE;
|
| shintamainjp |
0:a71ab7426128
|
235
|
dir = fs->buf;
|
| shintamainjp |
0:a71ab7426128
|
236
|
while (dj->sect) {
|
| shintamainjp |
0:a71ab7426128
|
237
|
res = disk_readp(dir, dj->sect, (WORD)((dj->index % 16) * 32), 32) /* Read an entry */
|
| shintamainjp |
0:a71ab7426128
|
238
|
? FR_DISK_ERR : FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
239
|
if (res != FR_OK) break;
|
| shintamainjp |
0:a71ab7426128
|
240
|
c = dir[DIR_Name];
|
| shintamainjp |
0:a71ab7426128
|
241
|
if (c == 0) {
|
| shintamainjp |
0:a71ab7426128
|
242
|
res = FR_NO_FILE; /* Reached to end of table */
|
| shintamainjp |
0:a71ab7426128
|
243
|
break;
|
| shintamainjp |
0:a71ab7426128
|
244
|
}
|
| shintamainjp |
0:a71ab7426128
|
245
|
a = dir[DIR_Attr] & AM_MASK;
|
| shintamainjp |
0:a71ab7426128
|
246
|
if (c != 0xE5 && c != '.' && !(a & AM_VOL)) /* Is it a valid entry? */
|
| shintamainjp |
0:a71ab7426128
|
247
|
break;
|
| shintamainjp |
0:a71ab7426128
|
248
|
res = dir_next(fs, dj); /* Next entry */
|
| shintamainjp |
0:a71ab7426128
|
249
|
if (res != FR_OK) break;
|
| shintamainjp |
0:a71ab7426128
|
250
|
}
|
| shintamainjp |
0:a71ab7426128
|
251
|
|
| shintamainjp |
0:a71ab7426128
|
252
|
if (res != FR_OK) dj->sect = 0;
|
| shintamainjp |
0:a71ab7426128
|
253
|
|
| shintamainjp |
0:a71ab7426128
|
254
|
return res;
|
| shintamainjp |
0:a71ab7426128
|
255
|
}
|
| shintamainjp |
0:a71ab7426128
|
256
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
257
|
|
| shintamainjp |
0:a71ab7426128
|
258
|
|
| shintamainjp |
0:a71ab7426128
|
259
|
|
| shintamainjp |
0:a71ab7426128
|
260
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
261
|
/* Pick a segment and create the object name in directory form */
|
| shintamainjp |
0:a71ab7426128
|
262
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
263
|
|
| shintamainjp |
0:a71ab7426128
|
264
|
#ifdef _EXCVT
|
| shintamainjp |
0:a71ab7426128
|
265
|
static const BYTE cvt[] = _EXCVT;
|
| shintamainjp |
0:a71ab7426128
|
266
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
267
|
|
| shintamainjp |
0:a71ab7426128
|
268
|
PetitFileSystem::FRESULT PetitFileSystem::create_name (
|
| shintamainjp |
0:a71ab7426128
|
269
|
FATDIR *dj, /* Pointer to the directory object */
|
| shintamainjp |
0:a71ab7426128
|
270
|
const char **path /* Pointer to pointer to the segment in the path string */
|
| shintamainjp |
0:a71ab7426128
|
271
|
) {
|
| shintamainjp |
0:a71ab7426128
|
272
|
BYTE c, d, ni, si, i, *sfn;
|
| shintamainjp |
0:a71ab7426128
|
273
|
const char *p;
|
| shintamainjp |
0:a71ab7426128
|
274
|
|
| shintamainjp |
0:a71ab7426128
|
275
|
/* Create file name in directory form */
|
| shintamainjp |
0:a71ab7426128
|
276
|
sfn = dj->fn;
|
| shintamainjp |
0:a71ab7426128
|
277
|
mem_set(sfn, ' ', 11);
|
| shintamainjp |
0:a71ab7426128
|
278
|
si = i = 0;
|
| shintamainjp |
0:a71ab7426128
|
279
|
ni = 8;
|
| shintamainjp |
0:a71ab7426128
|
280
|
p = *path;
|
| shintamainjp |
0:a71ab7426128
|
281
|
for (;;) {
|
| shintamainjp |
0:a71ab7426128
|
282
|
c = p[si++];
|
| shintamainjp |
0:a71ab7426128
|
283
|
if (c <= ' ' || c == '/') break; /* Break on end of segment */
|
| shintamainjp |
0:a71ab7426128
|
284
|
if (c == '.' || i >= ni) {
|
| shintamainjp |
0:a71ab7426128
|
285
|
if (ni != 8 || c != '.') break;
|
| shintamainjp |
0:a71ab7426128
|
286
|
i = 8;
|
| shintamainjp |
0:a71ab7426128
|
287
|
ni = 11;
|
| shintamainjp |
0:a71ab7426128
|
288
|
continue;
|
| shintamainjp |
0:a71ab7426128
|
289
|
}
|
| shintamainjp |
0:a71ab7426128
|
290
|
#ifdef _EXCVT
|
| shintamainjp |
0:a71ab7426128
|
291
|
if (c >= 0x80) /* To upper extended char (SBCS) */
|
| shintamainjp |
0:a71ab7426128
|
292
|
c = cvt[c - 0x80];
|
| shintamainjp |
0:a71ab7426128
|
293
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
294
|
if (IsDBCS1(c) && i >= ni - 1) { /* DBC 1st byte? */
|
| shintamainjp |
0:a71ab7426128
|
295
|
d = p[si++]; /* Get 2nd byte */
|
| shintamainjp |
0:a71ab7426128
|
296
|
sfn[i++] = c;
|
| shintamainjp |
0:a71ab7426128
|
297
|
sfn[i++] = d;
|
| shintamainjp |
0:a71ab7426128
|
298
|
} else { /* Single byte code */
|
| shintamainjp |
0:a71ab7426128
|
299
|
if (IsLower(c)) c -= 0x20; /* toupper */
|
| shintamainjp |
0:a71ab7426128
|
300
|
sfn[i++] = c;
|
| shintamainjp |
0:a71ab7426128
|
301
|
}
|
| shintamainjp |
0:a71ab7426128
|
302
|
}
|
| shintamainjp |
0:a71ab7426128
|
303
|
*path = &p[si]; /* Rerurn pointer to the next segment */
|
| shintamainjp |
0:a71ab7426128
|
304
|
|
| shintamainjp |
0:a71ab7426128
|
305
|
sfn[11] = (c <= ' ') ? 1 : 0; /* Set last segment flag if end of path */
|
| shintamainjp |
0:a71ab7426128
|
306
|
|
| shintamainjp |
0:a71ab7426128
|
307
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
308
|
}
|
| shintamainjp |
0:a71ab7426128
|
309
|
|
| shintamainjp |
0:a71ab7426128
|
310
|
|
| shintamainjp |
0:a71ab7426128
|
311
|
|
| shintamainjp |
0:a71ab7426128
|
312
|
|
| shintamainjp |
0:a71ab7426128
|
313
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
314
|
/* Get file information from directory entry */
|
| shintamainjp |
0:a71ab7426128
|
315
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
316
|
#if _USE_DIR
|
| shintamainjp |
0:a71ab7426128
|
317
|
void PetitFileSystem::get_fileinfo ( /* No return code */
|
| shintamainjp |
0:a71ab7426128
|
318
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
319
|
FATDIR *dj, /* Pointer to the directory object */
|
| shintamainjp |
0:a71ab7426128
|
320
|
FILINFO *fno /* Pointer to store the file information */
|
| shintamainjp |
0:a71ab7426128
|
321
|
) {
|
| shintamainjp |
0:a71ab7426128
|
322
|
BYTE i, c, *dir;
|
| shintamainjp |
0:a71ab7426128
|
323
|
char *p;
|
| shintamainjp |
0:a71ab7426128
|
324
|
|
| shintamainjp |
0:a71ab7426128
|
325
|
|
| shintamainjp |
0:a71ab7426128
|
326
|
p = fno->fname;
|
| shintamainjp |
0:a71ab7426128
|
327
|
if (dj->sect) {
|
| shintamainjp |
0:a71ab7426128
|
328
|
dir = fs->buf;
|
| shintamainjp |
0:a71ab7426128
|
329
|
for (i = 0; i < 8; i++) { /* Copy file name body */
|
| shintamainjp |
0:a71ab7426128
|
330
|
c = dir[i];
|
| shintamainjp |
0:a71ab7426128
|
331
|
if (c == ' ') break;
|
| shintamainjp |
0:a71ab7426128
|
332
|
if (c == 0x05) c = 0xE5;
|
| shintamainjp |
0:a71ab7426128
|
333
|
*p++ = c;
|
| shintamainjp |
0:a71ab7426128
|
334
|
}
|
| shintamainjp |
0:a71ab7426128
|
335
|
if (dir[8] != ' ') { /* Copy file name extension */
|
| shintamainjp |
0:a71ab7426128
|
336
|
*p++ = '.';
|
| shintamainjp |
0:a71ab7426128
|
337
|
for (i = 8; i < 11; i++) {
|
| shintamainjp |
0:a71ab7426128
|
338
|
c = dir[i];
|
| shintamainjp |
0:a71ab7426128
|
339
|
if (c == ' ') break;
|
| shintamainjp |
0:a71ab7426128
|
340
|
*p++ = c;
|
| shintamainjp |
0:a71ab7426128
|
341
|
}
|
| shintamainjp |
0:a71ab7426128
|
342
|
}
|
| shintamainjp |
0:a71ab7426128
|
343
|
fno->fattrib = dir[DIR_Attr]; /* Attribute */
|
| shintamainjp |
0:a71ab7426128
|
344
|
fno->fsize = LD_DWORD(dir+DIR_FileSize); /* Size */
|
| shintamainjp |
0:a71ab7426128
|
345
|
fno->fdate = LD_WORD(dir+DIR_WrtDate); /* Date */
|
| shintamainjp |
0:a71ab7426128
|
346
|
fno->ftime = LD_WORD(dir+DIR_WrtTime); /* Time */
|
| shintamainjp |
0:a71ab7426128
|
347
|
}
|
| shintamainjp |
0:a71ab7426128
|
348
|
*p = 0;
|
| shintamainjp |
0:a71ab7426128
|
349
|
}
|
| shintamainjp |
0:a71ab7426128
|
350
|
#endif /* _USE_DIR */
|
| shintamainjp |
0:a71ab7426128
|
351
|
|
| shintamainjp |
0:a71ab7426128
|
352
|
|
| shintamainjp |
0:a71ab7426128
|
353
|
|
| shintamainjp |
0:a71ab7426128
|
354
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
355
|
/* Follow a file path */
|
| shintamainjp |
0:a71ab7426128
|
356
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
357
|
|
| shintamainjp |
0:a71ab7426128
|
358
|
PetitFileSystem::FRESULT PetitFileSystem::follow_path ( /* FR_OK(0): successful, !=0: error code */
|
| shintamainjp |
0:a71ab7426128
|
359
|
FATFS *fs,
|
| shintamainjp |
0:a71ab7426128
|
360
|
FATDIR *dj, /* Directory object to return last directory and found object */
|
| shintamainjp |
0:a71ab7426128
|
361
|
const char *path /* Full-path string to find a file or directory */
|
| shintamainjp |
0:a71ab7426128
|
362
|
) {
|
| shintamainjp |
0:a71ab7426128
|
363
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
364
|
BYTE *dir;
|
| shintamainjp |
0:a71ab7426128
|
365
|
|
| shintamainjp |
0:a71ab7426128
|
366
|
|
| shintamainjp |
0:a71ab7426128
|
367
|
while (*path == ' ') path++; /* Skip leading spaces */
|
| shintamainjp |
0:a71ab7426128
|
368
|
if (*path == '/') path++; /* Strip heading separator */
|
| shintamainjp |
0:a71ab7426128
|
369
|
dj->sclust = 0; /* Set start directory (always root dir) */
|
| shintamainjp |
0:a71ab7426128
|
370
|
|
| shintamainjp |
0:a71ab7426128
|
371
|
if ((BYTE)*path <= ' ') { /* Null path means the root directory */
|
| shintamainjp |
0:a71ab7426128
|
372
|
res = dir_rewind(fs, dj);
|
| shintamainjp |
0:a71ab7426128
|
373
|
fs->buf[0] = 0;
|
| shintamainjp |
0:a71ab7426128
|
374
|
|
| shintamainjp |
0:a71ab7426128
|
375
|
} else { /* Follow path */
|
| shintamainjp |
0:a71ab7426128
|
376
|
for (;;) {
|
| shintamainjp |
0:a71ab7426128
|
377
|
res = create_name(dj, &path); /* Get a segment */
|
| shintamainjp |
0:a71ab7426128
|
378
|
if (res != FR_OK) break;
|
| shintamainjp |
0:a71ab7426128
|
379
|
res = dir_find(fs, dj); /* Find it */
|
| shintamainjp |
0:a71ab7426128
|
380
|
if (res != FR_OK) { /* Could not find the object */
|
| shintamainjp |
0:a71ab7426128
|
381
|
if (res == FR_NO_FILE && !*(dj->fn+11))
|
| shintamainjp |
0:a71ab7426128
|
382
|
res = FR_NO_PATH;
|
| shintamainjp |
0:a71ab7426128
|
383
|
break;
|
| shintamainjp |
0:a71ab7426128
|
384
|
}
|
| shintamainjp |
0:a71ab7426128
|
385
|
if (*(dj->fn+11)) break; /* Last segment match. Function completed. */
|
| shintamainjp |
0:a71ab7426128
|
386
|
dir = fs->buf; /* There is next segment. Follow the sub directory */
|
| shintamainjp |
0:a71ab7426128
|
387
|
if (!(dir[DIR_Attr] & AM_DIR)) { /* Cannot follow because it is a file */
|
| shintamainjp |
0:a71ab7426128
|
388
|
res = FR_NO_PATH;
|
| shintamainjp |
0:a71ab7426128
|
389
|
break;
|
| shintamainjp |
0:a71ab7426128
|
390
|
}
|
| shintamainjp |
0:a71ab7426128
|
391
|
dj->sclust =
|
| shintamainjp |
0:a71ab7426128
|
392
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
393
|
((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) |
|
| shintamainjp |
0:a71ab7426128
|
394
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
395
|
LD_WORD(dir+DIR_FstClusLO);
|
| shintamainjp |
0:a71ab7426128
|
396
|
}
|
| shintamainjp |
0:a71ab7426128
|
397
|
}
|
| shintamainjp |
0:a71ab7426128
|
398
|
|
| shintamainjp |
0:a71ab7426128
|
399
|
return res;
|
| shintamainjp |
0:a71ab7426128
|
400
|
}
|
| shintamainjp |
0:a71ab7426128
|
401
|
|
| shintamainjp |
0:a71ab7426128
|
402
|
|
| shintamainjp |
0:a71ab7426128
|
403
|
|
| shintamainjp |
0:a71ab7426128
|
404
|
|
| shintamainjp |
0:a71ab7426128
|
405
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
406
|
/* Check a sector if it is an FAT boot record */
|
| shintamainjp |
0:a71ab7426128
|
407
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
408
|
|
| shintamainjp |
0:a71ab7426128
|
409
|
BYTE PetitFileSystem::check_fs ( /* 0:The FAT boot record, 1:Valid boot record but not an FAT, 2:Not a boot record, 3:Error */
|
| shintamainjp |
0:a71ab7426128
|
410
|
BYTE *buf, /* Working buffer */
|
| shintamainjp |
0:a71ab7426128
|
411
|
DWORD sect /* Sector# (lba) to check if it is an FAT boot record or not */
|
| shintamainjp |
0:a71ab7426128
|
412
|
) {
|
| shintamainjp |
0:a71ab7426128
|
413
|
if (disk_readp(buf, sect, 510, 2)) /* Read the boot sector */
|
| shintamainjp |
0:a71ab7426128
|
414
|
return 3;
|
| shintamainjp |
0:a71ab7426128
|
415
|
if (LD_WORD(buf) != 0xAA55) /* Check record signature */
|
| shintamainjp |
0:a71ab7426128
|
416
|
return 2;
|
| shintamainjp |
0:a71ab7426128
|
417
|
|
| shintamainjp |
0:a71ab7426128
|
418
|
if (!disk_readp(buf, sect, BS_FilSysType, 2) && LD_WORD(buf) == 0x4146) /* Check FAT12/16 */
|
| shintamainjp |
0:a71ab7426128
|
419
|
return 0;
|
| shintamainjp |
0:a71ab7426128
|
420
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
421
|
if (!disk_readp(buf, sect, BS_FilSysType32, 2) && LD_WORD(buf) == 0x4146) /* Check FAT32 */
|
| shintamainjp |
0:a71ab7426128
|
422
|
return 0;
|
| shintamainjp |
0:a71ab7426128
|
423
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
424
|
return 1;
|
| shintamainjp |
0:a71ab7426128
|
425
|
}
|
| shintamainjp |
0:a71ab7426128
|
426
|
|
| shintamainjp |
0:a71ab7426128
|
427
|
|
| shintamainjp |
0:a71ab7426128
|
428
|
|
| shintamainjp |
0:a71ab7426128
|
429
|
|
| shintamainjp |
0:a71ab7426128
|
430
|
/*--------------------------------------------------------------------------
|
| shintamainjp |
0:a71ab7426128
|
431
|
|
| shintamainjp |
0:a71ab7426128
|
432
|
Public Functions
|
| shintamainjp |
0:a71ab7426128
|
433
|
|
| shintamainjp |
0:a71ab7426128
|
434
|
--------------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
435
|
|
| shintamainjp |
0:a71ab7426128
|
436
|
|
| shintamainjp |
0:a71ab7426128
|
437
|
|
| shintamainjp |
0:a71ab7426128
|
438
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
439
|
/* Mount/Unmount a Locical Drive */
|
| shintamainjp |
0:a71ab7426128
|
440
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
441
|
|
| shintamainjp |
0:a71ab7426128
|
442
|
PetitFileSystem::FRESULT PetitFileSystem::unmount () {
|
| shintamainjp |
0:a71ab7426128
|
443
|
FatFs = 0;
|
| shintamainjp |
0:a71ab7426128
|
444
|
return FR_OK; /* Unregister fs object */
|
| shintamainjp |
0:a71ab7426128
|
445
|
}
|
| shintamainjp |
0:a71ab7426128
|
446
|
|
| shintamainjp |
0:a71ab7426128
|
447
|
PetitFileSystem::FRESULT PetitFileSystem::mount () {
|
| shintamainjp |
0:a71ab7426128
|
448
|
BYTE fmt, buf[36];
|
| shintamainjp |
0:a71ab7426128
|
449
|
DWORD bsect, fsize, tsect, mclst;
|
| shintamainjp |
0:a71ab7426128
|
450
|
FATFS *fs = &FileSystemObject;
|
| shintamainjp |
0:a71ab7426128
|
451
|
|
| shintamainjp |
0:a71ab7426128
|
452
|
if (disk_initialize() & STA_NOINIT) /* Check if the drive is ready or not */
|
| shintamainjp |
0:a71ab7426128
|
453
|
return FR_NOT_READY;
|
| shintamainjp |
0:a71ab7426128
|
454
|
|
| shintamainjp |
0:a71ab7426128
|
455
|
/* Search FAT partition on the drive */
|
| shintamainjp |
0:a71ab7426128
|
456
|
bsect = 0;
|
| shintamainjp |
0:a71ab7426128
|
457
|
fmt = check_fs(buf, bsect); /* Check sector 0 as an SFD format */
|
| shintamainjp |
0:a71ab7426128
|
458
|
if (fmt == 1) { /* Not an FAT boot record, it may be FDISK format */
|
| shintamainjp |
0:a71ab7426128
|
459
|
/* Check a partition listed in top of the partition table */
|
| shintamainjp |
0:a71ab7426128
|
460
|
if (disk_readp(buf, bsect, MBR_Table, 16)) { /* 1st partition entry */
|
| shintamainjp |
0:a71ab7426128
|
461
|
fmt = 3;
|
| shintamainjp |
0:a71ab7426128
|
462
|
} else {
|
| shintamainjp |
0:a71ab7426128
|
463
|
if (buf[4]) { /* Is the partition existing? */
|
| shintamainjp |
0:a71ab7426128
|
464
|
bsect = LD_DWORD(&buf[8]); /* Partition offset in LBA */
|
| shintamainjp |
0:a71ab7426128
|
465
|
fmt = check_fs(buf, bsect); /* Check the partition */
|
| shintamainjp |
0:a71ab7426128
|
466
|
}
|
| shintamainjp |
0:a71ab7426128
|
467
|
}
|
| shintamainjp |
0:a71ab7426128
|
468
|
}
|
| shintamainjp |
0:a71ab7426128
|
469
|
if (fmt == 3) return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
470
|
if (fmt) return FR_NO_FILESYSTEM; /* No valid FAT patition is found */
|
| shintamainjp |
0:a71ab7426128
|
471
|
|
| shintamainjp |
0:a71ab7426128
|
472
|
/* Initialize the file system object */
|
| shintamainjp |
0:a71ab7426128
|
473
|
if (disk_readp(buf, bsect, 13, sizeof(buf))) return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
474
|
|
| shintamainjp |
0:a71ab7426128
|
475
|
fsize = LD_WORD(buf+BPB_FATSz16-13); /* Number of sectors per FAT */
|
| shintamainjp |
0:a71ab7426128
|
476
|
if (!fsize) fsize = LD_DWORD(buf+BPB_FATSz32-13);
|
| shintamainjp |
0:a71ab7426128
|
477
|
|
| shintamainjp |
0:a71ab7426128
|
478
|
fsize *= buf[BPB_NumFATs-13]; /* Number of sectors in FAT area */
|
| shintamainjp |
0:a71ab7426128
|
479
|
fs->fatbase = bsect + LD_WORD(buf+BPB_RsvdSecCnt-13); /* FAT start sector (lba) */
|
| shintamainjp |
0:a71ab7426128
|
480
|
fs->csize = buf[BPB_SecPerClus-13]; /* Number of sectors per cluster */
|
| shintamainjp |
0:a71ab7426128
|
481
|
fs->n_rootdir = LD_WORD(buf+BPB_RootEntCnt-13); /* Nmuber of root directory entries */
|
| shintamainjp |
0:a71ab7426128
|
482
|
tsect = LD_WORD(buf+BPB_TotSec16-13); /* Number of sectors on the file system */
|
| shintamainjp |
0:a71ab7426128
|
483
|
if (!tsect) tsect = LD_DWORD(buf+BPB_TotSec32-13);
|
| shintamainjp |
0:a71ab7426128
|
484
|
mclst = (tsect /* Last cluster# + 1 */
|
| shintamainjp |
0:a71ab7426128
|
485
|
- LD_WORD(buf+BPB_RsvdSecCnt-13) - fsize - fs->n_rootdir / 16
|
| shintamainjp |
0:a71ab7426128
|
486
|
) / fs->csize + 2;
|
| shintamainjp |
0:a71ab7426128
|
487
|
fs->max_clust = (CLUST)mclst;
|
| shintamainjp |
0:a71ab7426128
|
488
|
|
| shintamainjp |
0:a71ab7426128
|
489
|
fmt = FS_FAT12; /* Determine the FAT sub type */
|
| shintamainjp |
0:a71ab7426128
|
490
|
if (mclst >= 0xFF7) fmt = FS_FAT16; /* Number of clusters >= 0xFF5 */
|
| shintamainjp |
0:a71ab7426128
|
491
|
if (mclst >= 0xFFF7) /* Number of clusters >= 0xFFF5 */
|
| shintamainjp |
0:a71ab7426128
|
492
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
493
|
fmt = FS_FAT32;
|
| shintamainjp |
0:a71ab7426128
|
494
|
#else
|
| shintamainjp |
0:a71ab7426128
|
495
|
return FR_NO_FILESYSTEM;
|
| shintamainjp |
0:a71ab7426128
|
496
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
497
|
|
| shintamainjp |
0:a71ab7426128
|
498
|
fs->fs_type = fmt; /* FAT sub-type */
|
| shintamainjp |
0:a71ab7426128
|
499
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
500
|
if (fmt == FS_FAT32)
|
| shintamainjp |
0:a71ab7426128
|
501
|
fs->dirbase = LD_DWORD(buf+(BPB_RootClus-13)); /* Root directory start cluster */
|
| shintamainjp |
0:a71ab7426128
|
502
|
else
|
| shintamainjp |
0:a71ab7426128
|
503
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
504
|
fs->dirbase = fs->fatbase + fsize; /* Root directory start sector (lba) */
|
| shintamainjp |
0:a71ab7426128
|
505
|
fs->database = fs->fatbase + fsize + fs->n_rootdir / 16; /* Data start sector (lba) */
|
| shintamainjp |
0:a71ab7426128
|
506
|
|
| shintamainjp |
0:a71ab7426128
|
507
|
fs->flag = 0;
|
| shintamainjp |
0:a71ab7426128
|
508
|
FatFs = fs;
|
| shintamainjp |
0:a71ab7426128
|
509
|
|
| shintamainjp |
0:a71ab7426128
|
510
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
511
|
}
|
| shintamainjp |
0:a71ab7426128
|
512
|
|
| shintamainjp |
0:a71ab7426128
|
513
|
|
| shintamainjp |
0:a71ab7426128
|
514
|
|
| shintamainjp |
0:a71ab7426128
|
515
|
|
| shintamainjp |
0:a71ab7426128
|
516
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
517
|
/* Open or Create a File */
|
| shintamainjp |
0:a71ab7426128
|
518
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
519
|
|
| shintamainjp |
0:a71ab7426128
|
520
|
PetitFileSystem::FRESULT PetitFileSystem::open (
|
| shintamainjp |
0:a71ab7426128
|
521
|
const char *path /* Pointer to the file name */
|
| shintamainjp |
0:a71ab7426128
|
522
|
) {
|
| shintamainjp |
0:a71ab7426128
|
523
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
524
|
FATDIR dj;
|
| shintamainjp |
0:a71ab7426128
|
525
|
BYTE sp[12], dir[32];
|
| shintamainjp |
0:a71ab7426128
|
526
|
|
| shintamainjp |
0:a71ab7426128
|
527
|
|
| shintamainjp |
0:a71ab7426128
|
528
|
if (!FatFs) /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
529
|
return FR_NOT_ENABLED;
|
| shintamainjp |
0:a71ab7426128
|
530
|
|
| shintamainjp |
0:a71ab7426128
|
531
|
FatFs->flag = 0;
|
| shintamainjp |
0:a71ab7426128
|
532
|
FatFs->buf = dir;
|
| shintamainjp |
0:a71ab7426128
|
533
|
dj.fn = sp;
|
| shintamainjp |
0:a71ab7426128
|
534
|
res = follow_path(FatFs, &dj, path); /* Follow the file path */
|
| shintamainjp |
0:a71ab7426128
|
535
|
if (res != FR_OK) return res; /* Follow failed */
|
| shintamainjp |
0:a71ab7426128
|
536
|
if (!dir[0] || (dir[DIR_Attr] & AM_DIR)) /* It is a directory */
|
| shintamainjp |
0:a71ab7426128
|
537
|
return FR_NO_FILE;
|
| shintamainjp |
0:a71ab7426128
|
538
|
|
| shintamainjp |
0:a71ab7426128
|
539
|
FatFs->org_clust = /* File start cluster */
|
| shintamainjp |
0:a71ab7426128
|
540
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
541
|
((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) |
|
| shintamainjp |
0:a71ab7426128
|
542
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
543
|
LD_WORD(dir+DIR_FstClusLO);
|
| shintamainjp |
0:a71ab7426128
|
544
|
FatFs->fsize = LD_DWORD(dir+DIR_FileSize); /* File size */
|
| shintamainjp |
0:a71ab7426128
|
545
|
FatFs->fptr = 0; /* File pointer */
|
| shintamainjp |
0:a71ab7426128
|
546
|
FatFs->flag = FA_OPENED;
|
| shintamainjp |
0:a71ab7426128
|
547
|
|
| shintamainjp |
0:a71ab7426128
|
548
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
549
|
}
|
| shintamainjp |
0:a71ab7426128
|
550
|
|
| shintamainjp |
0:a71ab7426128
|
551
|
|
| shintamainjp |
0:a71ab7426128
|
552
|
|
| shintamainjp |
0:a71ab7426128
|
553
|
|
| shintamainjp |
0:a71ab7426128
|
554
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
555
|
/* Read File */
|
| shintamainjp |
0:a71ab7426128
|
556
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
557
|
#if _USE_READ
|
| shintamainjp |
0:a71ab7426128
|
558
|
|
| shintamainjp |
0:a71ab7426128
|
559
|
PetitFileSystem::FRESULT PetitFileSystem::read (
|
| shintamainjp |
0:a71ab7426128
|
560
|
void* buff, /* Pointer to the read buffer (NULL:Forward data to the stream)*/
|
| shintamainjp |
0:a71ab7426128
|
561
|
WORD btr, /* Number of bytes to read */
|
| shintamainjp |
0:a71ab7426128
|
562
|
WORD* br /* Pointer to number of bytes read */
|
| shintamainjp |
0:a71ab7426128
|
563
|
) {
|
| shintamainjp |
0:a71ab7426128
|
564
|
DRESULT dr;
|
| shintamainjp |
0:a71ab7426128
|
565
|
CLUST clst;
|
| shintamainjp |
0:a71ab7426128
|
566
|
DWORD sect, remain;
|
| shintamainjp |
0:a71ab7426128
|
567
|
BYTE *rbuff = (BYTE *)buff;
|
| shintamainjp |
0:a71ab7426128
|
568
|
WORD rcnt;
|
| shintamainjp |
0:a71ab7426128
|
569
|
FATFS *fs = FatFs;
|
| shintamainjp |
0:a71ab7426128
|
570
|
|
| shintamainjp |
0:a71ab7426128
|
571
|
|
| shintamainjp |
0:a71ab7426128
|
572
|
*br = 0;
|
| shintamainjp |
0:a71ab7426128
|
573
|
if (!fs) return FR_NOT_ENABLED; /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
574
|
if (!(fs->flag & FA_OPENED)) /* Check if opened */
|
| shintamainjp |
0:a71ab7426128
|
575
|
return FR_NOT_OPENED;
|
| shintamainjp |
0:a71ab7426128
|
576
|
|
| shintamainjp |
0:a71ab7426128
|
577
|
remain = fs->fsize - fs->fptr;
|
| shintamainjp |
0:a71ab7426128
|
578
|
if (btr > remain) btr = (WORD)remain; /* Truncate btr by remaining bytes */
|
| shintamainjp |
0:a71ab7426128
|
579
|
|
| shintamainjp |
0:a71ab7426128
|
580
|
while (btr) { /* Repeat until all data transferred */
|
| shintamainjp |
0:a71ab7426128
|
581
|
if ((fs->fptr % 512) == 0) { /* On the sector boundary? */
|
| shintamainjp |
0:a71ab7426128
|
582
|
if ((fs->fptr / 512 % fs->csize) == 0) { /* On the cluster boundary? */
|
| shintamainjp |
0:a71ab7426128
|
583
|
clst = (fs->fptr == 0) ? /* On the top of the file? */
|
| shintamainjp |
0:a71ab7426128
|
584
|
fs->org_clust : get_fat(fs, fs->curr_clust);
|
| shintamainjp |
0:a71ab7426128
|
585
|
if (clst <= 1) goto fr_abort;
|
| shintamainjp |
0:a71ab7426128
|
586
|
fs->curr_clust = clst; /* Update current cluster */
|
| shintamainjp |
0:a71ab7426128
|
587
|
fs->csect = 0; /* Reset sector offset in the cluster */
|
| shintamainjp |
0:a71ab7426128
|
588
|
}
|
| shintamainjp |
0:a71ab7426128
|
589
|
sect = clust2sect(fs, fs->curr_clust); /* Get current sector */
|
| shintamainjp |
0:a71ab7426128
|
590
|
if (!sect) goto fr_abort;
|
| shintamainjp |
0:a71ab7426128
|
591
|
fs->dsect = sect + fs->csect++;
|
| shintamainjp |
0:a71ab7426128
|
592
|
}
|
| shintamainjp |
0:a71ab7426128
|
593
|
rcnt = 512 - ((WORD)fs->fptr % 512); /* Get partial sector data from sector buffer */
|
| shintamainjp |
0:a71ab7426128
|
594
|
if (rcnt > btr) rcnt = btr;
|
| shintamainjp |
0:a71ab7426128
|
595
|
dr = disk_readp(!buff ? 0 : rbuff, fs->dsect, (WORD)(fs->fptr % 512), rcnt);
|
| shintamainjp |
0:a71ab7426128
|
596
|
if (dr) goto fr_abort;
|
| shintamainjp |
0:a71ab7426128
|
597
|
fs->fptr += rcnt;
|
| shintamainjp |
0:a71ab7426128
|
598
|
rbuff += rcnt; /* Update pointers and counters */
|
| shintamainjp |
0:a71ab7426128
|
599
|
btr -= rcnt;
|
| shintamainjp |
0:a71ab7426128
|
600
|
*br += rcnt;
|
| shintamainjp |
0:a71ab7426128
|
601
|
}
|
| shintamainjp |
0:a71ab7426128
|
602
|
|
| shintamainjp |
0:a71ab7426128
|
603
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
604
|
|
| shintamainjp |
0:a71ab7426128
|
605
|
fr_abort:
|
| shintamainjp |
0:a71ab7426128
|
606
|
fs->flag = 0;
|
| shintamainjp |
0:a71ab7426128
|
607
|
return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
608
|
}
|
| shintamainjp |
0:a71ab7426128
|
609
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
610
|
|
| shintamainjp |
0:a71ab7426128
|
611
|
|
| shintamainjp |
0:a71ab7426128
|
612
|
|
| shintamainjp |
0:a71ab7426128
|
613
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
614
|
/* Write File */
|
| shintamainjp |
0:a71ab7426128
|
615
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
616
|
#if _USE_WRITE
|
| shintamainjp |
0:a71ab7426128
|
617
|
|
| shintamainjp |
0:a71ab7426128
|
618
|
PetitFileSystem::FRESULT PetitFileSystem::write (
|
| shintamainjp |
0:a71ab7426128
|
619
|
const void* buff, /* Pointer to the data to be written */
|
| shintamainjp |
0:a71ab7426128
|
620
|
WORD btw, /* Number of bytes to write (0:Finalize the current write operation) */
|
| shintamainjp |
0:a71ab7426128
|
621
|
WORD* bw /* Pointer to number of bytes written */
|
| shintamainjp |
0:a71ab7426128
|
622
|
) {
|
| shintamainjp |
0:a71ab7426128
|
623
|
CLUST clst;
|
| shintamainjp |
0:a71ab7426128
|
624
|
DWORD sect, remain;
|
| shintamainjp |
0:a71ab7426128
|
625
|
const BYTE *p = (const BYTE *)buff;
|
| shintamainjp |
0:a71ab7426128
|
626
|
WORD wcnt;
|
| shintamainjp |
0:a71ab7426128
|
627
|
FATFS *fs = FatFs;
|
| shintamainjp |
0:a71ab7426128
|
628
|
|
| shintamainjp |
0:a71ab7426128
|
629
|
|
| shintamainjp |
0:a71ab7426128
|
630
|
*bw = 0;
|
| shintamainjp |
0:a71ab7426128
|
631
|
if (!fs) return FR_NOT_ENABLED; /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
632
|
if (!(fs->flag & FA_OPENED)) /* Check if opened */
|
| shintamainjp |
0:a71ab7426128
|
633
|
return FR_NOT_OPENED;
|
| shintamainjp |
0:a71ab7426128
|
634
|
|
| shintamainjp |
0:a71ab7426128
|
635
|
if (!btw) { /* Finalize request */
|
| shintamainjp |
0:a71ab7426128
|
636
|
if ((fs->flag & FA__WIP) && disk_writep(0, 0)) goto fw_abort;
|
| shintamainjp |
0:a71ab7426128
|
637
|
fs->flag &= ~FA__WIP;
|
| shintamainjp |
0:a71ab7426128
|
638
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
639
|
} else { /* Write data request */
|
| shintamainjp |
0:a71ab7426128
|
640
|
if (!(fs->flag & FA__WIP)) /* Round down fptr to the sector boundary */
|
| shintamainjp |
0:a71ab7426128
|
641
|
fs->fptr &= 0xFFFFFE00;
|
| shintamainjp |
0:a71ab7426128
|
642
|
}
|
| shintamainjp |
0:a71ab7426128
|
643
|
remain = fs->fsize - fs->fptr;
|
| shintamainjp |
0:a71ab7426128
|
644
|
if (btw > remain) btw = (WORD)remain; /* Truncate btw by remaining bytes */
|
| shintamainjp |
0:a71ab7426128
|
645
|
|
| shintamainjp |
0:a71ab7426128
|
646
|
while (btw) { /* Repeat until all data transferred */
|
| shintamainjp |
0:a71ab7426128
|
647
|
if (((WORD)fs->fptr % 512) == 0) { /* On the sector boundary? */
|
| shintamainjp |
0:a71ab7426128
|
648
|
if ((fs->fptr / 512 % fs->csize) == 0) { /* On the cluster boundary? */
|
| shintamainjp |
0:a71ab7426128
|
649
|
clst = (fs->fptr == 0) ? /* On the top of the file? */
|
| shintamainjp |
0:a71ab7426128
|
650
|
fs->org_clust : get_fat(fs, fs->curr_clust);
|
| shintamainjp |
0:a71ab7426128
|
651
|
if (clst <= 1) goto fw_abort;
|
| shintamainjp |
0:a71ab7426128
|
652
|
fs->curr_clust = clst; /* Update current cluster */
|
| shintamainjp |
0:a71ab7426128
|
653
|
fs->csect = 0; /* Reset sector offset in the cluster */
|
| shintamainjp |
0:a71ab7426128
|
654
|
}
|
| shintamainjp |
0:a71ab7426128
|
655
|
sect = clust2sect(fs, fs->curr_clust); /* Get current sector */
|
| shintamainjp |
0:a71ab7426128
|
656
|
if (!sect) goto fw_abort;
|
| shintamainjp |
0:a71ab7426128
|
657
|
fs->dsect = sect + fs->csect++;
|
| shintamainjp |
0:a71ab7426128
|
658
|
if (disk_writep(0, fs->dsect)) goto fw_abort; /* Initiate a sector write operation */
|
| shintamainjp |
0:a71ab7426128
|
659
|
fs->flag |= FA__WIP;
|
| shintamainjp |
0:a71ab7426128
|
660
|
}
|
| shintamainjp |
0:a71ab7426128
|
661
|
wcnt = 512 - ((WORD)fs->fptr % 512); /* Number of bytes to write to the sector */
|
| shintamainjp |
0:a71ab7426128
|
662
|
if (wcnt > btw) wcnt = btw;
|
| shintamainjp |
0:a71ab7426128
|
663
|
if (disk_writep(p, wcnt)) goto fw_abort; /* Send data to the sector */
|
| shintamainjp |
0:a71ab7426128
|
664
|
fs->fptr += wcnt;
|
| shintamainjp |
0:a71ab7426128
|
665
|
p += wcnt; /* Update pointers and counters */
|
| shintamainjp |
0:a71ab7426128
|
666
|
btw -= wcnt;
|
| shintamainjp |
0:a71ab7426128
|
667
|
*bw += wcnt;
|
| shintamainjp |
0:a71ab7426128
|
668
|
if (((WORD)fs->fptr % 512) == 0) {
|
| shintamainjp |
0:a71ab7426128
|
669
|
if (disk_writep(0, 0)) goto fw_abort; /* Finalize the currtent secter write operation */
|
| shintamainjp |
0:a71ab7426128
|
670
|
fs->flag &= ~FA__WIP;
|
| shintamainjp |
0:a71ab7426128
|
671
|
}
|
| shintamainjp |
0:a71ab7426128
|
672
|
}
|
| shintamainjp |
0:a71ab7426128
|
673
|
|
| shintamainjp |
0:a71ab7426128
|
674
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
675
|
|
| shintamainjp |
0:a71ab7426128
|
676
|
fw_abort:
|
| shintamainjp |
0:a71ab7426128
|
677
|
fs->flag = 0;
|
| shintamainjp |
0:a71ab7426128
|
678
|
return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
679
|
}
|
| shintamainjp |
0:a71ab7426128
|
680
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
681
|
|
| shintamainjp |
0:a71ab7426128
|
682
|
|
| shintamainjp |
0:a71ab7426128
|
683
|
|
| shintamainjp |
0:a71ab7426128
|
684
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
685
|
/* Seek File R/W Pointer */
|
| shintamainjp |
0:a71ab7426128
|
686
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
687
|
#if _USE_LSEEK
|
| shintamainjp |
0:a71ab7426128
|
688
|
|
| shintamainjp |
0:a71ab7426128
|
689
|
PetitFileSystem::FRESULT PetitFileSystem::lseek (
|
| shintamainjp |
0:a71ab7426128
|
690
|
DWORD ofs /* File pointer from top of file */
|
| shintamainjp |
0:a71ab7426128
|
691
|
) {
|
| shintamainjp |
0:a71ab7426128
|
692
|
CLUST clst;
|
| shintamainjp |
0:a71ab7426128
|
693
|
DWORD bcs, sect, ifptr;
|
| shintamainjp |
0:a71ab7426128
|
694
|
FATFS *fs = FatFs;
|
| shintamainjp |
0:a71ab7426128
|
695
|
|
| shintamainjp |
0:a71ab7426128
|
696
|
|
| shintamainjp |
0:a71ab7426128
|
697
|
if (!fs) return FR_NOT_ENABLED; /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
698
|
if (!(fs->flag & FA_OPENED)) /* Check if opened */
|
| shintamainjp |
0:a71ab7426128
|
699
|
return FR_NOT_OPENED;
|
| shintamainjp |
0:a71ab7426128
|
700
|
|
| shintamainjp |
0:a71ab7426128
|
701
|
if (ofs > fs->fsize) ofs = fs->fsize; /* Clip offset with the file size */
|
| shintamainjp |
0:a71ab7426128
|
702
|
ifptr = fs->fptr;
|
| shintamainjp |
0:a71ab7426128
|
703
|
fs->fptr = 0;
|
| shintamainjp |
0:a71ab7426128
|
704
|
if (ofs > 0) {
|
| shintamainjp |
0:a71ab7426128
|
705
|
bcs = (DWORD)fs->csize * 512; /* Cluster size (byte) */
|
| shintamainjp |
0:a71ab7426128
|
706
|
if (ifptr > 0 &&
|
| shintamainjp |
0:a71ab7426128
|
707
|
(ofs - 1) / bcs >= (ifptr - 1) / bcs) { /* When seek to same or following cluster, */
|
| shintamainjp |
0:a71ab7426128
|
708
|
fs->fptr = (ifptr - 1) & ~(bcs - 1); /* start from the current cluster */
|
| shintamainjp |
0:a71ab7426128
|
709
|
ofs -= fs->fptr;
|
| shintamainjp |
0:a71ab7426128
|
710
|
clst = fs->curr_clust;
|
| shintamainjp |
0:a71ab7426128
|
711
|
} else { /* When seek to back cluster, */
|
| shintamainjp |
0:a71ab7426128
|
712
|
clst = fs->org_clust; /* start from the first cluster */
|
| shintamainjp |
0:a71ab7426128
|
713
|
fs->curr_clust = clst;
|
| shintamainjp |
0:a71ab7426128
|
714
|
}
|
| shintamainjp |
0:a71ab7426128
|
715
|
while (ofs > bcs) { /* Cluster following loop */
|
| shintamainjp |
0:a71ab7426128
|
716
|
clst = get_fat(fs, clst); /* Follow cluster chain */
|
| shintamainjp |
0:a71ab7426128
|
717
|
if (clst <= 1 || clst >= fs->max_clust) goto fe_abort;
|
| shintamainjp |
0:a71ab7426128
|
718
|
fs->curr_clust = clst;
|
| shintamainjp |
0:a71ab7426128
|
719
|
fs->fptr += bcs;
|
| shintamainjp |
0:a71ab7426128
|
720
|
ofs -= bcs;
|
| shintamainjp |
0:a71ab7426128
|
721
|
}
|
| shintamainjp |
0:a71ab7426128
|
722
|
fs->fptr += ofs;
|
| shintamainjp |
0:a71ab7426128
|
723
|
sect = clust2sect(fs, clst); /* Current sector */
|
| shintamainjp |
0:a71ab7426128
|
724
|
if (!sect) goto fe_abort;
|
| shintamainjp |
0:a71ab7426128
|
725
|
fs->csect = (BYTE)(ofs / 512); /* Sector offset in the cluster */
|
| shintamainjp |
0:a71ab7426128
|
726
|
if (ofs % 512)
|
| shintamainjp |
0:a71ab7426128
|
727
|
fs->dsect = sect + fs->csect++;
|
| shintamainjp |
0:a71ab7426128
|
728
|
}
|
| shintamainjp |
0:a71ab7426128
|
729
|
|
| shintamainjp |
0:a71ab7426128
|
730
|
return FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
731
|
|
| shintamainjp |
0:a71ab7426128
|
732
|
fe_abort:
|
| shintamainjp |
0:a71ab7426128
|
733
|
fs->flag = 0;
|
| shintamainjp |
0:a71ab7426128
|
734
|
return FR_DISK_ERR;
|
| shintamainjp |
0:a71ab7426128
|
735
|
}
|
| shintamainjp |
0:a71ab7426128
|
736
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
737
|
|
| shintamainjp |
0:a71ab7426128
|
738
|
|
| shintamainjp |
0:a71ab7426128
|
739
|
|
| shintamainjp |
0:a71ab7426128
|
740
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
741
|
/* Create a Directroy Object */
|
| shintamainjp |
0:a71ab7426128
|
742
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
743
|
#if _USE_DIR
|
| shintamainjp |
0:a71ab7426128
|
744
|
|
| shintamainjp |
0:a71ab7426128
|
745
|
PetitFileSystem::FRESULT PetitFileSystem::opendir (
|
| shintamainjp |
0:a71ab7426128
|
746
|
const char *path /* Pointer to the directory path */
|
| shintamainjp |
0:a71ab7426128
|
747
|
) {
|
| shintamainjp |
0:a71ab7426128
|
748
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
749
|
BYTE sp[12], dir[32];
|
| shintamainjp |
0:a71ab7426128
|
750
|
FATDIR *dj = &DirectoryObject;
|
| shintamainjp |
0:a71ab7426128
|
751
|
|
| shintamainjp |
0:a71ab7426128
|
752
|
if (!FatFs) { /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
753
|
res = FR_NOT_ENABLED;
|
| shintamainjp |
0:a71ab7426128
|
754
|
} else {
|
| shintamainjp |
0:a71ab7426128
|
755
|
FatFs->buf = dir;
|
| shintamainjp |
0:a71ab7426128
|
756
|
dj->fn = sp;
|
| shintamainjp |
0:a71ab7426128
|
757
|
res = follow_path(FatFs, dj, path); /* Follow the path to the directory */
|
| shintamainjp |
0:a71ab7426128
|
758
|
if (res == FR_OK) { /* Follow completed */
|
| shintamainjp |
0:a71ab7426128
|
759
|
if (dir[0]) { /* It is not the root dir */
|
| shintamainjp |
0:a71ab7426128
|
760
|
if (dir[DIR_Attr] & AM_DIR) { /* The object is a directory */
|
| shintamainjp |
0:a71ab7426128
|
761
|
dj->sclust =
|
| shintamainjp |
0:a71ab7426128
|
762
|
#if _FS_FAT32
|
| shintamainjp |
0:a71ab7426128
|
763
|
((DWORD)LD_WORD(dir+DIR_FstClusHI) << 16) |
|
| shintamainjp |
0:a71ab7426128
|
764
|
#endif
|
| shintamainjp |
0:a71ab7426128
|
765
|
LD_WORD(dir+DIR_FstClusLO);
|
| shintamainjp |
0:a71ab7426128
|
766
|
} else { /* The object is not a directory */
|
| shintamainjp |
0:a71ab7426128
|
767
|
res = FR_NO_PATH;
|
| shintamainjp |
0:a71ab7426128
|
768
|
}
|
| shintamainjp |
0:a71ab7426128
|
769
|
}
|
| shintamainjp |
0:a71ab7426128
|
770
|
if (res == FR_OK)
|
| shintamainjp |
0:a71ab7426128
|
771
|
res = dir_rewind(FatFs, dj); /* Rewind dir */
|
| shintamainjp |
0:a71ab7426128
|
772
|
}
|
| shintamainjp |
0:a71ab7426128
|
773
|
if (res == FR_NO_FILE) res = FR_NO_PATH;
|
| shintamainjp |
0:a71ab7426128
|
774
|
}
|
| shintamainjp |
0:a71ab7426128
|
775
|
|
| shintamainjp |
0:a71ab7426128
|
776
|
return res;
|
| shintamainjp |
0:a71ab7426128
|
777
|
}
|
| shintamainjp |
0:a71ab7426128
|
778
|
|
| shintamainjp |
0:a71ab7426128
|
779
|
|
| shintamainjp |
0:a71ab7426128
|
780
|
|
| shintamainjp |
0:a71ab7426128
|
781
|
|
| shintamainjp |
0:a71ab7426128
|
782
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
783
|
/* Read Directory Entry in Sequense */
|
| shintamainjp |
0:a71ab7426128
|
784
|
/*-----------------------------------------------------------------------*/
|
| shintamainjp |
0:a71ab7426128
|
785
|
|
| shintamainjp |
0:a71ab7426128
|
786
|
PetitFileSystem::FRESULT PetitFileSystem::readdir (
|
| shintamainjp |
0:a71ab7426128
|
787
|
FILINFO *fno /* Pointer to file information to return */
|
| shintamainjp |
0:a71ab7426128
|
788
|
) {
|
| shintamainjp |
0:a71ab7426128
|
789
|
FRESULT res;
|
| shintamainjp |
0:a71ab7426128
|
790
|
BYTE sp[12], dir[32];
|
| shintamainjp |
0:a71ab7426128
|
791
|
FATDIR *dj = &DirectoryObject;
|
| shintamainjp |
0:a71ab7426128
|
792
|
|
| shintamainjp |
0:a71ab7426128
|
793
|
if (!FatFs) { /* Check file system */
|
| shintamainjp |
0:a71ab7426128
|
794
|
res = FR_NOT_ENABLED;
|
| shintamainjp |
0:a71ab7426128
|
795
|
} else {
|
| shintamainjp |
0:a71ab7426128
|
796
|
FatFs->buf = dir;
|
| shintamainjp |
0:a71ab7426128
|
797
|
dj->fn = sp;
|
| shintamainjp |
0:a71ab7426128
|
798
|
if (!fno) {
|
| shintamainjp |
0:a71ab7426128
|
799
|
res = dir_rewind(FatFs, dj);
|
| shintamainjp |
0:a71ab7426128
|
800
|
} else {
|
| shintamainjp |
0:a71ab7426128
|
801
|
res = dir_read(FatFs, dj);
|
| shintamainjp |
0:a71ab7426128
|
802
|
if (res == FR_NO_FILE) {
|
| shintamainjp |
0:a71ab7426128
|
803
|
dj->sect = 0;
|
| shintamainjp |
0:a71ab7426128
|
804
|
res = FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
805
|
}
|
| shintamainjp |
0:a71ab7426128
|
806
|
if (res == FR_OK) { /* A valid entry is found */
|
| shintamainjp |
0:a71ab7426128
|
807
|
get_fileinfo(FatFs, dj, fno); /* Get the object information */
|
| shintamainjp |
0:a71ab7426128
|
808
|
res = dir_next(FatFs, dj); /* Increment index for next */
|
| shintamainjp |
0:a71ab7426128
|
809
|
if (res == FR_NO_FILE) {
|
| shintamainjp |
0:a71ab7426128
|
810
|
dj->sect = 0;
|
| shintamainjp |
0:a71ab7426128
|
811
|
res = FR_OK;
|
| shintamainjp |
0:a71ab7426128
|
812
|
}
|
| shintamainjp |
0:a71ab7426128
|
813
|
}
|
| shintamainjp |
0:a71ab7426128
|
814
|
}
|
| shintamainjp |
0:a71ab7426128
|
815
|
}
|
| shintamainjp |
0:a71ab7426128
|
816
|
|
| shintamainjp |
0:a71ab7426128
|
817
|
return res;
|
| shintamainjp |
0:a71ab7426128
|
818
|
}
|
| shintamainjp |
0:a71ab7426128
|
819
|
|
| shintamainjp |
0:a71ab7426128
|
820
|
#endif /* _USE_DIR */
|
| shintamainjp |
0:a71ab7426128
|
821
|
|