microSD Card control function for DISCO-F769NI based on BD_SD_DISCO_F746NG library by Roy Krikke
Dependencies: BD_SD_DISCO_F769NI BSP_DISCO_F769NI
Fork of DISCO-F746NG_BLOCK_DEVICE_WITH_FAT_FILESYSTEM_ON_SDCARD by
Please refer following my Notebook page.
/users/kenjiArai/notebook/sd-card-control-new/#
FatFs_Mon/mon.cpp@8:12621f1fcbbe, 2021-01-14 (annotated)
- Committer:
- kenjiArai
- Date:
- Thu Jan 14 00:40:36 2021 +0000
- Revision:
- 8:12621f1fcbbe
- Parent:
- 7:e7767b779c8c
run on mbed-os6.6.0
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
kenjiArai | 4:0f7797c2d3fe | 1 | /* |
kenjiArai | 4:0f7797c2d3fe | 2 | * mbed Application program for the mbed |
kenjiArai | 4:0f7797c2d3fe | 3 | * FatFs Check program / monitor part |
kenjiArai | 4:0f7797c2d3fe | 4 | * |
kenjiArai | 8:12621f1fcbbe | 5 | * Copyright (c) 2015,'18,'19,'20,'21 Kenji Arai / JH1PJL |
kenjiArai | 7:e7767b779c8c | 6 | * http://www7b.biglobe.ne.jp/~kenjia/ |
kenjiArai | 4:0f7797c2d3fe | 7 | * https://os.mbed.com/users/kenjiArai/ |
kenjiArai | 4:0f7797c2d3fe | 8 | * Created: May 5th, 2015 |
kenjiArai | 4:0f7797c2d3fe | 9 | * Revised: June 14th, 2015 |
kenjiArai | 4:0f7797c2d3fe | 10 | * Revised: April 7th, 2018 |
kenjiArai | 8:12621f1fcbbe | 11 | * Revised: August 8th, 2020 |
kenjiArai | 8:12621f1fcbbe | 12 | * Revised: January 14th, 2021 |
kenjiArai | 4:0f7797c2d3fe | 13 | */ |
kenjiArai | 4:0f7797c2d3fe | 14 | |
kenjiArai | 4:0f7797c2d3fe | 15 | /* |
kenjiArai | 4:0f7797c2d3fe | 16 | *---------------- REFERENCE --------------------------------------------------- |
kenjiArai | 4:0f7797c2d3fe | 17 | * Original Source Information |
kenjiArai | 4:0f7797c2d3fe | 18 | * FatFs sample program |
kenjiArai | 4:0f7797c2d3fe | 19 | * ChaN FatFs http://elm-chan.org/ |
kenjiArai | 4:0f7797c2d3fe | 20 | * http://elm-chan.org/fsw/ff/00index_e.html |
kenjiArai | 4:0f7797c2d3fe | 21 | */ |
kenjiArai | 4:0f7797c2d3fe | 22 | /*----------------------------------------------------------------------*/ |
kenjiArai | 4:0f7797c2d3fe | 23 | /* FAT file system sample project for FatFs (C)ChaN, 2016 */ |
kenjiArai | 4:0f7797c2d3fe | 24 | /*----------------------------------------------------------------------*/ |
kenjiArai | 4:0f7797c2d3fe | 25 | |
kenjiArai | 4:0f7797c2d3fe | 26 | // Include -------------------------------------------------------------------- |
kenjiArai | 4:0f7797c2d3fe | 27 | #include "mbed.h" |
kenjiArai | 4:0f7797c2d3fe | 28 | #include "FATFileSystem.h" |
kenjiArai | 4:0f7797c2d3fe | 29 | #include "ff.h" |
kenjiArai | 4:0f7797c2d3fe | 30 | #include "ffconf.h" |
kenjiArai | 4:0f7797c2d3fe | 31 | #include "diskio.h" |
kenjiArai | 4:0f7797c2d3fe | 32 | #include "mon.h" |
kenjiArai | 8:12621f1fcbbe | 33 | #include "uart_as_stdio.h" |
kenjiArai | 4:0f7797c2d3fe | 34 | |
kenjiArai | 4:0f7797c2d3fe | 35 | // Definition ----------------------------------------------------------------- |
kenjiArai | 4:0f7797c2d3fe | 36 | #define DO_DEBUG 0 |
kenjiArai | 4:0f7797c2d3fe | 37 | |
kenjiArai | 4:0f7797c2d3fe | 38 | #if DO_DEBUG |
kenjiArai | 8:12621f1fcbbe | 39 | #define DEBUG_LINE printf("line:%d\r\n", __LINE__); |
kenjiArai | 4:0f7797c2d3fe | 40 | #else |
kenjiArai | 4:0f7797c2d3fe | 41 | #define DEBUG_LINE {;} |
kenjiArai | 4:0f7797c2d3fe | 42 | #endif |
kenjiArai | 4:0f7797c2d3fe | 43 | |
kenjiArai | 4:0f7797c2d3fe | 44 | // Com |
kenjiArai | 4:0f7797c2d3fe | 45 | #if 1 |
kenjiArai | 8:12621f1fcbbe | 46 | #define GETC(x) getc(x) |
kenjiArai | 8:12621f1fcbbe | 47 | #define PUTC(x) putc(x) |
kenjiArai | 8:12621f1fcbbe | 48 | #define PUTS(x) puts(x) |
kenjiArai | 8:12621f1fcbbe | 49 | #define PRINTF(...) printf(__VA_ARGS__) |
kenjiArai | 8:12621f1fcbbe | 50 | #define READABLE(x) readable(x) |
kenjiArai | 4:0f7797c2d3fe | 51 | #else |
kenjiArai | 4:0f7797c2d3fe | 52 | #define GETC(x) {;} |
kenjiArai | 4:0f7797c2d3fe | 53 | #define PUTC(x) {;} |
kenjiArai | 4:0f7797c2d3fe | 54 | #define PRINTF(...) {;} |
kenjiArai | 4:0f7797c2d3fe | 55 | #define READABLE(x) {;} |
kenjiArai | 4:0f7797c2d3fe | 56 | #endif |
kenjiArai | 4:0f7797c2d3fe | 57 | |
kenjiArai | 4:0f7797c2d3fe | 58 | #define UTC_JST_OFFSET (32400) // +9 hours |
kenjiArai | 4:0f7797c2d3fe | 59 | |
kenjiArai | 4:0f7797c2d3fe | 60 | // from ffconf.h |
kenjiArai | 4:0f7797c2d3fe | 61 | #define _VOLUMES 1 |
kenjiArai | 4:0f7797c2d3fe | 62 | |
kenjiArai | 4:0f7797c2d3fe | 63 | #if !defined(FF_FS_RPATH) |
kenjiArai | 4:0f7797c2d3fe | 64 | #define FF_FS_RPATH 0 |
kenjiArai | 4:0f7797c2d3fe | 65 | #endif |
kenjiArai | 4:0f7797c2d3fe | 66 | |
kenjiArai | 4:0f7797c2d3fe | 67 | #define DW_CHAR sizeof(char) |
kenjiArai | 4:0f7797c2d3fe | 68 | #define DW_SHORT sizeof(short) |
kenjiArai | 4:0f7797c2d3fe | 69 | #define DW_LONG sizeof(long) |
kenjiArai | 4:0f7797c2d3fe | 70 | |
kenjiArai | 4:0f7797c2d3fe | 71 | /* These types must be 16-bit, 32-bit or larger integer */ |
kenjiArai | 4:0f7797c2d3fe | 72 | typedef int INT; |
kenjiArai | 4:0f7797c2d3fe | 73 | typedef unsigned int UINT; |
kenjiArai | 4:0f7797c2d3fe | 74 | |
kenjiArai | 4:0f7797c2d3fe | 75 | /* These types must be 8-bit integer */ |
kenjiArai | 4:0f7797c2d3fe | 76 | typedef char CHAR; |
kenjiArai | 4:0f7797c2d3fe | 77 | typedef unsigned char UCHAR; |
kenjiArai | 4:0f7797c2d3fe | 78 | typedef unsigned char BYTE; |
kenjiArai | 4:0f7797c2d3fe | 79 | |
kenjiArai | 4:0f7797c2d3fe | 80 | /* These types must be 16-bit integer */ |
kenjiArai | 4:0f7797c2d3fe | 81 | typedef short SHORT; |
kenjiArai | 4:0f7797c2d3fe | 82 | typedef unsigned short USHORT; |
kenjiArai | 4:0f7797c2d3fe | 83 | typedef unsigned short WORD; |
kenjiArai | 4:0f7797c2d3fe | 84 | typedef unsigned short WCHAR; |
kenjiArai | 4:0f7797c2d3fe | 85 | |
kenjiArai | 4:0f7797c2d3fe | 86 | /* These types must be 32-bit integer */ |
kenjiArai | 4:0f7797c2d3fe | 87 | typedef long LONG; |
kenjiArai | 4:0f7797c2d3fe | 88 | typedef unsigned long ULONG; |
kenjiArai | 4:0f7797c2d3fe | 89 | typedef unsigned long DWORD; |
kenjiArai | 4:0f7797c2d3fe | 90 | /* by Kenji Arai / JH1PJL September 10th, 2012 */ |
kenjiArai | 4:0f7797c2d3fe | 91 | typedef unsigned long long DDWORD; |
kenjiArai | 4:0f7797c2d3fe | 92 | |
kenjiArai | 4:0f7797c2d3fe | 93 | // RAM ------------------------------------------------------------------------ |
kenjiArai | 4:0f7797c2d3fe | 94 | BYTE Buff[4096]; |
kenjiArai | 4:0f7797c2d3fe | 95 | char Linebuf[128]; // Console input buffer |
kenjiArai | 4:0f7797c2d3fe | 96 | FATFS Fatfs[_VOLUMES]; // File system object for each logical drive |
kenjiArai | 4:0f7797c2d3fe | 97 | FIL File1, File2; // File objects |
kenjiArai | 4:0f7797c2d3fe | 98 | FATFS_DIR* Dirx; |
kenjiArai | 4:0f7797c2d3fe | 99 | FILINFO Finfo; |
kenjiArai | 4:0f7797c2d3fe | 100 | DWORD AccSize; // Work register for fs command |
kenjiArai | 4:0f7797c2d3fe | 101 | WORD AccFiles, AccDirs; |
kenjiArai | 4:0f7797c2d3fe | 102 | |
kenjiArai | 4:0f7797c2d3fe | 103 | // ROM / Constant data -------------------------------------------------------- |
kenjiArai | 7:e7767b779c8c | 104 | const char *const monmsg0 = "Start monitor program for FatFs File System\r\n"; |
kenjiArai | 7:e7767b779c8c | 105 | const char *const monmsg1 = " <Please press any key to start the monitor>"; |
kenjiArai | 4:0f7797c2d3fe | 106 | |
kenjiArai | 4:0f7797c2d3fe | 107 | static const char HelpMsg0[] = |
kenjiArai | 4:0f7797c2d3fe | 108 | "dir <full_pass>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 109 | "type <file_name>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 110 | "vol\r\n" |
kenjiArai | 4:0f7797c2d3fe | 111 | "ren <org_file_name> <new_file_name>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 112 | "copy <file_name> <file_name>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 113 | "mkdir <dir_name>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 114 | "cd <dir_name>\r\n" |
kenjiArai | 4:0f7797c2d3fe | 115 | "x extend commands mode\r\n" |
kenjiArai | 4:0f7797c2d3fe | 116 | "q Return to main\r\n" |
kenjiArai | 4:0f7797c2d3fe | 117 | "t Show current time or Adjust time\r\n" |
kenjiArai | 8:12621f1fcbbe | 118 | " e.g. t 21 1 13 10 11 12 -> January 13,'21, 10:11:12\r\n" |
kenjiArai | 4:0f7797c2d3fe | 119 | "? Help/You know the command\r\n" |
kenjiArai | 4:0f7797c2d3fe | 120 | "\r\n"; |
kenjiArai | 4:0f7797c2d3fe | 121 | |
kenjiArai | 4:0f7797c2d3fe | 122 | static const char HelpMsg1[] = |
kenjiArai | 4:0f7797c2d3fe | 123 | "[File system controls]\r\n" |
kenjiArai | 4:0f7797c2d3fe | 124 | " fi <ld#> [<mount>]- Force initialized the volume\r\n" |
kenjiArai | 4:0f7797c2d3fe | 125 | " fs [<path>] - Show volume status\r\n" |
kenjiArai | 4:0f7797c2d3fe | 126 | " fl [<path>] - Show a directory\r\n" |
kenjiArai | 4:0f7797c2d3fe | 127 | " fo <mode> <file> - Open a file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 128 | " <mode> Read=1, Write=2\r\n" |
kenjiArai | 4:0f7797c2d3fe | 129 | " fc - Close the file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 130 | " fe <ofs> - Move fp in normal seek\r\n" |
kenjiArai | 4:0f7797c2d3fe | 131 | " fd <len> - Read and dump the file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 132 | " fr <len> - Read the file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 133 | " fw <len> <val> - Write to the file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 134 | " fn <org.name> <new.name> - Rename an object\r\n" |
kenjiArai | 4:0f7797c2d3fe | 135 | " fu <name> - Unlink an object\r\n" |
kenjiArai | 4:0f7797c2d3fe | 136 | " fv - Truncate the file at current fp\r\n" |
kenjiArai | 4:0f7797c2d3fe | 137 | " fk <name> - Create a directory\r\n" |
kenjiArai | 4:0f7797c2d3fe | 138 | " fa <atrr> <mask> <object name> - Change attribute of an object\r\n" |
kenjiArai | 4:0f7797c2d3fe | 139 | " ft <year> <month> <day> <hour> <min> <sec> <name>" |
kenjiArai | 4:0f7797c2d3fe | 140 | " - Change timestamp of an object\r\n" |
kenjiArai | 4:0f7797c2d3fe | 141 | " fx <src.file> <dst.file> - Copy a file\r\n" |
kenjiArai | 4:0f7797c2d3fe | 142 | " fg <path> - Change current directory\r\n" |
kenjiArai | 4:0f7797c2d3fe | 143 | " fq - Show current directory\r\n" |
kenjiArai | 4:0f7797c2d3fe | 144 | " fb <name> - Set volume label\r\n" |
kenjiArai | 4:0f7797c2d3fe | 145 | " fm <ld#> <type> <csize> - Create file system\r\n" |
kenjiArai | 4:0f7797c2d3fe | 146 | " fz [<len>] - Change/Show R/W length for fr/fw/fx command\r\n" |
kenjiArai | 4:0f7797c2d3fe | 147 | "[Disk contorls]\r\n" |
kenjiArai | 4:0f7797c2d3fe | 148 | " di <pd#> - Initialize disk\r\n" |
kenjiArai | 4:0f7797c2d3fe | 149 | " dd [<pd#> <lba>] - Dump a secrtor\r\n" |
kenjiArai | 4:0f7797c2d3fe | 150 | " ds <pd#> - Show disk status\r\n" |
kenjiArai | 4:0f7797c2d3fe | 151 | "[Buffer controls]\r\n" |
kenjiArai | 4:0f7797c2d3fe | 152 | " bd <ofs> - Dump working buffer\r\n" |
kenjiArai | 4:0f7797c2d3fe | 153 | " be <ofs> [<data>] ... - Edit working buffer\r\n" |
kenjiArai | 4:0f7797c2d3fe | 154 | " br <pd#> <lba> [<count>] - Read disk into working buffer\r\n" |
kenjiArai | 4:0f7797c2d3fe | 155 | " bw <pd#> <lba> [<count>] - Write working buffer into disk\r\n" |
kenjiArai | 4:0f7797c2d3fe | 156 | " bf <val> - Fill working buffer\r\n" |
kenjiArai | 4:0f7797c2d3fe | 157 | "[Misc commands]\r\n" |
kenjiArai | 4:0f7797c2d3fe | 158 | " q Return\r\n" |
kenjiArai | 4:0f7797c2d3fe | 159 | " ? Help\r\n" |
kenjiArai | 4:0f7797c2d3fe | 160 | "\r\n"; |
kenjiArai | 4:0f7797c2d3fe | 161 | |
kenjiArai | 4:0f7797c2d3fe | 162 | // Function prototypes -------------------------------------------------------- |
kenjiArai | 4:0f7797c2d3fe | 163 | extern HeapBlockDevice bd; |
kenjiArai | 4:0f7797c2d3fe | 164 | extern FATFileSystem fs; |
kenjiArai | 4:0f7797c2d3fe | 165 | |
kenjiArai | 4:0f7797c2d3fe | 166 | static void extended_mon( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 167 | static void v_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 168 | static void d_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 169 | static void c_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 170 | static void m_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 171 | static void r_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 172 | static void t_next( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 173 | static void memory_inf(char *ptr); |
kenjiArai | 4:0f7797c2d3fe | 174 | static void disk_inf(char *ptr); |
kenjiArai | 4:0f7797c2d3fe | 175 | |
kenjiArai | 4:0f7797c2d3fe | 176 | static void crlf( void ); |
kenjiArai | 4:0f7797c2d3fe | 177 | static FRESULT scan_files( char* path ); |
kenjiArai | 4:0f7797c2d3fe | 178 | static void put_rc( FRESULT rc ); |
kenjiArai | 4:0f7797c2d3fe | 179 | static void file_inf( char *ptr ); |
kenjiArai | 4:0f7797c2d3fe | 180 | static void put_dump( void* buff, unsigned long addr, int len, int width ); |
kenjiArai | 4:0f7797c2d3fe | 181 | static void chk_and_set_time(char *ptr); |
kenjiArai | 4:0f7797c2d3fe | 182 | static int xatoi ( char **str, long *res ); |
kenjiArai | 4:0f7797c2d3fe | 183 | |
kenjiArai | 4:0f7797c2d3fe | 184 | void get_line (char *buff, int len); |
kenjiArai | 4:0f7797c2d3fe | 185 | |
kenjiArai | 4:0f7797c2d3fe | 186 | // Object --------------------------------------------------------------------- |
kenjiArai | 4:0f7797c2d3fe | 187 | Timer t; |
kenjiArai | 4:0f7797c2d3fe | 188 | |
kenjiArai | 4:0f7797c2d3fe | 189 | //------------------------------------------------------------------------------ |
kenjiArai | 4:0f7797c2d3fe | 190 | // Control Program |
kenjiArai | 4:0f7797c2d3fe | 191 | //------------------------------------------------------------------------------ |
kenjiArai | 4:0f7797c2d3fe | 192 | // Monitor program for File control |
kenjiArai | 4:0f7797c2d3fe | 193 | void mon () |
kenjiArai | 4:0f7797c2d3fe | 194 | { |
kenjiArai | 4:0f7797c2d3fe | 195 | char *ptr; |
kenjiArai | 4:0f7797c2d3fe | 196 | |
kenjiArai | 4:0f7797c2d3fe | 197 | Dirx = new FATFS_DIR; |
kenjiArai | 4:0f7797c2d3fe | 198 | /* Open Uart to communicate with Host PC */ |
kenjiArai | 4:0f7797c2d3fe | 199 | PUTS(monmsg0); |
kenjiArai | 4:0f7797c2d3fe | 200 | PUTS(monmsg1); |
kenjiArai | 4:0f7797c2d3fe | 201 | crlf(); |
kenjiArai | 4:0f7797c2d3fe | 202 | for (;;) { |
kenjiArai | 4:0f7797c2d3fe | 203 | DEBUG_LINE |
kenjiArai | 4:0f7797c2d3fe | 204 | PUTC('>'); |
kenjiArai | 4:0f7797c2d3fe | 205 | ptr = Linebuf; |
kenjiArai | 4:0f7797c2d3fe | 206 | get_line( ptr, sizeof(Linebuf) ); |
kenjiArai | 4:0f7797c2d3fe | 207 | switch ( *ptr++ ) { |
kenjiArai | 8:12621f1fcbbe | 208 | // vol |
kenjiArai | 4:0f7797c2d3fe | 209 | case 'v' : |
kenjiArai | 4:0f7797c2d3fe | 210 | v_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 211 | break; |
kenjiArai | 8:12621f1fcbbe | 212 | // dir |
kenjiArai | 4:0f7797c2d3fe | 213 | case 'd' : |
kenjiArai | 4:0f7797c2d3fe | 214 | d_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 215 | break; |
kenjiArai | 8:12621f1fcbbe | 216 | // cd, copy |
kenjiArai | 4:0f7797c2d3fe | 217 | case 'c' : |
kenjiArai | 4:0f7797c2d3fe | 218 | c_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 219 | break; |
kenjiArai | 8:12621f1fcbbe | 220 | // mkdir |
kenjiArai | 4:0f7797c2d3fe | 221 | case 'm' : |
kenjiArai | 4:0f7797c2d3fe | 222 | m_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 223 | break; |
kenjiArai | 8:12621f1fcbbe | 224 | // ren |
kenjiArai | 4:0f7797c2d3fe | 225 | case 'r' : |
kenjiArai | 4:0f7797c2d3fe | 226 | r_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 227 | break; |
kenjiArai | 4:0f7797c2d3fe | 228 | case 't' : |
kenjiArai | 4:0f7797c2d3fe | 229 | t_next(ptr); |
kenjiArai | 4:0f7797c2d3fe | 230 | break; |
kenjiArai | 4:0f7797c2d3fe | 231 | case 'x' : |
kenjiArai | 4:0f7797c2d3fe | 232 | extended_mon(ptr); |
kenjiArai | 4:0f7797c2d3fe | 233 | break; |
kenjiArai | 8:12621f1fcbbe | 234 | // Help |
kenjiArai | 4:0f7797c2d3fe | 235 | case '?' : |
kenjiArai | 4:0f7797c2d3fe | 236 | PUTS(HelpMsg0); |
kenjiArai | 4:0f7797c2d3fe | 237 | break; |
kenjiArai | 8:12621f1fcbbe | 238 | // Exit monitor (return to main()) |
kenjiArai | 4:0f7797c2d3fe | 239 | case 'q' : |
kenjiArai | 4:0f7797c2d3fe | 240 | PUTS("Return to main\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 241 | return; |
kenjiArai | 8:12621f1fcbbe | 242 | // Not a command |
kenjiArai | 4:0f7797c2d3fe | 243 | default: |
kenjiArai | 4:0f7797c2d3fe | 244 | PUTS("? [HELP]=?"); |
kenjiArai | 4:0f7797c2d3fe | 245 | crlf(); |
kenjiArai | 4:0f7797c2d3fe | 246 | break; |
kenjiArai | 4:0f7797c2d3fe | 247 | } |
kenjiArai | 4:0f7797c2d3fe | 248 | } |
kenjiArai | 4:0f7797c2d3fe | 249 | } |
kenjiArai | 4:0f7797c2d3fe | 250 | |
kenjiArai | 8:12621f1fcbbe | 251 | float get_disk_freespace(void) |
kenjiArai | 4:0f7797c2d3fe | 252 | { |
kenjiArai | 8:12621f1fcbbe | 253 | DWORD p1; |
kenjiArai | 4:0f7797c2d3fe | 254 | UINT s1, s2; |
kenjiArai | 4:0f7797c2d3fe | 255 | FATFS *fs; |
kenjiArai | 4:0f7797c2d3fe | 256 | BYTE res; |
kenjiArai | 4:0f7797c2d3fe | 257 | |
kenjiArai | 8:12621f1fcbbe | 258 | if (Dirx == NULL) { |
kenjiArai | 4:0f7797c2d3fe | 259 | Dirx = new FATFS_DIR; |
kenjiArai | 4:0f7797c2d3fe | 260 | } |
kenjiArai | 8:12621f1fcbbe | 261 | //char p = NULL; |
kenjiArai | 8:12621f1fcbbe | 262 | char p[8] = {0}; |
kenjiArai | 8:12621f1fcbbe | 263 | res = f_opendir(Dirx, p); |
kenjiArai | 4:0f7797c2d3fe | 264 | if (res) { |
kenjiArai | 4:0f7797c2d3fe | 265 | return 0; |
kenjiArai | 4:0f7797c2d3fe | 266 | } |
kenjiArai | 8:12621f1fcbbe | 267 | p1 = 0; |
kenjiArai | 8:12621f1fcbbe | 268 | p[0] = '0'; |
kenjiArai | 8:12621f1fcbbe | 269 | p[1] = ':'; |
kenjiArai | 8:12621f1fcbbe | 270 | p[2] = 0; |
kenjiArai | 8:12621f1fcbbe | 271 | res = f_getfree(p, (DWORD*)&p1, &fs); |
kenjiArai | 8:12621f1fcbbe | 272 | float size_float = (float)p1 * (float)fs->csize * (float)fs->ssize; |
kenjiArai | 4:0f7797c2d3fe | 273 | if (res == FR_OK) { |
kenjiArai | 8:12621f1fcbbe | 274 | return size_float; |
kenjiArai | 4:0f7797c2d3fe | 275 | } else { |
kenjiArai | 4:0f7797c2d3fe | 276 | return 0; |
kenjiArai | 4:0f7797c2d3fe | 277 | } |
kenjiArai | 4:0f7797c2d3fe | 278 | } |
kenjiArai | 4:0f7797c2d3fe | 279 | |
kenjiArai | 7:e7767b779c8c | 280 | uint32_t get_data_file_size(const char *const file_name) |
kenjiArai | 7:e7767b779c8c | 281 | { |
kenjiArai | 7:e7767b779c8c | 282 | BYTE res; |
kenjiArai | 7:e7767b779c8c | 283 | //const char *file_name ="acc_data.txt"; |
kenjiArai | 8:12621f1fcbbe | 284 | |
kenjiArai | 8:12621f1fcbbe | 285 | if (Dirx == NULL) { |
kenjiArai | 7:e7767b779c8c | 286 | Dirx = new FATFS_DIR; |
kenjiArai | 7:e7767b779c8c | 287 | } |
kenjiArai | 7:e7767b779c8c | 288 | char p = NULL; |
kenjiArai | 7:e7767b779c8c | 289 | res = f_opendir(Dirx, &p); |
kenjiArai | 7:e7767b779c8c | 290 | if (res) { |
kenjiArai | 7:e7767b779c8c | 291 | put_rc((FRESULT)res); |
kenjiArai | 7:e7767b779c8c | 292 | return 0; |
kenjiArai | 7:e7767b779c8c | 293 | } |
kenjiArai | 7:e7767b779c8c | 294 | for(;;) { |
kenjiArai | 7:e7767b779c8c | 295 | res = f_readdir(Dirx, &Finfo); |
kenjiArai | 7:e7767b779c8c | 296 | if ((res != FR_OK) || !Finfo.fname[0]) break; |
kenjiArai | 8:12621f1fcbbe | 297 | if (strcmp(Finfo.fname, file_name) == 0) { |
kenjiArai | 7:e7767b779c8c | 298 | return Finfo.fsize; |
kenjiArai | 7:e7767b779c8c | 299 | } |
kenjiArai | 7:e7767b779c8c | 300 | } |
kenjiArai | 7:e7767b779c8c | 301 | return 0; |
kenjiArai | 7:e7767b779c8c | 302 | } |
kenjiArai | 7:e7767b779c8c | 303 | |
kenjiArai | 4:0f7797c2d3fe | 304 | static void extended_mon( char *ptr ) |
kenjiArai | 4:0f7797c2d3fe | 305 | { |
kenjiArai | 4:0f7797c2d3fe | 306 | PUTS(HelpMsg1); |
kenjiArai | 4:0f7797c2d3fe | 307 | while(true) { |
kenjiArai | 4:0f7797c2d3fe | 308 | PUTS("e>"); |
kenjiArai | 4:0f7797c2d3fe | 309 | ptr = Linebuf; |
kenjiArai | 4:0f7797c2d3fe | 310 | get_line( ptr, sizeof(Linebuf) ); |
kenjiArai | 4:0f7797c2d3fe | 311 | switch ( *ptr++ ) { |
kenjiArai | 4:0f7797c2d3fe | 312 | case 'f' : |
kenjiArai | 4:0f7797c2d3fe | 313 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 314 | file_inf(ptr); |
kenjiArai | 4:0f7797c2d3fe | 315 | break; |
kenjiArai | 4:0f7797c2d3fe | 316 | case 'd' : |
kenjiArai | 4:0f7797c2d3fe | 317 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 318 | disk_inf(ptr); |
kenjiArai | 4:0f7797c2d3fe | 319 | break; |
kenjiArai | 4:0f7797c2d3fe | 320 | case 'm' : |
kenjiArai | 4:0f7797c2d3fe | 321 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 322 | memory_inf(ptr); |
kenjiArai | 4:0f7797c2d3fe | 323 | break; |
kenjiArai | 4:0f7797c2d3fe | 324 | case '?' : |
kenjiArai | 4:0f7797c2d3fe | 325 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 326 | PUTS(HelpMsg1); |
kenjiArai | 4:0f7797c2d3fe | 327 | break; |
kenjiArai | 4:0f7797c2d3fe | 328 | case 'q' : |
kenjiArai | 4:0f7797c2d3fe | 329 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 330 | return; |
kenjiArai | 4:0f7797c2d3fe | 331 | default: |
kenjiArai | 4:0f7797c2d3fe | 332 | PUTS( "?\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 333 | } |
kenjiArai | 4:0f7797c2d3fe | 334 | } |
kenjiArai | 4:0f7797c2d3fe | 335 | } |
kenjiArai | 4:0f7797c2d3fe | 336 | |
kenjiArai | 4:0f7797c2d3fe | 337 | //------------------------------------------------------------------------------ |
kenjiArai | 4:0f7797c2d3fe | 338 | // General monitor functions |
kenjiArai | 4:0f7797c2d3fe | 339 | static void v_next( char *ptr ) |
kenjiArai | 4:0f7797c2d3fe | 340 | { |
kenjiArai | 4:0f7797c2d3fe | 341 | switch ( *ptr++ ) { |
kenjiArai | 4:0f7797c2d3fe | 342 | case 'o' : |
kenjiArai | 4:0f7797c2d3fe | 343 | if (*ptr == 'l') { |
kenjiArai | 4:0f7797c2d3fe | 344 | *ptr = 's'; |
kenjiArai | 4:0f7797c2d3fe | 345 | file_inf(ptr); // fs [<path>] - Show volume status |
kenjiArai | 4:0f7797c2d3fe | 346 | } |
kenjiArai | 4:0f7797c2d3fe | 347 | break; |
kenjiArai | 4:0f7797c2d3fe | 348 | default: |
kenjiArai | 4:0f7797c2d3fe | 349 | PUTS( "?\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 350 | } |
kenjiArai | 4:0f7797c2d3fe | 351 | } |
kenjiArai | 4:0f7797c2d3fe | 352 | |
kenjiArai | 4:0f7797c2d3fe | 353 | static void d_next(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 354 | { |
kenjiArai | 4:0f7797c2d3fe | 355 | switch ( *ptr++ ) { |
kenjiArai | 4:0f7797c2d3fe | 356 | case 'i' : |
kenjiArai | 4:0f7797c2d3fe | 357 | if (*ptr == 'r') { |
kenjiArai | 4:0f7797c2d3fe | 358 | *ptr = 'l'; |
kenjiArai | 4:0f7797c2d3fe | 359 | file_inf(ptr); // fl [<path>] - Directory listing |
kenjiArai | 4:0f7797c2d3fe | 360 | } |
kenjiArai | 4:0f7797c2d3fe | 361 | break; |
kenjiArai | 4:0f7797c2d3fe | 362 | default: |
kenjiArai | 4:0f7797c2d3fe | 363 | PUTS( "?\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 364 | } |
kenjiArai | 4:0f7797c2d3fe | 365 | } |
kenjiArai | 4:0f7797c2d3fe | 366 | |
kenjiArai | 4:0f7797c2d3fe | 367 | static void c_next(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 368 | { |
kenjiArai | 4:0f7797c2d3fe | 369 | switch ( *ptr++ ) { |
kenjiArai | 4:0f7797c2d3fe | 370 | case 'o' : |
kenjiArai | 4:0f7797c2d3fe | 371 | if ((*ptr == 'p') && (*(ptr + 1) == 'y')) { |
kenjiArai | 4:0f7797c2d3fe | 372 | ptr++; |
kenjiArai | 4:0f7797c2d3fe | 373 | *ptr = 'x'; |
kenjiArai | 4:0f7797c2d3fe | 374 | file_inf(ptr); // fx <src_name> <dst_name> - Copy file |
kenjiArai | 4:0f7797c2d3fe | 375 | } |
kenjiArai | 4:0f7797c2d3fe | 376 | break; |
kenjiArai | 4:0f7797c2d3fe | 377 | case 'd' : |
kenjiArai | 4:0f7797c2d3fe | 378 | *ptr = 'g'; |
kenjiArai | 4:0f7797c2d3fe | 379 | file_inf(ptr); // fx <src_name> <dst_name> - Copy file |
kenjiArai | 4:0f7797c2d3fe | 380 | break; |
kenjiArai | 4:0f7797c2d3fe | 381 | default: |
kenjiArai | 4:0f7797c2d3fe | 382 | PUTS( "?\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 383 | } |
kenjiArai | 4:0f7797c2d3fe | 384 | } |
kenjiArai | 4:0f7797c2d3fe | 385 | |
kenjiArai | 4:0f7797c2d3fe | 386 | static void m_next(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 387 | { |
kenjiArai | 4:0f7797c2d3fe | 388 | switch ( *ptr++ ) { |
kenjiArai | 4:0f7797c2d3fe | 389 | case 'k' : |
kenjiArai | 4:0f7797c2d3fe | 390 | if ((*ptr == 'd') && (*(ptr + 1) == 'i') && (*(ptr + 2) == 'r')) { |
kenjiArai | 4:0f7797c2d3fe | 391 | ptr += 2; |
kenjiArai | 4:0f7797c2d3fe | 392 | *ptr = 'k'; |
kenjiArai | 4:0f7797c2d3fe | 393 | file_inf(ptr); // fk <name> - Create a directory |
kenjiArai | 4:0f7797c2d3fe | 394 | } |
kenjiArai | 4:0f7797c2d3fe | 395 | break; |
kenjiArai | 4:0f7797c2d3fe | 396 | default: |
kenjiArai | 4:0f7797c2d3fe | 397 | PUTS("?\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 398 | } |
kenjiArai | 4:0f7797c2d3fe | 399 | } |
kenjiArai | 4:0f7797c2d3fe | 400 | |
kenjiArai | 4:0f7797c2d3fe | 401 | static void r_next(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 402 | { |
kenjiArai | 4:0f7797c2d3fe | 403 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 404 | case 'e' : |
kenjiArai | 4:0f7797c2d3fe | 405 | if (*ptr == 'n') { |
kenjiArai | 4:0f7797c2d3fe | 406 | // fn <old_name> <new_name> - Change file/dir name |
kenjiArai | 4:0f7797c2d3fe | 407 | file_inf(ptr); |
kenjiArai | 4:0f7797c2d3fe | 408 | } |
kenjiArai | 4:0f7797c2d3fe | 409 | break; |
kenjiArai | 4:0f7797c2d3fe | 410 | default: |
kenjiArai | 4:0f7797c2d3fe | 411 | PUTS("?\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 412 | } |
kenjiArai | 4:0f7797c2d3fe | 413 | } |
kenjiArai | 4:0f7797c2d3fe | 414 | |
kenjiArai | 4:0f7797c2d3fe | 415 | static void t_next(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 416 | { |
kenjiArai | 4:0f7797c2d3fe | 417 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 418 | case ' ' : |
kenjiArai | 4:0f7797c2d3fe | 419 | case 0x0d: |
kenjiArai | 4:0f7797c2d3fe | 420 | chk_and_set_time(ptr); |
kenjiArai | 4:0f7797c2d3fe | 421 | case 'y' : |
kenjiArai | 4:0f7797c2d3fe | 422 | if ((*ptr == 'p') && (*(ptr + 1) == 'e')) { |
kenjiArai | 4:0f7797c2d3fe | 423 | ptr++; |
kenjiArai | 4:0f7797c2d3fe | 424 | *ptr = '&'; |
kenjiArai | 4:0f7797c2d3fe | 425 | file_inf(ptr); |
kenjiArai | 4:0f7797c2d3fe | 426 | } |
kenjiArai | 4:0f7797c2d3fe | 427 | break; |
kenjiArai | 4:0f7797c2d3fe | 428 | default: |
kenjiArai | 4:0f7797c2d3fe | 429 | PUTS("?\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 430 | } |
kenjiArai | 4:0f7797c2d3fe | 431 | } |
kenjiArai | 4:0f7797c2d3fe | 432 | |
kenjiArai | 4:0f7797c2d3fe | 433 | static FRESULT scan_files ( |
kenjiArai | 4:0f7797c2d3fe | 434 | char* path /* Pointer to the path name working buffer */ |
kenjiArai | 4:0f7797c2d3fe | 435 | ) |
kenjiArai | 4:0f7797c2d3fe | 436 | { |
kenjiArai | 4:0f7797c2d3fe | 437 | FATFS_DIR dirs; |
kenjiArai | 4:0f7797c2d3fe | 438 | FRESULT res; |
kenjiArai | 4:0f7797c2d3fe | 439 | BYTE i; |
kenjiArai | 4:0f7797c2d3fe | 440 | char *fn; |
kenjiArai | 4:0f7797c2d3fe | 441 | |
kenjiArai | 4:0f7797c2d3fe | 442 | if ((res = f_opendir(&dirs, path)) == FR_OK) { |
kenjiArai | 4:0f7797c2d3fe | 443 | i = strlen(path); |
kenjiArai | 4:0f7797c2d3fe | 444 | PRINTF("path: %s, n=%u\r\n", path, i); |
kenjiArai | 4:0f7797c2d3fe | 445 | while (((res = f_readdir(&dirs, &Finfo)) == FR_OK) && Finfo.fname[0]) { |
kenjiArai | 4:0f7797c2d3fe | 446 | if (FF_FS_RPATH && Finfo.fname[0] == '.') { |
kenjiArai | 4:0f7797c2d3fe | 447 | continue; |
kenjiArai | 4:0f7797c2d3fe | 448 | } |
kenjiArai | 4:0f7797c2d3fe | 449 | fn = Finfo.fname; |
kenjiArai | 4:0f7797c2d3fe | 450 | if (Finfo.fattrib & AM_DIR) { |
kenjiArai | 4:0f7797c2d3fe | 451 | AccDirs++; |
kenjiArai | 4:0f7797c2d3fe | 452 | *(path+i) = '/'; |
kenjiArai | 4:0f7797c2d3fe | 453 | strcpy(path+i+1, fn); |
kenjiArai | 4:0f7797c2d3fe | 454 | res = scan_files(path); |
kenjiArai | 4:0f7797c2d3fe | 455 | *(path+i) = '\0'; |
kenjiArai | 4:0f7797c2d3fe | 456 | if (res != FR_OK) break; |
kenjiArai | 4:0f7797c2d3fe | 457 | } else { |
kenjiArai | 4:0f7797c2d3fe | 458 | PRINTF("%s/%s\r\n", path, fn); |
kenjiArai | 4:0f7797c2d3fe | 459 | AccFiles++; |
kenjiArai | 4:0f7797c2d3fe | 460 | AccSize += Finfo.fsize; |
kenjiArai | 4:0f7797c2d3fe | 461 | } |
kenjiArai | 4:0f7797c2d3fe | 462 | } |
kenjiArai | 4:0f7797c2d3fe | 463 | } |
kenjiArai | 4:0f7797c2d3fe | 464 | return res; |
kenjiArai | 4:0f7797c2d3fe | 465 | } |
kenjiArai | 4:0f7797c2d3fe | 466 | |
kenjiArai | 4:0f7797c2d3fe | 467 | static void put_rc (FRESULT rc) |
kenjiArai | 4:0f7797c2d3fe | 468 | { |
kenjiArai | 4:0f7797c2d3fe | 469 | const char *str = |
kenjiArai | 4:0f7797c2d3fe | 470 | "OK\0" "DISK_ERR\0" "INT_ERR\0" "NOT_READY\0" "NO_FILE\0" "NO_PATH\0" |
kenjiArai | 4:0f7797c2d3fe | 471 | "INVALID_NAME\0" "DENIED\0" "EXIST\0" "INVALID_OBJECT\0" |
kenjiArai | 4:0f7797c2d3fe | 472 | "WRITE_PROTECTED\0" "INVALID_DRIVE\0" "NOT_ENABLED\0" |
kenjiArai | 4:0f7797c2d3fe | 473 | "NO_FILE_SYSTEM\0" "MKFS_ABORTED\0" "TIMEOUT\0" |
kenjiArai | 4:0f7797c2d3fe | 474 | "LOCKED\0" "NOT_ENOUGH_CORE\0" "TOO_MANY_OPEN_FILES\0"; |
kenjiArai | 4:0f7797c2d3fe | 475 | int i; |
kenjiArai | 4:0f7797c2d3fe | 476 | |
kenjiArai | 4:0f7797c2d3fe | 477 | for ( i = 0; i != rc && *str; i++ ) { |
kenjiArai | 4:0f7797c2d3fe | 478 | while ( *str++ ) { |
kenjiArai | 4:0f7797c2d3fe | 479 | ; |
kenjiArai | 4:0f7797c2d3fe | 480 | } |
kenjiArai | 4:0f7797c2d3fe | 481 | } |
kenjiArai | 4:0f7797c2d3fe | 482 | PRINTF( "rc=%u FR_%s\r\n", (UINT)rc, str ); |
kenjiArai | 4:0f7797c2d3fe | 483 | } |
kenjiArai | 4:0f7797c2d3fe | 484 | |
kenjiArai | 4:0f7797c2d3fe | 485 | static void file_inf(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 486 | { |
kenjiArai | 4:0f7797c2d3fe | 487 | long p1, p2, p3; |
kenjiArai | 4:0f7797c2d3fe | 488 | CHAR *ptr2; |
kenjiArai | 4:0f7797c2d3fe | 489 | BYTE f_res; |
kenjiArai | 4:0f7797c2d3fe | 490 | UINT s1, s2, cnt, blen = sizeof Buff; |
kenjiArai | 4:0f7797c2d3fe | 491 | FATFS *fs; |
kenjiArai | 4:0f7797c2d3fe | 492 | static const BYTE ft[] = {0, 12, 16, 32}; |
kenjiArai | 4:0f7797c2d3fe | 493 | BYTE res; |
kenjiArai | 4:0f7797c2d3fe | 494 | DWORD ofs = 0; |
kenjiArai | 4:0f7797c2d3fe | 495 | uint32_t tim; |
kenjiArai | 4:0f7797c2d3fe | 496 | |
kenjiArai | 4:0f7797c2d3fe | 497 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 498 | case '&' : |
kenjiArai | 4:0f7797c2d3fe | 499 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 500 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 501 | /* Open a file */ |
kenjiArai | 4:0f7797c2d3fe | 502 | f_res = f_open(&File1, ptr, FA_READ); |
kenjiArai | 4:0f7797c2d3fe | 503 | if ( f_res ) { |
kenjiArai | 4:0f7797c2d3fe | 504 | put_rc((FRESULT)f_res); |
kenjiArai | 4:0f7797c2d3fe | 505 | break; |
kenjiArai | 4:0f7797c2d3fe | 506 | } |
kenjiArai | 4:0f7797c2d3fe | 507 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 508 | /* Read all lines and display it */ |
kenjiArai | 4:0f7797c2d3fe | 509 | while(true) { |
kenjiArai | 4:0f7797c2d3fe | 510 | f_res = f_read(&File1, (TCHAR*)Buff, blen, &cnt); |
kenjiArai | 4:0f7797c2d3fe | 511 | if ( f_res ) { |
kenjiArai | 4:0f7797c2d3fe | 512 | put_rc((FRESULT)f_res); |
kenjiArai | 4:0f7797c2d3fe | 513 | break; |
kenjiArai | 4:0f7797c2d3fe | 514 | } |
kenjiArai | 4:0f7797c2d3fe | 515 | for (s1 = 0; s1 < cnt; s1++) { |
kenjiArai | 4:0f7797c2d3fe | 516 | PUTC(Buff[s1]); |
kenjiArai | 4:0f7797c2d3fe | 517 | } |
kenjiArai | 4:0f7797c2d3fe | 518 | if (cnt != blen) { |
kenjiArai | 4:0f7797c2d3fe | 519 | break; |
kenjiArai | 4:0f7797c2d3fe | 520 | } |
kenjiArai | 4:0f7797c2d3fe | 521 | } |
kenjiArai | 4:0f7797c2d3fe | 522 | DEBUG_LINE; |
kenjiArai | 4:0f7797c2d3fe | 523 | /* Close the file */ |
kenjiArai | 4:0f7797c2d3fe | 524 | f_close(&File1); |
kenjiArai | 4:0f7797c2d3fe | 525 | break; |
kenjiArai | 4:0f7797c2d3fe | 526 | |
kenjiArai | 4:0f7797c2d3fe | 527 | case 'i' : /* fi [<opt>]- Initialize logical drive */ |
kenjiArai | 4:0f7797c2d3fe | 528 | if ( !xatoi(&ptr, &p1) ) { |
kenjiArai | 4:0f7797c2d3fe | 529 | break; |
kenjiArai | 4:0f7797c2d3fe | 530 | } |
kenjiArai | 4:0f7797c2d3fe | 531 | if (!xatoi(&ptr, &p2)) p2 = 0; |
kenjiArai | 4:0f7797c2d3fe | 532 | put_rc(f_mount(&Fatfs[p1], (const TCHAR*)p1, 0)); |
kenjiArai | 4:0f7797c2d3fe | 533 | break; |
kenjiArai | 4:0f7797c2d3fe | 534 | |
kenjiArai | 4:0f7797c2d3fe | 535 | case 's' : /* fs [<path>] - Show volume status */ |
kenjiArai | 4:0f7797c2d3fe | 536 | f_res = f_getfree( ptr, (DWORD*)&p2, &fs ); |
kenjiArai | 4:0f7797c2d3fe | 537 | if ( f_res ) { |
kenjiArai | 4:0f7797c2d3fe | 538 | put_rc((FRESULT)f_res); |
kenjiArai | 4:0f7797c2d3fe | 539 | break; |
kenjiArai | 4:0f7797c2d3fe | 540 | } |
kenjiArai | 4:0f7797c2d3fe | 541 | PRINTF |
kenjiArai | 4:0f7797c2d3fe | 542 | ( |
kenjiArai | 4:0f7797c2d3fe | 543 | "\rFAT type = FAT%u\r\nBytes/Cluster" |
kenjiArai | 4:0f7797c2d3fe | 544 | " = %lu\r\nNumber of FATs = %u\r\n" |
kenjiArai | 4:0f7797c2d3fe | 545 | "Root DIR entries = %u\r\n" |
kenjiArai | 4:0f7797c2d3fe | 546 | "Sectors/FAT = %lu\r\n" |
kenjiArai | 4:0f7797c2d3fe | 547 | "Number of clusters = %lu\r\n" |
kenjiArai | 4:0f7797c2d3fe | 548 | "FAT start (lba) = %lu\r\n" |
kenjiArai | 4:0f7797c2d3fe | 549 | "DIR start (lba,clustor) = %lu\r\n" |
kenjiArai | 4:0f7797c2d3fe | 550 | "Data start (lba) = %lu\r\n", |
kenjiArai | 4:0f7797c2d3fe | 551 | ft[fs->fs_type & 3], (DWORD)fs->csize * 512, fs->n_fats, |
kenjiArai | 4:0f7797c2d3fe | 552 | fs->n_rootdir, fs->fsize, (DWORD)fs->n_fatent - 2, |
kenjiArai | 4:0f7797c2d3fe | 553 | fs->fatbase, fs->dirbase, fs->database |
kenjiArai | 4:0f7797c2d3fe | 554 | ); |
kenjiArai | 4:0f7797c2d3fe | 555 | AccSize = AccFiles = AccDirs = 0; |
kenjiArai | 4:0f7797c2d3fe | 556 | break; |
kenjiArai | 4:0f7797c2d3fe | 557 | case 'l' : /* fl [<path>] - Directory listing */ |
kenjiArai | 4:0f7797c2d3fe | 558 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 559 | res = f_opendir(Dirx, ptr); |
kenjiArai | 4:0f7797c2d3fe | 560 | if (res) { |
kenjiArai | 4:0f7797c2d3fe | 561 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 562 | break; |
kenjiArai | 4:0f7797c2d3fe | 563 | } |
kenjiArai | 4:0f7797c2d3fe | 564 | p1 = s1 = s2 = 0; |
kenjiArai | 4:0f7797c2d3fe | 565 | for(;;) { |
kenjiArai | 4:0f7797c2d3fe | 566 | res = f_readdir(Dirx, &Finfo); |
kenjiArai | 4:0f7797c2d3fe | 567 | if ((res != FR_OK) || !Finfo.fname[0]) break; |
kenjiArai | 4:0f7797c2d3fe | 568 | if (Finfo.fattrib & AM_DIR) { |
kenjiArai | 4:0f7797c2d3fe | 569 | s2++; |
kenjiArai | 4:0f7797c2d3fe | 570 | } else { |
kenjiArai | 4:0f7797c2d3fe | 571 | s1++; |
kenjiArai | 4:0f7797c2d3fe | 572 | p1 += Finfo.fsize; |
kenjiArai | 4:0f7797c2d3fe | 573 | } |
kenjiArai | 4:0f7797c2d3fe | 574 | PRINTF("%c%c%c%c%c %u/%02u/%02u %02u:%02u %9lu %s\r\n", |
kenjiArai | 4:0f7797c2d3fe | 575 | (Finfo.fattrib & AM_DIR) ? 'D' : '-', |
kenjiArai | 4:0f7797c2d3fe | 576 | (Finfo.fattrib & AM_RDO) ? 'R' : '-', |
kenjiArai | 4:0f7797c2d3fe | 577 | (Finfo.fattrib & AM_HID) ? 'H' : '-', |
kenjiArai | 4:0f7797c2d3fe | 578 | (Finfo.fattrib & AM_SYS) ? 'S' : '-', |
kenjiArai | 4:0f7797c2d3fe | 579 | (Finfo.fattrib & AM_ARC) ? 'A' : '-', |
kenjiArai | 4:0f7797c2d3fe | 580 | (Finfo.fdate >> 9) + 1980, (Finfo.fdate >> 5) & 15, |
kenjiArai | 4:0f7797c2d3fe | 581 | Finfo.fdate & 31, |
kenjiArai | 4:0f7797c2d3fe | 582 | (Finfo.ftime >> 11), (Finfo.ftime >> 5) & 63, |
kenjiArai | 4:0f7797c2d3fe | 583 | Finfo.fsize, Finfo.fname); |
kenjiArai | 4:0f7797c2d3fe | 584 | } |
kenjiArai | 4:0f7797c2d3fe | 585 | #if 0 // f_getfree cannnot count under Dir, subdirectory area |
kenjiArai | 4:0f7797c2d3fe | 586 | PRINTF("%4u File(s),%10lu bytes total\r\n%4u Dir(s)", s1, p1, s2); |
kenjiArai | 4:0f7797c2d3fe | 587 | res = f_getfree(ptr, (DWORD*)&p1, &fs); |
kenjiArai | 4:0f7797c2d3fe | 588 | if (res == FR_OK) |
kenjiArai | 4:0f7797c2d3fe | 589 | PRINTF(", %10lu bytes free\r\n", p1 * fs->csize * 512); |
kenjiArai | 4:0f7797c2d3fe | 590 | else |
kenjiArai | 4:0f7797c2d3fe | 591 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 592 | #else |
kenjiArai | 4:0f7797c2d3fe | 593 | PRINTF("%4u File(s) = %10lu bytes total, %4u Dir(s)\r\n", |
kenjiArai | 4:0f7797c2d3fe | 594 | s1, p1, s2); |
kenjiArai | 4:0f7797c2d3fe | 595 | #endif |
kenjiArai | 4:0f7797c2d3fe | 596 | break; |
kenjiArai | 4:0f7797c2d3fe | 597 | |
kenjiArai | 4:0f7797c2d3fe | 598 | case 'o' : /* fo <mode> <file> - Open a file */ |
kenjiArai | 4:0f7797c2d3fe | 599 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 600 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 601 | put_rc(f_open(&File1, ptr, (BYTE)p1)); |
kenjiArai | 4:0f7797c2d3fe | 602 | #if 0 |
kenjiArai | 4:0f7797c2d3fe | 603 | put_rc(f_open(&File1, "savedata.txt", 1)); |
kenjiArai | 4:0f7797c2d3fe | 604 | PRINTF("Open savedata.txt as read mode\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 605 | #endif |
kenjiArai | 4:0f7797c2d3fe | 606 | break; |
kenjiArai | 4:0f7797c2d3fe | 607 | |
kenjiArai | 4:0f7797c2d3fe | 608 | case 'c' : /* fc - Close a file */ |
kenjiArai | 4:0f7797c2d3fe | 609 | put_rc(f_close(&File1)); |
kenjiArai | 4:0f7797c2d3fe | 610 | break; |
kenjiArai | 4:0f7797c2d3fe | 611 | |
kenjiArai | 4:0f7797c2d3fe | 612 | case 'e' : /* fe - Seek file pointer */ |
kenjiArai | 4:0f7797c2d3fe | 613 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 614 | res = f_lseek(&File1, p1); |
kenjiArai | 4:0f7797c2d3fe | 615 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 616 | if (res == FR_OK) |
kenjiArai | 4:0f7797c2d3fe | 617 | PRINTF("fptr=%lu(0x%lX)\r\n", File1.fptr, File1.fptr); |
kenjiArai | 4:0f7797c2d3fe | 618 | break; |
kenjiArai | 4:0f7797c2d3fe | 619 | |
kenjiArai | 4:0f7797c2d3fe | 620 | case 'd' : /* fd <len> - read and dump file from current fp */ |
kenjiArai | 4:0f7797c2d3fe | 621 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 622 | ofs = File1.fptr; |
kenjiArai | 4:0f7797c2d3fe | 623 | while (p1) { |
kenjiArai | 4:0f7797c2d3fe | 624 | if ((UINT)p1 >= 16) { |
kenjiArai | 4:0f7797c2d3fe | 625 | cnt = 16; |
kenjiArai | 4:0f7797c2d3fe | 626 | p1 -= 16; |
kenjiArai | 4:0f7797c2d3fe | 627 | } else { |
kenjiArai | 4:0f7797c2d3fe | 628 | cnt = p1; |
kenjiArai | 4:0f7797c2d3fe | 629 | p1 = 0; |
kenjiArai | 4:0f7797c2d3fe | 630 | } |
kenjiArai | 4:0f7797c2d3fe | 631 | res = f_read(&File1, Buff, cnt, &cnt); |
kenjiArai | 4:0f7797c2d3fe | 632 | if (res != FR_OK) { |
kenjiArai | 4:0f7797c2d3fe | 633 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 634 | break; |
kenjiArai | 4:0f7797c2d3fe | 635 | } |
kenjiArai | 4:0f7797c2d3fe | 636 | if (!cnt) break; |
kenjiArai | 4:0f7797c2d3fe | 637 | put_dump(Buff, ofs, cnt, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 638 | ofs += 16; |
kenjiArai | 4:0f7797c2d3fe | 639 | } |
kenjiArai | 4:0f7797c2d3fe | 640 | break; |
kenjiArai | 4:0f7797c2d3fe | 641 | |
kenjiArai | 4:0f7797c2d3fe | 642 | case 'r' : /* fr <len> - read file */ |
kenjiArai | 4:0f7797c2d3fe | 643 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 644 | p2 = 0; |
kenjiArai | 4:0f7797c2d3fe | 645 | t.reset(); |
kenjiArai | 4:0f7797c2d3fe | 646 | t.start(); |
kenjiArai | 4:0f7797c2d3fe | 647 | while (p1) { |
kenjiArai | 4:0f7797c2d3fe | 648 | if ((UINT)p1 >= blen) { |
kenjiArai | 4:0f7797c2d3fe | 649 | cnt = blen; |
kenjiArai | 4:0f7797c2d3fe | 650 | p1 -= blen; |
kenjiArai | 4:0f7797c2d3fe | 651 | } else { |
kenjiArai | 4:0f7797c2d3fe | 652 | cnt = p1; |
kenjiArai | 4:0f7797c2d3fe | 653 | p1 = 0; |
kenjiArai | 4:0f7797c2d3fe | 654 | } |
kenjiArai | 4:0f7797c2d3fe | 655 | res = f_read(&File1, Buff, cnt, &s2); |
kenjiArai | 4:0f7797c2d3fe | 656 | if (res != FR_OK) { |
kenjiArai | 4:0f7797c2d3fe | 657 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 658 | break; |
kenjiArai | 4:0f7797c2d3fe | 659 | } |
kenjiArai | 4:0f7797c2d3fe | 660 | p2 += s2; |
kenjiArai | 4:0f7797c2d3fe | 661 | if (cnt != s2) break; |
kenjiArai | 4:0f7797c2d3fe | 662 | } |
kenjiArai | 8:12621f1fcbbe | 663 | tim = t.elapsed_time().count(); |
kenjiArai | 4:0f7797c2d3fe | 664 | PRINTF("%lu bytes read with %lu kB/sec.\r\n", |
kenjiArai | 4:0f7797c2d3fe | 665 | p2, tim ? (p2 / tim) : 0); |
kenjiArai | 4:0f7797c2d3fe | 666 | break; |
kenjiArai | 4:0f7797c2d3fe | 667 | |
kenjiArai | 4:0f7797c2d3fe | 668 | case 'w' : /* fw <len> <val> - write file */ |
kenjiArai | 4:0f7797c2d3fe | 669 | if (!xatoi(&ptr, &p1) || !xatoi(&ptr, &p2)) break; |
kenjiArai | 4:0f7797c2d3fe | 670 | memset(Buff, (BYTE)p2, blen); |
kenjiArai | 4:0f7797c2d3fe | 671 | p2 = 0; |
kenjiArai | 4:0f7797c2d3fe | 672 | t.reset(); |
kenjiArai | 4:0f7797c2d3fe | 673 | t.start(); |
kenjiArai | 4:0f7797c2d3fe | 674 | while (p1) { |
kenjiArai | 4:0f7797c2d3fe | 675 | if ((UINT)p1 >= blen) { |
kenjiArai | 4:0f7797c2d3fe | 676 | cnt = blen; |
kenjiArai | 4:0f7797c2d3fe | 677 | p1 -= blen; |
kenjiArai | 4:0f7797c2d3fe | 678 | } else { |
kenjiArai | 4:0f7797c2d3fe | 679 | cnt = p1; |
kenjiArai | 4:0f7797c2d3fe | 680 | p1 = 0; |
kenjiArai | 4:0f7797c2d3fe | 681 | } |
kenjiArai | 4:0f7797c2d3fe | 682 | res = f_write(&File1, Buff, cnt, &s2); |
kenjiArai | 4:0f7797c2d3fe | 683 | if (res != FR_OK) { |
kenjiArai | 4:0f7797c2d3fe | 684 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 685 | break; |
kenjiArai | 4:0f7797c2d3fe | 686 | } |
kenjiArai | 4:0f7797c2d3fe | 687 | p2 += s2; |
kenjiArai | 4:0f7797c2d3fe | 688 | if (cnt != s2) break; |
kenjiArai | 4:0f7797c2d3fe | 689 | } |
kenjiArai | 8:12621f1fcbbe | 690 | tim = t.elapsed_time().count(); |
kenjiArai | 4:0f7797c2d3fe | 691 | PRINTF("%lu bytes written with %lu kB/sec.\r\n", |
kenjiArai | 4:0f7797c2d3fe | 692 | p2, tim ? (p2 / tim) : 0); |
kenjiArai | 4:0f7797c2d3fe | 693 | break; |
kenjiArai | 4:0f7797c2d3fe | 694 | |
kenjiArai | 4:0f7797c2d3fe | 695 | case 'n' : /* fn <org.name> <new.name> - Change name of an object */ |
kenjiArai | 4:0f7797c2d3fe | 696 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 697 | ptr2 = strchr(ptr, ' '); |
kenjiArai | 4:0f7797c2d3fe | 698 | if (!ptr2) break; |
kenjiArai | 4:0f7797c2d3fe | 699 | *ptr2++ = 0; |
kenjiArai | 4:0f7797c2d3fe | 700 | while (*ptr2 == ' ') ptr2++; |
kenjiArai | 4:0f7797c2d3fe | 701 | put_rc(f_rename(ptr, ptr2)); |
kenjiArai | 4:0f7797c2d3fe | 702 | break; |
kenjiArai | 4:0f7797c2d3fe | 703 | |
kenjiArai | 4:0f7797c2d3fe | 704 | case 'u' : /* fu <name> - Unlink an object */ |
kenjiArai | 4:0f7797c2d3fe | 705 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 706 | put_rc(f_unlink(ptr)); |
kenjiArai | 4:0f7797c2d3fe | 707 | break; |
kenjiArai | 4:0f7797c2d3fe | 708 | |
kenjiArai | 4:0f7797c2d3fe | 709 | case 'v' : /* fv - Truncate file */ |
kenjiArai | 4:0f7797c2d3fe | 710 | put_rc(f_truncate(&File1)); |
kenjiArai | 4:0f7797c2d3fe | 711 | break; |
kenjiArai | 4:0f7797c2d3fe | 712 | |
kenjiArai | 4:0f7797c2d3fe | 713 | case 'k' : /* fk <name> - Create a directory */ |
kenjiArai | 4:0f7797c2d3fe | 714 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 715 | put_rc(f_mkdir(ptr)); |
kenjiArai | 4:0f7797c2d3fe | 716 | break; |
kenjiArai | 4:0f7797c2d3fe | 717 | #if 0 |
kenjiArai | 4:0f7797c2d3fe | 718 | case 'a' : /* fa <atrr> <mask> <name> - Change attribute of an object */ |
kenjiArai | 4:0f7797c2d3fe | 719 | if (!xatoi(&ptr, &p1) || !xatoi(&ptr, &p2)) break; |
kenjiArai | 4:0f7797c2d3fe | 720 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 721 | put_rc(f_chmod(ptr, p1, p2)); |
kenjiArai | 4:0f7797c2d3fe | 722 | break; |
kenjiArai | 4:0f7797c2d3fe | 723 | #endif |
kenjiArai | 4:0f7797c2d3fe | 724 | #if 0 |
kenjiArai | 8:12621f1fcbbe | 725 | /* ft <year> <month> <day> <hour> <min> <sec> <name> |
kenjiArai | 8:12621f1fcbbe | 726 | - Change timestamp of an object */ |
kenjiArai | 4:0f7797c2d3fe | 727 | case 't' : |
kenjiArai | 4:0f7797c2d3fe | 728 | if (!xatoi(&ptr, &p1) || !xatoi(&ptr, &p2) || !xatoi(&ptr, &p3)) { |
kenjiArai | 4:0f7797c2d3fe | 729 | break; |
kenjiArai | 4:0f7797c2d3fe | 730 | } |
kenjiArai | 4:0f7797c2d3fe | 731 | Finfo.fdate = ((p1 - 1980) << 9) | ((p2 & 15) << 5) | (p3 & 31); |
kenjiArai | 4:0f7797c2d3fe | 732 | if (!xatoi(&ptr, &p1) || !xatoi(&ptr, &p2) || !xatoi(&ptr, &p3)) { |
kenjiArai | 4:0f7797c2d3fe | 733 | break; |
kenjiArai | 4:0f7797c2d3fe | 734 | } |
kenjiArai | 4:0f7797c2d3fe | 735 | Finfo.ftime = |
kenjiArai | 4:0f7797c2d3fe | 736 | ((p1 & 31) << 11) | ((p2 & 63) << 5) | ((p3 >> 1) & 31); |
kenjiArai | 4:0f7797c2d3fe | 737 | put_rc(f_utime(ptr, &Finfo)); |
kenjiArai | 4:0f7797c2d3fe | 738 | break; |
kenjiArai | 4:0f7797c2d3fe | 739 | #endif |
kenjiArai | 4:0f7797c2d3fe | 740 | #if FILCPY_NOTUSE == 0 |
kenjiArai | 4:0f7797c2d3fe | 741 | case 'x' : /* fx <src_name> <dst_name> - Copy file */ |
kenjiArai | 4:0f7797c2d3fe | 742 | while ( *ptr == ' ' ) { |
kenjiArai | 4:0f7797c2d3fe | 743 | ptr++; |
kenjiArai | 4:0f7797c2d3fe | 744 | } |
kenjiArai | 4:0f7797c2d3fe | 745 | ptr2 = strchr( ptr, ' ' ); |
kenjiArai | 4:0f7797c2d3fe | 746 | if ( !ptr2 ) { |
kenjiArai | 4:0f7797c2d3fe | 747 | break; |
kenjiArai | 4:0f7797c2d3fe | 748 | } |
kenjiArai | 4:0f7797c2d3fe | 749 | *ptr2++ = 0; |
kenjiArai | 4:0f7797c2d3fe | 750 | while ( *ptr2 == ' ' ) { |
kenjiArai | 4:0f7797c2d3fe | 751 | ptr2++; |
kenjiArai | 4:0f7797c2d3fe | 752 | } |
kenjiArai | 4:0f7797c2d3fe | 753 | f_res = f_open( &File1, ptr, FA_OPEN_EXISTING | FA_READ ); |
kenjiArai | 4:0f7797c2d3fe | 754 | PRINTF("Opening %s \r\n", ptr); |
kenjiArai | 4:0f7797c2d3fe | 755 | if ( f_res ) { |
kenjiArai | 4:0f7797c2d3fe | 756 | put_rc( (FRESULT)f_res ); |
kenjiArai | 4:0f7797c2d3fe | 757 | break; |
kenjiArai | 4:0f7797c2d3fe | 758 | } |
kenjiArai | 4:0f7797c2d3fe | 759 | f_res = f_open( &File2, ptr2, FA_CREATE_ALWAYS | FA_WRITE ); |
kenjiArai | 4:0f7797c2d3fe | 760 | PRINTF(" Creating %s \r\n", ptr2); |
kenjiArai | 4:0f7797c2d3fe | 761 | if ( f_res ) { |
kenjiArai | 4:0f7797c2d3fe | 762 | put_rc( (FRESULT)f_res ); |
kenjiArai | 4:0f7797c2d3fe | 763 | f_close( &File1 ); |
kenjiArai | 4:0f7797c2d3fe | 764 | break; |
kenjiArai | 4:0f7797c2d3fe | 765 | } |
kenjiArai | 4:0f7797c2d3fe | 766 | PRINTF("Copying file..."); |
kenjiArai | 4:0f7797c2d3fe | 767 | p1 = 0; |
kenjiArai | 4:0f7797c2d3fe | 768 | for ( ;; ) { |
kenjiArai | 4:0f7797c2d3fe | 769 | f_res = f_read( &File1, Buff, blen, &s1 ); |
kenjiArai | 4:0f7797c2d3fe | 770 | if ( f_res || s1 == 0 ) { |
kenjiArai | 4:0f7797c2d3fe | 771 | break; /* error or eof */ |
kenjiArai | 4:0f7797c2d3fe | 772 | } |
kenjiArai | 4:0f7797c2d3fe | 773 | f_res = f_write( &File2, Buff, s1, &s2 ); |
kenjiArai | 4:0f7797c2d3fe | 774 | p1 += s2; |
kenjiArai | 4:0f7797c2d3fe | 775 | if ( f_res || s2 < s1 ) { |
kenjiArai | 4:0f7797c2d3fe | 776 | break; /* error or disk full */ |
kenjiArai | 4:0f7797c2d3fe | 777 | } |
kenjiArai | 4:0f7797c2d3fe | 778 | } |
kenjiArai | 4:0f7797c2d3fe | 779 | f_close( &File1 ); |
kenjiArai | 4:0f7797c2d3fe | 780 | f_close( &File2 ); |
kenjiArai | 4:0f7797c2d3fe | 781 | crlf(); |
kenjiArai | 4:0f7797c2d3fe | 782 | break; |
kenjiArai | 4:0f7797c2d3fe | 783 | #endif |
kenjiArai | 4:0f7797c2d3fe | 784 | #if 0 |
kenjiArai | 4:0f7797c2d3fe | 785 | case 'x' : /* fx <src.name> <dst.name> - Copy a file */ |
kenjiArai | 4:0f7797c2d3fe | 786 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 787 | ptr2 = strchr(ptr, ' '); |
kenjiArai | 4:0f7797c2d3fe | 788 | if (!ptr2) break; |
kenjiArai | 4:0f7797c2d3fe | 789 | *ptr2++ = 0; |
kenjiArai | 4:0f7797c2d3fe | 790 | while (*ptr2 == ' ') ptr2++; |
kenjiArai | 4:0f7797c2d3fe | 791 | PRINTF("Opening \"%s\"", ptr); |
kenjiArai | 4:0f7797c2d3fe | 792 | res = f_open(&File1, ptr, FA_OPEN_EXISTING | FA_READ); |
kenjiArai | 4:0f7797c2d3fe | 793 | PUTS("\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 794 | if (res) { |
kenjiArai | 4:0f7797c2d3fe | 795 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 796 | break; |
kenjiArai | 4:0f7797c2d3fe | 797 | } |
kenjiArai | 4:0f7797c2d3fe | 798 | PRINTF("Creating \"%s\"", ptr2); |
kenjiArai | 4:0f7797c2d3fe | 799 | res = f_open(&File1, ptr2, FA_CREATE_ALWAYS | FA_WRITE); |
kenjiArai | 4:0f7797c2d3fe | 800 | PUTS("\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 801 | if (res) { |
kenjiArai | 4:0f7797c2d3fe | 802 | put_rc((FRESULT)res); |
kenjiArai | 4:0f7797c2d3fe | 803 | f_close(&File1); |
kenjiArai | 4:0f7797c2d3fe | 804 | break; |
kenjiArai | 4:0f7797c2d3fe | 805 | } |
kenjiArai | 4:0f7797c2d3fe | 806 | PRINTF("Copying file..."); |
kenjiArai | 4:0f7797c2d3fe | 807 | t.reset(); |
kenjiArai | 4:0f7797c2d3fe | 808 | t.start(); |
kenjiArai | 4:0f7797c2d3fe | 809 | p1 = 0; |
kenjiArai | 4:0f7797c2d3fe | 810 | for (;;) { |
kenjiArai | 4:0f7797c2d3fe | 811 | res = f_read(&File1, Buff, blen, &s1); |
kenjiArai | 4:0f7797c2d3fe | 812 | if (res || s1 == 0) break; /* error or eof */ |
kenjiArai | 4:0f7797c2d3fe | 813 | res = f_write(&File2, Buff, s1, &s2); |
kenjiArai | 4:0f7797c2d3fe | 814 | p1 += s2; |
kenjiArai | 4:0f7797c2d3fe | 815 | if (res || s2 < s1) break; /* error or disk full */ |
kenjiArai | 4:0f7797c2d3fe | 816 | } |
kenjiArai | 4:0f7797c2d3fe | 817 | tim = t.read_ms(); |
kenjiArai | 4:0f7797c2d3fe | 818 | PRINTF("\r\n%lu bytes copied with %lu kB/sec.\r\n", |
kenjiArai | 4:0f7797c2d3fe | 819 | p1, tim ? (p1 / tim) : 0); |
kenjiArai | 4:0f7797c2d3fe | 820 | f_close(&File1); |
kenjiArai | 4:0f7797c2d3fe | 821 | f_close(&File2); |
kenjiArai | 4:0f7797c2d3fe | 822 | break; |
kenjiArai | 4:0f7797c2d3fe | 823 | #endif |
kenjiArai | 4:0f7797c2d3fe | 824 | #if FF_FS_RPATH |
kenjiArai | 4:0f7797c2d3fe | 825 | case 'g' : /* fg <path> - Change current directory */ |
kenjiArai | 4:0f7797c2d3fe | 826 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 827 | put_rc(f_chdir(ptr)); |
kenjiArai | 4:0f7797c2d3fe | 828 | break; |
kenjiArai | 4:0f7797c2d3fe | 829 | #if FF_FS_RPATH >= 2 |
kenjiArai | 4:0f7797c2d3fe | 830 | case 'q' : /* fq - Show current dir path */ |
kenjiArai | 4:0f7797c2d3fe | 831 | res = f_getcwd(Linebuf, sizeof Linebuf); |
kenjiArai | 4:0f7797c2d3fe | 832 | if (res) |
kenjiArai | 4:0f7797c2d3fe | 833 | put_rc(res); |
kenjiArai | 4:0f7797c2d3fe | 834 | else |
kenjiArai | 4:0f7797c2d3fe | 835 | PRINTF("%s\r\n", Linebuf); |
kenjiArai | 4:0f7797c2d3fe | 836 | break; |
kenjiArai | 4:0f7797c2d3fe | 837 | #endif |
kenjiArai | 4:0f7797c2d3fe | 838 | #endif |
kenjiArai | 4:0f7797c2d3fe | 839 | #if FF_USE_LABEL |
kenjiArai | 4:0f7797c2d3fe | 840 | case 'b' : /* fb <name> - Set volume label */ |
kenjiArai | 4:0f7797c2d3fe | 841 | while (*ptr == ' ') ptr++; |
kenjiArai | 4:0f7797c2d3fe | 842 | put_rc(f_setlabel(ptr)); |
kenjiArai | 4:0f7797c2d3fe | 843 | break; |
kenjiArai | 4:0f7797c2d3fe | 844 | #endif /* FF_USE_LABEL */ |
kenjiArai | 4:0f7797c2d3fe | 845 | #if FF_USE_MKFS |
kenjiArai | 4:0f7797c2d3fe | 846 | case 'm' : /* fm <type> <csize> - Create file system */ |
kenjiArai | 4:0f7797c2d3fe | 847 | if (!xatoi(&ptr, &p2) || !xatoi(&ptr, &p3)) break; |
kenjiArai | 4:0f7797c2d3fe | 848 | PRINTF("The volume will be formatted. Are you sure? (Y/n)="); |
kenjiArai | 4:0f7797c2d3fe | 849 | get_line(Linebuf, sizeof Linebuf); |
kenjiArai | 4:0f7797c2d3fe | 850 | if (Linebuf[0] == 'Y') |
kenjiArai | 4:0f7797c2d3fe | 851 | put_rc(f_mkfs("", (BYTE)p2, (DWORD)p3, Buff, sizeof Buff)); |
kenjiArai | 4:0f7797c2d3fe | 852 | break; |
kenjiArai | 4:0f7797c2d3fe | 853 | #endif /* FF_USE_MKFS */ |
kenjiArai | 8:12621f1fcbbe | 854 | /* fz [<size>] - Change/Show R/W length for fr/fw/fx command */ |
kenjiArai | 4:0f7797c2d3fe | 855 | case 'z' : |
kenjiArai | 4:0f7797c2d3fe | 856 | if (xatoi(&ptr, &p1) && p1 >= 1 && p1 <= (long)sizeof Buff) |
kenjiArai | 4:0f7797c2d3fe | 857 | blen = p1; |
kenjiArai | 4:0f7797c2d3fe | 858 | PRINTF("blen=%u\r\n", blen); |
kenjiArai | 4:0f7797c2d3fe | 859 | break; |
kenjiArai | 4:0f7797c2d3fe | 860 | } |
kenjiArai | 4:0f7797c2d3fe | 861 | } |
kenjiArai | 4:0f7797c2d3fe | 862 | |
kenjiArai | 4:0f7797c2d3fe | 863 | static void memory_inf(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 864 | { |
kenjiArai | 4:0f7797c2d3fe | 865 | long p1, p2, p3; |
kenjiArai | 4:0f7797c2d3fe | 866 | |
kenjiArai | 4:0f7797c2d3fe | 867 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 868 | case 'd' : /* md[b|h|w] <address> [<count>] - Dump memory */ |
kenjiArai | 4:0f7797c2d3fe | 869 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 870 | case 'w': |
kenjiArai | 4:0f7797c2d3fe | 871 | p3 = DW_LONG; |
kenjiArai | 4:0f7797c2d3fe | 872 | break; |
kenjiArai | 4:0f7797c2d3fe | 873 | case 'h': |
kenjiArai | 4:0f7797c2d3fe | 874 | p3 = DW_SHORT; |
kenjiArai | 4:0f7797c2d3fe | 875 | break; |
kenjiArai | 4:0f7797c2d3fe | 876 | default: |
kenjiArai | 4:0f7797c2d3fe | 877 | p3 = DW_CHAR; |
kenjiArai | 4:0f7797c2d3fe | 878 | } |
kenjiArai | 4:0f7797c2d3fe | 879 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 880 | if (!xatoi(&ptr, &p2)) p2 = 128 / p3; |
kenjiArai | 4:0f7797c2d3fe | 881 | for (ptr = (char*)p1; p2 >= 16 / p3; ptr += 16, p2 -= 16 / p3) |
kenjiArai | 4:0f7797c2d3fe | 882 | put_dump(ptr, (DWORD)ptr, 16 / p3, p3); |
kenjiArai | 4:0f7797c2d3fe | 883 | if (p2) put_dump((BYTE*)ptr, (UINT)ptr, p2, p3); |
kenjiArai | 4:0f7797c2d3fe | 884 | break; |
kenjiArai | 4:0f7797c2d3fe | 885 | case 'f' : /* mf <address> <value> <count> - Fill memory */ |
kenjiArai | 4:0f7797c2d3fe | 886 | if (!xatoi(&ptr, &p1) || !xatoi(&ptr, &p2) || !xatoi(&ptr, &p3)) { |
kenjiArai | 4:0f7797c2d3fe | 887 | break; |
kenjiArai | 4:0f7797c2d3fe | 888 | } |
kenjiArai | 4:0f7797c2d3fe | 889 | while (p3--) { |
kenjiArai | 4:0f7797c2d3fe | 890 | *(BYTE*)p1 = (BYTE)p2; |
kenjiArai | 4:0f7797c2d3fe | 891 | p1++; |
kenjiArai | 4:0f7797c2d3fe | 892 | } |
kenjiArai | 4:0f7797c2d3fe | 893 | break; |
kenjiArai | 4:0f7797c2d3fe | 894 | case 'e' : /* me[b|h|w] <address> [<value> ...] - Edit memory */ |
kenjiArai | 4:0f7797c2d3fe | 895 | switch (*ptr++) { /* Get data width */ |
kenjiArai | 4:0f7797c2d3fe | 896 | case 'w': |
kenjiArai | 4:0f7797c2d3fe | 897 | p3 = DW_LONG; |
kenjiArai | 4:0f7797c2d3fe | 898 | break; |
kenjiArai | 4:0f7797c2d3fe | 899 | case 'h': |
kenjiArai | 4:0f7797c2d3fe | 900 | p3 = DW_SHORT; |
kenjiArai | 4:0f7797c2d3fe | 901 | break; |
kenjiArai | 4:0f7797c2d3fe | 902 | default: |
kenjiArai | 4:0f7797c2d3fe | 903 | p3 = DW_CHAR; |
kenjiArai | 4:0f7797c2d3fe | 904 | } |
kenjiArai | 4:0f7797c2d3fe | 905 | if (!xatoi(&ptr, &p1)) break; /* Get start address */ |
kenjiArai | 4:0f7797c2d3fe | 906 | if (xatoi(&ptr, &p2)) { /* 2nd parameter is given (direct mode) */ |
kenjiArai | 4:0f7797c2d3fe | 907 | do { |
kenjiArai | 4:0f7797c2d3fe | 908 | switch (p3) { |
kenjiArai | 4:0f7797c2d3fe | 909 | case DW_LONG: |
kenjiArai | 4:0f7797c2d3fe | 910 | *(DWORD*)p1 = (DWORD)p2; |
kenjiArai | 4:0f7797c2d3fe | 911 | break; |
kenjiArai | 4:0f7797c2d3fe | 912 | case DW_SHORT: |
kenjiArai | 4:0f7797c2d3fe | 913 | *(WORD*)p1 = (WORD)p2; |
kenjiArai | 4:0f7797c2d3fe | 914 | break; |
kenjiArai | 4:0f7797c2d3fe | 915 | default: |
kenjiArai | 4:0f7797c2d3fe | 916 | *(BYTE*)p1 = (BYTE)p2; |
kenjiArai | 4:0f7797c2d3fe | 917 | } |
kenjiArai | 4:0f7797c2d3fe | 918 | p1 += p3; |
kenjiArai | 4:0f7797c2d3fe | 919 | } while (xatoi(&ptr, &p2)); /* Get next value */ |
kenjiArai | 4:0f7797c2d3fe | 920 | break; |
kenjiArai | 4:0f7797c2d3fe | 921 | } |
kenjiArai | 4:0f7797c2d3fe | 922 | for (;;) { /* 2nd parameter is not given (interactive mode) */ |
kenjiArai | 4:0f7797c2d3fe | 923 | switch (p3) { |
kenjiArai | 4:0f7797c2d3fe | 924 | case DW_LONG: |
kenjiArai | 7:e7767b779c8c | 925 | PRINTF("%08X 0x%08X-", (unsigned int)p1, *(unsigned int*)p1); |
kenjiArai | 4:0f7797c2d3fe | 926 | break; |
kenjiArai | 4:0f7797c2d3fe | 927 | case DW_SHORT: |
kenjiArai | 7:e7767b779c8c | 928 | PRINTF("%08X 0x%04X-", (unsigned int)p1, *(WORD*)p1); |
kenjiArai | 4:0f7797c2d3fe | 929 | break; |
kenjiArai | 4:0f7797c2d3fe | 930 | default: |
kenjiArai | 7:e7767b779c8c | 931 | PRINTF("%08X 0x%02X-", (unsigned int)p1, *(BYTE*)p1); |
kenjiArai | 4:0f7797c2d3fe | 932 | } |
kenjiArai | 4:0f7797c2d3fe | 933 | ptr = Linebuf; |
kenjiArai | 4:0f7797c2d3fe | 934 | get_line(ptr, sizeof Linebuf); |
kenjiArai | 4:0f7797c2d3fe | 935 | if (*ptr == '.') break; |
kenjiArai | 4:0f7797c2d3fe | 936 | if ((BYTE)*ptr >= ' ') { |
kenjiArai | 4:0f7797c2d3fe | 937 | if (!xatoi(&ptr, &p2)) continue; |
kenjiArai | 4:0f7797c2d3fe | 938 | switch (p3) { |
kenjiArai | 4:0f7797c2d3fe | 939 | case DW_LONG: |
kenjiArai | 4:0f7797c2d3fe | 940 | *(DWORD*)p1 = (DWORD)p2; |
kenjiArai | 4:0f7797c2d3fe | 941 | break; |
kenjiArai | 4:0f7797c2d3fe | 942 | case DW_SHORT: |
kenjiArai | 4:0f7797c2d3fe | 943 | *(WORD*)p1 = (WORD)p2; |
kenjiArai | 4:0f7797c2d3fe | 944 | break; |
kenjiArai | 4:0f7797c2d3fe | 945 | default: |
kenjiArai | 4:0f7797c2d3fe | 946 | *(BYTE*)p1 = (BYTE)p2; |
kenjiArai | 4:0f7797c2d3fe | 947 | } |
kenjiArai | 4:0f7797c2d3fe | 948 | } |
kenjiArai | 4:0f7797c2d3fe | 949 | p1 += p3; |
kenjiArai | 4:0f7797c2d3fe | 950 | } |
kenjiArai | 4:0f7797c2d3fe | 951 | } |
kenjiArai | 4:0f7797c2d3fe | 952 | } |
kenjiArai | 4:0f7797c2d3fe | 953 | |
kenjiArai | 4:0f7797c2d3fe | 954 | static void disk_inf(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 955 | { |
kenjiArai | 4:0f7797c2d3fe | 956 | long p1, p2; |
kenjiArai | 4:0f7797c2d3fe | 957 | UINT s1; |
kenjiArai | 4:0f7797c2d3fe | 958 | BYTE res, b, drv = 0; |
kenjiArai | 4:0f7797c2d3fe | 959 | DWORD ofs = 0, sect = 0, blk[2]; |
kenjiArai | 4:0f7797c2d3fe | 960 | |
kenjiArai | 4:0f7797c2d3fe | 961 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 962 | case 'd' : /* dd [<pd#> <sect>] - Dump secrtor */ |
kenjiArai | 4:0f7797c2d3fe | 963 | if (!xatoi(&ptr, &p1)) { |
kenjiArai | 4:0f7797c2d3fe | 964 | p1 = drv; |
kenjiArai | 4:0f7797c2d3fe | 965 | p2 = sect; |
kenjiArai | 4:0f7797c2d3fe | 966 | } else { |
kenjiArai | 4:0f7797c2d3fe | 967 | if (!xatoi(&ptr, &p2)) break; |
kenjiArai | 4:0f7797c2d3fe | 968 | } |
kenjiArai | 4:0f7797c2d3fe | 969 | drv = (BYTE)p1; |
kenjiArai | 4:0f7797c2d3fe | 970 | sect = p2; |
kenjiArai | 4:0f7797c2d3fe | 971 | res = disk_read(drv, Buff, sect, 1); |
kenjiArai | 4:0f7797c2d3fe | 972 | if (res) { |
kenjiArai | 4:0f7797c2d3fe | 973 | PRINTF("rc=%d\r\n", (WORD)res); |
kenjiArai | 4:0f7797c2d3fe | 974 | break; |
kenjiArai | 4:0f7797c2d3fe | 975 | } |
kenjiArai | 4:0f7797c2d3fe | 976 | PRINTF("PD#:%u LBA:%lu\r\n", drv, sect++); |
kenjiArai | 4:0f7797c2d3fe | 977 | for (ptr=(char*)Buff, ofs = 0; ofs < 0x200; ptr += 16, ofs += 16) |
kenjiArai | 4:0f7797c2d3fe | 978 | put_dump((BYTE*)ptr, ofs, 16, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 979 | break; |
kenjiArai | 4:0f7797c2d3fe | 980 | |
kenjiArai | 4:0f7797c2d3fe | 981 | case 'i' : /* di <pd#> - Initialize disk */ |
kenjiArai | 4:0f7797c2d3fe | 982 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 983 | PRINTF("rc=%d\r\n", (WORD)disk_initialize((BYTE)p1)); |
kenjiArai | 4:0f7797c2d3fe | 984 | break; |
kenjiArai | 4:0f7797c2d3fe | 985 | |
kenjiArai | 4:0f7797c2d3fe | 986 | case 's' : /* ds <pd#> - Show disk status */ |
kenjiArai | 4:0f7797c2d3fe | 987 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 988 | if (disk_ioctl((BYTE)p1, GET_SECTOR_COUNT, &p2) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 989 | PRINTF("Drive size: %lu sectors\r\n", p2); |
kenjiArai | 4:0f7797c2d3fe | 990 | } |
kenjiArai | 4:0f7797c2d3fe | 991 | if (disk_ioctl((BYTE)p1, GET_BLOCK_SIZE, &p2) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 992 | PRINTF("Block size: %lu sectors\r\n", p2); |
kenjiArai | 4:0f7797c2d3fe | 993 | } |
kenjiArai | 4:0f7797c2d3fe | 994 | if (disk_ioctl((BYTE)p1, MMC_GET_TYPE, &b) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 995 | PRINTF("Media type: %u\r\n", b); |
kenjiArai | 4:0f7797c2d3fe | 996 | } |
kenjiArai | 4:0f7797c2d3fe | 997 | if (disk_ioctl((BYTE)p1, MMC_GET_CSD, Buff) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 998 | PUTS("CSD:\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 999 | put_dump(Buff, 0, 16, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 1000 | } |
kenjiArai | 4:0f7797c2d3fe | 1001 | if (disk_ioctl((BYTE)p1, MMC_GET_CID, Buff) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 1002 | PUTS("CID:\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 1003 | put_dump(Buff, 0, 16, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 1004 | } |
kenjiArai | 4:0f7797c2d3fe | 1005 | if (disk_ioctl((BYTE)p1, MMC_GET_OCR, Buff) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 1006 | PUTS("OCR:\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 1007 | put_dump(Buff, 0, 4, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 1008 | } |
kenjiArai | 4:0f7797c2d3fe | 1009 | if (disk_ioctl((BYTE)p1, MMC_GET_SDSTAT, Buff) == RES_OK) { |
kenjiArai | 4:0f7797c2d3fe | 1010 | PUTS("SD Status:\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 1011 | for (s1 = 0; s1 < 64; s1 += 16) { |
kenjiArai | 4:0f7797c2d3fe | 1012 | put_dump(Buff+s1, s1, 16, DW_CHAR); |
kenjiArai | 4:0f7797c2d3fe | 1013 | } |
kenjiArai | 4:0f7797c2d3fe | 1014 | } |
kenjiArai | 4:0f7797c2d3fe | 1015 | break; |
kenjiArai | 4:0f7797c2d3fe | 1016 | |
kenjiArai | 4:0f7797c2d3fe | 1017 | case 'c' : /* Disk ioctl */ |
kenjiArai | 4:0f7797c2d3fe | 1018 | switch (*ptr++) { |
kenjiArai | 4:0f7797c2d3fe | 1019 | case 's' : /* dcs <pd#> - CTRL_SYNC */ |
kenjiArai | 4:0f7797c2d3fe | 1020 | if (!xatoi(&ptr, &p1)) break; |
kenjiArai | 4:0f7797c2d3fe | 1021 | PRINTF("rc=%d\r\n", disk_ioctl((BYTE)p1, CTRL_SYNC, 0)); |
kenjiArai | 4:0f7797c2d3fe | 1022 | break; |
kenjiArai | 4:0f7797c2d3fe | 1023 | case 'e' : /* dce <pd#> <s.lba> <e.lba> - CTRL_TRIM */ |
kenjiArai | 4:0f7797c2d3fe | 1024 | if (!xatoi(&ptr, &p1) || |
kenjiArai | 4:0f7797c2d3fe | 1025 | !xatoi(&ptr, (long*)&blk[0]) || |
kenjiArai | 4:0f7797c2d3fe | 1026 | !xatoi(&ptr, (long*)&blk[1])) { |
kenjiArai | 4:0f7797c2d3fe | 1027 | break; |
kenjiArai | 4:0f7797c2d3fe | 1028 | } |
kenjiArai | 4:0f7797c2d3fe | 1029 | PRINTF("rc=%d\r\n", disk_ioctl((BYTE)p1, CTRL_TRIM, blk)); |
kenjiArai | 4:0f7797c2d3fe | 1030 | break; |
kenjiArai | 4:0f7797c2d3fe | 1031 | } |
kenjiArai | 4:0f7797c2d3fe | 1032 | } |
kenjiArai | 4:0f7797c2d3fe | 1033 | } |
kenjiArai | 4:0f7797c2d3fe | 1034 | |
kenjiArai | 4:0f7797c2d3fe | 1035 | void put_dump ( |
kenjiArai | 4:0f7797c2d3fe | 1036 | void* buff, /* Pointer to the array to be dumped */ |
kenjiArai | 4:0f7797c2d3fe | 1037 | unsigned long addr, /* Heading address value */ |
kenjiArai | 4:0f7797c2d3fe | 1038 | int len, /* Number of items to be dumped */ |
kenjiArai | 4:0f7797c2d3fe | 1039 | int width /* Size of the items (DW_CHAR, DW_SHORT, DW_LONG) */ |
kenjiArai | 4:0f7797c2d3fe | 1040 | ) |
kenjiArai | 4:0f7797c2d3fe | 1041 | { |
kenjiArai | 4:0f7797c2d3fe | 1042 | int i; |
kenjiArai | 4:0f7797c2d3fe | 1043 | unsigned char *bp; |
kenjiArai | 4:0f7797c2d3fe | 1044 | unsigned short *sp; |
kenjiArai | 4:0f7797c2d3fe | 1045 | unsigned long *lp; |
kenjiArai | 4:0f7797c2d3fe | 1046 | |
kenjiArai | 4:0f7797c2d3fe | 1047 | PRINTF( "%08lx ", addr ); /* address */ |
kenjiArai | 4:0f7797c2d3fe | 1048 | switch ( width ) { |
kenjiArai | 4:0f7797c2d3fe | 1049 | case DW_CHAR: |
kenjiArai | 4:0f7797c2d3fe | 1050 | bp = (unsigned char *)buff; |
kenjiArai | 4:0f7797c2d3fe | 1051 | for ( i = 0; i < len; i++ ) { /* Hexdecimal dump */ |
kenjiArai | 4:0f7797c2d3fe | 1052 | PRINTF( " %02x", bp[i] ); |
kenjiArai | 4:0f7797c2d3fe | 1053 | } |
kenjiArai | 4:0f7797c2d3fe | 1054 | PUTC(' '); |
kenjiArai | 4:0f7797c2d3fe | 1055 | for ( i = 0; i < len; i++ ) { /* ASCII dump */ |
kenjiArai | 4:0f7797c2d3fe | 1056 | PUTC( (bp[i] >= ' ' && bp[i] <= '~') ? bp[i] : '.' ); |
kenjiArai | 4:0f7797c2d3fe | 1057 | } |
kenjiArai | 4:0f7797c2d3fe | 1058 | break; |
kenjiArai | 4:0f7797c2d3fe | 1059 | case DW_SHORT: |
kenjiArai | 4:0f7797c2d3fe | 1060 | sp = (unsigned short *)buff; |
kenjiArai | 4:0f7797c2d3fe | 1061 | do { /* Hexdecimal dump */ |
kenjiArai | 4:0f7797c2d3fe | 1062 | PRINTF( " %04x", *sp++ ); |
kenjiArai | 4:0f7797c2d3fe | 1063 | } while ( --len ); |
kenjiArai | 4:0f7797c2d3fe | 1064 | break; |
kenjiArai | 4:0f7797c2d3fe | 1065 | case DW_LONG: |
kenjiArai | 4:0f7797c2d3fe | 1066 | lp = (unsigned long *)buff; |
kenjiArai | 4:0f7797c2d3fe | 1067 | do { /* Hexdecimal dump */ |
kenjiArai | 4:0f7797c2d3fe | 1068 | PRINTF( " %08lx", *lp++ ); |
kenjiArai | 4:0f7797c2d3fe | 1069 | } while ( --len ); |
kenjiArai | 4:0f7797c2d3fe | 1070 | break; |
kenjiArai | 4:0f7797c2d3fe | 1071 | } |
kenjiArai | 4:0f7797c2d3fe | 1072 | PUTS( "\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 1073 | } |
kenjiArai | 4:0f7797c2d3fe | 1074 | |
kenjiArai | 4:0f7797c2d3fe | 1075 | // RTC related subroutines |
kenjiArai | 4:0f7797c2d3fe | 1076 | void chk_and_set_time(char *ptr) |
kenjiArai | 4:0f7797c2d3fe | 1077 | { |
kenjiArai | 4:0f7797c2d3fe | 1078 | char buf[64]; |
kenjiArai | 4:0f7797c2d3fe | 1079 | |
kenjiArai | 4:0f7797c2d3fe | 1080 | long p1; |
kenjiArai | 4:0f7797c2d3fe | 1081 | struct tm t; |
kenjiArai | 4:0f7797c2d3fe | 1082 | time_t seconds; |
kenjiArai | 4:0f7797c2d3fe | 1083 | |
kenjiArai | 4:0f7797c2d3fe | 1084 | if (xatoi(&ptr, &p1)) { |
kenjiArai | 4:0f7797c2d3fe | 1085 | t.tm_year = (uint8_t)p1 + 100; |
kenjiArai | 8:12621f1fcbbe | 1086 | printf("Year:%ld ",p1); |
kenjiArai | 4:0f7797c2d3fe | 1087 | xatoi( &ptr, &p1 ); |
kenjiArai | 4:0f7797c2d3fe | 1088 | t.tm_mon = (uint8_t)p1 - 1; |
kenjiArai | 8:12621f1fcbbe | 1089 | printf("Month:%ld ",p1); |
kenjiArai | 4:0f7797c2d3fe | 1090 | xatoi( &ptr, &p1 ); |
kenjiArai | 4:0f7797c2d3fe | 1091 | t.tm_mday = (uint8_t)p1; |
kenjiArai | 8:12621f1fcbbe | 1092 | printf("Day:%ld ",p1); |
kenjiArai | 4:0f7797c2d3fe | 1093 | xatoi( &ptr, &p1 ); |
kenjiArai | 4:0f7797c2d3fe | 1094 | t.tm_hour = (uint8_t)p1; |
kenjiArai | 8:12621f1fcbbe | 1095 | printf("Hour:%ld ",p1); |
kenjiArai | 4:0f7797c2d3fe | 1096 | xatoi( &ptr, &p1 ); |
kenjiArai | 4:0f7797c2d3fe | 1097 | t.tm_min = (uint8_t)p1; |
kenjiArai | 8:12621f1fcbbe | 1098 | printf("Min:%ld ",p1); |
kenjiArai | 4:0f7797c2d3fe | 1099 | xatoi( &ptr, &p1 ); |
kenjiArai | 4:0f7797c2d3fe | 1100 | t.tm_sec = (uint8_t)p1; |
kenjiArai | 8:12621f1fcbbe | 1101 | printf("Sec: %ld \r\n",p1); |
kenjiArai | 4:0f7797c2d3fe | 1102 | seconds = mktime(&t); |
kenjiArai | 4:0f7797c2d3fe | 1103 | set_time(seconds); |
kenjiArai | 4:0f7797c2d3fe | 1104 | } else { |
kenjiArai | 4:0f7797c2d3fe | 1105 | seconds = time(NULL); |
kenjiArai | 4:0f7797c2d3fe | 1106 | } |
kenjiArai | 4:0f7797c2d3fe | 1107 | strftime(buf, 50, " %B %d,'%y, %H:%M:%S\r\n", localtime(&seconds)); |
kenjiArai | 8:12621f1fcbbe | 1108 | printf("[Time] %s", buf); |
kenjiArai | 4:0f7797c2d3fe | 1109 | } |
kenjiArai | 4:0f7797c2d3fe | 1110 | |
kenjiArai | 4:0f7797c2d3fe | 1111 | // Get key input data |
kenjiArai | 4:0f7797c2d3fe | 1112 | void get_line (char *buff, int len) |
kenjiArai | 4:0f7797c2d3fe | 1113 | { |
kenjiArai | 4:0f7797c2d3fe | 1114 | char c; |
kenjiArai | 4:0f7797c2d3fe | 1115 | int idx = 0; |
kenjiArai | 4:0f7797c2d3fe | 1116 | |
kenjiArai | 4:0f7797c2d3fe | 1117 | for (;;) { |
kenjiArai | 8:12621f1fcbbe | 1118 | //DEBUG_LINE |
kenjiArai | 4:0f7797c2d3fe | 1119 | c = GETC(); |
kenjiArai | 4:0f7797c2d3fe | 1120 | // Added by Kenji Arai / JH1PJL May 9th, 2010 |
kenjiArai | 4:0f7797c2d3fe | 1121 | if (c == '\r') { |
kenjiArai | 4:0f7797c2d3fe | 1122 | buff[idx++] = c; |
kenjiArai | 4:0f7797c2d3fe | 1123 | break; |
kenjiArai | 4:0f7797c2d3fe | 1124 | } |
kenjiArai | 4:0f7797c2d3fe | 1125 | if ((c == '\b') && idx) { |
kenjiArai | 4:0f7797c2d3fe | 1126 | idx--; |
kenjiArai | 4:0f7797c2d3fe | 1127 | PUTC(c); |
kenjiArai | 4:0f7797c2d3fe | 1128 | PUTC(' '); |
kenjiArai | 4:0f7797c2d3fe | 1129 | PUTC(c); |
kenjiArai | 4:0f7797c2d3fe | 1130 | } |
kenjiArai | 4:0f7797c2d3fe | 1131 | if (((uint8_t)c >= ' ') && (idx < len - 1)) { |
kenjiArai | 4:0f7797c2d3fe | 1132 | buff[idx++] = c; |
kenjiArai | 4:0f7797c2d3fe | 1133 | PUTC(c); |
kenjiArai | 4:0f7797c2d3fe | 1134 | } |
kenjiArai | 4:0f7797c2d3fe | 1135 | } |
kenjiArai | 4:0f7797c2d3fe | 1136 | buff[idx] = 0; |
kenjiArai | 4:0f7797c2d3fe | 1137 | PUTS("\r\n"); |
kenjiArai | 4:0f7797c2d3fe | 1138 | } |
kenjiArai | 4:0f7797c2d3fe | 1139 | |
kenjiArai | 4:0f7797c2d3fe | 1140 | /* Outpur LF & CR */ |
kenjiArai | 4:0f7797c2d3fe | 1141 | void crlf( void ) |
kenjiArai | 4:0f7797c2d3fe | 1142 | { |
kenjiArai | 4:0f7797c2d3fe | 1143 | PRINTF( "\r\n" ); |
kenjiArai | 4:0f7797c2d3fe | 1144 | } |
kenjiArai | 4:0f7797c2d3fe | 1145 | |
kenjiArai | 4:0f7797c2d3fe | 1146 | /* Check key input */ |
kenjiArai | 4:0f7797c2d3fe | 1147 | unsigned int check_hit_key (void) |
kenjiArai | 4:0f7797c2d3fe | 1148 | { |
kenjiArai | 4:0f7797c2d3fe | 1149 | return ( READABLE() ); |
kenjiArai | 4:0f7797c2d3fe | 1150 | } |
kenjiArai | 4:0f7797c2d3fe | 1151 | |
kenjiArai | 4:0f7797c2d3fe | 1152 | /*----------------------------------------------*/ |
kenjiArai | 4:0f7797c2d3fe | 1153 | /* Get a value of the string */ |
kenjiArai | 4:0f7797c2d3fe | 1154 | /*----------------------------------------------*/ |
kenjiArai | 4:0f7797c2d3fe | 1155 | /* "123 -5 0x3ff 0b1111 0377 w " |
kenjiArai | 4:0f7797c2d3fe | 1156 | ^ 1st call returns 123 and next ptr |
kenjiArai | 4:0f7797c2d3fe | 1157 | ^ 2nd call returns -5 and next ptr |
kenjiArai | 4:0f7797c2d3fe | 1158 | ^ 3rd call returns 1023 and next ptr |
kenjiArai | 4:0f7797c2d3fe | 1159 | ^ 4th call returns 15 and next ptr |
kenjiArai | 4:0f7797c2d3fe | 1160 | ^ 5th call returns 255 and next ptr |
kenjiArai | 4:0f7797c2d3fe | 1161 | ^ 6th call fails and returns 0 |
kenjiArai | 4:0f7797c2d3fe | 1162 | */ |
kenjiArai | 4:0f7797c2d3fe | 1163 | int xatoi ( /* 0:Failed, 1:Successful */ |
kenjiArai | 4:0f7797c2d3fe | 1164 | char **str, /* Pointer to pointer to the string */ |
kenjiArai | 4:0f7797c2d3fe | 1165 | long *res /* Pointer to the valiable to store the value */ |
kenjiArai | 4:0f7797c2d3fe | 1166 | ) |
kenjiArai | 4:0f7797c2d3fe | 1167 | { |
kenjiArai | 4:0f7797c2d3fe | 1168 | unsigned long val; |
kenjiArai | 4:0f7797c2d3fe | 1169 | unsigned char c, r, s = 0; |
kenjiArai | 4:0f7797c2d3fe | 1170 | |
kenjiArai | 4:0f7797c2d3fe | 1171 | *res = 0; |
kenjiArai | 4:0f7797c2d3fe | 1172 | while ( (c = **str) == ' ' ) { |
kenjiArai | 4:0f7797c2d3fe | 1173 | (*str)++; /* Skip leading spaces */ |
kenjiArai | 4:0f7797c2d3fe | 1174 | } |
kenjiArai | 4:0f7797c2d3fe | 1175 | if ( c == '-' ) { /* negative? */ |
kenjiArai | 4:0f7797c2d3fe | 1176 | s = 1; |
kenjiArai | 4:0f7797c2d3fe | 1177 | c = *(++(*str)); |
kenjiArai | 4:0f7797c2d3fe | 1178 | } |
kenjiArai | 4:0f7797c2d3fe | 1179 | if ( c == '0' ) { |
kenjiArai | 4:0f7797c2d3fe | 1180 | c = *(++(*str)); |
kenjiArai | 4:0f7797c2d3fe | 1181 | switch (c) { |
kenjiArai | 4:0f7797c2d3fe | 1182 | case 'x': /* hexdecimal */ |
kenjiArai | 4:0f7797c2d3fe | 1183 | r = 16; |
kenjiArai | 4:0f7797c2d3fe | 1184 | c = *(++(*str)); |
kenjiArai | 4:0f7797c2d3fe | 1185 | break; |
kenjiArai | 4:0f7797c2d3fe | 1186 | case 'b': /* binary */ |
kenjiArai | 4:0f7797c2d3fe | 1187 | r = 2; |
kenjiArai | 4:0f7797c2d3fe | 1188 | c = *(++(*str)); |
kenjiArai | 4:0f7797c2d3fe | 1189 | break; |
kenjiArai | 4:0f7797c2d3fe | 1190 | default: |
kenjiArai | 4:0f7797c2d3fe | 1191 | if ( c <= ' ' ) return 1; /* single zero */ |
kenjiArai | 4:0f7797c2d3fe | 1192 | if ( c < '0' || c > '9' ) return 0; /* invalid char */ |
kenjiArai | 4:0f7797c2d3fe | 1193 | r = 8; /* octal */ |
kenjiArai | 4:0f7797c2d3fe | 1194 | } |
kenjiArai | 4:0f7797c2d3fe | 1195 | } else { |
kenjiArai | 4:0f7797c2d3fe | 1196 | if ( c < '0' || c > '9' ) return 0; /* EOL or invalid char */ |
kenjiArai | 4:0f7797c2d3fe | 1197 | r = 10; /* decimal */ |
kenjiArai | 4:0f7797c2d3fe | 1198 | } |
kenjiArai | 4:0f7797c2d3fe | 1199 | val = 0; |
kenjiArai | 4:0f7797c2d3fe | 1200 | while ( c > ' ' ) { |
kenjiArai | 4:0f7797c2d3fe | 1201 | if ( c >= 'a' ) { |
kenjiArai | 4:0f7797c2d3fe | 1202 | c -= 0x20; |
kenjiArai | 4:0f7797c2d3fe | 1203 | } |
kenjiArai | 4:0f7797c2d3fe | 1204 | c -= '0'; |
kenjiArai | 4:0f7797c2d3fe | 1205 | if ( c >= 17 ) { |
kenjiArai | 4:0f7797c2d3fe | 1206 | c -= 7; |
kenjiArai | 4:0f7797c2d3fe | 1207 | if ( c <= 9 ) { |
kenjiArai | 4:0f7797c2d3fe | 1208 | return 0; /* invalid char */ |
kenjiArai | 4:0f7797c2d3fe | 1209 | } |
kenjiArai | 4:0f7797c2d3fe | 1210 | } |
kenjiArai | 4:0f7797c2d3fe | 1211 | if ( c >= r ) { |
kenjiArai | 4:0f7797c2d3fe | 1212 | return 0; /* invalid char for current radix */ |
kenjiArai | 4:0f7797c2d3fe | 1213 | } |
kenjiArai | 4:0f7797c2d3fe | 1214 | val = val * r + c; |
kenjiArai | 4:0f7797c2d3fe | 1215 | c = *(++(*str)); |
kenjiArai | 4:0f7797c2d3fe | 1216 | } |
kenjiArai | 4:0f7797c2d3fe | 1217 | if (s) val = 0 - val; /* apply sign if needed */ |
kenjiArai | 4:0f7797c2d3fe | 1218 | *res = val; |
kenjiArai | 4:0f7797c2d3fe | 1219 | return 1; |
kenjiArai | 4:0f7797c2d3fe | 1220 | } |