source: python/trunk/Modules/puremodule.c@ 1381

Last change on this file since 1381 was 391, checked in by dmik, 12 years ago

python: Merge vendor 2.7.6 to trunk.
  • Property svn:eol-style set to native
File size: 31.9 KB
Line 
1/* This module exports the C API to such Pure Software Inc. (tm) (now
2 * called Pure Atria Corporation) products as Purify (tm) and Quantify
3 * (tm). Other packages could be added, but I didn't have those products
4 * and thus lack the API documentation.
5 *
6 * Currently supported: Quantify 2.x, Purify 3.x
7 *
8 * You need to decide which products you want to incorporate into the
9 * module when you compile this file. The way to do this is to edit
10 * <Python>/Modules/Setup to pass the appropriate flags to the compiler.
11 * -DWITH_PURIFY compiles in the Purify support, and -DWITH_QUANTIFY
12 * compiles in the Quantify support. -DWITH_ALL_PURE compiles in both.
13 * You can also build a Purify'd or Quantify'd interpreter by passing in
14 * the LINKCC variable to make. E.g. if you want to build a Purify'd
15 * interpreter and are using gcc, build Python with this command:
16 *
17 * make LINKCC='purify gcc'
18 *
19 * It would be nice (and probably easy) to provide this file as a shared
20 * library, however since it doesn't appear that Pure gives us shared
21 * libraries of the stubs, it doesn't really matter. For now, you have to
22 * link this file in statically.
23 *
24 * Major bogosity. The purify.h header file exports purify_exit(), but
25 * guess what? It is not defined in the libpurify_stubs.a file! I tried
26 * to fake one here, hoping the Pure linker would Do The Right Thing when
27 * instrumented for Purify, but it doesn't seem to, so I don't export
28 * purify_exit() to the Python layer. In Python you should raise a
29 * SystemExit exception anyway.
30 *
31 * The actual purify.h and quantify.h files which embody the APIs are
32 * copyrighted by Pure Software, Inc. and are only attainable through them.
33 * This module assumes you have legally installed licenses of their
34 * software. Contact them on the Web via <http://www.pureatria.com/>
35 *
36 * Author: Barry Warsaw <bwarsaw@python.org>
37 * <bwarsaw@cnri.reston.va.us>
38 */
39
40#include "Python.h"
41
42#if defined(WITH_PURIFY) || defined(WITH_ALL_PURE)
43# include <purify.h>
44# define HAS_PURIFY_EXIT 0 /* See note at top of file */
45# define PURE_PURIFY_VERSION 3 /* not provided by purify.h */
46#endif
47#if defined(WITH_QUANTIFY) || defined(WITH_ALL_PURE)
48# include <quantify.h>
49# define PURE_QUANTIFY_VERSION 2 /* not provided by quantify.h */
50#endif
51#if defined(PURIFY_H) || defined(QUANTIFY_H)
52# define COMMON_PURE_FUNCTIONS
53#endif /* PURIFY_H || QUANTIFY_H */
54
55typedef int (*VoidArgFunc)(void);
56typedef int (*StringArgFunc)(char*);
57typedef int (*PrintfishFunc)(const char*, ...);
58typedef int (*StringIntArgFunc)(const char*, int);
59
60
61
62static PyObject*
63call_voidarg_function(VoidArgFunc func, PyObject *self, PyObject *args)
64{
65 int status;
66
67 if (!PyArg_ParseTuple(args, ""))
68 return NULL;
69
70 status = func();
71 return Py_BuildValue("i", status);
72}
73
74static PyObject*
75call_stringarg_function(StringArgFunc func, PyObject *self, PyObject *args)
76{
77 int status;
78 char* stringarg;
79
80 if (!PyArg_ParseTuple(args, "s", &stringarg))
81 return NULL;
82
83 status = func(stringarg);
84 return Py_BuildValue("i", status);
85}
86
87static PyObject*
88call_stringorint_function(StringArgFunc func, PyObject *self, PyObject *args)
89{
90 int status;
91 int intarg;
92 char* stringarg;
93
94 /* according to the quantify.h file, the argument to
95 * quantify_*_recording_system_call can be an integer or a string,
96 * but the functions are prototyped as taking a single char*
97 * argument. Yikes!
98 */
99 if (PyArg_ParseTuple(args, "i", &intarg))
100 /* func is prototyped as int(*)(char*)
101 * better shut up the compiler
102 */
103 status = func((char*)intarg);
104
105 else {
106 PyErr_Clear();
107 if (!PyArg_ParseTuple(args, "s", &stringarg))
108 return NULL;
109 else
110 status = func(stringarg);
111 }
112 return Py_BuildValue("i", status);
113}
114
115static PyObject*
116call_printfish_function(PrintfishFunc func, PyObject *self, PyObject *args)
117{
118 /* we support the printf() style vararg functions by requiring the
119 * formatting be done in Python. At the C level we pass just a string
120 * to the printf() style function.
121 */
122 int status;
123 char* argstring;
124
125 if (!PyArg_ParseTuple(args, "s", &argstring))
126 return NULL;
127
128 status = func("%s", argstring);
129 return Py_BuildValue("i", status);
130}
131
132static PyObject*
133call_intasaddr_function(StringArgFunc func, PyObject *self, PyObject *args)
134{
135 long memrep;
136 int id;
137
138 if (!PyArg_ParseTuple(args, "l", &memrep))
139 return NULL;
140
141 id = func((char*)memrep);
142 return Py_BuildValue("i", id);
143}
144
145static PyObject*
146call_stringandint_function(StringIntArgFunc func, PyObject *self,
147 PyObject *args)
148{
149 long srcrep;
150 int size;
151 int status;
152
153 if (!PyArg_ParseTuple(args, "li", &srcrep, &size))
154 return NULL;
155
156 status = func((char*)srcrep, size);
157 return Py_BuildValue("i", status);
158}
159
160
161
162/* functions common to all products
163 *
164 * N.B. These printf() style functions are a bit of a kludge. Since the
165 * API doesn't provide vprintf versions of them, we can't call them
166 * directly. They don't support all the standard printf % modifiers
167 * anyway. The way to use these is to use Python's % string operator to do
168 * the formatting. By the time these functions get the thing to print,
169 * it's already a string, and they just use "%s" as the format string.
170 */
171
172#ifdef COMMON_PURE_FUNCTIONS
173
174static PyObject*
175pure_pure_logfile_printf(PyObject* self, PyObject* args)
176{
177 return call_printfish_function(pure_logfile_printf, self, args);
178}
179
180static PyObject*
181pure_pure_printf(PyObject* self, PyObject* args)
182{
183 return call_printfish_function(pure_printf, self, args);
184}
185
186static PyObject*
187pure_pure_printf_with_banner(PyObject* self, PyObject* args)
188{
189 return call_printfish_function(pure_printf_with_banner, self, args);
190}
191
192
193#endif /* COMMON_PURE_FUNCTIONS */
194
195
196
197/* Purify functions
198 *
199 * N.B. There are some interfaces described in the purify.h file that are
200 * not described in the manual.
201 *
202 * Unsigned longs purify_report_{address,number,type,result} are not
203 * accessible from the Python layer since they seem mostly useful when
204 * purify_stop_here() is called by the (C) debugger. The same is true of
205 * the purify_stop_here_internal() function so it isn't exported either.
206 * And purify_stop_here() should never be called directly.
207 *
208 * The header file says purify_{new,all,clear_new}_reports() are obsolete
209 * so they aren't exported.
210 *
211 * None of the custom dynamic loader functions are exported.
212 *
213 * purify_unsafe_memcpy() isn't exported.
214 *
215 * purify_{start,size}_of_block() aren't exported.
216 *
217 * The manual that I have says that the prototype for the second argument
218 * to purify_map_pool is:
219 *
220 * void (*fn)(char*)
221 *
222 * but the purify.h file declares it as:
223 *
224 * void (*fn)(char*, int, void*)
225 *
226 * and does not explain what the other arguments are for. I support the
227 * latter but I don't know if I do it right or usefully.
228 *
229 * The header file says that purify_describe() returns a char* which is the
230 * pointer passed to it. The manual says it returns an int, but I believe
231 * that is a typo.
232 */
233#ifdef PURIFY_H
234
235static PyObject*
236pure_purify_all_inuse(PyObject *self, PyObject *args)
237{
238 return call_voidarg_function(purify_all_inuse, self, args);
239}
240static PyObject*
241pure_purify_all_leaks(PyObject *self, PyObject *args)
242{
243 return call_voidarg_function(purify_all_leaks, self, args);
244}
245static PyObject*
246pure_purify_new_inuse(PyObject *self, PyObject *args)
247{
248 return call_voidarg_function(purify_new_inuse, self, args);
249}
250static PyObject*
251pure_purify_new_leaks(PyObject *self, PyObject *args)
252{
253 return call_voidarg_function(purify_new_leaks, self, args);
254}
255static PyObject*
256pure_purify_clear_inuse(PyObject *self, PyObject *args)
257{
258 return call_voidarg_function(purify_clear_inuse, self, args);
259}
260static PyObject*
261pure_purify_clear_leaks(PyObject *self, PyObject *args)
262{
263 return call_voidarg_function(purify_clear_leaks, self, args);
264}
265static PyObject*
266pure_purify_all_fds_inuse(PyObject *self, PyObject *args)
267{
268 return call_voidarg_function(purify_all_fds_inuse, self, args);
269}
270static PyObject*
271pure_purify_new_fds_inuse(PyObject *self, PyObject *args)
272{
273 return call_voidarg_function(purify_new_fds_inuse, self, args);
274}
275static PyObject*
276pure_purify_printf_with_call_chain(PyObject *self, PyObject *args)
277{
278 return call_printfish_function(purify_printf_with_call_chain,
279 self, args);
280}
281static PyObject*
282pure_purify_set_pool_id(PyObject *self, PyObject *args)
283{
284 long memrep;
285 int id;
286
287 if (!PyArg_ParseTuple(args, "li:purify_set_pool_id", &memrep, &id))
288 return NULL;
289
290 purify_set_pool_id((char*)memrep, id);
291 Py_INCREF(Py_None);
292 return Py_None;
293}
294static PyObject*
295pure_purify_get_pool_id(PyObject *self, PyObject *args)
296{
297 return call_intasaddr_function(purify_get_pool_id, self, args);
298}
299static PyObject*
300pure_purify_set_user_data(PyObject *self, PyObject *args)
301{
302 long memrep;
303 long datarep;
304
305 if (!PyArg_ParseTuple(args, "ll:purify_set_user_data", &memrep, &datarep))
306 return NULL;
307
308 purify_set_user_data((char*)memrep, (void*)datarep);
309 Py_INCREF(Py_None);
310 return Py_None;
311}
312static PyObject*
313pure_purify_get_user_data(PyObject *self, PyObject *args)
314{
315 /* can't use call_intasaddr_function() since purify_get_user_data()
316 * returns a void*
317 */
318 long memrep;
319 void* data;
320
321 if (!PyArg_ParseTuple(args, "l:purify_get_user_data", &memrep))
322 return NULL;
323
324 data = purify_get_user_data((char*)memrep);
325 return Py_BuildValue("l", (long)data);
326}
327
328
329/* this global variable is shared by both mapping functions:
330 * pure_purify_map_pool() and pure_purify_map_pool_id(). Since they cache
331 * this variable it should be safe in the face of recursion or cross
332 * calling.
333 *
334 * Further note that the prototype for the callback function is wrong in
335 * the Purify manual. The manual says the function takes a single char*,
336 * but the header file says it takes an additional int and void*. I have
337 * no idea what these are for!
338 */
339static PyObject* MapCallable = NULL;
340
341static void
342map_pool_callback(char* mem, int user_size, void *user_aux_data)
343{
344 long memrep = (long)mem;
345 long user_aux_data_rep = (long)user_aux_data;
346 PyObject* result;
347 PyObject* memobj = Py_BuildValue("lil", memrep, user_size,
348 user_aux_data_rep);
349
350 if (memobj == NULL)
351 return;
352
353 result = PyEval_CallObject(MapCallable, memobj);
354 Py_DECREF(result);
355 Py_DECREF(memobj);
356}
357
358static PyObject*
359pure_purify_map_pool(PyObject *self, PyObject *args)
360{
361 /* cache global variable in case of recursion */
362 PyObject* saved_callable = MapCallable;
363 PyObject* arg_callable;
364 int id;
365
366 if (!PyArg_ParseTuple(args, "iO:purify_map_pool", &id, &arg_callable))
367 return NULL;
368
369 if (!PyCallable_Check(arg_callable)) {
370 PyErr_SetString(PyExc_TypeError,
371 "Second argument must be callable");
372 return NULL;
373 }
374 MapCallable = arg_callable;
375 purify_map_pool(id, map_pool_callback);
376 MapCallable = saved_callable;
377
378 Py_INCREF(Py_None);
379 return Py_None;
380}
381
382static void
383PurifyMapPoolIdCallback(int id)
384{
385 PyObject* result;
386 PyObject* intobj = Py_BuildValue("i", id);
387
388 if (intobj == NULL)
389 return;
390
391 result = PyEval_CallObject(MapCallable, intobj);
392 Py_DECREF(result);
393 Py_DECREF(intobj);
394}
395
396static PyObject*
397pure_purify_map_pool_id(PyObject *self, PyObject *args)
398{
399 /* cache global variable in case of recursion */
400 PyObject* saved_callable = MapCallable;
401 PyObject* arg_callable;
402
403 if (!PyArg_ParseTuple(args, "O:purify_map_pool_id", &arg_callable))
404 return NULL;
405
406 if (!PyCallable_Check(arg_callable)) {
407 PyErr_SetString(PyExc_TypeError, "Argument must be callable.");
408 return NULL;
409 }
410
411 MapCallable = arg_callable;
412 purify_map_pool_id(PurifyMapPoolIdCallback);
413 MapCallable = saved_callable;
414
415 Py_INCREF(Py_None);
416 return Py_None;
417}
418
419
420
421static PyObject*
422pure_purify_new_messages(PyObject *self, PyObject *args)
423{
424 return call_voidarg_function(purify_new_messages, self, args);
425}
426static PyObject*
427pure_purify_all_messages(PyObject *self, PyObject *args)
428{
429 return call_voidarg_function(purify_all_messages, self, args);
430}
431static PyObject*
432pure_purify_clear_messages(PyObject *self, PyObject *args)
433{
434 return call_voidarg_function(purify_clear_messages, self, args);
435}
436static PyObject*
437pure_purify_clear_new_messages(PyObject *self, PyObject *args)
438{
439 return call_voidarg_function(purify_clear_new_messages, self, args);
440}
441static PyObject*
442pure_purify_start_batch(PyObject *self, PyObject *args)
443{
444 return call_voidarg_function(purify_start_batch, self, args);
445}
446static PyObject*
447pure_purify_start_batch_show_first(PyObject *self, PyObject *args)
448{
449 return call_voidarg_function(purify_start_batch_show_first,
450 self, args);
451}
452static PyObject*
453pure_purify_stop_batch(PyObject *self, PyObject *args)
454{
455 return call_voidarg_function(purify_stop_batch, self, args);
456}
457static PyObject*
458pure_purify_name_thread(PyObject *self, PyObject *args)
459{
460 /* can't strictly use call_stringarg_function since
461 * purify_name_thread takes a const char*, not a char*
462 */
463 int status;
464 char* stringarg;
465
466 if (!PyArg_ParseTuple(args, "s:purify_name_thread", &stringarg))
467 return NULL;
468
469 status = purify_name_thread(stringarg);
470 return Py_BuildValue("i", status);
471}
472static PyObject*
473pure_purify_watch(PyObject *self, PyObject *args)
474{
475 return call_intasaddr_function(purify_watch, self, args);
476}
477static PyObject*
478pure_purify_watch_1(PyObject *self, PyObject *args)
479{
480 return call_intasaddr_function(purify_watch_1, self, args);
481}
482static PyObject*
483pure_purify_watch_2(PyObject *self, PyObject *args)
484{
485 return call_intasaddr_function(purify_watch_2, self, args);
486}
487static PyObject*
488pure_purify_watch_4(PyObject *self, PyObject *args)
489{
490 return call_intasaddr_function(purify_watch_4, self, args);
491}
492static PyObject*
493pure_purify_watch_8(PyObject *self, PyObject *args)
494{
495 return call_intasaddr_function(purify_watch_8, self, args);
496}
497static PyObject*
498pure_purify_watch_w_1(PyObject *self, PyObject *args)
499{
500 return call_intasaddr_function(purify_watch_w_1, self, args);
501}
502static PyObject*
503pure_purify_watch_w_2(PyObject *self, PyObject *args)
504{
505 return call_intasaddr_function(purify_watch_w_2, self, args);
506}
507static PyObject*
508pure_purify_watch_w_4(PyObject *self, PyObject *args)
509{
510 return call_intasaddr_function(purify_watch_w_4, self, args);
511}
512static PyObject*
513pure_purify_watch_w_8(PyObject *self, PyObject *args)
514{
515 return call_intasaddr_function(purify_watch_w_8, self, args);
516}
517static PyObject*
518pure_purify_watch_r_1(PyObject *self, PyObject *args)
519{
520 return call_intasaddr_function(purify_watch_r_1, self, args);
521}
522static PyObject*
523pure_purify_watch_r_2(PyObject *self, PyObject *args)
524{
525 return call_intasaddr_function(purify_watch_r_2, self, args);
526}
527static PyObject*
528pure_purify_watch_r_4(PyObject *self, PyObject *args)
529{
530 return call_intasaddr_function(purify_watch_r_4, self, args);
531}
532static PyObject*
533pure_purify_watch_r_8(PyObject *self, PyObject *args)
534{
535 return call_intasaddr_function(purify_watch_r_8, self, args);
536}
537static PyObject*
538pure_purify_watch_rw_1(PyObject *self, PyObject *args)
539{
540 return call_intasaddr_function(purify_watch_rw_1, self, args);
541}
542static PyObject*
543pure_purify_watch_rw_2(PyObject *self, PyObject *args)
544{
545 return call_intasaddr_function(purify_watch_rw_2, self, args);
546}
547static PyObject*
548pure_purify_watch_rw_4(PyObject *self, PyObject *args)
549{
550 return call_intasaddr_function(purify_watch_rw_4, self, args);
551}
552static PyObject*
553pure_purify_watch_rw_8(PyObject *self, PyObject *args)
554{
555 return call_intasaddr_function(purify_watch_rw_8, self, args);
556}
557
558static PyObject*
559pure_purify_watch_n(PyObject *self, PyObject *args)
560{
561 long addrrep;
562 unsigned int size;
563 char* type;
564 int status;
565
566 if (!PyArg_ParseTuple(args, "lis:purify_watch_n", &addrrep, &size, &type))
567 return NULL;
568
569 status = purify_watch_n((char*)addrrep, size, type);
570 return Py_BuildValue("i", status);
571}
572
573static PyObject*
574pure_purify_watch_info(PyObject *self, PyObject *args)
575{
576 return call_voidarg_function(purify_watch_info, self, args);
577}
578
579static PyObject*
580pure_purify_watch_remove(PyObject *self, PyObject *args)
581{
582 int watchno;
583 int status;
584
585 if (!PyArg_ParseTuple(args, "i:purify_watch_remove", &watchno))
586 return NULL;
587
588 status = purify_watch_remove(watchno);
589 return Py_BuildValue("i", status);
590}
591
592static PyObject*
593pure_purify_watch_remove_all(PyObject *self, PyObject *args)
594{
595 return call_voidarg_function(purify_watch_remove_all, self, args);
596}
597static PyObject*
598pure_purify_describe(PyObject *self, PyObject *args)
599{
600 long addrrep;
601 char* rtn;
602
603 if (!PyArg_ParseTuple(args, "l:purify_describe", &addrrep))
604 return NULL;
605
606 rtn = purify_describe((char*)addrrep);
607 return Py_BuildValue("l", (long)rtn);
608}
609
610static PyObject*
611pure_purify_what_colors(PyObject *self, PyObject *args)
612{
613 long addrrep;
614 unsigned int size;
615 int status;
616
617 if (!PyArg_ParseTuple(args, "li:purify_what_colors", &addrrep, &size))
618 return NULL;
619
620 status = purify_what_colors((char*)addrrep, size);
621 return Py_BuildValue("i", status);
622}
623
624static PyObject*
625pure_purify_is_running(PyObject *self, PyObject *args)
626{
627 return call_voidarg_function(purify_is_running, self, args);
628}
629
630static PyObject*
631pure_purify_assert_is_readable(PyObject *self, PyObject *args)
632{
633 return call_stringandint_function(purify_assert_is_readable,
634 self, args);
635}
636static PyObject*
637pure_purify_assert_is_writable(PyObject *self, PyObject *args)
638{
639 return call_stringandint_function(purify_assert_is_writable,
640 self, args);
641}
642
643#if HAS_PURIFY_EXIT
644
645/* I wish I could include this, but I can't. See the notes at the top of
646 * the file.
647 */
648
649static PyObject*
650pure_purify_exit(PyObject *self, PyObject *args)
651{
652 int status;
653
654 if (!PyArg_ParseTuple(args, "i:purify_exit", &status))
655 return NULL;
656
657 /* purify_exit doesn't always act like exit(). See the manual */
658 purify_exit(status);
659 Py_INCREF(Py_None);
660 return Py_None;
661}
662#endif /* HAS_PURIFY_EXIT */
663
664#endif /* PURIFY_H */
665
666
667
668/* Quantify functions
669 *
670 * N.B. Some of these functions are only described in the quantify.h file,
671 * not in the version of the hardcopy manual that I had. If you're not
672 * sure what some of these do, check the header file, it is documented
673 * fairly well.
674 *
675 * None of the custom dynamic loader functions are exported.
676 *
677 */
678#ifdef QUANTIFY_H
679
680static PyObject*
681pure_quantify_is_running(PyObject *self, PyObject *args)
682{
683 return call_voidarg_function(quantify_is_running, self, args);
684}
685static PyObject*
686pure_quantify_help(PyObject *self, PyObject *args)
687{
688 return call_voidarg_function(quantify_help, self, args);
689}
690static PyObject*
691pure_quantify_print_recording_state(PyObject *self, PyObject *args)
692{
693 return call_voidarg_function(quantify_print_recording_state,
694 self, args);
695}
696static PyObject*
697pure_quantify_start_recording_data(PyObject *self, PyObject *args)
698{
699 return call_voidarg_function(quantify_start_recording_data,
700 self, args);
701}
702static PyObject*
703pure_quantify_stop_recording_data(PyObject *self, PyObject *args)
704{
705 return call_voidarg_function(quantify_stop_recording_data, self, args);
706}
707static PyObject*
708pure_quantify_is_recording_data(PyObject *self, PyObject *args)
709{
710 return call_voidarg_function(quantify_is_recording_data, self, args);
711}
712static PyObject*
713pure_quantify_start_recording_system_calls(PyObject *self, PyObject *args)
714{
715 return call_voidarg_function(quantify_start_recording_system_calls,
716 self, args);
717}
718static PyObject*
719pure_quantify_stop_recording_system_calls(PyObject *self, PyObject *args)
720{
721 return call_voidarg_function(quantify_stop_recording_system_calls,
722 self, args);
723}
724static PyObject*
725pure_quantify_is_recording_system_calls(PyObject *self, PyObject *args)
726{
727 return call_voidarg_function(quantify_is_recording_system_calls,
728 self, args);
729}
730static PyObject*
731pure_quantify_start_recording_system_call(PyObject *self, PyObject *args)
732{
733 return call_stringorint_function(quantify_start_recording_system_call,
734 self, args);
735}
736static PyObject*
737pure_quantify_stop_recording_system_call(PyObject *self, PyObject *args)
738{
739 return call_stringorint_function(quantify_stop_recording_system_call,
740 self, args);
741}
742static PyObject*
743pure_quantify_is_recording_system_call(PyObject *self, PyObject *args)
744{
745 return call_stringorint_function(quantify_is_recording_system_call,
746 self, args);
747}
748static PyObject*
749pure_quantify_start_recording_dynamic_library_data(PyObject *self, PyObject *args)
750{
751 return call_voidarg_function(
752 quantify_start_recording_dynamic_library_data,
753 self, args);
754}
755static PyObject*
756pure_quantify_stop_recording_dynamic_library_data(PyObject *self, PyObject *args)
757{
758 return call_voidarg_function(
759 quantify_stop_recording_dynamic_library_data,
760 self, args);
761}
762static PyObject*
763pure_quantify_is_recording_dynamic_library_data(PyObject *self, PyObject *args)
764{
765 return call_voidarg_function(
766 quantify_is_recording_dynamic_library_data,
767 self, args);
768}
769static PyObject*
770pure_quantify_start_recording_register_window_traps(PyObject *self, PyObject *args)
771{
772 return call_voidarg_function(
773 quantify_start_recording_register_window_traps,
774 self, args);
775}
776static PyObject*
777pure_quantify_stop_recording_register_window_traps(PyObject *self, PyObject *args)
778{
779 return call_voidarg_function(
780 quantify_stop_recording_register_window_traps,
781 self, args);
782}
783static PyObject*
784pure_quantify_is_recording_register_window_traps(PyObject *self, PyObject *args)
785{
786 return call_voidarg_function(
787 quantify_is_recording_register_window_traps,
788 self, args);
789}
790static PyObject*
791pure_quantify_disable_recording_data(PyObject *self, PyObject *args)
792{
793 return call_voidarg_function(quantify_disable_recording_data,
794 self, args);
795}
796static PyObject*
797pure_quantify_clear_data(PyObject *self, PyObject *args)
798{
799 return call_voidarg_function(quantify_clear_data, self, args);
800}
801static PyObject*
802pure_quantify_save_data(PyObject *self, PyObject *args)
803{
804 return call_voidarg_function(quantify_save_data, self, args);
805}
806static PyObject*
807pure_quantify_save_data_to_file(PyObject *self, PyObject *args)
808{
809 return call_stringarg_function(quantify_save_data_to_file, self, args);
810}
811static PyObject*
812pure_quantify_add_annotation(PyObject *self, PyObject *args)
813{
814 return call_stringarg_function(quantify_add_annotation, self, args);
815}
816
817#endif /* QUANTIFY_H */
818
819
820
821/* external interface
822 */
823static struct PyMethodDef
824pure_methods[] = {
825#ifdef COMMON_PURE_FUNCTIONS
826 {"pure_logfile_printf", pure_pure_logfile_printf, METH_VARARGS},
827 {"pure_printf", pure_pure_printf, METH_VARARGS},
828 {"pure_printf_with_banner", pure_pure_printf_with_banner, METH_VARARGS},
829#endif /* COMMON_PURE_FUNCTIONS */
830#ifdef PURIFY_H
831 {"purify_all_inuse", pure_purify_all_inuse, METH_VARARGS},
832 {"purify_all_leaks", pure_purify_all_leaks, METH_VARARGS},
833 {"purify_new_inuse", pure_purify_new_inuse, METH_VARARGS},
834 {"purify_new_leaks", pure_purify_new_leaks, METH_VARARGS},
835 {"purify_clear_inuse", pure_purify_clear_inuse, METH_VARARGS},
836 {"purify_clear_leaks", pure_purify_clear_leaks, METH_VARARGS},
837 {"purify_all_fds_inuse", pure_purify_all_fds_inuse, METH_VARARGS},
838 {"purify_new_fds_inuse", pure_purify_new_fds_inuse, METH_VARARGS},
839 /* see purify.h */
840 {"purify_logfile_printf", pure_pure_logfile_printf, METH_VARARGS},
841 {"purify_printf", pure_pure_printf, METH_VARARGS},
842 {"purify_printf_with_banner", pure_pure_printf_with_banner, METH_VARARGS},
843 /**/
844 {"purify_printf_with_call_chain", pure_purify_printf_with_call_chain, METH_VARARGS},
845 {"purify_set_pool_id", pure_purify_set_pool_id, METH_VARARGS},
846 {"purify_get_pool_id", pure_purify_get_pool_id, METH_VARARGS},
847 {"purify_set_user_data", pure_purify_set_user_data, METH_VARARGS},
848 {"purify_get_user_data", pure_purify_get_user_data, METH_VARARGS},
849 {"purify_map_pool", pure_purify_map_pool, METH_VARARGS},
850 {"purify_map_pool_id", pure_purify_map_pool_id, METH_VARARGS},
851 {"purify_new_messages", pure_purify_new_messages, METH_VARARGS},
852 {"purify_all_messages", pure_purify_all_messages, METH_VARARGS},
853 {"purify_clear_messages", pure_purify_clear_messages, METH_VARARGS},
854 {"purify_clear_new_messages", pure_purify_clear_new_messages, METH_VARARGS},
855 {"purify_start_batch", pure_purify_start_batch, METH_VARARGS},
856 {"purify_start_batch_show_first", pure_purify_start_batch_show_first, METH_VARARGS},
857 {"purify_stop_batch", pure_purify_stop_batch, METH_VARARGS},
858 {"purify_name_thread", pure_purify_name_thread, METH_VARARGS},
859 {"purify_watch", pure_purify_watch, METH_VARARGS},
860 {"purify_watch_1", pure_purify_watch_1, METH_VARARGS},
861 {"purify_watch_2", pure_purify_watch_2, METH_VARARGS},
862 {"purify_watch_4", pure_purify_watch_4, METH_VARARGS},
863 {"purify_watch_8", pure_purify_watch_8, METH_VARARGS},
864 {"purify_watch_w_1", pure_purify_watch_w_1, METH_VARARGS},
865 {"purify_watch_w_2", pure_purify_watch_w_2, METH_VARARGS},
866 {"purify_watch_w_4", pure_purify_watch_w_4, METH_VARARGS},
867 {"purify_watch_w_8", pure_purify_watch_w_8, METH_VARARGS},
868 {"purify_watch_r_1", pure_purify_watch_r_1, METH_VARARGS},
869 {"purify_watch_r_2", pure_purify_watch_r_2, METH_VARARGS},
870 {"purify_watch_r_4", pure_purify_watch_r_4, METH_VARARGS},
871 {"purify_watch_r_8", pure_purify_watch_r_8, METH_VARARGS},
872 {"purify_watch_rw_1", pure_purify_watch_rw_1, METH_VARARGS},
873 {"purify_watch_rw_2", pure_purify_watch_rw_2, METH_VARARGS},
874 {"purify_watch_rw_4", pure_purify_watch_rw_4, METH_VARARGS},
875 {"purify_watch_rw_8", pure_purify_watch_rw_8, METH_VARARGS},
876 {"purify_watch_n", pure_purify_watch_n, METH_VARARGS},
877 {"purify_watch_info", pure_purify_watch_info, METH_VARARGS},
878 {"purify_watch_remove", pure_purify_watch_remove, METH_VARARGS},
879 {"purify_watch_remove_all", pure_purify_watch_remove_all, METH_VARARGS},
880 {"purify_describe", pure_purify_describe, METH_VARARGS},
881 {"purify_what_colors", pure_purify_what_colors, METH_VARARGS},
882 {"purify_is_running", pure_purify_is_running, METH_VARARGS},
883 {"purify_assert_is_readable", pure_purify_assert_is_readable, METH_VARARGS},
884 {"purify_assert_is_writable", pure_purify_assert_is_writable, METH_VARARGS},
885#if HAS_PURIFY_EXIT
886 /* I wish I could include this, but I can't. See the notes at the
887 * top of the file.
888 */
889 {"purify_exit", pure_purify_exit, METH_VARARGS},
890#endif /* HAS_PURIFY_EXIT */
891#endif /* PURIFY_H */
892#ifdef QUANTIFY_H
893 {"quantify_is_running", pure_quantify_is_running, METH_VARARGS},
894 {"quantify_help", pure_quantify_help, METH_VARARGS},
895 {"quantify_print_recording_state", pure_quantify_print_recording_state, METH_VARARGS},
896 {"quantify_start_recording_data", pure_quantify_start_recording_data, METH_VARARGS},
897 {"quantify_stop_recording_data", pure_quantify_stop_recording_data, METH_VARARGS},
898 {"quantify_is_recording_data", pure_quantify_is_recording_data, METH_VARARGS},
899 {"quantify_start_recording_system_calls",
900 pure_quantify_start_recording_system_calls, METH_VARARGS},
901 {"quantify_stop_recording_system_calls",
902 pure_quantify_stop_recording_system_calls, METH_VARARGS},
903 {"quantify_is_recording_system_calls",
904 pure_quantify_is_recording_system_calls, METH_VARARGS},
905 {"quantify_start_recording_system_call",
906 pure_quantify_start_recording_system_call, METH_VARARGS},
907 {"quantify_stop_recording_system_call",
908 pure_quantify_stop_recording_system_call, METH_VARARGS},
909 {"quantify_is_recording_system_call",
910 pure_quantify_is_recording_system_call, METH_VARARGS},
911 {"quantify_start_recording_dynamic_library_data",
912 pure_quantify_start_recording_dynamic_library_data, METH_VARARGS},
913 {"quantify_stop_recording_dynamic_library_data",
914 pure_quantify_stop_recording_dynamic_library_data, METH_VARARGS},
915 {"quantify_is_recording_dynamic_library_data",
916 pure_quantify_is_recording_dynamic_library_data, METH_VARARGS},
917 {"quantify_start_recording_register_window_traps",
918 pure_quantify_start_recording_register_window_traps, METH_VARARGS},
919 {"quantify_stop_recording_register_window_traps",
920 pure_quantify_stop_recording_register_window_traps, METH_VARARGS},
921 {"quantify_is_recording_register_window_traps",
922 pure_quantify_is_recording_register_window_traps, METH_VARARGS},
923 {"quantify_disable_recording_data",
924 pure_quantify_disable_recording_data, METH_VARARGS},
925 {"quantify_clear_data", pure_quantify_clear_data, METH_VARARGS},
926 {"quantify_save_data", pure_quantify_save_data, METH_VARARGS},
927 {"quantify_save_data_to_file", pure_quantify_save_data_to_file, METH_VARARGS},
928 {"quantify_add_annotation", pure_quantify_add_annotation, METH_VARARGS},
929#endif /* QUANTIFY_H */
930 {NULL, NULL} /* sentinel */
931};
932
933
934
935static void
936ins(d, name, val)
937 PyObject *d;
938 char* name;
939 long val;
940{
941 PyObject *v = PyInt_FromLong(val);
942 if (v) {
943 (void)PyDict_SetItemString(d, name, v);
944 Py_DECREF(v);
945 }
946}
947
948
949void
950initpure()
951{
952 PyObject *m, *d;
953
954 if (PyErr_WarnPy3k("the pure module has been removed in "
955 "Python 3.0", 2) < 0)
956 return;
957
958 m = Py_InitModule("pure", pure_methods);
959 if (m == NULL)
960 return;
961 d = PyModule_GetDict(m);
962
963 /* this is bogus because we should be able to find this information
964 * out from the header files. Pure's current versions don't
965 * include this information!
966 */
967#ifdef PURE_PURIFY_VERSION
968 ins(d, "PURIFY_VERSION", PURE_PURIFY_VERSION);
969#else
970 PyDict_SetItemString(d, "PURIFY_VERSION", Py_None);
971#endif
972
973 /* these aren't terribly useful because purify_exit() isn't
974 * exported correctly. See the note at the top of the file.
975 */
976#ifdef PURIFY_EXIT_ERRORS
977 ins(d, "PURIFY_EXIT_ERRORS", PURIFY_EXIT_ERRORS);
978#endif
979#ifdef PURIFY_EXIT_LEAKS
980 ins(d, "PURIFY_EXIT_LEAKS", PURIFY_EXIT_LEAKS);
981#endif
982#ifdef PURIFY_EXIT_PLEAKS
983 ins(d, "PURIFY_EXIT_PLEAKS", PURIFY_EXIT_PLEAKS);
984#endif
985
986
987#ifdef PURE_QUANTIFY_VERSION
988 ins(d, "QUANTIFY_VERSION", PURE_QUANTIFY_VERSION);
989#else
990 PyDict_SetItemString(d, "QUANTIFY_VERSION", Py_None);
991#endif
992}
Note: See TracBrowser for help on using the repository browser.