ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/include/cfperl.h
(Generate patch)

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.59 by root, Thu Mar 1 19:32:58 2007 UTC vs.
Revision 1.65 by root, Thu May 24 03:33:29 2007 UTC

… …
2// cfperl.h perl interface 2// cfperl.h perl interface
3// 3//
4#ifndef CFPERL_H__ 4#ifndef CFPERL_H__
5#define CFPERL_H__ 5#define CFPERL_H__
6 6
7#include <cstdarg>
7#include <cstdio> 8#include <cstdio>
9#include <bitset>
8 10
9using namespace std; 11using namespace std;
10 12
11#include <EXTERN.h> 13#include <EXTERN.h>
12#include <perl.h> 14#include <perl.h>
… …
62 64
63void cfperl_init (); 65void cfperl_init ();
64void cfperl_main (); 66void cfperl_main ();
65void cfperl_emergency_save (); 67void cfperl_emergency_save ();
66void cfperl_cleanup (int make_core); 68void cfperl_cleanup (int make_core);
69void cfperl_make_book (object *book, int level);
67 70
68////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 71//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
69 72
70// virtual server time, excluding time jumps and lag 73// virtual server time, excluding time jumps and lag
71extern double runtime; 74extern double runtime;
… …
87# define def(klass,name) EVENT_ ## klass ## _ ## name, 90# define def(klass,name) EVENT_ ## klass ## _ ## name,
88# include "eventinc.h" 91# include "eventinc.h"
89# undef def 92# undef def
90 NUM_EVENT_TYPES 93 NUM_EVENT_TYPES
91}; 94};
95
96// in which global events or per-type events are we interested
97extern bitset<NUM_EVENT_TYPES> ev_want_event;
98extern bitset<NUM_TYPES> ev_want_type;
92 99
93#define ARG_AV(o) DT_AV , static_cast<AV *> (o) 100#define ARG_AV(o) DT_AV , static_cast<AV *> (o)
94#define ARG_INT(v) DT_INT , static_cast<int> (v) 101#define ARG_INT(v) DT_INT , static_cast<int> (v)
95#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v) 102#define ARG_INT64(v) DT_INT64 , static_cast<sint64> (v)
96#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v) 103#define ARG_DOUBLE(v) DT_DOUBLE, static_cast<double> (v)
… …
183 190
184 virtual ~attachable (); 191 virtual ~attachable ();
185 192
186 attachable &operator =(const attachable &src); 193 attachable &operator =(const attachable &src);
187 194
195 bool vinvoke (event_type event, va_list &ap);
188 bool invoke (event_type event, ...); 196 bool invoke (event_type event, ...)
197 {
198 if (ev_want_event [event] || cb)
199 {
200 va_list ap;
201 va_start (ap, event);
202 vinvoke (event, ap);
203 va_end (ap);
204 }
205 }
206
189 MTH void instantiate (); 207 MTH void instantiate ();
190 void reattach (); 208 void reattach ();
191 209
192protected: 210protected:
193 // do the real refcount checking work 211 // do the real refcount checking work
… …
205 223
206extern struct global gbl_ev; 224extern struct global gbl_ev;
207 225
208////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 226//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
209 227
210struct object_freezer : dynbuf 228struct object_freezer : dynbuf_text
211{ 229{
212 AV *av; 230 AV *av;
213 231
214 object_freezer (); 232 object_freezer ();
215 ~object_freezer (); 233 ~object_freezer ();
… …
369 { 387 {
370 next (); 388 next ();
371 return kw; 389 return kw;
372 } 390 }
373 391
374
375 char *get_str () { return value; } // may be 0 392 char *get_str () { return value; } // may be 0
376 393
377 void get (shstr &sh) const; 394 void get (shstr &sh) const;
378 void get_ornull (shstr &sh) const { sh = value; } 395 void get_ornull (shstr &sh) const { sh = value; }
379 void get_ml (keyword kend, shstr &sh); 396 void get_ml (keyword kend, shstr &sh);
… …
407 static struct CoroAPI *GCoroAPI; 424 static struct CoroAPI *GCoroAPI;
408 425
409 static int nready () { return CORO_NREADY; } 426 static int nready () { return CORO_NREADY; }
410 static int cede () { return CORO_CEDE ; } 427 static int cede () { return CORO_CEDE ; }
411 428
429 static double (*time)();
430 static double next_cede;
412 static int cede_counter; 431 static int cede_counter;
413 432
433 static void do_cede_every ();
434 static void do_cede_to_tick ();
435 static void do_cede_to_tick_every ();
436
414 static void cede_every (int count) 437 static void cede_every (int count)
415 { 438 {
416 if (++cede_counter >= count) 439 if (++cede_counter >= count)
417 { 440 do_cede_every ();
418 cede_counter = 0;
419
420 if (coroapi::nready ())
421 coroapi::cede ();
422 }
423 } 441 }
442
443 static void cede_to_tick ()
444 {
445 if (time () >= next_cede)
446 do_cede_to_tick ();
447 }
448
449 static void cede_to_tick_every (int count)
450 {
451 if (++cede_counter >= count)
452 cede_to_tick ();
453 }
454
455 static void wait_for_tick ();
456 static void wait_for_tick_begin ();
424}; 457};
425 458
426struct watcher_base 459struct watcher_base
427{ 460{
428 static struct EventAPI *GEventAPI; 461 static struct EventAPI *GEventAPI;

Diff Legend

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