1 | /*------------------------------------------------------------------------/
|
---|
2 | / The Main Development Bench of FatFs Module
|
---|
3 | /-------------------------------------------------------------------------/
|
---|
4 | /
|
---|
5 | / Copyright (C) 2014, ChaN, all right reserved.
|
---|
6 | /
|
---|
7 | / * This software is a free software and there is NO WARRANTY.
|
---|
8 | / * No restriction on use. You can use, modify and redistribute it for
|
---|
9 | / personal, non-profit or commercial products UNDER YOUR RESPONSIBILITY.
|
---|
10 | / * Redistributions of source code must retain the above copyright notice.
|
---|
11 | /
|
---|
12 | /-------------------------------------------------------------------------*/
|
---|
13 |
|
---|
14 |
|
---|
15 | #include <string.h>
|
---|
16 | #include <stdarg.h>
|
---|
17 | #include <stdio.h>
|
---|
18 | #include <locale.h>
|
---|
19 | #include "diskio.h"
|
---|
20 | #include "ff.h"
|
---|
21 | #include "zlib.h"
|
---|
22 |
|
---|
23 | int assign_drives(void);
|
---|
24 |
|
---|
25 |
|
---|
26 | #ifdef UNICODE
|
---|
27 | #if !_LFN_UNICODE
|
---|
28 | #error Configuration mismatch. _LFN_UNICODE must be 1.
|
---|
29 | #endif
|
---|
30 | #else
|
---|
31 | #if _LFN_UNICODE
|
---|
32 | #error Configuration mismatch. _LFN_UNICODE must be 0.
|
---|
33 | #endif
|
---|
34 | #endif
|
---|
35 |
|
---|
36 |
|
---|
37 |
|
---|
38 | #if _MULTI_PARTITION /* Volume - partition resolution table (Example) */
|
---|
39 | PARTITION VolToPart[] = {
|
---|
40 | { 0, 0 }, /* "0:" <== Disk# 0, auto detect */
|
---|
41 | { 1, 0 }, /* "1:" <== Disk# 1, auto detect */
|
---|
42 | { 2, 0 }, /* "2:" <== Disk# 2, auto detect */
|
---|
43 | { 3, 1 }, /* "3:" <== Disk# 3, 1st partition */
|
---|
44 | { 3, 2 }, /* "4:" <== Disk# 3, 2nd partition */
|
---|
45 | { 3, 3 }, /* "5:" <== Disk# 3, 3rd partition */
|
---|
46 | { 4, 0 }, /* "6:" <== Disk# 4, auto detect */
|
---|
47 | { 5, 0 } /* "7:" <== Disk# 5, auto detect */
|
---|
48 | };
|
---|
49 | #endif
|
---|
50 |
|
---|
51 |
|
---|
52 | /*---------------------------------------------------------*/
|
---|
53 | /* Work Area */
|
---|
54 | /*---------------------------------------------------------*/
|
---|
55 |
|
---|
56 |
|
---|
57 | LONGLONG AccSize; /* Work register for scan_files() */
|
---|
58 | WORD AccFiles, AccDirs;
|
---|
59 | FILINFO Finfo;
|
---|
60 | #if _USE_LFN
|
---|
61 | TCHAR LFName[256];
|
---|
62 | #endif
|
---|
63 |
|
---|
64 | TCHAR Line[300]; /* Console input/output buffer */
|
---|
65 | HANDLE hCon, hKey;
|
---|
66 |
|
---|
67 | FATFS FatFs[_VOLUMES]; /* File system object for logical drive */
|
---|
68 | BYTE InBuff[262144]; /* Working buffer */
|
---|
69 | BYTE OutBuff[262144]; /* Working buffer */
|
---|
70 |
|
---|
71 | #if _USE_FASTSEEK
|
---|
72 | DWORD SeekTbl[16]; /* Link map table for fast seek feature */
|
---|
73 | #endif
|
---|
74 |
|
---|
75 |
|
---|
76 | /*---------------------------------------------------------*/
|
---|
77 | /* User Provided RTC Function for FatFs module */
|
---|
78 | /*---------------------------------------------------------*/
|
---|
79 | /* This is a real time clock service to be called from */
|
---|
80 | /* FatFs module. Any valid time must be returned even if */
|
---|
81 | /* the system does not support an RTC. */
|
---|
82 | /* This function is not required in read-only cfg. */
|
---|
83 |
|
---|
84 | DWORD get_fattime(void)
|
---|
85 | {
|
---|
86 | SYSTEMTIME tm;
|
---|
87 |
|
---|
88 | /* Get local time */
|
---|
89 | GetLocalTime(&tm);
|
---|
90 |
|
---|
91 | /* Pack date and time into a DWORD variable */
|
---|
92 | return ((DWORD)(tm.wYear - 1980) << 25)
|
---|
93 | | ((DWORD)tm.wMonth << 21)
|
---|
94 | | ((DWORD)tm.wDay << 16)
|
---|
95 | | (WORD)(tm.wHour << 11)
|
---|
96 | | (WORD)(tm.wMinute << 5)
|
---|
97 | | (WORD)(tm.wSecond >> 1);
|
---|
98 | }
|
---|
99 |
|
---|
100 |
|
---|
101 |
|
---|
102 | /*--------------------------------------------------------------------------*/
|
---|
103 | /* Monitor */
|
---|
104 |
|
---|
105 | /*----------------------------------------------*/
|
---|
106 | /* Get a value of the string */
|
---|
107 | /*----------------------------------------------*/
|
---|
108 | /* "123 -5 0x3ff 0b1111 0377 w "
|
---|
109 | ^ 1st call returns 123 and next ptr
|
---|
110 | ^ 2nd call returns -5 and next ptr
|
---|
111 | ^ 3rd call returns 1023 and next ptr
|
---|
112 | ^ 4th call returns 15 and next ptr
|
---|
113 | ^ 5th call returns 255 and next ptr
|
---|
114 | ^ 6th call fails and returns 0
|
---|
115 | */
|
---|
116 |
|
---|
117 | int xatoi( /* 0:Failed, 1:Successful */
|
---|
118 | TCHAR **str, /* Pointer to pointer to the string */
|
---|
119 | long *res /* Pointer to a valiable to store the value */
|
---|
120 | )
|
---|
121 | {
|
---|
122 | unsigned long val;
|
---|
123 | unsigned char r, s = 0;
|
---|
124 | TCHAR c;
|
---|
125 |
|
---|
126 |
|
---|
127 | *res = 0;
|
---|
128 | while((c = **str) == ' ') (*str)++; /* Skip leading spaces */
|
---|
129 |
|
---|
130 | if(c == '-') { /* negative? */
|
---|
131 | s = 1;
|
---|
132 | c = *(++(*str));
|
---|
133 | }
|
---|
134 |
|
---|
135 | if(c == '0') {
|
---|
136 | c = *(++(*str));
|
---|
137 | switch(c) {
|
---|
138 | case 'x': /* hexdecimal */
|
---|
139 | r = 16; c = *(++(*str));
|
---|
140 | break;
|
---|
141 | case 'b': /* binary */
|
---|
142 | r = 2; c = *(++(*str));
|
---|
143 | break;
|
---|
144 | default:
|
---|
145 | if(c <= ' ') return 1; /* single zero */
|
---|
146 | if(c < '0' || c > '9') return 0; /* invalid char */
|
---|
147 | r = 8; /* octal */
|
---|
148 | }
|
---|
149 | }
|
---|
150 | else {
|
---|
151 | if(c < '0' || c > '9') return 0; /* EOL or invalid char */
|
---|
152 | r = 10; /* decimal */
|
---|
153 | }
|
---|
154 |
|
---|
155 | val = 0;
|
---|
156 | while(c > ' ') {
|
---|
157 | if(c >= 'a') c -= 0x20;
|
---|
158 | c -= '0';
|
---|
159 | if(c >= 17) {
|
---|
160 | c -= 7;
|
---|
161 | if(c <= 9) return 0; /* invalid char */
|
---|
162 | }
|
---|
163 | if(c >= r) return 0; /* invalid char for current radix */
|
---|
164 | val = val * r + c;
|
---|
165 | c = *(++(*str));
|
---|
166 | }
|
---|
167 | if(s) val = 0 - val; /* apply sign if needed */
|
---|
168 |
|
---|
169 | *res = val;
|
---|
170 | return 1;
|
---|
171 | }
|
---|
172 |
|
---|
173 |
|
---|
174 | /*----------------------------------------------*/
|
---|
175 | /* Dump a block of byte array */
|
---|
176 |
|
---|
177 | void put_dump(
|
---|
178 | const unsigned char* buff, /* Pointer to the byte array to be dumped */
|
---|
179 | unsigned long addr, /* Heading address value */
|
---|
180 | int cnt /* Number of bytes to be dumped */
|
---|
181 | )
|
---|
182 | {
|
---|
183 | int i;
|
---|
184 |
|
---|
185 |
|
---|
186 | _tprintf(_T("%08lX:"), addr);
|
---|
187 |
|
---|
188 | for(i = 0; i < cnt; i++)
|
---|
189 | _tprintf(_T(" %02X"), buff[i]);
|
---|
190 |
|
---|
191 | _puttchar(' ');
|
---|
192 | for(i = 0; i < cnt; i++)
|
---|
193 | _puttchar((TCHAR)((buff[i] >= ' ' && buff[i] <= '~') ? buff[i] : '.'));
|
---|
194 |
|
---|
195 | _puttchar('\n');
|
---|
196 | }
|
---|
197 |
|
---|
198 | void put_rc(const TCHAR *func, FRESULT rc)
|
---|
199 | {
|
---|
200 | const TCHAR *p =
|
---|
201 | _T("OK\0DISK_ERR\0INT_ERR\0NOT_READY\0NO_FILE\0NO_PATH\0INVALID_NAME\0")
|
---|
202 | _T("DENIED\0EXIST\0INVALID_OBJECT\0WRITE_PROTECTED\0INVALID_DRIVE\0")
|
---|
203 | _T("NOT_ENABLED\0NO_FILE_SYSTEM\0MKFS_ABORTED\0TIMEOUT\0LOCKED\0")
|
---|
204 | _T("NOT_ENOUGH_CORE\0TOO_MANY_OPEN_FILES\0");
|
---|
205 | FRESULT i;
|
---|
206 |
|
---|
207 | for(i = 0; i != rc && *p; i++) {
|
---|
208 | while(*p++);
|
---|
209 | }
|
---|
210 | _tprintf(_T("%s() =>%u FR_%s\n"), func, (UINT)rc, p);
|
---|
211 | }
|
---|
212 |
|
---|
213 | void xcopy(TCHAR *path)
|
---|
214 | {
|
---|
215 | TCHAR subpath[_MAX_PATH];
|
---|
216 | TCHAR temp[_MAX_PATH];
|
---|
217 | WIN32_FIND_DATA lp;
|
---|
218 | FRESULT res;
|
---|
219 | FIL file[2]; /* File objects */
|
---|
220 | DWORD len, wlen;
|
---|
221 | UINT s2, cnt;
|
---|
222 | HANDLE h;
|
---|
223 | FILINFO fi;
|
---|
224 | SYSTEMTIME st;
|
---|
225 | z_stream stream;
|
---|
226 |
|
---|
227 | _tcscpy_s(temp, sizeof(temp), path);
|
---|
228 | h = FindFirstFile(temp, &lp);
|
---|
229 | if(h == INVALID_HANDLE_VALUE)
|
---|
230 | return;
|
---|
231 |
|
---|
232 | temp[strlen(temp) - 1] = '\0';
|
---|
233 | do
|
---|
234 | {
|
---|
235 | if((lp.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
|
---|
236 | && strcmp(lp.cFileName, "..") != 0 && strcmp(lp.cFileName, ".") != 0)
|
---|
237 | {
|
---|
238 | if((res = f_mkdir(lp.cFileName)) != RES_OK)
|
---|
239 | put_rc("f_mkdir", res);
|
---|
240 |
|
---|
241 | FileTimeToSystemTime(&lp.ftLastWriteTime, &st);
|
---|
242 | fi.fdate = (WORD)(((st.wYear - 1980) * 512U) | st.wMonth * 32U | st.wDay);
|
---|
243 | fi.ftime = (WORD)(st.wHour * 2048U | st.wMinute * 32U | st.wSecond / 2U);
|
---|
244 | if((res = f_utime(lp.cFileName, &fi)) != RES_OK)
|
---|
245 | put_rc("f_utime", res);
|
---|
246 |
|
---|
247 | _stprintf_s(subpath, sizeof(subpath), _T("%s%s\\*"), temp, lp.cFileName);
|
---|
248 | if((res = f_chdir(lp.cFileName)) != RES_OK)
|
---|
249 | put_rc("f_chdir", res);
|
---|
250 | xcopy(subpath);
|
---|
251 | if((res = f_chdir(_T(".."))) != RES_OK)
|
---|
252 | put_rc("f_chdir", res);
|
---|
253 | }
|
---|
254 | if((lp.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) != FILE_ATTRIBUTE_DIRECTORY)
|
---|
255 | {
|
---|
256 | HANDLE fh;
|
---|
257 |
|
---|
258 | res = -1;
|
---|
259 | _stprintf_s(subpath, sizeof(subpath), "%s%s", temp, lp.cFileName);
|
---|
260 | fh = CreateFile(subpath, GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0);
|
---|
261 | if(fh != INVALID_HANDLE_VALUE) {
|
---|
262 | if(ReadFile(fh, InBuff, sizeof InBuff, &len, 0))
|
---|
263 | res = FR_OK;
|
---|
264 | CloseHandle(fh);
|
---|
265 | }
|
---|
266 |
|
---|
267 | while (res == FR_OK) {
|
---|
268 | /* 圧縮 */
|
---|
269 | memset(&stream, 0, sizeof(stream));
|
---|
270 | /* allocate deflate memory, set up for gzip compression */
|
---|
271 | stream.zalloc = Z_NULL;
|
---|
272 | stream.zfree = Z_NULL;
|
---|
273 | stream.opaque = Z_NULL;
|
---|
274 | stream.next_in = InBuff;
|
---|
275 | stream.avail_in = len;
|
---|
276 | stream.next_out = OutBuff;
|
---|
277 | stream.avail_out = sizeof(OutBuff);
|
---|
278 | res = deflateInit2(&stream, Z_DEFAULT_COMPRESSION, Z_DEFLATED,
|
---|
279 | MAX_WBITS + 16, MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY);
|
---|
280 | if (res != Z_OK) {
|
---|
281 | _tprintf(_T("out of memory %d"), res);
|
---|
282 | break;
|
---|
283 | }
|
---|
284 |
|
---|
285 | res = deflate(&stream, Z_FULL_FLUSH);
|
---|
286 | if (res == Z_STREAM_ERROR) {
|
---|
287 | _tprintf(_T("internal error: deflate stream corrupt %d"), res);
|
---|
288 | break;
|
---|
289 | }
|
---|
290 |
|
---|
291 | deflateEnd(&stream);
|
---|
292 |
|
---|
293 | len = stream.total_out;
|
---|
294 | break;
|
---|
295 | }
|
---|
296 |
|
---|
297 | if(res == FR_OK){
|
---|
298 | if((res = f_open(&file[0], lp.cFileName, FA_CREATE_ALWAYS | FA_WRITE)) != RES_OK)
|
---|
299 | put_rc("f_open", res);
|
---|
300 | wlen = 0;
|
---|
301 | while(len) {
|
---|
302 | if((UINT)len >= sizeof OutBuff) {
|
---|
303 | cnt = sizeof OutBuff;
|
---|
304 | len -= sizeof OutBuff;
|
---|
305 | }
|
---|
306 | else {
|
---|
307 | cnt = len;
|
---|
308 | len = 0;
|
---|
309 | }
|
---|
310 | res = f_write(&file[0], OutBuff, cnt, &s2);
|
---|
311 | if(res != FR_OK) {
|
---|
312 | put_rc("f_write", res);
|
---|
313 | break;
|
---|
314 | }
|
---|
315 | wlen += s2;
|
---|
316 | if(cnt != s2)
|
---|
317 | break;
|
---|
318 | }
|
---|
319 | _tprintf(_T("%lu bytes written.\n"), wlen);
|
---|
320 | if((res = f_close(&file[0])) != RES_OK)
|
---|
321 | put_rc("f_close", res);
|
---|
322 |
|
---|
323 | if((res = f_chmod(lp.cFileName, AM_RDO | AM_ARC, AM_RDO | AM_ARC | AM_SYS | AM_HID)) != RES_OK)
|
---|
324 | put_rc("f_chmod", res);
|
---|
325 |
|
---|
326 | FileTimeToSystemTime(&lp.ftLastWriteTime, &st);
|
---|
327 | fi.fdate = (WORD)(((st.wYear - 1980) * 512U) | st.wMonth * 32U | st.wDay);
|
---|
328 | fi.ftime = (WORD)(st.wHour * 2048U | st.wMinute * 32U | st.wSecond / 2U);
|
---|
329 | if((res = f_utime(lp.cFileName, &fi)) != RES_OK)
|
---|
330 | put_rc("f_utime", res);
|
---|
331 | }
|
---|
332 | }
|
---|
333 | } while(FindNextFile(h, &lp));
|
---|
334 |
|
---|
335 | FindClose(h);
|
---|
336 | }
|
---|
337 |
|
---|
338 | FRESULT scan_files (
|
---|
339 | char* path, /* Start node to be scanned (also used as work area) */
|
---|
340 | int size
|
---|
341 | )
|
---|
342 | {
|
---|
343 | FRESULT res;
|
---|
344 | FILINFO fno;
|
---|
345 | DIR dir;
|
---|
346 | int i;
|
---|
347 | char *fn; /* This function assumes non-Unicode configuration */
|
---|
348 | #if _USE_LFN
|
---|
349 | static char lfn[_MAX_LFN + 1]; /* Buffer to store the LFN */
|
---|
350 | fno.lfname = lfn;
|
---|
351 | fno.lfsize = sizeof lfn;
|
---|
352 | #endif
|
---|
353 |
|
---|
354 | res = f_opendir(&dir, path); /* Open the directory */
|
---|
355 | if (res == FR_OK) {
|
---|
356 | i = strlen(path);
|
---|
357 | for (;;) {
|
---|
358 | res = f_readdir(&dir, &fno); /* Read a directory item */
|
---|
359 | if (res != FR_OK || fno.fname[0] == 0) break; /* Break on error or end of dir */
|
---|
360 | if (fno.fname[0] == '.') continue; /* Ignore dot entry */
|
---|
361 | #if _USE_LFN
|
---|
362 | fn = *fno.lfname ? fno.lfname : fno.fname;
|
---|
363 | #else
|
---|
364 | fn = fno.fname;
|
---|
365 | #endif
|
---|
366 | if (fno.fattrib & AM_DIR) { /* It is a directory */
|
---|
367 | sprintf_s(&path[i], size -i, "/%s", fn);
|
---|
368 | res = scan_files(path, size);
|
---|
369 | path[i] = 0;
|
---|
370 | if (res != FR_OK) break;
|
---|
371 | } else { /* It is a file. */
|
---|
372 | printf("%s/%s\n", path, fn);
|
---|
373 | }
|
---|
374 | }
|
---|
375 | f_closedir(&dir);
|
---|
376 | }
|
---|
377 |
|
---|
378 | return res;
|
---|
379 | }
|
---|
380 |
|
---|
381 | int _tmain(int argc, TCHAR *argv[])
|
---|
382 | {
|
---|
383 | TCHAR pool[50];
|
---|
384 | FRESULT res;
|
---|
385 | BYTE pdrv = 0;
|
---|
386 | WORD w;
|
---|
387 | DWORD dw;
|
---|
388 | char path[256] = ".";
|
---|
389 | FATFS *fs;
|
---|
390 | DWORD fre_clust, fre_sect, tot_sect;
|
---|
391 |
|
---|
392 | _stprintf_s(pool, sizeof(pool), _T(".%u"), _CODE_PAGE);
|
---|
393 | _tsetlocale(LC_CTYPE, pool);
|
---|
394 |
|
---|
395 | _tprintf(_T("FatFs module test monitor (%s, CP:%u/%s)\n\n"),
|
---|
396 | _USE_LFN ? _T("LFN") : _T("SFN"),
|
---|
397 | _CODE_PAGE,
|
---|
398 | _LFN_UNICODE ? _T("Unicode") : _T("ANSI"));
|
---|
399 |
|
---|
400 | _stprintf_s(pool, sizeof(pool), _T("FatFs debug console (%s, CP:%u/%s)"),
|
---|
401 | _USE_LFN ? _T("LFN") : _T("SFN"),
|
---|
402 | _CODE_PAGE,
|
---|
403 | _LFN_UNICODE ? _T("Unicode") : _T("ANSI"));
|
---|
404 | SetConsoleTitle(pool);
|
---|
405 |
|
---|
406 | assign_drives(); /* Find physical drives on the PC */
|
---|
407 |
|
---|
408 | #if _MULTI_PARTITION
|
---|
409 | _tprintf(_T("\nMultiple partition feature is enabled. Each logical drive is tied to the patition as follows:\n"));
|
---|
410 | for(cnt = 0; cnt < sizeof VolToPart / sizeof(PARTITION); cnt++) {
|
---|
411 | const TCHAR *pn[] = { _T("auto detect"), _T("1st partition"), _T("2nd partition"), _T("3rd partition"), _T("4th partition") };
|
---|
412 |
|
---|
413 | _tprintf(_T("\"%u:\" <== Disk# %u, %s\n"), cnt, VolToPart[cnt].pd, pn[VolToPart[cnt].pt]);
|
---|
414 | }
|
---|
415 | _tprintf(_T("\n"));
|
---|
416 | #else
|
---|
417 | _tprintf(_T("\nMultiple partition feature is disabled.\nEach logical drive is tied to the same physical drive number.\n\n"));
|
---|
418 | #endif
|
---|
419 |
|
---|
420 | #if _USE_LFN
|
---|
421 | Finfo.lfname = LFName;
|
---|
422 | Finfo.lfsize = sizeof LFName;
|
---|
423 | #endif
|
---|
424 |
|
---|
425 | res = disk_initialize(pdrv);
|
---|
426 | _tprintf(_T("rc=%d\n"), res);
|
---|
427 | if(disk_ioctl(pdrv, GET_SECTOR_SIZE, &w) == RES_OK)
|
---|
428 | _tprintf(_T("Sector size = %u\n"), w);
|
---|
429 | if(disk_ioctl(pdrv, GET_SECTOR_COUNT, &dw) == RES_OK)
|
---|
430 | _tprintf(_T("Number of sectors = %u\n"), dw);
|
---|
431 |
|
---|
432 | if((res = f_mount(&FatFs[0], _T(""), 0)) != RES_OK)
|
---|
433 | put_rc("f_mount", res);
|
---|
434 |
|
---|
435 | if((res = f_mkfs(_T(""), 1, 0)) != RES_OK)
|
---|
436 | put_rc("f_mkfs", res);
|
---|
437 |
|
---|
438 | xcopy(_T("httpd-fs\\*"));
|
---|
439 |
|
---|
440 | if(disk_ioctl(0, 201, _T("httpd-fs.bin")) == RES_OK)
|
---|
441 | _tprintf(_T("Ok\n"));
|
---|
442 |
|
---|
443 | if((res = scan_files(path, sizeof(path))) != RES_OK)
|
---|
444 | put_rc("scan_files", res);
|
---|
445 |
|
---|
446 | /* Get volume information and free clusters of drive 1 */
|
---|
447 | if(f_getfree(_T("0:"), &fre_clust, &fs) == RES_OK){
|
---|
448 | /* Get total sectors and free sectors */
|
---|
449 | tot_sect = (fs->n_fatent - 2) * fs->csize;
|
---|
450 | fre_sect = fre_clust * fs->csize;
|
---|
451 |
|
---|
452 | /* Print the free space (assuming 512 bytes/sector) */
|
---|
453 | _tprintf(_T("%10lu KB total drive space.\n%10lu KB available.\n"),
|
---|
454 | tot_sect / 2, fre_sect / 2);;
|
---|
455 | }
|
---|
456 | }
|
---|