2 * Wine virtual DOS machine
4 * Copyright 2003 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "wine/port.h"
30 #include "wine/winbase16.h"
33 #include "wine/unicode.h"
34 #include "wine/debug.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(winevdm
);
39 /*** PIF file structures ***/
42 /* header of a PIF file */
44 BYTE unk1
[2]; /* 0x00 */
45 CHAR windowtitle
[ 30 ]; /* 0x02 seems to be padded with blanks*/
46 WORD memmax
; /* 0x20 */
47 WORD memmin
; /* 0x22 */
48 CHAR program
[63]; /* 0x24 seems to be zero terminated */
49 BYTE hdrflags1
; /* 0x63 various flags:
50 * 02 286: text mode selected
51 * 10 close window at exit
53 BYTE startdrive
; /* 0x64 */
54 char startdir
[64]; /* 0x65 */
55 char optparams
[64]; /* 0xa5 seems to be zero terminated */
56 BYTE videomode
; /* 0xe5 */
57 BYTE unkn2
; /* 0xe6 ?*/
58 BYTE irqlow
; /* 0xe7 */
59 BYTE irqhigh
; /* 0xe8 */
64 WORD unkn3
; /* 0xed 7??? */
65 CHAR unkn4
[64]; /* 0xef */
66 CHAR unkn5
[64]; /* 0x12f */
67 BYTE hdrflags2
; /* 0x16f */
68 BYTE hdrflags3
; /* 0x170 */
71 /* record header: present on every record */
73 CHAR recordname
[16]; /* zero terminated */
74 WORD posofnextrecord
; /* file offset, 0xffff if last */
75 WORD startofdata
; /* file offset */
76 WORD sizeofdata
; /* data is expected to follow directly */
79 /* 386 -enhanced mode- record */
81 WORD memmax
; /* memory desired, overrides the pif header*/
82 WORD memmin
; /* memory required, overrides the pif header*/
83 WORD prifg
; /* foreground priority */
84 WORD pribg
; /* background priority */
85 WORD emsmax
; /* EMS memory limit */
86 WORD emsmin
; /* EMS memory required */
87 WORD xmsmax
; /* XMS memory limit */
88 WORD xmsmin
; /* XMS memory required */
89 WORD optflags
; /* option flags:
93 * 0001 close when active
95 WORD memflags
; /* various memory flags*/
96 WORD videoflags
; /* video flags:
98 * 0020 med. res. graphics
99 * 0040 hi. res. graphics
101 WORD hotkey
[9]; /* Hot key info */
102 CHAR optparams
[64]; /* optional params, replaces those in the pif header */
107 /***********************************************************************
110 static char *find_dosbox(void)
112 const char *envpath
= getenv( "PATH" );
114 char *path
, *p
, *buffer
, *dir
;
117 if (!envpath
) return NULL
;
119 envpath_len
= strlen( envpath
);
120 path
= HeapAlloc( GetProcessHeap(), 0, envpath_len
+ 1 );
121 buffer
= HeapAlloc( GetProcessHeap(), 0, envpath_len
+ sizeof("/dosbox") );
122 strcpy( path
, envpath
);
127 while (*p
== ':') p
++;
130 while (*p
&& *p
!= ':') p
++;
131 if (*p
== ':') *p
++ = 0;
132 strcpy( buffer
, dir
);
133 strcat( buffer
, "/dosbox" );
134 if (!stat( buffer
, &st
))
136 HeapFree( GetProcessHeap(), 0, path
);
140 HeapFree( GetProcessHeap(), 0, buffer
);
141 HeapFree( GetProcessHeap(), 0, path
);
146 /***********************************************************************
149 static void start_dosbox( const char *appname
, const char *args
)
151 static const WCHAR cfgW
[] = {'c','f','g',0};
152 const char *config_dir
= wine_get_config_dir();
153 WCHAR path
[MAX_PATH
], config
[MAX_PATH
];
155 char *p
, *buffer
, app
[MAX_PATH
];
158 DWORD written
, drives
= GetLogicalDrives();
159 char *dosbox
= find_dosbox();
162 if (!GetTempPathW( MAX_PATH
, path
)) return;
163 if (!GetTempFileNameW( path
, cfgW
, 0, config
)) return;
164 if (!GetCurrentDirectoryW( MAX_PATH
, path
)) return;
165 if (!GetShortPathNameA( appname
, app
, MAX_PATH
)) return;
166 GetShortPathNameW( path
, path
, MAX_PATH
);
167 file
= CreateFileW( config
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
, 0, 0 );
168 if (file
== INVALID_HANDLE_VALUE
) return;
170 buffer
= HeapAlloc( GetProcessHeap(), 0, sizeof("[autoexec]") +
171 sizeof("mount -z c") + sizeof("config -securemode") +
172 25 * (strlen(config_dir
) + sizeof("mount c /dosdevices/c:")) +
173 4 * strlenW( path
) +
174 6 + strlen( app
) + strlen( args
) + 20 );
176 p
+= sprintf( p
, "[autoexec]\n" );
177 for (i
= 25; i
>= 0; i
--)
178 if (!(drives
& (1 << i
)))
180 p
+= sprintf( p
, "mount -z %c\n", 'a' + i
);
183 for (i
= 0; i
<= 25; i
++)
184 if (drives
& (1 << i
))
185 p
+= sprintf( p
, "mount %c %s/dosdevices/%c:\n", 'a' + i
, config_dir
, 'a' + i
);
186 p
+= sprintf( p
, "%c:\ncd ", path
[0] );
187 p
+= WideCharToMultiByte( CP_UNIXCP
, 0, path
+ 2, -1, p
, 4 * strlenW(path
), NULL
, NULL
) - 1;
188 p
+= sprintf( p
, "\nconfig -securemode\n" );
189 p
+= sprintf( p
, "%s %s\n", app
, args
);
190 p
+= sprintf( p
, "exit\n" );
191 if (WriteFile( file
, buffer
, strlen(buffer
), &written
, NULL
) && written
== strlen(buffer
))
194 char *config_file
= wine_get_unix_file_name( config
);
196 args
[1] = "-userconf";
198 args
[3] = config_file
;
200 ret
= _spawnvp( _P_WAIT
, args
[0], args
);
203 DeleteFileW( config
);
204 HeapFree( GetProcessHeap(), 0, buffer
);
209 /***********************************************************************
212 static void start_dos_exe( LPCSTR filename
, LPCSTR cmdline
)
214 start_dosbox( filename
, cmdline
);
215 WINE_MESSAGE( "winevdm: %s is a DOS application, you need to install DOSBox.\n", filename
);
219 /***********************************************************************
222 * Read a pif file and return the header and possibly the 286 (real mode)
223 * record or 386 (enhanced mode) record. Returns FALSE if the file is
224 * invalid otherwise TRUE.
226 static BOOL
read_pif_file( HANDLE hFile
, char *progname
, char *title
,
227 char *optparams
, char *startdir
, int *closeonexit
, int *textmode
)
230 LARGE_INTEGER filesize
;
232 BOOL found386rec
= FALSE
;
233 pif386rec_t pif386rec
;
235 if( !GetFileSizeEx( hFile
, &filesize
) ||
236 filesize
.QuadPart
< (sizeof(pifhead_t
) + sizeof(recordhead_t
))) {
237 WINE_ERR("Invalid pif file: size error %d\n", (int)filesize
.QuadPart
);
240 SetFilePointer( hFile
, 0, NULL
, FILE_BEGIN
);
241 if( !ReadFile( hFile
, &pifheader
, sizeof(pifhead_t
), &nread
, NULL
))
243 WINE_TRACE("header: program %s title %s startdir %s params %s\n",
244 wine_dbgstr_a(pifheader
.program
),
245 wine_dbgstr_an(pifheader
.windowtitle
, sizeof(pifheader
.windowtitle
)),
246 wine_dbgstr_a(pifheader
.startdir
),
247 wine_dbgstr_a(pifheader
.optparams
));
248 WINE_TRACE("header: memory req'd %d desr'd %d drive %d videomode %d\n",
249 pifheader
.memmin
, pifheader
.memmax
, pifheader
.startdrive
,
250 pifheader
.videomode
);
251 WINE_TRACE("header: flags 0x%x 0x%x 0x%x\n",
252 pifheader
.hdrflags1
, pifheader
.hdrflags2
, pifheader
.hdrflags3
);
253 ReadFile( hFile
, &rhead
, sizeof(recordhead_t
), &nread
, NULL
);
254 if( strncmp( rhead
.recordname
, "MICROSOFT PIFEX", 15)) {
255 WINE_ERR("Invalid pif file: magic string not found\n");
258 /* now process the following records */
260 WORD nextrecord
= rhead
.posofnextrecord
;
261 if( (nextrecord
& 0x8000) ||
262 filesize
.QuadPart
<( nextrecord
+ sizeof(recordhead_t
))) break;
263 if( !SetFilePointer( hFile
, nextrecord
, NULL
, FILE_BEGIN
) ||
264 !ReadFile( hFile
, &rhead
, sizeof(recordhead_t
), &nread
, NULL
))
266 if( !rhead
.recordname
[0]) continue; /* deleted record */
267 WINE_TRACE("reading record %s size %d next 0x%x\n",
268 wine_dbgstr_a(rhead
.recordname
), rhead
.sizeofdata
,
269 rhead
.posofnextrecord
);
270 if( !strncmp( rhead
.recordname
, "WINDOWS 386", 11)) {
272 ReadFile( hFile
, &pif386rec
, sizeof(pif386rec_t
), &nread
, NULL
);
273 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",
274 pif386rec
.memmin
, pif386rec
.memmax
,
275 pif386rec
.emsmin
, pif386rec
.emsmax
,
276 pif386rec
.xmsmin
, pif386rec
.xmsmax
);
277 WINE_TRACE("386rec: option 0x%x memory 0x%x video 0x%x\n",
278 pif386rec
.optflags
, pif386rec
.memflags
,
279 pif386rec
.videoflags
);
280 WINE_TRACE("386rec: optional parameters %s\n",
281 wine_dbgstr_a(pif386rec
.optparams
));
284 /* prepare the return data */
285 lstrcpynA( progname
, pifheader
.program
, sizeof(pifheader
.program
)+1);
286 lstrcpynA( title
, pifheader
.windowtitle
, sizeof(pifheader
.windowtitle
)+1);
288 lstrcpynA( optparams
, pif386rec
.optparams
, sizeof( pif386rec
.optparams
)+1);
290 lstrcpynA( optparams
, pifheader
.optparams
, sizeof(pifheader
.optparams
)+1);
291 lstrcpynA( startdir
, pifheader
.startdir
, sizeof(pifheader
.startdir
)+1);
292 *closeonexit
= pifheader
.hdrflags1
& 0x10;
293 *textmode
= found386rec
? pif386rec
.videoflags
& 0x0010
294 : pifheader
.hdrflags1
& 0x0002;
298 /***********************************************************************
301 * execute a pif file.
303 static VOID
pif_cmd( char *filename
, char *cmdline
)
306 char progpath
[MAX_PATH
];
315 if( (hFile
= CreateFileA( filename
, GENERIC_READ
, FILE_SHARE_READ
,
316 NULL
, OPEN_EXISTING
, 0, 0 )) == INVALID_HANDLE_VALUE
)
318 WINE_ERR("open file %s failed\n", wine_dbgstr_a(filename
));
321 if( !read_pif_file( hFile
, progname
, title
, optparams
, startdir
,
322 &closeonexit
, &textmode
)) {
323 WINE_ERR( "failed to read %s\n", wine_dbgstr_a(filename
));
325 sprintf( buf
, "%s\nInvalid file format. Check your pif file.",
327 MessageBoxA( NULL
, buf
, "16 bit DOS subsystem", MB_OK
|MB_ICONWARNING
);
328 SetLastError( ERROR_BAD_FORMAT
);
332 if( (p
= strrchr( progname
, '.')) && !strcasecmp( p
, ".bat"))
333 WINE_FIXME(".bat programs in pif files are not supported.\n");
334 /* first change dir, so the search below can start from there */
335 if( startdir
[0] && !SetCurrentDirectoryA( startdir
)) {
336 WINE_ERR("Cannot change directory %s\n", wine_dbgstr_a( startdir
));
337 sprintf( buf
, "%s\nInvalid startup directory. Check your pif file.",
339 MessageBoxA( NULL
, buf
, "16 bit DOS subsystem", MB_OK
|MB_ICONWARNING
);
341 /* search for the program */
342 if( !SearchPathA( NULL
, progname
, NULL
, MAX_PATH
, progpath
, NULL
)) {
343 sprintf( buf
, "%s\nInvalid program file name. Check your pif file.",
345 MessageBoxA( NULL
, buf
, "16 bit DOS subsystem", MB_OK
|MB_ICONERROR
);
346 SetLastError( ERROR_FILE_NOT_FOUND
);
351 SetConsoleTitleA( title
) ;
352 /* if no arguments on the commandline, use them from the pif file */
353 if( !cmdline
[0] && optparams
[0])
355 /* FIXME: do something with:
361 start_dos_exe( progpath
, cmdline
);
364 /***********************************************************************
367 * Build the command line of a process from the argv array.
368 * Copied from ENV_BuildCommandLine.
370 static char *build_command_line( char **argv
)
373 char *p
, **arg
, *cmd_line
;
376 for (arg
= argv
; *arg
; arg
++)
385 if( !*a
) has_space
=TRUE
;
390 if (*a
==' ' || *a
=='\t') {
392 } else if (*a
=='"') {
393 /* doubling of '\' preceding a '"',
394 * plus escaping of said '"'
402 len
+=(a
-*arg
)+1 /* for the separating space */;
404 len
+=2; /* for the quotes */
407 if (!(cmd_line
= HeapAlloc( GetProcessHeap(), 0, len
? len
+ 1 : 2 )))
411 *p
++ = (len
< 256) ? len
: 255;
412 for (arg
= argv
; *arg
; arg
++)
414 BOOL has_space
,has_quote
;
417 /* Check for quotes and spaces in this argument */
418 has_space
=has_quote
=FALSE
;
420 if( !*a
) has_space
=TRUE
;
422 if (*a
==' ' || *a
=='\t') {
426 } else if (*a
=='"') {
434 /* Now transfer it to the command line */
450 /* Double all the '\\' preceding this '"', plus one */
451 for (i
=0;i
<=bcount
;i
++)
469 if (len
) p
--; /* remove last space */
475 /***********************************************************************
478 static void usage(void)
480 WINE_MESSAGE( "Usage: winevdm.exe [--app-name app.exe] command line\n\n" );
485 /***********************************************************************
488 int main( int argc
, char *argv
[] )
491 HINSTANCE16 instance
;
494 char buffer
[MAX_PATH
];
496 char *cmdline
, *appname
, **first_arg
;
499 if (!argv
[1]) usage();
501 if (!strcmp( argv
[1], "--app-name" ))
503 if (!(appname
= argv
[2])) usage();
504 first_arg
= argv
+ 3;
508 if (!SearchPathA( NULL
, argv
[1], ".exe", sizeof(buffer
), buffer
, NULL
))
510 WINE_MESSAGE( "winevdm: unable to exec '%s': file not found\n", argv
[1] );
514 first_arg
= argv
+ 1;
517 if (*first_arg
) first_arg
++; /* skip program name */
518 cmdline
= build_command_line( first_arg
);
520 if (WINE_TRACE_ON(winevdm
))
523 WINE_TRACE( "GetCommandLine = '%s'\n", GetCommandLineA() );
524 WINE_TRACE( "appname = '%s'\n", appname
);
525 WINE_TRACE( "cmdline = '%.*s'\n", cmdline
[0], cmdline
+1 );
526 for (i
= 0; argv
[i
]; i
++) WINE_TRACE( "argv[%d]: '%s'\n", i
, argv
[i
] );
529 GetStartupInfoA( &info
);
531 showCmd
[1] = (info
.dwFlags
& STARTF_USESHOWWINDOW
) ? info
.wShowWindow
: SW_SHOWNORMAL
;
533 params
.hEnvironment
= 0;
534 params
.cmdLine
= MapLS( cmdline
);
535 params
.showCmd
= MapLS( showCmd
);
538 RestoreThunkLock(1); /* grab the Win16 lock */
540 /* some programs assume mmsystem is always present */
541 LoadLibrary16( "gdi.exe" );
542 LoadLibrary16( "user.exe" );
543 LoadLibrary16( "mmsystem.dll" );
545 if ((instance
= LoadModule16( appname
, ¶ms
)) < 32)
549 /* first see if it is a .pif file */
550 if( ( p
= strrchr( appname
, '.' )) && !strcasecmp( p
, ".pif"))
551 pif_cmd( appname
, cmdline
+ 1);
555 /* loader expects arguments to be regular C strings */
556 start_dos_exe( appname
, cmdline
+ 1 );
558 /* if we get back here it failed */
559 instance
= GetLastError();
562 WINE_MESSAGE( "winevdm: can't exec '%s': ", appname
);
565 case 2: WINE_MESSAGE("file not found\n" ); break;
566 case 11: WINE_MESSAGE("invalid program file\n" ); break;
567 default: WINE_MESSAGE("error=%d\n", instance
); break;
569 ExitProcess(instance
);
572 /* wait forever; the process will be killed when the last task exits */
573 ReleaseThunkLock( &count
);