ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/time.C
(Generate patch)

Comparing deliantra/server/common/time.C (file contents):
Revision 1.1 by elmex, Sun Aug 13 17:16:01 2006 UTC vs.
Revision 1.6 by pippijn, Mon Dec 11 19:46:46 2006 UTC

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/* 1/*
7 CrossFire, A Multiplayer game for X-windows 2 CrossFire, A Multiplayer game for X-windows
8 3
9 Copyright (C) 2002 Mark Wedel & Crossfire Development Team 4 Copyright (C) 2002 Mark Wedel & Crossfire Development Team
10 Copyright (C) 1992 Frank Tore Johansen 5 Copyright (C) 1992 Frank Tore Johansen
… …
21 16
22 You should have received a copy of the GNU General Public License 17 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software 18 along with this program; if not, write to the Free Software
24 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 19 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
25 20
26 The authors can be reached via e-mail at crossfire-devel@real-time.com 21 The authors can be reached via e-mail at <crossfire@schmorp.de>
27*/ 22*/
28 23
29#include <global.h> 24#include <global.h>
30#include <funcpoint.h> 25#include <funcpoint.h>
31#include <tod.h> 26#include <tod.h>
32 27
33#ifndef WIN32 /* ---win32 exclude header */
34#include <stdio.h> 28#include <stdio.h>
35#include <sys/types.h> 29#include <sys/types.h>
36#include <sys/time.h> 30#include <sys/time.h>
37#endif /* win32 */
38 31
39/* 32/*
40 * Gloabal variables: 33 * Gloabal variables:
41 */ 34 */
42long max_time = MAX_TIME;
43struct timeval last_time;
44 35
45#define PBUFLEN 100
46long process_utime_save[PBUFLEN];
47long psaveind; 36long psaveind;
48long process_max_utime = 0;
49long process_min_utime = 999999999;
50long process_tot_mtime;
51long pticks; 37long pticks;
52long process_utime_long_count;
53 38
54const char *season_name[] = 39const char *season_name[] = {
55{
56 "The Season of New Year", 40 "The Season of New Year",
57 "The Season of Growth", 41 "The Season of Growth",
58 "The Season of Harvest", 42 "The Season of Harvest",
59 "The Season of Decay", 43 "The Season of Decay",
60 "The Season of the Blizzard", 44 "The Season of the Blizzard",
61 "\n" 45 "\n"
62}; 46};
63 47
64const char *weekdays[DAYS_PER_WEEK] = { 48const char *weekdays[DAYS_PER_WEEK] = {
65 "the Day of the Moon", 49 "the Day of the Moon",
66 "the Day of the Bull", 50 "the Day of the Bull",
67 "the Day of the Deception", 51 "the Day of the Deception",
68 "the Day of Thunder", 52 "the Day of Thunder",
69 "the Day of Freedom", 53 "the Day of Freedom",
70 "the Day of the Great Gods", 54 "the Day of the Great Gods",
71 "the Day of the Sun" 55 "the Day of the Sun"
72}; 56};
73 57
74const char *month_name[MONTHS_PER_YEAR] = { 58const char *month_name[MONTHS_PER_YEAR] = {
75 "Month of Winter", /* 0 */ 59 "Month of Winter", /* 0 */
76 "Month of the Ice Dragon", 60 "Month of the Ice Dragon",
77 "Month of the Frost Giant", 61 "Month of the Frost Giant",
78 "Month of Valriel", 62 "Month of Valriel",
79 "Month of Lythander", 63 "Month of Lythander",
80 "Month of the Harvest", 64 "Month of the Harvest",
81 "Month of Gaea", 65 "Month of Gaea",
82 "Month of Futility", 66 "Month of Futility",
83 "Month of the Dragon", 67 "Month of the Dragon",
84 "Month of the Sun", 68 "Month of the Sun",
85 "Month of the Great Infernus", 69 "Month of the Great Infernus",
86 "Month of Ruggilli", 70 "Month of Ruggilli",
87 "Month of the Dark Shades", 71 "Month of the Dark Shades",
88 "Month of the Devourers", 72 "Month of the Devourers",
89 "Month of Sorig", 73 "Month of Sorig",
90 "Month of the Ancient Darkness", 74 "Month of the Ancient Darkness",
91 "Month of Gorokh" 75 "Month of Gorokh"
92}; 76};
93
94/*
95 * Initialise all variables used in the timing routines.
96 */
97
98void
99reset_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
113void
114log_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
132int
133enough_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/*
152 * sleep_delta checks how much time has elapsed since last tick.
153 * If it is less than max_time, the remaining time is slept with select().
154 */
155
156void
157sleep_delta(void)
158{
159 static struct timeval new_time;
160 long sleep_sec, sleep_usec;
161
162 (void) GETTIMEOFDAY(&new_time);
163
164 sleep_sec = last_time.tv_sec - new_time.tv_sec;
165 sleep_usec = max_time - (new_time.tv_usec - last_time.tv_usec);
166
167 /* This is very ugly, but probably the fastest for our use: */
168 while (sleep_usec < 0) {
169 sleep_usec += 1000000;
170 sleep_sec -= 1;
171 }
172 while (sleep_usec > 1000000) {
173 sleep_usec -= 1000000;
174 sleep_sec +=1;
175 }
176
177 log_time((new_time.tv_sec - last_time.tv_sec)*1000000
178 + new_time.tv_usec - last_time.tv_usec);
179
180 if (sleep_sec >= 0 && sleep_usec > 0) {
181 static struct timeval sleep_time;
182 sleep_time.tv_sec = sleep_sec;
183 sleep_time.tv_usec = sleep_usec;
184
185#ifndef WIN32 /* 'select' doesn't work on Windows, 'Sleep' is used instead */
186 select(0, NULL, NULL, NULL, &sleep_time);
187#else
188 if (sleep_time.tv_sec) Sleep(sleep_time.tv_sec*1000);
189 Sleep((int)(sleep_time.tv_usec/1000.));
190#endif
191 }
192 else
193 process_utime_long_count++;
194 /*
195 * Set last_time to when we're expected to wake up:
196 */
197 last_time.tv_usec += max_time;
198 while (last_time.tv_usec > 1000000) {
199 last_time.tv_usec -= 1000000;
200 last_time.tv_sec++;
201 }
202 /*
203 * Don't do too much catching up:
204 * (Things can still get jerky on a slow/loaded computer)
205 */
206 if (last_time.tv_sec * 1000000 + last_time.tv_usec <
207 new_time.tv_sec * 1000000 + new_time.tv_usec)
208 {
209 last_time.tv_sec = new_time.tv_sec;
210 last_time.tv_usec = new_time.tv_usec;
211 }
212}
213
214void
215set_max_time(long t) {
216 max_time = t;
217}
218 77
219extern unsigned long todtick; 78extern unsigned long todtick;
220 79
221void 80void
222get_tod(timeofday_t *tod) 81get_tod (timeofday_t * tod)
223{ 82{
224 tod->year = todtick/HOURS_PER_YEAR; 83 tod->year = todtick / HOURS_PER_YEAR;
225 tod->month = (todtick/HOURS_PER_MONTH)%MONTHS_PER_YEAR; 84 tod->month = (todtick / HOURS_PER_MONTH) % MONTHS_PER_YEAR;
226 tod->day = (todtick%HOURS_PER_MONTH)/DAYS_PER_MONTH; 85 tod->day = (todtick % HOURS_PER_MONTH) / DAYS_PER_MONTH;
227 tod->dayofweek = tod->day%DAYS_PER_WEEK; 86 tod->dayofweek = tod->day % DAYS_PER_WEEK;
228 tod->hour = todtick%HOURS_PER_DAY; 87 tod->hour = todtick % HOURS_PER_DAY;
229 tod->minute = (pticks%PTICKS_PER_CLOCK)/(PTICKS_PER_CLOCK/58); 88 tod->minute = (pticks % PTICKS_PER_CLOCK) / (PTICKS_PER_CLOCK / 58);
230 if (tod->minute > 58) 89 if (tod->minute > 58)
231 tod->minute = 58; /* it's imprecise at best anyhow */ 90 tod->minute = 58; /* it's imprecise at best anyhow */
232 tod->weekofmonth = tod->day/WEEKS_PER_MONTH; 91 tod->weekofmonth = tod->day / WEEKS_PER_MONTH;
233 if (tod->month < 3) 92 if (tod->month < 3)
234 tod->season = 0; 93 tod->season = 0;
235 else if (tod->month < 6) 94 else if (tod->month < 6)
236 tod->season = 1; 95 tod->season = 1;
237 else if (tod->month < 9) 96 else if (tod->month < 9)
… …
241 else 100 else
242 tod->season = 4; 101 tod->season = 4;
243} 102}
244 103
245void 104void
246print_tod(object *op) 105print_tod (object *op)
247{ 106{
248 timeofday_t tod; 107 timeofday_t tod;
249 const char *suf; 108 const char *suf;
250 int day; 109 int day;
251 110
252 get_tod(&tod); 111 get_tod (&tod);
253 sprintf(errmsg, "It is %d minute%s past %d o'clock %s, on %s", 112 sprintf (errmsg, "It is %d minute%s past %d o'clock %s, on %s",
254 tod.minute+1, ((tod.minute+1 < 2) ? "" : "s"), 113 tod.minute + 1, ((tod.minute + 1 < 2) ? "" : "s"),
255 ((tod.hour % 14 == 0) ? 14 : ((tod.hour)%14)), 114 ((tod.hour % 14 == 0) ? 14 : ((tod.hour) % 14)), ((tod.hour >= 14) ? "pm" : "am"), weekdays[tod.dayofweek]);
256 ((tod.hour >= 14) ? "pm" : "am"),
257 weekdays[tod.dayofweek]);
258 new_draw_info(NDI_UNIQUE, 0,op,errmsg); 115 new_draw_info (NDI_UNIQUE, 0, op, errmsg);
259 116
260 day = tod.day + 1; 117 day = tod.day + 1;
261 if (day == 1 || ((day % 10) == 1 && day > 20)) 118 if (day == 1 || ((day % 10) == 1 && day > 20))
262 suf = "st"; 119 suf = "st";
263 else if (day == 2 || ((day % 10) == 2 && day > 20)) 120 else if (day == 2 || ((day % 10) == 2 && day > 20))
264 suf = "nd"; 121 suf = "nd";
265 else if (day == 3 || ((day % 10) == 3 && day > 20)) 122 else if (day == 3 || ((day % 10) == 3 && day > 20))
266 suf = "rd"; 123 suf = "rd";
267 else 124 else
268 suf = "th"; 125 suf = "th";
269 sprintf(errmsg, "The %d%s Day of the %s, Year %d", day, suf, 126 sprintf (errmsg, "The %d%s Day of the %s, Year %d", day, suf, month_name[tod.month], tod.year + 1);
270 month_name[tod.month], tod.year+1);
271 new_draw_info(NDI_UNIQUE, 0,op,errmsg); 127 new_draw_info (NDI_UNIQUE, 0, op, errmsg);
272 128
273 sprintf(errmsg, "Time of Year: %s", season_name[tod.season]); 129 sprintf (errmsg, "Time of Year: %s", season_name[tod.season]);
274 new_draw_info(NDI_UNIQUE, 0,op,errmsg);
275}
276
277void
278time_info(object *op)
279{
280 int tot = 0, maxt = 0, mint = 99999999, long_count = 0, i;
281
282 print_tod(op);
283 if (!QUERY_FLAG(op,FLAG_WIZ))
284 return;
285
286 new_draw_info (NDI_UNIQUE, 0,op,"Total time:");
287 sprintf(errmsg,"ticks=%ld time=%ld.%2ld",
288 pticks, process_tot_mtime/1000, process_tot_mtime%1000);
289 new_draw_info (NDI_UNIQUE, 0,op,errmsg); 130 new_draw_info (NDI_UNIQUE, 0, op, errmsg);
290 sprintf(errmsg,"avg time=%ldms max time=%ldms min time=%ldms",
291 process_tot_mtime/pticks, process_max_utime/1000,
292 process_min_utime/1000);
293 new_draw_info (NDI_UNIQUE, 0,op,errmsg);
294 sprintf(errmsg,"ticks longer than max time (%ldms) = %ld (%ld%%)",
295 max_time/1000,
296 process_utime_long_count, 100*process_utime_long_count/pticks);
297 new_draw_info (NDI_UNIQUE, 0,op,errmsg);
298
299 sprintf(errmsg,"Time last %ld ticks:", pticks > PBUFLEN ? PBUFLEN : pticks);
300 new_draw_info (NDI_UNIQUE, 0,op,errmsg);
301
302 for (i = 0; i < (pticks > PBUFLEN ? PBUFLEN : pticks); i++) {
303 tot += process_utime_save[i];
304 if (process_utime_save[i] > maxt) maxt = process_utime_save[i];
305 if (process_utime_save[i] < mint) mint = process_utime_save[i];
306 if (process_utime_save[i] > max_time) long_count++;
307 }
308
309 sprintf(errmsg,"avg time=%ldms max time=%dms min time=%dms",
310 tot/(pticks > PBUFLEN ? PBUFLEN : pticks)/1000, maxt/1000,
311 mint/1000);
312 new_draw_info (NDI_UNIQUE, 0,op,errmsg);
313 sprintf(errmsg,"ticks longer than max time (%ldms) = %d (%ld%%)",
314 max_time/1000, long_count,
315 100*long_count/(pticks > PBUFLEN ? PBUFLEN : pticks));
316 new_draw_info (NDI_UNIQUE, 0,op,errmsg);
317} 131}
318 132
319long 133long
320seconds(void) 134seconds (void)
321{ 135{
322 struct timeval now; 136 struct timeval now;
323 137
324 (void) GETTIMEOFDAY(&now); 138 (void) GETTIMEOFDAY (&now);
325 return now.tv_sec; 139 return now.tv_sec;
326} 140}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines