1 |
/* |
2 |
* static char *rcsid_time_c = |
3 |
* "$Id: time.C,v 1.1 2006-08-13 17:16:01 elmex Exp $"; |
4 |
*/ |
5 |
|
6 |
/* |
7 |
CrossFire, A Multiplayer game for X-windows |
8 |
|
9 |
Copyright (C) 2002 Mark Wedel & Crossfire Development Team |
10 |
Copyright (C) 1992 Frank Tore Johansen |
11 |
|
12 |
This program is free software; you can redistribute it and/or modify |
13 |
it under the terms of the GNU General Public License as published by |
14 |
the Free Software Foundation; either version 2 of the License, or |
15 |
(at your option) any later version. |
16 |
|
17 |
This program is distributed in the hope that it will be useful, |
18 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
19 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
20 |
GNU General Public License for more details. |
21 |
|
22 |
You should have received a copy of the GNU General Public License |
23 |
along with this program; if not, write to the Free Software |
24 |
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
25 |
|
26 |
The authors can be reached via e-mail at crossfire-devel@real-time.com |
27 |
*/ |
28 |
|
29 |
#include <global.h> |
30 |
#include <funcpoint.h> |
31 |
#include <tod.h> |
32 |
|
33 |
#ifndef WIN32 /* ---win32 exclude header */ |
34 |
#include <stdio.h> |
35 |
#include <sys/types.h> |
36 |
#include <sys/time.h> |
37 |
#endif /* win32 */ |
38 |
|
39 |
/* |
40 |
* Gloabal variables: |
41 |
*/ |
42 |
long max_time = MAX_TIME; |
43 |
struct timeval last_time; |
44 |
|
45 |
#define PBUFLEN 100 |
46 |
long process_utime_save[PBUFLEN]; |
47 |
long psaveind; |
48 |
long process_max_utime = 0; |
49 |
long process_min_utime = 999999999; |
50 |
long process_tot_mtime; |
51 |
long pticks; |
52 |
long process_utime_long_count; |
53 |
|
54 |
const char *season_name[] = |
55 |
{ |
56 |
"The Season of New Year", |
57 |
"The Season of Growth", |
58 |
"The Season of Harvest", |
59 |
"The Season of Decay", |
60 |
"The Season of the Blizzard", |
61 |
"\n" |
62 |
}; |
63 |
|
64 |
const char *weekdays[DAYS_PER_WEEK] = { |
65 |
"the Day of the Moon", |
66 |
"the Day of the Bull", |
67 |
"the Day of the Deception", |
68 |
"the Day of Thunder", |
69 |
"the Day of Freedom", |
70 |
"the Day of the Great Gods", |
71 |
"the Day of the Sun" |
72 |
}; |
73 |
|
74 |
const char *month_name[MONTHS_PER_YEAR] = { |
75 |
"Month of Winter", /* 0 */ |
76 |
"Month of the Ice Dragon", |
77 |
"Month of the Frost Giant", |
78 |
"Month of Valriel", |
79 |
"Month of Lythander", |
80 |
"Month of the Harvest", |
81 |
"Month of Gaea", |
82 |
"Month of Futility", |
83 |
"Month of the Dragon", |
84 |
"Month of the Sun", |
85 |
"Month of the Great Infernus", |
86 |
"Month of Ruggilli", |
87 |
"Month of the Dark Shades", |
88 |
"Month of the Devourers", |
89 |
"Month of Sorig", |
90 |
"Month of the Ancient Darkness", |
91 |
"Month of Gorokh" |
92 |
}; |
93 |
|
94 |
/* |
95 |
* Initialise all variables used in the timing routines. |
96 |
*/ |
97 |
|
98 |
void |
99 |
reset_sleep(void) |
100 |
{ |
101 |
int i; |
102 |
for(i = 0; i < PBUFLEN; i++) |
103 |
process_utime_save[i] = 0; |
104 |
psaveind = 0; |
105 |
process_max_utime = 0; |
106 |
process_min_utime = 999999999; |
107 |
process_tot_mtime = 0; |
108 |
pticks = 0; |
109 |
|
110 |
(void) GETTIMEOFDAY(&last_time); |
111 |
} |
112 |
|
113 |
void |
114 |
log_time(long process_utime) |
115 |
{ |
116 |
pticks++; |
117 |
if (++psaveind >= PBUFLEN) |
118 |
psaveind = 0; |
119 |
process_utime_save[psaveind] = process_utime; |
120 |
if (process_utime > process_max_utime) |
121 |
process_max_utime = process_utime; |
122 |
if (process_utime < process_min_utime) |
123 |
process_min_utime = process_utime; |
124 |
process_tot_mtime += process_utime/1000; |
125 |
} |
126 |
|
127 |
/* |
128 |
* enough_elapsed_time will return true if the time passed since |
129 |
* last tick is more than max-time. |
130 |
*/ |
131 |
|
132 |
int |
133 |
enough_elapsed_time(void) |
134 |
{ |
135 |
static struct timeval new_time; |
136 |
long elapsed_utime; |
137 |
|
138 |
(void) GETTIMEOFDAY(&new_time); |
139 |
|
140 |
elapsed_utime = (new_time.tv_sec - last_time.tv_sec) * 1000000 + |
141 |
new_time.tv_usec - last_time.tv_usec; |
142 |
if (elapsed_utime > max_time) { |
143 |
log_time(elapsed_utime); |
144 |
last_time.tv_sec = new_time.tv_sec; |
145 |
last_time.tv_usec = new_time.tv_usec; |
146 |
return 1; |
147 |
} |
148 |
return 0; |
149 |
} |
150 |
|
151 |
void |
152 |
set_max_time(long t) { |
153 |
max_time = t; |
154 |
} |
155 |
|
156 |
extern unsigned long todtick; |
157 |
|
158 |
void |
159 |
get_tod(timeofday_t *tod) |
160 |
{ |
161 |
tod->year = todtick/HOURS_PER_YEAR; |
162 |
tod->month = (todtick/HOURS_PER_MONTH)%MONTHS_PER_YEAR; |
163 |
tod->day = (todtick%HOURS_PER_MONTH)/DAYS_PER_MONTH; |
164 |
tod->dayofweek = tod->day%DAYS_PER_WEEK; |
165 |
tod->hour = todtick%HOURS_PER_DAY; |
166 |
tod->minute = (pticks%PTICKS_PER_CLOCK)/(PTICKS_PER_CLOCK/58); |
167 |
if (tod->minute > 58) |
168 |
tod->minute = 58; /* it's imprecise at best anyhow */ |
169 |
tod->weekofmonth = tod->day/WEEKS_PER_MONTH; |
170 |
if (tod->month < 3) |
171 |
tod->season = 0; |
172 |
else if (tod->month < 6) |
173 |
tod->season = 1; |
174 |
else if (tod->month < 9) |
175 |
tod->season = 2; |
176 |
else if (tod->month < 12) |
177 |
tod->season = 3; |
178 |
else |
179 |
tod->season = 4; |
180 |
} |
181 |
|
182 |
void |
183 |
print_tod(object *op) |
184 |
{ |
185 |
timeofday_t tod; |
186 |
const char *suf; |
187 |
int day; |
188 |
|
189 |
get_tod(&tod); |
190 |
sprintf(errmsg, "It is %d minute%s past %d o'clock %s, on %s", |
191 |
tod.minute+1, ((tod.minute+1 < 2) ? "" : "s"), |
192 |
((tod.hour % 14 == 0) ? 14 : ((tod.hour)%14)), |
193 |
((tod.hour >= 14) ? "pm" : "am"), |
194 |
weekdays[tod.dayofweek]); |
195 |
new_draw_info(NDI_UNIQUE, 0,op,errmsg); |
196 |
|
197 |
day = tod.day + 1; |
198 |
if (day == 1 || ((day % 10) == 1 && day > 20)) |
199 |
suf = "st"; |
200 |
else if (day == 2 || ((day % 10) == 2 && day > 20)) |
201 |
suf = "nd"; |
202 |
else if (day == 3 || ((day % 10) == 3 && day > 20)) |
203 |
suf = "rd"; |
204 |
else |
205 |
suf = "th"; |
206 |
sprintf(errmsg, "The %d%s Day of the %s, Year %d", day, suf, |
207 |
month_name[tod.month], tod.year+1); |
208 |
new_draw_info(NDI_UNIQUE, 0,op,errmsg); |
209 |
|
210 |
sprintf(errmsg, "Time of Year: %s", season_name[tod.season]); |
211 |
new_draw_info(NDI_UNIQUE, 0,op,errmsg); |
212 |
} |
213 |
|
214 |
void |
215 |
time_info(object *op) |
216 |
{ |
217 |
int tot = 0, maxt = 0, mint = 99999999, long_count = 0, i; |
218 |
|
219 |
print_tod(op); |
220 |
if (!QUERY_FLAG(op,FLAG_WIZ)) |
221 |
return; |
222 |
|
223 |
new_draw_info (NDI_UNIQUE, 0,op,"Total time:"); |
224 |
sprintf(errmsg,"ticks=%ld time=%ld.%2ld", |
225 |
pticks, process_tot_mtime/1000, process_tot_mtime%1000); |
226 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
227 |
sprintf(errmsg,"avg time=%ldms max time=%ldms min time=%ldms", |
228 |
process_tot_mtime/pticks, process_max_utime/1000, |
229 |
process_min_utime/1000); |
230 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
231 |
sprintf(errmsg,"ticks longer than max time (%ldms) = %ld (%ld%%)", |
232 |
max_time/1000, |
233 |
process_utime_long_count, 100*process_utime_long_count/pticks); |
234 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
235 |
|
236 |
sprintf(errmsg,"Time last %ld ticks:", pticks > PBUFLEN ? PBUFLEN : pticks); |
237 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
238 |
|
239 |
for (i = 0; i < (pticks > PBUFLEN ? PBUFLEN : pticks); i++) { |
240 |
tot += process_utime_save[i]; |
241 |
if (process_utime_save[i] > maxt) maxt = process_utime_save[i]; |
242 |
if (process_utime_save[i] < mint) mint = process_utime_save[i]; |
243 |
if (process_utime_save[i] > max_time) long_count++; |
244 |
} |
245 |
|
246 |
sprintf(errmsg,"avg time=%ldms max time=%dms min time=%dms", |
247 |
tot/(pticks > PBUFLEN ? PBUFLEN : pticks)/1000, maxt/1000, |
248 |
mint/1000); |
249 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
250 |
sprintf(errmsg,"ticks longer than max time (%ldms) = %d (%ld%%)", |
251 |
max_time/1000, long_count, |
252 |
100*long_count/(pticks > PBUFLEN ? PBUFLEN : pticks)); |
253 |
new_draw_info (NDI_UNIQUE, 0,op,errmsg); |
254 |
} |
255 |
|
256 |
long |
257 |
seconds(void) |
258 |
{ |
259 |
struct timeval now; |
260 |
|
261 |
(void) GETTIMEOFDAY(&now); |
262 |
return now.tv_sec; |
263 |
} |