| /* |
| * util.c |
| * |
| * Copyright (C) AB Strakt 2001, All rights reserved |
| * |
| * Utility functions. |
| * See the file RATIONALE for a short explanation of why this module was written. |
| * |
| * Reviewed 2001-07-23 |
| */ |
| #include <Python.h> |
| #include "util.h" |
| |
| /* |
| * Flush OpenSSL's error queue and return a list of errors (a (library, |
| * function, reason) string tuple) |
| * |
| * Arguments: None |
| * Returns: A list of errors (new reference) |
| */ |
| PyObject * |
| error_queue_to_list(void) |
| { |
| PyObject *errlist, *tuple; |
| long err; |
| |
| errlist = PyList_New(0); |
| |
| while ((err = ERR_get_error()) != 0) |
| { |
| tuple = Py_BuildValue("(sss)", ERR_lib_error_string(err), |
| ERR_func_error_string(err), |
| ERR_reason_error_string(err)); |
| PyList_Append(errlist, tuple); |
| Py_DECREF(tuple); |
| } |
| |
| return errlist; |
| } |
| |
| /* |
| * Flush OpenSSL's error queue and ignore the result |
| * |
| * Arguments: None |
| * Returns: None |
| */ |
| void |
| flush_error_queue(void) |
| { |
| Py_DECREF(error_queue_to_list()); |
| } |
| |