libpulp: add pulp_self() current fiber accessor

Analogous to pthread_self()

1 files changed, 7 insertions, 0 deletions

diff --git a/src/pulp.c b/src/pulp.c
index 179451e..4166dc5 100644
--- a/src/pulp.c
+++ b/src/pulp.c
@@ -401,6 +401,13 @@ pulp_fiber_t * pulp_fiber_new(pulp_t *pulp, unsigned delay_ms, thunk_t *thunk)
 }
 
 
+/* return the current fiber */
+pulp_fiber_t * pulp_self(pulp_t *pulp)
+{
+	return pulp->current;
+}
+
+
 /* sleep for the supplied number of microseconds (not public) */
 static void pulp_usleep(pulp_t *pulp, unsigned useconds)
 {