1452 lines
45 KiB
C
1452 lines
45 KiB
C
/*
|
|
* DOS interrupt 21h handler
|
|
*
|
|
* Copyright 1993, 1994 Erik Bos
|
|
* Copyright 1996 Alexandre Julliard
|
|
* Copyright 1997 Andreas Mohr
|
|
* Copyright 1998 Uwe Bonnes
|
|
* Copyright 1998, 1999 Ove Kaaven
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
#include "config.h"
|
|
#include "wine/port.h"
|
|
|
|
#include <time.h>
|
|
#include <fcntl.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#ifdef HAVE_SYS_FILE_H
|
|
# include <sys/file.h>
|
|
#endif
|
|
#include <string.h>
|
|
#ifdef HAVE_SYS_TIME_H
|
|
# include <sys/time.h>
|
|
#endif
|
|
#include <sys/types.h>
|
|
#ifdef HAVE_UNISTD_H
|
|
# include <unistd.h>
|
|
#endif
|
|
#ifdef HAVE_UTIME_H
|
|
# include <utime.h>
|
|
#endif
|
|
#include <ctype.h>
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "winternl.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h" /* SW_NORMAL */
|
|
#include "wine/winbase16.h"
|
|
#include "winerror.h"
|
|
#include "drive.h"
|
|
#include "file.h"
|
|
#include "callback.h"
|
|
#include "msdos.h"
|
|
#include "miscemu.h"
|
|
#include "task.h"
|
|
#include "wine/unicode.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(int21);
|
|
#if defined(__svr4__) || defined(_SCO_DS)
|
|
/* SVR4 DOESNT do locking the same way must implement properly */
|
|
#define LOCK_EX 0
|
|
#define LOCK_SH 1
|
|
#define LOCK_NB 8
|
|
#endif
|
|
|
|
|
|
#define DOS_GET_DRIVE(reg) ((reg) ? (reg) - 1 : DRIVE_GetCurrentDrive())
|
|
|
|
/* Define the drive parameter block, as used by int21/1F
|
|
* and int21/32. This table can be accessed through the
|
|
* global 'dpb' pointer, which points into the local dos
|
|
* heap.
|
|
*/
|
|
struct DPB
|
|
{
|
|
BYTE drive_num; /* 0=A, etc. */
|
|
BYTE unit_num; /* Drive's unit number (?) */
|
|
WORD sector_size; /* Sector size in bytes */
|
|
BYTE high_sector; /* Highest sector in a cluster */
|
|
BYTE shift; /* Shift count (?) */
|
|
WORD reserved; /* Number of reserved sectors at start */
|
|
BYTE num_FAT; /* Number of FATs */
|
|
WORD dir_entries; /* Number of root dir entries */
|
|
WORD first_data; /* First data sector */
|
|
WORD high_cluster; /* Highest cluster number */
|
|
WORD sectors_in_FAT; /* Number of sectors per FAT */
|
|
WORD start_dir; /* Starting sector of first dir */
|
|
DWORD driver_head; /* Address of device driver header (?) */
|
|
BYTE media_ID; /* Media ID */
|
|
BYTE access_flag; /* Prev. accessed flag (0=yes,0xFF=no) */
|
|
DWORD next; /* Pointer to next DPB in list */
|
|
WORD free_search; /* Free cluster search start */
|
|
WORD free_clusters; /* Number of free clusters (0xFFFF=unknown) */
|
|
};
|
|
|
|
struct EDPB /* FAT32 extended Drive Parameter Block */
|
|
{ /* from Ralf Brown's Interrupt List */
|
|
struct DPB dpb; /* first 24 bytes = original DPB */
|
|
|
|
BYTE edpb_flags; /* undocumented/unknown flags */
|
|
DWORD next_edpb; /* pointer to next EDPB */
|
|
WORD free_cluster; /* cluster to start search for free space on write, typically
|
|
the last cluster allocated */
|
|
WORD clusters_free; /* number of free clusters on drive or FFFF = unknown */
|
|
WORD clusters_free_hi; /* hiword of clusters_free */
|
|
WORD mirroring_flags; /* mirroring flags: bit 7 set = do not mirror active FAT */
|
|
/* bits 0-3 = 0-based number of the active FAT */
|
|
WORD info_sector; /* sector number of file system info sector, or FFFF for none */
|
|
WORD spare_boot_sector; /* sector number of backup boot sector, or FFFF for none */
|
|
DWORD first_cluster; /* sector number of the first cluster */
|
|
DWORD max_cluster; /* sector number of the last cluster */
|
|
DWORD fat_clusters; /* number of clusters occupied by FAT */
|
|
DWORD root_cluster; /* cluster number of start of root directory */
|
|
DWORD free_cluster2; /* same as free_cluster: cluster at which to start
|
|
search for free space when writing */
|
|
|
|
};
|
|
|
|
DWORD dpbsegptr;
|
|
|
|
struct DosHeap {
|
|
BYTE mediaID;
|
|
BYTE biosdate[8];
|
|
struct DPB dpb;
|
|
};
|
|
static struct DosHeap *heap;
|
|
static WORD DosHeapHandle;
|
|
|
|
extern char TempDirectory[];
|
|
|
|
static void INT21_ReadConfigSys(void)
|
|
{
|
|
static int done;
|
|
if (!done) DOSCONF_ReadConfig();
|
|
done = 1;
|
|
}
|
|
|
|
static BOOL INT21_CreateHeap(void)
|
|
{
|
|
if (!(DosHeapHandle = GlobalAlloc16(GMEM_FIXED,sizeof(struct DosHeap))))
|
|
{
|
|
WARN("Out of memory\n");
|
|
return FALSE;
|
|
}
|
|
heap = (struct DosHeap *) GlobalLock16(DosHeapHandle);
|
|
dpbsegptr = MAKESEGPTR(DosHeapHandle,(int)&heap->dpb-(int)heap);
|
|
strcpy(heap->biosdate, "01/01/80");
|
|
return TRUE;
|
|
}
|
|
|
|
static BYTE *GetCurrentDTA( CONTEXT86 *context )
|
|
{
|
|
TDB *pTask = TASK_GetCurrent();
|
|
|
|
/* FIXME: This assumes DTA was set correctly! */
|
|
return (BYTE *)CTX_SEG_OFF_TO_LIN( context, SELECTOROF(pTask->dta),
|
|
(DWORD)OFFSETOF(pTask->dta) );
|
|
}
|
|
|
|
|
|
void CreateBPB(int drive, BYTE *data, BOOL16 limited)
|
|
/* limited == TRUE is used with INT 0x21/0x440d */
|
|
{
|
|
if (drive > 1) {
|
|
setword(data, 512);
|
|
data[2] = 2;
|
|
setword(&data[3], 0);
|
|
data[5] = 2;
|
|
setword(&data[6], 240);
|
|
setword(&data[8], 64000);
|
|
data[0x0a] = 0xf8;
|
|
setword(&data[0x0b], 40);
|
|
setword(&data[0x0d], 56);
|
|
setword(&data[0x0f], 2);
|
|
setword(&data[0x11], 0);
|
|
if (!limited) {
|
|
setword(&data[0x1f], 800);
|
|
data[0x21] = 5;
|
|
setword(&data[0x22], 1);
|
|
}
|
|
} else { /* 1.44mb */
|
|
setword(data, 512);
|
|
data[2] = 2;
|
|
setword(&data[3], 0);
|
|
data[5] = 2;
|
|
setword(&data[6], 240);
|
|
setword(&data[8], 2880);
|
|
data[0x0a] = 0xf8;
|
|
setword(&data[0x0b], 6);
|
|
setword(&data[0x0d], 18);
|
|
setword(&data[0x0f], 2);
|
|
setword(&data[0x11], 0);
|
|
if (!limited) {
|
|
setword(&data[0x1f], 80);
|
|
data[0x21] = 7;
|
|
setword(&data[0x22], 2);
|
|
}
|
|
}
|
|
}
|
|
|
|
static int INT21_GetFreeDiskSpace( CONTEXT86 *context )
|
|
{
|
|
DWORD cluster_sectors, sector_bytes, free_clusters, total_clusters;
|
|
char root[] = "A:\\";
|
|
|
|
*root += DOS_GET_DRIVE( DL_reg(context) );
|
|
if (!GetDiskFreeSpaceA( root, &cluster_sectors, §or_bytes,
|
|
&free_clusters, &total_clusters )) return 0;
|
|
SET_AX( context, cluster_sectors );
|
|
SET_BX( context, free_clusters );
|
|
SET_CX( context, sector_bytes );
|
|
SET_DX( context, total_clusters );
|
|
return 1;
|
|
}
|
|
|
|
static int INT21_GetDriveAllocInfo( CONTEXT86 *context )
|
|
{
|
|
if (!INT21_GetFreeDiskSpace( context )) return 0;
|
|
if (!heap && !INT21_CreateHeap()) return 0;
|
|
heap->mediaID = 0xf0;
|
|
context->SegDs = DosHeapHandle;
|
|
SET_BX( context, (int)&heap->mediaID - (int)heap );
|
|
return 1;
|
|
}
|
|
|
|
static int FillInDrivePB( int drive )
|
|
{
|
|
if(!DRIVE_IsValid(drive))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
return 0;
|
|
}
|
|
else if (heap || INT21_CreateHeap())
|
|
{
|
|
/* FIXME: I have no idea what a lot of this information should
|
|
* say or whether it even really matters since we're not allowing
|
|
* direct block access. However, some programs seem to depend on
|
|
* getting at least _something_ back from here. The 'next' pointer
|
|
* does worry me, though. Should we have a complete table of
|
|
* separate DPBs per drive? Probably, but I'm lazy. :-) -CH
|
|
*/
|
|
heap->dpb.drive_num = heap->dpb.unit_num = drive; /*The same?*/
|
|
heap->dpb.sector_size = 512;
|
|
heap->dpb.high_sector = 1;
|
|
heap->dpb.shift = drive < 2 ? 0 : 6; /*6 for HD, 0 for floppy*/
|
|
heap->dpb.reserved = 0;
|
|
heap->dpb.num_FAT = 1;
|
|
heap->dpb.dir_entries = 2;
|
|
heap->dpb.first_data = 2;
|
|
heap->dpb.high_cluster = 64000;
|
|
heap->dpb.sectors_in_FAT = 1;
|
|
heap->dpb.start_dir = 1;
|
|
heap->dpb.driver_head = 0;
|
|
heap->dpb.media_ID = (drive > 1) ? 0xF8 : 0xF0;
|
|
heap->dpb.access_flag = 0;
|
|
heap->dpb.next = 0;
|
|
heap->dpb.free_search = 0;
|
|
heap->dpb.free_clusters = 0xFFFF; /* unknown */
|
|
return 1;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
static void GetDrivePB( CONTEXT86 *context, int drive )
|
|
{
|
|
if (FillInDrivePB( drive ))
|
|
{
|
|
SET_AL( context, 0x00 );
|
|
context->SegDs = SELECTOROF(dpbsegptr);
|
|
SET_BX( context, OFFSETOF(dpbsegptr) );
|
|
}
|
|
else
|
|
{
|
|
SET_AX( context, 0x00ff );
|
|
}
|
|
}
|
|
|
|
|
|
static void ioctlGetDeviceInfo( CONTEXT86 *context )
|
|
{
|
|
int curr_drive;
|
|
const DOS_DEVICE *dev;
|
|
|
|
TRACE("(%d)\n", BX_reg(context));
|
|
|
|
RESET_CFLAG(context);
|
|
|
|
/* DOS device ? */
|
|
if ((dev = DOSFS_GetDeviceByHandle( DosFileHandleToWin32Handle(BX_reg(context)) )))
|
|
{
|
|
SET_DX( context, dev->flags );
|
|
return;
|
|
}
|
|
|
|
/* it seems to be a file */
|
|
curr_drive = DRIVE_GetCurrentDrive();
|
|
SET_DX( context, 0x0140 + curr_drive + ((curr_drive > 1) ? 0x0800 : 0) );
|
|
/* no floppy */
|
|
/* bits 0-5 are current drive
|
|
* bit 6 - file has NOT been written..FIXME: correct?
|
|
* bit 8 - generate int24 if no diskspace on write/ read past end of file
|
|
* bit 11 - media not removable
|
|
* bit 14 - don't set file date/time on closing
|
|
* bit 15 - file is remote
|
|
*/
|
|
}
|
|
|
|
static BOOL ioctlGenericBlkDevReq( CONTEXT86 *context )
|
|
{
|
|
BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
int drive = DOS_GET_DRIVE( BL_reg(context) );
|
|
|
|
if (!DRIVE_IsValid(drive))
|
|
{
|
|
SetLastError( ERROR_FILE_NOT_FOUND );
|
|
return TRUE;
|
|
}
|
|
|
|
if (CH_reg(context) != 0x08)
|
|
{
|
|
INT_BARF( context, 0x21 );
|
|
return FALSE;
|
|
}
|
|
|
|
switch (CL_reg(context))
|
|
{
|
|
case 0x4a: /* lock logical volume */
|
|
TRACE("lock logical volume (%d) level %d mode %d\n",drive,BH_reg(context),DX_reg(context));
|
|
break;
|
|
|
|
case 0x60: /* get device parameters */
|
|
/* used by w4wgrp's winfile */
|
|
memset(dataptr, 0, 0x20); /* DOS 6.22 uses 0x20 bytes */
|
|
dataptr[0] = 0x04;
|
|
dataptr[6] = 0; /* media type */
|
|
if (drive > 1)
|
|
{
|
|
dataptr[1] = 0x05; /* fixed disk */
|
|
setword(&dataptr[2], 0x01); /* non removable */
|
|
setword(&dataptr[4], 0x300); /* # of cylinders */
|
|
}
|
|
else
|
|
{
|
|
dataptr[1] = 0x07; /* block dev, floppy */
|
|
setword(&dataptr[2], 0x02); /* removable */
|
|
setword(&dataptr[4], 80); /* # of cylinders */
|
|
}
|
|
CreateBPB(drive, &dataptr[7], TRUE);
|
|
RESET_CFLAG(context);
|
|
break;
|
|
|
|
case 0x41: /* write logical device track */
|
|
case 0x61: /* read logical device track */
|
|
{
|
|
BYTE drive = BL_reg(context) ?
|
|
BL_reg(context) : DRIVE_GetCurrentDrive();
|
|
WORD head = *(WORD *)dataptr+1;
|
|
WORD cyl = *(WORD *)dataptr+3;
|
|
WORD sect = *(WORD *)dataptr+5;
|
|
WORD nrsect = *(WORD *)dataptr+7;
|
|
BYTE *data = (BYTE *)dataptr+9;
|
|
int (*raw_func)(BYTE, DWORD, DWORD, BYTE *, BOOL);
|
|
|
|
raw_func = (CL_reg(context) == 0x41) ?
|
|
DRIVE_RawWrite : DRIVE_RawRead;
|
|
|
|
if (raw_func(drive, head*cyl*sect, nrsect, data, FALSE))
|
|
RESET_CFLAG(context);
|
|
else
|
|
{
|
|
SET_AX( context, 0x1e ); /* read fault */
|
|
SET_CFLAG(context);
|
|
}
|
|
}
|
|
break;
|
|
case 0x66:/* get disk serial number */
|
|
{
|
|
char label[12],fsname[9],path[4];
|
|
DWORD serial;
|
|
|
|
strcpy(path,"x:\\");path[0]=drive+'A';
|
|
GetVolumeInformationA(
|
|
path,label,12,&serial,NULL,NULL,fsname,9
|
|
);
|
|
*(WORD*)dataptr = 0;
|
|
memcpy(dataptr+2,&serial,4);
|
|
memcpy(dataptr+6,label ,11);
|
|
memcpy(dataptr+17,fsname,8);
|
|
}
|
|
break;
|
|
|
|
case 0x6a:
|
|
TRACE("logical volume %d unlocked.\n",drive);
|
|
break;
|
|
|
|
case 0x6f:
|
|
memset(dataptr+1, '\0', dataptr[0]-1);
|
|
dataptr[1] = dataptr[0];
|
|
dataptr[2] = 0x07; /* protected mode driver; no eject; no notification */
|
|
dataptr[3] = 0xFF; /* no physical drive */
|
|
break;
|
|
|
|
case 0x72:
|
|
/* Trail on error implementation */
|
|
SET_AX( context, GetDriveType16(BL_reg(context)) == DRIVE_UNKNOWN ? 0x0f : 0x01 );
|
|
SET_CFLAG(context); /* Seems to be set all the time */
|
|
break;
|
|
|
|
default:
|
|
INT_BARF( context, 0x21 );
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
static void INT21_ParseFileNameIntoFCB( CONTEXT86 *context )
|
|
{
|
|
char *filename =
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi );
|
|
char *fcb =
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi );
|
|
char *s;
|
|
WCHAR *buffer;
|
|
WCHAR fcbW[12];
|
|
INT buffer_len, len;
|
|
|
|
SET_AL( context, 0xff ); /* failed */
|
|
|
|
TRACE("filename: '%s'\n", filename);
|
|
|
|
s = filename;
|
|
len = 0;
|
|
while (*s)
|
|
{
|
|
if ((*s != ' ') && (*s != '\r') && (*s != '\n'))
|
|
{
|
|
s++;
|
|
len++;
|
|
}
|
|
else
|
|
break;
|
|
}
|
|
|
|
buffer_len = MultiByteToWideChar(CP_OEMCP, 0, filename, len, NULL, 0);
|
|
buffer = HeapAlloc( GetProcessHeap(), 0, (buffer_len + 1) * sizeof(WCHAR));
|
|
len = MultiByteToWideChar(CP_OEMCP, 0, filename, len, buffer, buffer_len);
|
|
buffer[len] = 0;
|
|
DOSFS_ToDosFCBFormat(buffer, fcbW);
|
|
HeapFree(GetProcessHeap(), 0, buffer);
|
|
WideCharToMultiByte(CP_OEMCP, 0, fcbW, 12, fcb + 1, 12, NULL, NULL);
|
|
*fcb = 0;
|
|
TRACE("FCB: '%s'\n", fcb + 1);
|
|
|
|
SET_AL( context, ((strchr(filename, '*')) || (strchr(filename, '$'))) != 0 );
|
|
|
|
/* point DS:SI to first unparsed character */
|
|
SET_SI( context, context->Esi + (int)s - (int)filename );
|
|
}
|
|
|
|
|
|
/* Many calls translate a drive argument like this:
|
|
drive number (00h = default, 01h = A:, etc)
|
|
*/
|
|
static char drivestring[]="default";
|
|
|
|
char *INT21_DriveName(int drive)
|
|
{
|
|
|
|
if(drive >0)
|
|
{
|
|
drivestring[0]= (unsigned char)drive + '@';
|
|
drivestring[1]=':';
|
|
drivestring[2]=0;
|
|
}
|
|
return drivestring;
|
|
}
|
|
static BOOL INT21_CreateFile( CONTEXT86 *context )
|
|
{
|
|
SET_AX( context, _lcreat16( CTX_SEG_OFF_TO_LIN(context, context->SegDs,
|
|
context->Edx ), CX_reg(context) ) );
|
|
return (AX_reg(context) == (WORD)HFILE_ERROR16);
|
|
}
|
|
|
|
static HFILE16 _lcreat16_uniq( LPCSTR path, INT attr )
|
|
{
|
|
/* Mask off all flags not explicitly allowed by the doc */
|
|
attr &= FILE_ATTRIBUTE_READONLY | FILE_ATTRIBUTE_HIDDEN | FILE_ATTRIBUTE_SYSTEM;
|
|
return Win32HandleToDosFileHandle( CreateFileA( path, GENERIC_READ | GENERIC_WRITE,
|
|
FILE_SHARE_READ | FILE_SHARE_WRITE, NULL,
|
|
CREATE_NEW, attr, 0 ));
|
|
}
|
|
|
|
static void OpenExistingFile( CONTEXT86 *context )
|
|
{
|
|
SET_AX( context, _lopen16( CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx),
|
|
AL_reg(context) ));
|
|
if (AX_reg(context) == (WORD)HFILE_ERROR16)
|
|
{
|
|
SET_AX( context, GetLastError() );
|
|
SET_CFLAG(context);
|
|
}
|
|
}
|
|
|
|
static BOOL INT21_ExtendedOpenCreateFile(CONTEXT86 *context )
|
|
{
|
|
BOOL bExtendedError = FALSE;
|
|
BYTE action = DL_reg(context);
|
|
|
|
/* Shuffle arguments to call OpenExistingFile */
|
|
SET_AL( context, BL_reg(context) );
|
|
SET_DX( context, SI_reg(context) );
|
|
/* BX,CX and DX should be preserved */
|
|
OpenExistingFile(context);
|
|
|
|
if ((context->EFlags & 0x0001) == 0) /* File exists */
|
|
{
|
|
UINT16 uReturnCX = 0;
|
|
|
|
/* Now decide what do do */
|
|
|
|
if ((action & 0x07) == 0)
|
|
{
|
|
_lclose16( AX_reg(context) );
|
|
SET_AX( context, 0x0050 ); /*File exists*/
|
|
SET_CFLAG(context);
|
|
WARN("extended open/create: failed because file exists \n");
|
|
}
|
|
else if ((action & 0x07) == 2)
|
|
{
|
|
/* Truncate it, but first check if opened for write */
|
|
if ((BL_reg(context) & 0x0007)== 0)
|
|
{
|
|
_lclose16( AX_reg(context) );
|
|
WARN("extended open/create: failed, trunc on ro file\n");
|
|
SET_AX( context, 0x000C ); /*Access code invalid*/
|
|
SET_CFLAG(context);
|
|
}
|
|
else
|
|
{
|
|
TRACE("extended open/create: Closing before truncate\n");
|
|
if (_lclose16( AX_reg(context) ))
|
|
{
|
|
WARN("extended open/create: close before trunc failed\n");
|
|
SET_AX( context, 0x0019 ); /*Seek Error*/
|
|
SET_CX( context, 0 );
|
|
SET_CFLAG(context);
|
|
}
|
|
/* Shuffle arguments to call CreateFile */
|
|
|
|
TRACE("extended open/create: Truncating\n");
|
|
SET_AL( context, BL_reg(context) );
|
|
/* CX is still the same */
|
|
SET_DX( context, SI_reg(context) );
|
|
bExtendedError = INT21_CreateFile(context);
|
|
|
|
if (context->EFlags & 0x0001) /*no file open, flags set */
|
|
{
|
|
WARN("extended open/create: trunc failed\n");
|
|
return bExtendedError;
|
|
}
|
|
uReturnCX = 0x3;
|
|
}
|
|
}
|
|
else uReturnCX = 0x1;
|
|
|
|
SET_CX( context, uReturnCX );
|
|
}
|
|
else /* file does not exist */
|
|
{
|
|
RESET_CFLAG(context); /* was set by OpenExistingFile(context) */
|
|
if ((action & 0xF0)== 0)
|
|
{
|
|
SET_CX( context, 0 );
|
|
SET_CFLAG(context);
|
|
WARN("extended open/create: failed, file dosen't exist\n");
|
|
}
|
|
else
|
|
{
|
|
/* Shuffle arguments to call CreateFile */
|
|
TRACE("extended open/create: Creating\n");
|
|
SET_AL( context, BL_reg(context) );
|
|
/* CX should still be the same */
|
|
SET_DX( context, SI_reg(context) );
|
|
bExtendedError = INT21_CreateFile(context);
|
|
if (context->EFlags & 0x0001) /*no file open, flags set */
|
|
{
|
|
WARN("extended open/create: create failed\n");
|
|
return bExtendedError;
|
|
}
|
|
SET_CX( context, 2 );
|
|
}
|
|
}
|
|
|
|
return bExtendedError;
|
|
}
|
|
|
|
|
|
static BOOL INT21_ChangeDir( CONTEXT86 *context )
|
|
{
|
|
int drive;
|
|
char *dirname = CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx);
|
|
WCHAR dirnameW[MAX_PATH];
|
|
|
|
TRACE("changedir %s\n", dirname);
|
|
if (dirname[0] && (dirname[1] == ':'))
|
|
{
|
|
drive = toupper(dirname[0]) - 'A';
|
|
dirname += 2;
|
|
}
|
|
else drive = DRIVE_GetCurrentDrive();
|
|
MultiByteToWideChar(CP_OEMCP, 0, dirname, -1, dirnameW, MAX_PATH);
|
|
return DRIVE_Chdir( drive, dirnameW );
|
|
}
|
|
|
|
|
|
static int INT21_FindFirst( CONTEXT86 *context )
|
|
{
|
|
char *p;
|
|
const char *path;
|
|
DOS_FULL_NAME full_name;
|
|
FINDFILE_DTA *dta = (FINDFILE_DTA *)GetCurrentDTA(context);
|
|
WCHAR pathW[MAX_PATH];
|
|
WCHAR maskW[12];
|
|
|
|
path = (const char *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
MultiByteToWideChar(CP_OEMCP, 0, path, -1, pathW, MAX_PATH);
|
|
|
|
dta->unixPath = NULL;
|
|
if (!DOSFS_GetFullName( pathW, FALSE, &full_name ))
|
|
{
|
|
SET_AX( context, GetLastError() );
|
|
SET_CFLAG(context);
|
|
return 0;
|
|
}
|
|
dta->unixPath = HeapAlloc( GetProcessHeap(), 0, strlen(full_name.long_name)+1 );
|
|
strcpy( dta->unixPath, full_name.long_name );
|
|
p = strrchr( dta->unixPath, '/' );
|
|
*p = '\0';
|
|
|
|
MultiByteToWideChar(CP_OEMCP, 0, p + 1, -1, pathW, MAX_PATH);
|
|
|
|
/* Note: terminating NULL in dta->mask overwrites dta->search_attr
|
|
* (doesn't matter as it is set below anyway)
|
|
*/
|
|
if (!DOSFS_ToDosFCBFormat( pathW, maskW ))
|
|
{
|
|
HeapFree( GetProcessHeap(), 0, dta->unixPath );
|
|
dta->unixPath = NULL;
|
|
SetLastError( ERROR_FILE_NOT_FOUND );
|
|
SET_AX( context, ERROR_FILE_NOT_FOUND );
|
|
SET_CFLAG(context);
|
|
return 0;
|
|
}
|
|
WideCharToMultiByte(CP_OEMCP, 0, maskW, 12, dta->mask, sizeof(dta->mask), NULL, NULL);
|
|
dta->drive = (path[0] && (path[1] == ':')) ? toupper(path[0]) - 'A'
|
|
: DRIVE_GetCurrentDrive();
|
|
dta->count = 0;
|
|
dta->search_attr = CL_reg(context);
|
|
return 1;
|
|
}
|
|
|
|
|
|
static int INT21_FindNext( CONTEXT86 *context )
|
|
{
|
|
FINDFILE_DTA *dta = (FINDFILE_DTA *)GetCurrentDTA(context);
|
|
WIN32_FIND_DATAA entry;
|
|
int count;
|
|
|
|
if (!dta->unixPath) return 0;
|
|
if (!(count = DOSFS_FindNext( dta->unixPath, dta->mask, NULL, dta->drive,
|
|
dta->search_attr, dta->count, &entry )))
|
|
{
|
|
HeapFree( GetProcessHeap(), 0, dta->unixPath );
|
|
dta->unixPath = NULL;
|
|
return 0;
|
|
}
|
|
if ((int)dta->count + count > 0xffff)
|
|
{
|
|
WARN("Too many directory entries in %s\n", dta->unixPath );
|
|
HeapFree( GetProcessHeap(), 0, dta->unixPath );
|
|
dta->unixPath = NULL;
|
|
return 0;
|
|
}
|
|
dta->count += count;
|
|
dta->fileattr = entry.dwFileAttributes;
|
|
dta->filesize = entry.nFileSizeLow;
|
|
FileTimeToDosDateTime( &entry.ftLastWriteTime,
|
|
&dta->filedate, &dta->filetime );
|
|
strcpy( dta->filename, entry.cAlternateFileName );
|
|
if (!memchr(dta->mask,'?',11)) {
|
|
/* wildcardless search, release resources in case no findnext will
|
|
* be issued, and as a workaround in case file creation messes up
|
|
* findnext, as sometimes happens with pkunzip */
|
|
HeapFree( GetProcessHeap(), 0, dta->unixPath );
|
|
dta->unixPath = NULL;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
|
|
static BOOL INT21_CreateTempFile( CONTEXT86 *context )
|
|
{
|
|
static int counter = 0;
|
|
char *name = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx );
|
|
char *p = name + strlen(name);
|
|
|
|
/* despite what Ralf Brown says, some programs seem to call without
|
|
* ending backslash (DOS accepts that, so we accept it too) */
|
|
if ((p == name) || (p[-1] != '\\')) *p++ = '\\';
|
|
|
|
for (;;)
|
|
{
|
|
sprintf( p, "wine%04x.%03d", (int)getpid(), counter );
|
|
counter = (counter + 1) % 1000;
|
|
|
|
SET_AX( context, _lcreat16_uniq( name, 0 ) );
|
|
if (AX_reg(context) != HFILE_ERROR16)
|
|
{
|
|
TRACE("created %s\n", name );
|
|
return TRUE;
|
|
}
|
|
if (GetLastError() != ERROR_FILE_EXISTS) return FALSE;
|
|
}
|
|
}
|
|
|
|
|
|
static BOOL INT21_GetCurrentDirectory( CONTEXT86 *context )
|
|
{
|
|
int drive = DOS_GET_DRIVE( DL_reg(context) );
|
|
char *ptr = (char *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi );
|
|
|
|
if (!DRIVE_IsValid(drive))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
return FALSE;
|
|
}
|
|
WideCharToMultiByte(CP_OEMCP, 0, DRIVE_GetDosCwd(drive), -1, ptr, 64, NULL, NULL);
|
|
ptr[63] = 0; /* ensure 0 termination */
|
|
SET_AX( context, 0x0100 ); /* success return code */
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
static int INT21_GetDiskSerialNumber( CONTEXT86 *context )
|
|
{
|
|
BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
int drive = DOS_GET_DRIVE( BL_reg(context) );
|
|
|
|
if (!DRIVE_IsValid(drive))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
return 0;
|
|
}
|
|
|
|
*(WORD *)dataptr = 0;
|
|
*(DWORD *)(dataptr + 2) = DRIVE_GetSerialNumber( drive );
|
|
memcpy( dataptr + 6, DRIVE_GetLabel( drive ), 11 );
|
|
strncpy(dataptr + 0x11, "FAT16 ", 8);
|
|
return 1;
|
|
}
|
|
|
|
|
|
static int INT21_SetDiskSerialNumber( CONTEXT86 *context )
|
|
{
|
|
BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
int drive = DOS_GET_DRIVE( BL_reg(context) );
|
|
|
|
if (!DRIVE_IsValid(drive))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
return 0;
|
|
}
|
|
|
|
DRIVE_SetSerialNumber( drive, *(DWORD *)(dataptr + 2) );
|
|
return 1;
|
|
}
|
|
|
|
|
|
/* microsoft's programmers should be shot for using CP/M style int21
|
|
calls in Windows for Workgroup's winfile.exe */
|
|
|
|
static int INT21_FindFirstFCB( CONTEXT86 *context )
|
|
{
|
|
BYTE *fcb = (BYTE *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
FINDFILE_FCB *pFCB;
|
|
LPCSTR root, cwd;
|
|
int drive;
|
|
|
|
if (*fcb == 0xff) pFCB = (FINDFILE_FCB *)(fcb + 7);
|
|
else pFCB = (FINDFILE_FCB *)fcb;
|
|
drive = DOS_GET_DRIVE( pFCB->drive );
|
|
if (!DRIVE_IsValid( drive )) return 0;
|
|
root = DRIVE_GetRoot( drive );
|
|
cwd = DRIVE_GetUnixCwd( drive );
|
|
pFCB->unixPath = HeapAlloc( GetProcessHeap(), 0,
|
|
strlen(root)+strlen(cwd)+2 );
|
|
if (!pFCB->unixPath) return 0;
|
|
strcpy( pFCB->unixPath, root );
|
|
strcat( pFCB->unixPath, "/" );
|
|
strcat( pFCB->unixPath, cwd );
|
|
pFCB->count = 0;
|
|
return 1;
|
|
}
|
|
|
|
|
|
static int INT21_FindNextFCB( CONTEXT86 *context )
|
|
{
|
|
BYTE *fcb = (BYTE *)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx);
|
|
FINDFILE_FCB *pFCB;
|
|
DOS_DIRENTRY_LAYOUT *pResult = (DOS_DIRENTRY_LAYOUT *)GetCurrentDTA(context);
|
|
WIN32_FIND_DATAA entry;
|
|
BYTE attr;
|
|
int count;
|
|
|
|
if (*fcb == 0xff) /* extended FCB ? */
|
|
{
|
|
attr = fcb[6];
|
|
pFCB = (FINDFILE_FCB *)(fcb + 7);
|
|
}
|
|
else
|
|
{
|
|
attr = 0;
|
|
pFCB = (FINDFILE_FCB *)fcb;
|
|
}
|
|
|
|
if (!pFCB->unixPath) return 0;
|
|
if (!(count = DOSFS_FindNext( pFCB->unixPath, pFCB->filename, NULL,
|
|
DOS_GET_DRIVE( pFCB->drive ), attr,
|
|
pFCB->count, &entry )))
|
|
{
|
|
HeapFree( GetProcessHeap(), 0, pFCB->unixPath );
|
|
pFCB->unixPath = NULL;
|
|
return 0;
|
|
}
|
|
pFCB->count += count;
|
|
|
|
if (*fcb == 0xff) { /* place extended FCB header before pResult if called with extended FCB */
|
|
*(BYTE *)pResult = 0xff;
|
|
(BYTE *)pResult +=6; /* leave reserved field behind */
|
|
*(BYTE *)pResult = entry.dwFileAttributes;
|
|
((BYTE *)pResult)++;
|
|
}
|
|
*(BYTE *)pResult = DOS_GET_DRIVE( pFCB->drive ); /* DOS_DIRENTRY_LAYOUT after current drive number */
|
|
((BYTE *)pResult)++;
|
|
pResult->fileattr = entry.dwFileAttributes;
|
|
pResult->cluster = 0; /* what else? */
|
|
pResult->filesize = entry.nFileSizeLow;
|
|
memset( pResult->reserved, 0, sizeof(pResult->reserved) );
|
|
FileTimeToDosDateTime( &entry.ftLastWriteTime,
|
|
&pResult->filedate, &pResult->filetime );
|
|
|
|
/* Convert file name to FCB format */
|
|
|
|
memset( pResult->filename, ' ', sizeof(pResult->filename) );
|
|
if (!strcmp( entry.cAlternateFileName, "." )) pResult->filename[0] = '.';
|
|
else if (!strcmp( entry.cAlternateFileName, ".." ))
|
|
pResult->filename[0] = pResult->filename[1] = '.';
|
|
else
|
|
{
|
|
char *p = strrchr( entry.cAlternateFileName, '.' );
|
|
if (p && p[1] && (p != entry.cAlternateFileName))
|
|
{
|
|
memcpy( pResult->filename, entry.cAlternateFileName,
|
|
min( (p - entry.cAlternateFileName), 8 ) );
|
|
memcpy( pResult->filename + 8, p + 1, min( strlen(p), 3 ) );
|
|
}
|
|
else
|
|
memcpy( pResult->filename, entry.cAlternateFileName,
|
|
min( strlen(entry.cAlternateFileName), 8 ) );
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
|
|
static BOOL
|
|
INT21_networkfunc (CONTEXT86 *context)
|
|
{
|
|
switch (AL_reg(context)) {
|
|
case 0x00: /* Get machine name. */
|
|
{
|
|
char *dst = CTX_SEG_OFF_TO_LIN (context,context->SegDs,context->Edx);
|
|
TRACE("getting machine name to %p\n", dst);
|
|
if (gethostname (dst, 15))
|
|
{
|
|
WARN("failed!\n");
|
|
SetLastError( ER_NoNetwork );
|
|
return TRUE;
|
|
} else {
|
|
int len = strlen (dst);
|
|
while (len < 15)
|
|
dst[len++] = ' ';
|
|
dst[15] = 0;
|
|
SET_CH( context, 1 ); /* Valid */
|
|
SET_CL( context, 1 ); /* NETbios number??? */
|
|
TRACE("returning %s\n", debugstr_an (dst, 16));
|
|
return FALSE;
|
|
}
|
|
}
|
|
|
|
default:
|
|
SetLastError( ER_NoNetwork );
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* INT_Int21Handler
|
|
*/
|
|
void WINAPI INT_Int21Handler( CONTEXT86 *context )
|
|
{
|
|
BOOL bSetDOSExtendedError = FALSE;
|
|
|
|
switch(AH_reg(context))
|
|
{
|
|
case 0x0e: /* SELECT DEFAULT DRIVE */
|
|
TRACE("SELECT DEFAULT DRIVE %d\n", DL_reg(context));
|
|
DRIVE_SetCurrentDrive( DL_reg(context) );
|
|
SET_AL( context, MAX_DOS_DRIVES );
|
|
break;
|
|
|
|
case 0x11: /* FIND FIRST MATCHING FILE USING FCB */
|
|
TRACE("FIND FIRST MATCHING FILE USING FCB %p\n",
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
if (!INT21_FindFirstFCB(context))
|
|
{
|
|
SET_AL( context, 0xff );
|
|
break;
|
|
}
|
|
/* else fall through */
|
|
|
|
case 0x12: /* FIND NEXT MATCHING FILE USING FCB */
|
|
SET_AL( context, INT21_FindNextFCB(context) ? 0x00 : 0xff );
|
|
break;
|
|
|
|
case 0x19: /* GET CURRENT DEFAULT DRIVE */
|
|
SET_AL( context, DRIVE_GetCurrentDrive() );
|
|
break;
|
|
|
|
case 0x1b: /* GET ALLOCATION INFORMATION FOR DEFAULT DRIVE */
|
|
SET_DL( context, 0 );
|
|
if (!INT21_GetDriveAllocInfo(context)) SET_AX( context, 0xffff );
|
|
break;
|
|
|
|
case 0x1c: /* GET ALLOCATION INFORMATION FOR SPECIFIC DRIVE */
|
|
if (!INT21_GetDriveAllocInfo(context)) SET_AX( context, 0xffff );
|
|
break;
|
|
|
|
case 0x1f: /* GET DRIVE PARAMETER BLOCK FOR DEFAULT DRIVE */
|
|
GetDrivePB(context, DRIVE_GetCurrentDrive());
|
|
break;
|
|
|
|
case 0x29: /* PARSE FILENAME INTO FCB */
|
|
INT21_ParseFileNameIntoFCB(context);
|
|
break;
|
|
|
|
case 0x32: /* GET DOS DRIVE PARAMETER BLOCK FOR SPECIFIC DRIVE */
|
|
TRACE("GET DOS DRIVE PARAMETER BLOCK FOR DRIVE %s\n",
|
|
INT21_DriveName( DL_reg(context)));
|
|
GetDrivePB(context, DOS_GET_DRIVE( DL_reg(context) ) );
|
|
break;
|
|
|
|
case 0x33: /* MULTIPLEXED */
|
|
switch (AL_reg(context))
|
|
{
|
|
case 0x00: /* GET CURRENT EXTENDED BREAK STATE */
|
|
TRACE("GET CURRENT EXTENDED BREAK STATE\n");
|
|
INT21_ReadConfigSys();
|
|
SET_DL( context, DOSCONF_config.brk_flag );
|
|
break;
|
|
|
|
case 0x01: /* SET EXTENDED BREAK STATE */
|
|
TRACE("SET CURRENT EXTENDED BREAK STATE\n");
|
|
INT21_ReadConfigSys();
|
|
DOSCONF_config.brk_flag = (DL_reg(context) > 0);
|
|
break;
|
|
|
|
case 0x02: /* GET AND SET EXTENDED CONTROL-BREAK CHECKING STATE*/
|
|
TRACE("GET AND SET EXTENDED CONTROL-BREAK CHECKING STATE\n");
|
|
INT21_ReadConfigSys();
|
|
/* ugly coding in order to stay reentrant */
|
|
if (DL_reg(context))
|
|
{
|
|
SET_DL( context, DOSCONF_config.brk_flag );
|
|
DOSCONF_config.brk_flag = 1;
|
|
}
|
|
else
|
|
{
|
|
SET_DL( context, DOSCONF_config.brk_flag );
|
|
DOSCONF_config.brk_flag = 0;
|
|
}
|
|
break;
|
|
|
|
case 0x05: /* GET BOOT DRIVE */
|
|
TRACE("GET BOOT DRIVE\n");
|
|
SET_DL( context, 3 );
|
|
/* c: is Wine's bootdrive (a: is 1)*/
|
|
break;
|
|
|
|
case 0x06: /* GET TRUE VERSION NUMBER */
|
|
TRACE("GET TRUE VERSION NUMBER\n");
|
|
SET_BX( context, (HIWORD(GetVersion16() >> 8)) | (HIWORD(GetVersion16() << 8)) );
|
|
SET_DX( context, 0x00 );
|
|
break;
|
|
|
|
default:
|
|
INT_BARF( context, 0x21 );
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x36: /* GET FREE DISK SPACE */
|
|
TRACE("GET FREE DISK SPACE FOR DRIVE %s\n",
|
|
INT21_DriveName( DL_reg(context)));
|
|
if (!INT21_GetFreeDiskSpace(context)) SET_AX( context, 0xffff );
|
|
break;
|
|
|
|
case 0x3b: /* "CHDIR" - SET CURRENT DIRECTORY */
|
|
TRACE("CHDIR %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
bSetDOSExtendedError = !INT21_ChangeDir(context);
|
|
break;
|
|
|
|
case 0x3c: /* "CREAT" - CREATE OR TRUNCATE FILE */
|
|
TRACE("CREAT flag 0x%02x %s\n",CX_reg(context),
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
bSetDOSExtendedError = INT21_CreateFile( context );
|
|
break;
|
|
|
|
case 0x3d: /* "OPEN" - OPEN EXISTING FILE */
|
|
TRACE("OPEN mode 0x%02x %s\n",AL_reg(context),
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
OpenExistingFile(context);
|
|
break;
|
|
|
|
case 0x44: /* IOCTL */
|
|
switch (AL_reg(context))
|
|
{
|
|
case 0x00:
|
|
ioctlGetDeviceInfo(context);
|
|
break;
|
|
|
|
case 0x01:
|
|
break;
|
|
|
|
case 0x05:{ /* IOCTL - WRITE TO BLOCK DEVICE CONTROL CHANNEL */
|
|
/*BYTE *dataptr = CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx);*/
|
|
int drive = DOS_GET_DRIVE(BL_reg(context));
|
|
|
|
FIXME("program tried to write to block device control channel of drive %d:\n",drive);
|
|
/* for (i=0;i<CX_reg(context);i++)
|
|
fprintf(stdnimp,"%02x ",dataptr[i]);
|
|
fprintf(stdnimp,"\n");*/
|
|
SET_AX( context, context->Ecx );
|
|
break;
|
|
}
|
|
case 0x08: /* Check if drive is removable. */
|
|
TRACE("IOCTL - CHECK IF BLOCK DEVICE REMOVABLE for drive %s\n",
|
|
INT21_DriveName( BL_reg(context)));
|
|
switch(GetDriveType16( DOS_GET_DRIVE( BL_reg(context) )))
|
|
{
|
|
case DRIVE_UNKNOWN:
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
SET_AX( context, ERROR_INVALID_DRIVE );
|
|
SET_CFLAG(context);
|
|
break;
|
|
case DRIVE_REMOVABLE:
|
|
SET_AX( context, 0 ); /* removable */
|
|
break;
|
|
default:
|
|
SET_AX( context, 1 ); /* not removable */
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x09: /* CHECK IF BLOCK DEVICE REMOTE */
|
|
TRACE("IOCTL - CHECK IF BLOCK DEVICE REMOTE for drive %s\n",
|
|
INT21_DriveName( BL_reg(context)));
|
|
switch(GetDriveType16( DOS_GET_DRIVE( BL_reg(context) )))
|
|
{
|
|
case DRIVE_UNKNOWN:
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
SET_AX( context, ERROR_INVALID_DRIVE );
|
|
SET_CFLAG(context);
|
|
break;
|
|
case DRIVE_REMOTE:
|
|
SET_DX( context, (1<<9) | (1<<12) ); /* remote */
|
|
break;
|
|
default:
|
|
SET_DX( context, 0 ); /* FIXME: use driver attr here */
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x0a: /* check if handle (BX) is remote */
|
|
TRACE("IOCTL - CHECK IF HANDLE %d IS REMOTE\n",BX_reg(context));
|
|
/* returns DX, bit 15 set if remote, bit 14 set if date/time
|
|
* not set on close
|
|
*/
|
|
SET_DX( context, 0 );
|
|
break;
|
|
|
|
case 0x0d:
|
|
TRACE("IOCTL - GENERIC BLOCK DEVICE REQUEST %s\n",
|
|
INT21_DriveName( BL_reg(context)));
|
|
bSetDOSExtendedError = ioctlGenericBlkDevReq(context);
|
|
break;
|
|
|
|
case 0x0e: /* get logical drive mapping */
|
|
TRACE("IOCTL - GET LOGICAL DRIVE MAP for drive %s\n",
|
|
INT21_DriveName( BL_reg(context)));
|
|
SET_AL( context, 0 ); /* drive has no mapping - FIXME: may be wrong*/
|
|
break;
|
|
|
|
case 0x0F: /* Set logical drive mapping */
|
|
{
|
|
int drive;
|
|
TRACE("IOCTL - SET LOGICAL DRIVE MAP for drive %s\n",
|
|
INT21_DriveName( BL_reg(context)));
|
|
drive = DOS_GET_DRIVE ( BL_reg(context) );
|
|
if ( ! DRIVE_SetLogicalMapping ( drive, drive+1 ) )
|
|
{
|
|
SET_CFLAG(context);
|
|
SET_AX( context, 0x000F ); /* invalid drive */
|
|
}
|
|
break;
|
|
}
|
|
|
|
default:
|
|
INT_BARF( context, 0x21 );
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x47: /* "CWD" - GET CURRENT DIRECTORY */
|
|
TRACE("CWD - GET CURRENT DIRECTORY for drive %s\n",
|
|
INT21_DriveName( DL_reg(context)));
|
|
bSetDOSExtendedError = !INT21_GetCurrentDirectory(context);
|
|
break;
|
|
|
|
case 0x4e: /* "FINDFIRST" - FIND FIRST MATCHING FILE */
|
|
TRACE("FINDFIRST mask 0x%04x spec %s\n",CX_reg(context),
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
if (!INT21_FindFirst(context)) break;
|
|
/* fall through */
|
|
|
|
case 0x4f: /* "FINDNEXT" - FIND NEXT MATCHING FILE */
|
|
TRACE("FINDNEXT\n");
|
|
if (!INT21_FindNext(context))
|
|
{
|
|
SetLastError( ERROR_NO_MORE_FILES );
|
|
SET_AX( context, ERROR_NO_MORE_FILES );
|
|
SET_CFLAG(context);
|
|
}
|
|
else SET_AX( context, 0 ); /* OK */
|
|
break;
|
|
|
|
case 0x5a: /* CREATE TEMPORARY FILE */
|
|
TRACE("CREATE TEMPORARY FILE\n");
|
|
bSetDOSExtendedError = !INT21_CreateTempFile(context);
|
|
break;
|
|
|
|
case 0x5b: /* CREATE NEW FILE */
|
|
TRACE("CREATE NEW FILE 0x%02x for %s\n", CX_reg(context),
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
SET_AX( context,
|
|
_lcreat16_uniq( CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx),
|
|
CX_reg(context) ));
|
|
bSetDOSExtendedError = (AX_reg(context) != 0);
|
|
break;
|
|
|
|
case 0x5e:
|
|
bSetDOSExtendedError = INT21_networkfunc (context);
|
|
break;
|
|
|
|
case 0x5f: /* NETWORK */
|
|
switch (AL_reg(context))
|
|
{
|
|
case 0x07: /* ENABLE DRIVE */
|
|
TRACE("ENABLE DRIVE %c:\n",(DL_reg(context)+'A'));
|
|
if (!DRIVE_Enable( DL_reg(context) ))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
bSetDOSExtendedError = TRUE;
|
|
}
|
|
break;
|
|
|
|
case 0x08: /* DISABLE DRIVE */
|
|
TRACE("DISABLE DRIVE %c:\n",(DL_reg(context)+'A'));
|
|
if (!DRIVE_Disable( DL_reg(context) ))
|
|
{
|
|
SetLastError( ERROR_INVALID_DRIVE );
|
|
bSetDOSExtendedError = TRUE;
|
|
}
|
|
break;
|
|
|
|
default:
|
|
/* network software not installed */
|
|
TRACE("NETWORK function AX=%04x not implemented\n",AX_reg(context));
|
|
SetLastError( ER_NoNetwork );
|
|
bSetDOSExtendedError = TRUE;
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x60: /* "TRUENAME" - CANONICALIZE FILENAME OR PATH */
|
|
TRACE("TRUENAME %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Esi));
|
|
{
|
|
if (!GetFullPathNameA( CTX_SEG_OFF_TO_LIN(context, context->SegDs,
|
|
context->Esi), 128,
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegEs,
|
|
context->Edi),NULL))
|
|
bSetDOSExtendedError = TRUE;
|
|
else SET_AX( context, 0 );
|
|
}
|
|
break;
|
|
|
|
case 0x69: /* DISK SERIAL NUMBER */
|
|
switch (AL_reg(context))
|
|
{
|
|
case 0x00:
|
|
TRACE("GET DISK SERIAL NUMBER for drive %s\n",
|
|
INT21_DriveName(BL_reg(context)));
|
|
if (!INT21_GetDiskSerialNumber(context)) bSetDOSExtendedError = TRUE;
|
|
else SET_AX( context, 0 );
|
|
break;
|
|
|
|
case 0x01:
|
|
TRACE("SET DISK SERIAL NUMBER for drive %s\n",
|
|
INT21_DriveName(BL_reg(context)));
|
|
if (!INT21_SetDiskSerialNumber(context)) bSetDOSExtendedError = TRUE;
|
|
else SET_AX( context, 1 );
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case 0x6C: /* Extended Open/Create*/
|
|
TRACE("EXTENDED OPEN/CREATE %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edi));
|
|
bSetDOSExtendedError = INT21_ExtendedOpenCreateFile(context);
|
|
break;
|
|
|
|
case 0x71: /* MS-DOS 7 (Windows95) - LONG FILENAME FUNCTIONS */
|
|
switch(AL_reg(context))
|
|
{
|
|
case 0x47: /* Get current directory */
|
|
TRACE(" LONG FILENAME - GET CURRENT DIRECTORY for drive %s\n",
|
|
INT21_DriveName(DL_reg(context)));
|
|
bSetDOSExtendedError = !INT21_GetCurrentDirectory(context);
|
|
break;
|
|
|
|
case 0x4e: /* Find first file */
|
|
TRACE(" LONG FILENAME - FIND FIRST MATCHING FILE for %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx));
|
|
/* FIXME: use attributes in CX */
|
|
SET_AX( context, FindFirstFile16(
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx),
|
|
(WIN32_FIND_DATAA *)CTX_SEG_OFF_TO_LIN(context, context->SegEs,
|
|
context->Edi)));
|
|
if (AX_reg(context) == INVALID_HANDLE_VALUE16)
|
|
bSetDOSExtendedError = TRUE;
|
|
break;
|
|
case 0x4f: /* Find next file */
|
|
TRACE("LONG FILENAME - FIND NEXT MATCHING FILE for handle %d\n",
|
|
BX_reg(context));
|
|
if (!FindNextFile16( BX_reg(context),
|
|
(WIN32_FIND_DATAA *)CTX_SEG_OFF_TO_LIN(context, context->SegEs,
|
|
context->Edi)))
|
|
bSetDOSExtendedError = TRUE;
|
|
break;
|
|
case 0xa0:
|
|
{
|
|
LPCSTR driveroot = (LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs,context->Edx);
|
|
LPSTR buffer = (LPSTR)CTX_SEG_OFF_TO_LIN(context, context->SegEs,context->Edi);
|
|
DWORD filename_len, flags;
|
|
|
|
TRACE("LONG FILENAME - GET VOLUME INFORMATION for drive having root dir '%s'.\n", driveroot);
|
|
SET_AX( context, 0 );
|
|
if (!GetVolumeInformationA( driveroot, NULL, 0, NULL, &filename_len,
|
|
&flags, buffer, 8 ))
|
|
{
|
|
INT_BARF( context, 0x21 );
|
|
SET_CFLAG(context);
|
|
break;
|
|
}
|
|
SET_BX( context, flags | 0x4000 ); /* support for LFN functions */
|
|
SET_CX( context, filename_len );
|
|
SET_DX( context, MAX_PATH ); /* FIXME: which len if DRIVE_SHORT_NAMES ? */
|
|
}
|
|
break;
|
|
case 0xa1: /* Find close */
|
|
TRACE("LONG FILENAME - FINDCLOSE for handle %d\n",
|
|
BX_reg(context));
|
|
bSetDOSExtendedError = (!FindClose16( BX_reg(context) ));
|
|
break;
|
|
case 0x60:
|
|
switch(CL_reg(context))
|
|
{
|
|
case 0x01: /* Get short filename or path */
|
|
if (!GetShortPathNameA
|
|
( CTX_SEG_OFF_TO_LIN(context, context->SegDs,
|
|
context->Esi),
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegEs,
|
|
context->Edi), 67))
|
|
bSetDOSExtendedError = TRUE;
|
|
else SET_AX( context, 0 );
|
|
break;
|
|
case 0x02: /* Get canonical long filename or path */
|
|
if (!GetFullPathNameA
|
|
( CTX_SEG_OFF_TO_LIN(context, context->SegDs,
|
|
context->Esi), 128,
|
|
CTX_SEG_OFF_TO_LIN(context, context->SegEs,
|
|
context->Edi),NULL))
|
|
bSetDOSExtendedError = TRUE;
|
|
else SET_AX( context, 0 );
|
|
break;
|
|
default:
|
|
FIXME("Unimplemented long file name function:\n");
|
|
INT_BARF( context, 0x21 );
|
|
SET_CFLAG(context);
|
|
SET_AL( context, 0 );
|
|
break;
|
|
}
|
|
break;
|
|
case 0x6c: /* Create or open file */
|
|
TRACE("LONG FILENAME - CREATE OR OPEN FILE %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Esi));
|
|
/* translate Dos 7 action to Dos 6 action */
|
|
bSetDOSExtendedError = INT21_ExtendedOpenCreateFile(context);
|
|
break;
|
|
|
|
case 0x3b: /* Change directory */
|
|
TRACE("LONG FILENAME - CHANGE DIRECTORY %s\n",
|
|
(LPCSTR)CTX_SEG_OFF_TO_LIN(context, context->SegDs, context->Edx));
|
|
if (!SetCurrentDirectoryA(CTX_SEG_OFF_TO_LIN(context,
|
|
context->SegDs,
|
|
context->Edx
|
|
))
|
|
) {
|
|
SET_CFLAG(context);
|
|
SET_AL( context, GetLastError() );
|
|
}
|
|
break;
|
|
|
|
default:
|
|
FIXME("Unimplemented long file name function:\n");
|
|
INT_BARF( context, 0x21 );
|
|
SET_CFLAG(context);
|
|
SET_AL( context, 0 );
|
|
break;
|
|
}
|
|
break;
|
|
|
|
|
|
case 0x73: /* MULTIPLEXED: Win95 OSR2/Win98 FAT32 calls */
|
|
TRACE("windows95 function AX %04x\n",
|
|
AX_reg(context));
|
|
|
|
switch (AL_reg(context))
|
|
{
|
|
case 0x02: /* Get Extended Drive Parameter Block for specific drive */
|
|
/* ES:DI points to word with length of data (should be 0x3d) */
|
|
{
|
|
WORD *buffer;
|
|
struct EDPB *edpb;
|
|
DWORD cluster_sectors, sector_bytes, free_clusters, total_clusters;
|
|
char root[] = "A:\\";
|
|
|
|
buffer = (WORD *)CTX_SEG_OFF_TO_LIN(context, context->SegEs, context->Edi);
|
|
|
|
TRACE("Get Extended DPB: linear buffer address is %p\n", buffer);
|
|
|
|
/* validate passed-in buffer lengths */
|
|
if ((*buffer != 0x3d) || (context->Ecx != 0x3f))
|
|
{
|
|
WARN("Get Extended DPB: buffer lengths incorrect\n");
|
|
WARN("CX = %lx, buffer[0] = %x\n", context->Ecx, *buffer);
|
|
SET_CFLAG(context);
|
|
SET_AL( context, 0x18 ); /* bad buffer length */
|
|
}
|
|
|
|
/* buffer checks out */
|
|
buffer++; /* skip over length word now */
|
|
if (FillInDrivePB( DX_reg(context) ) )
|
|
{
|
|
edpb = (struct EDPB *)buffer;
|
|
|
|
/* copy down the old-style DPB portion first */
|
|
memcpy(&edpb->dpb, &heap->dpb, sizeof(struct DPB));
|
|
|
|
/* now fill in the extended entries */
|
|
edpb->edpb_flags = 0;
|
|
edpb->next_edpb = 0;
|
|
edpb->free_cluster = edpb->free_cluster2 = 0;
|
|
|
|
/* determine free disk space */
|
|
*root += DOS_GET_DRIVE( DX_reg(context) );
|
|
GetDiskFreeSpaceA( root, &cluster_sectors, §or_bytes,
|
|
&free_clusters, &total_clusters );
|
|
|
|
edpb->clusters_free = (free_clusters&0xffff);
|
|
|
|
edpb->clusters_free_hi = free_clusters >> 16;
|
|
edpb->mirroring_flags = 0;
|
|
edpb->info_sector = 0xffff;
|
|
edpb->spare_boot_sector = 0xffff;
|
|
edpb->first_cluster = 0;
|
|
edpb->max_cluster = total_clusters;
|
|
edpb->fat_clusters = 32; /* made-up value */
|
|
edpb->root_cluster = 0;
|
|
|
|
RESET_CFLAG(context); /* clear carry */
|
|
SET_AX( context, 0 );
|
|
}
|
|
else
|
|
{
|
|
SET_AX( context, 0x00ff );
|
|
SET_CFLAG(context);
|
|
}
|
|
}
|
|
break;
|
|
|
|
case 0x03: /* Get Extended free space on drive */
|
|
case 0x04: /* Set DPB for formatting */
|
|
case 0x05: /* extended absolute disk read/write */
|
|
FIXME("Unimplemented FAT32 int32 function %04x\n", AX_reg(context));
|
|
SET_CFLAG(context);
|
|
SET_AL( context, 0 );
|
|
break;
|
|
}
|
|
|
|
break;
|
|
|
|
default:
|
|
INT_BARF( context, 0x21 );
|
|
break;
|
|
|
|
} /* END OF SWITCH */
|
|
|
|
if( bSetDOSExtendedError ) /* set general error condition */
|
|
{
|
|
SET_AX( context, GetLastError() );
|
|
SET_CFLAG(context);
|
|
}
|
|
}
|