#include "Python.h"

#include "internal/pystate.h"

#include "frameobject.h"

#include "clinic/_warnings.c.h"

#define MODULE_NAME "_warnings"

PyDoc_STRVAR(warnings__doc__,

MODULE_NAME " provides basic warning filtering support.\n"

"It is a helper module to speed up interpreter start-up.");

_Py_IDENTIFIER(argv);

_Py_IDENTIFIER(stderr);

#ifndef Py_DEBUG

_Py_IDENTIFIER(default);

_Py_IDENTIFIER(ignore);

#endif

static int

check_matched(PyObject *obj, PyObject *arg)

{

PyObject *result;

_Py_IDENTIFIER(match);

int rc;

/* A 'None' filter always matches */

if (obj == Py_None)

return 1;

/* An internal plain text default filter must match exactly */

if (PyUnicode_CheckExact(obj)) {

int cmp_result = PyUnicode_Compare(obj, arg);

if (cmp_result == -1 && PyErr_Occurred()) {

return -1;

}

return !cmp_result;

}

/* Otherwise assume a regex filter and call its match() method */

result = _PyObject_CallMethodIdObjArgs(obj, &PyId_match, arg, NULL);

if (result == NULL)

return -1;

rc = PyObject_IsTrue(result);

Py_DECREF(result);

return rc;

}

/*

Returns a new reference.

A NULL return value can mean false or an error.

*/

static PyObject *

get_warnings_attr(_Py_Identifier *attr_id, int try_import)

{

PyObject *warnings_str;

PyObject *warnings_module, *obj;

_Py_IDENTIFIER(warnings);

warnings_str = _PyUnicode_FromId(&PyId_warnings);

if (warnings_str == NULL) {

return NULL;

}

/* don't try to import after the start of the Python finallization */

if (try_import && !_Py_IsFinalizing()) {

warnings_module = PyImport_Import(warnings_str);

if (warnings_module == NULL) {

/* Fallback to the C implementation if we cannot get

the Python implementation */

if (PyErr_ExceptionMatches(PyExc_ImportError)) {

PyErr_Clear();

}

return NULL;

}

}

else {

/* if we're so late into Python finalization that the module dict is

gone, then we can't even use PyImport_GetModule without triggering

an interpreter abort.

*/

if (!PyThreadState_GET()->interp->modules) {

return NULL;

}

warnings_module = PyImport_GetModule(warnings_str);

if (warnings_module == NULL)

return NULL;

}

(void)_PyObject_LookupAttrId(warnings_module, attr_id, &obj);

Py_DECREF(warnings_module);

return obj;

}

static PyObject *

get_once_registry(void)

{

PyObject *registry;

_Py_IDENTIFIER(onceregistry);

registry = get_warnings_attr(&PyId_onceregistry, 0);

if (registry == NULL) {

if (PyErr_Occurred())

return NULL;

assert(_PyRuntime.warnings.once_registry);

return _PyRuntime.warnings.once_registry;

}

if (!PyDict_Check(registry)) {

PyErr_Format(PyExc_TypeError,

MODULE_NAME ".onceregistry must be a dict, "

"not '%.200s'",

Py_TYPE(registry)->tp_name);

Py_DECREF(registry);

return NULL;

}

Py_SETREF(_PyRuntime.warnings.once_registry, registry);

return registry;

}

static PyObject *

get_default_action(void)

{

PyObject *default_action;

_Py_IDENTIFIER(defaultaction);

default_action = get_warnings_attr(&PyId_defaultaction, 0);

if (default_action == NULL) {

if (PyErr_Occurred()) {

return NULL;

}

assert(_PyRuntime.warnings.default_action);

return _PyRuntime.warnings.default_action;

}

if (!PyUnicode_Check(default_action)) {

PyErr_Format(PyExc_TypeError,

MODULE_NAME ".defaultaction must be a string, "

"not '%.200s'",

Py_TYPE(default_action)->tp_name);

Py_DECREF(default_action);

return NULL;

}

Py_SETREF(_PyRuntime.warnings.default_action, default_action);

return default_action;

}

/* The item is a new reference. */

static PyObject*

get_filter(PyObject *category, PyObject *text, Py_ssize_t lineno,

PyObject *module, PyObject **item)

{

PyObject *action;

Py_ssize_t i;

PyObject *warnings_filters;

_Py_IDENTIFIER(filters);

warnings_filters = get_warnings_attr(&PyId_filters, 0);

if (warnings_filters == NULL) {

if (PyErr_Occurred())

return NULL;

}

else {

Py_SETREF(_PyRuntime.warnings.filters, warnings_filters);

}

PyObject *filters = _PyRuntime.warnings.filters;

if (filters == NULL || !PyList_Check(filters)) {

PyErr_SetString(PyExc_ValueError,

MODULE_NAME ".filters must be a list");

return NULL;

}

/* _PyRuntime.warnings.filters could change while we are iterating over it. */

for (i = 0; i < PyList_GET_SIZE(filters); i++) {

PyObject *tmp_item, *action, *msg, *cat, *mod, *ln_obj;

Py_ssize_t ln;

int is_subclass, good_msg, good_mod;

tmp_item = PyList_GET_ITEM(filters, i);

if (!PyTuple_Check(tmp_item) || PyTuple_GET_SIZE(tmp_item) != 5) {

PyErr_Format(PyExc_ValueError,

MODULE_NAME ".filters item %zd isn't a 5-tuple", i);

return NULL;

}

/* Python code: action, msg, cat, mod, ln = item */

Py_INCREF(tmp_item);

action = PyTuple_GET_ITEM(tmp_item, 0);

msg = PyTuple_GET_ITEM(tmp_item, 1);

cat = PyTuple_GET_ITEM(tmp_item, 2);

mod = PyTuple_GET_ITEM(tmp_item, 3);

ln_obj = PyTuple_GET_ITEM(tmp_item, 4);

if (!PyUnicode_Check(action)) {

PyErr_Format(PyExc_TypeError,

"action must be a string, not '%.200s'",

Py_TYPE(action)->tp_name);

Py_DECREF(tmp_item);

return NULL;

}

good_msg = check_matched(msg, text);

if (good_msg == -1) {

Py_DECREF(tmp_item);

return NULL;

}

good_mod = check_matched(mod, module);

if (good_mod == -1) {

Py_DECREF(tmp_item);

return NULL;

}

is_subclass = PyObject_IsSubclass(category, cat);

if (is_subclass == -1) {

Py_DECREF(tmp_item);

return NULL;

}

ln = PyLong_AsSsize_t(ln_obj);

if (ln == -1 && PyErr_Occurred()) {

Py_DECREF(tmp_item);

return NULL;

}

if (good_msg && is_subclass && good_mod && (ln == 0 || lineno == ln)) {

*item = tmp_item;

return action;

}

Py_DECREF(tmp_item);

}

action = get_default_action();

if (action != NULL) {

Py_INCREF(Py_None);

*item = Py_None;

return action;

}

return NULL;

}

static int

already_warned(PyObject *registry, PyObject *key, int should_set)

{

PyObject *version_obj, *already_warned;

_Py_IDENTIFIER(version);

if (key == NULL)

return -1;

version_obj = _PyDict_GetItemId(registry, &PyId_version);

if (version_obj == NULL

|| !PyLong_CheckExact(version_obj)

|| PyLong_AsLong(version_obj) != _PyRuntime.warnings.filters_version) {

PyDict_Clear(registry);

version_obj = PyLong_FromLong(_PyRuntime.warnings.filters_version);

if (version_obj == NULL)

return -1;

if (_PyDict_SetItemId(registry, &PyId_version, version_obj) < 0) {

Py_DECREF(version_obj);

return -1;

}

Py_DECREF(version_obj);

}

else {

already_warned = PyDict_GetItem(registry, key);

if (already_warned != NULL) {

int rc = PyObject_IsTrue(already_warned);

if (rc != 0)

return rc;

}

}

/* This warning wasn't found in the registry, set it. */

if (should_set)

return PyDict_SetItem(registry, key, Py_True);

return 0;

}

/* New reference. */

static PyObject *

normalize_module(PyObject *filename)

{

PyObject *module;

int kind;

void *data;

Py_ssize_t len;

len = PyUnicode_GetLength(filename);

if (len < 0)

return NULL;

if (len == 0)

return PyUnicode_FromString("<unknown>");

kind = PyUnicode_KIND(filename);

data = PyUnicode_DATA(filename);

/* if filename.endswith(".py"): */

if (len >= 3 &&

PyUnicode_READ(kind, data, len-3) == '.' &&

PyUnicode_READ(kind, data, len-2) == 'p' &&

PyUnicode_READ(kind, data, len-1) == 'y')

{

module = PyUnicode_Substring(filename, 0, len-3);

}

else {

module = filename;

Py_INCREF(module);

}

return module;

}

static int

update_registry(PyObject *registry, PyObject *text, PyObject *category,

int add_zero)

{

PyObject *altkey;

int rc;

if (add_zero)

altkey = PyTuple_Pack(3, text, category, _PyLong_Zero);

else

altkey = PyTuple_Pack(2, text, category);

rc = already_warned(registry, altkey, 1);

Py_XDECREF(altkey);

return rc;

}

static void

show_warning(PyObject *filename, int lineno, PyObject *text,

PyObject *category, PyObject *sourceline)

{

PyObject *f_stderr;

PyObject *name;

char lineno_str[128];

_Py_IDENTIFIER(__name__);

PyOS_snprintf(lineno_str, sizeof(lineno_str), ":%d: ", lineno);

name = _PyObject_GetAttrId(category, &PyId___name__);

if (name == NULL) /* XXX Can an object lack a '__name__' attribute? */

goto error;

f_stderr = _PySys_GetObjectId(&PyId_stderr);

if (f_stderr == NULL) {

fprintf(stderr, "lost sys.stderr\n");

goto error;

}

/* Print "filename:lineno: category: text\n" */

if (PyFile_WriteObject(filename, f_stderr, Py_PRINT_RAW) < 0)

goto error;

if (PyFile_WriteString(lineno_str, f_stderr) < 0)

goto error;

if (PyFile_WriteObject(name, f_stderr, Py_PRINT_RAW) < 0)

goto error;

if (PyFile_WriteString(": ", f_stderr) < 0)

goto error;

if (PyFile_WriteObject(text, f_stderr, Py_PRINT_RAW) < 0)

goto error;

if (PyFile_WriteString("\n", f_stderr) < 0)

goto error;

Py_CLEAR(name);

/* Print " source_line\n" */

if (sourceline) {

int kind;

void *data;

Py_ssize_t i, len;

Py_UCS4 ch;

PyObject *truncated;

if (PyUnicode_READY(sourceline) < 1)

goto error;

kind = PyUnicode_KIND(sourceline);

data = PyUnicode_DATA(sourceline);

len = PyUnicode_GET_LENGTH(sourceline);

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

ch = PyUnicode_READ(kind, data, i);

if (ch != ' ' && ch != '\t' && ch != '\014')

break;

}

truncated = PyUnicode_Substring(sourceline, i, len);

if (truncated == NULL)

goto error;

PyFile_WriteObject(sourceline, f_stderr, Py_PRINT_RAW);

Py_DECREF(truncated);

PyFile_WriteString("\n", f_stderr);

}

else {

_Py_DisplaySourceLine(f_stderr, filename, lineno, 2);

}

error:

Py_XDECREF(name);

PyErr_Clear();

}

static int

call_show_warning(PyObject *category, PyObject *text, PyObject *message,

PyObject *filename, int lineno, PyObject *lineno_obj,

PyObject *sourceline, PyObject *source)

{

PyObject *show_fn, *msg, *res, *warnmsg_cls = NULL;

_Py_IDENTIFIER(_showwarnmsg);

_Py_IDENTIFIER(WarningMessage);

/* If the source parameter is set, try to get the Python implementation.

The Python implementation is able to log the traceback where the source

was allocated, whereas the C implementation doesn't. */

show_fn = get_warnings_attr(&PyId__showwarnmsg, source != NULL);

if (show_fn == NULL) {

if (PyErr_Occurred())

return -1;

show_warning(filename, lineno, text, category, sourceline);

return 0;

}

if (!PyCallable_Check(show_fn)) {

PyErr_SetString(PyExc_TypeError,

"warnings._showwarnmsg() must be set to a callable");

goto error;

}

warnmsg_cls = get_warnings_attr(&PyId_WarningMessage, 0);

if (warnmsg_cls == NULL) {

if (!PyErr_Occurred()) {

PyErr_SetString(PyExc_RuntimeError,

"unable to get warnings.WarningMessage");

}

goto error;

}

msg = PyObject_CallFunctionObjArgs(warnmsg_cls, message, category,

filename, lineno_obj, Py_None, Py_None, source,

NULL);

Py_DECREF(warnmsg_cls);

if (msg == NULL)

goto error;

res = PyObject_CallFunctionObjArgs(show_fn, msg, NULL);

Py_DECREF(show_fn);

Py_DECREF(msg);

if (res == NULL)

return -1;

Py_DECREF(res);

return 0;

error:

Py_XDECREF(show_fn);

return -1;

}

static PyObject *

warn_explicit(PyObject *category, PyObject *message,

PyObject *filename, int lineno,

PyObject *module, PyObject *registry, PyObject *sourceline,

PyObject *source)

{

PyObject *key = NULL, *text = NULL, *result = NULL, *lineno_obj = NULL;

PyObject *item = NULL;

PyObject *action;

int rc;

/* module can be None if a warning is emitted late during Python shutdown.

In this case, the Python warnings module was probably unloaded, filters

are no more available to choose as action. It is safer to ignore the

warning and do nothing. */

if (module == Py_None)

Py_RETURN_NONE;

if (registry && !PyDict_Check(registry) && (registry != Py_None)) {

PyErr_SetString(PyExc_TypeError, "'registry' must be a dict or None");

return NULL;

}

/* Normalize module. */

if (module == NULL) {

module = normalize_module(filename);

if (module == NULL)

return NULL;

}

else

Py_INCREF(module);

/* Normalize message. */

Py_INCREF(message); /* DECREF'ed in cleanup. */

rc = PyObject_IsInstance(message, PyExc_Warning);

if (rc == -1) {

goto cleanup;

}

if (rc == 1) {

text = PyObject_Str(message);

if (text == NULL)

goto cleanup;

category = (PyObject*)message->ob_type;

}

else {

text = message;

message = PyObject_CallFunctionObjArgs(category, message, NULL);

if (message == NULL)

goto cleanup;

}

lineno_obj = PyLong_FromLong(lineno);

if (lineno_obj == NULL)

goto cleanup;

if (source == Py_None) {

source = NULL;

}

/* Create key. */

key = PyTuple_Pack(3, text, category, lineno_obj);

if (key == NULL)

goto cleanup;

if ((registry != NULL) && (registry != Py_None)) {

rc = already_warned(registry, key, 0);

if (rc == -1)

goto cleanup;

else if (rc == 1)

goto return_none;

/* Else this warning hasn't been generated before. */

}

action = get_filter(category, text, lineno, module, &item);

if (action == NULL)

goto cleanup;

if (_PyUnicode_EqualToASCIIString(action, "error")) {

PyErr_SetObject(category, message);

goto cleanup;

}

if (_PyUnicode_EqualToASCIIString(action, "ignore")) {

goto return_none;

}

/* Store in the registry that we've been here, *except* when the action

is "always". */

rc = 0;

if (!_PyUnicode_EqualToASCIIString(action, "always")) {

if (registry != NULL && registry != Py_None &&

PyDict_SetItem(registry, key, Py_True) < 0)

{

goto cleanup;

}

if (_PyUnicode_EqualToASCIIString(action, "once")) {

if (registry == NULL || registry == Py_None) {

registry = get_once_registry();

if (registry == NULL)

goto cleanup;

}

/* _PyRuntime.warnings.once_registry[(text, category)] = 1 */

rc = update_registry(registry, text, category, 0);

}

else if (_PyUnicode_EqualToASCIIString(action, "module")) {

/* registry[(text, category, 0)] = 1 */

if (registry != NULL && registry != Py_None)

rc = update_registry(registry, text, category, 0);

}

else if (!_PyUnicode_EqualToASCIIString(action, "default")) {

PyErr_Format(PyExc_RuntimeError,

"Unrecognized action (%R) in warnings.filters:\n %R",

action, item);

goto cleanup;

}

}

if (rc == 1) /* Already warned for this module. */

goto return_none;

if (rc == 0) {

if (call_show_warning(category, text, message, filename, lineno,

lineno_obj, sourceline, source) < 0)

goto cleanup;

}

else /* if (rc == -1) */

goto cleanup;

return_none:

result = Py_None;

Py_INCREF(result);

cleanup:

Py_XDECREF(item);

Py_XDECREF(key);

Py_XDECREF(text);

Py_XDECREF(lineno_obj);

Py_DECREF(module);

Py_XDECREF(message);

return result; /* Py_None or NULL. */

}

static int

is_internal_frame(PyFrameObject *frame)

{

static PyObject *importlib_string = NULL;

static PyObject *bootstrap_string = NULL;

PyObject *filename;

int contains;

if (importlib_string == NULL) {

importlib_string = PyUnicode_FromString("importlib");

if (importlib_string == NULL) {

return 0;

}

bootstrap_string = PyUnicode_FromString("_bootstrap");

if (bootstrap_string == NULL) {

Py_DECREF(importlib_string);

return 0;

}

Py_INCREF(importlib_string);

Py_INCREF(bootstrap_string);

}

if (frame == NULL || frame->f_code == NULL ||

frame->f_code->co_filename == NULL) {

return 0;

}

filename = frame->f_code->co_filename;

if (!PyUnicode_Check(filename)) {

return 0;

}

contains = PyUnicode_Contains(filename, importlib_string);

if (contains < 0) {

return 0;

}

else if (contains > 0) {

contains = PyUnicode_Contains(filename, bootstrap_string);

if (contains < 0) {

return 0;

}

else if (contains > 0) {

return 1;

}

}

return 0;

}

static PyFrameObject *

next_external_frame(PyFrameObject *frame)

{

do {

frame = frame->f_back;

} while (frame != NULL && is_internal_frame(frame));

return frame;

}

/* filename, module, and registry are new refs, globals is borrowed */

/* Returns 0 on error (no new refs), 1 on success */

static int

setup_context(Py_ssize_t stack_level, PyObject **filename, int *lineno,

PyObject **module, PyObject **registry)

{

PyObject *globals;

/* Setup globals and lineno. */

PyFrameObject *f = PyThreadState_GET()->frame;

// Stack level comparisons to Python code is off by one as there is no

// warnings-related stack level to avoid.

if (stack_level <= 0 || is_internal_frame(f)) {

while (--stack_level > 0 && f != NULL) {

f = f->f_back;

}

}

else {

while (--stack_level > 0 && f != NULL) {

f = next_external_frame(f);

}

}

if (f == NULL) {

globals = PyThreadState_Get()->interp->sysdict;

*lineno = 1;

}

else {

globals = f->f_globals;

*lineno = PyFrame_GetLineNumber(f);

}

*module = NULL;

/* Setup registry. */

assert(globals != NULL);

assert(PyDict_Check(globals));

*registry = PyDict_GetItemString(globals, "__warningregistry__");

if (*registry == NULL) {

int rc;

*registry = PyDict_New();

if (*registry == NULL)

return 0;

rc = PyDict_SetItemString(globals, "__warningregistry__", *registry);

if (rc < 0)

goto handle_error;

}

else

Py_INCREF(*registry);

/* Setup module. */

*module = PyDict_GetItemString(globals, "__name__");

if (*module == Py_None || (*module != NULL && PyUnicode_Check(*module))) {

Py_INCREF(*module);

}

else {

*module = PyUnicode_FromString("<string>");

if (*module == NULL)

goto handle_error;

}

/* Setup filename. */

*filename = PyDict_GetItemString(globals, "__file__");

if (*filename != NULL && PyUnicode_Check(*filename)) {

Py_ssize_t len;

int kind;

void *data;

if (PyUnicode_READY(*filename))

goto handle_error;

len = PyUnicode_GetLength(*filename);

kind = PyUnicode_KIND(*filename);

data = PyUnicode_DATA(*filename);

#define ascii_lower(c) ((c <= 127) ? Py_TOLOWER(c) : 0)

/* if filename.lower().endswith(".pyc"): */

if (len >= 4 &&

PyUnicode_READ(kind, data, len-4) == '.' &&

ascii_lower(PyUnicode_READ(kind, data, len-3)) == 'p' &&

ascii_lower(PyUnicode_READ(kind, data, len-2)) == 'y' &&

ascii_lower(PyUnicode_READ(kind, data, len-1)) == 'c')

{

*filename = PyUnicode_Substring(*filename, 0,

PyUnicode_GET_LENGTH(*filename)-1);

if (*filename == NULL)

goto handle_error;

}

else

Py_INCREF(*filename);

}

else {

*filename = NULL;

if (*module != Py_None && _PyUnicode_EqualToASCIIString(*module, "__main__")) {

PyObject *argv = _PySys_GetObjectId(&PyId_argv);

/* PyList_Check() is needed because sys.argv is set to None during

Python finalization */

if (argv != NULL && PyList_Check(argv) && PyList_Size(argv) > 0) {

int is_true;

*filename = PyList_GetItem(argv, 0);

Py_INCREF(*filename);

/* If sys.argv[0] is false, then use '__main__'. */

is_true = PyObject_IsTrue(*filename);

if (is_true < 0) {

Py_DECREF(*filename);

goto handle_error;

}

else if (!is_true) {

Py_SETREF(*filename, PyUnicode_FromString("__main__"));

if (*filename == NULL)

goto handle_error;

}

}

else {

/* embedded interpreters don't have sys.argv, see bug #839151 */

*filename = PyUnicode_FromString("__main__");

if (*filename == NULL)

goto handle_error;

}

}

if (*filename == NULL) {

*filename = *module;

Py_INCREF(*filename);

}

}

return 1;

handle_error:

/* filename not XDECREF'ed here as there is no way to jump here with a

dangling reference. */

Py_XDECREF(*registry);

Py_XDECREF(*module);

return 0;

}

static PyObject *

get_category(PyObject *message, PyObject *category)

{

int rc;

/* Get category. */

rc = PyObject_IsInstance(message, PyExc_Warning);

if (rc == -1)

return NULL;

if (rc == 1)

category = (PyObject*)message->ob_type;

else if (category == NULL || category == Py_None)

category = PyExc_UserWarning;

/* Validate category. */

rc = PyObject_IsSubclass(category, PyExc_Warning);

/* category is not a subclass of PyExc_Warning or

PyObject_IsSubclass raised an error */

if (rc == -1 || rc == 0) {

PyErr_Format(PyExc_TypeError,

"category must be a Warning subclass, not '%s'",

Py_TYPE(category)->tp_name);

return NULL;

}

return category;

}

static PyObject *

do_warn(PyObject *message, PyObject *category, Py_ssize_t stack_level,

PyObject *source)

{

PyObject *filename, *module, *registry, *res;

int lineno;

if (!setup_context(stack_level, &filename, &lineno, &module, &registry))

return NULL;

res = warn_explicit(category, message, filename, lineno, module, registry,

NULL, source);

Py_DECREF(filename);

Py_DECREF(registry);

Py_DECREF(module);

return res;

}

/*[clinic input]

warn as warnings_warn

message: object

category: object = None

stacklevel: Py_ssize_t = 1

source: object = None

Issue a warning, or maybe ignore it or raise an exception.

[clinic start generated code]*/

static PyObject *

warnings_warn_impl(PyObject *module, PyObject *message, PyObject *category,

Py_ssize_t stacklevel, PyObject *source)

/*[clinic end generated code: output=31ed5ab7d8d760b2 input=bfdf5cf99f6c4edd]*/

{

category = get_category(message, category);

if (category == NULL)

return NULL;

return do_warn(message, category, stacklevel, source);

}

static PyObject *

get_source_line(PyObject *module_globals, int lineno)

{

_Py_IDENTIFIER(get_source);

_Py_IDENTIFIER(__loader__);

_Py_IDENTIFIER(__name__);

PyObject *loader;

PyObject *module_name;

PyObject *get_source;

PyObject *source;

PyObject *source_list;

PyObject *source_line;

/* Check/get the requisite pieces needed for the loader. */

loader = _PyDict_GetItemIdWithError(module_globals, &PyId___loader__);

if (loader == NULL) {

return NULL;

}

Py_INCREF(loader);

module_name = _PyDict_GetItemIdWithError(module_globals, &PyId___name__);

if (!module_name) {

Py_DECREF(loader);

return NULL;

}

Py_INCREF(module_name);

/* Make sure the loader implements the optional get_source() method. */

(void)_PyObject_LookupAttrId(loader, &PyId_get_source, &get_source);

Py_DECREF(loader);

if (!get_source) {

Py_DECREF(module_name);

return NULL;

}

/* Call get_source() to get the source code. */

source = PyObject_CallFunctionObjArgs(get_source, module_name, NULL);

Py_DECREF(get_source);

Py_DECREF(module_name);

if (!source) {

return NULL;

}

if (source == Py_None) {

Py_DECREF(source);

return NULL;

}

/* Split the source into lines. */

source_list = PyUnicode_Splitlines(source, 0);

Py_DECREF(source);

if (!source_list) {

return NULL;

}

/* Get the source line. */

source_line = PyList_GetItem(source_list, lineno-1);

Py_XINCREF(source_line);

Py_DECREF(source_list);

return source_line;

}

static PyObject *

warnings_warn_explicit(PyObject *self, PyObject *args, PyObject *kwds)

{

static char *kwd_list[] = {"message", "category", "filename", "lineno",

"module", "registry", "module_globals",

"source", 0};

PyObject *message;

PyObject *category;

PyObject *filename;

int lineno;

PyObject *module = NULL;

PyObject *registry = NULL;

PyObject *module_globals = NULL;

PyObject *sourceobj = NULL;

PyObject *source_line = NULL;

PyObject *returned;

if (!PyArg_ParseTupleAndKeywords(args, kwds, "OOUi|OOOO:warn_explicit",

kwd_list, &message, &category, &filename, &lineno, &module,

&registry, &module_globals, &sourceobj))

return NULL;

if (module_globals) {

source_line = get_source_line(module_globals, lineno);

if (source_line == NULL && PyErr_Occurred()) {

return NULL;

}

}

returned = warn_explicit(category, message, filename, lineno, module,

registry, source_line, sourceobj);

Py_XDECREF(source_line);

return returned;

}

static PyObject *

warnings_filters_mutated(PyObject *self, PyObject *args)

{

_PyRuntime.warnings.filters_version++;

Py_RETURN_NONE;

}

/* Function to issue a warning message; may raise an exception. */

static int

warn_unicode(PyObject *category, PyObject *message,

Py_ssize_t stack_level, PyObject *source)

{

PyObject *res;

if (category == NULL)

category = PyExc_RuntimeWarning;

res = do_warn(message, category, stack_level, source);

if (res == NULL)

return -1;

Py_DECREF(res);

return 0;

}

static int

_PyErr_WarnFormatV(PyObject *source,

PyObject *category, Py_ssize_t stack_level,

const char *format, va_list vargs)

{

PyObject *message;

int res;