firmware/common/disk.c

   1 /***************************************************************************
   2  *             __________               __   ___.
   3  *   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4  *   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5  *   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6  *   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7  *                     \/            \/     \/    \/            \/
   8  * $Id$
   9  *
  10  * Copyright (C) 2002 by Björn Stenberg
  11  *
  12  * This program is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU General Public License
  14  * as published by the Free Software Foundation; either version 2
  15  * of the License, or (at your option) any later version.
  16  *
  17  * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
  18  * KIND, either express or implied.
  19  *
  20  ****************************************************************************/
  21 #include <stdio.h>
  22 #include "kernel.h"
  23 #include "storage.h"
  24 #include "debug.h"
  25 #include "fat.h"
  26 #include "dir.h" /* for release_dirs() */
  27 #include "file.h" /* for release_files() */
  28 #include "disk.h"
  29 #include <string.h>
  30
  31 /* Partition table entry layout:
  32    -----------------------
  33    0: 0x80 - active
  34    1: starting head
  35    2: starting sector
  36    3: starting cylinder
  37    4: partition type
  38    5: end head
  39    6: end sector
  40    7: end cylinder
  41    8-11: starting sector (LBA)
  42    12-15: nr of sectors in partition
  43 */
  44
  45 #define BYTES2INT32(array,pos)                  \
  46     ((long)array[pos] | ((long)array[pos+1] << 8 ) |        \
  47      ((long)array[pos+2] << 16 ) | ((long)array[pos+3] << 24 ))
  48
  49 static const unsigned char fat_partition_types[] = {
  50     0x0b, 0x1b, /* FAT32 + hidden variant */
  51     0x0c, 0x1c, /* FAT32 (LBA) + hidden variant */
  52 #ifdef HAVE_FAT16SUPPORT
  53     0x04, 0x14, /* FAT16 <= 32MB + hidden variant */
  54     0x06, 0x16, /* FAT16  > 32MB + hidden variant */
  55     0x0e, 0x1e, /* FAT16 (LBA) + hidden variant */
  56 #endif
  57 };
  58
  59 static struct partinfo part[NUM_DRIVES*4]; /* space for 4 partitions on 2 drives */
  60 static int vol_drive[NUM_VOLUMES]; /* mounted to which drive (-1 if none) */
  61 static struct mutex disk_mutex;
  62
  63 #ifdef MAX_LOG_SECTOR_SIZE
  64 static int disk_sector_multiplier[NUM_DRIVES] = {1};
  65
  66 int disk_get_sector_multiplier(IF_MD_NONVOID(int drive))
  67 {
  68     #ifdef HAVE_MULTIDRIVE
  69     return disk_sector_multiplier[drive];
  70     #else
  71     return disk_sector_multiplier[0];
  72     #endif
  73 }
  74 #endif
  75
  76 struct partinfo* disk_init(IF_MD_NONVOID(int drive))
  77 {
  78     int i;
  79 #ifdef HAVE_MULTIDRIVE
  80     /* For each drive, start at a different position, in order not to destroy
  81        the first entry of drive 0.
  82        That one is needed to calculate config sector position. */
  83     struct partinfo* pinfo = &part[drive*4];
  84     if ((size_t)drive >= sizeof(part)/sizeof(*part)/4)
  85         return NULL; /* out of space in table */
  86 #else
  87     struct partinfo* pinfo = part;
  88     const int drive = 0;
  89     (void)drive;
  90 #endif
  91
  92     unsigned char* sector = fat_get_sector_buffer();
  93     storage_read_sectors(IF_MD2(drive,) 0,1, sector);
  94     /* check that the boot sector is initialized */
  95     if ( (sector[510] != 0x55) ||
  96          (sector[511] != 0xaa)) {
  97         fat_release_sector_buffer();
  98         DEBUGF("Bad boot sector signature\n");
  99         return NULL;
 100     }
 101
 102     /* parse partitions */
 103     for ( i=0; i<4; i++ ) {
 104         unsigned char* ptr = sector + 0x1be + 16*i;
 105         pinfo[i].type  = ptr[4];
 106         pinfo[i].start = BYTES2INT32(ptr, 8);
 107         pinfo[i].size  = BYTES2INT32(ptr, 12);
 108
 109         DEBUGF("Part%d: Type %02x, start: %08lx size: %08lx\n",
 110                i,pinfo[i].type,pinfo[i].start,pinfo[i].size);
 111
 112         /* extended? */
 113         if ( pinfo[i].type == 5 ) {
 114             /* not handled yet */
 115         }
 116     }
 117     fat_release_sector_buffer();
 118     return pinfo;
 119 }
 120
 121 struct partinfo* disk_partinfo(int partition)
 122 {
 123     return &part[partition];
 124 }
 125
 126 void disk_init_subsystem(void)
 127 {
 128    mutex_init(&disk_mutex);
 129 }
 130
 131 int disk_mount_all(void)
 132 {
 133     int mounted=0;
 134     int i;
 135
 136 #ifdef HAVE_HOTSWAP
 137     mutex_lock(&disk_mutex);
 138 #endif
 139
 140     fat_init(); /* reset all mounted partitions */
 141     for (i=0; i<NUM_VOLUMES; i++)
 142         vol_drive[i] = -1; /* mark all as unassigned */
 143
 144 #ifndef HAVE_MULTIDRIVE
 145     mounted = disk_mount(0);
 146 #else
 147     for(i=0;i<NUM_DRIVES;i++)
 148     {
 149 #ifdef HAVE_HOTSWAP
 150         if (storage_present(i))
 151 #endif
 152             mounted += disk_mount(i);
 153     }
 154 #endif
 155
 156 #ifdef HAVE_HOTSWAP
 157     mutex_unlock(&disk_mutex);
 158 #endif
 159     return mounted;
 160 }
 161
 162 static int get_free_volume(void)
 163 {
 164     int i;
 165     for (i=0; i<NUM_VOLUMES; i++)
 166     {
 167         if (vol_drive[i] == -1) /* unassigned? */
 168             return i;
 169     }
 170
 171     return -1; /* none found */
 172 }
 173
 174 int disk_mount(int drive)
 175 {
 176     int mounted = 0; /* reset partition-on-drive flag */
 177     int volume;
 178     struct partinfo* pinfo;
 179
 180 #ifdef HAVE_HOTSWAP
 181     mutex_lock(&disk_mutex);
 182 #endif
 183
 184     volume = get_free_volume();
 185     pinfo = disk_init(IF_MD(drive));
 186 #ifdef MAX_LOG_SECTOR_SIZE
 187     disk_sector_multiplier[drive] = 1;
 188 #endif
 189
 190     if (pinfo == NULL)
 191     {
 192 #ifdef HAVE_HOTSWAP
 193         mutex_unlock(&disk_mutex);
 194 #endif
 195         return 0;
 196     }
 197 #if defined(TOSHIBA_GIGABEAT_S)
 198     int i = 1;  /* For the Gigabeat S, we mount the second partition */
 199 #else
 200     int i = 0;
 201 #endif
 202     for (; volume != -1 && i<4 && mounted<NUM_VOLUMES_PER_DRIVE; i++)
 203     {
 204         if (memchr(fat_partition_types, pinfo[i].type,
 205                    sizeof(fat_partition_types)) == NULL)
 206             continue;  /* not an accepted partition type */
 207
 208 #ifdef MAX_LOG_SECTOR_SIZE
 209         int j;
 210
 211         for (j = 1; j <= (MAX_LOG_SECTOR_SIZE/SECTOR_SIZE); j <<= 1)
 212         {
 213             if (!fat_mount(IF_MV2(volume,) IF_MD2(drive,) pinfo[i].start * j))
 214             {
 215                 pinfo[i].start *= j;
 216                 pinfo[i].size *= j;
 217                 mounted++;
 218                 vol_drive[volume] = drive; /* remember the drive for this volume */
 219                 volume = get_free_volume(); /* prepare next entry */
 220                 if (drive == 0)
 221                     disk_sector_multiplier[drive] = j;
 222                 break;
 223             }
 224         }
 225 #else
 226         if (!fat_mount(IF_MV2(volume,) IF_MD2(drive,) pinfo[i].start))
 227         {
 228             mounted++;
 229             vol_drive[volume] = drive; /* remember the drive for this volume */
 230             volume = get_free_volume(); /* prepare next entry */
 231         }
 232 #endif
 233     }
 234
 235     if (mounted == 0 && volume != -1) /* none of the 4 entries worked? */
 236     {   /* try "superfloppy" mode */
 237         DEBUGF("No partition found, trying to mount sector 0.\n");
 238         if (!fat_mount(IF_MV2(volume,) IF_MD2(drive,) 0))
 239         {
 240 #ifdef MAX_LOG_SECTOR_SIZE
 241             disk_sector_multiplier[drive] = fat_get_bytes_per_sector(IF_MV(volume))/SECTOR_SIZE;
 242 #endif
 243             mounted = 1;
 244             vol_drive[volume] = drive; /* remember the drive for this volume */
 245         }
 246     }
 247 #ifdef HAVE_HOTSWAP
 248     mutex_unlock(&disk_mutex);
 249 #endif
 250     return mounted;
 251 }
 252
 253 int disk_unmount(int drive)
 254 {
 255     int unmounted = 0;
 256     int i;
 257 #ifdef HAVE_HOTSWAP
 258     mutex_lock(&disk_mutex);
 259 #endif
 260     for (i=0; i<NUM_VOLUMES; i++)
 261     {
 262         if (vol_drive[i] == drive)
 263         {   /* force releasing resources */
 264             vol_drive[i] = -1; /* mark unused */
 265             unmounted++;
 266             release_files(i);
 267             release_dirs(i);
 268             fat_unmount(i, false);
 269         }
 270     }
 271 #ifdef HAVE_HOTSWAP
 272     mutex_unlock(&disk_mutex);
 273 #endif
 274
 275     return unmounted;
 276 }
 277
 278 int disk_unmount_all(void)
 279 {
 280 #ifndef HAVE_MULTIDRIVE
 281     return disk_unmount(0);
 282 #else  /* HAVE_MULTIDRIVE */
 283     int unmounted = 0;
 284     int i;
 285     for (i = 0; i < NUM_DRIVES; i++)
 286     {
 287 #ifdef HAVE_HOTSWAP
 288         if (storage_present(i))
 289 #endif
 290             unmounted += disk_unmount(i);
 291     }
 292
 293     return unmounted;
 294 #endif  /* HAVE_MULTIDRIVE */
 295 }