files/drive.c

   1 /*
   2  * DOS drives handling functions
   3  *
   4  * Copyright 1993 Erik Bos
   5  * Copyright 1996 Alexandre Julliard
   6  *
   7  * Label & serial number read support.
   8  *  (c) 1999 Petr Tomasek <tomasek@etf.cuni.cz>
   9  *  (c) 2000 Andreas Mohr (changes)
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Lesser General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2.1 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Lesser General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Lesser General Public
  22  * License along with this library; if not, write to the Free Software
  23  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  24  */
  25
  26 #include "config.h"
  27 #include "wine/port.h"
  28
  29 #include <assert.h>
  30 #include <ctype.h>
  31 #include <string.h>
  32 #include <stdio.h>
  33 #include <stdlib.h>
  34 #include <sys/types.h>
  35 #include <sys/stat.h>
  36 #include <fcntl.h>
  37 #include <errno.h>
  38 #ifdef HAVE_UNISTD_H
  39 # include <unistd.h>
  40 #endif
  41
  42 #ifdef HAVE_SYS_PARAM_H
  43 # include <sys/param.h>
  44 #endif
  45 #ifdef STATFS_DEFINED_BY_SYS_VFS
  46 # include <sys/vfs.h>
  47 #else
  48 # ifdef STATFS_DEFINED_BY_SYS_MOUNT
  49 #  include <sys/mount.h>
  50 # else
  51 #  ifdef STATFS_DEFINED_BY_SYS_STATFS
  52 #   include <sys/statfs.h>
  53 #  endif
  54 # endif
  55 #endif
  56
  57 #include "winbase.h"
  58 #include "winternl.h"
  59 #include "wine/winbase16.h"   /* for GetCurrentTask */
  60 #include "winerror.h"
  61 #include "winioctl.h"
  62 #include "ntddstor.h"
  63 #include "ntddcdrm.h"
  64 #include "drive.h"
  65 #include "file.h"
  66 #include "heap.h"
  67 #include "msdos.h"
  68 #include "task.h"
  69 #include "wine/unicode.h"
  70 #include "wine/library.h"
  71 #include "wine/server.h"
  72 #include "wine/debug.h"
  73
  74 WINE_DEFAULT_DEBUG_CHANNEL(dosfs);
  75 WINE_DECLARE_DEBUG_CHANNEL(file);
  76
  77 typedef struct
  78 {
  79     char     *root;      /* root dir in Unix format without trailing / */
  80     LPWSTR    dos_cwd;   /* cwd in DOS format without leading or trailing \ */
  81     char     *unix_cwd;  /* cwd in Unix format without leading or trailing / */
  82     char     *device;    /* raw device path */
  83     WCHAR     label_conf[12]; /* drive label as cfg'd in wine config */
  84     WCHAR     label_read[12]; /* drive label as read from device */
  85     DWORD     serial_conf;    /* drive serial number as cfg'd in wine config */
  86     UINT      type;      /* drive type */
  87     UINT      flags;     /* drive flags */
  88     UINT      codepage;  /* drive code page */
  89     dev_t     dev;       /* unix device number */
  90     ino_t     ino;       /* unix inode number */
  91 } DOSDRIVE;
  92
  93
  94 static const WCHAR DRIVE_Types[][8] =
  95 {
  96     { 0 }, /* DRIVE_UNKNOWN */
  97     { 0 }, /* DRIVE_NO_ROOT_DIR */
  98     {'f','l','o','p','p','y',0}, /* DRIVE_REMOVABLE */
  99     {'h','d',0}, /* DRIVE_FIXED */
 100     {'n','e','t','w','o','r','k',0}, /* DRIVE_REMOTE */
 101     {'c','d','r','o','m',0}, /* DRIVE_CDROM */
 102     {'r','a','m','d','i','s','k',0} /* DRIVE_RAMDISK */
 103 };
 104
 105
 106 /* Known filesystem types */
 107
 108 typedef struct
 109 {
 110     const WCHAR name[6];
 111     UINT      flags;
 112 } FS_DESCR;
 113
 114 static const FS_DESCR DRIVE_Filesystems[] =
 115 {
 116     { {'u','n','i','x',0}, DRIVE_CASE_SENSITIVE | DRIVE_CASE_PRESERVING },
 117     { {'m','s','d','o','s',0}, DRIVE_SHORT_NAMES },
 118     { {'d','o','s',0}, DRIVE_SHORT_NAMES },
 119     { {'f','a','t',0}, DRIVE_SHORT_NAMES },
 120     { {'v','f','a','t',0}, DRIVE_CASE_PRESERVING },
 121     { {'w','i','n','9','5',0}, DRIVE_CASE_PRESERVING },
 122     { { 0 }, 0 }
 123 };
 124
 125
 126 static DOSDRIVE DOSDrives[MAX_DOS_DRIVES];
 127 static int DRIVE_CurDrive = -1;
 128
 129 static HTASK16 DRIVE_LastTask = 0;
 130
 131 /* strdup on the process heap */
 132 inline static char *heap_strdup( const char *str )
 133 {
 134     INT len = strlen(str) + 1;
 135     LPSTR p = HeapAlloc( GetProcessHeap(), 0, len );
 136     if (p) memcpy( p, str, len );
 137     return p;
 138 }
 139
 140 extern void CDROM_InitRegistry(int dev);
 141
 142 /***********************************************************************
 143  *           DRIVE_GetDriveType
 144  */
 145 static UINT DRIVE_GetDriveType( LPCWSTR name )
 146 {
 147     WCHAR buffer[20];
 148     int i;
 149     static const WCHAR TypeW[] = {'T','y','p','e',0};
 150     static const WCHAR hdW[] = {'h','d',0};
 151
 152     PROFILE_GetWineIniString( name, TypeW, hdW, buffer, 20 );
 153     if(!buffer[0])
 154         strcpyW(buffer,hdW);
 155     for (i = 0; i < sizeof(DRIVE_Types)/sizeof(DRIVE_Types[0]); i++)
 156     {
 157         if (!strcmpiW( buffer, DRIVE_Types[i] )) return i;
 158     }
 159     MESSAGE("%s: unknown drive type %s, defaulting to 'hd'.\n",
 160             debugstr_w(name), debugstr_w(buffer) );
 161     return DRIVE_FIXED;
 162 }
 163
 164
 165 /***********************************************************************
 166  *           DRIVE_GetFSFlags
 167  */
 168 static UINT DRIVE_GetFSFlags( LPCWSTR name, LPCWSTR value )
 169 {
 170     const FS_DESCR *descr;
 171
 172     for (descr = DRIVE_Filesystems; *descr->name; descr++)
 173         if (!strcmpiW( value, descr->name )) return descr->flags;
 174     MESSAGE("%s: unknown filesystem type %s, defaulting to 'win95'.\n",
 175             debugstr_w(name), debugstr_w(value) );
 176     return DRIVE_CASE_PRESERVING;
 177 }
 178
 179
 180 /***********************************************************************
 181  *           DRIVE_Init
 182  */
 183 int DRIVE_Init(void)
 184 {
 185     int i, len, count = 0;
 186     WCHAR name[] = {'D','r','i','v','e',' ','A',0};
 187     WCHAR drive_env[] = {'=','A',':',0};
 188     WCHAR path[MAX_PATHNAME_LEN];
 189     WCHAR buffer[80];
 190     struct stat drive_stat_buffer;
 191     WCHAR *p;
 192     DOSDRIVE *drive;
 193     static const WCHAR PathW[] = {'P','a','t','h',0};
 194     static const WCHAR empty_strW[] = { 0 };
 195     static const WCHAR CodepageW[] = {'C','o','d','e','p','a','g','e',0};
 196     static const WCHAR LabelW[] = {'L','a','b','e','l',0};
 197     static const WCHAR SerialW[] = {'S','e','r','i','a','l',0};
 198     static const WCHAR zeroW[] = {'0',0};
 199     static const WCHAR def_serialW[] = {'1','2','3','4','5','6','7','8',0};
 200     static const WCHAR FilesystemW[] = {'F','i','l','e','s','y','s','t','e','m',0};
 201     static const WCHAR win95W[] = {'w','i','n','9','5',0};
 202     static const WCHAR DeviceW[] = {'D','e','v','i','c','e',0};
 203     static const WCHAR ReadVolInfoW[] = {'R','e','a','d','V','o','l','I','n','f','o',0};
 204     static const WCHAR FailReadOnlyW[] = {'F','a','i','l','R','e','a','d','O','n','l','y',0};
 205     static const WCHAR driveC_labelW[] = {'D','r','i','v','e',' ','C',' ',' ',' ',' ',0};
 206
 207     for (i = 0, drive = DOSDrives; i < MAX_DOS_DRIVES; i++, name[6]++, drive++)
 208     {
 209         PROFILE_GetWineIniString( name, PathW, empty_strW, path, MAX_PATHNAME_LEN );
 210         if (path[0])
 211         {
 212             /* Get the code page number */
 213             PROFILE_GetWineIniString( name, CodepageW, zeroW, /* 0 == CP_ACP */
 214                                       buffer, 80 );
 215             drive->codepage = strtolW( buffer, NULL, 10 );
 216
 217             p = path + strlenW(path) - 1;
 218             while ((p > path) && (*p == '/')) *p-- = '\0';
 219
 220             if (path[0] == '/')
 221             {
 222                 len = WideCharToMultiByte(drive->codepage, 0, path, -1, NULL, 0, NULL, NULL);
 223                 drive->root = HeapAlloc(GetProcessHeap(), 0, len);
 224                 WideCharToMultiByte(drive->codepage, 0, path, -1, drive->root, len, NULL, NULL);
 225             }
 226             else
 227             {
 228                 /* relative paths are relative to config dir */
 229                 const char *config = wine_get_config_dir();
 230                 len = strlen(config);
 231                 len += WideCharToMultiByte(drive->codepage, 0, path, -1, NULL, 0, NULL, NULL) + 2;
 232                 drive->root = HeapAlloc( GetProcessHeap(), 0, len );
 233                 len -= sprintf( drive->root, "%s/", config );
 234                 WideCharToMultiByte(drive->codepage, 0, path, -1, drive->root + strlen(drive->root), len, NULL, NULL);
 235             }
 236
 237             if (stat( drive->root, &drive_stat_buffer ))
 238             {
 239                 MESSAGE("Could not stat %s (%s), ignoring drive %c:\n",
 240                         drive->root, strerror(errno), 'A' + i);
 241                 HeapFree( GetProcessHeap(), 0, drive->root );
 242                 drive->root = NULL;
 243                 continue;
 244             }
 245             if (!S_ISDIR(drive_stat_buffer.st_mode))
 246             {
 247                 MESSAGE("%s is not a directory, ignoring drive %c:\n",
 248                         drive->root, 'A' + i );
 249                 HeapFree( GetProcessHeap(), 0, drive->root );
 250                 drive->root = NULL;
 251                 continue;
 252             }
 253
 254             drive->dos_cwd  = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(drive->dos_cwd[0]));
 255             drive->unix_cwd = heap_strdup( "" );
 256             drive->type     = DRIVE_GetDriveType( name );
 257             drive->device   = NULL;
 258             drive->flags    = 0;
 259             drive->dev      = drive_stat_buffer.st_dev;
 260             drive->ino      = drive_stat_buffer.st_ino;
 261
 262             /* Get the drive label */
 263             PROFILE_GetWineIniString( name, LabelW, empty_strW, drive->label_conf, 12 );
 264             if ((len = strlenW(drive->label_conf)) < 11)
 265             {
 266                 /* Pad label with spaces */
 267                 while(len < 11) drive->label_conf[len++] = ' ';
 268                 drive->label_conf[11] = '\0';
 269             }
 270
 271             /* Get the serial number */
 272             PROFILE_GetWineIniString( name, SerialW, def_serialW, buffer, 80 );
 273             drive->serial_conf = strtolW( buffer, NULL, 16 );
 274
 275             /* Get the filesystem type */
 276             PROFILE_GetWineIniString( name, FilesystemW, win95W, buffer, 80 );
 277             drive->flags = DRIVE_GetFSFlags( name, buffer );
 278
 279             /* Get the device */
 280             PROFILE_GetWineIniString( name, DeviceW, empty_strW, buffer, 80 );
 281             if (buffer[0])
 282             {
 283                 int cd_fd;
 284                 len = WideCharToMultiByte(CP_ACP, 0, buffer, -1, NULL, 0, NULL, NULL);
 285                 drive->device = HeapAlloc(GetProcessHeap(), 0, len);
 286                 WideCharToMultiByte(drive->codepage, 0, buffer, -1, drive->device, len, NULL, NULL);
 287
 288                 if (PROFILE_GetWineIniBool( name, ReadVolInfoW, 1))
 289                     drive->flags |= DRIVE_READ_VOL_INFO;
 290
 291                 if (drive->type == DRIVE_CDROM)
 292                 {
 293                     if ((cd_fd = open(drive->device, O_RDONLY|O_NONBLOCK)) != -1)
 294                     {
 295                         CDROM_InitRegistry(cd_fd);
 296                         close(cd_fd);
 297                     }
 298                 }
 299             }
 300
 301             /* Get the FailReadOnly flag */
 302             if (PROFILE_GetWineIniBool( name, FailReadOnlyW, 0 ))
 303                 drive->flags |= DRIVE_FAIL_READ_ONLY;
 304
 305             /* Make the first hard disk the current drive */
 306             if ((DRIVE_CurDrive == -1) && (drive->type == DRIVE_FIXED))
 307                 DRIVE_CurDrive = i;
 308
 309             count++;
 310             TRACE("%s: path=%s type=%s label=%s serial=%08lx "
 311                   "flags=%08x codepage=%u dev=%x ino=%x\n",
 312                   debugstr_w(name), drive->root, debugstr_w(DRIVE_Types[drive->type]),
 313                   debugstr_w(drive->label_conf), drive->serial_conf, drive->flags,
 314                   drive->codepage, (int)drive->dev, (int)drive->ino );
 315         }
 316         else WARN("%s: not defined\n", debugstr_w(name) );
 317     }
 318
 319     if (!count)
 320     {
 321         MESSAGE("Warning: no valid DOS drive found, check your configuration file.\n" );
 322         /* Create a C drive pointing to Unix root dir */
 323         DOSDrives[2].root     = heap_strdup( "/" );
 324         DOSDrives[2].dos_cwd  = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(DOSDrives[2].dos_cwd[0]));
 325         DOSDrives[2].unix_cwd = heap_strdup( "" );
 326         strcpyW( DOSDrives[2].label_conf, driveC_labelW );
 327         DOSDrives[2].serial_conf   = 12345678;
 328         DOSDrives[2].type     = DRIVE_FIXED;
 329         DOSDrives[2].device   = NULL;
 330         DOSDrives[2].flags    = 0;
 331         DRIVE_CurDrive = 2;
 332     }
 333
 334     /* Make sure the current drive is valid */
 335     if (DRIVE_CurDrive == -1)
 336     {
 337         for (i = 0, drive = DOSDrives; i < MAX_DOS_DRIVES; i++, drive++)
 338         {
 339             if (drive->root && !(drive->flags & DRIVE_DISABLED))
 340             {
 341                 DRIVE_CurDrive = i;
 342                 break;
 343             }
 344         }
 345     }
 346
 347     /* get current working directory info for all drives */
 348     for (i = 0; i < MAX_DOS_DRIVES; i++, drive_env[1]++)
 349     {
 350         if (!GetEnvironmentVariableW(drive_env, path, MAX_PATHNAME_LEN)) continue;
 351         /* sanity check */
 352         if (toupperW(path[0]) != drive_env[1] || path[1] != ':') continue;
 353         DRIVE_Chdir( i, path + 2 );
 354     }
 355     return 1;
 356 }
 357
 358
 359 /***********************************************************************
 360  *           DRIVE_IsValid
 361  */
 362 int DRIVE_IsValid( int drive )
 363 {
 364     if ((drive < 0) || (drive >= MAX_DOS_DRIVES)) return 0;
 365     return (DOSDrives[drive].root &&
 366             !(DOSDrives[drive].flags & DRIVE_DISABLED));
 367 }
 368
 369
 370 /***********************************************************************
 371  *           DRIVE_GetCurrentDrive
 372  */
 373 int DRIVE_GetCurrentDrive(void)
 374 {
 375     TDB *pTask = TASK_GetCurrent();
 376     if (pTask && (pTask->curdrive & 0x80)) return pTask->curdrive & ~0x80;
 377     return DRIVE_CurDrive;
 378 }
 379
 380
 381 /***********************************************************************
 382  *           DRIVE_SetCurrentDrive
 383  */
 384 int DRIVE_SetCurrentDrive( int drive )
 385 {
 386     TDB *pTask = TASK_GetCurrent();
 387     if (!DRIVE_IsValid( drive ))
 388     {
 389         SetLastError( ERROR_INVALID_DRIVE );
 390         return 0;
 391     }
 392     TRACE("%c:\n", 'A' + drive );
 393     DRIVE_CurDrive = drive;
 394     if (pTask) pTask->curdrive = drive | 0x80;
 395     return 1;
 396 }
 397
 398
 399 /***********************************************************************
 400  *           DRIVE_FindDriveRoot
 401  *
 402  * Find a drive for which the root matches the beginning of the given path.
 403  * This can be used to translate a Unix path into a drive + DOS path.
 404  * Return value is the drive, or -1 on error. On success, path is modified
 405  * to point to the beginning of the DOS path.
 406  *
 407  * Note: path must be in the encoding of the underlying Unix file system.
 408  */
 409 int DRIVE_FindDriveRoot( const char **path )
 410 {
 411     /* Starting with the full path, check if the device and inode match any of
 412      * the wine 'drives'. If not then remove the last path component and try
 413      * again. If the last component was a '..' then skip a normal component
 414      * since it's a directory that's ascended back out of.
 415      */
 416     int drive, level, len;
 417     char buffer[MAX_PATHNAME_LEN];
 418     char *p;
 419     struct stat st;
 420
 421     strcpy( buffer, *path );
 422     while ((p = strchr( buffer, '\\' )) != NULL)
 423         *p = '/';
 424     len = strlen(buffer);
 425
 426     /* strip off trailing slashes */
 427     while (len > 1 && buffer[len - 1] == '/') buffer[--len] = 0;
 428
 429     for (;;)
 430     {
 431         /* Find the drive */
 432         if (stat( buffer, &st ) == 0 && S_ISDIR( st.st_mode ))
 433         {
 434             for (drive = 0; drive < MAX_DOS_DRIVES; drive++)
 435             {
 436                if (!DOSDrives[drive].root ||
 437                    (DOSDrives[drive].flags & DRIVE_DISABLED))
 438                    continue;
 439
 440                if ((DOSDrives[drive].dev == st.st_dev) &&
 441                    (DOSDrives[drive].ino == st.st_ino))
 442                {
 443                    if (len == 1) len = 0;  /* preserve root slash in returned path */
 444                    TRACE( "%s -> drive %c:, root='%s', name='%s'\n",
 445                        *path, 'A' + drive, buffer, *path + len);
 446                    *path += len;
 447                    if (!**path) *path = "\\";
 448                    return drive;
 449                }
 450             }
 451         }
 452         if (len <= 1) return -1;  /* reached root */
 453
 454         level = 0;
 455         while (level < 1)
 456         {
 457             /* find start of the last path component */
 458             while (len > 1 && buffer[len - 1] != '/') len--;
 459             if (!buffer[len]) break;  /* empty component -> reached root */
 460             /* does removing it take us up a level? */
 461             if (strcmp( buffer + len, "." ) != 0)
 462                 level += strcmp( buffer + len, ".." ) ? 1 : -1;
 463             buffer[len] = 0;
 464             /* strip off trailing slashes */
 465             while (len > 1 && buffer[len - 1] == '/') buffer[--len] = 0;
 466         }
 467     }
 468 }
 469
 470
 471 /***********************************************************************
 472  *           DRIVE_FindDriveRootW
 473  *
 474  * Unicode version of DRIVE_FindDriveRoot.
 475  */
 476 int DRIVE_FindDriveRootW( LPCWSTR *path )
 477 {
 478     int drive, rootdrive = -1;
 479     char buffer[MAX_PATHNAME_LEN];
 480     LPCWSTR p = *path;
 481     int len, match_len = -1;
 482
 483     for (drive = 0; drive < MAX_DOS_DRIVES; drive++)
 484     {
 485         if (!DOSDrives[drive].root ||
 486             (DOSDrives[drive].flags & DRIVE_DISABLED)) continue;
 487
 488         WideCharToMultiByte(DOSDrives[drive].codepage, 0, *path, -1,
 489                             buffer, MAX_PATHNAME_LEN, NULL, NULL);
 490
 491         len = strlen(DOSDrives[drive].root);
 492         if(strncmp(DOSDrives[drive].root, buffer, len))
 493             continue;
 494         if(len <= match_len) continue;
 495         match_len = len;
 496         rootdrive = drive;
 497         p = *path + len;
 498     }
 499
 500     if (rootdrive != -1)
 501     {
 502         *path = p;
 503         TRACE("%s -> drive %c:, root='%s', name=%s\n",
 504               buffer, 'A' + rootdrive, DOSDrives[rootdrive].root, debugstr_w(*path) );
 505     }
 506     return rootdrive;
 507 }
 508
 509
 510 /***********************************************************************
 511  *           DRIVE_GetRoot
 512  */
 513 const char * DRIVE_GetRoot( int drive )
 514 {
 515     if (!DRIVE_IsValid( drive )) return NULL;
 516     return DOSDrives[drive].root;
 517 }
 518
 519
 520 /***********************************************************************
 521  *           DRIVE_GetDosCwd
 522  */
 523 LPCWSTR DRIVE_GetDosCwd( int drive )
 524 {
 525     TDB *pTask = TASK_GetCurrent();
 526     if (!DRIVE_IsValid( drive )) return NULL;
 527
 528     /* Check if we need to change the directory to the new task. */
 529     if (pTask && (pTask->curdrive & 0x80) &&    /* The task drive is valid */
 530         ((pTask->curdrive & ~0x80) == drive) && /* and it's the one we want */
 531         (DRIVE_LastTask != GetCurrentTask()))   /* and the task changed */
 532     {
 533         static const WCHAR rootW[] = {'\\',0};
 534         WCHAR curdirW[MAX_PATH];
 535         MultiByteToWideChar(CP_ACP, 0, pTask->curdir, -1, curdirW, MAX_PATH);
 536         /* Perform the task-switch */
 537         if (!DRIVE_Chdir( drive, curdirW )) DRIVE_Chdir( drive, rootW );
 538         DRIVE_LastTask = GetCurrentTask();
 539     }
 540     return DOSDrives[drive].dos_cwd;
 541 }
 542
 543
 544 /***********************************************************************
 545  *           DRIVE_GetUnixCwd
 546  */
 547 const char * DRIVE_GetUnixCwd( int drive )
 548 {
 549     TDB *pTask = TASK_GetCurrent();
 550     if (!DRIVE_IsValid( drive )) return NULL;
 551
 552     /* Check if we need to change the directory to the new task. */
 553     if (pTask && (pTask->curdrive & 0x80) &&    /* The task drive is valid */
 554         ((pTask->curdrive & ~0x80) == drive) && /* and it's the one we want */
 555         (DRIVE_LastTask != GetCurrentTask()))   /* and the task changed */
 556     {
 557         static const WCHAR rootW[] = {'\\',0};
 558         WCHAR curdirW[MAX_PATH];
 559         MultiByteToWideChar(CP_ACP, 0, pTask->curdir, -1, curdirW, MAX_PATH);
 560         /* Perform the task-switch */
 561         if (!DRIVE_Chdir( drive, curdirW )) DRIVE_Chdir( drive, rootW );
 562         DRIVE_LastTask = GetCurrentTask();
 563     }
 564     return DOSDrives[drive].unix_cwd;
 565 }
 566
 567
 568 /***********************************************************************
 569  *           DRIVE_GetDevice
 570  */
 571 const char * DRIVE_GetDevice( int drive )
 572 {
 573     return (DRIVE_IsValid( drive )) ? DOSDrives[drive].device : NULL;
 574 }
 575
 576 /******************************************************************
 577  *              static WORD CDROM_Data_FindBestVoldesc
 578  *
 579  *
 580  */
 581 static WORD CDROM_Data_FindBestVoldesc(int fd)
 582 {
 583     BYTE cur_vd_type, max_vd_type = 0;
 584     unsigned int offs, best_offs = 0, extra_offs = 0;
 585     char sig[3];
 586
 587     for (offs = 0x8000; offs <= 0x9800; offs += 0x800)
 588     {
 589         /* if 'CDROM' occurs at position 8, this is a pre-iso9660 cd, and
 590          * the volume label is displaced forward by 8
 591          */
 592         lseek(fd, offs + 11, SEEK_SET); /* check for non-ISO9660 signature */
 593         read(fd, &sig, 3);
 594         if ((sig[0] == 'R') && (sig[1] == 'O') && (sig[2]=='M'))
 595         {
 596             extra_offs = 8;
 597         }
 598         lseek(fd, offs + extra_offs, SEEK_SET);
 599         read(fd, &cur_vd_type, 1);
 600         if (cur_vd_type == 0xff) /* voldesc set terminator */
 601             break;
 602         if (cur_vd_type > max_vd_type)
 603         {
 604             max_vd_type = cur_vd_type;
 605             best_offs = offs + extra_offs;
 606         }
 607     }
 608     return best_offs;
 609 }
 610
 611 /***********************************************************************
 612  *           DRIVE_ReadSuperblock
 613  *
 614  * NOTE
 615  *      DRIVE_SetLabel and DRIVE_SetSerialNumber use this in order
 616  * to check, that they are writing on a FAT filesystem !
 617  */
 618 int DRIVE_ReadSuperblock (int drive, char * buff)
 619 {
 620 #define DRIVE_SUPER 96
 621     int fd;
 622     off_t offs;
 623     int ret = 0;
 624
 625     if (memset(buff,0,DRIVE_SUPER)!=buff) return -1;
 626     if ((fd=open(DOSDrives[drive].device,O_RDONLY)) == -1)
 627     {
 628         struct stat st;
 629         if (!DOSDrives[drive].device)
 630             ERR("No device configured for drive %c: !\n", 'A'+drive);
 631         else
 632             ERR("Couldn't open device '%s' for drive %c: ! (%s)\n", DOSDrives[drive].device, 'A'+drive,
 633                  (stat(DOSDrives[drive].device, &st)) ?
 634                         "not available or symlink not valid ?" : "no permission");
 635         ERR("Can't read drive volume info ! Either pre-set it or make sure the device to read it from is accessible !\n");
 636         PROFILE_UsageWineIni();
 637         return -1;
 638     }
 639
 640     switch(DOSDrives[drive].type)
 641     {
 642         case DRIVE_REMOVABLE:
 643         case DRIVE_FIXED:
 644             offs = 0;
 645             break;
 646         case DRIVE_CDROM:
 647             offs = CDROM_Data_FindBestVoldesc(fd);
 648             break;
 649         default:
 650             offs = 0;
 651             break;
 652     }
 653
 654     if ((offs) && (lseek(fd,offs,SEEK_SET)!=offs))
 655     {
 656         ret = -4;
 657         goto the_end;
 658     }
 659     if (read(fd,buff,DRIVE_SUPER)!=DRIVE_SUPER)
 660     {
 661         ret = -2;
 662         goto the_end;
 663     }
 664
 665     switch(DOSDrives[drive].type)
 666     {
 667         case DRIVE_REMOVABLE:
 668         case DRIVE_FIXED:
 669             if ((buff[0x26]!=0x29) ||  /* Check for FAT present */
 670                 /* FIXME: do really all FAT have their name beginning with
 671                    "FAT" ? (At least FAT12, FAT16 and FAT32 have :) */
 672                 memcmp( buff+0x36,"FAT",3))
 673             {
 674                 ERR("The filesystem is not FAT !! (device=%s)\n",
 675                     DOSDrives[drive].device);
 676                 ret = -3;
 677                 goto the_end;
 678             }
 679             break;
 680         case DRIVE_CDROM:
 681             if (strncmp(&buff[1],"CD001",5)) /* Check for iso9660 present */
 682             {
 683                 ret = -3;
 684                 goto the_end;
 685             }
 686             /* FIXME: do we need to check for "CDROM", too ? (high sierra) */
 687             break;
 688         default:
 689             ret = -3;
 690             goto the_end;
 691     }
 692
 693     return close(fd);
 694  the_end:
 695     close(fd);
 696     return ret;
 697 }
 698
 699
 700 /***********************************************************************
 701  *           DRIVE_WriteSuperblockEntry
 702  *
 703  * NOTE
 704  *      We are writing as little as possible (ie. not the whole SuperBlock)
 705  * not to interfere with kernel. The drive can be mounted !
 706  */
 707 int DRIVE_WriteSuperblockEntry (int drive, off_t ofs, size_t len, char * buff)
 708 {
 709     int fd;
 710
 711     if ((fd=open(DOSDrives[drive].device,O_WRONLY))==-1)
 712     {
 713         ERR("Cannot open the device %s (for writing)\n",
 714             DOSDrives[drive].device);
 715         return -1;
 716     }
 717     if (lseek(fd,ofs,SEEK_SET)!=ofs)
 718     {
 719         ERR("lseek failed on device %s !\n",
 720             DOSDrives[drive].device);
 721         close(fd);
 722         return -2;
 723     }
 724     if (write(fd,buff,len)!=len)
 725     {
 726         close(fd);
 727         ERR("Cannot write on %s !\n",
 728             DOSDrives[drive].device);
 729         return -3;
 730     }
 731     return close (fd);
 732 }
 733
 734 /******************************************************************
 735  *              static HANDLE   CDROM_Open
 736  *
 737  *
 738  */
 739 static HANDLE   CDROM_Open(int drive)
 740 {
 741     WCHAR root[] = {'\\','\\','.','\\','A',':',0};
 742     root[4] += drive;
 743     return CreateFileW(root, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0);
 744 }
 745
 746 /**************************************************************************
 747  *                              CDROM_Data_GetLabel             [internal]
 748  */
 749 DWORD CDROM_Data_GetLabel(int drive, WCHAR *label)
 750 {
 751 #define LABEL_LEN       32+1
 752     int dev = open(DOSDrives[drive].device, O_RDONLY|O_NONBLOCK);
 753     WORD offs = CDROM_Data_FindBestVoldesc(dev);
 754     WCHAR label_read[LABEL_LEN]; /* Unicode possible, too */
 755     DWORD unicode_id = 0;
 756
 757     if (offs)
 758     {
 759         if ((lseek(dev, offs+0x58, SEEK_SET) == offs+0x58)
 760         &&  (read(dev, &unicode_id, 3) == 3))
 761         {
 762             int ver = (unicode_id & 0xff0000) >> 16;
 763
 764             if ((lseek(dev, offs+0x28, SEEK_SET) != offs+0x28)
 765             ||  (read(dev, &label_read, LABEL_LEN) != LABEL_LEN))
 766                 goto failure;
 767
 768             close(dev);
 769             if ((LOWORD(unicode_id) == 0x2f25) /* Unicode ID */
 770             &&  ((ver == 0x40) || (ver == 0x43) || (ver == 0x45)))
 771             { /* yippee, unicode */
 772                 int i;
 773                 WORD ch;
 774                 for (i=0; i<LABEL_LEN;i++)
 775                 { /* Motorola -> Intel Unicode conversion :-\ */
 776                      ch = label_read[i];
 777                      label_read[i] = (ch << 8) | (ch >> 8);
 778                 }
 779                 strncpyW(label, label_read, 11);
 780                 label[11] = 0;
 781             }
 782             else
 783             {
 784                 MultiByteToWideChar(DOSDrives[drive].codepage, 0, (LPSTR)label_read, -1, label, 11);
 785                 label[11] = '\0';
 786             }
 787             return 1;
 788         }
 789     }
 790 failure:
 791     close(dev);
 792     ERR("error reading label !\n");
 793     return 0;
 794 }
 795
 796 /**************************************************************************
 797  *                              CDROM_GetLabel                  [internal]
 798  */
 799 static DWORD CDROM_GetLabel(int drive, WCHAR *label)
 800 {
 801     HANDLE              h = CDROM_Open(drive);
 802     CDROM_DISK_DATA     cdd;
 803     DWORD               br;
 804     DWORD               ret = 1;
 805
 806     if (!h || !DeviceIoControl(h, IOCTL_CDROM_DISK_TYPE, NULL, 0, &cdd, sizeof(cdd), &br, 0))
 807         return 0;
 808
 809     switch (cdd.DiskData & 0x03)
 810     {
 811     case CDROM_DISK_DATA_TRACK:
 812         if (!CDROM_Data_GetLabel(drive, label))
 813             ret = 0;
 814         break;
 815     case CDROM_DISK_AUDIO_TRACK:
 816     {
 817         static const WCHAR audioCD[] = {'A','u','d','i','o',' ','C','D',' ',' ',' ',0};
 818         strcpyW(label, audioCD);
 819         break;
 820     }
 821     case CDROM_DISK_DATA_TRACK|CDROM_DISK_AUDIO_TRACK:
 822         FIXME("Need to get the label of a mixed mode CD: not implemented yet !\n");
 823         /* fall through */
 824     case 0:
 825         ret = 0;
 826         break;
 827     }
 828     TRACE("CD: label is %s\n", debugstr_w(label));
 829
 830     return ret;
 831 }
 832 /***********************************************************************
 833  *           DRIVE_GetLabel
 834  */
 835 LPCWSTR DRIVE_GetLabel( int drive )
 836 {
 837     int read = 0;
 838     char buff[DRIVE_SUPER];
 839     int offs = -1;
 840
 841     if (!DRIVE_IsValid( drive )) return NULL;
 842     if (DOSDrives[drive].type == DRIVE_CDROM)
 843     {
 844         read = CDROM_GetLabel(drive, DOSDrives[drive].label_read);
 845     }
 846     else
 847     if (DOSDrives[drive].flags & DRIVE_READ_VOL_INFO)
 848     {
 849         if (DRIVE_ReadSuperblock(drive,(char *) buff))
 850             ERR("Invalid or unreadable superblock on %s (%c:).\n",
 851                 DOSDrives[drive].device, (char)(drive+'A'));
 852         else {
 853             if (DOSDrives[drive].type == DRIVE_REMOVABLE ||
 854                 DOSDrives[drive].type == DRIVE_FIXED)
 855                 offs = 0x2b;
 856
 857             /* FIXME: ISO9660 uses a 32 bytes long label. Should we do also? */
 858             if (offs != -1)
 859                 MultiByteToWideChar(DOSDrives[drive].codepage, 0, buff+offs, 11,
 860                                     DOSDrives[drive].label_read, 11);
 861             DOSDrives[drive].label_read[11]='\0';
 862             read = 1;
 863         }
 864     }
 865
 866     return (read) ?
 867         DOSDrives[drive].label_read : DOSDrives[drive].label_conf;
 868 }
 869
 870 #define CDFRAMES_PERSEC                 75
 871 #define CDFRAMES_PERMIN                 (CDFRAMES_PERSEC * 60)
 872 #define FRAME_OF_ADDR(a) ((a)[0] * CDFRAMES_PERMIN + (a)[1] * CDFRAMES_PERSEC + (a)[2])
 873 #define FRAME_OF_TOC(toc, idx)  FRAME_OF_ADDR((toc).TrackData[idx - (toc).FirstTrack].Address)
 874
 875 /**************************************************************************
 876  *                              CDROM_Audio_GetSerial           [internal]
 877  */
 878 static DWORD CDROM_Audio_GetSerial(HANDLE h)
 879 {
 880     unsigned long serial = 0;
 881     int i;
 882     WORD wMagic;
 883     DWORD dwStart, dwEnd, br;
 884     CDROM_TOC toc;
 885
 886     if (!DeviceIoControl(h, IOCTL_CDROM_READ_TOC, NULL, 0, &toc, sizeof(toc), &br, 0))
 887         return 0;
 888
 889     /*
 890      * wMagic collects the wFrames from track 1
 891      * dwStart, dwEnd collect the beginning and end of the disc respectively, in
 892      * frames.
 893      * There it is collected for correcting the serial when there are less than
 894      * 3 tracks.
 895      */
 896     wMagic = toc.TrackData[0].Address[2];
 897     dwStart = FRAME_OF_TOC(toc, toc.FirstTrack);
 898
 899     for (i = 0; i <= toc.LastTrack - toc.FirstTrack; i++) {
 900         serial += (toc.TrackData[i].Address[0] << 16) |
 901             (toc.TrackData[i].Address[1] << 8) | toc.TrackData[i].Address[2];
 902     }
 903     dwEnd = FRAME_OF_TOC(toc, toc.LastTrack + 1);
 904
 905     if (toc.LastTrack - toc.FirstTrack + 1 < 3)
 906         serial += wMagic + (dwEnd - dwStart);
 907
 908     return serial;
 909 }
 910
 911 /**************************************************************************
 912  *                              CDROM_Data_GetSerial            [internal]
 913  */
 914 static DWORD CDROM_Data_GetSerial(int drive)
 915 {
 916     int dev = open(DOSDrives[drive].device, O_RDONLY|O_NONBLOCK);
 917     WORD offs;
 918     union {
 919         unsigned long val;
 920         unsigned char p[4];
 921     } serial;
 922     BYTE b0 = 0, b1 = 1, b2 = 2, b3 = 3;
 923
 924
 925     if (dev == -1) return 0;
 926     offs = CDROM_Data_FindBestVoldesc(dev);
 927
 928     serial.val = 0;
 929     if (offs)
 930     {
 931         BYTE buf[2048];
 932         OSVERSIONINFOA ovi;
 933         int i;
 934
 935         lseek(dev, offs, SEEK_SET);
 936         read(dev, buf, 2048);
 937         /*
 938          * OK, another braindead one... argh. Just believe it.
 939          * Me$$ysoft chose to reverse the serial number in NT4/W2K.
 940          * It's true and nobody will ever be able to change it.
 941          */
 942         ovi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
 943         GetVersionExA(&ovi);
 944         if ((ovi.dwPlatformId == VER_PLATFORM_WIN32_NT) &&  (ovi.dwMajorVersion >= 4))
 945         {
 946             b0 = 3; b1 = 2; b2 = 1; b3 = 0;
 947         }
 948         for (i = 0; i < 2048; i += 4)
 949         {
 950             /* DON'T optimize this into DWORD !! (breaks overflow) */
 951             serial.p[b0] += buf[i+b0];
 952             serial.p[b1] += buf[i+b1];
 953             serial.p[b2] += buf[i+b2];
 954             serial.p[b3] += buf[i+b3];
 955         }
 956     }
 957     close(dev);
 958     return serial.val;
 959 }
 960
 961 /**************************************************************************
 962  *                              CDROM_GetSerial                 [internal]
 963  */
 964 static DWORD CDROM_GetSerial(int drive)
 965 {
 966     DWORD               serial = 0;
 967     HANDLE              h = CDROM_Open(drive);
 968     CDROM_DISK_DATA     cdd;
 969     DWORD               br;
 970
 971     if (!h || ! !DeviceIoControl(h, IOCTL_CDROM_DISK_TYPE, NULL, 0, &cdd, sizeof(cdd), &br, 0))
 972         return 0;
 973
 974     switch (cdd.DiskData & 0x03)
 975     {
 976     case CDROM_DISK_DATA_TRACK:
 977         /* hopefully a data CD */
 978         serial = CDROM_Data_GetSerial(drive);
 979         break;
 980     case CDROM_DISK_AUDIO_TRACK:
 981         /* fall thru */
 982     case CDROM_DISK_DATA_TRACK|CDROM_DISK_AUDIO_TRACK:
 983         serial = CDROM_Audio_GetSerial(h);
 984         break;
 985     case 0:
 986         break;
 987     }
 988
 989     if (serial)
 990         TRACE("CD serial number is %04x-%04x.\n", HIWORD(serial), LOWORD(serial));
 991
 992     CloseHandle(h);
 993
 994     return serial;
 995 }
 996
 997 /***********************************************************************
 998  *           DRIVE_GetSerialNumber
 999  */
1000 DWORD DRIVE_GetSerialNumber( int drive )
1001 {
1002     DWORD serial = 0;
1003     char buff[DRIVE_SUPER];
1004
1005     TRACE("drive %d, type = %d\n", drive, DOSDrives[drive].type);
1006
1007     if (!DRIVE_IsValid( drive )) return 0;
1008
1009     if (DOSDrives[drive].flags & DRIVE_READ_VOL_INFO)
1010     {
1011         switch(DOSDrives[drive].type)
1012         {
1013         case DRIVE_REMOVABLE:
1014         case DRIVE_FIXED:
1015             if (DRIVE_ReadSuperblock(drive,(char *) buff))
1016                 MESSAGE("Invalid or unreadable superblock on %s (%c:)."
1017                         " Maybe not FAT?\n" ,
1018                         DOSDrives[drive].device, 'A'+drive);
1019             else
1020                 serial = *((DWORD*)(buff+0x27));
1021             break;
1022         case DRIVE_CDROM:
1023             serial = CDROM_GetSerial(drive);
1024             break;
1025         default:
1026             FIXME("Serial number reading from file system on drive %c: not supported yet.\n", drive+'A');
1027         }
1028     }
1029
1030     return (serial) ? serial : DOSDrives[drive].serial_conf;
1031 }
1032
1033
1034 /***********************************************************************
1035  *           DRIVE_SetSerialNumber
1036  */
1037 int DRIVE_SetSerialNumber( int drive, DWORD serial )
1038 {
1039     char buff[DRIVE_SUPER];
1040
1041     if (!DRIVE_IsValid( drive )) return 0;
1042
1043     if (DOSDrives[drive].flags & DRIVE_READ_VOL_INFO)
1044     {
1045         if ((DOSDrives[drive].type != DRIVE_REMOVABLE) &&
1046             (DOSDrives[drive].type != DRIVE_FIXED)) return 0;
1047         /* check, if the drive has a FAT filesystem */
1048         if (DRIVE_ReadSuperblock(drive, buff)) return 0;
1049         if (DRIVE_WriteSuperblockEntry(drive, 0x27, 4, (char *) &serial)) return 0;
1050         return 1;
1051     }
1052
1053     if (DOSDrives[drive].type == DRIVE_CDROM) return 0;
1054     DOSDrives[drive].serial_conf = serial;
1055     return 1;
1056 }
1057
1058
1059 /***********************************************************************
1060  *           DRIVE_GetType
1061  */
1062 static UINT DRIVE_GetType( int drive )
1063 {
1064     if (!DRIVE_IsValid( drive )) return DRIVE_NO_ROOT_DIR;
1065     return DOSDrives[drive].type;
1066 }
1067
1068
1069 /***********************************************************************
1070  *           DRIVE_GetFlags
1071  */
1072 UINT DRIVE_GetFlags( int drive )
1073 {
1074     if ((drive < 0) || (drive >= MAX_DOS_DRIVES)) return 0;
1075     return DOSDrives[drive].flags;
1076 }
1077
1078 /***********************************************************************
1079  *           DRIVE_GetCodepage
1080  */
1081 UINT DRIVE_GetCodepage( int drive )
1082 {
1083     if ((drive < 0) || (drive >= MAX_DOS_DRIVES)) return 0;
1084     return DOSDrives[drive].codepage;
1085 }
1086
1087
1088 /***********************************************************************
1089  *           DRIVE_Chdir
1090  */
1091 int DRIVE_Chdir( int drive, LPCWSTR path )
1092 {
1093     DOS_FULL_NAME full_name;
1094     WCHAR buffer[MAX_PATHNAME_LEN];
1095     LPSTR unix_cwd;
1096     BY_HANDLE_FILE_INFORMATION info;
1097     TDB *pTask = TASK_GetCurrent();
1098
1099     buffer[0] = 'A' + drive;
1100     buffer[1] = ':';
1101     buffer[2] = 0;
1102     TRACE("(%s,%s)\n", debugstr_w(buffer), debugstr_w(path) );
1103     strncpyW( buffer + 2, path, MAX_PATHNAME_LEN - 2 );
1104     buffer[MAX_PATHNAME_LEN - 1] = 0; /* ensure 0 termination */
1105
1106     if (!DOSFS_GetFullName( buffer, TRUE, &full_name )) return 0;
1107     if (!FILE_Stat( full_name.long_name, &info, NULL )) return 0;
1108     if (!(info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY))
1109     {
1110         SetLastError( ERROR_FILE_NOT_FOUND );
1111         return 0;
1112     }
1113     unix_cwd = full_name.long_name + strlen( DOSDrives[drive].root );
1114     while (*unix_cwd == '/') unix_cwd++;
1115
1116     TRACE("(%c:): unix_cwd=%s dos_cwd=%s\n",
1117             'A' + drive, unix_cwd, debugstr_w(full_name.short_name + 3) );
1118
1119     HeapFree( GetProcessHeap(), 0, DOSDrives[drive].dos_cwd );
1120     HeapFree( GetProcessHeap(), 0, DOSDrives[drive].unix_cwd );
1121     DOSDrives[drive].dos_cwd  = HeapAlloc(GetProcessHeap(), 0, (strlenW(full_name.short_name) - 2) * sizeof(WCHAR));
1122     strcpyW(DOSDrives[drive].dos_cwd, full_name.short_name + 3);
1123     DOSDrives[drive].unix_cwd = heap_strdup( unix_cwd );
1124
1125     if (pTask && (pTask->curdrive & 0x80) &&
1126         ((pTask->curdrive & ~0x80) == drive))
1127     {
1128         WideCharToMultiByte(CP_ACP, 0, full_name.short_name + 2, -1,
1129                             pTask->curdir, sizeof(pTask->curdir), NULL, NULL);
1130         DRIVE_LastTask = GetCurrentTask();
1131     }
1132     return 1;
1133 }
1134
1135
1136 /***********************************************************************
1137  *           DRIVE_Disable
1138  */
1139 int DRIVE_Disable( int drive  )
1140 {
1141     if ((drive < 0) || (drive >= MAX_DOS_DRIVES) || !DOSDrives[drive].root)
1142     {
1143         SetLastError( ERROR_INVALID_DRIVE );
1144         return 0;
1145     }
1146     DOSDrives[drive].flags |= DRIVE_DISABLED;
1147     return 1;
1148 }
1149
1150
1151 /***********************************************************************
1152  *           DRIVE_Enable
1153  */
1154 int DRIVE_Enable( int drive  )
1155 {
1156     if ((drive < 0) || (drive >= MAX_DOS_DRIVES) || !DOSDrives[drive].root)
1157     {
1158         SetLastError( ERROR_INVALID_DRIVE );
1159         return 0;
1160     }
1161     DOSDrives[drive].flags &= ~DRIVE_DISABLED;
1162     return 1;
1163 }
1164
1165
1166 /***********************************************************************
1167  *           DRIVE_SetLogicalMapping
1168  */
1169 int DRIVE_SetLogicalMapping ( int existing_drive, int new_drive )
1170 {
1171  /* If new_drive is already valid, do nothing and return 0
1172     otherwise, copy DOSDrives[existing_drive] to DOSDrives[new_drive] */
1173
1174     DOSDRIVE *old, *new;
1175
1176     old = DOSDrives + existing_drive;
1177     new = DOSDrives + new_drive;
1178
1179     if ((existing_drive < 0) || (existing_drive >= MAX_DOS_DRIVES) ||
1180         !old->root ||
1181         (new_drive < 0) || (new_drive >= MAX_DOS_DRIVES))
1182     {
1183         SetLastError( ERROR_INVALID_DRIVE );
1184         return 0;
1185     }
1186
1187     if ( new->root )
1188     {
1189         TRACE("Can't map drive %c: to already existing drive %c:\n",
1190               'A' + existing_drive, 'A' + new_drive );
1191         /* it is already mapped there, so return success */
1192         if (!strcmp(old->root,new->root))
1193             return 1;
1194         return 0;
1195     }
1196
1197     new->root     = heap_strdup( old->root );
1198     new->dos_cwd  = HeapAlloc(GetProcessHeap(), 0, (strlenW(old->dos_cwd) + 1) * sizeof(WCHAR));
1199     strcpyW(new->dos_cwd, old->dos_cwd);
1200     new->unix_cwd = heap_strdup( old->unix_cwd );
1201     new->device   = heap_strdup( old->device );
1202     memcpy ( new->label_conf, old->label_conf, 12 );
1203     memcpy ( new->label_read, old->label_read, 12 );
1204     new->serial_conf = old->serial_conf;
1205     new->type = old->type;
1206     new->flags = old->flags;
1207     new->dev = old->dev;
1208     new->ino = old->ino;
1209
1210     TRACE("Drive %c: is now equal to drive %c:\n",
1211           'A' + new_drive, 'A' + existing_drive );
1212
1213     return 1;
1214 }
1215
1216
1217 /***********************************************************************
1218  *           DRIVE_OpenDevice
1219  *
1220  * Open the drive raw device and return a Unix fd (or -1 on error).
1221  */
1222 int DRIVE_OpenDevice( int drive, int flags )
1223 {
1224     if (!DRIVE_IsValid( drive )) return -1;
1225     return open( DOSDrives[drive].device, flags );
1226 }
1227
1228
1229 /***********************************************************************
1230  *           DRIVE_RawRead
1231  *
1232  * Read raw sectors from a device
1233  */
1234 int DRIVE_RawRead(BYTE drive, DWORD begin, DWORD nr_sect, BYTE *dataptr, BOOL fake_success)
1235 {
1236     int fd;
1237
1238     if ((fd = DRIVE_OpenDevice( drive, O_RDONLY )) != -1)
1239     {
1240         lseek( fd, begin * 512, SEEK_SET );
1241         /* FIXME: check errors */
1242         read( fd, dataptr, nr_sect * 512 );
1243         close( fd );
1244     }
1245     else
1246     {
1247         memset(dataptr, 0, nr_sect * 512);
1248         if (fake_success)
1249         {
1250             if (begin == 0 && nr_sect > 1) *(dataptr + 512) = 0xf8;
1251             if (begin == 1) *dataptr = 0xf8;
1252         }
1253         else
1254             return 0;
1255     }
1256     return 1;
1257 }
1258
1259
1260 /***********************************************************************
1261  *           DRIVE_RawWrite
1262  *
1263  * Write raw sectors to a device
1264  */
1265 int DRIVE_RawWrite(BYTE drive, DWORD begin, DWORD nr_sect, BYTE *dataptr, BOOL fake_success)
1266 {
1267     int fd;
1268
1269     if ((fd = DRIVE_OpenDevice( drive, O_RDONLY )) != -1)
1270     {
1271         lseek( fd, begin * 512, SEEK_SET );
1272         /* FIXME: check errors */
1273         write( fd, dataptr, nr_sect * 512 );
1274         close( fd );
1275     }
1276     else
1277     if (!(fake_success))
1278         return 0;
1279
1280     return 1;
1281 }
1282
1283
1284 /***********************************************************************
1285  *           DRIVE_GetFreeSpace
1286  */
1287 static int DRIVE_GetFreeSpace( int drive, PULARGE_INTEGER size,
1288                                PULARGE_INTEGER available )
1289 {
1290     struct statfs info;
1291
1292     if (!DRIVE_IsValid(drive))
1293     {
1294         SetLastError( ERROR_PATH_NOT_FOUND );
1295         return 0;
1296     }
1297
1298 /* FIXME: add autoconf check for this */
1299 #if defined(__svr4__) || defined(_SCO_DS) || defined(__sun)
1300     if (statfs( DOSDrives[drive].root, &info, 0, 0) < 0)
1301 #else
1302     if (statfs( DOSDrives[drive].root, &info) < 0)
1303 #endif
1304     {
1305         FILE_SetDosError();
1306         WARN("cannot do statfs(%s)\n", DOSDrives[drive].root);
1307         return 0;
1308     }
1309
1310     size->QuadPart = RtlEnlargedUnsignedMultiply( info.f_bsize, info.f_blocks );
1311 #ifdef STATFS_HAS_BAVAIL
1312     available->QuadPart = RtlEnlargedUnsignedMultiply( info.f_bavail, info.f_bsize );
1313 #else
1314 # ifdef STATFS_HAS_BFREE
1315     available->QuadPart = RtlEnlargedUnsignedMultiply( info.f_bfree, info.f_bsize );
1316 # else
1317 #  error "statfs has no bfree/bavail member!"
1318 # endif
1319 #endif
1320     if (DOSDrives[drive].type == DRIVE_CDROM)
1321     { /* ALWAYS 0, even if no real CD-ROM mounted there !! */
1322         available->QuadPart = 0;
1323     }
1324     return 1;
1325 }
1326
1327 /***********************************************************************
1328  *       DRIVE_GetCurrentDirectory
1329  * Returns "X:\\path\\etc\\".
1330  *
1331  * Despite the API description, return required length including the
1332  * terminating null when buffer too small. This is the real behaviour.
1333 */
1334 static UINT DRIVE_GetCurrentDirectory( UINT buflen, LPWSTR buf )
1335 {
1336     UINT ret;
1337     LPCWSTR dos_cwd = DRIVE_GetDosCwd( DRIVE_GetCurrentDrive() );
1338     static const WCHAR driveA_rootW[] = {'A',':','\\',0};
1339
1340     ret = strlenW(dos_cwd) + 3; /* length of WHOLE current directory */
1341     if (ret >= buflen) return ret + 1;
1342
1343     strcpyW( buf, driveA_rootW );
1344     buf[0] += DRIVE_GetCurrentDrive();
1345     strcatW( buf, dos_cwd );
1346     return ret;
1347 }
1348
1349
1350 /***********************************************************************
1351  *           DRIVE_BuildEnv
1352  *
1353  * Build the environment array containing the drives' current directories.
1354  * Resulting pointer must be freed with HeapFree.
1355  */
1356 char *DRIVE_BuildEnv(void)
1357 {
1358     int i, length = 0;
1359     LPCWSTR cwd[MAX_DOS_DRIVES];
1360     char *env, *p;
1361
1362     for (i = 0; i < MAX_DOS_DRIVES; i++)
1363     {
1364         if ((cwd[i] = DRIVE_GetDosCwd(i)) && cwd[i][0])
1365             length += WideCharToMultiByte(DRIVE_GetCodepage(i), 0,
1366                                           cwd[i], -1, NULL, 0, NULL, NULL) + 7;
1367     }
1368     if (!(env = HeapAlloc( GetProcessHeap(), 0, length+1 ))) return NULL;
1369     for (i = 0, p = env; i < MAX_DOS_DRIVES; i++)
1370     {
1371         if (cwd[i] && cwd[i][0])
1372         {
1373             *p++ = '='; *p++ = 'A' + i; *p++ = ':';
1374             *p++ = '='; *p++ = 'A' + i; *p++ = ':'; *p++ = '\\';
1375             WideCharToMultiByte(DRIVE_GetCodepage(i), 0, cwd[i], -1, p, 0x7fffffff, NULL, NULL);
1376             p += strlen(p) + 1;
1377         }
1378     }
1379     *p = 0;
1380     return env;
1381 }
1382
1383
1384 /***********************************************************************
1385  *           GetDiskFreeSpace   (KERNEL.422)
1386  */
1387 BOOL16 WINAPI GetDiskFreeSpace16( LPCSTR root, LPDWORD cluster_sectors,
1388                                   LPDWORD sector_bytes, LPDWORD free_clusters,
1389                                   LPDWORD total_clusters )
1390 {
1391     return GetDiskFreeSpaceA( root, cluster_sectors, sector_bytes,
1392                                 free_clusters, total_clusters );
1393 }
1394
1395
1396 /***********************************************************************
1397  *           GetDiskFreeSpaceW   (KERNEL32.@)
1398  *
1399  * Fails if expression resulting from current drive's dir and "root"
1400  * is not a root dir of the target drive.
1401  *
1402  * UNDOC: setting some LPDWORDs to NULL is perfectly possible
1403  * if the corresponding info is unneeded.
1404  *
1405  * FIXME: needs to support UNC names from Win95 OSR2 on.
1406  *
1407  * Behaviour under Win95a:
1408  * CurrDir     root   result
1409  * "E:\\TEST"  "E:"   FALSE
1410  * "E:\\"      "E:"   TRUE
1411  * "E:\\"      "E"    FALSE
1412  * "E:\\"      "\\"   TRUE
1413  * "E:\\TEST"  "\\"   TRUE
1414  * "E:\\TEST"  ":\\"  FALSE
1415  * "E:\\TEST"  "E:\\" TRUE
1416  * "E:\\TEST"  ""     FALSE
1417  * "E:\\"      ""     FALSE (!)
1418  * "E:\\"      0x0    TRUE
1419  * "E:\\TEST"  0x0    TRUE  (!)
1420  * "E:\\TEST"  "C:"   TRUE  (when CurrDir of "C:" set to "\\")
1421  * "E:\\TEST"  "C:"   FALSE (when CurrDir of "C:" set to "\\TEST")
1422  */
1423 BOOL WINAPI GetDiskFreeSpaceW( LPCWSTR root, LPDWORD cluster_sectors,
1424                                    LPDWORD sector_bytes, LPDWORD free_clusters,
1425                                    LPDWORD total_clusters )
1426 {
1427     int drive, sec_size;
1428     ULARGE_INTEGER size,available;
1429     LPCWSTR path;
1430     DWORD cluster_sec;
1431
1432     TRACE("%s,%p,%p,%p,%p\n", debugstr_w(root), cluster_sectors, sector_bytes,
1433           free_clusters, total_clusters);
1434
1435     if (!root || root[0] == '\\' || root[0] == '/')
1436         drive = DRIVE_GetCurrentDrive();
1437     else
1438     if (root[0] && root[1] == ':') /* root contains drive tag */
1439     {
1440         drive = toupperW(root[0]) - 'A';
1441         path = &root[2];
1442         if (path[0] == '\0')
1443         {
1444             path = DRIVE_GetDosCwd(drive);
1445             if (!path)
1446             {
1447                 SetLastError(ERROR_PATH_NOT_FOUND);
1448                 return FALSE;
1449             }
1450         }
1451         else
1452         if (path[0] == '\\')
1453             path++;
1454
1455         if (path[0]) /* oops, we are in a subdir */
1456         {
1457             SetLastError(ERROR_INVALID_NAME);
1458             return FALSE;
1459         }
1460     }
1461     else
1462     {
1463         if (!root[0])
1464             SetLastError(ERROR_PATH_NOT_FOUND);
1465         else
1466             SetLastError(ERROR_INVALID_NAME);
1467         return FALSE;
1468     }
1469
1470     if (!DRIVE_GetFreeSpace(drive, &size, &available)) return FALSE;
1471
1472     /* Cap the size and available at 2GB as per specs.  */
1473     if ((size.s.HighPart) ||(size.s.LowPart > 0x7fffffff))
1474     {
1475         size.s.HighPart = 0;
1476         size.s.LowPart = 0x7fffffff;
1477     }
1478     if ((available.s.HighPart) ||(available.s.LowPart > 0x7fffffff))
1479     {
1480         available.s.HighPart =0;
1481         available.s.LowPart = 0x7fffffff;
1482     }
1483     sec_size = (DRIVE_GetType(drive)==DRIVE_CDROM) ? 2048 : 512;
1484     size.s.LowPart            /= sec_size;
1485     available.s.LowPart       /= sec_size;
1486     /* FIXME: probably have to adjust those variables too for CDFS */
1487     cluster_sec = 1;
1488     while (cluster_sec * 65536 < size.s.LowPart) cluster_sec *= 2;
1489
1490     if (cluster_sectors)
1491         *cluster_sectors = cluster_sec;
1492     if (sector_bytes)
1493         *sector_bytes    = sec_size;
1494     if (free_clusters)
1495         *free_clusters   = available.s.LowPart / cluster_sec;
1496     if (total_clusters)
1497         *total_clusters  = size.s.LowPart / cluster_sec;
1498     return TRUE;
1499 }
1500
1501
1502 /***********************************************************************
1503  *           GetDiskFreeSpaceA   (KERNEL32.@)
1504  */
1505 BOOL WINAPI GetDiskFreeSpaceA( LPCSTR root, LPDWORD cluster_sectors,
1506                                    LPDWORD sector_bytes, LPDWORD free_clusters,
1507                                    LPDWORD total_clusters )
1508 {
1509     UNICODE_STRING rootW;
1510     BOOL ret = FALSE;
1511
1512     if (root)
1513     {
1514         if(!RtlCreateUnicodeStringFromAsciiz(&rootW, root))
1515         {
1516             SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1517             return FALSE;
1518         }
1519     }
1520     else
1521         rootW.Buffer = NULL;
1522
1523     ret = GetDiskFreeSpaceW(rootW.Buffer, cluster_sectors, sector_bytes,
1524                             free_clusters, total_clusters );
1525     RtlFreeUnicodeString(&rootW);
1526
1527     return ret;
1528 }
1529
1530
1531 /***********************************************************************
1532  *           GetDiskFreeSpaceExW   (KERNEL32.@)
1533  *
1534  *  This function is used to acquire the size of the available and
1535  *  total space on a logical volume.
1536  *
1537  * RETURNS
1538  *
1539  *  Zero on failure, nonzero upon success. Use GetLastError to obtain
1540  *  detailed error information.
1541  *
1542  */
1543 BOOL WINAPI GetDiskFreeSpaceExW( LPCWSTR root,
1544                                      PULARGE_INTEGER avail,
1545                                      PULARGE_INTEGER total,
1546                                      PULARGE_INTEGER totalfree)
1547 {
1548     int drive;
1549     ULARGE_INTEGER size,available;
1550
1551     if (!root) drive = DRIVE_GetCurrentDrive();
1552     else
1553     { /* C: always works for GetDiskFreeSpaceEx */
1554         if ((root[1]) && ((root[1] != ':') || (root[2] && root[2] != '\\')))
1555         {
1556             FIXME("there are valid root names which are not supported yet\n");
1557             /* ..like UNC names, for instance. */
1558
1559             WARN("invalid root '%s'\n", debugstr_w(root));
1560             return FALSE;
1561         }
1562         drive = toupperW(root[0]) - 'A';
1563     }
1564
1565     if (!DRIVE_GetFreeSpace(drive, &size, &available)) return FALSE;
1566
1567     if (total)
1568     {
1569         total->s.HighPart = size.s.HighPart;
1570         total->s.LowPart = size.s.LowPart;
1571     }
1572
1573     if (totalfree)
1574     {
1575         totalfree->s.HighPart = available.s.HighPart;
1576         totalfree->s.LowPart = available.s.LowPart;
1577     }
1578
1579     if (avail)
1580     {
1581         if (FIXME_ON(dosfs))
1582         {
1583             /* On Windows2000, we need to check the disk quota
1584                allocated for the user owning the calling process. We
1585                don't want to be more obtrusive than necessary with the
1586                FIXME messages, so don't print the FIXME unless Wine is
1587                actually masquerading as Windows2000. */
1588
1589             OSVERSIONINFOA ovi;
1590             ovi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA);
1591             if (GetVersionExA(&ovi))
1592             {
1593               if (ovi.dwPlatformId == VER_PLATFORM_WIN32_NT && ovi.dwMajorVersion > 4)
1594                   FIXME("no per-user quota support yet\n");
1595             }
1596         }
1597
1598         /* Quick hack, should eventually be fixed to work 100% with
1599            Windows2000 (see comment above). */
1600         avail->s.HighPart = available.s.HighPart;
1601         avail->s.LowPart = available.s.LowPart;
1602     }
1603
1604     return TRUE;
1605 }
1606
1607 /***********************************************************************
1608  *           GetDiskFreeSpaceExA   (KERNEL32.@)
1609  */
1610 BOOL WINAPI GetDiskFreeSpaceExA( LPCSTR root, PULARGE_INTEGER avail,
1611                                      PULARGE_INTEGER total,
1612                                      PULARGE_INTEGER  totalfree)
1613 {
1614     UNICODE_STRING rootW;
1615     BOOL ret;
1616
1617     if (root) RtlCreateUnicodeStringFromAsciiz(&rootW, root);
1618     else rootW.Buffer = NULL;
1619
1620     ret = GetDiskFreeSpaceExW( rootW.Buffer, avail, total, totalfree);
1621
1622     RtlFreeUnicodeString(&rootW);
1623     return ret;
1624 }
1625
1626 /***********************************************************************
1627  *           GetDriveType   (KERNEL.136)
1628  * This function returns the type of a drive in Win16.
1629  * Note that it returns DRIVE_REMOTE for CD-ROMs, since MSCDEX uses the
1630  * remote drive API. The return value DRIVE_REMOTE for CD-ROMs has been
1631  * verified on Win 3.11 and Windows 95. Some programs rely on it, so don't
1632  * do any pseudo-clever changes.
1633  *
1634  * RETURNS
1635  *      drivetype DRIVE_xxx
1636  */
1637 UINT16 WINAPI GetDriveType16( UINT16 drive ) /* [in] number (NOT letter) of drive */
1638 {
1639     UINT type = DRIVE_GetType(drive);
1640     TRACE("(%c:)\n", 'A' + drive );
1641     if (type == DRIVE_CDROM) type = DRIVE_REMOTE;
1642     return type;
1643 }
1644
1645
1646 /***********************************************************************
1647  *           GetDriveTypeW   (KERNEL32.@)
1648  *
1649  * Returns the type of the disk drive specified. If root is NULL the
1650  * root of the current directory is used.
1651  *
1652  * RETURNS
1653  *
1654  *  Type of drive (from Win32 SDK):
1655  *
1656  *   DRIVE_UNKNOWN     unable to find out anything about the drive
1657  *   DRIVE_NO_ROOT_DIR nonexistent root dir
1658  *   DRIVE_REMOVABLE   the disk can be removed from the machine
1659  *   DRIVE_FIXED       the disk can not be removed from the machine
1660  *   DRIVE_REMOTE      network disk
1661  *   DRIVE_CDROM       CDROM drive
1662  *   DRIVE_RAMDISK     virtual disk in RAM
1663  */
1664 UINT WINAPI GetDriveTypeW(LPCWSTR root) /* [in] String describing drive */
1665 {
1666     int drive;
1667     TRACE("(%s)\n", debugstr_w(root));
1668
1669     if (NULL == root) drive = DRIVE_GetCurrentDrive();
1670     else
1671     {
1672         if ((root[1]) && (root[1] != ':'))
1673         {
1674             WARN("invalid root %s\n", debugstr_w(root));
1675             return DRIVE_NO_ROOT_DIR;
1676         }
1677         drive = toupperW(root[0]) - 'A';
1678     }
1679     return DRIVE_GetType(drive);
1680 }
1681
1682
1683 /***********************************************************************
1684  *           GetDriveTypeA   (KERNEL32.@)
1685  */
1686 UINT WINAPI GetDriveTypeA( LPCSTR root )
1687 {
1688     UNICODE_STRING rootW;
1689     UINT ret = 0;
1690
1691     if (root)
1692     {
1693         if( !RtlCreateUnicodeStringFromAsciiz(&rootW, root))
1694         {
1695             SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1696             return 0;
1697         }
1698     }
1699     else
1700         rootW.Buffer = NULL;
1701
1702     ret = GetDriveTypeW(rootW.Buffer);
1703
1704     RtlFreeUnicodeString(&rootW);
1705     return ret;
1706
1707 }
1708
1709
1710 /***********************************************************************
1711  *           GetCurrentDirectory   (KERNEL.411)
1712  */
1713 UINT16 WINAPI GetCurrentDirectory16( UINT16 buflen, LPSTR buf )
1714 {
1715     WCHAR cur_dirW[MAX_PATH];
1716
1717     DRIVE_GetCurrentDirectory(MAX_PATH, cur_dirW);
1718     return (UINT16)WideCharToMultiByte(CP_ACP, 0, cur_dirW, -1, buf, buflen, NULL, NULL);
1719 }
1720
1721
1722 /***********************************************************************
1723  *           GetCurrentDirectoryW   (KERNEL32.@)
1724  */
1725 UINT WINAPI GetCurrentDirectoryW( UINT buflen, LPWSTR buf )
1726 {
1727     UINT ret;
1728     WCHAR longname[MAX_PATHNAME_LEN];
1729     WCHAR shortname[MAX_PATHNAME_LEN];
1730
1731     ret = DRIVE_GetCurrentDirectory(MAX_PATHNAME_LEN, shortname);
1732     if ( ret > MAX_PATHNAME_LEN ) {
1733       ERR_(file)("pathnamelength (%d) > MAX_PATHNAME_LEN!\n", ret );
1734       return ret;
1735     }
1736     GetLongPathNameW(shortname, longname, MAX_PATHNAME_LEN);
1737     ret = strlenW( longname ) + 1;
1738     if (ret > buflen) return ret;
1739     strcpyW(buf, longname);
1740     return ret - 1;
1741 }
1742
1743 /***********************************************************************
1744  *           GetCurrentDirectoryA   (KERNEL32.@)
1745  */
1746 UINT WINAPI GetCurrentDirectoryA( UINT buflen, LPSTR buf )
1747 {
1748     WCHAR bufferW[MAX_PATH];
1749     DWORD ret, retW;
1750
1751     retW = GetCurrentDirectoryW(MAX_PATH, bufferW);
1752
1753     if (!retW)
1754         ret = 0;
1755     else if (retW > MAX_PATH)
1756     {
1757         SetLastError(ERROR_FILENAME_EXCED_RANGE);
1758         ret = 0;
1759     }
1760     else
1761     {
1762         ret = WideCharToMultiByte(CP_ACP, 0, bufferW, -1, NULL, 0, NULL, NULL);
1763         if (buflen >= ret)
1764         {
1765             WideCharToMultiByte(CP_ACP, 0, bufferW, -1, buf, buflen, NULL, NULL);
1766             ret--; /* length without 0 */
1767         }
1768     }
1769     return ret;
1770 }
1771
1772
1773 /***********************************************************************
1774  *           SetCurrentDirectory   (KERNEL.412)
1775  */
1776 BOOL16 WINAPI SetCurrentDirectory16( LPCSTR dir )
1777 {
1778     return SetCurrentDirectoryA( dir );
1779 }
1780
1781
1782 /***********************************************************************
1783  *           SetCurrentDirectoryW   (KERNEL32.@)
1784  */
1785 BOOL WINAPI SetCurrentDirectoryW( LPCWSTR dir )
1786 {
1787     int drive, olddrive = DRIVE_GetCurrentDrive();
1788
1789     if (!dir)
1790     {
1791         SetLastError(ERROR_INVALID_PARAMETER);
1792         return FALSE;
1793     }
1794     if (dir[0] && (dir[1]==':'))
1795     {
1796         drive = toupperW( *dir ) - 'A';
1797         dir += 2;
1798     }
1799     else
1800         drive = olddrive;
1801
1802     /* WARNING: we need to set the drive before the dir, as DRIVE_Chdir
1803        sets pTask->curdir only if pTask->curdrive is drive */
1804     if (!(DRIVE_SetCurrentDrive( drive )))
1805         return FALSE;
1806
1807     /* FIXME: what about empty strings? Add a \\ ? */
1808     if (!DRIVE_Chdir( drive, dir )) {
1809         DRIVE_SetCurrentDrive(olddrive);
1810         return FALSE;
1811     }
1812     return TRUE;
1813 }
1814
1815
1816 /***********************************************************************
1817  *           SetCurrentDirectoryA   (KERNEL32.@)
1818  */
1819 BOOL WINAPI SetCurrentDirectoryA( LPCSTR dir )
1820 {
1821     UNICODE_STRING dirW;
1822     BOOL ret = FALSE;
1823
1824     if (!dir)
1825     {
1826         SetLastError(ERROR_INVALID_PARAMETER);
1827         return FALSE;
1828     }
1829
1830     if (RtlCreateUnicodeStringFromAsciiz(&dirW, dir))
1831     {
1832         ret = SetCurrentDirectoryW(dirW.Buffer);
1833         RtlFreeUnicodeString(&dirW);
1834     }
1835     else
1836         SetLastError(ERROR_NOT_ENOUGH_MEMORY);
1837     return ret;
1838 }
1839
1840
1841 /***********************************************************************
1842  *           GetLogicalDriveStringsA   (KERNEL32.@)
1843  */
1844 UINT WINAPI GetLogicalDriveStringsA( UINT len, LPSTR buffer )
1845 {
1846     int drive, count;
1847
1848     for (drive = count = 0; drive < MAX_DOS_DRIVES; drive++)
1849         if (DRIVE_IsValid(drive)) count++;
1850     if ((count * 4) + 1 <= len)
1851     {
1852         LPSTR p = buffer;
1853         for (drive = 0; drive < MAX_DOS_DRIVES; drive++)
1854             if (DRIVE_IsValid(drive))
1855             {
1856                 *p++ = 'a' + drive;
1857                 *p++ = ':';
1858                 *p++ = '\\';
1859                 *p++ = '\0';
1860             }
1861         *p = '\0';
1862         return count * 4;
1863     }
1864     else
1865         return (count * 4) + 1; /* account for terminating null */
1866     /* The API tells about these different return values */
1867 }
1868
1869
1870 /***********************************************************************
1871  *           GetLogicalDriveStringsW   (KERNEL32.@)
1872  */
1873 UINT WINAPI GetLogicalDriveStringsW( UINT len, LPWSTR buffer )
1874 {
1875     int drive, count;
1876
1877     for (drive = count = 0; drive < MAX_DOS_DRIVES; drive++)
1878         if (DRIVE_IsValid(drive)) count++;
1879     if (count * 4 * sizeof(WCHAR) <= len)
1880     {
1881         LPWSTR p = buffer;
1882         for (drive = 0; drive < MAX_DOS_DRIVES; drive++)
1883             if (DRIVE_IsValid(drive))
1884             {
1885                 *p++ = (WCHAR)('a' + drive);
1886                 *p++ = (WCHAR)':';
1887                 *p++ = (WCHAR)'\\';
1888                 *p++ = (WCHAR)'\0';
1889             }
1890         *p = (WCHAR)'\0';
1891     }
1892     return count * 4 * sizeof(WCHAR);
1893 }
1894
1895
1896 /***********************************************************************
1897  *           GetLogicalDrives   (KERNEL32.@)
1898  */
1899 DWORD WINAPI GetLogicalDrives(void)
1900 {
1901     DWORD ret = 0;
1902     int drive;
1903
1904     for (drive = 0; drive < MAX_DOS_DRIVES; drive++)
1905     {
1906         if ( (DRIVE_IsValid(drive)) ||
1907             (DOSDrives[drive].type == DRIVE_CDROM)) /* audio CD is also valid */
1908             ret |= (1 << drive);
1909     }
1910     return ret;
1911 }
1912
1913
1914 /***********************************************************************
1915  *           GetVolumeInformationW   (KERNEL32.@)
1916  */
1917 BOOL WINAPI GetVolumeInformationW( LPCWSTR root, LPWSTR label,
1918                                        DWORD label_len, DWORD *serial,
1919                                        DWORD *filename_len, DWORD *flags,
1920                                        LPWSTR fsname, DWORD fsname_len )
1921 {
1922     int drive;
1923     LPWSTR cp;
1924
1925     /* FIXME, SetLastError()s missing */
1926
1927     if (!root) drive = DRIVE_GetCurrentDrive();
1928     else
1929     {
1930         if (root[0] && root[1] != ':')
1931         {
1932             WARN("invalid root %s\n", debugstr_w(root));
1933             return FALSE;
1934         }
1935         drive = toupperW(root[0]) - 'A';
1936     }
1937     if (!DRIVE_IsValid( drive )) return FALSE;
1938     if (label && label_len)
1939     {
1940        strncpyW( label, DRIVE_GetLabel(drive), label_len );
1941        label[label_len - 1] = 0; /* ensure 0 termination */
1942        cp = label + strlenW(label);
1943        while (cp != label && *(cp-1) == ' ') cp--;
1944        *cp = '\0';
1945     }
1946     if (serial) *serial = DRIVE_GetSerialNumber(drive);
1947
1948     /* Set the filesystem information */
1949     /* Note: we only emulate a FAT fs at present */
1950
1951     if (filename_len) {
1952         if (DOSDrives[drive].flags & DRIVE_SHORT_NAMES)
1953             *filename_len = 12;
1954         else
1955             *filename_len = 255;
1956     }
1957     if (flags)
1958       {
1959        *flags=0;
1960        if (DOSDrives[drive].flags & DRIVE_CASE_SENSITIVE)
1961          *flags|=FS_CASE_SENSITIVE;
1962        if (DOSDrives[drive].flags & DRIVE_CASE_PRESERVING)
1963          *flags|=FS_CASE_IS_PRESERVED;
1964       }
1965     if (fsname && fsname_len)
1966     {
1967         /* Diablo checks that return code ... */
1968         if (DOSDrives[drive].type == DRIVE_CDROM)
1969         {
1970             static const WCHAR cdfsW[] = {'C','D','F','S',0};
1971             strncpyW( fsname, cdfsW, fsname_len );
1972         }
1973         else
1974         {
1975             static const WCHAR fatW[] = {'F','A','T',0};
1976             strncpyW( fsname, fatW, fsname_len );
1977         }
1978         fsname[fsname_len - 1] = 0; /* ensure 0 termination */
1979     }
1980     return TRUE;
1981 }
1982
1983
1984 /***********************************************************************
1985  *           GetVolumeInformationA   (KERNEL32.@)
1986  */
1987 BOOL WINAPI GetVolumeInformationA( LPCSTR root, LPSTR label,
1988                                        DWORD label_len, DWORD *serial,
1989                                        DWORD *filename_len, DWORD *flags,
1990                                        LPSTR fsname, DWORD fsname_len )
1991 {
1992     UNICODE_STRING rootW;
1993     LPWSTR labelW, fsnameW;
1994     BOOL ret;
1995
1996     if (root) RtlCreateUnicodeStringFromAsciiz(&rootW, root);
1997     else rootW.Buffer = NULL;
1998     labelW = label ? HeapAlloc(GetProcessHeap(), 0, label_len * sizeof(WCHAR)) : NULL;
1999     fsnameW = fsname ? HeapAlloc(GetProcessHeap(), 0, fsname_len * sizeof(WCHAR)) : NULL;
2000
2001     if ((ret = GetVolumeInformationW(rootW.Buffer, labelW, label_len, serial,
2002                                     filename_len, flags, fsnameW, fsname_len)))
2003     {
2004         if (label) WideCharToMultiByte(CP_ACP, 0, labelW, -1, label, label_len, NULL, NULL);
2005         if (fsname) WideCharToMultiByte(CP_ACP, 0, fsnameW, -1, fsname, fsname_len, NULL, NULL);
2006     }
2007
2008     RtlFreeUnicodeString(&rootW);
2009     if (labelW) HeapFree( GetProcessHeap(), 0, labelW );
2010     if (fsnameW) HeapFree( GetProcessHeap(), 0, fsnameW );
2011     return ret;
2012 }
2013
2014 /***********************************************************************
2015  *           SetVolumeLabelW   (KERNEL32.@)
2016  */
2017 BOOL WINAPI SetVolumeLabelW( LPCWSTR root, LPCWSTR volname )
2018 {
2019     int drive;
2020
2021     /* FIXME, SetLastErrors missing */
2022
2023     if (!root) drive = DRIVE_GetCurrentDrive();
2024     else
2025     {
2026         if ((root[1]) && (root[1] != ':'))
2027         {
2028             WARN("invalid root %s\n", debugstr_w(root));
2029             return FALSE;
2030         }
2031         drive = toupperW(root[0]) - 'A';
2032     }
2033     if (!DRIVE_IsValid( drive )) return FALSE;
2034
2035     /* some copy protection stuff check this */
2036     if (DOSDrives[drive].type == DRIVE_CDROM) return FALSE;
2037
2038     strncpyW(DOSDrives[drive].label_conf, volname, 12);
2039     DOSDrives[drive].label_conf[12 - 1] = 0; /* ensure 0 termination */
2040     return TRUE;
2041 }
2042
2043 /***********************************************************************
2044  *           SetVolumeLabelA   (KERNEL32.@)
2045  */
2046 BOOL WINAPI SetVolumeLabelA(LPCSTR root, LPCSTR volname)
2047 {
2048     UNICODE_STRING rootW, volnameW;
2049     BOOL ret;
2050
2051     if (root) RtlCreateUnicodeStringFromAsciiz(&rootW, root);
2052     else rootW.Buffer = NULL;
2053     if (volname) RtlCreateUnicodeStringFromAsciiz(&volnameW, volname);
2054     else volnameW.Buffer = NULL;
2055
2056     ret = SetVolumeLabelW( rootW.Buffer, volnameW.Buffer );
2057
2058     RtlFreeUnicodeString(&rootW);
2059     RtlFreeUnicodeString(&volnameW);
2060     return ret;
2061 }