Moved the implementation of a couple of system.drv entry points to
[wine] / dlls / kernel / system.c
1 /*
2  * SYSTEM DLL routines
3  *
4  * Copyright 1996 Alexandre Julliard
5  *
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.
10  *
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.
15  *
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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #define NONAMELESSUNION
22 #define NONAMELESSSTRUCT
23 #include <stdarg.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "wingdi.h"
28 #include "wine/winbase16.h"
29 #include "wine/winuser16.h"
30 #include "wownt32.h"
31 #include "winternl.h"
32 #include "wine/debug.h"
33
34 WINE_DEFAULT_DEBUG_CHANNEL(system);
35
36 typedef struct
37 {
38     SYSTEMTIMERPROC callback;  /* NULL if not in use */
39     FARPROC16       callback16;
40     INT             rate;
41     INT             ticks;
42 } SYSTEM_TIMER;
43
44 #define NB_SYS_TIMERS   8
45 #define SYS_TIMER_RATE  54925
46
47 static SYSTEM_TIMER SYS_Timers[NB_SYS_TIMERS];
48 static int SYS_NbTimers = 0;
49 static HANDLE SYS_timer;
50 static HANDLE SYS_thread;
51 static int SYS_timers_disabled;
52
53 /***********************************************************************
54  *           SYSTEM_TimerTick
55  */
56 static void CALLBACK SYSTEM_TimerTick( LPVOID arg, DWORD low, DWORD high )
57 {
58     int i;
59
60     if (SYS_timers_disabled) return;
61     for (i = 0; i < NB_SYS_TIMERS; i++)
62     {
63         if (!SYS_Timers[i].callback) continue;
64         if ((SYS_Timers[i].ticks -= SYS_TIMER_RATE) <= 0)
65         {
66             SYS_Timers[i].ticks += SYS_Timers[i].rate;
67             SYS_Timers[i].callback( i+1 );
68         }
69     }
70 }
71
72
73 /***********************************************************************
74  *           SYSTEM_TimerThread
75  */
76 static DWORD CALLBACK SYSTEM_TimerThread( void *dummy )
77 {
78     LARGE_INTEGER when;
79
80     if (!(SYS_timer = CreateWaitableTimerA( NULL, FALSE, NULL ))) return 0;
81
82     when.u.LowPart = when.u.HighPart = 0;
83     SetWaitableTimer( SYS_timer, &when, (SYS_TIMER_RATE+500)/1000, SYSTEM_TimerTick, 0, FALSE );
84     for (;;) SleepEx( INFINITE, TRUE );
85 }
86
87
88 /**********************************************************************
89  *           SYSTEM_StartTicks
90  *
91  * Start the system tick timer.
92  */
93 static void SYSTEM_StartTicks(void)
94 {
95     if (!SYS_thread) SYS_thread = CreateThread( NULL, 0, SYSTEM_TimerThread, NULL, 0, NULL );
96 }
97
98
99 /**********************************************************************
100  *           SYSTEM_StopTicks
101  *
102  * Stop the system tick timer.
103  */
104 static void SYSTEM_StopTicks(void)
105 {
106     if (SYS_thread)
107     {
108         CancelWaitableTimer( SYS_timer );
109         TerminateThread( SYS_thread, 0 );
110         CloseHandle( SYS_thread );
111         CloseHandle( SYS_timer );
112         SYS_thread = 0;
113     }
114 }
115
116
117 /***********************************************************************
118  *           InquireSystem   (SYSTEM.1)
119  *
120  * Note: the function always takes 2 WORD arguments, contrary to what
121  *       "Undocumented Windows" says.
122   */
123 DWORD WINAPI InquireSystem16( WORD code, WORD arg )
124 {
125     WORD drivetype;
126
127     switch(code)
128     {
129     case 0:  /* Get timer resolution */
130         return SYS_TIMER_RATE;
131
132     case 1:  /* Get drive type */
133         drivetype = GetDriveType16( arg );
134         return MAKELONG( drivetype, drivetype );
135
136     case 2:  /* Enable one-drive logic */
137         FIXME("Case %d: set single-drive %d not supported\n", code, arg );
138         return 0;
139     }
140     WARN("Unknown code %d\n", code );
141     return 0;
142 }
143
144
145 /***********************************************************************
146  *           CreateSystemTimer   (SYSTEM.2)
147  */
148 WORD WINAPI CreateSystemTimer( WORD rate, SYSTEMTIMERPROC callback )
149 {
150     int i;
151     for (i = 0; i < NB_SYS_TIMERS; i++)
152         if (!SYS_Timers[i].callback)  /* Found one */
153         {
154             SYS_Timers[i].rate = (UINT)rate * 1000;
155             if (SYS_Timers[i].rate < SYS_TIMER_RATE)
156                 SYS_Timers[i].rate = SYS_TIMER_RATE;
157             SYS_Timers[i].ticks = SYS_Timers[i].rate;
158             SYS_Timers[i].callback = callback;
159             if (++SYS_NbTimers == 1) SYSTEM_StartTicks();
160             return i + 1;  /* 0 means error */
161         }
162     return 0;
163 }
164
165 /**********************************************************************/
166
167 static void call_timer_proc16( WORD timer )
168 {
169     CONTEXT86 context;
170     FARPROC16 proc = SYS_Timers[timer-1].callback16;
171
172     memset( &context, 0, sizeof(context) );
173
174     context.SegFs = wine_get_fs();
175     context.SegGs = wine_get_gs();
176     context.SegCs = SELECTOROF( proc );
177     context.Eip   = OFFSETOF( proc );
178     context.Ebp   = OFFSETOF(NtCurrentTeb()->WOW32Reserved) + (WORD)&((STACK16FRAME*)0)->bp;
179     context.Eax   = timer;
180
181     WOWCallback16Ex( 0, WCB16_REGS, 0, NULL, (DWORD *)&context );
182 }
183
184 /**********************************************************************/
185
186 WORD WINAPI WIN16_CreateSystemTimer( WORD rate, FARPROC16 proc )
187 {
188     WORD ret = CreateSystemTimer( rate, call_timer_proc16 );
189     if (ret) SYS_Timers[ret - 1].callback16 = proc;
190     return ret;
191 }
192
193
194 /***********************************************************************
195  *           KillSystemTimer   (SYSTEM.3)
196  *
197  * Note: do not confuse this function with USER.182
198  */
199 WORD WINAPI SYSTEM_KillSystemTimer( WORD timer )
200 {
201     if ( !timer || timer > NB_SYS_TIMERS || !SYS_Timers[timer-1].callback )
202         return timer;  /* Error */
203     SYS_Timers[timer-1].callback = NULL;
204     if (!--SYS_NbTimers) SYSTEM_StopTicks();
205     return 0;
206 }
207
208
209 /***********************************************************************
210  *           EnableSystemTimers   (SYSTEM.4)
211  */
212 void WINAPI EnableSystemTimers16(void)
213 {
214     SYS_timers_disabled = 0;
215 }
216
217
218 /***********************************************************************
219  *           DisableSystemTimers   (SYSTEM.5)
220  */
221 void WINAPI DisableSystemTimers16(void)
222 {
223     SYS_timers_disabled = 1;
224 }
225
226
227 /***********************************************************************
228  *           GetSystemMSecCount (SYSTEM.6)
229  */
230 DWORD WINAPI GetSystemMSecCount16(void)
231 {
232     return GetTickCount();
233 }
234
235
236 /***********************************************************************
237  *           Get80x87SaveSize   (SYSTEM.7)
238  */
239 WORD WINAPI Get80x87SaveSize16(void)
240 {
241     return 94;
242 }
243
244
245 /***********************************************************************
246  *           Save80x87State   (SYSTEM.8)
247  */
248 void WINAPI Save80x87State16( char *ptr )
249 {
250 #ifdef __i386__
251     __asm__(".byte 0x66; fsave %0; fwait" : "=m" (ptr) );
252 #endif
253 }
254
255
256 /***********************************************************************
257  *           Restore80x87State   (SYSTEM.9)
258  */
259 void WINAPI Restore80x87State16( const char *ptr )
260 {
261 #ifdef __i386__
262     __asm__(".byte 0x66; frstor %0" : : "m" (ptr) );
263 #endif
264 }
265
266
267 /***********************************************************************
268  *           A20_Proc  (SYSTEM.20)
269  */
270 void WINAPI A20_Proc16( WORD unused )
271 {
272     /* this is also a NOP in Windows */
273 }