[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.24 by root, Tue Aug 14 14:56:22 2001 UTC vs.
Revision 1.25 by root, Wed Aug 15 03:24:07 2001 UTC

 #define PRIO_MIN    -4
 /* for Coro.pm */
 static GV *coro_current, *coro_idle;
 static AV *coro_ready[PRIO_MAX-PRIO_MIN+1];
+static int coro_nready;
 static void
 coro_enq (SV *sv)
 {
   if (SvROK (sv))
           prio = prio > PRIO_MAX ? PRIO_MAX
                : prio < PRIO_MIN ? PRIO_MIN
                : prio;
           av_push (coro_ready [prio - PRIO_MIN], sv);
+          coro_nready++;
           return;
         }
     }
   if (min_prio < 0)
     min_prio = 0;
   for (prio = PRIO_MAX - PRIO_MIN + 1; --prio >= min_prio; )
     if (av_len (coro_ready[prio]) >= 0)
+      {
+        coro_nready--;
-      return av_shift (coro_ready[prio]);
+        return av_shift (coro_ready[prio]);
+      }
   return 0;
 }
 static void
           coroapi.ver      = CORO_API_VERSION - 1;
           coroapi.transfer = api_transfer;
           coroapi.schedule = api_schedule;
           coroapi.ready    = api_ready;
+          coroapi.nready   = &coro_nready;
           GCoroAPI = &coroapi;
           sv_setiv(sv, (IV)&coroapi);
           SvREADONLY_on(sv);
         }
 ready(self)
 	SV *	self
 	CODE:
         api_ready (self);
+int
+nready(...)
+	PROTOTYPE:
+        CODE:
+        RETVAL = coro_nready;
+	OUTPUT:
+        RETVAL
 void
 schedule(...)
+	PROTOTYPE:
   	ALIAS:
            cede = 1
 	CODE:
         api_schedule (ix);

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