/* * Wine virtual DOS machine * * Copyright 2003 Alexandre Julliard * * 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include "config.h" #include "wine/port.h" #include #include #include #include "windef.h" #include "winbase.h" #include "wine/winbase16.h" #include "winuser.h" #include "wincon.h" #include "wine/unicode.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(winevdm); extern void __wine_load_dos_exe( LPCSTR filename, LPCSTR cmdline ); /*** PIF file structures ***/ #include "pshpack1.h" /* header of a PIF file */ typedef struct { BYTE unk1[2]; /* 0x00 */ CHAR windowtitle[ 30 ]; /* 0x02 seems to be padded with blanks*/ WORD memmax; /* 0x20 */ WORD memmin; /* 0x22 */ CHAR program[63]; /* 0x24 seems to be zero terminated */ BYTE hdrflags1; /* 0x63 various flags: * 02 286: text mode selected * 10 close window at exit */ BYTE startdrive; /* 0x64 */ char startdir[64]; /* 0x65 */ char optparams[64]; /* 0xa5 seems to be zero terminated */ BYTE videomode; /* 0xe5 */ BYTE unkn2; /* 0xe6 ?*/ BYTE irqlow; /* 0xe7 */ BYTE irqhigh; /* 0xe8 */ BYTE rows; /* 0xe9 */ BYTE cols; /* 0xea */ BYTE winY; /* 0xeb */ BYTE winX; /* 0xec */ WORD unkn3; /* 0xed 7??? */ CHAR unkn4[64]; /* 0xef */ CHAR unkn5[64]; /* 0x12f */ BYTE hdrflags2; /* 0x16f */ BYTE hdrflags3; /* 0x170 */ } pifhead_t; /* record header: present on every record */ typedef struct { CHAR recordname[16]; /* zero terminated */ WORD posofnextrecord; /* file offset, 0xffff if last */ WORD startofdata; /* file offset */ WORD sizeofdata; /* data is expected to follow directly */ } recordhead_t; /* 386 -enhanced mode- record */ typedef struct { WORD memmax; /* memory desired, overrides the pif header*/ WORD memmin; /* memory required, overrides the pif header*/ WORD prifg; /* foreground priority */ WORD pribg; /* background priority */ WORD emsmax; /* EMS memory limit */ WORD emsmin; /* EMS memory required */ WORD xmsmax; /* XMS memory limit */ WORD xmsmin; /* XMS memory required */ WORD optflags; /* option flags: * 0008 full screen * 0004 exclusive * 0002 background * 0001 close when active */ WORD memflags; /* various memory flags*/ WORD videoflags; /* video flags: * 0010 text * 0020 med. res. graphics * 0040 hi. res. graphics */ WORD hotkey[9]; /* Hot key info */ CHAR optparams[64]; /* optional params, replaces those in the pif header */ } pif386rec_t; #include "poppack.h" /*********************************************************************** * find_dosbox */ static char *find_dosbox(void) { const char *envpath = getenv( "PATH" ); struct stat st; char *path, *p, *buffer, *dir; size_t envpath_len; if (!envpath) return NULL; envpath_len = strlen( envpath ); path = HeapAlloc( GetProcessHeap(), 0, envpath_len + 1 ); buffer = HeapAlloc( GetProcessHeap(), 0, envpath_len + sizeof("/dosbox") ); strcpy( path, envpath ); p = path; while (*p) { while (*p == ':') p++; if (!*p) break; dir = p; while (*p && *p != ':') p++; if (*p == ':') *p++ = 0; strcpy( buffer, dir ); strcat( buffer, "/dosbox" ); if (!stat( buffer, &st )) { HeapFree( GetProcessHeap(), 0, path ); return buffer; } } HeapFree( GetProcessHeap(), 0, buffer ); HeapFree( GetProcessHeap(), 0, path ); return NULL; } /*********************************************************************** * start_dosbox */ static void start_dosbox( const char *appname, const char *args ) { static const WCHAR cfgW[] = {'c','f','g',0}; const char *config_dir = wine_get_config_dir(); WCHAR path[MAX_PATH], config[MAX_PATH]; HANDLE file; char *p, *buffer; int i; int ret = 1; DWORD written, drives = GetLogicalDrives(); char *dosbox = find_dosbox(); if (!dosbox) return; if (tolower(appname[0]) == 'z') { WINE_MESSAGE( "winevdm: Cannot start DOS application %s\n", appname ); WINE_MESSAGE( " because DOSBox doesn't support running from the Z: drive.\n" ); ExitProcess(1); } if (!GetTempPathW( MAX_PATH, path )) return; if (!GetTempFileNameW( path, cfgW, 0, config )) return; if (!GetCurrentDirectoryW( MAX_PATH, path )) return; file = CreateFileW( config, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, 0 ); if (file == INVALID_HANDLE_VALUE) return; buffer = HeapAlloc( GetProcessHeap(), 0, sizeof("[autoexec]") + 25 * (strlen(config_dir) + sizeof("mount c /dosdevices/c:")) + 4 * strlenW( path ) + 6 + strlen( appname ) + strlen( args ) + 20 ); p = buffer; p += sprintf( p, "[autoexec]\n" ); for (i = 0; i < 25; i++) if (drives & (1 << i)) p += sprintf( p, "mount %c %s/dosdevices/%c:\n", 'a' + i, config_dir, 'a' + i ); p += sprintf( p, "%c:\ncd ", path[0] ); p += WideCharToMultiByte( CP_UNIXCP, 0, path + 2, -1, p, 4 * strlenW(path), NULL, NULL ) - 1; p += sprintf( p, "\n%s %s\n", appname, args ); p += sprintf( p, "exit\n" ); if (WriteFile( file, buffer, strlen(buffer), &written, NULL ) && written == strlen(buffer)) { const char *args[4]; char *config_file = wine_get_unix_file_name( config ); args[0] = dosbox; args[1] = "-conf"; args[2] = config_file; args[3] = NULL; ret = spawnvp( _P_WAIT, args[0], args ); } CloseHandle( file ); DeleteFileW( config ); HeapFree( GetProcessHeap(), 0, buffer ); ExitProcess( ret ); } /*********************************************************************** * start_dos_exe */ static void start_dos_exe( LPCSTR filename, LPCSTR cmdline ) { MEMORY_BASIC_INFORMATION mem_info; const char *reason; if (VirtualQuery( NULL, &mem_info, sizeof(mem_info) ) && mem_info.State != MEM_FREE) { __wine_load_dos_exe( filename, cmdline ); if (GetLastError() == ERROR_NOT_SUPPORTED) reason = "because vm86 mode is not supported on this platform"; else reason = wine_dbg_sprintf( "It failed with error code %u", GetLastError() ); } else reason = "because the DOS memory range is unavailable"; start_dosbox( filename, cmdline ); WINE_MESSAGE( "winevdm: Cannot start DOS application %s\n", filename ); WINE_MESSAGE( " %s.\n", reason ); WINE_MESSAGE( " Try running this application with DOSBox.\n" ); ExitProcess(1); } /*********************************************************************** * read_pif_file *pif386rec_tu * Read a pif file and return the header and possibly the 286 (real mode) * record or 386 (enhanced mode) record. Returns FALSE if the file is * invalid otherwise TRUE. */ static BOOL read_pif_file( HANDLE hFile, char *progname, char *title, char *optparams, char *startdir, int *closeonexit, int *textmode) { DWORD nread; LARGE_INTEGER filesize; recordhead_t rhead; BOOL found386rec = FALSE; pif386rec_t pif386rec; pifhead_t pifheader; if( !GetFileSizeEx( hFile, &filesize) || filesize.QuadPart < (sizeof(pifhead_t) + sizeof(recordhead_t))) { WINE_ERR("Invalid pif file: size error %d\n", (int)filesize.QuadPart); return FALSE; } SetFilePointer( hFile, 0, NULL, FILE_BEGIN); if( !ReadFile( hFile, &pifheader, sizeof(pifhead_t), &nread, NULL)) return FALSE; WINE_TRACE("header: program %s title %s startdir %s params %s\n", wine_dbgstr_a(pifheader.program), wine_dbgstr_an(pifheader.windowtitle, sizeof(pifheader.windowtitle)), wine_dbgstr_a(pifheader.startdir), wine_dbgstr_a(pifheader.optparams)); WINE_TRACE("header: memory req'd %d desr'd %d drive %d videomode %d\n", pifheader.memmin, pifheader.memmax, pifheader.startdrive, pifheader.videomode); WINE_TRACE("header: flags 0x%x 0x%x 0x%x\n", pifheader.hdrflags1, pifheader.hdrflags2, pifheader.hdrflags3); ReadFile( hFile, &rhead, sizeof(recordhead_t), &nread, NULL); if( strncmp( rhead.recordname, "MICROSOFT PIFEX", 15)) { WINE_ERR("Invalid pif file: magic string not found\n"); return FALSE; } /* now process the following records */ while( 1) { WORD nextrecord = rhead.posofnextrecord; if( (nextrecord & 0x8000) || filesize.QuadPart <( nextrecord + sizeof(recordhead_t))) break; if( !SetFilePointer( hFile, nextrecord, NULL, FILE_BEGIN) || !ReadFile( hFile, &rhead, sizeof(recordhead_t), &nread, NULL)) return FALSE; if( !rhead.recordname[0]) continue; /* deleted record */ WINE_TRACE("reading record %s size %d next 0x%x\n", wine_dbgstr_a(rhead.recordname), rhead.sizeofdata, rhead.posofnextrecord ); if( !strncmp( rhead.recordname, "WINDOWS 386", 11)) { found386rec = TRUE; ReadFile( hFile, &pif386rec, sizeof(pif386rec_t), &nread, NULL); WINE_TRACE("386rec: memory req'd %d des'd %d EMS req'd %d des'd %d XMS req'd %d des'd %d\n", pif386rec.memmin, pif386rec.memmax, pif386rec.emsmin, pif386rec.emsmax, pif386rec.xmsmin, pif386rec.xmsmax); WINE_TRACE("386rec: option 0x%x memory 0x%x video 0x%x\n", pif386rec.optflags, pif386rec.memflags, pif386rec.videoflags); WINE_TRACE("386rec: optional parameters %s\n", wine_dbgstr_a(pif386rec.optparams)); } } /* prepare the return data */ strncpy( progname, pifheader.program, sizeof(pifheader.program)); memcpy( title, pifheader.windowtitle, sizeof(pifheader.windowtitle)); title[ sizeof(pifheader.windowtitle) ] = '\0'; if( found386rec) strncpy( optparams, pif386rec.optparams, sizeof( pif386rec.optparams)); else strncpy( optparams, pifheader.optparams, sizeof(pifheader.optparams)); strncpy( startdir, pifheader.startdir, sizeof(pifheader.startdir)); *closeonexit = pifheader.hdrflags1 & 0x10; *textmode = found386rec ? pif386rec.videoflags & 0x0010 : pifheader.hdrflags1 & 0x0002; return TRUE; } /*********************************************************************** * pif_cmd * * execute a pif file. */ static VOID pif_cmd( char *filename, char *cmdline) { HANDLE hFile; char progpath[MAX_PATH]; char buf[128]; char progname[64]; char title[31]; char optparams[64]; char startdir[64]; char *p; int closeonexit; int textmode; if( (hFile = CreateFileA( filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0 )) == INVALID_HANDLE_VALUE) { WINE_ERR("open file %s failed\n", wine_dbgstr_a(filename)); return; } if( !read_pif_file( hFile, progname, title, optparams, startdir, &closeonexit, &textmode)) { WINE_ERR( "failed to read %s\n", wine_dbgstr_a(filename)); CloseHandle( hFile); sprintf( buf, "%s\nInvalid file format. Check your pif file.", filename); MessageBoxA( NULL, buf, "16 bit DOS subsystem", MB_OK|MB_ICONWARNING); SetLastError( ERROR_BAD_FORMAT); return; } CloseHandle( hFile); if( (p = strrchr( progname, '.')) && !strcasecmp( p, ".bat")) WINE_FIXME(".bat programs in pif files are not supported.\n"); /* first change dir, so the search below can start from there */ if( startdir[0] && !SetCurrentDirectoryA( startdir)) { WINE_ERR("Cannot change directory %s\n", wine_dbgstr_a( startdir)); sprintf( buf, "%s\nInvalid startup directory. Check your pif file.", filename); MessageBoxA( NULL, buf, "16 bit DOS subsystem", MB_OK|MB_ICONWARNING); } /* search for the program */ if( !SearchPathA( NULL, progname, NULL, MAX_PATH, progpath, NULL )) { sprintf( buf, "%s\nInvalid program file name. Check your pif file.", filename); MessageBoxA( NULL, buf, "16 bit DOS subsystem", MB_OK|MB_ICONERROR); SetLastError( ERROR_FILE_NOT_FOUND); return; } if( textmode) if( AllocConsole()) SetConsoleTitleA( title) ; /* if no arguments on the commandline, use them from the pif file */ if( !cmdline[0] && optparams[0]) cmdline = optparams; /* FIXME: do something with: * - close on exit * - graphic modes * - hot key's * - etc. */ start_dos_exe( progpath, cmdline ); } /*********************************************************************** * build_command_line * * Build the command line of a process from the argv array. * Copied from ENV_BuildCommandLine. */ static char *build_command_line( char **argv ) { int len; char *p, **arg, *cmd_line; len = 0; for (arg = argv; *arg; arg++) { int has_space,bcount; char* a; has_space=0; bcount=0; a=*arg; if( !*a ) has_space=1; while (*a!='\0') { if (*a=='\\') { bcount++; } else { if (*a==' ' || *a=='\t') { has_space=1; } else if (*a=='"') { /* doubling of '\' preceding a '"', * plus escaping of said '"' */ len+=2*bcount+1; } bcount=0; } a++; } len+=(a-*arg)+1 /* for the separating space */; if (has_space) len+=2; /* for the quotes */ } if (!(cmd_line = HeapAlloc( GetProcessHeap(), 0, len ? len + 1 : 2 ))) return NULL; p = cmd_line; *p++ = (len < 256) ? len : 255; for (arg = argv; *arg; arg++) { int has_space,has_quote; char* a; /* Check for quotes and spaces in this argument */ has_space=has_quote=0; a=*arg; if( !*a ) has_space=1; while (*a!='\0') { if (*a==' ' || *a=='\t') { has_space=1; if (has_quote) break; } else if (*a=='"') { has_quote=1; if (has_space) break; } a++; } /* Now transfer it to the command line */ if (has_space) *p++='"'; if (has_quote) { int bcount; char* a; bcount=0; a=*arg; while (*a!='\0') { if (*a=='\\') { *p++=*a; bcount++; } else { if (*a=='"') { int i; /* Double all the '\\' preceding this '"', plus one */ for (i=0;i<=bcount;i++) *p++='\\'; *p++='"'; } else { *p++=*a; } bcount=0; } a++; } } else { strcpy(p,*arg); p+=strlen(*arg); } if (has_space) *p++='"'; *p++=' '; } if (len) p--; /* remove last space */ *p = '\0'; return cmd_line; } /*********************************************************************** * usage */ static void usage(void) { WINE_MESSAGE( "Usage: winevdm.exe [--app-name app.exe] command line\n\n" ); ExitProcess(1); } /*********************************************************************** * main */ int main( int argc, char *argv[] ) { DWORD count; HINSTANCE16 instance; LOADPARAMS16 params; WORD showCmd[2]; char buffer[MAX_PATH]; STARTUPINFOA info; char *cmdline, *appname, **first_arg; char *p; if (!argv[1]) usage(); if (!strcmp( argv[1], "--app-name" )) { if (!(appname = argv[2])) usage(); first_arg = argv + 3; } else { if (!SearchPathA( NULL, argv[1], ".exe", sizeof(buffer), buffer, NULL )) { WINE_MESSAGE( "winevdm: unable to exec '%s': file not found\n", argv[1] ); ExitProcess(1); } appname = buffer; first_arg = argv + 1; } if (*first_arg) first_arg++; /* skip program name */ cmdline = build_command_line( first_arg ); if (WINE_TRACE_ON(winevdm)) { int i; WINE_TRACE( "GetCommandLine = '%s'\n", GetCommandLineA() ); WINE_TRACE( "appname = '%s'\n", appname ); WINE_TRACE( "cmdline = '%.*s'\n", cmdline[0], cmdline+1 ); for (i = 0; argv[i]; i++) WINE_TRACE( "argv[%d]: '%s'\n", i, argv[i] ); } GetStartupInfoA( &info ); showCmd[0] = 2; showCmd[1] = (info.dwFlags & STARTF_USESHOWWINDOW) ? info.wShowWindow : SW_SHOWNORMAL; params.hEnvironment = 0; params.cmdLine = MapLS( cmdline ); params.showCmd = MapLS( showCmd ); params.reserved = 0; RestoreThunkLock(1); /* grab the Win16 lock */ /* some programs assume mmsystem is always present */ LoadLibrary16( "gdi.exe" ); LoadLibrary16( "user.exe" ); LoadLibrary16( "mmsystem.dll" ); if ((instance = LoadModule16( appname, ¶ms )) < 32) { if (instance == 11) { /* first see if it is a .pif file */ if( ( p = strrchr( appname, '.' )) && !strcasecmp( p, ".pif")) pif_cmd( appname, cmdline + 1); else { /* try DOS format */ /* loader expects arguments to be regular C strings */ start_dos_exe( appname, cmdline + 1 ); } /* if we get back here it failed */ instance = GetLastError(); } WINE_MESSAGE( "winevdm: can't exec '%s': ", appname ); switch (instance) { case 2: WINE_MESSAGE("file not found\n" ); break; case 11: WINE_MESSAGE("invalid program file\n" ); break; default: WINE_MESSAGE("error=%d\n", instance ); break; } ExitProcess(instance); } /* wait forever; the process will be killed when the last task exits */ ReleaseThunkLock( &count ); Sleep( INFINITE ); return 0; }