/
SDL_systimer.c
267 lines (214 loc) · 5.22 KB
1
2
/*
SDL - Simple DirectMedia Layer
3
Copyright (C) 1997-2006 Sam Lantinga
4
5
This library is free software; you can redistribute it and/or
6
modify it under the terms of the GNU Lesser General Public
7
License as published by the Free Software Foundation; either
8
version 2.1 of the License, or (at your option) any later version.
9
10
11
12
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
13
Lesser General Public License for more details.
14
15
16
17
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
18
19
Sam Lantinga
20
slouken@libsdl.org
21
22
23
*/
#include <stdio.h>
24
#include <time.h>
25
26
27
28
#include <signal.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
29
30
31
32
33
34
35
#include <exec/types.h>
#ifdef __SASC
#include <proto/dos.h>
#include <clib/graphics_protos.h>
#include <pragmas/graphics.h>
#include <clib/exec_protos.h>
#include <pragmas/exec.h>
36
37
38
39
#elif defined(STORMC4_WOS)
#include <proto/dos.h>
#include <proto/exec.h>
#include <proto/graphics.h>
40
41
42
43
44
45
46
47
48
49
#else
#include <inline/dos.h>
#include <inline/exec.h>
#include <inline/graphics.h>
#endif
#include "mydebug.h"
extern struct DosLibrary *DOSBase;
extern struct ExecBase *SysBase;
static struct GfxBase *GfxBase;
50
51
52
53
54
#include "SDL_error.h"
#include "SDL_timer.h"
#include "SDL_timer_c.h"
55
56
57
58
#if defined(DISABLE_THREADS) || defined(FORK_HACK)
#define USE_ITIMER
#endif
59
/* The first ticks value of the application */
60
61
#if !defined(__PPC__) || defined(STORMC4_WOS) || defined(MORPHOS)
62
static clock_t start;
63
64
65
66
void SDL_StartTicks(void)
{
/* Set first ticks value */
67
start=clock();
68
69
70
71
}
Uint32 SDL_GetTicks (void)
{
72
73
74
75
76
77
clock_t ticks;
ticks=clock()-start;
#ifdef __SASC
// CLOCKS_PER_SEC == 1000 !
78
79
return(ticks);
80
81
82
83
84
#else
// CLOCKS_PER_SEC != 1000 !
return ticks*(1000/CLOCKS_PER_SEC);
#endif
85
86
87
88
}
void SDL_Delay (Uint32 ms)
{
89
90
91
92
93
94
95
96
// Do a busy wait if time is less than 50ms
if(ms<50)
{
clock_t to_wait=clock();
#ifndef __SASC
ms*=(CLOCKS_PER_SEC/1000);
97
#endif
98
99
100
101
102
103
104
105
106
to_wait+=ms;
while(clock()<to_wait);
}
else
{
Delay(ms/20);
}
}
107
108
#else
109
110
111
112
113
114
115
116
117
118
119
120
121
ULONG MY_CLOCKS_PER_SEC;
void PPC_TimerInit(void);
APTR MyTimer;
ULONG start[2];
void SDL_StartTicks(void)
{
/* Set first ticks value */
if(!MyTimer)
PPC_TimerInit();
122
123
124
125
126
127
128
129
130
131
132
133
134
135
PPCGetTimerObject(MyTimer,PPCTIMERTAG_CURRENTTICKS,start);
start[1]>>=10;
start[1]|=((result[0]&0x3ff)<<22);
start[0]>>=10;
}
Uint32 SDL_GetTicks (void)
{
ULONG result[2];
PPCGetTimerObject(MyTimer,PPCTIMERTAG_CURRENTTICKS,result);
// PPCAsr64p(result,10);
// Non va, la emulo:
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
result[1]>>=10;
result[1]|=((result[0]&0x3ff)<<22);
// Non mi interessa piu' result[0]
return result[1]*1000/MY_CLOCKS_PER_SEC;
}
void SDL_Delay (Uint32 ms)
{
// Do a busy wait if time is less than 50ms
if(ms<50)
{
ULONG to_wait[2],actual[2];
PPCGetTimerObject(MyTimer,PPCTIMERTAG_CURRENTTICKS,result);
actual[1]=0;
to_wait[1]+=ms*1000/MY_CLOCKS_PER_SEC;
while(actual[1]<to_wait[1])
{
PPCGetTimerObject(MyTimer,PPCTIMERTAG_CURRENTTICKS,actual);
159
}
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
}
else
{
Delay(ms/50);
}
}
void PPC_TimerInit(void)
{
struct TagItem tags[]=
{
PPCTIMERTAG_CPU,TRUE,
TAG_DONE,0
};
if(MyTimer=PPCCreateTimerObject(tags))
{
ULONG result[2];
PPCGetTimerObject(MyTimer,PPCTIMERTAG_TICKSPERSEC,result);
D(bug("Timer inizializzato, TPS: %lu - %lu\n",result[0],result[1]));
// PPCAsr64p(result,10);
result[1]>>=10;
result[1]|=((result[0]&0x3ff)<<22);
result[0]>>=10;
D(bug("Shiftato TPS: %lu - %lu\n",result[0],result[1]));
MY_CLOCKS_PER_SEC=result[1];
PPCGetTimerObject(MyTimer,PPCTIMERTAG_CURRENTTICKS,result);
D(bug("Current ticks: %lu - %lu\n",result[0],result[1]));
result[1]>>=10;
result[1]|=((result[0]&0x3ff)<<22);
result[0]>>=10;
// PPCAsr64p(result,10);
D(bug("Shiftato: %lu - %lu\n",result[0],result[1]));
}
else
{
D(bug("Errore nell'inizializzazione del timer!\n"));
202
}
203
204
}
205
206
#endif
207
208
209
210
#include "SDL_thread.h"
/* Data to handle a single periodic alarm */
static int timer_alive = 0;
211
static SDL_Thread *timer_thread = NULL;
212
213
214
static int RunTimer(void *unused)
{
215
216
217
218
219
D(bug("SYSTimer: Entering RunTimer loop..."));
if(GfxBase==NULL)
GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",37);
220
221
222
223
while ( timer_alive ) {
if ( SDL_timer_running ) {
SDL_ThreadedTimerCheck();
}
224
225
226
227
if(GfxBase)
WaitTOF(); // Check the timer every fifth of seconds. Was SDL_Delay(1)->BusyWait!
else
Delay(1);
228
}
229
D(bug("SYSTimer: EXITING RunTimer loop..."));
230
231
232
233
234
235
return(0);
}
/* This is only called if the event thread is not running */
int SDL_SYS_TimerInit(void)
{
236
D(bug("Creating thread for the timer (NOITIMER)...\n"));
237
238
timer_alive = 1;
239
240
timer_thread = SDL_CreateThread(RunTimer, NULL);
if ( timer_thread == NULL )
241
{
242
D(bug("Creazione del thread fallita...\n"));
243
244
245
246
247
248
249
250
251
return(-1);
}
return(SDL_SetTimerThreaded(1));
}
void SDL_SYS_TimerQuit(void)
{
timer_alive = 0;
252
253
254
if ( timer_thread ) {
SDL_WaitThread(timer_thread, NULL);
timer_thread = NULL;
255
256
257
258
259
}
}
int SDL_SYS_StartTimer(void)
{
260
SDL_SetError("Internal logic error: AmigaOS uses threaded timer");
261
262
263
264
265
266
267
return(-1);
}
void SDL_SYS_StopTimer(void)
{
return;
}