?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
gdi32: Change an ERR to a WARN for fonts with too-long names.
[wine/multimedia.git] / dlls / krnl386.exe16 / vxd.c
bloba3ff9ee8b3a2f85ba57d9f39795b615bff26805d
1 /*
2 * Win32 VxD functions
3 *
4 * Copyright 1998 Marcus Meissner
5 * Copyright 1998 Ulrich Weigand
6 * Copyright 1998 Patrik Stridvall
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12 *
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17 *
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <stdlib.h>
27 #ifdef HAVE_UNISTD_H
28 # include <unistd.h>
29 #endif
30 #include <sys/types.h>
31 #ifdef HAVE_SYS_STAT_H
32 # include <sys/stat.h>
33 #endif
34 #include <string.h>
35 #include <stdarg.h>
36
37 #define NONAMELESSUNION
38 #define NONAMELESSSTRUCT
39 #include "ntstatus.h"
40 #define WIN32_NO_STATUS
41 #include "windef.h"
42 #include "winbase.h"
43 #include "winerror.h"
44 #include "winternl.h"
45 #include "winioctl.h"
46 #include "kernel16_private.h"
47 #include "dosexe.h"
48 #include "wine/library.h"
49 #include "wine/unicode.h"
50 #include "wine/server.h"
51 #include "wine/debug.h"
52
53 WINE_DEFAULT_DEBUG_CHANNEL(vxd);
54
55 typedef DWORD (WINAPI *VxDCallProc)(DWORD, CONTEXT *);
56 typedef BOOL (WINAPI *DeviceIoProc)(DWORD, LPVOID, DWORD, LPVOID, DWORD, LPDWORD, LPOVERLAPPED);
57
58 struct vxd_module
59 {
60 LARGE_INTEGER index;
61 HANDLE handle;
62 HMODULE module;
63 DeviceIoProc proc;
64 };
65
66 struct vxdcall_service
67 {
68 WCHAR name[12];
69 DWORD service;
70 HMODULE module;
71 VxDCallProc proc;
72 };
73
74 #define MAX_VXD_MODULES 32
75
76 static struct vxd_module vxd_modules[MAX_VXD_MODULES];
77
78 static struct vxdcall_service vxd_services[] =
79 {
80 { {'v','m','m','.','v','x','d',0}, 0x0001, NULL, NULL },
81 { {'v','w','i','n','3','2','.','v','x','d',0}, 0x002a, NULL, NULL }
82 };
83
84 #define NB_VXD_SERVICES (sizeof(vxd_services)/sizeof(vxd_services[0]))
85
86 #define W32S_APP2WINE(addr) ((addr)? (DWORD)(addr) + W32S_offset : 0)
87 #define W32S_WINE2APP(addr) ((addr)? (DWORD)(addr) - W32S_offset : 0)
88
89 #define VXD_BARF(context,name) \
90 TRACE( "vxd %s: unknown/not implemented parameters:\n" \
91 "vxd %s: AX %04x, BX %04x, CX %04x, DX %04x, " \
92 "SI %04x, DI %04x, DS %04x, ES %04x\n", \
93 (name), (name), AX_reg(context), BX_reg(context), \
94 CX_reg(context), DX_reg(context), SI_reg(context), \
95 DI_reg(context), (WORD)context->SegDs, (WORD)context->SegEs )
96
97 static CRITICAL_SECTION vxd_section;
98 static CRITICAL_SECTION_DEBUG critsect_debug =
99 {
100 0, 0, &vxd_section,
101 { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
102 0, 0, { (DWORD_PTR)(__FILE__ ": vxd_section") }
103 };
104 static CRITICAL_SECTION vxd_section = { &critsect_debug, -1, 0, 0, 0, 0 };
105
106 static UINT W32S_offset;
107
108 static WORD VXD_WinVersion(void)
109 {
110 WORD version = LOWORD(GetVersion16());
111 return (version >> 8) | (version << 8);
112 }
113
114 /* create a file handle to represent a VxD, by opening a dummy file in the wineserver directory */
115 static HANDLE open_vxd_handle( LPCWSTR name )
116 {
117 static const WCHAR prefixW[] = {'\\','?','?','\\','u','n','i','x'};
118 const char *dir = wine_get_server_dir();
119 int len;
120 HANDLE ret;
121 NTSTATUS status;
122 OBJECT_ATTRIBUTES attr;
123 UNICODE_STRING nameW;
124 IO_STATUS_BLOCK io;
125
126 len = MultiByteToWideChar( CP_UNIXCP, 0, dir, -1, NULL, 0 );
127 nameW.Length = sizeof(prefixW) + (len + strlenW( name )) * sizeof(WCHAR);
128 nameW.MaximumLength = nameW.Length + sizeof(WCHAR);
129 if (!(nameW.Buffer = HeapAlloc( GetProcessHeap(), 0, nameW.MaximumLength )))
130 {
131 SetLastError( ERROR_NOT_ENOUGH_MEMORY );
132 return 0;
133 }
134 memcpy( nameW.Buffer, prefixW, sizeof(prefixW) );
135 MultiByteToWideChar( CP_UNIXCP, 0, dir, -1, nameW.Buffer + sizeof(prefixW)/sizeof(WCHAR), len );
136 len += sizeof(prefixW) / sizeof(WCHAR);
137 nameW.Buffer[len-1] = '/';
138 strcpyW( nameW.Buffer + len, name );
139
140 attr.Length = sizeof(attr);
141 attr.RootDirectory = 0;
142 attr.Attributes = 0;
143 attr.ObjectName = &nameW;
144 attr.SecurityDescriptor = NULL;
145 attr.SecurityQualityOfService = NULL;
146
147 status = NtCreateFile( &ret, 0, &attr, &io, NULL, 0,
148 FILE_SHARE_READ|FILE_SHARE_WRITE, FILE_OPEN_IF,
149 FILE_SYNCHRONOUS_IO_ALERT, NULL, 0 );
150 if (status)
151 {
152 ret = 0;
153 SetLastError( RtlNtStatusToDosError(status) );
154 }
155 RtlFreeUnicodeString( &nameW );
156 return ret;
157 }
158
159 /* retrieve the DeviceIoControl function for a Vxd given a file handle */
160 DeviceIoProc __wine_vxd_get_proc( HANDLE handle )
161 {
162 DeviceIoProc ret = NULL;
163 int status, i;
164 IO_STATUS_BLOCK io;
165 FILE_INTERNAL_INFORMATION info;
166
167 status = NtQueryInformationFile( handle, &io, &info, sizeof(info), FileInternalInformation );
168 if (status)
169 {
170 SetLastError( RtlNtStatusToDosError(status) );
171 return NULL;
172 }
173
174 RtlEnterCriticalSection( &vxd_section );
175
176 for (i = 0; i < MAX_VXD_MODULES; i++)
177 {
178 if (!vxd_modules[i].module) break;
179 if (vxd_modules[i].index.QuadPart == info.IndexNumber.QuadPart)
180 {
181 if (!(ret = vxd_modules[i].proc)) SetLastError( ERROR_INVALID_FUNCTION );
182 goto done;
183 }
184 }
185 /* FIXME: Here we could go through the directory to find the VxD name and load it. */
186 /* Let's wait to find out if there are actually apps out there that try to share */
187 /* VxD handles between processes, before we go to the trouble of implementing it. */
188 ERR( "handle %p not found in module list, inherited from another process?\n", handle );
189
190 done:
191 RtlLeaveCriticalSection( &vxd_section );
192 return ret;
193 }
194
195
196 /* load a VxD and return a file handle to it */
197 HANDLE __wine_vxd_open( LPCWSTR filenameW, DWORD access, SECURITY_ATTRIBUTES *sa )
198 {
199 static const WCHAR dotVxDW[] = {'.','v','x','d',0};
200 int i;
201 HANDLE handle;
202 HMODULE module;
203 WCHAR *p, name[16];
204
205 /* normalize the filename */
206
207 if (strlenW( filenameW ) >= sizeof(name)/sizeof(WCHAR) - 4 ||
208 strchrW( filenameW, '/' ) || strchrW( filenameW, '\\' ))
209 {
210 SetLastError( ERROR_FILE_NOT_FOUND );
211 return 0;
212 }
213 strcpyW( name, filenameW );
214 strlwrW( name );
215 p = strchrW( name, '.' );
216 if (!p) strcatW( name, dotVxDW );
217 else if (strcmpiW( p, dotVxDW )) /* existing extension has to be .vxd */
218 {
219 SetLastError( ERROR_FILE_NOT_FOUND );
220 return 0;
221 }
222
223 /* try to load the module first */
224
225 if (!(module = LoadLibraryW( name )))
226 {
227 FIXME( "Unknown/unsupported VxD %s. Try setting Windows version to 'nt40' or 'win31'.\n",
228 debugstr_w(name) );
229 SetLastError( ERROR_FILE_NOT_FOUND );
230 return 0;
231 }
232
233 /* register the module in the global list if necessary */
234
235 RtlEnterCriticalSection( &vxd_section );
236
237 for (i = 0; i < MAX_VXD_MODULES; i++)
238 {
239 if (vxd_modules[i].module == module)
240 {
241 handle = vxd_modules[i].handle;
242 goto done; /* already registered */
243 }
244 if (!vxd_modules[i].module) /* new one, register it */
245 {
246 IO_STATUS_BLOCK io;
247 FILE_INTERNAL_INFORMATION info;
248
249 /* get a file handle to the dummy file */
250 if (!(handle = open_vxd_handle( name )))
251 {
252 FreeLibrary( module );
253 goto done;
254 }
255 if (!NtQueryInformationFile( handle, &io, &info, sizeof(info), FileInternalInformation ))
256 vxd_modules[i].index = info.IndexNumber;
257
258 vxd_modules[i].module = module;
259 vxd_modules[i].handle = handle;
260 vxd_modules[i].proc = (DeviceIoProc)GetProcAddress( module, "DeviceIoControl" );
261 goto done;
262 }
263 }
264
265 ERR("too many open VxD modules, please report\n" );
266 FreeLibrary( module );
267 handle = 0;
268
269 done:
270 RtlLeaveCriticalSection( &vxd_section );
271 if (!DuplicateHandle( GetCurrentProcess(), handle, GetCurrentProcess(), &handle, 0,
272 (sa && (sa->nLength>=sizeof(*sa)) && sa->bInheritHandle),
273 DUP_HANDLE_SAME_ACCESS ))
274 handle = 0;
275 return handle;
276 }
277
278
279 /***********************************************************************
280 * VxDCall0 (KERNEL32.1)
281 * VxDCall1 (KERNEL32.2)
282 * VxDCall2 (KERNEL32.3)
283 * VxDCall3 (KERNEL32.4)
284 * VxDCall4 (KERNEL32.5)
285 * VxDCall5 (KERNEL32.6)
286 * VxDCall6 (KERNEL32.7)
287 * VxDCall7 (KERNEL32.8)
288 * VxDCall8 (KERNEL32.9)
289 */
290 void WINAPI __regs_VxDCall( DWORD service, CONTEXT *context )
291 {
292 unsigned int i;
293 VxDCallProc proc = NULL;
294
295 RtlEnterCriticalSection( &vxd_section );
296 for (i = 0; i < NB_VXD_SERVICES; i++)
297 {
298 if (HIWORD(service) != vxd_services[i].service) continue;
299 if (!vxd_services[i].module) /* need to load it */
300 {
301 if ((vxd_services[i].module = LoadLibraryW( vxd_services[i].name )))
302 vxd_services[i].proc = (VxDCallProc)GetProcAddress( vxd_services[i].module, "VxDCall" );
303 }
304 proc = vxd_services[i].proc;
305 break;
306 }
307 RtlLeaveCriticalSection( &vxd_section );
308
309 if (proc) context->Eax = proc( service, context );
310 else
311 {
312 FIXME( "Unknown/unimplemented VxD (%08x)\n", service);
313 context->Eax = 0xffffffff; /* FIXME */
314 }
315 }
316 #ifdef DEFINE_REGS_ENTRYPOINT
317 DEFINE_REGS_ENTRYPOINT( VxDCall, 1 )
318 #endif
319
320
321 /***********************************************************************
322 * __wine_vxd_vmm (WPROCS.401)
323 */
324 void WINAPI __wine_vxd_vmm ( CONTEXT *context )
325 {
326 unsigned service = AX_reg(context);
327
328 TRACE("[%04x] VMM\n", (UINT16)service);
329
330 switch(service)
331 {
332 case 0x0000: /* version */
333 SET_AX( context, VXD_WinVersion() );
334 RESET_CFLAG(context);
335 break;
336
337 case 0x026d: /* Get_Debug_Flag '/m' */
338 case 0x026e: /* Get_Debug_Flag '/n' */
339 SET_AL( context, 0 );
340 RESET_CFLAG(context);
341 break;
342
343 default:
344 VXD_BARF( context, "VMM" );
345 }
346 }
347
348 /***********************************************************************
349 * __wine_vxd_pagefile (WPROCS.433)
350 */
351 void WINAPI __wine_vxd_pagefile( CONTEXT *context )
352 {
353 unsigned service = AX_reg(context);
354
355 /* taken from Ralf Brown's Interrupt List */
356
357 TRACE("[%04x] PageFile\n", (UINT16)service );
358
359 switch(service)
360 {
361 case 0x00: /* get version, is this windows version? */
362 TRACE("returning version\n");
363 SET_AX( context, VXD_WinVersion() );
364 RESET_CFLAG(context);
365 break;
366
367 case 0x01: /* get swap file info */
368 TRACE("VxD PageFile: returning swap file info\n");
369 SET_AX( context, 0x00 ); /* paging disabled */
370 context->Ecx = 0; /* maximum size of paging file */
371 /* FIXME: do I touch DS:SI or DS:DI? */
372 RESET_CFLAG(context);
373 break;
374
375 case 0x02: /* delete permanent swap on exit */
376 TRACE("VxD PageFile: supposed to delete swap\n");
377 RESET_CFLAG(context);
378 break;
379
380 case 0x03: /* current temporary swap file size */
381 TRACE("VxD PageFile: what is current temp. swap size\n");
382 RESET_CFLAG(context);
383 break;
384
385 case 0x04: /* read or write?? INTERRUP.D */
386 case 0x05: /* cancel?? INTERRUP.D */
387 case 0x06: /* test I/O valid INTERRUP.D */
388 default:
389 VXD_BARF( context, "pagefile" );
390 break;
391 }
392 }
393
394 /***********************************************************************
395 * __wine_vxd_reboot (WPROCS.409)
396 */
397 void WINAPI __wine_vxd_reboot( CONTEXT *context )
398 {
399 unsigned service = AX_reg(context);
400
401 TRACE("[%04x] Reboot\n", (UINT16)service);
402
403 switch(service)
404 {
405 case 0x0000: /* version */
406 SET_AX( context, VXD_WinVersion() );
407 RESET_CFLAG(context);
408 break;
409
410 default:
411 VXD_BARF( context, "REBOOT" );
412 }
413 }
414
415 /***********************************************************************
416 * __wine_vxd_vdd (WPROCS.410)
417 */
418 void WINAPI __wine_vxd_vdd( CONTEXT *context )
419 {
420 unsigned service = AX_reg(context);
421
422 TRACE("[%04x] VDD\n", (UINT16)service);
423
424 switch(service)
425 {
426 case 0x0000: /* version */
427 SET_AX( context, VXD_WinVersion() );
428 RESET_CFLAG(context);
429 break;
430
431 default:
432 VXD_BARF( context, "VDD" );
433 }
434 }
435
436 /***********************************************************************
437 * __wine_vxd_vmd (WPROCS.412)
438 */
439 void WINAPI __wine_vxd_vmd( CONTEXT *context )
440 {
441 unsigned service = AX_reg(context);
442
443 TRACE("[%04x] VMD\n", (UINT16)service);
444
445 switch(service)
446 {
447 case 0x0000: /* version */
448 SET_AX( context, VXD_WinVersion() );
449 RESET_CFLAG(context);
450 break;
451
452 default:
453 VXD_BARF( context, "VMD" );
454 }
455 }
456
457 /***********************************************************************
458 * __wine_vxd_vxdloader (WPROCS.439)
459 */
460 void WINAPI __wine_vxd_vxdloader( CONTEXT *context )
461 {
462 unsigned service = AX_reg(context);
463
464 TRACE("[%04x] VXDLoader\n", (UINT16)service);
465
466 switch (service)
467 {
468 case 0x0000: /* get version */
469 TRACE("returning version\n");
470 SET_AX( context, 0x0000 );
471 SET_DX( context, VXD_WinVersion() );
472 RESET_CFLAG(context);
473 break;
474
475 case 0x0001: /* load device */
476 FIXME("load device %04x:%04x (%s)\n",
477 context->SegDs, DX_reg(context),
478 debugstr_a(MapSL(MAKESEGPTR(context->SegDs, DX_reg(context)))));
479 SET_AX( context, 0x0000 );
480 context->SegEs = 0x0000;
481 SET_DI( context, 0x0000 );
482 RESET_CFLAG(context);
483 break;
484
485 case 0x0002: /* unload device */
486 FIXME("unload device (%08x)\n", context->Ebx);
487 SET_AX( context, 0x0000 );
488 RESET_CFLAG(context);
489 break;
490
491 default:
492 VXD_BARF( context, "VXDLDR" );
493 SET_AX( context, 0x000B ); /* invalid function number */
494 SET_CFLAG(context);
495 break;
496 }
497 }
498
499 /***********************************************************************
500 * __wine_vxd_shell (WPROCS.423)
501 */
502 void WINAPI __wine_vxd_shell( CONTEXT *context )
503 {
504 unsigned service = DX_reg(context);
505
506 TRACE("[%04x] Shell\n", (UINT16)service);
507
508 switch (service) /* Ralf Brown says EDX, but I use DX instead */
509 {
510 case 0x0000:
511 TRACE("returning version\n");
512 SET_AX( context, VXD_WinVersion() );
513 context->Ebx = 1; /* system VM Handle */
514 break;
515
516 case 0x0001:
517 case 0x0002:
518 case 0x0003:
519 /* SHELL_SYSMODAL_Message
520 ebx virtual machine handle
521 eax message box flags
522 ecx address of message
523 edi address of caption
524 return response in eax
525 */
526 case 0x0004:
527 /* SHELL_Message
528 ebx virtual machine handle
529 eax message box flags
530 ecx address of message
531 edi address of caption
532 esi address callback
533 edx reference data for callback
534 return response in eax
535 */
536 case 0x0005:
537 VXD_BARF( context, "shell" );
538 break;
539
540 case 0x0006: /* SHELL_Get_VM_State */
541 TRACE("VxD Shell: returning VM state\n");
542 /* Actually we don't, not yet. We have to return a structure
543 * and I am not to sure how to set it up and return it yet,
544 * so for now let's do nothing. I can (hopefully) get this
545 * by the next release
546 */
547 /* RESET_CFLAG(context); */
548 break;
549
550 case 0x0007:
551 case 0x0008:
552 case 0x0009:
553 case 0x000A:
554 case 0x000B:
555 case 0x000C:
556 case 0x000D:
557 case 0x000E:
558 case 0x000F:
559 case 0x0010:
560 case 0x0011:
561 case 0x0012:
562 case 0x0013:
563 case 0x0014:
564 case 0x0015:
565 case 0x0016:
566 VXD_BARF( context, "SHELL" );
567 break;
568
569 /* the new Win95 shell API */
570 case 0x0100: /* get version */
571 SET_AX( context, VXD_WinVersion() );
572 break;
573
574 case 0x0104: /* retrieve Hook_Properties list */
575 case 0x0105: /* call Hook_Properties callbacks */
576 VXD_BARF( context, "SHELL" );
577 break;
578
579 case 0x0106: /* install timeout callback */
580 TRACE("VxD Shell: ignoring shell callback (%d sec.)\n", context->Ebx);
581 SET_CFLAG(context);
582 break;
583
584 case 0x0107: /* get version of any VxD */
585 default:
586 VXD_BARF( context, "SHELL" );
587 break;
588 }
589 }
590
591
592 /***********************************************************************
593 * __wine_vxd_comm (WPROCS.414)
594 */
595 void WINAPI __wine_vxd_comm( CONTEXT *context )
596 {
597 unsigned service = AX_reg(context);
598
599 TRACE("[%04x] Comm\n", (UINT16)service);
600
601 switch (service)
602 {
603 case 0x0000: /* get version */
604 TRACE("returning version\n");
605 SET_AX( context, VXD_WinVersion() );
606 RESET_CFLAG(context);
607 break;
608
609 case 0x0001: /* set port global */
610 case 0x0002: /* get focus */
611 case 0x0003: /* virtualise port */
612 default:
613 VXD_BARF( context, "comm" );
614 }
615 }
616
617 /***********************************************************************
618 * __wine_vxd_timer (WPROCS.405)
619 */
620 void WINAPI __wine_vxd_timer( CONTEXT *context )
621 {
622 unsigned service = AX_reg(context);
623
624 TRACE("[%04x] Virtual Timer\n", (UINT16)service);
625
626 switch(service)
627 {
628 case 0x0000: /* version */
629 SET_AX( context, VXD_WinVersion() );
630 RESET_CFLAG(context);
631 break;
632
633 case 0x0100: /* clock tick time, in 840nsecs */
634 context->Eax = GetTickCount();
635
636 context->Edx = context->Eax >> 22;
637 context->Eax <<= 10; /* not very precise */
638 break;
639
640 case 0x0101: /* current Windows time, msecs */
641 case 0x0102: /* current VM time, msecs */
642 context->Eax = GetTickCount();
643 break;
644
645 default:
646 VXD_BARF( context, "VTD" );
647 }
648 }
649
650
651 /***********************************************************************
652 * timer_thread
653 */
654 static DWORD CALLBACK timer_thread( void *arg )
655 {
656 DWORD *system_time = arg;
657
658 for (;;)
659 {
660 *system_time = GetTickCount();
661 Sleep( 55 );
662 }
663
664 return 0;
665 }
666
667
668 /***********************************************************************
669 * __wine_vxd_timerapi (WPROCS.1490)
670 */
671 void WINAPI __wine_vxd_timerapi( CONTEXT *context )
672 {
673 static WORD System_Time_Selector;
674
675 unsigned service = AX_reg(context);
676
677 TRACE("[%04x] TimerAPI\n", (UINT16)service);
678
679 switch(service)
680 {
681 case 0x0000: /* version */
682 SET_AX( context, VXD_WinVersion() );
683 RESET_CFLAG(context);
684 break;
685
686 case 0x0009: /* get system time selector */
687 if ( !System_Time_Selector )
688 {
689 HANDLE16 handle = GlobalAlloc16( GMEM_FIXED, sizeof(DWORD) );
690 System_Time_Selector = handle | 7;
691 CloseHandle( CreateThread( NULL, 0, timer_thread, GlobalLock16(handle), 0, NULL ) );
692 }
693 SET_AX( context, System_Time_Selector );
694 RESET_CFLAG(context);
695 break;
696
697 default:
698 VXD_BARF( context, "VTDAPI" );
699 }
700 }
701
702 /***********************************************************************
703 * __wine_vxd_configmg (WPROCS.451)
704 */
705 void WINAPI __wine_vxd_configmg( CONTEXT *context )
706 {
707 unsigned service = AX_reg(context);
708
709 TRACE("[%04x] ConfigMG\n", (UINT16)service);
710
711 switch(service)
712 {
713 case 0x0000: /* version */
714 SET_AX( context, VXD_WinVersion() );
715 RESET_CFLAG(context);
716 break;
717
718 default:
719 VXD_BARF( context, "CONFIGMG" );
720 }
721 }
722
723 /***********************************************************************
724 * __wine_vxd_enable (WPROCS.455)
725 */
726 void WINAPI __wine_vxd_enable( CONTEXT *context )
727 {
728 unsigned service = AX_reg(context);
729
730 TRACE("[%04x] Enable\n", (UINT16)service);
731
732 switch(service)
733 {
734 case 0x0000: /* version */
735 SET_AX( context, VXD_WinVersion() );
736 RESET_CFLAG(context);
737 break;
738
739 default:
740 VXD_BARF( context, "ENABLE" );
741 }
742 }
743
744 /***********************************************************************
745 * __wine_vxd_apm (WPROCS.438)
746 */
747 void WINAPI __wine_vxd_apm( CONTEXT *context )
748 {
749 unsigned service = AX_reg(context);
750
751 TRACE("[%04x] APM\n", (UINT16)service);
752
753 switch(service)
754 {
755 case 0x0000: /* version */
756 SET_AX( context, VXD_WinVersion() );
757 RESET_CFLAG(context);
758 break;
759
760 default:
761 VXD_BARF( context, "APM" );
762 }
763 }
764
765 /***********************************************************************
766 * __wine_vxd_win32s (WPROCS.445)
767 *
768 * This is an implementation of the services of the Win32s VxD.
769 * Since official documentation of these does not seem to be available,
770 * certain arguments of some of the services remain unclear.
771 *
772 * FIXME: The following services are currently unimplemented:
773 * Exception handling (0x01, 0x1C)
774 * Debugger support (0x0C, 0x14, 0x17)
775 * Low-level memory access (0x02, 0x03, 0x0A, 0x0B)
776 * Memory Statistics (0x1B)
777 *
778 *
779 * We have a specific problem running Win32s on Linux (and probably also
780 * the other x86 unixes), since Win32s tries to allocate its main 'flat
781 * code/data segment' selectors with a base of 0xffff0000 (and limit 4GB).
782 * The rationale for this seems to be that they want one the one hand to
783 * be able to leave the Win 3.1 memory (starting with the main DOS memory)
784 * at linear address 0, but want at other hand to have offset 0 of the
785 * flat data/code segment point to an unmapped page (to catch NULL pointer
786 * accesses). Hence they allocate the flat segments with a base of 0xffff0000
787 * so that the Win 3.1 memory area at linear address zero shows up in the
788 * flat segments at offset 0x10000 (since linear addresses wrap around at
789 * 4GB). To compensate for that discrepancy between flat segment offsets
790 * and plain linear addresses, all flat pointers passed between the 32-bit
791 * and the 16-bit parts of Win32s are shifted by 0x10000 in the appropriate
792 * direction by the glue code (mainly) in W32SKRNL and WIN32S16.
793 *
794 * The problem for us is now that Linux does not allow a LDT selector with
795 * base 0xffff0000 to be created, since it would 'see' a part of the kernel
796 * address space. To address this problem we introduce *another* offset:
797 * We add 0x10000 to every linear address we get as an argument from Win32s.
798 * This means especially that the flat code/data selectors get actually
799 * allocated with base 0x0, so that flat offsets and (real) linear addresses
800 * do again agree! In fact, every call e.g. of a Win32s VxD service now
801 * has all pointer arguments (which are offsets in the flat data segment)
802 * first reduced by 0x10000 by the W32SKRNL glue code, and then again
803 * increased by 0x10000 by *our* code.
804 *
805 * Note that to keep everything consistent, this offset has to be applied by
806 * every Wine function that operates on 'linear addresses' passed to it by
807 * Win32s. Fortunately, since Win32s does not directly call any Wine 32-bit
808 * API routines, this affects only two locations: this VxD and the DPMI
809 * handler. (NOTE: Should any Win32s application pass a linear address to
810 * any routine apart from those, e.g. some other VxD handler, that code
811 * would have to take the offset into account as well!)
812 *
813 * The offset is set the first time any application calls the GetVersion()
814 * service of the Win32s VxD. (Note that the offset is never reset.)
815 *
816 */
817 void WINAPI __wine_vxd_win32s( CONTEXT *context )
818 {
819 switch (AX_reg(context))
820 {
821 case 0x0000: /* Get Version */
822 /*
823 * Input: None
824 *
825 * Output: EAX: LoWord: Win32s Version (1.30)
826 * HiWord: VxD Version (200)
827 *
828 * EBX: Build (172)
829 *
830 * ECX: ??? (1)
831 *
832 * EDX: Debugging Flags
833 *
834 * EDI: Error Flag
835 * 0 if OK,
836 * 1 if VMCPD VxD not found
837 */
838
839 TRACE("GetVersion()\n");
840
841 context->Eax = VXD_WinVersion() | (200 << 16);
842 context->Ebx = 0;
843 context->Ecx = 0;
844 context->Edx = 0;
845 context->Edi = 0;
846
847 /*
848 * If this is the first time we are called for this process,
849 * hack the memory image of WIN32S16 so that it doesn't try
850 * to access the GDT directly ...
851 *
852 * The first code segment of WIN32S16 (version 1.30) contains
853 * an unexported function somewhere between the exported functions
854 * SetFS and StackLinearToSegmented that tries to find a selector
855 * in the LDT that maps to the memory image of the LDT itself.
856 * If it succeeds, it stores this selector into a global variable
857 * which will be used to speed up execution by using this selector
858 * to modify the LDT directly instead of using the DPMI calls.
859 *
860 * To perform this search of the LDT, this function uses the
861 * sgdt and sldt instructions to find the linear address of
862 * the (GDT and then) LDT. While those instructions themselves
863 * execute without problem, the linear address that sgdt returns
864 * points (at least under Linux) to the kernel address space, so
865 * that any subsequent access leads to a segfault.
866 *
867 * Fortunately, WIN32S16 still contains as a fallback option the
868 * mechanism of using DPMI calls to modify LDT selectors instead
869 * of direct writes to the LDT. Thus we can circumvent the problem
870 * by simply replacing the first byte of the offending function
871 * with an 'retf' instruction. This means that the global variable
872 * supposed to contain the LDT alias selector will remain zero,
873 * and hence WIN32S16 will fall back to using DPMI calls.
874 *
875 * The heuristic we employ to _find_ that function is as follows:
876 * We search between the addresses of the exported symbols SetFS
877 * and StackLinearToSegmented for the byte sequence '0F 01 04'
878 * (this is the opcode of 'sgdt [si]'). We then search backwards
879 * from this address for the last occurrence of 'CB' (retf) that marks
880 * the end of the preceding function. The following byte (which
881 * should now be the first byte of the function we are looking for)
882 * will be replaced by 'CB' (retf).
883 *
884 * This heuristic works for the retail as well as the debug version
885 * of Win32s version 1.30. For versions earlier than that this
886 * hack should not be necessary at all, since the whole mechanism
887 * ('PERF130') was introduced only in 1.30 to improve the overall
888 * performance of Win32s.
889 */
890
891 if (!W32S_offset)
892 {
893 HMODULE16 hModule = GetModuleHandle16("win32s16");
894 SEGPTR func1 = (SEGPTR)GetProcAddress16(hModule, "SetFS");
895 SEGPTR func2 = (SEGPTR)GetProcAddress16(hModule, "StackLinearToSegmented");
896
897 if ( hModule && func1 && func2
898 && SELECTOROF(func1) == SELECTOROF(func2))
899 {
900 BYTE *start = MapSL(func1);
901 BYTE *end = MapSL(func2);
902 BYTE *p, *retv = NULL;
903 int found = 0;
904
905 for (p = start; p < end; p++)
906 if (*p == 0xCB) found = 0, retv = p;
907 else if (*p == 0x0F) found = 1;
908 else if (*p == 0x01 && found == 1) found = 2;
909 else if (*p == 0x04 && found == 2) { found = 3; break; }
910 else found = 0;
911
912 if (found == 3 && retv)
913 {
914 TRACE("PERF130 hack: "
915 "Replacing byte %02X at offset %04X:%04X\n",
916 *(retv+1), SELECTOROF(func1),
917 OFFSETOF(func1) + retv+1-start);
918
919 *(retv+1) = (BYTE)0xCB;
920 }
921 }
922 }
923
924 /*
925 * Mark process as Win32s, so that subsequent DPMI calls
926 * will perform the W32S_APP2WINE/W32S_WINE2APP address shift.
927 */
928 W32S_offset = 0x10000;
929 break;
930
931
932 case 0x0001: /* Install Exception Handling */
933 /*
934 * Input: EBX: Flat address of W32SKRNL Exception Data
935 *
936 * ECX: LoWord: Flat Code Selector
937 * HiWord: Flat Data Selector
938 *
939 * EDX: Flat address of W32SKRNL Exception Handler
940 * (this is equal to W32S_BackTo32 + 0x40)
941 *
942 * ESI: SEGPTR KERNEL.HASGPHANDLER
943 *
944 * EDI: SEGPTR phCurrentTask (KERNEL.THHOOK + 0x10)
945 *
946 * Output: EAX: 0 if OK
947 */
948
949 TRACE("[0001] EBX=%x ECX=%x EDX=%x ESI=%x EDI=%x\n",
950 context->Ebx, context->Ecx, context->Edx,
951 context->Esi, context->Edi);
952
953 /* FIXME */
954
955 context->Eax = 0;
956 break;
957
958
959 case 0x0002: /* Set Page Access Flags */
960 /*
961 * Input: EBX: New access flags
962 * Bit 2: User Page if set, Supervisor Page if clear
963 * Bit 1: Read-Write if set, Read-Only if clear
964 *
965 * ECX: Size of memory area to change
966 *
967 * EDX: Flat start address of memory area
968 *
969 * Output: EAX: Size of area changed
970 */
971
972 TRACE("[0002] EBX=%x ECX=%x EDX=%x\n",
973 context->Ebx, context->Ecx, context->Edx);
974
975 /* FIXME */
976
977 context->Eax = context->Ecx;
978 break;
979
980
981 case 0x0003: /* Get Page Access Flags */
982 /*
983 * Input: EDX: Flat address of page to query
984 *
985 * Output: EAX: Page access flags
986 * Bit 2: User Page if set, Supervisor Page if clear
987 * Bit 1: Read-Write if set, Read-Only if clear
988 */
989
990 TRACE("[0003] EDX=%x\n", context->Edx);
991
992 /* FIXME */
993
994 context->Eax = 6;
995 break;
996
997
998 case 0x0004: /* Map Module */
999 /*
1000 * Input: ECX: IMTE (offset in Module Table) of new module
1001 *
1002 * EDX: Flat address of Win32s Module Table
1003 *
1004 * Output: EAX: 0 if OK
1005 */
1006
1007 if (!context->Edx || CX_reg(context) == 0xFFFF)
1008 {
1009 TRACE("MapModule: Initialization call\n");
1010 context->Eax = 0;
1011 }
1012 else
1013 {
1014 /*
1015 * Structure of a Win32s Module Table Entry:
1016 */
1017 struct Win32sModule
1018 {
1019 DWORD flags;
1020 DWORD flatBaseAddr;
1021 LPCSTR moduleName;
1022 LPCSTR pathName;
1023 LPCSTR unknown;
1024 LPBYTE baseAddr;
1025 DWORD hModule;
1026 DWORD relocDelta;
1027 };
1028
1029 /*
1030 * Note: This function should set up a demand-paged memory image
1031 * of the given module. Since mmap does not allow file offsets
1032 * not aligned at 1024 bytes, we simply load the image fully
1033 * into memory.
1034 */
1035
1036 struct Win32sModule *moduleTable =
1037 (struct Win32sModule *)W32S_APP2WINE(context->Edx);
1038 struct Win32sModule *module = moduleTable + context->Ecx;
1039
1040 IMAGE_NT_HEADERS *nt_header = RtlImageNtHeader( (HMODULE)module->baseAddr );
1041 IMAGE_SECTION_HEADER *pe_seg = (IMAGE_SECTION_HEADER*)((char *)&nt_header->OptionalHeader +
1042 nt_header->FileHeader.SizeOfOptionalHeader);
1043
1044
1045 HFILE image = _lopen(module->pathName, OF_READ);
1046 BOOL error = (image == HFILE_ERROR);
1047 UINT i;
1048
1049 TRACE("MapModule: Loading %s\n", module->pathName);
1050
1051 for (i = 0;
1052 !error && i < nt_header->FileHeader.NumberOfSections;
1053 i++, pe_seg++)
1054 if(!(pe_seg->Characteristics & IMAGE_SCN_CNT_UNINITIALIZED_DATA))
1055 {
1056 DWORD off = pe_seg->PointerToRawData;
1057 DWORD len = pe_seg->SizeOfRawData;
1058 LPBYTE addr = module->baseAddr + pe_seg->VirtualAddress;
1059
1060 TRACE("MapModule: "
1061 "Section %d at %08x from %08x len %08x\n",
1062 i, (DWORD)addr, off, len);
1063
1064 if ( _llseek(image, off, SEEK_SET) != off
1065 || _lread(image, addr, len) != len)
1066 error = TRUE;
1067 }
1068
1069 _lclose(image);
1070
1071 if (error)
1072 ERR("MapModule: Unable to load %s\n", module->pathName);
1073
1074 else if (module->relocDelta != 0)
1075 {
1076 IMAGE_DATA_DIRECTORY *dir = nt_header->OptionalHeader.DataDirectory
1077 + IMAGE_DIRECTORY_ENTRY_BASERELOC;
1078 IMAGE_BASE_RELOCATION *r = (IMAGE_BASE_RELOCATION *)
1079 (dir->Size? module->baseAddr + dir->VirtualAddress : 0);
1080
1081 TRACE("MapModule: Reloc delta %08x\n", module->relocDelta);
1082
1083 while (r && r->VirtualAddress)
1084 {
1085 LPBYTE page = module->baseAddr + r->VirtualAddress;
1086 WORD *TypeOffset = (WORD *)(r + 1);
1087 unsigned int count = (r->SizeOfBlock - sizeof(*r)) / sizeof(*TypeOffset);
1088
1089 TRACE("MapModule: %d relocations for page %08x\n",
1090 count, (DWORD)page);
1091
1092 for(i = 0; i < count; i++)
1093 {
1094 int offset = TypeOffset[i] & 0xFFF;
1095 int type = TypeOffset[i] >> 12;
1096 switch(type)
1097 {
1098 case IMAGE_REL_BASED_ABSOLUTE:
1099 break;
1100 case IMAGE_REL_BASED_HIGH:
1101 *(WORD *)(page+offset) += HIWORD(module->relocDelta);
1102 break;
1103 case IMAGE_REL_BASED_LOW:
1104 *(WORD *)(page+offset) += LOWORD(module->relocDelta);
1105 break;
1106 case IMAGE_REL_BASED_HIGHLOW:
1107 *(DWORD*)(page+offset) += module->relocDelta;
1108 break;
1109 default:
1110 WARN("MapModule: Unsupported fixup type\n");
1111 break;
1112 }
1113 }
1114
1115 r = (IMAGE_BASE_RELOCATION *)((LPBYTE)r + r->SizeOfBlock);
1116 }
1117 }
1118
1119 context->Eax = 0;
1120 RESET_CFLAG(context);
1121 }
1122 break;
1123
1124
1125 case 0x0005: /* UnMap Module */
1126 /*
1127 * Input: EDX: Flat address of module image
1128 *
1129 * Output: EAX: 1 if OK
1130 */
1131
1132 TRACE("UnMapModule: %x\n", W32S_APP2WINE(context->Edx));
1133
1134 /* As we didn't map anything, there's nothing to unmap ... */
1135
1136 context->Eax = 1;
1137 break;
1138
1139
1140 case 0x0006: /* VirtualAlloc */
1141 /*
1142 * Input: ECX: Current Process
1143 *
1144 * EDX: Flat address of arguments on stack
1145 *
1146 * DWORD *retv [out] Flat base address of allocated region
1147 * LPVOID base [in] Flat address of region to reserve/commit
1148 * DWORD size [in] Size of region
1149 * DWORD type [in] Type of allocation
1150 * DWORD prot [in] Type of access protection
1151 *
1152 * Output: EAX: NtStatus
1153 */
1154 {
1155 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1156 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1157 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1158 DWORD size = stack[2];
1159 DWORD type = stack[3];
1160 DWORD prot = stack[4];
1161 DWORD result;
1162
1163 TRACE("VirtualAlloc(%x, %x, %x, %x, %x)\n",
1164 (DWORD)retv, (DWORD)base, size, type, prot);
1165
1166 if (type & 0x80000000)
1167 {
1168 WARN("VirtualAlloc: strange type %x\n", type);
1169 type &= 0x7fffffff;
1170 }
1171
1172 if (!base && (type & MEM_COMMIT) && prot == PAGE_READONLY)
1173 {
1174 WARN("VirtualAlloc: NLS hack, allowing write access!\n");
1175 prot = PAGE_READWRITE;
1176 }
1177
1178 result = (DWORD)VirtualAlloc(base, size, type, prot);
1179
1180 if (W32S_WINE2APP(result))
1181 *retv = W32S_WINE2APP(result),
1182 context->Eax = STATUS_SUCCESS;
1183 else
1184 *retv = 0,
1185 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1186 }
1187 break;
1188
1189
1190 case 0x0007: /* VirtualFree */
1191 /*
1192 * Input: ECX: Current Process
1193 *
1194 * EDX: Flat address of arguments on stack
1195 *
1196 * DWORD *retv [out] TRUE if success, FALSE if failure
1197 * LPVOID base [in] Flat address of region
1198 * DWORD size [in] Size of region
1199 * DWORD type [in] Type of operation
1200 *
1201 * Output: EAX: NtStatus
1202 */
1203 {
1204 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1205 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1206 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1207 DWORD size = stack[2];
1208 DWORD type = stack[3];
1209 DWORD result;
1210
1211 TRACE("VirtualFree(%x, %x, %x, %x)\n",
1212 (DWORD)retv, (DWORD)base, size, type);
1213
1214 result = VirtualFree(base, size, type);
1215
1216 if (result)
1217 *retv = TRUE,
1218 context->Eax = STATUS_SUCCESS;
1219 else
1220 *retv = FALSE,
1221 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1222 }
1223 break;
1224
1225
1226 case 0x0008: /* VirtualProtect */
1227 /*
1228 * Input: ECX: Current Process
1229 *
1230 * EDX: Flat address of arguments on stack
1231 *
1232 * DWORD *retv [out] TRUE if success, FALSE if failure
1233 * LPVOID base [in] Flat address of region
1234 * DWORD size [in] Size of region
1235 * DWORD new_prot [in] Desired access protection
1236 * DWORD *old_prot [out] Previous access protection
1237 *
1238 * Output: EAX: NtStatus
1239 */
1240 {
1241 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1242 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1243 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1244 DWORD size = stack[2];
1245 DWORD new_prot = stack[3];
1246 DWORD *old_prot = (DWORD *)W32S_APP2WINE(stack[4]);
1247 DWORD result;
1248
1249 TRACE("VirtualProtect(%x, %x, %x, %x, %x)\n",
1250 (DWORD)retv, (DWORD)base, size, new_prot, (DWORD)old_prot);
1251
1252 result = VirtualProtect(base, size, new_prot, old_prot);
1253
1254 if (result)
1255 *retv = TRUE,
1256 context->Eax = STATUS_SUCCESS;
1257 else
1258 *retv = FALSE,
1259 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1260 }
1261 break;
1262
1263
1264 case 0x0009: /* VirtualQuery */
1265 /*
1266 * Input: ECX: Current Process
1267 *
1268 * EDX: Flat address of arguments on stack
1269 *
1270 * DWORD *retv [out] Nr. bytes returned
1271 * LPVOID base [in] Flat address of region
1272 * LPMEMORY_BASIC_INFORMATION info [out] Info buffer
1273 * DWORD len [in] Size of buffer
1274 *
1275 * Output: EAX: NtStatus
1276 */
1277 {
1278 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1279 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1280 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1281 PMEMORY_BASIC_INFORMATION info =
1282 (PMEMORY_BASIC_INFORMATION)W32S_APP2WINE(stack[2]);
1283 DWORD len = stack[3];
1284 DWORD result;
1285
1286 TRACE("VirtualQuery(%x, %x, %x, %x)\n",
1287 (DWORD)retv, (DWORD)base, (DWORD)info, len);
1288
1289 result = VirtualQuery(base, info, len);
1290
1291 *retv = result;
1292 context->Eax = STATUS_SUCCESS;
1293 }
1294 break;
1295
1296
1297 case 0x000A: /* SetVirtMemProcess */
1298 /*
1299 * Input: ECX: Process Handle
1300 *
1301 * EDX: Flat address of region
1302 *
1303 * Output: EAX: NtStatus
1304 */
1305
1306 TRACE("[000a] ECX=%x EDX=%x\n",
1307 context->Ecx, context->Edx);
1308
1309 /* FIXME */
1310
1311 context->Eax = STATUS_SUCCESS;
1312 break;
1313
1314
1315 case 0x000B: /* ??? some kind of cleanup */
1316 /*
1317 * Input: ECX: Process Handle
1318 *
1319 * Output: EAX: NtStatus
1320 */
1321
1322 TRACE("[000b] ECX=%x\n", context->Ecx);
1323
1324 /* FIXME */
1325
1326 context->Eax = STATUS_SUCCESS;
1327 break;
1328
1329
1330 case 0x000C: /* Set Debug Flags */
1331 /*
1332 * Input: EDX: Debug Flags
1333 *
1334 * Output: EDX: Previous Debug Flags
1335 */
1336
1337 FIXME("[000c] EDX=%x\n", context->Edx);
1338
1339 /* FIXME */
1340
1341 context->Edx = 0;
1342 break;
1343
1344
1345 case 0x000D: /* NtCreateSection */
1346 /*
1347 * Input: EDX: Flat address of arguments on stack
1348 *
1349 * HANDLE32 *retv [out] Handle of Section created
1350 * DWORD flags1 [in] (?? unknown ??)
1351 * DWORD atom [in] Name of Section to create
1352 * LARGE_INTEGER *size [in] Size of Section
1353 * DWORD protect [in] Access protection
1354 * DWORD flags2 [in] (?? unknown ??)
1355 * HFILE32 hFile [in] Handle of file to map
1356 * DWORD psp [in] (Win32s: PSP that hFile belongs to)
1357 *
1358 * Output: EAX: NtStatus
1359 */
1360 {
1361 DWORD *stack = (DWORD *) W32S_APP2WINE(context->Edx);
1362 HANDLE *retv = (HANDLE *)W32S_APP2WINE(stack[0]);
1363 DWORD flags1 = stack[1];
1364 DWORD atom = stack[2];
1365 LARGE_INTEGER *size = (LARGE_INTEGER *)W32S_APP2WINE(stack[3]);
1366 DWORD protect = stack[4];
1367 DWORD flags2 = stack[5];
1368 HANDLE hFile = DosFileHandleToWin32Handle(stack[6]);
1369 DWORD psp = stack[7];
1370
1371 HANDLE result = INVALID_HANDLE_VALUE;
1372 char name[128];
1373
1374 TRACE("NtCreateSection(%x, %x, %x, %x, %x, %x, %x, %x)\n",
1375 (DWORD)retv, flags1, atom, (DWORD)size, protect, flags2,
1376 (DWORD)hFile, psp);
1377
1378 if (!atom || GlobalGetAtomNameA(atom, name, sizeof(name)))
1379 {
1380 TRACE("NtCreateSection: name=%s\n", atom? name : NULL);
1381
1382 result = CreateFileMappingA(hFile, NULL, protect,
1383 size? size->u.HighPart : 0,
1384 size? size->u.LowPart : 0,
1385 atom? name : NULL);
1386 }
1387
1388 if (result == INVALID_HANDLE_VALUE)
1389 WARN("NtCreateSection: failed!\n");
1390 else
1391 TRACE("NtCreateSection: returned %x\n", (DWORD)result);
1392
1393 if (result != INVALID_HANDLE_VALUE)
1394 *retv = result,
1395 context->Eax = STATUS_SUCCESS;
1396 else
1397 *retv = result,
1398 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1399 }
1400 break;
1401
1402
1403 case 0x000E: /* NtOpenSection */
1404 /*
1405 * Input: EDX: Flat address of arguments on stack
1406 *
1407 * HANDLE32 *retv [out] Handle of Section opened
1408 * DWORD protect [in] Access protection
1409 * DWORD atom [in] Name of Section to create
1410 *
1411 * Output: EAX: NtStatus
1412 */
1413 {
1414 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1415 HANDLE *retv = (HANDLE *)W32S_APP2WINE(stack[0]);
1416 DWORD protect = stack[1];
1417 DWORD atom = stack[2];
1418
1419 HANDLE result = INVALID_HANDLE_VALUE;
1420 char name[128];
1421
1422 TRACE("NtOpenSection(%x, %x, %x)\n",
1423 (DWORD)retv, protect, atom);
1424
1425 if (atom && GlobalGetAtomNameA(atom, name, sizeof(name)))
1426 {
1427 TRACE("NtOpenSection: name=%s\n", name);
1428
1429 result = OpenFileMappingA(protect, FALSE, name);
1430 }
1431
1432 if (result == INVALID_HANDLE_VALUE)
1433 WARN("NtOpenSection: failed!\n");
1434 else
1435 TRACE("NtOpenSection: returned %x\n", (DWORD)result);
1436
1437 if (result != INVALID_HANDLE_VALUE)
1438 *retv = result,
1439 context->Eax = STATUS_SUCCESS;
1440 else
1441 *retv = result,
1442 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1443 }
1444 break;
1445
1446
1447 case 0x000F: /* NtCloseSection */
1448 /*
1449 * Input: EDX: Flat address of arguments on stack
1450 *
1451 * HANDLE32 handle [in] Handle of Section to close
1452 * DWORD *id [out] Unique ID (?? unclear ??)
1453 *
1454 * Output: EAX: NtStatus
1455 */
1456 {
1457 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1458 HANDLE handle = (HANDLE)stack[0];
1459 DWORD *id = (DWORD *)W32S_APP2WINE(stack[1]);
1460
1461 TRACE("NtCloseSection(%x, %x)\n", (DWORD)handle, (DWORD)id);
1462
1463 CloseHandle(handle);
1464 if (id) *id = 0; /* FIXME */
1465
1466 context->Eax = STATUS_SUCCESS;
1467 }
1468 break;
1469
1470
1471 case 0x0010: /* NtDupSection */
1472 /*
1473 * Input: EDX: Flat address of arguments on stack
1474 *
1475 * HANDLE32 handle [in] Handle of Section to duplicate
1476 *
1477 * Output: EAX: NtStatus
1478 */
1479 {
1480 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1481 HANDLE handle = (HANDLE)stack[0];
1482 HANDLE new_handle;
1483
1484 TRACE("NtDupSection(%x)\n", (DWORD)handle);
1485
1486 DuplicateHandle( GetCurrentProcess(), handle,
1487 GetCurrentProcess(), &new_handle,
1488 0, FALSE, DUPLICATE_SAME_ACCESS );
1489 context->Eax = STATUS_SUCCESS;
1490 }
1491 break;
1492
1493
1494 case 0x0011: /* NtMapViewOfSection */
1495 /*
1496 * Input: EDX: Flat address of arguments on stack
1497 *
1498 * HANDLE32 SectionHandle [in] Section to be mapped
1499 * DWORD ProcessHandle [in] Process to be mapped into
1500 * DWORD * BaseAddress [in/out] Address to be mapped at
1501 * DWORD ZeroBits [in] (?? unclear ??)
1502 * DWORD CommitSize [in] (?? unclear ??)
1503 * LARGE_INTEGER *SectionOffset [in] Offset within section
1504 * DWORD * ViewSize [in] Size of view
1505 * DWORD InheritDisposition [in] (?? unclear ??)
1506 * DWORD AllocationType [in] (?? unclear ??)
1507 * DWORD Protect [in] Access protection
1508 *
1509 * Output: EAX: NtStatus
1510 */
1511 {
1512 DWORD * stack = (DWORD *)W32S_APP2WINE(context->Edx);
1513 HANDLE SectionHandle = (HANDLE)stack[0];
1514 DWORD ProcessHandle = stack[1]; /* ignored */
1515 DWORD * BaseAddress = (DWORD *)W32S_APP2WINE(stack[2]);
1516 DWORD ZeroBits = stack[3];
1517 DWORD CommitSize = stack[4];
1518 LARGE_INTEGER *SectionOffset = (LARGE_INTEGER *)W32S_APP2WINE(stack[5]);
1519 DWORD * ViewSize = (DWORD *)W32S_APP2WINE(stack[6]);
1520 DWORD InheritDisposition = stack[7];
1521 DWORD AllocationType = stack[8];
1522 DWORD Protect = stack[9];
1523
1524 LPBYTE address = (LPBYTE)(BaseAddress?
1525 W32S_APP2WINE(*BaseAddress) : 0);
1526 DWORD access = 0, result;
1527
1528 switch (Protect & ~(PAGE_GUARD|PAGE_NOCACHE))
1529 {
1530 case PAGE_READONLY: access = FILE_MAP_READ; break;
1531 case PAGE_READWRITE: access = FILE_MAP_WRITE; break;
1532 case PAGE_WRITECOPY: access = FILE_MAP_COPY; break;
1533
1534 case PAGE_EXECUTE_READ: access = FILE_MAP_READ; break;
1535 case PAGE_EXECUTE_READWRITE: access = FILE_MAP_WRITE; break;
1536 case PAGE_EXECUTE_WRITECOPY: access = FILE_MAP_COPY; break;
1537 }
1538
1539 TRACE("NtMapViewOfSection"
1540 "(%x, %x, %x, %x, %x, %x, %x, %x, %x, %x)\n",
1541 (DWORD)SectionHandle, ProcessHandle, (DWORD)BaseAddress,
1542 ZeroBits, CommitSize, (DWORD)SectionOffset, (DWORD)ViewSize,
1543 InheritDisposition, AllocationType, Protect);
1544 TRACE("NtMapViewOfSection: "
1545 "base=%x, offset=%x, size=%x, access=%x\n",
1546 (DWORD)address, SectionOffset? SectionOffset->u.LowPart : 0,
1547 ViewSize? *ViewSize : 0, access);
1548
1549 result = (DWORD)MapViewOfFileEx(SectionHandle, access,
1550 SectionOffset? SectionOffset->u.HighPart : 0,
1551 SectionOffset? SectionOffset->u.LowPart : 0,
1552 ViewSize? *ViewSize : 0, address);
1553
1554 TRACE("NtMapViewOfSection: result=%x\n", result);
1555
1556 if (W32S_WINE2APP(result))
1557 {
1558 if (BaseAddress) *BaseAddress = W32S_WINE2APP(result);
1559 context->Eax = STATUS_SUCCESS;
1560 }
1561 else
1562 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1563 }
1564 break;
1565
1566
1567 case 0x0012: /* NtUnmapViewOfSection */
1568 /*
1569 * Input: EDX: Flat address of arguments on stack
1570 *
1571 * DWORD ProcessHandle [in] Process (defining address space)
1572 * LPBYTE BaseAddress [in] Base address of view to be unmapped
1573 *
1574 * Output: EAX: NtStatus
1575 */
1576 {
1577 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1578 DWORD ProcessHandle = stack[0]; /* ignored */
1579 LPBYTE BaseAddress = (LPBYTE)W32S_APP2WINE(stack[1]);
1580
1581 TRACE("NtUnmapViewOfSection(%x, %x)\n",
1582 ProcessHandle, (DWORD)BaseAddress);
1583
1584 UnmapViewOfFile(BaseAddress);
1585
1586 context->Eax = STATUS_SUCCESS;
1587 }
1588 break;
1589
1590
1591 case 0x0013: /* NtFlushVirtualMemory */
1592 /*
1593 * Input: EDX: Flat address of arguments on stack
1594 *
1595 * DWORD ProcessHandle [in] Process (defining address space)
1596 * LPBYTE *BaseAddress [in?] Base address of range to be flushed
1597 * DWORD *ViewSize [in?] Number of bytes to be flushed
1598 * DWORD *unknown [???] (?? unknown ??)
1599 *
1600 * Output: EAX: NtStatus
1601 */
1602 {
1603 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1604 DWORD ProcessHandle = stack[0]; /* ignored */
1605 DWORD *BaseAddress = (DWORD *)W32S_APP2WINE(stack[1]);
1606 DWORD *ViewSize = (DWORD *)W32S_APP2WINE(stack[2]);
1607 DWORD *unknown = (DWORD *)W32S_APP2WINE(stack[3]);
1608
1609 LPBYTE address = (LPBYTE)(BaseAddress? W32S_APP2WINE(*BaseAddress) : 0);
1610 DWORD size = ViewSize? *ViewSize : 0;
1611
1612 TRACE("NtFlushVirtualMemory(%x, %x, %x, %x)\n",
1613 ProcessHandle, (DWORD)BaseAddress, (DWORD)ViewSize,
1614 (DWORD)unknown);
1615 TRACE("NtFlushVirtualMemory: base=%x, size=%x\n",
1616 (DWORD)address, size);
1617
1618 FlushViewOfFile(address, size);
1619
1620 context->Eax = STATUS_SUCCESS;
1621 }
1622 break;
1623
1624
1625 case 0x0014: /* Get/Set Debug Registers */
1626 /*
1627 * Input: ECX: 0 if Get, 1 if Set
1628 *
1629 * EDX: Get: Flat address of buffer to receive values of
1630 * debug registers DR0 .. DR7
1631 * Set: Flat address of buffer containing values of
1632 * debug registers DR0 .. DR7 to be set
1633 * Output: None
1634 */
1635
1636 FIXME("[0014] ECX=%x EDX=%x\n",
1637 context->Ecx, context->Edx);
1638
1639 /* FIXME */
1640 break;
1641
1642
1643 case 0x0015: /* Set Coprocessor Emulation Flag */
1644 /*
1645 * Input: EDX: 0 to deactivate, 1 to activate coprocessor emulation
1646 *
1647 * Output: None
1648 */
1649
1650 TRACE("[0015] EDX=%x\n", context->Edx);
1651
1652 /* We don't care, as we always have a coprocessor anyway */
1653 break;
1654
1655
1656 case 0x0016: /* Init Win32S VxD PSP */
1657 /*
1658 * If called to query required PSP size:
1659 *
1660 * Input: EBX: 0
1661 * Output: EDX: Required size of Win32s VxD PSP
1662 *
1663 * If called to initialize allocated PSP:
1664 *
1665 * Input: EBX: LoWord: Selector of Win32s VxD PSP
1666 * HiWord: Paragraph of Win32s VxD PSP (DOSMEM)
1667 * Output: None
1668 */
1669
1670 if (context->Ebx == 0)
1671 context->Edx = 0x80;
1672 else
1673 {
1674 PDB16 *psp = MapSL( MAKESEGPTR( BX_reg(context), 0 ));
1675 psp->nbFiles = 32;
1676 psp->fileHandlesPtr = MAKELONG(HIWORD(context->Ebx), 0x5c);
1677 memset((LPBYTE)psp + 0x5c, '\xFF', 32);
1678 }
1679 break;
1680
1681
1682 case 0x0017: /* Set Break Point */
1683 /*
1684 * Input: EBX: Offset of Break Point
1685 * CX: Selector of Break Point
1686 *
1687 * Output: None
1688 */
1689
1690 FIXME("[0017] EBX=%x CX=%x\n",
1691 context->Ebx, CX_reg(context));
1692
1693 /* FIXME */
1694 break;
1695
1696
1697 case 0x0018: /* VirtualLock */
1698 /*
1699 * Input: ECX: Current Process
1700 *
1701 * EDX: Flat address of arguments on stack
1702 *
1703 * DWORD *retv [out] TRUE if success, FALSE if failure
1704 * LPVOID base [in] Flat address of range to lock
1705 * DWORD size [in] Size of range
1706 *
1707 * Output: EAX: NtStatus
1708 */
1709 {
1710 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1711 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1712 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1713 DWORD size = stack[2];
1714 DWORD result;
1715
1716 TRACE("VirtualLock(%x, %x, %x)\n",
1717 (DWORD)retv, (DWORD)base, size);
1718
1719 result = VirtualLock(base, size);
1720
1721 if (result)
1722 *retv = TRUE,
1723 context->Eax = STATUS_SUCCESS;
1724 else
1725 *retv = FALSE,
1726 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1727 }
1728 break;
1729
1730
1731 case 0x0019: /* VirtualUnlock */
1732 /*
1733 * Input: ECX: Current Process
1734 *
1735 * EDX: Flat address of arguments on stack
1736 *
1737 * DWORD *retv [out] TRUE if success, FALSE if failure
1738 * LPVOID base [in] Flat address of range to unlock
1739 * DWORD size [in] Size of range
1740 *
1741 * Output: EAX: NtStatus
1742 */
1743 {
1744 DWORD *stack = (DWORD *)W32S_APP2WINE(context->Edx);
1745 DWORD *retv = (DWORD *)W32S_APP2WINE(stack[0]);
1746 LPVOID base = (LPVOID) W32S_APP2WINE(stack[1]);
1747 DWORD size = stack[2];
1748 DWORD result;
1749
1750 TRACE("VirtualUnlock(%x, %x, %x)\n",
1751 (DWORD)retv, (DWORD)base, size);
1752
1753 result = VirtualUnlock(base, size);
1754
1755 if (result)
1756 *retv = TRUE,
1757 context->Eax = STATUS_SUCCESS;
1758 else
1759 *retv = FALSE,
1760 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1761 }
1762 break;
1763
1764
1765 case 0x001A: /* KGetSystemInfo */
1766 /*
1767 * Input: None
1768 *
1769 * Output: ECX: Start of sparse memory arena
1770 * EDX: End of sparse memory arena
1771 */
1772
1773 TRACE("KGetSystemInfo()\n");
1774
1775 /*
1776 * Note: Win32s reserves 0GB - 2GB for Win 3.1 and uses 2GB - 4GB as
1777 * sparse memory arena. We do it the other way around, since
1778 * we have to reserve 3GB - 4GB for Linux, and thus use
1779 * 0GB - 3GB as sparse memory arena.
1780 *
1781 * FIXME: What about other OSes ?
1782 */
1783
1784 context->Ecx = W32S_WINE2APP(0x00000000);
1785 context->Edx = W32S_WINE2APP(0xbfffffff);
1786 break;
1787
1788
1789 case 0x001B: /* KGlobalMemStat */
1790 /*
1791 * Input: ESI: Flat address of buffer to receive memory info
1792 *
1793 * Output: None
1794 */
1795 {
1796 struct Win32sMemoryInfo
1797 {
1798 DWORD DIPhys_Count; /* Total physical pages */
1799 DWORD DIFree_Count; /* Free physical pages */
1800 DWORD DILin_Total_Count; /* Total virtual pages (private arena) */
1801 DWORD DILin_Total_Free; /* Free virtual pages (private arena) */
1802
1803 DWORD SparseTotal; /* Total size of sparse arena (bytes ?) */
1804 DWORD SparseFree; /* Free size of sparse arena (bytes ?) */
1805 };
1806
1807 struct Win32sMemoryInfo *info =
1808 (struct Win32sMemoryInfo *)W32S_APP2WINE(context->Esi);
1809
1810 FIXME("KGlobalMemStat(%x)\n", (DWORD)info);
1811
1812 /* FIXME */
1813 }
1814 break;
1815
1816
1817 case 0x001C: /* Enable/Disable Exceptions */
1818 /*
1819 * Input: ECX: 0 to disable, 1 to enable exception handling
1820 *
1821 * Output: None
1822 */
1823
1824 TRACE("[001c] ECX=%x\n", context->Ecx);
1825
1826 /* FIXME */
1827 break;
1828
1829
1830 case 0x001D: /* VirtualAlloc called from 16-bit code */
1831 /*
1832 * Input: EDX: Segmented address of arguments on stack
1833 *
1834 * LPVOID base [in] Flat address of region to reserve/commit
1835 * DWORD size [in] Size of region
1836 * DWORD type [in] Type of allocation
1837 * DWORD prot [in] Type of access protection
1838 *
1839 * Output: EAX: NtStatus
1840 * EDX: Flat base address of allocated region
1841 */
1842 {
1843 DWORD *stack = MapSL( MAKESEGPTR( LOWORD(context->Edx), HIWORD(context->Edx) ));
1844 LPVOID base = (LPVOID)W32S_APP2WINE(stack[0]);
1845 DWORD size = stack[1];
1846 DWORD type = stack[2];
1847 DWORD prot = stack[3];
1848 DWORD result;
1849
1850 TRACE("VirtualAlloc16(%x, %x, %x, %x)\n",
1851 (DWORD)base, size, type, prot);
1852
1853 if (type & 0x80000000)
1854 {
1855 WARN("VirtualAlloc16: strange type %x\n", type);
1856 type &= 0x7fffffff;
1857 }
1858
1859 result = (DWORD)VirtualAlloc(base, size, type, prot);
1860
1861 if (W32S_WINE2APP(result))
1862 context->Edx = W32S_WINE2APP(result),
1863 context->Eax = STATUS_SUCCESS;
1864 else
1865 context->Edx = 0,
1866 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1867 TRACE("VirtualAlloc16: returning base %x\n", context->Edx);
1868 }
1869 break;
1870
1871
1872 case 0x001E: /* VirtualFree called from 16-bit code */
1873 /*
1874 * Input: EDX: Segmented address of arguments on stack
1875 *
1876 * LPVOID base [in] Flat address of region
1877 * DWORD size [in] Size of region
1878 * DWORD type [in] Type of operation
1879 *
1880 * Output: EAX: NtStatus
1881 * EDX: TRUE if success, FALSE if failure
1882 */
1883 {
1884 DWORD *stack = MapSL( MAKESEGPTR( LOWORD(context->Edx), HIWORD(context->Edx) ));
1885 LPVOID base = (LPVOID)W32S_APP2WINE(stack[0]);
1886 DWORD size = stack[1];
1887 DWORD type = stack[2];
1888 DWORD result;
1889
1890 TRACE("VirtualFree16(%x, %x, %x)\n",
1891 (DWORD)base, size, type);
1892
1893 result = VirtualFree(base, size, type);
1894
1895 if (result)
1896 context->Edx = TRUE,
1897 context->Eax = STATUS_SUCCESS;
1898 else
1899 context->Edx = FALSE,
1900 context->Eax = STATUS_NO_MEMORY; /* FIXME */
1901 }
1902 break;
1903
1904
1905 case 0x001F: /* FWorkingSetSize */
1906 /*
1907 * Input: EDX: 0 if Get, 1 if Set
1908 *
1909 * ECX: Get: Buffer to receive Working Set Size
1910 * Set: Buffer containing Working Set Size
1911 *
1912 * Output: NtStatus
1913 */
1914 {
1915 DWORD *ptr = (DWORD *)W32S_APP2WINE(context->Ecx);
1916 BOOL set = context->Edx;
1917
1918 TRACE("FWorkingSetSize(%x, %x)\n", (DWORD)ptr, (DWORD)set);
1919
1920 if (set)
1921 /* We do it differently ... */;
1922 else
1923 *ptr = 0x100;
1924
1925 context->Eax = STATUS_SUCCESS;
1926 }
1927 break;
1928
1929 default:
1930 VXD_BARF( context, "W32S" );
1931 }
1932 }
Maarten's multimedia branch