common/cmd_fat.c

   1 /*
   2  * (C) Copyright 2002
   3  * Richard Jones, rjones@nexus-tech.net
   4  *
   5  * See file CREDITS for list of people who contributed to this
   6  * project.
   7  *
   8  * This program is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU General Public License as
  10  * published by the Free Software Foundation; either version 2 of
  11  * the License, or (at your option) any later version.
  12  *
  13  * This program is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16  * GNU General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * along with this program; if not, write to the Free Software
  20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  21  * MA 02111-1307 USA
  22  */
  23
  24 /*
  25  * Boot support
  26  */
  27 #include <common.h>
  28 #include <command.h>
  29 #include <s_record.h>
  30 #include <net.h>
  31 #include <ata.h>
  32 #include <part.h>
  33 #include <fat.h>
  34
  35
  36 int do_fat_fsload (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
  37 {
  38         long size;
  39         unsigned long offset;
  40         unsigned long count;
  41         char buf [12];
  42         block_dev_desc_t *dev_desc=NULL;
  43         int dev=0;
  44         int part=1;
  45         char *ep;
  46
  47         if (argc < 5) {
  48                 printf ("usage: fatload <interface> <dev[:part]> <addr> <filename> [bytes]\n");
  49                 return 1;
  50         }
  51         dev = (int)simple_strtoul (argv[2], &ep, 16);
  52         dev_desc=get_dev(argv[1],dev);
  53         if (dev_desc==NULL) {
  54                 puts ("\n** Invalid boot device **\n");
  55                 return 1;
  56         }
  57         if (*ep) {
  58                 if (*ep != ':') {
  59                         puts ("\n** Invalid boot device, use `dev[:part]' **\n");
  60                         return 1;
  61                 }
  62                 part = (int)simple_strtoul(++ep, NULL, 16);
  63         }
  64         if (fat_register_device(dev_desc,part)!=0) {
  65                 printf ("\n** Unable to use %s %d:%d for fatload **\n",argv[1],dev,part);
  66                 return 1;
  67         }
  68         offset = simple_strtoul (argv[3], NULL, 16);
  69         if (argc == 6)
  70                 count = simple_strtoul (argv[5], NULL, 16);
  71         else
  72                 count = 0;
  73         size = file_fat_read (argv[4], (unsigned char *) offset, count);
  74
  75         if(size==-1) {
  76                 printf("\n** Unable to read \"%s\" from %s %d:%d **\n",argv[4],argv[1],dev,part);
  77                 return 1;
  78         }
  79
  80         printf ("\n%ld bytes read\n", size);
  81
  82         sprintf(buf, "%lX", size);
  83         setenv("filesize", buf);
  84
  85         return 0;
  86 }
  87
  88
  89 U_BOOT_CMD(
  90         fatload,        6,      0,      do_fat_fsload,
  91         "fatload - load binary file from a dos filesystem\n",
  92         "<interface> <dev[:part]>  <addr> <filename> [bytes]\n"
  93         "    - load binary file 'filename' from 'dev' on 'interface'\n"
  94         "      to address 'addr' from dos filesystem\n"
  95 );
  96
  97 int do_fat_ls (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
  98 {
  99         char *filename = "/";
 100         int ret;
 101         int dev=0;
 102         int part=1;
 103         char *ep;
 104         block_dev_desc_t *dev_desc=NULL;
 105
 106         if (argc < 3) {
 107                 printf ("usage: fatls <interface> <dev[:part]> [directory]\n");
 108                 return (0);
 109         }
 110         dev = (int)simple_strtoul (argv[2], &ep, 16);
 111         dev_desc=get_dev(argv[1],dev);
 112         if (dev_desc==NULL) {
 113                 puts ("\n** Invalid boot device **\n");
 114                 return 1;
 115         }
 116         if (*ep) {
 117                 if (*ep != ':') {
 118                         puts ("\n** Invalid boot device, use `dev[:part]' **\n");
 119                         return 1;
 120                 }
 121                 part = (int)simple_strtoul(++ep, NULL, 16);
 122         }
 123         if (fat_register_device(dev_desc,part)!=0) {
 124                 printf ("\n** Unable to use %s %d:%d for fatls **\n",argv[1],dev,part);
 125                 return 1;
 126         }
 127         if (argc == 4)
 128                 ret = file_fat_ls (argv[3]);
 129         else
 130                 ret = file_fat_ls (filename);
 131
 132         if(ret!=0)
 133                 printf("No Fat FS detected\n");
 134         return (ret);
 135 }
 136
 137 U_BOOT_CMD(
 138         fatls,  4,      1,      do_fat_ls,
 139         "fatls   - list files in a directory (default /)\n",
 140         "<interface> <dev[:part]> [directory]\n"
 141         "    - list files from 'dev' on 'interface' in a 'directory'\n"
 142 );
 143
 144 int do_fat_fsinfo (cmd_tbl_t *cmdtp, int flag, int argc, char *argv[])
 145 {
 146         int dev=0;
 147         int part=1;
 148         char *ep;
 149         block_dev_desc_t *dev_desc=NULL;
 150
 151         if (argc < 2) {
 152                 printf ("usage: fatinfo <interface> <dev[:part]>\n");
 153                 return (0);
 154         }
 155         dev = (int)simple_strtoul (argv[2], &ep, 16);
 156         dev_desc=get_dev(argv[1],dev);
 157         if (dev_desc==NULL) {
 158                 puts ("\n** Invalid boot device **\n");
 159                 return 1;
 160         }
 161         if (*ep) {
 162                 if (*ep != ':') {
 163                         puts ("\n** Invalid boot device, use `dev[:part]' **\n");
 164                         return 1;
 165                 }
 166                 part = (int)simple_strtoul(++ep, NULL, 16);
 167         }
 168         if (fat_register_device(dev_desc,part)!=0) {
 169                 printf ("\n** Unable to use %s %d:%d for fatinfo **\n",argv[1],dev,part);
 170                 return 1;
 171         }
 172         return (file_fat_detectfs ());
 173 }
 174
 175 U_BOOT_CMD(
 176         fatinfo,        3,      1,      do_fat_fsinfo,
 177         "fatinfo - print information about filesystem\n",
 178         "<interface> <dev[:part]>\n"
 179         "    - print information about filesystem from 'dev' on 'interface'\n"
 180 );
 181
 182 #ifdef NOT_IMPLEMENTED_YET
 183 /* find first device whose first partition is a DOS filesystem */
 184 int find_fat_partition (void)
 185 {
 186         int i, j;
 187         block_dev_desc_t *dev_desc;
 188         unsigned char *part_table;
 189         unsigned char buffer[ATA_BLOCKSIZE];
 190
 191         for (i = 0; i < CONFIG_SYS_IDE_MAXDEVICE; i++) {
 192                 dev_desc = ide_get_dev (i);
 193                 if (!dev_desc) {
 194                         debug ("couldn't get ide device!\n");
 195                         return (-1);
 196                 }
 197                 if (dev_desc->part_type == PART_TYPE_DOS) {
 198                         if (dev_desc->
 199                                 block_read (dev_desc->dev, 0, 1, (ulong *) buffer) != 1) {
 200                                 debug ("can't perform block_read!\n");
 201                                 return (-1);
 202                         }
 203                         part_table = &buffer[0x1be];    /* start with partition #4 */
 204                         for (j = 0; j < 4; j++) {
 205                                 if ((part_table[4] == 1 ||      /* 12-bit FAT */
 206                                      part_table[4] == 4 ||      /* 16-bit FAT */
 207                                      part_table[4] == 6) &&     /* > 32Meg part */
 208                                     part_table[0] == 0x80) {    /* bootable? */
 209                                         curr_dev = i;
 210                                         part_offset = part_table[11];
 211                                         part_offset <<= 8;
 212                                         part_offset |= part_table[10];
 213                                         part_offset <<= 8;
 214                                         part_offset |= part_table[9];
 215                                         part_offset <<= 8;
 216                                         part_offset |= part_table[8];
 217                                         debug ("found partition start at %ld\n", part_offset);
 218                                         return (0);
 219                                 }
 220                                 part_table += 16;
 221                         }
 222                 }
 223         }
 224
 225         debug ("no valid devices found!\n");
 226         return (-1);
 227 }
 228
 229 int
 230 do_fat_dump (cmd_tbl_t *cmdtp, bd_t *bd, int flag, int argc, char *argv[])
 231 {
 232         __u8 block[1024];
 233         int ret;
 234         int bknum;
 235
 236         ret = 0;
 237
 238         if (argc != 2) {
 239                 printf ("needs an argument!\n");
 240                 return (0);
 241         }
 242
 243         bknum = simple_strtoul (argv[1], NULL, 10);
 244
 245         if (disk_read (0, bknum, block) != 0) {
 246                 printf ("Error: reading block\n");
 247                 return -1;
 248         }
 249         printf ("FAT dump: %d\n", bknum);
 250         hexdump (512, block);
 251
 252         return (ret);
 253 }
 254
 255 int disk_read (__u32 startblock, __u32 getsize, __u8 *bufptr)
 256 {
 257         ulong tot;
 258         block_dev_desc_t *dev_desc;
 259
 260         if (curr_dev < 0) {
 261                 if (find_fat_partition () != 0)
 262                         return (-1);
 263         }
 264
 265         dev_desc = ide_get_dev (curr_dev);
 266         if (!dev_desc) {
 267                 debug ("couldn't get ide device\n");
 268                 return (-1);
 269         }
 270
 271         tot = dev_desc->block_read (0, startblock + part_offset,
 272                                     getsize, (ulong *) bufptr);
 273
 274         /* should we do this here?
 275            flush_cache ((ulong)buf, cnt*ide_dev_desc[device].blksz);
 276          */
 277
 278         if (tot == getsize)
 279                 return (0);
 280
 281         debug ("unable to read from device!\n");
 282
 283         return (-1);
 284 }
 285
 286
 287 static int isprint (unsigned char ch)
 288 {
 289         if (ch >= 32 && ch < 127)
 290                 return (1);
 291
 292         return (0);
 293 }
 294
 295
 296 void hexdump (int cnt, unsigned char *data)
 297 {
 298         int i;
 299         int run;
 300         int offset;
 301
 302         offset = 0;
 303         while (cnt) {
 304                 printf ("%04X : ", offset);
 305                 if (cnt >= 16)
 306                         run = 16;
 307                 else
 308                         run = cnt;
 309                 cnt -= run;
 310                 for (i = 0; i < run; i++)
 311                         printf ("%02X ", (unsigned int) data[i]);
 312                 printf (": ");
 313                 for (i = 0; i < run; i++)
 314                         printf ("%c", isprint (data[i]) ? data[i] : '.');
 315                 printf ("\n");
 316                 data = &data[16];
 317                 offset += run;
 318         }
 319 }
 320 #endif  /* NOT_IMPLEMENTED_YET */