--- deliantra/server/include/cfperl.h 2007/05/27 23:14:37 1.67 +++ deliantra/server/include/cfperl.h 2007/06/24 04:09:29 1.80 @@ -1,3 +1,27 @@ +/* + * This file is part of Crossfire TRT, the Multiplayer Online Role Playing Game. + * + * Copyright (©) 2005,2006,2007 Marc Alexander Lehmann / Robin Redeker / the Crossfire TRT team + * Copyright (©) 2002,2007 Mark Wedel & Crossfire Development Team + * Copyright (©) 1992,2007 Frank Tore Johansen + * + * Crossfire TRT is free software; you can redistribute it and/or modify it + * under the terms of the GNU General Public License as published by the Free + * Software Foundation; either version 2 of the License, or (at your option) + * any later version. + * + * This program 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 General Public License + * for more details. + * + * You should have received a copy of the GNU General Public License along + * with Crossfire TRT; if not, write to the Free Software Foundation, Inc. 51 + * Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + * + * The authors can be reached via e-mail to + */ + // // cfperl.h perl interface // @@ -67,11 +91,12 @@ void cfperl_emergency_save (); void cfperl_cleanup (int make_core); void cfperl_make_book (object *book, int level); +void cfperl_send_msg (client *ns, int color, const char *type, const char *msg); ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// -// virtual server time, excluding time jumps and lag -extern double runtime; +extern tstamp runtime; // virtual server time, excluding time jumps and lag +extern tstamp NOW; // real time of current server tick enum event_klass { @@ -152,7 +177,7 @@ MTH int refcnt_cnt () const; // check wether the object has died and destroy - MTH void refcnt_chk () { if (refcnt <= 0) do_check (); } + MTH void refcnt_chk () { if (expect_false (refcnt <= 0)) do_check (); } // destroy the object unless it was already destroyed // this politely asks everybody interested the reduce @@ -240,17 +265,8 @@ add ('\n'); } - //TODO//temporary, used only for saving body locations - void put (const char *k, int v) - { - add (k); - add (' '); - add (sint32 (v)); - add ('\n'); - } - template - void put_string (keyword k, const T &v) + void put_kw_string (keyword k, const T &v) { int klen = keyword_len [k]; int vlen = v ? strlen (v) + 1 : 0; @@ -270,50 +286,39 @@ void put (keyword k, const char *v = 0) { - put_string (k, v); + put_kw_string (k, v); } void put (keyword k, const shstr &v) { - put_string (k, v); + put_kw_string (k, v); } void put (keyword k, double v) { - char buf [128]; - - snprintf (buf, 128, "%.7g", v); - - put (k, (const char *)buf); + force (MAX_KEYWORD_LEN + 2 + 32); + fadd (keyword_str [k], keyword_len [k]); + fadd (' '); + falloc (sprintf (ptr, "%.7g", v)); + fadd ('\n'); } void put_(keyword k, sint64 v) { - add (keyword_str [k], keyword_len [k]); - add (' '); + force (MAX_KEYWORD_LEN + 2 + sint64_digits); + fadd (keyword_str [k], keyword_len [k]); + fadd (' '); add (v); - add ('\n'); + fadd ('\n'); } void put_(keyword k, sint32 v) { - add (keyword_str [k], keyword_len [k]); - add (' '); + force (MAX_KEYWORD_LEN + 2 + sint32_digits); + fadd (keyword_str [k], keyword_len [k]); + fadd (' '); add (v); - add ('\n'); - } - - void put (keyword kbeg, keyword kend, const shstr &v) - { - add (keyword_str [kbeg], keyword_len [kbeg]); add ('\n'); - - if (expect_true (v)) - { - add (v); - add ('\n'); - } - - add (keyword_str [kend], keyword_len [kend]); add ('\n'); + fadd ('\n'); } void put (keyword k, float v) { put (k, (double)v); } @@ -328,15 +333,25 @@ void put (keyword k, signed long long v) { put_(k, (sint64)v); } void put (keyword k, unsigned long long v) { put_(k, (sint64)v); } - template - void put (keyword k, const T *v) + void put (keyword kbeg, keyword kend, const shstr &v) { + force (MAX_KEYWORD_LEN + 1); + fadd (keyword_str [kbeg], keyword_len [kbeg]); fadd ('\n'); + if (expect_true (v)) - put (k, v->name); - else - put (k, (const char *)0); + { + add (v); + add ('\n'); + } + + force (MAX_KEYWORD_LEN + 1); + fadd (keyword_str [kend], keyword_len [kend]); fadd ('\n'); } + void put (keyword k, archetype *v); + void put (keyword k, treasurelist *v); + void put (keyword k, faceinfo *v); + template void put (keyword k, const refptr &v) { @@ -372,16 +387,9 @@ // parse next line void next (); // skip the current key-value (usually fetch next line, for - // multiline-fields, skips untilt he corresponding end-kw + // multiline-fields, skips till the corresponding end-kw void skip (); - //TODO: remove, deprecated - keyword get_kv () - { - next (); - return kw; - } - char *get_str () { return value; } // may be 0 void get_ml (keyword kend, shstr &sh); @@ -390,8 +398,8 @@ bool get_bool () const { return *value_nn == '1'; } sint32 get_sint32 () const; - sint64 get_sint64 () const { return atoll (value_nn); } - double get_double () const { return atof (value_nn); } + sint64 get_sint64 () const { return strtoll (value_nn, 0, 10); } + double get_double () const { return strtod (value_nn, 0); } void get (float &v) { v = get_double (); } void get (double &v) { v = get_double (); } @@ -420,8 +428,7 @@ static int nready () { return CORO_NREADY; } static int cede () { return CORO_CEDE ; } - static double (*time)(); - static double next_cede; + static tstamp next_cede; static int cede_counter; static void do_cede_every (); @@ -434,16 +441,21 @@ do_cede_every (); } - static void cede_to_tick () + static bool cede_to_tick () { - if (expect_false (time () >= next_cede)) - do_cede_to_tick (); + if (expect_true (now () < next_cede)) + return false; + + do_cede_to_tick (); + return true; } - static void cede_to_tick_every (int count) + static bool cede_to_tick_every (int count) { - if (expect_false (++cede_counter >= count)) - cede_to_tick (); + if (expect_true (++cede_counter < count)) + return false; + + return cede_to_tick (); } static void wait_for_tick ();