[ViewVC] Diff of: cvs/deliantra/server/include/cfperl.h

Comparing deliantra/server/include/cfperl.h (file contents):
Revision 1.42 by root, Sat Dec 30 10:16:10 2006 UTC vs.
Revision 1.46 by root, Mon Jan 1 00:41:03 2007 UTC

 // same here, massive symbol spamming
 #undef do_open
 #undef do_close
 #undef ref
+#undef seed
 // perl bug #40256: perl does overwrite those with reentrant versions
 // but does not initialise their state structures.
 #undef random
 #undef crypt
 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 // some macros to simplify perl in-calls
-// FUNCTION is, afaik, a gnu extension
 #define CHECK_ERROR			\
   if (SvTRUE (ERRSV))			\
     LOG (llevError, "runtime error in %s: %s\n", __func__, SvPVutf8_nolen (ERRSV));
 #define CALL_BEGIN(args) dSP; ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, args)
       }
     *p = '\n';
   }
-  void put (keyword k, const char *v)
+  void put (keyword k, const char *v = 0)
   {
     put_string (k, v);
   }
   void put (keyword k, const shstr &v)
 struct coroapi {
   static struct CoroAPI *GCoroAPI;
   static int nready () { return CORO_NREADY; }
   static int cede   () { return CORO_CEDE  ; }
+  static int cede_counter;
+  static void cede_every (int count)
+  {
+    if (++cede_counter >= count)
+      {
+        cede_counter = 0;
+        if (coroapi::nready ())
+          coroapi::cede ();
+      }
+  }
 };
 struct watcher_base
 {
   static struct EventAPI *GEventAPI;

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