diff options
Diffstat (limited to 'Modules/puremodule.c')
| -rw-r--r-- | Modules/puremodule.c | 988 |
1 files changed, 0 insertions, 988 deletions
diff --git a/Modules/puremodule.c b/Modules/puremodule.c deleted file mode 100644 index 95f4bde..0000000 --- a/Modules/puremodule.c +++ /dev/null @@ -1,988 +0,0 @@ -/* This module exports the C API to such Pure Software Inc. (tm) (now - * called Pure Atria Corporation) products as Purify (tm) and Quantify - * (tm). Other packages could be added, but I didn't have those products - * and thus lack the API documentation. - * - * Currently supported: Quantify 2.x, Purify 3.x - * - * You need to decide which products you want to incorporate into the - * module when you compile this file. The way to do this is to edit - * <Python>/Modules/Setup to pass the appropriate flags to the compiler. - * -DWITH_PURIFY compiles in the Purify support, and -DWITH_QUANTIFY - * compiles in the Quantify support. -DWITH_ALL_PURE compiles in both. - * You can also build a Purify'd or Quantify'd interpreter by passing in - * the LINKCC variable to make. E.g. if you want to build a Purify'd - * interpreter and are using gcc, build Python with this command: - * - * make LINKCC='purify gcc' - * - * It would be nice (and probably easy) to provide this file as a shared - * library, however since it doesn't appear that Pure gives us shared - * libraries of the stubs, it doesn't really matter. For now, you have to - * link this file in statically. - * - * Major bogosity. The purify.h header file exports purify_exit(), but - * guess what? It is not defined in the libpurify_stubs.a file! I tried - * to fake one here, hoping the Pure linker would Do The Right Thing when - * instrumented for Purify, but it doesn't seem to, so I don't export - * purify_exit() to the Python layer. In Python you should raise a - * SystemExit exception anyway. - * - * The actual purify.h and quantify.h files which embody the APIs are - * copyrighted by Pure Software, Inc. and are only attainable through them. - * This module assumes you have legally installed licenses of their - * software. Contact them on the Web via <http://www.pureatria.com/> - * - * Author: Barry Warsaw <bwarsaw@python.org> - * <bwarsaw@cnri.reston.va.us> - */ - -#include "Python.h" - -#if defined(WITH_PURIFY) || defined(WITH_ALL_PURE) -# include <purify.h> -# define HAS_PURIFY_EXIT 0 /* See note at top of file */ -# define PURE_PURIFY_VERSION 3 /* not provided by purify.h */ -#endif -#if defined(WITH_QUANTIFY) || defined(WITH_ALL_PURE) -# include <quantify.h> -# define PURE_QUANTIFY_VERSION 2 /* not provided by quantify.h */ -#endif -#if defined(PURIFY_H) || defined(QUANTIFY_H) -# define COMMON_PURE_FUNCTIONS -#endif /* PURIFY_H || QUANTIFY_H */ - -typedef int (*VoidArgFunc)(void); -typedef int (*StringArgFunc)(char*); -typedef int (*PrintfishFunc)(const char*, ...); -typedef int (*StringIntArgFunc)(const char*, int); - - - -static PyObject* -call_voidarg_function(VoidArgFunc func, PyObject *self, PyObject *args) -{ - int status; - - if (!PyArg_ParseTuple(args, "")) - return NULL; - - status = func(); - return Py_BuildValue("i", status); -} - -static PyObject* -call_stringarg_function(StringArgFunc func, PyObject *self, PyObject *args) -{ - int status; - char* stringarg; - - if (!PyArg_ParseTuple(args, "s", &stringarg)) - return NULL; - - status = func(stringarg); - return Py_BuildValue("i", status); -} - -static PyObject* -call_stringorint_function(StringArgFunc func, PyObject *self, PyObject *args) -{ - int status; - int intarg; - char* stringarg; - - /* according to the quantify.h file, the argument to - * quantify_*_recording_system_call can be an integer or a string, - * but the functions are prototyped as taking a single char* - * argument. Yikes! - */ - if (PyArg_ParseTuple(args, "i", &intarg)) - /* func is prototyped as int(*)(char*) - * better shut up the compiler - */ - status = func((char*)intarg); - - else { - PyErr_Clear(); - if (!PyArg_ParseTuple(args, "s", &stringarg)) - return NULL; - else - status = func(stringarg); - } - return Py_BuildValue("i", status); -} - -static PyObject* -call_printfish_function(PrintfishFunc func, PyObject *self, PyObject *args) -{ - /* we support the printf() style vararg functions by requiring the - * formatting be done in Python. At the C level we pass just a string - * to the printf() style function. - */ - int status; - char* argstring; - - if (!PyArg_ParseTuple(args, "s", &argstring)) - return NULL; - - status = func("%s", argstring); - return Py_BuildValue("i", status); -} - -static PyObject* -call_intasaddr_function(StringArgFunc func, PyObject *self, PyObject *args) -{ - long memrep; - int id; - - if (!PyArg_ParseTuple(args, "l", &memrep)) - return NULL; - - id = func((char*)memrep); - return Py_BuildValue("i", id); -} - -static PyObject* -call_stringandint_function(StringIntArgFunc func, PyObject *self, - PyObject *args) -{ - long srcrep; - int size; - int status; - - if (!PyArg_ParseTuple(args, "li", &srcrep, &size)) - return NULL; - - status = func((char*)srcrep, size); - return Py_BuildValue("i", status); -} - - - -/* functions common to all products - * - * N.B. These printf() style functions are a bit of a kludge. Since the - * API doesn't provide vprintf versions of them, we can't call them - * directly. They don't support all the standard printf % modifiers - * anyway. The way to use these is to use Python's % string operator to do - * the formatting. By the time these functions get the thing to print, - * it's already a string, and they just use "%s" as the format string. - */ - -#ifdef COMMON_PURE_FUNCTIONS - -static PyObject* -pure_pure_logfile_printf(PyObject* self, PyObject* args) -{ - return call_printfish_function(pure_logfile_printf, self, args); -} - -static PyObject* -pure_pure_printf(PyObject* self, PyObject* args) -{ - return call_printfish_function(pure_printf, self, args); -} - -static PyObject* -pure_pure_printf_with_banner(PyObject* self, PyObject* args) -{ - return call_printfish_function(pure_printf_with_banner, self, args); -} - - -#endif /* COMMON_PURE_FUNCTIONS */ - - - -/* Purify functions - * - * N.B. There are some interfaces described in the purify.h file that are - * not described in the manual. - * - * Unsigned longs purify_report_{address,number,type,result} are not - * accessible from the Python layer since they seem mostly useful when - * purify_stop_here() is called by the (C) debugger. The same is true of - * the purify_stop_here_internal() function so it isn't exported either. - * And purify_stop_here() should never be called directly. - * - * The header file says purify_{new,all,clear_new}_reports() are obsolete - * so they aren't exported. - * - * None of the custom dynamic loader functions are exported. - * - * purify_unsafe_memcpy() isn't exported. - * - * purify_{start,size}_of_block() aren't exported. - * - * The manual that I have says that the prototype for the second argument - * to purify_map_pool is: - * - * void (*fn)(char*) - * - * but the purify.h file declares it as: - * - * void (*fn)(char*, int, void*) - * - * and does not explain what the other arguments are for. I support the - * latter but I don't know if I do it right or usefully. - * - * The header file says that purify_describe() returns a char* which is the - * pointer passed to it. The manual says it returns an int, but I believe - * that is a typo. - */ -#ifdef PURIFY_H - -static PyObject* -pure_purify_all_inuse(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_all_inuse, self, args); -} -static PyObject* -pure_purify_all_leaks(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_all_leaks, self, args); -} -static PyObject* -pure_purify_new_inuse(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_new_inuse, self, args); -} -static PyObject* -pure_purify_new_leaks(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_new_leaks, self, args); -} -static PyObject* -pure_purify_clear_inuse(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_clear_inuse, self, args); -} -static PyObject* -pure_purify_clear_leaks(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_clear_leaks, self, args); -} -static PyObject* -pure_purify_all_fds_inuse(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_all_fds_inuse, self, args); -} -static PyObject* -pure_purify_new_fds_inuse(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_new_fds_inuse, self, args); -} -static PyObject* -pure_purify_printf_with_call_chain(PyObject *self, PyObject *args) -{ - return call_printfish_function(purify_printf_with_call_chain, - self, args); -} -static PyObject* -pure_purify_set_pool_id(PyObject *self, PyObject *args) -{ - long memrep; - int id; - - if (!PyArg_ParseTuple(args, "li:purify_set_pool_id", &memrep, &id)) - return NULL; - - purify_set_pool_id((char*)memrep, id); - Py_INCREF(Py_None); - return Py_None; -} -static PyObject* -pure_purify_get_pool_id(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_get_pool_id, self, args); -} -static PyObject* -pure_purify_set_user_data(PyObject *self, PyObject *args) -{ - long memrep; - long datarep; - - if (!PyArg_ParseTuple(args, "ll:purify_set_user_data", &memrep, &datarep)) - return NULL; - - purify_set_user_data((char*)memrep, (void*)datarep); - Py_INCREF(Py_None); - return Py_None; -} -static PyObject* -pure_purify_get_user_data(PyObject *self, PyObject *args) -{ - /* can't use call_intasaddr_function() since purify_get_user_data() - * returns a void* - */ - long memrep; - void* data; - - if (!PyArg_ParseTuple(args, "l:purify_get_user_data", &memrep)) - return NULL; - - data = purify_get_user_data((char*)memrep); - return Py_BuildValue("l", (long)data); -} - - -/* this global variable is shared by both mapping functions: - * pure_purify_map_pool() and pure_purify_map_pool_id(). Since they cache - * this variable it should be safe in the face of recursion or cross - * calling. - * - * Further note that the prototype for the callback function is wrong in - * the Purify manual. The manual says the function takes a single char*, - * but the header file says it takes an additional int and void*. I have - * no idea what these are for! - */ -static PyObject* MapCallable = NULL; - -static void -map_pool_callback(char* mem, int user_size, void *user_aux_data) -{ - long memrep = (long)mem; - long user_aux_data_rep = (long)user_aux_data; - PyObject* result; - PyObject* memobj = Py_BuildValue("lil", memrep, user_size, - user_aux_data_rep); - - if (memobj == NULL) - return; - - result = PyEval_CallObject(MapCallable, memobj); - Py_DECREF(result); - Py_DECREF(memobj); -} - -static PyObject* -pure_purify_map_pool(PyObject *self, PyObject *args) -{ - /* cache global variable in case of recursion */ - PyObject* saved_callable = MapCallable; - PyObject* arg_callable; - int id; - - if (!PyArg_ParseTuple(args, "iO:purify_map_pool", &id, &arg_callable)) - return NULL; - - if (!PyCallable_Check(arg_callable)) { - PyErr_SetString(PyExc_TypeError, - "Second argument must be callable"); - return NULL; - } - MapCallable = arg_callable; - purify_map_pool(id, map_pool_callback); - MapCallable = saved_callable; - - Py_INCREF(Py_None); - return Py_None; -} - -static void -PurifyMapPoolIdCallback(int id) -{ - PyObject* result; - PyObject* intobj = Py_BuildValue("i", id); - - if (intobj == NULL) - return; - - result = PyEval_CallObject(MapCallable, intobj); - Py_DECREF(result); - Py_DECREF(intobj); -} - -static PyObject* -pure_purify_map_pool_id(PyObject *self, PyObject *args) -{ - /* cache global variable in case of recursion */ - PyObject* saved_callable = MapCallable; - PyObject* arg_callable; - - if (!PyArg_ParseTuple(args, "O:purify_map_pool_id", &arg_callable)) - return NULL; - - if (!PyCallable_Check(arg_callable)) { - PyErr_SetString(PyExc_TypeError, "Argument must be callable."); - return NULL; - } - - MapCallable = arg_callable; - purify_map_pool_id(PurifyMapPoolIdCallback); - MapCallable = saved_callable; - - Py_INCREF(Py_None); - return Py_None; -} - - - -static PyObject* -pure_purify_new_messages(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_new_messages, self, args); -} -static PyObject* -pure_purify_all_messages(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_all_messages, self, args); -} -static PyObject* -pure_purify_clear_messages(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_clear_messages, self, args); -} -static PyObject* -pure_purify_clear_new_messages(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_clear_new_messages, self, args); -} -static PyObject* -pure_purify_start_batch(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_start_batch, self, args); -} -static PyObject* -pure_purify_start_batch_show_first(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_start_batch_show_first, - self, args); -} -static PyObject* -pure_purify_stop_batch(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_stop_batch, self, args); -} -static PyObject* -pure_purify_name_thread(PyObject *self, PyObject *args) -{ - /* can't strictly use call_stringarg_function since - * purify_name_thread takes a const char*, not a char* - */ - int status; - char* stringarg; - - if (!PyArg_ParseTuple(args, "s:purify_name_thread", &stringarg)) - return NULL; - - status = purify_name_thread(stringarg); - return Py_BuildValue("i", status); -} -static PyObject* -pure_purify_watch(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch, self, args); -} -static PyObject* -pure_purify_watch_1(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_1, self, args); -} -static PyObject* -pure_purify_watch_2(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_2, self, args); -} -static PyObject* -pure_purify_watch_4(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_4, self, args); -} -static PyObject* -pure_purify_watch_8(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_8, self, args); -} -static PyObject* -pure_purify_watch_w_1(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_w_1, self, args); -} -static PyObject* -pure_purify_watch_w_2(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_w_2, self, args); -} -static PyObject* -pure_purify_watch_w_4(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_w_4, self, args); -} -static PyObject* -pure_purify_watch_w_8(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_w_8, self, args); -} -static PyObject* -pure_purify_watch_r_1(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_r_1, self, args); -} -static PyObject* -pure_purify_watch_r_2(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_r_2, self, args); -} -static PyObject* -pure_purify_watch_r_4(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_r_4, self, args); -} -static PyObject* -pure_purify_watch_r_8(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_r_8, self, args); -} -static PyObject* -pure_purify_watch_rw_1(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_rw_1, self, args); -} -static PyObject* -pure_purify_watch_rw_2(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_rw_2, self, args); -} -static PyObject* -pure_purify_watch_rw_4(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_rw_4, self, args); -} -static PyObject* -pure_purify_watch_rw_8(PyObject *self, PyObject *args) -{ - return call_intasaddr_function(purify_watch_rw_8, self, args); -} - -static PyObject* -pure_purify_watch_n(PyObject *self, PyObject *args) -{ - long addrrep; - unsigned int size; - char* type; - int status; - - if (!PyArg_ParseTuple(args, "lis:purify_watch_n", &addrrep, &size, &type)) - return NULL; - - status = purify_watch_n((char*)addrrep, size, type); - return Py_BuildValue("i", status); -} - -static PyObject* -pure_purify_watch_info(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_watch_info, self, args); -} - -static PyObject* -pure_purify_watch_remove(PyObject *self, PyObject *args) -{ - int watchno; - int status; - - if (!PyArg_ParseTuple(args, "i:purify_watch_remove", &watchno)) - return NULL; - - status = purify_watch_remove(watchno); - return Py_BuildValue("i", status); -} - -static PyObject* -pure_purify_watch_remove_all(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_watch_remove_all, self, args); -} -static PyObject* -pure_purify_describe(PyObject *self, PyObject *args) -{ - long addrrep; - char* rtn; - - if (!PyArg_ParseTuple(args, "l:purify_describe", &addrrep)) - return NULL; - - rtn = purify_describe((char*)addrrep); - return Py_BuildValue("l", (long)rtn); -} - -static PyObject* -pure_purify_what_colors(PyObject *self, PyObject *args) -{ - long addrrep; - unsigned int size; - int status; - - if (!PyArg_ParseTuple(args, "li:purify_what_colors", &addrrep, &size)) - return NULL; - - status = purify_what_colors((char*)addrrep, size); - return Py_BuildValue("i", status); -} - -static PyObject* -pure_purify_is_running(PyObject *self, PyObject *args) -{ - return call_voidarg_function(purify_is_running, self, args); -} - -static PyObject* -pure_purify_assert_is_readable(PyObject *self, PyObject *args) -{ - return call_stringandint_function(purify_assert_is_readable, - self, args); -} -static PyObject* -pure_purify_assert_is_writable(PyObject *self, PyObject *args) -{ - return call_stringandint_function(purify_assert_is_writable, - self, args); -} - -#if HAS_PURIFY_EXIT - -/* I wish I could include this, but I can't. See the notes at the top of - * the file. - */ - -static PyObject* -pure_purify_exit(PyObject *self, PyObject *args) -{ - int status; - - if (!PyArg_ParseTuple(args, "i:purify_exit", &status)) - return NULL; - - /* purify_exit doesn't always act like exit(). See the manual */ - purify_exit(status); - Py_INCREF(Py_None); - return Py_None; -} -#endif /* HAS_PURIFY_EXIT */ - -#endif /* PURIFY_H */ - - - -/* Quantify functions - * - * N.B. Some of these functions are only described in the quantify.h file, - * not in the version of the hardcopy manual that I had. If you're not - * sure what some of these do, check the header file, it is documented - * fairly well. - * - * None of the custom dynamic loader functions are exported. - * - */ -#ifdef QUANTIFY_H - -static PyObject* -pure_quantify_is_running(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_is_running, self, args); -} -static PyObject* -pure_quantify_help(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_help, self, args); -} -static PyObject* -pure_quantify_print_recording_state(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_print_recording_state, - self, args); -} -static PyObject* -pure_quantify_start_recording_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_start_recording_data, - self, args); -} -static PyObject* -pure_quantify_stop_recording_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_stop_recording_data, self, args); -} -static PyObject* -pure_quantify_is_recording_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_is_recording_data, self, args); -} -static PyObject* -pure_quantify_start_recording_system_calls(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_start_recording_system_calls, - self, args); -} -static PyObject* -pure_quantify_stop_recording_system_calls(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_stop_recording_system_calls, - self, args); -} -static PyObject* -pure_quantify_is_recording_system_calls(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_is_recording_system_calls, - self, args); -} -static PyObject* -pure_quantify_start_recording_system_call(PyObject *self, PyObject *args) -{ - return call_stringorint_function(quantify_start_recording_system_call, - self, args); -} -static PyObject* -pure_quantify_stop_recording_system_call(PyObject *self, PyObject *args) -{ - return call_stringorint_function(quantify_stop_recording_system_call, - self, args); -} -static PyObject* -pure_quantify_is_recording_system_call(PyObject *self, PyObject *args) -{ - return call_stringorint_function(quantify_is_recording_system_call, - self, args); -} -static PyObject* -pure_quantify_start_recording_dynamic_library_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_start_recording_dynamic_library_data, - self, args); -} -static PyObject* -pure_quantify_stop_recording_dynamic_library_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_stop_recording_dynamic_library_data, - self, args); -} -static PyObject* -pure_quantify_is_recording_dynamic_library_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_is_recording_dynamic_library_data, - self, args); -} -static PyObject* -pure_quantify_start_recording_register_window_traps(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_start_recording_register_window_traps, - self, args); -} -static PyObject* -pure_quantify_stop_recording_register_window_traps(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_stop_recording_register_window_traps, - self, args); -} -static PyObject* -pure_quantify_is_recording_register_window_traps(PyObject *self, PyObject *args) -{ - return call_voidarg_function( - quantify_is_recording_register_window_traps, - self, args); -} -static PyObject* -pure_quantify_disable_recording_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_disable_recording_data, - self, args); -} -static PyObject* -pure_quantify_clear_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_clear_data, self, args); -} -static PyObject* -pure_quantify_save_data(PyObject *self, PyObject *args) -{ - return call_voidarg_function(quantify_save_data, self, args); -} -static PyObject* -pure_quantify_save_data_to_file(PyObject *self, PyObject *args) -{ - return call_stringarg_function(quantify_save_data_to_file, self, args); -} -static PyObject* -pure_quantify_add_annotation(PyObject *self, PyObject *args) -{ - return call_stringarg_function(quantify_add_annotation, self, args); -} - -#endif /* QUANTIFY_H */ - - - -/* external interface - */ -static struct PyMethodDef -pure_methods[] = { -#ifdef COMMON_PURE_FUNCTIONS - {"pure_logfile_printf", pure_pure_logfile_printf, METH_VARARGS}, - {"pure_printf", pure_pure_printf, METH_VARARGS}, - {"pure_printf_with_banner", pure_pure_printf_with_banner, METH_VARARGS}, -#endif /* COMMON_PURE_FUNCTIONS */ -#ifdef PURIFY_H - {"purify_all_inuse", pure_purify_all_inuse, METH_VARARGS}, - {"purify_all_leaks", pure_purify_all_leaks, METH_VARARGS}, - {"purify_new_inuse", pure_purify_new_inuse, METH_VARARGS}, - {"purify_new_leaks", pure_purify_new_leaks, METH_VARARGS}, - {"purify_clear_inuse", pure_purify_clear_inuse, METH_VARARGS}, - {"purify_clear_leaks", pure_purify_clear_leaks, METH_VARARGS}, - {"purify_all_fds_inuse", pure_purify_all_fds_inuse, METH_VARARGS}, - {"purify_new_fds_inuse", pure_purify_new_fds_inuse, METH_VARARGS}, - /* see purify.h */ - {"purify_logfile_printf", pure_pure_logfile_printf, METH_VARARGS}, - {"purify_printf", pure_pure_printf, METH_VARARGS}, - {"purify_printf_with_banner", pure_pure_printf_with_banner, METH_VARARGS}, - /**/ - {"purify_printf_with_call_chain", pure_purify_printf_with_call_chain, METH_VARARGS}, - {"purify_set_pool_id", pure_purify_set_pool_id, METH_VARARGS}, - {"purify_get_pool_id", pure_purify_get_pool_id, METH_VARARGS}, - {"purify_set_user_data", pure_purify_set_user_data, METH_VARARGS}, - {"purify_get_user_data", pure_purify_get_user_data, METH_VARARGS}, - {"purify_map_pool", pure_purify_map_pool, METH_VARARGS}, - {"purify_map_pool_id", pure_purify_map_pool_id, METH_VARARGS}, - {"purify_new_messages", pure_purify_new_messages, METH_VARARGS}, - {"purify_all_messages", pure_purify_all_messages, METH_VARARGS}, - {"purify_clear_messages", pure_purify_clear_messages, METH_VARARGS}, - {"purify_clear_new_messages", pure_purify_clear_new_messages, METH_VARARGS}, - {"purify_start_batch", pure_purify_start_batch, METH_VARARGS}, - {"purify_start_batch_show_first", pure_purify_start_batch_show_first, METH_VARARGS}, - {"purify_stop_batch", pure_purify_stop_batch, METH_VARARGS}, - {"purify_name_thread", pure_purify_name_thread, METH_VARARGS}, - {"purify_watch", pure_purify_watch, METH_VARARGS}, - {"purify_watch_1", pure_purify_watch_1, METH_VARARGS}, - {"purify_watch_2", pure_purify_watch_2, METH_VARARGS}, - {"purify_watch_4", pure_purify_watch_4, METH_VARARGS}, - {"purify_watch_8", pure_purify_watch_8, METH_VARARGS}, - {"purify_watch_w_1", pure_purify_watch_w_1, METH_VARARGS}, - {"purify_watch_w_2", pure_purify_watch_w_2, METH_VARARGS}, - {"purify_watch_w_4", pure_purify_watch_w_4, METH_VARARGS}, - {"purify_watch_w_8", pure_purify_watch_w_8, METH_VARARGS}, - {"purify_watch_r_1", pure_purify_watch_r_1, METH_VARARGS}, - {"purify_watch_r_2", pure_purify_watch_r_2, METH_VARARGS}, - {"purify_watch_r_4", pure_purify_watch_r_4, METH_VARARGS}, - {"purify_watch_r_8", pure_purify_watch_r_8, METH_VARARGS}, - {"purify_watch_rw_1", pure_purify_watch_rw_1, METH_VARARGS}, - {"purify_watch_rw_2", pure_purify_watch_rw_2, METH_VARARGS}, - {"purify_watch_rw_4", pure_purify_watch_rw_4, METH_VARARGS}, - {"purify_watch_rw_8", pure_purify_watch_rw_8, METH_VARARGS}, - {"purify_watch_n", pure_purify_watch_n, METH_VARARGS}, - {"purify_watch_info", pure_purify_watch_info, METH_VARARGS}, - {"purify_watch_remove", pure_purify_watch_remove, METH_VARARGS}, - {"purify_watch_remove_all", pure_purify_watch_remove_all, METH_VARARGS}, - {"purify_describe", pure_purify_describe, METH_VARARGS}, - {"purify_what_colors", pure_purify_what_colors, METH_VARARGS}, - {"purify_is_running", pure_purify_is_running, METH_VARARGS}, - {"purify_assert_is_readable", pure_purify_assert_is_readable, METH_VARARGS}, - {"purify_assert_is_writable", pure_purify_assert_is_writable, METH_VARARGS}, -#if HAS_PURIFY_EXIT - /* I wish I could include this, but I can't. See the notes at the - * top of the file. - */ - {"purify_exit", pure_purify_exit, METH_VARARGS}, -#endif /* HAS_PURIFY_EXIT */ -#endif /* PURIFY_H */ -#ifdef QUANTIFY_H - {"quantify_is_running", pure_quantify_is_running, METH_VARARGS}, - {"quantify_help", pure_quantify_help, METH_VARARGS}, - {"quantify_print_recording_state", pure_quantify_print_recording_state, METH_VARARGS}, - {"quantify_start_recording_data", pure_quantify_start_recording_data, METH_VARARGS}, - {"quantify_stop_recording_data", pure_quantify_stop_recording_data, METH_VARARGS}, - {"quantify_is_recording_data", pure_quantify_is_recording_data, METH_VARARGS}, - {"quantify_start_recording_system_calls", - pure_quantify_start_recording_system_calls, METH_VARARGS}, - {"quantify_stop_recording_system_calls", - pure_quantify_stop_recording_system_calls, METH_VARARGS}, - {"quantify_is_recording_system_calls", - pure_quantify_is_recording_system_calls, METH_VARARGS}, - {"quantify_start_recording_system_call", - pure_quantify_start_recording_system_call, METH_VARARGS}, - {"quantify_stop_recording_system_call", - pure_quantify_stop_recording_system_call, METH_VARARGS}, - {"quantify_is_recording_system_call", - pure_quantify_is_recording_system_call, METH_VARARGS}, - {"quantify_start_recording_dynamic_library_data", - pure_quantify_start_recording_dynamic_library_data, METH_VARARGS}, - {"quantify_stop_recording_dynamic_library_data", - pure_quantify_stop_recording_dynamic_library_data, METH_VARARGS}, - {"quantify_is_recording_dynamic_library_data", - pure_quantify_is_recording_dynamic_library_data, METH_VARARGS}, - {"quantify_start_recording_register_window_traps", - pure_quantify_start_recording_register_window_traps, METH_VARARGS}, - {"quantify_stop_recording_register_window_traps", - pure_quantify_stop_recording_register_window_traps, METH_VARARGS}, - {"quantify_is_recording_register_window_traps", - pure_quantify_is_recording_register_window_traps, METH_VARARGS}, - {"quantify_disable_recording_data", - pure_quantify_disable_recording_data, METH_VARARGS}, - {"quantify_clear_data", pure_quantify_clear_data, METH_VARARGS}, - {"quantify_save_data", pure_quantify_save_data, METH_VARARGS}, - {"quantify_save_data_to_file", pure_quantify_save_data_to_file, METH_VARARGS}, - {"quantify_add_annotation", pure_quantify_add_annotation, METH_VARARGS}, -#endif /* QUANTIFY_H */ - {NULL, NULL} /* sentinel */ -}; - - - -static void -ins(d, name, val) - PyObject *d; - char* name; - long val; -{ - PyObject *v = PyInt_FromLong(val); - if (v) { - (void)PyDict_SetItemString(d, name, v); - Py_DECREF(v); - } -} - - -void -initpure() -{ - PyObject *m, *d; - - m = Py_InitModule("pure", pure_methods); - if (m == NULL) - return; - d = PyModule_GetDict(m); - - /* this is bogus because we should be able to find this information - * out from the header files. Pure's current versions don't - * include this information! - */ -#ifdef PURE_PURIFY_VERSION - ins(d, "PURIFY_VERSION", PURE_PURIFY_VERSION); -#else - PyDict_SetItemString(d, "PURIFY_VERSION", Py_None); -#endif - - /* these aren't terribly useful because purify_exit() isn't - * exported correctly. See the note at the top of the file. - */ -#ifdef PURIFY_EXIT_ERRORS - ins(d, "PURIFY_EXIT_ERRORS", PURIFY_EXIT_ERRORS); -#endif -#ifdef PURIFY_EXIT_LEAKS - ins(d, "PURIFY_EXIT_LEAKS", PURIFY_EXIT_LEAKS); -#endif -#ifdef PURIFY_EXIT_PLEAKS - ins(d, "PURIFY_EXIT_PLEAKS", PURIFY_EXIT_PLEAKS); -#endif - - -#ifdef PURE_QUANTIFY_VERSION - ins(d, "QUANTIFY_VERSION", PURE_QUANTIFY_VERSION); -#else - PyDict_SetItemString(d, "QUANTIFY_VERSION", Py_None); -#endif -} |