#include "Python.h"

#include "structmember.h"

_Py_IDENTIFIER(__asyncio_running_event_loop__);

_Py_IDENTIFIER(add_done_callback);

_Py_IDENTIFIER(_all_tasks_compat);

_Py_IDENTIFIER(call_soon);

_Py_IDENTIFIER(cancel);

_Py_IDENTIFIER(current_task);

_Py_IDENTIFIER(get_event_loop);

_Py_IDENTIFIER(send);

_Py_IDENTIFIER(throw);

static PyObject *asyncio_mod;

static PyObject *inspect_isgenerator;

static PyObject *traceback_extract_stack;

static PyObject *asyncio_get_event_loop_policy;

static PyObject *asyncio_future_repr_info_func;

static PyObject *asyncio_iscoroutine_func;

static PyObject *asyncio_task_get_stack_func;

static PyObject *asyncio_task_print_stack_func;

static PyObject *asyncio_task_repr_info_func;

static PyObject *asyncio_InvalidStateError;

static PyObject *asyncio_CancelledError;

static PyObject *context_kwname;

static PyObject *cached_running_holder;

static volatile uint64_t cached_running_holder_tsid;

static uint64_t task_name_counter = 0;

static PyObject *all_tasks;

static PyObject *current_tasks;

static PyObject *iscoroutine_typecache;

typedef enum {

STATE_PENDING,

STATE_CANCELLED,

STATE_FINISHED

} fut_state;

#define FutureObj_HEAD(prefix) \

PyObject_HEAD \

PyObject *prefix##_loop; \

PyObject *prefix##_callback0; \

PyContext *prefix##_context0; \

PyObject *prefix##_callbacks; \

PyObject *prefix##_exception; \

PyObject *prefix##_result; \

PyObject *prefix##_source_tb; \

fut_state prefix##_state; \

int prefix##_log_tb; \

int prefix##_blocking; \

PyObject *dict; \

PyObject *prefix##_weakreflist;

typedef struct {

FutureObj_HEAD(fut)

} FutureObj;

typedef struct {

FutureObj_HEAD(task)

PyObject *task_fut_waiter;

PyObject *task_coro;

PyObject *task_name;

PyContext *task_context;

int task_must_cancel;

int task_log_destroy_pending;

} TaskObj;

typedef struct {

PyObject_HEAD

TaskObj *sw_task;

PyObject *sw_arg;

} TaskStepMethWrapper;

typedef struct {

PyObject_HEAD

TaskObj *ww_task;

} TaskWakeupMethWrapper;

typedef struct {

PyObject_HEAD

PyObject *rl_loop;

#if defined(HAVE_GETPID) && !defined(MS_WINDOWS)

pid_t rl_pid;

} PyRunningLoopHolder;

static PyTypeObject FutureType;

static PyTypeObject TaskType;

static PyTypeObject PyRunningLoopHolder_Type;

#define Future_CheckExact(obj) (Py_TYPE_IS(obj, &FutureType))

#define Task_CheckExact(obj) (Py_TYPE_IS(obj, &TaskType))

#define Future_Check(obj) PyObject_TypeCheck(obj, &FutureType)

#define Task_Check(obj) PyObject_TypeCheck(obj, &TaskType)

#include "clinic/_asynciomodule.c.h"

static PyObject * future_new_iter(PyObject *);

static PyRunningLoopHolder * new_running_loop_holder(PyObject *);

static int

_is_coroutine(PyObject *coro)

{

/* 'coro' is not a native coroutine, call asyncio.iscoroutine()

PyObject *res = PyObject_CallFunctionObjArgs(

asyncio_iscoroutine_func, coro, NULL);

if (res == NULL) {

return -1;

}

int is_res_true = PyObject_IsTrue(res);

Py_DECREF(res);

if (is_res_true <= 0) {

return is_res_true;

}

if (PySet_GET_SIZE(iscoroutine_typecache) < 100) {

/* Just in case we don't want to cache more than 100

PyTypeObject *type = Py_GetType(coro);

if (PySet_Add(iscoroutine_typecache, (PyObject*)type)) {

Py_DECREF(type);

return -1;

}

Py_DECREF(type);

}

return 1;

}

static inline int

is_coroutine(PyObject *coro)

{

if (PyCoro_CheckExact(coro)) {

return 1;

}

/* Check if `type(coro)` is in the cache.

PyTypeObject *type = Py_GetType(coro);

int has_it = PySet_Contains(iscoroutine_typecache, (PyObject*) type);

Py_DECREF(type);

if (has_it == 0) {

/* type(coro) is not in iscoroutine_typecache */

return _is_coroutine(coro);

}

/* either an error has occurred or

return has_it;

}

static PyObject *

get_future_loop(PyObject *fut)

{

/* Implementation of `asyncio.futures._get_loop` */

_Py_IDENTIFIER(get_loop);

_Py_IDENTIFIER(_loop);

PyObject *getloop;

if (Future_CheckExact(fut) || Task_CheckExact(fut)) {

PyObject *loop = ((FutureObj *)fut)->fut_loop;

Py_INCREF(loop);

return loop;

}

if (_PyObject_LookupAttrId(fut, &PyId_get_loop, &getloop) < 0) {

return NULL;

}

if (getloop != NULL) {

PyObject *res = _PyObject_CallNoArg(getloop);

Py_DECREF(getloop);

return res;

}

return _PyObject_GetAttrId(fut, &PyId__loop);

}

static int

get_running_loop(PyObject **loop)

{

PyObject *rl;

PyThreadState *ts = PyThreadState_Get();

if (ts->id == cached_running_holder_tsid && cached_running_holder != NULL) {

// Fast path, check the cache.

rl = cached_running_holder; // borrowed

}

else {

if (ts->dict == NULL) {

goto not_found;

}

rl = _PyDict_GetItemIdWithError(

ts->dict, &PyId___asyncio_running_event_loop__); // borrowed

if (rl == NULL) {

if (PyErr_Occurred()) {

goto error;

}

else {

goto not_found;

}

}

cached_running_holder = rl; // borrowed

cached_running_holder_tsid = ts->id;

}

assert(Py_TYPE_IS(rl, &PyRunningLoopHolder_Type));

PyObject *running_loop = ((PyRunningLoopHolder *)rl)->rl_loop;

if (running_loop == Py_None) {

goto not_found;

}

#if defined(HAVE_GETPID) && !defined(MS_WINDOWS)

/* On Windows there is no getpid, but there is also no os.fork(),

if (getpid() != ((PyRunningLoopHolder *)rl)->rl_pid) {

goto not_found;

}

Py_INCREF(running_loop);

*loop = running_loop;

return 0;

not_found:

*loop = NULL;

return 0;

error:

*loop = NULL;

return -1;

}

static int

set_running_loop(PyObject *loop)

{

cached_running_holder = NULL;

cached_running_holder_tsid = 0;

PyObject *ts_dict = PyThreadState_GetDict(); // borrowed

if (ts_dict == NULL) {

PyErr_SetString(

PyExc_RuntimeError, "thread-local storage is not available");

return -1;

}

PyRunningLoopHolder *rl = new_running_loop_holder(loop);

if (rl == NULL) {

return -1;

}

if (_PyDict_SetItemId(

ts_dict, &PyId___asyncio_running_event_loop__, (PyObject *)rl) < 0)

{

Py_DECREF(rl); // will cleanup loop & current_pid

return -1;

}

Py_DECREF(rl);

return 0;

}

static PyObject *

get_event_loop(void)

{

PyObject *loop;

PyObject *policy;

if (get_running_loop(&loop)) {

return NULL;

}

if (loop != NULL) {

return loop;

}

policy = _PyObject_CallNoArg(asyncio_get_event_loop_policy);

if (policy == NULL) {

return NULL;

}

loop = _PyObject_CallMethodId(policy, &PyId_get_event_loop, NULL);

Py_DECREF(policy);

return loop;

}

static int

call_soon(PyObject *loop, PyObject *func, PyObject *arg, PyContext *ctx)

{

PyObject *handle;

PyObject *stack[3];

Py_ssize_t nargs;

if (ctx == NULL) {

handle = _PyObject_CallMethodIdObjArgs(

loop, &PyId_call_soon, func, arg, NULL);

}

else {

/* Use FASTCALL to pass a keyword-only argument to call_soon */

PyObject *callable = _PyObject_GetAttrId(loop, &PyId_call_soon);

if (callable == NULL) {

return -1;

}

/* All refs in 'stack' are borrowed. */

nargs = 1;

stack[0] = func;

if (arg != NULL) {

stack[1] = arg;

nargs++;

}

stack[nargs] = (PyObject *)ctx;

handle = _PyObject_FastCallKeywords(

callable, stack, nargs, context_kwname);

Py_DECREF(callable);

}

if (handle == NULL) {

return -1;

}

Py_DECREF(handle);

return 0;

}

static inline int

future_is_alive(FutureObj *fut)

{

return fut->fut_loop != NULL;

}

static inline int

future_ensure_alive(FutureObj *fut)

{

if (!future_is_alive(fut)) {

PyErr_SetString(PyExc_RuntimeError,

"Future object is not initialized.");

return -1;

}

return 0;

}

#define ENSURE_FUTURE_ALIVE(fut) \

do { \

assert(Future_Check(fut) || Task_Check(fut)); \

if (future_ensure_alive((FutureObj*)fut)) { \

return NULL; \

} \

} while(0);

static int

future_schedule_callbacks(FutureObj *fut)

{

Py_ssize_t len;

Py_ssize_t i;

if (fut->fut_callback0 != NULL) {

/* There's a 1st callback */

int ret = call_soon(

fut->fut_loop, fut->fut_callback0,

(PyObject *)fut, fut->fut_context0);

Py_CLEAR(fut->fut_callback0);

Py_CLEAR(fut->fut_context0);

if (ret) {

/* If an error occurs in pure-Python implementation,

Py_CLEAR(fut->fut_callbacks);

return ret;

}

/* we called the first callback, now try calling

}

if (fut->fut_callbacks == NULL) {

/* No more callbacks, return. */

return 0;

}

len = PyList_GET_SIZE(fut->fut_callbacks);

if (len == 0) {

/* The list of callbacks was empty; clear it and return. */

Py_CLEAR(fut->fut_callbacks);

return 0;

}

for (i = 0; i < len; i++) {

PyObject *cb_tup = PyList_GET_ITEM(fut->fut_callbacks, i);

PyObject *cb = PyTuple_GetItemRef(cb_tup, 0);

PyObject *ctx = PyTuple_GetItemRef(cb_tup, 1);

if (call_soon(fut->fut_loop, cb, (PyObject *)fut, (PyContext *)ctx)) {

Py_DECREF(cb);

Py_DECREF(ctx);

/* If an error occurs in pure-Python implementation,

Py_CLEAR(fut->fut_callbacks);

return -1;

}

Py_DECREF(cb);

Py_DECREF(ctx);

}

Py_CLEAR(fut->fut_callbacks);

return 0;

}

static int

future_init(FutureObj *fut, PyObject *loop)

{

PyObject *res;

int is_true;

_Py_IDENTIFIER(get_debug);

// Same to FutureObj_clear() but not clearing fut->dict

Py_CLEAR(fut->fut_loop);

Py_CLEAR(fut->fut_callback0);

Py_CLEAR(fut->fut_context0);

Py_CLEAR(fut->fut_callbacks);

Py_CLEAR(fut->fut_result);

Py_CLEAR(fut->fut_exception);

Py_CLEAR(fut->fut_source_tb);

fut->fut_state = STATE_PENDING;

fut->fut_log_tb = 0;

fut->fut_blocking = 0;

if (loop == Py_None) {

loop = get_event_loop();

if (loop == NULL) {

return -1;

}

}

else {

Py_INCREF(loop);

}

fut->fut_loop = loop;

res = _PyObject_CallMethodId(fut->fut_loop, &PyId_get_debug, NULL);

if (res == NULL) {

return -1;

}

is_true = PyObject_IsTrue(res);

Py_DECREF(res);

if (is_true < 0) {

return -1;

}

if (is_true && !_Py_IsFinalizing()) {

/* Only try to capture the traceback if the interpreter is not being

fut->fut_source_tb = _PyObject_CallNoArg(traceback_extract_stack);

if (fut->fut_source_tb == NULL) {

return -1;

}

}

return 0;

}

static PyObject *

future_set_result(FutureObj *fut, PyObject *res)

{

if (future_ensure_alive(fut)) {

return NULL;

}

if (fut->fut_state != STATE_PENDING) {

PyErr_SetString(asyncio_InvalidStateError, "invalid state");

return NULL;

}

assert(!fut->fut_result);

Py_INCREF(res);

fut->fut_result = res;

fut->fut_state = STATE_FINISHED;

if (future_schedule_callbacks(fut) == -1) {

return NULL;

}

Py_RETURN_NONE;

}

static PyObject *

future_set_exception(FutureObj *fut, PyObject *exc)

{

PyObject *exc_val = NULL;

if (fut->fut_state != STATE_PENDING) {

PyErr_SetString(asyncio_InvalidStateError, "invalid state");

return NULL;

}

if (PyExceptionClass_Check(exc)) {

exc_val = _PyObject_CallNoArg(exc);

if (exc_val == NULL) {

return NULL;

}

if (fut->fut_state != STATE_PENDING) {

Py_DECREF(exc_val);

PyErr_SetString(asyncio_InvalidStateError, "invalid state");

return NULL;

}

}

else {

exc_val = exc;

Py_INCREF(exc_val);

}

if (!PyExceptionInstance_Check(exc_val)) {

Py_DECREF(exc_val);

PyErr_SetString(PyExc_TypeError, "invalid exception object");

return NULL;

}

if (Py_TYPE_IS(exc_val, (PyTypeObject*)PyExc_StopIteration)) {

Py_DECREF(exc_val);

PyErr_SetString(PyExc_TypeError,

"StopIteration interacts badly with generators "

"and cannot be raised into a Future");

return NULL;

}

assert(!fut->fut_exception);

fut->fut_exception = exc_val;

fut->fut_state = STATE_FINISHED;

if (future_schedule_callbacks(fut) == -1) {

return NULL;

}

fut->fut_log_tb = 1;

Py_RETURN_NONE;

}

static int

future_get_result(FutureObj *fut, PyObject **result)

{

if (fut->fut_state == STATE_CANCELLED) {

PyErr_SetNone(asyncio_CancelledError);

return -1;

}

if (fut->fut_state != STATE_FINISHED) {

PyErr_SetString(asyncio_InvalidStateError, "Result is not set.");

return -1;

}

fut->fut_log_tb = 0;

if (fut->fut_exception != NULL) {

Py_INCREF(fut->fut_exception);

*result = fut->fut_exception;

return 1;

}

Py_INCREF(fut->fut_result);

*result = fut->fut_result;

return 0;

}

static PyObject *

future_add_done_callback(FutureObj *fut, PyObject *arg, PyContext *ctx)

{

if (!future_is_alive(fut)) {

PyErr_SetString(PyExc_RuntimeError, "uninitialized Future object");

return NULL;

}

if (fut->fut_state != STATE_PENDING) {

/* The future is done/cancelled, so schedule the callback

if (call_soon(fut->fut_loop, arg, (PyObject*) fut, ctx)) {

return NULL;

}

}

else {

/* The future is pending, add a callback.

if (fut->fut_callbacks == NULL && fut->fut_callback0 == NULL) {

Py_INCREF(arg);

fut->fut_callback0 = arg;

Py_INCREF(ctx);

fut->fut_context0 = ctx;

}

else {

PyObject *tup = PyTuple_New(2);

if (tup == NULL) {

return NULL;

}

PyTuple_SetItemRef(tup, 0, arg);

PyTuple_SetItemRef(tup, 1, (PyObject *)ctx);

if (fut->fut_callbacks != NULL) {

int err = PyList_Append(fut->fut_callbacks, tup);

if (err) {

Py_DECREF(tup);

return NULL;

}

Py_DECREF(tup);

}

else {

fut->fut_callbacks = PyList_New(1);

if (fut->fut_callbacks == NULL) {

return NULL;

}

PyList_SET_ITEM(fut->fut_callbacks, 0, tup); /* borrow */

}

}

}

Py_RETURN_NONE;

}

static PyObject *

future_cancel(FutureObj *fut)

{

fut->fut_log_tb = 0;

if (fut->fut_state != STATE_PENDING) {

Py_RETURN_FALSE;

}

fut->fut_state = STATE_CANCELLED;

if (future_schedule_callbacks(fut) == -1) {

return NULL;

}

Py_RETURN_TRUE;

}

static int

_asyncio_Future___init___impl(FutureObj *self, PyObject *loop)

{

return future_init(self, loop);

}

static int

FutureObj_clear(FutureObj *fut)

{

Py_CLEAR(fut->fut_loop);

Py_CLEAR(fut->fut_callback0);

Py_CLEAR(fut->fut_context0);

Py_CLEAR(fut->fut_callbacks);

Py_CLEAR(fut->fut_result);

Py_CLEAR(fut->fut_exception);

Py_CLEAR(fut->fut_source_tb);

Py_CLEAR(fut->dict);

return 0;

}

static int

FutureObj_traverse(FutureObj *fut, visitproc visit, void *arg)

{

Py_VISIT(fut->fut_loop);

Py_VISIT(fut->fut_callback0);

Py_VISIT(fut->fut_context0);

Py_VISIT(fut->fut_callbacks);

Py_VISIT(fut->fut_result);

Py_VISIT(fut->fut_exception);

Py_VISIT(fut->fut_source_tb);

Py_VISIT(fut->dict);

return 0;

}

static PyObject *

_asyncio_Future_result_impl(FutureObj *self)

{

PyObject *result;

if (!future_is_alive(self)) {

PyErr_SetString(asyncio_InvalidStateError,

"Future object is not initialized.");

return NULL;

}

int res = future_get_result(self, &result);

if (res == -1) {

return NULL;

}

if (res == 0) {

return result;

}

assert(res == 1);

PyErr_SetObject(PyExceptionInstance_Class(result), result);

Py_DECREF(result);

return NULL;

}

static PyObject *

_asyncio_Future_exception_impl(FutureObj *self)

{

if (!future_is_alive(self)) {

PyErr_SetString(asyncio_InvalidStateError,

"Future object is not initialized.");

return NULL;

}

if (self->fut_state == STATE_CANCELLED) {

PyErr_SetNone(asyncio_CancelledError);

return NULL;

}

if (self->fut_state != STATE_FINISHED) {

PyErr_SetString(asyncio_InvalidStateError, "Exception is not set.");

return NULL;

}

if (self->fut_exception != NULL) {

self->fut_log_tb = 0;

Py_INCREF(self->fut_exception);

return self->fut_exception;

}

Py_RETURN_NONE;

}

static PyObject *

_asyncio_Future_set_result(FutureObj *self, PyObject *result)

{

ENSURE_FUTURE_ALIVE(self)

return future_set_result(self, result);

}

static PyObject *

_asyncio_Future_set_exception(FutureObj *self, PyObject *exception)

{

ENSURE_FUTURE_ALIVE(self)

return future_set_exception(self, exception);

}

static PyObject *

_asyncio_Future_add_done_callback_impl(FutureObj *self, PyObject *fn,

PyObject *context)

{

if (context == NULL) {

context = (PyObject *)PyContext_CopyCurrent();

if (context == NULL) {

return NULL;

}

PyObject *res = future_add_done_callback(

self, fn, (PyContext *)context);

Py_DECREF(context);

return res;

}

return future_add_done_callback(self, fn, (PyContext *)context);

}

static PyObject *

_asyncio_Future_remove_done_callback(FutureObj *self, PyObject *fn)

{

PyObject *newlist;

Py_ssize_t len, i, j=0;

Py_ssize_t cleared_callback0 = 0;

ENSURE_FUTURE_ALIVE(self)

if (self->fut_callback0 != NULL) {

int cmp = PyObject_RichCompareBool(fn, self->fut_callback0, Py_EQ);

if (cmp == -1) {

return NULL;

}

if (cmp == 1) {

/* callback0 == fn */

Py_CLEAR(self->fut_callback0);

Py_CLEAR(self->fut_context0);

cleared_callback0 = 1;

}

}

if (self->fut_callbacks == NULL) {

return PyLong_FromSsize_t(cleared_callback0);

}

len = PyList_GET_SIZE(self->fut_callbacks);

if (len == 0) {

Py_CLEAR(self->fut_callbacks);

return PyLong_FromSsize_t(cleared_callback0);

}

if (len == 1) {

PyObject *cb_tup = PyList_GET_ITEM(self->fut_callbacks, 0);

PyObject *arg = PyTuple_GetItemRef(cb_tup, 0);

int cmp = PyObject_RichCompareBool(fn, arg, Py_EQ);

Py_DECREF(arg);

if (cmp == -1) {

return NULL;

}

if (cmp == 1) {

/* callbacks[0] == fn */

Py_CLEAR(self->fut_callbacks);

return PyLong_FromSsize_t(1 + cleared_callback0);

}

/* callbacks[0] != fn and len(callbacks) == 1 */

return PyLong_FromSsize_t(cleared_callback0);

}

newlist = PyList_New(len);

if (newlist == NULL) {

return NULL;

}

for (i = 0; i < PyList_GET_SIZE(self->fut_callbacks); i++) {

int ret;

PyObject *item = PyList_GET_ITEM(self->fut_callbacks, i);

Py_INCREF(item);

PyObject *arg = PyTuple_GetItemRef(item, 0);

ret = PyObject_RichCompareBool(fn, arg, Py_EQ);

Py_DECREF(arg);

if (ret == 0) {