2001-10-12 17:57:55 -03:00
|
|
|
/*
|
|
|
|
* This is the High Performance Python Profiler portion of HotShot.
|
|
|
|
*/
|
|
|
|
|
2001-11-28 16:27:42 -04:00
|
|
|
#include "Python.h"
|
2005-10-20 16:59:25 -03:00
|
|
|
#include "code.h"
|
2001-11-28 16:27:42 -04:00
|
|
|
#include "eval.h"
|
|
|
|
#include "frameobject.h"
|
|
|
|
#include "structmember.h"
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
/*
|
|
|
|
* Which timer to use should be made more configurable, but that should not
|
2001-10-12 21:11:10 -03:00
|
|
|
* be difficult. This will do for now.
|
2001-10-12 17:57:55 -03:00
|
|
|
*/
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-10-12 17:57:55 -03:00
|
|
|
#include <windows.h>
|
2006-06-10 09:23:46 -03:00
|
|
|
|
|
|
|
#ifdef HAVE_DIRECT_H
|
2001-10-12 19:08:39 -03:00
|
|
|
#include <direct.h> /* for getcwd() */
|
2006-06-10 09:23:46 -03:00
|
|
|
#endif
|
|
|
|
|
2001-10-13 04:37:52 -03:00
|
|
|
typedef __int64 hs_time;
|
|
|
|
#define GETTIMEOFDAY(P_HS_TIME) \
|
2010-05-09 11:46:46 -03:00
|
|
|
{ LARGE_INTEGER _temp; \
|
|
|
|
QueryPerformanceCounter(&_temp); \
|
|
|
|
*(P_HS_TIME) = _temp.QuadPart; }
|
|
|
|
|
2001-10-12 21:11:10 -03:00
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
#else
|
|
|
|
#ifndef HAVE_GETTIMEOFDAY
|
|
|
|
#error "This module requires gettimeofday() on non-Windows platforms!"
|
|
|
|
#endif
|
2006-04-14 12:07:46 -03:00
|
|
|
#if (defined(PYOS_OS2) && defined(PYCC_GCC)) || defined(__QNX__)
|
2001-10-23 19:26:16 -03:00
|
|
|
#include <sys/time.h>
|
|
|
|
#else
|
2001-10-12 17:57:55 -03:00
|
|
|
#include <sys/resource.h>
|
|
|
|
#include <sys/times.h>
|
2001-10-23 19:26:16 -03:00
|
|
|
#endif
|
2001-10-12 17:57:55 -03:00
|
|
|
typedef struct timeval hs_time;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#if !defined(__cplusplus) && !defined(inline)
|
|
|
|
#ifdef __GNUC__
|
|
|
|
#define inline __inline
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef inline
|
|
|
|
#define inline
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#define BUFFERSIZE 10240
|
|
|
|
|
2002-03-02 22:59:16 -04:00
|
|
|
#if defined(PYOS_OS2) && defined(PYCC_GCC)
|
|
|
|
#define PATH_MAX 260
|
|
|
|
#endif
|
|
|
|
|
2002-09-19 05:03:21 -03:00
|
|
|
#if defined(__sgi) && _COMPILER_VERSION>700 && !defined(PATH_MAX)
|
|
|
|
/* fix PATH_MAX not being defined with MIPSPro 7.x
|
|
|
|
if mode is ANSI C (default) */
|
|
|
|
#define PATH_MAX 1024
|
|
|
|
#endif
|
|
|
|
|
2001-10-12 19:08:39 -03:00
|
|
|
#ifndef PATH_MAX
|
|
|
|
# ifdef MAX_PATH
|
|
|
|
# define PATH_MAX MAX_PATH
|
2002-09-30 13:19:48 -03:00
|
|
|
# elif defined (_POSIX_PATH_MAX)
|
|
|
|
# define PATH_MAX _POSIX_PATH_MAX
|
2001-10-12 19:08:39 -03:00
|
|
|
# else
|
|
|
|
# error "Need a defn. for PATH_MAX in _hotshot.c"
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
typedef struct {
|
|
|
|
PyObject_HEAD
|
|
|
|
PyObject *filemap;
|
|
|
|
PyObject *logfilename;
|
2006-02-15 13:27:45 -04:00
|
|
|
Py_ssize_t index;
|
2001-10-12 17:57:55 -03:00
|
|
|
unsigned char buffer[BUFFERSIZE];
|
|
|
|
FILE *logfp;
|
|
|
|
int lineevents;
|
|
|
|
int linetimings;
|
2001-10-15 19:11:02 -03:00
|
|
|
int frametimings;
|
2001-10-12 17:57:55 -03:00
|
|
|
/* size_t filled; */
|
|
|
|
int active;
|
|
|
|
int next_fileno;
|
|
|
|
hs_time prev_timeofday;
|
|
|
|
} ProfilerObject;
|
|
|
|
|
|
|
|
typedef struct {
|
|
|
|
PyObject_HEAD
|
2001-10-29 16:45:57 -04:00
|
|
|
PyObject *info;
|
2001-10-12 17:57:55 -03:00
|
|
|
FILE *logfp;
|
|
|
|
int linetimings;
|
2001-10-15 19:11:02 -03:00
|
|
|
int frametimings;
|
2001-10-12 17:57:55 -03:00
|
|
|
} LogReaderObject;
|
|
|
|
|
|
|
|
static PyObject * ProfilerError = NULL;
|
|
|
|
|
|
|
|
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifndef MS_WINDOWS
|
2001-10-12 17:57:55 -03:00
|
|
|
#ifdef GETTIMEOFDAY_NO_TZ
|
|
|
|
#define GETTIMEOFDAY(ptv) gettimeofday((ptv))
|
|
|
|
#else
|
|
|
|
#define GETTIMEOFDAY(ptv) gettimeofday((ptv), (struct timezone *)NULL)
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/* The log reader... */
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(logreader_close__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"close()\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Close the log file, preventing additional records from being read.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
logreader_close(LogReaderObject *self, PyObject *args)
|
|
|
|
{
|
2002-07-18 16:11:44 -03:00
|
|
|
if (self->logfp != NULL) {
|
|
|
|
fclose(self->logfp);
|
|
|
|
self->logfp = NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
2002-07-18 16:11:44 -03:00
|
|
|
Py_INCREF(Py_None);
|
|
|
|
|
|
|
|
return Py_None;
|
|
|
|
}
|
|
|
|
|
|
|
|
PyDoc_STRVAR(logreader_fileno__doc__,
|
|
|
|
"fileno() -> file descriptor\n"
|
|
|
|
"Returns the file descriptor for the log file, if open.\n"
|
|
|
|
"Raises ValueError if the log file is closed.");
|
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
logreader_fileno(LogReaderObject *self)
|
|
|
|
{
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
PyErr_SetString(PyExc_ValueError,
|
|
|
|
"logreader's file object already closed");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
return PyInt_FromLong(fileno(self->logfp));
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Log File Format
|
|
|
|
* ---------------
|
|
|
|
*
|
|
|
|
* The log file consists of a sequence of variable-length records.
|
|
|
|
* Each record is identified with a record type identifier in two
|
|
|
|
* bits of the first byte. The two bits are the "least significant"
|
|
|
|
* bits of the byte.
|
|
|
|
*
|
|
|
|
* Low bits: Opcode: Meaning:
|
|
|
|
* 0x00 ENTER enter a frame
|
|
|
|
* 0x01 EXIT exit a frame
|
2002-08-15 11:59:02 -03:00
|
|
|
* 0x02 LINENO execution moved onto a different line
|
2001-10-12 17:57:55 -03:00
|
|
|
* 0x03 OTHER more bits are needed to deecode
|
|
|
|
*
|
|
|
|
* If the type is OTHER, the record is not packed so tightly, and the
|
|
|
|
* remaining bits are used to disambiguate the record type. These
|
|
|
|
* records are not used as frequently so compaction is not an issue.
|
|
|
|
* Each of the first three record types has a highly tailored
|
|
|
|
* structure that allows it to be packed tightly.
|
|
|
|
*
|
|
|
|
* The OTHER records have the following identifiers:
|
|
|
|
*
|
|
|
|
* First byte: Opcode: Meaning:
|
|
|
|
* 0x13 ADD_INFO define a key/value pair
|
|
|
|
* 0x23 DEFINE_FILE define an int->filename mapping
|
|
|
|
* 0x33 LINE_TIMES indicates if LINENO events have tdeltas
|
2001-10-15 19:11:02 -03:00
|
|
|
* 0x43 DEFINE_FUNC define a (fileno,lineno)->funcname mapping
|
|
|
|
* 0x53 FRAME_TIMES indicates if ENTER/EXIT events have tdeltas
|
2001-10-12 17:57:55 -03:00
|
|
|
*
|
|
|
|
* Packed Integers
|
|
|
|
*
|
|
|
|
* "Packed integers" are non-negative integer values encoded as a
|
|
|
|
* sequence of bytes. Each byte is encoded such that the most
|
|
|
|
* significant bit is set if the next byte is also part of the
|
|
|
|
* integer. Each byte provides bits to the least-significant end of
|
|
|
|
* the result; the accumulated value must be shifted up to place the
|
|
|
|
* new bits into the result.
|
|
|
|
*
|
|
|
|
* "Modified packed integers" are packed integers where only a portion
|
|
|
|
* of the first byte is used. In the rest of the specification, these
|
|
|
|
* are referred to as "MPI(n,name)", where "n" is the number of bits
|
|
|
|
* discarded from the least-signicant positions of the byte, and
|
|
|
|
* "name" is a name being given to those "discarded" bits, since they
|
|
|
|
* are a field themselves.
|
|
|
|
*
|
|
|
|
* ENTER records:
|
|
|
|
*
|
|
|
|
* MPI(2,type) fileno -- type is 0x00
|
|
|
|
* PI lineno
|
2001-10-15 19:11:02 -03:00
|
|
|
* PI tdelta -- iff frame times are enabled
|
2001-10-12 17:57:55 -03:00
|
|
|
*
|
|
|
|
* EXIT records
|
|
|
|
*
|
2001-10-15 19:11:02 -03:00
|
|
|
* MPI(2,type) tdelta -- type is 0x01; tdelta will be 0
|
|
|
|
* if frame times are disabled
|
2001-10-12 17:57:55 -03:00
|
|
|
*
|
|
|
|
* LINENO records
|
|
|
|
*
|
|
|
|
* MPI(2,type) lineno -- type is 0x02
|
|
|
|
* PI tdelta -- iff LINENO includes it
|
|
|
|
*
|
|
|
|
* ADD_INFO records
|
|
|
|
*
|
2001-10-15 19:11:02 -03:00
|
|
|
* BYTE type -- always 0x13
|
2001-10-12 17:57:55 -03:00
|
|
|
* PI len1 -- length of first string
|
|
|
|
* BYTE string1[len1] -- len1 bytes of string data
|
|
|
|
* PI len2 -- length of second string
|
|
|
|
* BYTE string2[len2] -- len2 bytes of string data
|
|
|
|
*
|
|
|
|
* DEFINE_FILE records
|
|
|
|
*
|
2001-10-15 19:11:02 -03:00
|
|
|
* BYTE type -- always 0x23
|
2001-10-12 17:57:55 -03:00
|
|
|
* PI fileno
|
|
|
|
* PI len -- length of filename
|
|
|
|
* BYTE filename[len] -- len bytes of string data
|
|
|
|
*
|
2001-10-15 19:11:02 -03:00
|
|
|
* DEFINE_FUNC records
|
|
|
|
*
|
|
|
|
* BYTE type -- always 0x43
|
|
|
|
* PI fileno
|
|
|
|
* PI lineno
|
|
|
|
* PI len -- length of funcname
|
|
|
|
* BYTE funcname[len] -- len bytes of string data
|
|
|
|
*
|
2001-10-12 17:57:55 -03:00
|
|
|
* LINE_TIMES records
|
2001-10-15 19:11:02 -03:00
|
|
|
*
|
|
|
|
* This record can be used only before the start of ENTER/EXIT/LINENO
|
|
|
|
* records. If have_tdelta is true, LINENO records will include the
|
|
|
|
* tdelta field, otherwise it will be omitted. If this record is not
|
|
|
|
* given, LINENO records will not contain the tdelta field.
|
|
|
|
*
|
|
|
|
* BYTE type -- always 0x33
|
2001-10-12 17:57:55 -03:00
|
|
|
* BYTE have_tdelta -- 0 if LINENO does *not* have
|
|
|
|
* timing information
|
2001-10-15 19:11:02 -03:00
|
|
|
* FRAME_TIMES records
|
|
|
|
*
|
|
|
|
* This record can be used only before the start of ENTER/EXIT/LINENO
|
|
|
|
* records. If have_tdelta is true, ENTER and EXIT records will
|
|
|
|
* include the tdelta field, otherwise it will be omitted. If this
|
|
|
|
* record is not given, ENTER and EXIT records will contain the tdelta
|
|
|
|
* field.
|
|
|
|
*
|
|
|
|
* BYTE type -- always 0x53
|
|
|
|
* BYTE have_tdelta -- 0 if ENTER/EXIT do *not* have
|
|
|
|
* timing information
|
2001-10-12 17:57:55 -03:00
|
|
|
*/
|
|
|
|
|
|
|
|
#define WHAT_ENTER 0x00
|
|
|
|
#define WHAT_EXIT 0x01
|
|
|
|
#define WHAT_LINENO 0x02
|
|
|
|
#define WHAT_OTHER 0x03 /* only used in decoding */
|
|
|
|
#define WHAT_ADD_INFO 0x13
|
|
|
|
#define WHAT_DEFINE_FILE 0x23
|
|
|
|
#define WHAT_LINE_TIMES 0x33
|
2001-10-15 19:11:02 -03:00
|
|
|
#define WHAT_DEFINE_FUNC 0x43
|
|
|
|
#define WHAT_FRAME_TIMES 0x53
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
#define ERR_NONE 0
|
|
|
|
#define ERR_EOF -1
|
|
|
|
#define ERR_EXCEPTION -2
|
2001-10-29 16:45:57 -04:00
|
|
|
#define ERR_BAD_RECTYPE -3
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
#define PISIZE (sizeof(int) + 1)
|
|
|
|
#define MPISIZE (PISIZE + 1)
|
|
|
|
|
|
|
|
/* Maximum size of "normal" events -- nothing that contains string data */
|
|
|
|
#define MAXEVENTSIZE (MPISIZE + PISIZE*2)
|
|
|
|
|
|
|
|
|
|
|
|
/* Unpack a packed integer; if "discard" is non-zero, unpack a modified
|
|
|
|
* packed integer with "discard" discarded bits.
|
|
|
|
*/
|
|
|
|
static int
|
|
|
|
unpack_packed_int(LogReaderObject *self, int *pvalue, int discard)
|
|
|
|
{
|
2002-05-29 15:19:14 -03:00
|
|
|
int c;
|
2001-10-12 17:57:55 -03:00
|
|
|
int accum = 0;
|
|
|
|
int bits = 0;
|
|
|
|
int cont;
|
|
|
|
|
|
|
|
do {
|
|
|
|
/* read byte */
|
2010-05-09 11:46:46 -03:00
|
|
|
if ((c = fgetc(self->logfp)) == EOF)
|
2002-05-29 15:19:14 -03:00
|
|
|
return ERR_EOF;
|
|
|
|
accum |= ((c & 0x7F) >> discard) << bits;
|
2001-10-12 17:57:55 -03:00
|
|
|
bits += (7 - discard);
|
2002-05-29 15:19:14 -03:00
|
|
|
cont = c & 0x80;
|
2001-10-12 17:57:55 -03:00
|
|
|
discard = 0;
|
|
|
|
} while (cont);
|
|
|
|
|
|
|
|
*pvalue = accum;
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Unpack a string, which is encoded as a packed integer giving the
|
|
|
|
* length of the string, followed by the string data.
|
|
|
|
*/
|
|
|
|
static int
|
|
|
|
unpack_string(LogReaderObject *self, PyObject **pvalue)
|
|
|
|
{
|
2002-05-29 15:19:14 -03:00
|
|
|
int i;
|
2001-10-12 17:57:55 -03:00
|
|
|
int len;
|
2002-05-29 15:19:14 -03:00
|
|
|
int err;
|
2002-07-19 21:38:01 -03:00
|
|
|
int ch;
|
2002-05-29 15:19:14 -03:00
|
|
|
char *buf;
|
2010-05-09 11:46:46 -03:00
|
|
|
|
2002-05-29 15:19:14 -03:00
|
|
|
if ((err = unpack_packed_int(self, &len, 0)))
|
|
|
|
return err;
|
|
|
|
|
2006-04-13 04:19:01 -03:00
|
|
|
buf = (char *)malloc(len);
|
2006-08-11 22:43:40 -03:00
|
|
|
if (!buf) {
|
2010-05-09 11:46:46 -03:00
|
|
|
PyErr_NoMemory();
|
|
|
|
return ERR_EXCEPTION;
|
2006-08-11 22:43:40 -03:00
|
|
|
}
|
|
|
|
|
2002-05-29 15:19:14 -03:00
|
|
|
for (i=0; i < len; i++) {
|
2002-07-19 21:38:01 -03:00
|
|
|
ch = fgetc(self->logfp);
|
2010-05-09 11:46:46 -03:00
|
|
|
buf[i] = ch;
|
2002-07-19 21:38:01 -03:00
|
|
|
if (ch == EOF) {
|
2002-05-29 15:19:14 -03:00
|
|
|
free(buf);
|
|
|
|
return ERR_EOF;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
}
|
2008-06-09 01:58:54 -03:00
|
|
|
*pvalue = PyString_FromStringAndSize(buf, len);
|
2002-05-29 15:19:14 -03:00
|
|
|
free(buf);
|
|
|
|
if (*pvalue == NULL) {
|
|
|
|
return ERR_EXCEPTION;
|
|
|
|
}
|
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2001-10-29 16:45:57 -04:00
|
|
|
static int
|
2002-05-29 15:19:14 -03:00
|
|
|
unpack_add_info(LogReaderObject *self)
|
2001-10-29 16:45:57 -04:00
|
|
|
{
|
|
|
|
PyObject *key;
|
|
|
|
PyObject *value = NULL;
|
|
|
|
int err;
|
|
|
|
|
|
|
|
err = unpack_string(self, &key);
|
|
|
|
if (!err) {
|
|
|
|
err = unpack_string(self, &value);
|
|
|
|
if (err)
|
|
|
|
Py_DECREF(key);
|
|
|
|
else {
|
|
|
|
PyObject *list = PyDict_GetItem(self->info, key);
|
|
|
|
if (list == NULL) {
|
|
|
|
list = PyList_New(0);
|
|
|
|
if (list == NULL) {
|
|
|
|
err = ERR_EXCEPTION;
|
|
|
|
goto finally;
|
|
|
|
}
|
|
|
|
if (PyDict_SetItem(self->info, key, list)) {
|
2004-08-03 05:33:55 -03:00
|
|
|
Py_DECREF(list);
|
2001-10-29 16:45:57 -04:00
|
|
|
err = ERR_EXCEPTION;
|
|
|
|
goto finally;
|
|
|
|
}
|
2004-08-03 05:33:55 -03:00
|
|
|
Py_DECREF(list);
|
2001-10-29 16:45:57 -04:00
|
|
|
}
|
|
|
|
if (PyList_Append(list, value))
|
|
|
|
err = ERR_EXCEPTION;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
finally:
|
|
|
|
Py_XDECREF(key);
|
|
|
|
Py_XDECREF(value);
|
|
|
|
return err;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static void
|
2002-07-18 16:11:44 -03:00
|
|
|
eof_error(LogReaderObject *self)
|
2001-10-29 16:45:57 -04:00
|
|
|
{
|
2002-07-18 16:11:44 -03:00
|
|
|
fclose(self->logfp);
|
|
|
|
self->logfp = NULL;
|
2001-10-29 16:45:57 -04:00
|
|
|
PyErr_SetString(PyExc_EOFError,
|
|
|
|
"end of file with incomplete profile record");
|
|
|
|
}
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
static PyObject *
|
|
|
|
logreader_tp_iternext(LogReaderObject *self)
|
|
|
|
{
|
2002-05-29 15:19:14 -03:00
|
|
|
int c;
|
|
|
|
int what;
|
2001-10-12 17:57:55 -03:00
|
|
|
int err = ERR_NONE;
|
|
|
|
int lineno = -1;
|
|
|
|
int fileno = -1;
|
|
|
|
int tdelta = -1;
|
|
|
|
PyObject *s1 = NULL, *s2 = NULL;
|
|
|
|
PyObject *result = NULL;
|
|
|
|
#if 0
|
|
|
|
unsigned char b0, b1;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
PyErr_SetString(ProfilerError,
|
|
|
|
"cannot iterate over closed LogReader object");
|
|
|
|
return NULL;
|
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
|
2002-05-29 15:19:14 -03:00
|
|
|
restart:
|
|
|
|
/* decode the record type */
|
2002-07-18 16:11:44 -03:00
|
|
|
if ((c = fgetc(self->logfp)) == EOF) {
|
|
|
|
fclose(self->logfp);
|
|
|
|
self->logfp = NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
return NULL;
|
2002-07-18 16:11:44 -03:00
|
|
|
}
|
2002-05-29 15:19:14 -03:00
|
|
|
what = c & WHAT_OTHER;
|
|
|
|
if (what == WHAT_OTHER)
|
|
|
|
what = c; /* need all the bits for type */
|
|
|
|
else
|
|
|
|
ungetc(c, self->logfp); /* type byte includes packed int */
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
switch (what) {
|
|
|
|
case WHAT_ENTER:
|
|
|
|
err = unpack_packed_int(self, &fileno, 2);
|
|
|
|
if (!err) {
|
2001-10-15 19:11:02 -03:00
|
|
|
err = unpack_packed_int(self, &lineno, 0);
|
|
|
|
if (self->frametimings && !err)
|
|
|
|
err = unpack_packed_int(self, &tdelta, 0);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
break;
|
|
|
|
case WHAT_EXIT:
|
|
|
|
err = unpack_packed_int(self, &tdelta, 2);
|
|
|
|
break;
|
|
|
|
case WHAT_LINENO:
|
|
|
|
err = unpack_packed_int(self, &lineno, 2);
|
|
|
|
if (self->linetimings && !err)
|
|
|
|
err = unpack_packed_int(self, &tdelta, 0);
|
|
|
|
break;
|
|
|
|
case WHAT_ADD_INFO:
|
2002-05-29 15:19:14 -03:00
|
|
|
err = unpack_add_info(self);
|
2001-10-12 17:57:55 -03:00
|
|
|
break;
|
|
|
|
case WHAT_DEFINE_FILE:
|
|
|
|
err = unpack_packed_int(self, &fileno, 0);
|
|
|
|
if (!err) {
|
|
|
|
err = unpack_string(self, &s1);
|
|
|
|
if (!err) {
|
|
|
|
Py_INCREF(Py_None);
|
|
|
|
s2 = Py_None;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
2001-10-15 19:11:02 -03:00
|
|
|
case WHAT_DEFINE_FUNC:
|
|
|
|
err = unpack_packed_int(self, &fileno, 0);
|
|
|
|
if (!err) {
|
|
|
|
err = unpack_packed_int(self, &lineno, 0);
|
|
|
|
if (!err)
|
|
|
|
err = unpack_string(self, &s1);
|
|
|
|
}
|
|
|
|
break;
|
2001-10-12 17:57:55 -03:00
|
|
|
case WHAT_LINE_TIMES:
|
2002-05-29 15:19:14 -03:00
|
|
|
if ((c = fgetc(self->logfp)) == EOF)
|
2001-10-12 17:57:55 -03:00
|
|
|
err = ERR_EOF;
|
|
|
|
else {
|
2002-05-29 15:19:14 -03:00
|
|
|
self->linetimings = c ? 1 : 0;
|
2010-05-09 11:46:46 -03:00
|
|
|
goto restart;
|
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
break;
|
2001-10-15 19:11:02 -03:00
|
|
|
case WHAT_FRAME_TIMES:
|
2002-05-29 15:19:14 -03:00
|
|
|
if ((c = fgetc(self->logfp)) == EOF)
|
2001-10-15 19:11:02 -03:00
|
|
|
err = ERR_EOF;
|
|
|
|
else {
|
2002-05-29 15:19:14 -03:00
|
|
|
self->frametimings = c ? 1 : 0;
|
2010-05-09 11:46:46 -03:00
|
|
|
goto restart;
|
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
break;
|
2001-10-12 17:57:55 -03:00
|
|
|
default:
|
2001-10-29 16:45:57 -04:00
|
|
|
err = ERR_BAD_RECTYPE;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
if (err == ERR_BAD_RECTYPE) {
|
|
|
|
PyErr_SetString(PyExc_ValueError,
|
|
|
|
"unknown record type in log file");
|
|
|
|
}
|
|
|
|
else if (err == ERR_EOF) {
|
2002-07-18 16:11:44 -03:00
|
|
|
eof_error(self);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
else if (!err) {
|
|
|
|
result = PyTuple_New(4);
|
2006-03-07 00:48:24 -04:00
|
|
|
if (result == NULL)
|
|
|
|
return NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
PyTuple_SET_ITEM(result, 0, PyInt_FromLong(what));
|
|
|
|
PyTuple_SET_ITEM(result, 2, PyInt_FromLong(fileno));
|
2001-10-15 19:11:02 -03:00
|
|
|
if (s1 == NULL)
|
2001-10-12 17:57:55 -03:00
|
|
|
PyTuple_SET_ITEM(result, 1, PyInt_FromLong(tdelta));
|
2001-10-15 19:11:02 -03:00
|
|
|
else
|
2001-10-12 17:57:55 -03:00
|
|
|
PyTuple_SET_ITEM(result, 1, s1);
|
2001-10-15 19:11:02 -03:00
|
|
|
if (s2 == NULL)
|
|
|
|
PyTuple_SET_ITEM(result, 3, PyInt_FromLong(lineno));
|
|
|
|
else
|
2001-10-12 17:57:55 -03:00
|
|
|
PyTuple_SET_ITEM(result, 3, s2);
|
|
|
|
}
|
|
|
|
/* The only other case is err == ERR_EXCEPTION, in which case the
|
|
|
|
* exception is already set.
|
|
|
|
*/
|
|
|
|
#if 0
|
|
|
|
b0 = self->buffer[self->index];
|
|
|
|
b1 = self->buffer[self->index + 1];
|
|
|
|
if (b0 & 1) {
|
|
|
|
/* This is a line-number event. */
|
|
|
|
what = PyTrace_LINE;
|
|
|
|
lineno = ((b0 & ~1) << 7) + b1;
|
|
|
|
self->index += 2;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
what = (b0 & 0x0E) >> 1;
|
|
|
|
tdelta = ((b0 & 0xF0) << 4) + b1;
|
|
|
|
if (what == PyTrace_CALL) {
|
|
|
|
/* we know there's a 2-byte file ID & 2-byte line number */
|
|
|
|
fileno = ((self->buffer[self->index + 2] << 8)
|
|
|
|
+ self->buffer[self->index + 3]);
|
|
|
|
lineno = ((self->buffer[self->index + 4] << 8)
|
|
|
|
+ self->buffer[self->index + 5]);
|
|
|
|
self->index += 6;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
self->index += 2;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
logreader_dealloc(LogReaderObject *self)
|
|
|
|
{
|
|
|
|
if (self->logfp != NULL) {
|
|
|
|
fclose(self->logfp);
|
|
|
|
self->logfp = NULL;
|
|
|
|
}
|
2004-08-03 05:33:55 -03:00
|
|
|
Py_XDECREF(self->info);
|
2001-10-12 17:57:55 -03:00
|
|
|
PyObject_Del(self);
|
|
|
|
}
|
|
|
|
|
|
|
|
static PyObject *
|
2006-02-15 13:27:45 -04:00
|
|
|
logreader_sq_item(LogReaderObject *self, Py_ssize_t index)
|
2001-10-12 17:57:55 -03:00
|
|
|
{
|
|
|
|
PyObject *result = logreader_tp_iternext(self);
|
|
|
|
if (result == NULL && !PyErr_Occurred()) {
|
|
|
|
PyErr_SetString(PyExc_IndexError, "no more events in log");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static void
|
|
|
|
do_stop(ProfilerObject *self);
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static int
|
|
|
|
flush_data(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
/* Need to dump data to the log file... */
|
|
|
|
size_t written = fwrite(self->buffer, 1, self->index, self->logfp);
|
2001-10-12 19:08:39 -03:00
|
|
|
if (written == (size_t)self->index)
|
2001-10-12 17:57:55 -03:00
|
|
|
self->index = 0;
|
|
|
|
else {
|
|
|
|
memmove(self->buffer, &self->buffer[written],
|
|
|
|
self->index - written);
|
|
|
|
self->index -= written;
|
|
|
|
if (written == 0) {
|
2008-06-09 01:58:54 -03:00
|
|
|
char *s = PyString_AsString(self->logfilename);
|
2001-10-12 17:57:55 -03:00
|
|
|
PyErr_SetFromErrnoWithFilename(PyExc_IOError, s);
|
2001-12-04 17:40:53 -04:00
|
|
|
do_stop(self);
|
2001-10-12 17:57:55 -03:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
if (written > 0) {
|
|
|
|
if (fflush(self->logfp)) {
|
2008-06-09 01:58:54 -03:00
|
|
|
char *s = PyString_AsString(self->logfilename);
|
2001-10-12 17:57:55 -03:00
|
|
|
PyErr_SetFromErrnoWithFilename(PyExc_IOError, s);
|
2001-12-04 17:40:53 -04:00
|
|
|
do_stop(self);
|
2001-10-12 17:57:55 -03:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_packed_int(ProfilerObject *self, int value)
|
|
|
|
{
|
|
|
|
unsigned char partial;
|
|
|
|
|
|
|
|
do {
|
|
|
|
partial = value & 0x7F;
|
|
|
|
value >>= 7;
|
|
|
|
if (value)
|
|
|
|
partial |= 0x80;
|
|
|
|
self->buffer[self->index] = partial;
|
|
|
|
self->index++;
|
|
|
|
} while (value);
|
2001-12-04 17:40:53 -04:00
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
/* Encode a modified packed integer, with a subfield of modsize bits
|
|
|
|
* containing the value "subfield". The value of subfield is not
|
|
|
|
* checked to ensure it actually fits in modsize bits.
|
|
|
|
*/
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_modified_packed_int(ProfilerObject *self, int value,
|
|
|
|
int modsize, int subfield)
|
|
|
|
{
|
|
|
|
const int maxvalues[] = {-1, 1, 3, 7, 15, 31, 63, 127};
|
|
|
|
|
|
|
|
int bits = 7 - modsize;
|
|
|
|
int partial = value & maxvalues[bits];
|
|
|
|
unsigned char b = subfield | (partial << modsize);
|
|
|
|
|
|
|
|
if (partial != value) {
|
|
|
|
b |= 0x80;
|
|
|
|
self->buffer[self->index] = b;
|
|
|
|
self->index++;
|
2001-12-04 17:40:53 -04:00
|
|
|
return pack_packed_int(self, value >> bits);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
2001-12-04 17:40:53 -04:00
|
|
|
self->buffer[self->index] = b;
|
|
|
|
self->index++;
|
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2006-02-15 13:27:45 -04:00
|
|
|
pack_string(ProfilerObject *self, const char *s, Py_ssize_t len)
|
2001-10-12 17:57:55 -03:00
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (len + PISIZE + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
2015-06-27 16:52:41 -03:00
|
|
|
if (len + PISIZE + self->index >= BUFFERSIZE) {
|
|
|
|
PyErr_SetString(PyExc_ValueError, "string too large for internal buffer");
|
|
|
|
return -1;
|
|
|
|
}
|
2001-12-04 17:40:53 -04:00
|
|
|
}
|
2006-02-15 13:27:45 -04:00
|
|
|
assert(len < INT_MAX);
|
|
|
|
if (pack_packed_int(self, (int)len) < 0)
|
2001-12-04 17:40:53 -04:00
|
|
|
return -1;
|
2001-10-12 17:57:55 -03:00
|
|
|
memcpy(self->buffer + self->index, s, len);
|
|
|
|
self->index += len;
|
2001-12-04 17:40:53 -04:00
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_add_info(ProfilerObject *self, const char *s1, const char *s2)
|
|
|
|
{
|
2006-02-15 13:27:45 -04:00
|
|
|
Py_ssize_t len1 = strlen(s1);
|
|
|
|
Py_ssize_t len2 = strlen(s2);
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
if (len1 + len2 + PISIZE*2 + 1 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
self->buffer[self->index] = WHAT_ADD_INFO;
|
|
|
|
self->index++;
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_string(self, s1, len1) < 0)
|
|
|
|
return -1;
|
|
|
|
return pack_string(self, s2, len2);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_define_file(ProfilerObject *self, int fileno, const char *filename)
|
|
|
|
{
|
2006-02-15 13:27:45 -04:00
|
|
|
Py_ssize_t len = strlen(filename);
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
if (len + PISIZE*2 + 1 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
self->buffer[self->index] = WHAT_DEFINE_FILE;
|
|
|
|
self->index++;
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_packed_int(self, fileno) < 0)
|
|
|
|
return -1;
|
|
|
|
return pack_string(self, filename, len);
|
2001-10-15 19:11:02 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2001-10-15 19:11:02 -03:00
|
|
|
pack_define_func(ProfilerObject *self, int fileno, int lineno,
|
|
|
|
const char *funcname)
|
|
|
|
{
|
2006-02-15 13:27:45 -04:00
|
|
|
Py_ssize_t len = strlen(funcname);
|
2001-10-15 19:11:02 -03:00
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
if (len + PISIZE*3 + 1 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-15 19:11:02 -03:00
|
|
|
self->buffer[self->index] = WHAT_DEFINE_FUNC;
|
|
|
|
self->index++;
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_packed_int(self, fileno) < 0)
|
|
|
|
return -1;
|
|
|
|
if (pack_packed_int(self, lineno) < 0)
|
|
|
|
return -1;
|
|
|
|
return pack_string(self, funcname, len);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_line_times(ProfilerObject *self)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (2 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
self->buffer[self->index] = WHAT_LINE_TIMES;
|
|
|
|
self->buffer[self->index + 1] = self->linetimings ? 1 : 0;
|
|
|
|
self->index += 2;
|
2001-12-04 17:40:53 -04:00
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static int
|
2001-10-15 19:11:02 -03:00
|
|
|
pack_frame_times(ProfilerObject *self)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (2 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-15 19:11:02 -03:00
|
|
|
self->buffer[self->index] = WHAT_FRAME_TIMES;
|
|
|
|
self->buffer[self->index + 1] = self->frametimings ? 1 : 0;
|
|
|
|
self->index += 2;
|
2001-12-04 17:40:53 -04:00
|
|
|
return 0;
|
2001-10-15 19:11:02 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_enter(ProfilerObject *self, int fileno, int tdelta, int lineno)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (MPISIZE + PISIZE*2 + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_modified_packed_int(self, fileno, 2, WHAT_ENTER);
|
|
|
|
pack_packed_int(self, lineno);
|
2001-10-15 19:11:02 -03:00
|
|
|
if (self->frametimings)
|
2001-12-04 17:40:53 -04:00
|
|
|
return pack_packed_int(self, tdelta);
|
|
|
|
else
|
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_exit(ProfilerObject *self, int tdelta)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (MPISIZE + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
2001-10-15 19:11:02 -03:00
|
|
|
}
|
2001-12-04 17:40:53 -04:00
|
|
|
if (self->frametimings)
|
|
|
|
return pack_modified_packed_int(self, tdelta, 2, WHAT_EXIT);
|
|
|
|
self->buffer[self->index] = WHAT_EXIT;
|
|
|
|
self->index++;
|
|
|
|
return 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_lineno(ProfilerObject *self, int lineno)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (MPISIZE + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
return pack_modified_packed_int(self, lineno, 2, WHAT_LINENO);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2001-12-04 17:40:53 -04:00
|
|
|
static inline int
|
2001-10-12 17:57:55 -03:00
|
|
|
pack_lineno_tdelta(ProfilerObject *self, int lineno, int tdelta)
|
|
|
|
{
|
2001-12-04 17:40:53 -04:00
|
|
|
if (MPISIZE + PISIZE + self->index >= BUFFERSIZE) {
|
|
|
|
if (flush_data(self) < 0)
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
if (pack_modified_packed_int(self, lineno, 2, WHAT_LINENO) < 0)
|
|
|
|
return -1;
|
|
|
|
return pack_packed_int(self, tdelta);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
|
|
|
get_fileno(ProfilerObject *self, PyCodeObject *fcode)
|
|
|
|
{
|
2001-10-15 19:11:02 -03:00
|
|
|
/* This is only used for ENTER events. */
|
|
|
|
|
|
|
|
PyObject *obj;
|
|
|
|
PyObject *dict;
|
2001-10-12 17:57:55 -03:00
|
|
|
int fileno;
|
|
|
|
|
2001-10-15 19:11:02 -03:00
|
|
|
obj = PyDict_GetItem(self->filemap, fcode->co_filename);
|
|
|
|
if (obj == NULL) {
|
2001-10-12 17:57:55 -03:00
|
|
|
/* first sighting of this file */
|
2001-10-15 19:11:02 -03:00
|
|
|
dict = PyDict_New();
|
|
|
|
if (dict == NULL) {
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
fileno = self->next_fileno;
|
2001-10-15 19:11:02 -03:00
|
|
|
obj = Py_BuildValue("iN", fileno, dict);
|
|
|
|
if (obj == NULL) {
|
2001-10-12 17:57:55 -03:00
|
|
|
return -1;
|
|
|
|
}
|
2001-10-15 19:11:02 -03:00
|
|
|
if (PyDict_SetItem(self->filemap, fcode->co_filename, obj)) {
|
|
|
|
Py_DECREF(obj);
|
2001-10-12 17:57:55 -03:00
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
self->next_fileno++;
|
2001-10-15 19:11:02 -03:00
|
|
|
Py_DECREF(obj);
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_define_file(self, fileno,
|
2008-06-09 01:58:54 -03:00
|
|
|
PyString_AS_STRING(fcode->co_filename)) < 0)
|
2001-12-04 17:40:53 -04:00
|
|
|
return -1;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
/* already know this ID */
|
2001-10-15 19:11:02 -03:00
|
|
|
fileno = PyInt_AS_LONG(PyTuple_GET_ITEM(obj, 0));
|
|
|
|
dict = PyTuple_GET_ITEM(obj, 1);
|
|
|
|
}
|
|
|
|
/* make sure we save a function name for this (fileno, lineno) */
|
|
|
|
obj = PyInt_FromLong(fcode->co_firstlineno);
|
|
|
|
if (obj == NULL) {
|
|
|
|
/* We just won't have it saved; too bad. */
|
|
|
|
PyErr_Clear();
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
PyObject *name = PyDict_GetItem(dict, obj);
|
|
|
|
if (name == NULL) {
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_define_func(self, fileno, fcode->co_firstlineno,
|
2008-06-09 01:58:54 -03:00
|
|
|
PyString_AS_STRING(fcode->co_name)) < 0) {
|
2004-08-03 05:33:55 -03:00
|
|
|
Py_DECREF(obj);
|
2001-12-04 17:40:53 -04:00
|
|
|
return -1;
|
2004-08-03 05:33:55 -03:00
|
|
|
}
|
|
|
|
if (PyDict_SetItem(dict, obj, fcode->co_name)) {
|
|
|
|
Py_DECREF(obj);
|
2001-10-15 19:11:02 -03:00
|
|
|
return -1;
|
2004-08-03 05:33:55 -03:00
|
|
|
}
|
2001-10-15 19:11:02 -03:00
|
|
|
}
|
2004-08-03 05:33:55 -03:00
|
|
|
Py_DECREF(obj);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
return fileno;
|
|
|
|
}
|
|
|
|
|
|
|
|
static inline int
|
|
|
|
get_tdelta(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
int tdelta;
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-10-12 17:57:55 -03:00
|
|
|
hs_time tv;
|
2001-10-13 04:37:52 -03:00
|
|
|
hs_time diff;
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2001-10-13 04:37:52 -03:00
|
|
|
GETTIMEOFDAY(&tv);
|
|
|
|
diff = tv - self->prev_timeofday;
|
|
|
|
tdelta = (int)diff;
|
2001-10-12 17:57:55 -03:00
|
|
|
#else
|
|
|
|
struct timeval tv;
|
|
|
|
|
|
|
|
GETTIMEOFDAY(&tv);
|
|
|
|
|
2004-06-13 17:45:11 -03:00
|
|
|
tdelta = tv.tv_usec - self->prev_timeofday.tv_usec;
|
|
|
|
if (tv.tv_sec != self->prev_timeofday.tv_sec)
|
|
|
|
tdelta += (tv.tv_sec - self->prev_timeofday.tv_sec) * 1000000;
|
2001-10-12 17:57:55 -03:00
|
|
|
#endif
|
2004-06-13 17:45:11 -03:00
|
|
|
/* time can go backwards on some multiprocessor systems or by NTP */
|
|
|
|
if (tdelta < 0)
|
|
|
|
return 0;
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
self->prev_timeofday = tv;
|
|
|
|
return tdelta;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* The workhorse: the profiler callback function. */
|
|
|
|
|
|
|
|
static int
|
|
|
|
tracer_callback(ProfilerObject *self, PyFrameObject *frame, int what,
|
|
|
|
PyObject *arg)
|
|
|
|
{
|
|
|
|
int fileno;
|
|
|
|
|
|
|
|
switch (what) {
|
|
|
|
case PyTrace_CALL:
|
|
|
|
fileno = get_fileno(self, frame->f_code);
|
|
|
|
if (fileno < 0)
|
|
|
|
return -1;
|
2001-12-04 17:40:53 -04:00
|
|
|
return pack_enter(self, fileno,
|
|
|
|
self->frametimings ? get_tdelta(self) : -1,
|
|
|
|
frame->f_code->co_firstlineno);
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
case PyTrace_RETURN:
|
2001-12-04 17:40:53 -04:00
|
|
|
return pack_exit(self, get_tdelta(self));
|
|
|
|
|
2005-12-06 10:07:39 -04:00
|
|
|
case PyTrace_LINE: /* we only get these events if we asked for them */
|
2001-10-12 17:57:55 -03:00
|
|
|
if (self->linetimings)
|
2002-09-11 14:09:45 -03:00
|
|
|
return pack_lineno_tdelta(self, frame->f_lineno,
|
2010-05-09 11:46:46 -03:00
|
|
|
get_tdelta(self));
|
2001-10-12 17:57:55 -03:00
|
|
|
else
|
2002-09-11 12:36:32 -03:00
|
|
|
return pack_lineno(self, frame->f_lineno);
|
2001-12-04 17:40:53 -04:00
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
default:
|
|
|
|
/* ignore PyTrace_EXCEPTION */
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* A couple of useful helper functions. */
|
|
|
|
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-10-12 21:11:10 -03:00
|
|
|
static LARGE_INTEGER frequency = {0, 0};
|
2001-10-12 17:57:55 -03:00
|
|
|
#endif
|
|
|
|
|
|
|
|
static unsigned long timeofday_diff = 0;
|
|
|
|
static unsigned long rusage_diff = 0;
|
|
|
|
|
|
|
|
static void
|
|
|
|
calibrate(void)
|
|
|
|
{
|
|
|
|
hs_time tv1, tv2;
|
|
|
|
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-10-13 04:37:52 -03:00
|
|
|
hs_time diff;
|
2001-10-12 17:57:55 -03:00
|
|
|
QueryPerformanceFrequency(&frequency);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
GETTIMEOFDAY(&tv1);
|
|
|
|
while (1) {
|
|
|
|
GETTIMEOFDAY(&tv2);
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-10-13 04:37:52 -03:00
|
|
|
diff = tv2 - tv1;
|
|
|
|
if (diff != 0) {
|
|
|
|
timeofday_diff = (unsigned long)diff;
|
2001-10-12 17:57:55 -03:00
|
|
|
break;
|
|
|
|
}
|
|
|
|
#else
|
|
|
|
if (tv1.tv_sec != tv2.tv_sec || tv1.tv_usec != tv2.tv_usec) {
|
|
|
|
if (tv1.tv_sec == tv2.tv_sec)
|
|
|
|
timeofday_diff = tv2.tv_usec - tv1.tv_usec;
|
|
|
|
else
|
|
|
|
timeofday_diff = (1000000 - tv1.tv_usec) + tv2.tv_usec;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
2003-11-19 21:44:59 -04:00
|
|
|
#if defined(MS_WINDOWS) || defined(PYOS_OS2) || \
|
2006-04-14 12:07:46 -03:00
|
|
|
defined(__VMS) || defined (__QNX__)
|
2001-10-12 17:57:55 -03:00
|
|
|
rusage_diff = -1;
|
|
|
|
#else
|
|
|
|
{
|
|
|
|
struct rusage ru1, ru2;
|
|
|
|
|
|
|
|
getrusage(RUSAGE_SELF, &ru1);
|
|
|
|
while (1) {
|
|
|
|
getrusage(RUSAGE_SELF, &ru2);
|
|
|
|
if (ru1.ru_utime.tv_sec != ru2.ru_utime.tv_sec) {
|
|
|
|
rusage_diff = ((1000000 - ru1.ru_utime.tv_usec)
|
|
|
|
+ ru2.ru_utime.tv_usec);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
else if (ru1.ru_utime.tv_usec != ru2.ru_utime.tv_usec) {
|
|
|
|
rusage_diff = ru2.ru_utime.tv_usec - ru1.ru_utime.tv_usec;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
else if (ru1.ru_stime.tv_sec != ru2.ru_stime.tv_sec) {
|
|
|
|
rusage_diff = ((1000000 - ru1.ru_stime.tv_usec)
|
|
|
|
+ ru2.ru_stime.tv_usec);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
else if (ru1.ru_stime.tv_usec != ru2.ru_stime.tv_usec) {
|
|
|
|
rusage_diff = ru2.ru_stime.tv_usec - ru1.ru_stime.tv_usec;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
do_start(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
self->active = 1;
|
|
|
|
GETTIMEOFDAY(&self->prev_timeofday);
|
|
|
|
if (self->lineevents)
|
|
|
|
PyEval_SetTrace((Py_tracefunc) tracer_callback, (PyObject *)self);
|
|
|
|
else
|
2005-12-06 10:07:39 -04:00
|
|
|
PyEval_SetProfile((Py_tracefunc) tracer_callback, (PyObject *)self);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
static void
|
|
|
|
do_stop(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
if (self->active) {
|
|
|
|
self->active = 0;
|
|
|
|
if (self->lineevents)
|
|
|
|
PyEval_SetTrace(NULL, NULL);
|
|
|
|
else
|
|
|
|
PyEval_SetProfile(NULL, NULL);
|
|
|
|
}
|
|
|
|
if (self->index > 0) {
|
|
|
|
/* Best effort to dump out any remaining data. */
|
|
|
|
flush_data(self);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
|
|
is_available(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
if (self->active) {
|
|
|
|
PyErr_SetString(ProfilerError, "profiler already active");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
PyErr_SetString(ProfilerError, "profiler already closed");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Profiler object interface methods. */
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(addinfo__doc__,
|
2001-10-29 16:45:57 -04:00
|
|
|
"addinfo(key, value)\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Insert an ADD_INFO record into the log.");
|
2001-10-29 16:45:57 -04:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_addinfo(ProfilerObject *self, PyObject *args)
|
|
|
|
{
|
|
|
|
PyObject *result = NULL;
|
|
|
|
char *key, *value;
|
|
|
|
|
|
|
|
if (PyArg_ParseTuple(args, "ss:addinfo", &key, &value)) {
|
|
|
|
if (self->logfp == NULL)
|
|
|
|
PyErr_SetString(ProfilerError, "profiler already closed");
|
|
|
|
else {
|
2001-12-04 17:40:53 -04:00
|
|
|
if (pack_add_info(self, key, value) == 0) {
|
|
|
|
result = Py_None;
|
|
|
|
Py_INCREF(result);
|
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(close__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"close()\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Shut down this profiler and close the log files, even if its active.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
2002-07-18 16:11:44 -03:00
|
|
|
profiler_close(ProfilerObject *self)
|
2001-10-12 17:57:55 -03:00
|
|
|
{
|
2002-07-18 16:11:44 -03:00
|
|
|
do_stop(self);
|
|
|
|
if (self->logfp != NULL) {
|
|
|
|
fclose(self->logfp);
|
|
|
|
self->logfp = NULL;
|
|
|
|
}
|
|
|
|
Py_INCREF(Py_None);
|
|
|
|
return Py_None;
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2002-07-18 16:11:44 -03:00
|
|
|
#define fileno__doc__ logreader_fileno__doc__
|
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_fileno(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
PyErr_SetString(PyExc_ValueError,
|
|
|
|
"profiler's file object already closed");
|
|
|
|
return NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
2002-07-18 16:11:44 -03:00
|
|
|
return PyInt_FromLong(fileno(self->logfp));
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(runcall__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"runcall(callable[, args[, kw]]) -> callable()\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Profile a specific function call, returning the result of that call.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_runcall(ProfilerObject *self, PyObject *args)
|
|
|
|
{
|
|
|
|
PyObject *result = NULL;
|
|
|
|
PyObject *callargs = NULL;
|
|
|
|
PyObject *callkw = NULL;
|
|
|
|
PyObject *callable;
|
|
|
|
|
2006-05-29 18:04:52 -03:00
|
|
|
if (PyArg_UnpackTuple(args, "runcall", 1, 3,
|
2001-10-12 17:57:55 -03:00
|
|
|
&callable, &callargs, &callkw)) {
|
|
|
|
if (is_available(self)) {
|
|
|
|
do_start(self);
|
|
|
|
result = PyEval_CallObjectWithKeywords(callable, callargs, callkw);
|
|
|
|
do_stop(self);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(runcode__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"runcode(code, globals[, locals])\n"
|
|
|
|
"Execute a code object while collecting profile data. If locals is\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"omitted, globals is used for the locals as well.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_runcode(ProfilerObject *self, PyObject *args)
|
|
|
|
{
|
|
|
|
PyObject *result = NULL;
|
|
|
|
PyCodeObject *code;
|
|
|
|
PyObject *globals;
|
|
|
|
PyObject *locals = NULL;
|
|
|
|
|
|
|
|
if (PyArg_ParseTuple(args, "O!O!|O:runcode",
|
|
|
|
&PyCode_Type, &code,
|
|
|
|
&PyDict_Type, &globals,
|
|
|
|
&locals)) {
|
|
|
|
if (is_available(self)) {
|
|
|
|
if (locals == NULL || locals == Py_None)
|
|
|
|
locals = globals;
|
|
|
|
else if (!PyDict_Check(locals)) {
|
|
|
|
PyErr_SetString(PyExc_TypeError,
|
|
|
|
"locals must be a dictionary or None");
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
do_start(self);
|
|
|
|
result = PyEval_EvalCode(code, globals, locals);
|
|
|
|
do_stop(self);
|
|
|
|
#if 0
|
|
|
|
if (!PyErr_Occurred()) {
|
|
|
|
result = Py_None;
|
|
|
|
Py_INCREF(result);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(start__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"start()\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Install this profiler for the current thread.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_start(ProfilerObject *self, PyObject *args)
|
|
|
|
{
|
|
|
|
PyObject *result = NULL;
|
|
|
|
|
2002-07-18 16:11:44 -03:00
|
|
|
if (is_available(self)) {
|
|
|
|
do_start(self);
|
|
|
|
result = Py_None;
|
|
|
|
Py_INCREF(result);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(stop__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"stop()\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"Remove this profiler from the current thread.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
profiler_stop(ProfilerObject *self, PyObject *args)
|
|
|
|
{
|
|
|
|
PyObject *result = NULL;
|
|
|
|
|
2002-07-18 16:11:44 -03:00
|
|
|
if (!self->active)
|
|
|
|
PyErr_SetString(ProfilerError, "profiler not active");
|
|
|
|
else {
|
|
|
|
do_stop(self);
|
|
|
|
result = Py_None;
|
|
|
|
Py_INCREF(result);
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Python API support. */
|
|
|
|
|
|
|
|
static void
|
|
|
|
profiler_dealloc(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
do_stop(self);
|
|
|
|
if (self->logfp != NULL)
|
|
|
|
fclose(self->logfp);
|
|
|
|
Py_XDECREF(self->filemap);
|
|
|
|
Py_XDECREF(self->logfilename);
|
|
|
|
PyObject_Del((PyObject *)self);
|
|
|
|
}
|
|
|
|
|
|
|
|
static PyMethodDef profiler_methods[] = {
|
2001-10-29 16:45:57 -04:00
|
|
|
{"addinfo", (PyCFunction)profiler_addinfo, METH_VARARGS, addinfo__doc__},
|
2002-07-18 16:11:44 -03:00
|
|
|
{"close", (PyCFunction)profiler_close, METH_NOARGS, close__doc__},
|
|
|
|
{"fileno", (PyCFunction)profiler_fileno, METH_NOARGS, fileno__doc__},
|
2001-10-12 17:57:55 -03:00
|
|
|
{"runcall", (PyCFunction)profiler_runcall, METH_VARARGS, runcall__doc__},
|
|
|
|
{"runcode", (PyCFunction)profiler_runcode, METH_VARARGS, runcode__doc__},
|
2002-07-18 16:11:44 -03:00
|
|
|
{"start", (PyCFunction)profiler_start, METH_NOARGS, start__doc__},
|
|
|
|
{"stop", (PyCFunction)profiler_stop, METH_NOARGS, stop__doc__},
|
2001-10-12 17:57:55 -03:00
|
|
|
{NULL, NULL}
|
|
|
|
};
|
|
|
|
|
2002-07-17 13:15:35 -03:00
|
|
|
static PyMemberDef profiler_members[] = {
|
2001-10-15 19:11:02 -03:00
|
|
|
{"frametimings", T_LONG, offsetof(ProfilerObject, linetimings), READONLY},
|
|
|
|
{"lineevents", T_LONG, offsetof(ProfilerObject, lineevents), READONLY},
|
|
|
|
{"linetimings", T_LONG, offsetof(ProfilerObject, linetimings), READONLY},
|
2001-10-12 17:57:55 -03:00
|
|
|
{NULL}
|
|
|
|
};
|
|
|
|
|
|
|
|
static PyObject *
|
2002-07-17 13:15:35 -03:00
|
|
|
profiler_get_closed(ProfilerObject *self, void *closure)
|
2001-10-12 17:57:55 -03:00
|
|
|
{
|
2002-07-17 13:15:35 -03:00
|
|
|
PyObject *result = (self->logfp == NULL) ? Py_True : Py_False;
|
|
|
|
Py_INCREF(result);
|
2001-10-12 17:57:55 -03:00
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2002-07-17 13:15:35 -03:00
|
|
|
static PyGetSetDef profiler_getsets[] = {
|
2002-07-17 15:54:20 -03:00
|
|
|
{"closed", (getter)profiler_get_closed, NULL,
|
2002-07-17 16:38:05 -03:00
|
|
|
PyDoc_STR("True if the profiler's output file has already been closed.")},
|
2002-07-17 13:15:35 -03:00
|
|
|
{NULL}
|
|
|
|
};
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(profiler_object__doc__,
|
2001-10-12 21:11:10 -03:00
|
|
|
"High-performance profiler object.\n"
|
|
|
|
"\n"
|
|
|
|
"Methods:\n"
|
|
|
|
"\n"
|
2001-10-15 19:11:02 -03:00
|
|
|
"close(): Stop the profiler and close the log files.\n"
|
2002-07-18 16:11:44 -03:00
|
|
|
"fileno(): Returns the file descriptor of the log file.\n"
|
2001-10-15 19:11:02 -03:00
|
|
|
"runcall(): Run a single function call with profiling enabled.\n"
|
|
|
|
"runcode(): Execute a code object with profiling enabled.\n"
|
|
|
|
"start(): Install the profiler and return.\n"
|
|
|
|
"stop(): Remove the profiler.\n"
|
2001-10-12 21:11:10 -03:00
|
|
|
"\n"
|
|
|
|
"Attributes (read-only):\n"
|
|
|
|
"\n"
|
2001-10-15 19:11:02 -03:00
|
|
|
"closed: True if the profiler has already been closed.\n"
|
|
|
|
"frametimings: True if ENTER/EXIT events collect timing information.\n"
|
2002-08-15 11:59:02 -03:00
|
|
|
"lineevents: True if line events are reported to the profiler.\n"
|
|
|
|
"linetimings: True if line events collect timing information.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyTypeObject ProfilerType = {
|
2007-07-21 03:55:02 -03:00
|
|
|
PyVarObject_HEAD_INIT(NULL, 0)
|
2010-05-09 11:46:46 -03:00
|
|
|
"_hotshot.ProfilerType", /* tp_name */
|
|
|
|
(int) sizeof(ProfilerObject), /* tp_basicsize */
|
|
|
|
0, /* tp_itemsize */
|
|
|
|
(destructor)profiler_dealloc, /* tp_dealloc */
|
|
|
|
0, /* tp_print */
|
|
|
|
0, /* tp_getattr */
|
|
|
|
0, /* tp_setattr */
|
|
|
|
0, /* tp_compare */
|
|
|
|
0, /* tp_repr */
|
|
|
|
0, /* tp_as_number */
|
|
|
|
0, /* tp_as_sequence */
|
|
|
|
0, /* tp_as_mapping */
|
|
|
|
0, /* tp_hash */
|
|
|
|
0, /* tp_call */
|
|
|
|
0, /* tp_str */
|
|
|
|
PyObject_GenericGetAttr, /* tp_getattro */
|
|
|
|
0, /* tp_setattro */
|
|
|
|
0, /* tp_as_buffer */
|
|
|
|
Py_TPFLAGS_DEFAULT, /* tp_flags */
|
|
|
|
profiler_object__doc__, /* tp_doc */
|
|
|
|
0, /* tp_traverse */
|
|
|
|
0, /* tp_clear */
|
|
|
|
0, /* tp_richcompare */
|
|
|
|
0, /* tp_weaklistoffset */
|
|
|
|
0, /* tp_iter */
|
|
|
|
0, /* tp_iternext */
|
|
|
|
profiler_methods, /* tp_methods */
|
|
|
|
profiler_members, /* tp_members */
|
|
|
|
profiler_getsets, /* tp_getset */
|
|
|
|
0, /* tp_base */
|
|
|
|
0, /* tp_dict */
|
|
|
|
0, /* tp_descr_get */
|
|
|
|
0, /* tp_descr_set */
|
2001-10-12 17:57:55 -03:00
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
static PyMethodDef logreader_methods[] = {
|
2002-07-18 16:11:44 -03:00
|
|
|
{"close", (PyCFunction)logreader_close, METH_NOARGS,
|
2001-10-12 17:57:55 -03:00
|
|
|
logreader_close__doc__},
|
2002-07-18 16:11:44 -03:00
|
|
|
{"fileno", (PyCFunction)logreader_fileno, METH_NOARGS,
|
|
|
|
logreader_fileno__doc__},
|
2001-10-12 17:57:55 -03:00
|
|
|
{NULL, NULL}
|
|
|
|
};
|
|
|
|
|
2002-07-17 13:15:35 -03:00
|
|
|
static PyMemberDef logreader_members[] = {
|
2002-07-17 16:38:05 -03:00
|
|
|
{"info", T_OBJECT, offsetof(LogReaderObject, info), RO,
|
|
|
|
PyDoc_STR("Dictionary mapping informational keys to lists of values.")},
|
2002-07-17 13:15:35 -03:00
|
|
|
{NULL}
|
|
|
|
};
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(logreader__doc__,
|
|
|
|
"logreader(filename) --> log-iterator\n\
|
|
|
|
Create a log-reader for the timing information file.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PySequenceMethods logreader_as_sequence = {
|
2010-05-09 11:46:46 -03:00
|
|
|
0, /* sq_length */
|
|
|
|
0, /* sq_concat */
|
|
|
|
0, /* sq_repeat */
|
|
|
|
(ssizeargfunc)logreader_sq_item, /* sq_item */
|
|
|
|
0, /* sq_slice */
|
|
|
|
0, /* sq_ass_item */
|
|
|
|
0, /* sq_ass_slice */
|
|
|
|
0, /* sq_contains */
|
|
|
|
0, /* sq_inplace_concat */
|
|
|
|
0, /* sq_inplace_repeat */
|
2001-10-12 17:57:55 -03:00
|
|
|
};
|
|
|
|
|
2002-07-18 16:11:44 -03:00
|
|
|
static PyObject *
|
|
|
|
logreader_get_closed(LogReaderObject *self, void *closure)
|
|
|
|
{
|
|
|
|
PyObject *result = (self->logfp == NULL) ? Py_True : Py_False;
|
|
|
|
Py_INCREF(result);
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
static PyGetSetDef logreader_getsets[] = {
|
|
|
|
{"closed", (getter)logreader_get_closed, NULL,
|
|
|
|
PyDoc_STR("True if the logreader's input file has already been closed.")},
|
|
|
|
{NULL}
|
|
|
|
};
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
static PyTypeObject LogReaderType = {
|
2007-07-21 03:55:02 -03:00
|
|
|
PyVarObject_HEAD_INIT(NULL, 0)
|
2010-05-09 11:46:46 -03:00
|
|
|
"_hotshot.LogReaderType", /* tp_name */
|
|
|
|
(int) sizeof(LogReaderObject), /* tp_basicsize */
|
|
|
|
0, /* tp_itemsize */
|
|
|
|
(destructor)logreader_dealloc, /* tp_dealloc */
|
|
|
|
0, /* tp_print */
|
|
|
|
0, /* tp_getattr */
|
|
|
|
0, /* tp_setattr */
|
|
|
|
0, /* tp_compare */
|
|
|
|
0, /* tp_repr */
|
|
|
|
0, /* tp_as_number */
|
|
|
|
&logreader_as_sequence, /* tp_as_sequence */
|
|
|
|
0, /* tp_as_mapping */
|
|
|
|
0, /* tp_hash */
|
|
|
|
0, /* tp_call */
|
|
|
|
0, /* tp_str */
|
|
|
|
PyObject_GenericGetAttr, /* tp_getattro */
|
|
|
|
0, /* tp_setattro */
|
|
|
|
0, /* tp_as_buffer */
|
|
|
|
Py_TPFLAGS_DEFAULT, /* tp_flags */
|
|
|
|
logreader__doc__, /* tp_doc */
|
|
|
|
0, /* tp_traverse */
|
|
|
|
0, /* tp_clear */
|
|
|
|
0, /* tp_richcompare */
|
|
|
|
0, /* tp_weaklistoffset */
|
|
|
|
PyObject_SelfIter, /* tp_iter */
|
|
|
|
(iternextfunc)logreader_tp_iternext,/* tp_iternext */
|
|
|
|
logreader_methods, /* tp_methods */
|
|
|
|
logreader_members, /* tp_members */
|
|
|
|
logreader_getsets, /* tp_getset */
|
|
|
|
0, /* tp_base */
|
|
|
|
0, /* tp_dict */
|
|
|
|
0, /* tp_descr_get */
|
|
|
|
0, /* tp_descr_set */
|
2001-10-12 17:57:55 -03:00
|
|
|
};
|
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
hotshot_logreader(PyObject *unused, PyObject *args)
|
|
|
|
{
|
|
|
|
LogReaderObject *self = NULL;
|
|
|
|
char *filename;
|
2002-05-29 15:19:14 -03:00
|
|
|
int c;
|
|
|
|
int err = 0;
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
if (PyArg_ParseTuple(args, "s:logreader", &filename)) {
|
|
|
|
self = PyObject_New(LogReaderObject, &LogReaderType);
|
|
|
|
if (self != NULL) {
|
2001-10-15 19:11:02 -03:00
|
|
|
self->frametimings = 1;
|
2001-10-12 17:57:55 -03:00
|
|
|
self->linetimings = 0;
|
2001-10-29 16:45:57 -04:00
|
|
|
self->info = NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
self->logfp = fopen(filename, "rb");
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
PyErr_SetFromErrnoWithFilename(PyExc_IOError, filename);
|
2008-12-15 17:47:57 -04:00
|
|
|
goto error;
|
2001-10-29 16:45:57 -04:00
|
|
|
}
|
|
|
|
self->info = PyDict_New();
|
2008-12-15 17:47:57 -04:00
|
|
|
if (self->info == NULL)
|
|
|
|
goto error;
|
2002-05-29 15:19:14 -03:00
|
|
|
/* read initial info */
|
|
|
|
for (;;) {
|
|
|
|
if ((c = fgetc(self->logfp)) == EOF) {
|
2002-07-18 16:11:44 -03:00
|
|
|
eof_error(self);
|
2008-12-15 17:47:57 -04:00
|
|
|
goto error;
|
2002-05-29 15:19:14 -03:00
|
|
|
}
|
|
|
|
if (c != WHAT_ADD_INFO) {
|
|
|
|
ungetc(c, self->logfp);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
err = unpack_add_info(self);
|
2001-10-29 16:45:57 -04:00
|
|
|
if (err) {
|
|
|
|
if (err == ERR_EOF)
|
2002-07-18 16:11:44 -03:00
|
|
|
eof_error(self);
|
2001-10-29 16:45:57 -04:00
|
|
|
else
|
|
|
|
PyErr_SetString(PyExc_RuntimeError,
|
|
|
|
"unexpected error");
|
2008-12-15 17:47:57 -04:00
|
|
|
goto error;
|
2001-10-29 16:45:57 -04:00
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return (PyObject *) self;
|
2008-12-15 17:47:57 -04:00
|
|
|
error:
|
|
|
|
Py_DECREF(self);
|
|
|
|
return NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/* Return a Python string that represents the version number without the
|
|
|
|
* extra cruft added by revision control, even if the right options were
|
|
|
|
* given to the "cvs export" command to make it not include the extra
|
|
|
|
* cruft.
|
|
|
|
*/
|
|
|
|
static char *
|
|
|
|
get_version_string(void)
|
|
|
|
{
|
|
|
|
static char *rcsid = "$Revision$";
|
|
|
|
char *rev = rcsid;
|
|
|
|
char *buffer;
|
|
|
|
int i = 0;
|
|
|
|
|
2005-12-19 02:05:18 -04:00
|
|
|
while (*rev && !isdigit(Py_CHARMASK(*rev)))
|
2001-10-12 17:57:55 -03:00
|
|
|
++rev;
|
|
|
|
while (rev[i] != ' ' && rev[i] != '\0')
|
|
|
|
++i;
|
2006-04-13 04:19:01 -03:00
|
|
|
buffer = (char *)malloc(i + 1);
|
2001-10-12 17:57:55 -03:00
|
|
|
if (buffer != NULL) {
|
|
|
|
memmove(buffer, rev, i);
|
|
|
|
buffer[i] = '\0';
|
|
|
|
}
|
|
|
|
return buffer;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Write out a RFC 822-style header with various useful bits of
|
|
|
|
* information to make the output easier to manage.
|
|
|
|
*/
|
|
|
|
static int
|
|
|
|
write_header(ProfilerObject *self)
|
|
|
|
{
|
|
|
|
char *buffer;
|
|
|
|
char cwdbuffer[PATH_MAX];
|
|
|
|
PyObject *temp;
|
2006-04-22 08:40:03 -03:00
|
|
|
Py_ssize_t i, len;
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
buffer = get_version_string();
|
|
|
|
if (buffer == NULL) {
|
|
|
|
PyErr_NoMemory();
|
|
|
|
return -1;
|
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "hotshot-version", buffer);
|
|
|
|
pack_add_info(self, "requested-frame-timings",
|
|
|
|
(self->frametimings ? "yes" : "no"));
|
|
|
|
pack_add_info(self, "requested-line-events",
|
2001-10-12 17:57:55 -03:00
|
|
|
(self->lineevents ? "yes" : "no"));
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "requested-line-timings",
|
|
|
|
(self->linetimings ? "yes" : "no"));
|
|
|
|
pack_add_info(self, "platform", Py_GetPlatform());
|
|
|
|
pack_add_info(self, "executable", Py_GetProgramFullPath());
|
2001-11-09 11:59:36 -04:00
|
|
|
free(buffer);
|
2001-10-12 17:57:55 -03:00
|
|
|
buffer = (char *) Py_GetVersion();
|
|
|
|
if (buffer == NULL)
|
|
|
|
PyErr_Clear();
|
|
|
|
else
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "executable-version", buffer);
|
2001-10-12 17:57:55 -03:00
|
|
|
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2001-11-28 16:27:42 -04:00
|
|
|
PyOS_snprintf(cwdbuffer, sizeof(cwdbuffer), "%I64d", frequency.QuadPart);
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "reported-performance-frequency", cwdbuffer);
|
2001-10-12 17:57:55 -03:00
|
|
|
#else
|
2001-11-28 16:27:42 -04:00
|
|
|
PyOS_snprintf(cwdbuffer, sizeof(cwdbuffer), "%lu", rusage_diff);
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "observed-interval-getrusage", cwdbuffer);
|
2001-11-28 16:27:42 -04:00
|
|
|
PyOS_snprintf(cwdbuffer, sizeof(cwdbuffer), "%lu", timeofday_diff);
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "observed-interval-gettimeofday", cwdbuffer);
|
2001-10-12 17:57:55 -03:00
|
|
|
#endif
|
|
|
|
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_add_info(self, "current-directory",
|
2001-10-12 17:57:55 -03:00
|
|
|
getcwd(cwdbuffer, sizeof cwdbuffer));
|
|
|
|
|
|
|
|
temp = PySys_GetObject("path");
|
2006-03-07 00:48:24 -04:00
|
|
|
if (temp == NULL || !PyList_Check(temp)) {
|
2010-05-09 11:46:46 -03:00
|
|
|
PyErr_SetString(PyExc_RuntimeError, "sys.path must be a list");
|
|
|
|
return -1;
|
2006-03-07 00:48:24 -04:00
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
len = PyList_GET_SIZE(temp);
|
|
|
|
for (i = 0; i < len; ++i) {
|
|
|
|
PyObject *item = PyList_GET_ITEM(temp, i);
|
2008-06-09 01:58:54 -03:00
|
|
|
buffer = PyString_AsString(item);
|
2002-07-17 15:54:20 -03:00
|
|
|
if (buffer == NULL) {
|
|
|
|
pack_add_info(self, "sys-path-entry", "<non-string-path-entry>");
|
|
|
|
PyErr_Clear();
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
pack_add_info(self, "sys-path-entry", buffer);
|
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
2001-10-29 16:45:57 -04:00
|
|
|
pack_frame_times(self);
|
|
|
|
pack_line_times(self);
|
|
|
|
|
2001-10-12 17:57:55 -03:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(profiler__doc__,
|
|
|
|
"profiler(logfilename[, lineevents[, linetimes]]) -> profiler\n\
|
|
|
|
Create a new profiler object.");
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
hotshot_profiler(PyObject *unused, PyObject *args)
|
|
|
|
{
|
|
|
|
char *logfilename;
|
|
|
|
ProfilerObject *self = NULL;
|
|
|
|
int lineevents = 0;
|
|
|
|
int linetimings = 1;
|
|
|
|
|
|
|
|
if (PyArg_ParseTuple(args, "s|ii:profiler", &logfilename,
|
|
|
|
&lineevents, &linetimings)) {
|
|
|
|
self = PyObject_New(ProfilerObject, &ProfilerType);
|
|
|
|
if (self == NULL)
|
|
|
|
return NULL;
|
2001-10-15 19:11:02 -03:00
|
|
|
self->frametimings = 1;
|
2001-10-12 17:57:55 -03:00
|
|
|
self->lineevents = lineevents ? 1 : 0;
|
|
|
|
self->linetimings = (lineevents && linetimings) ? 1 : 0;
|
|
|
|
self->index = 0;
|
|
|
|
self->active = 0;
|
|
|
|
self->next_fileno = 0;
|
2001-10-12 19:08:39 -03:00
|
|
|
self->logfp = NULL;
|
2001-10-12 17:57:55 -03:00
|
|
|
self->logfilename = PyTuple_GET_ITEM(args, 0);
|
|
|
|
Py_INCREF(self->logfilename);
|
|
|
|
self->filemap = PyDict_New();
|
|
|
|
if (self->filemap == NULL) {
|
|
|
|
Py_DECREF(self);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
self->logfp = fopen(logfilename, "wb");
|
|
|
|
if (self->logfp == NULL) {
|
|
|
|
Py_DECREF(self);
|
|
|
|
PyErr_SetFromErrnoWithFilename(PyExc_IOError, logfilename);
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
if (timeofday_diff == 0) {
|
|
|
|
/* Run this several times since sometimes the first
|
|
|
|
* doesn't give the lowest values, and we're really trying
|
|
|
|
* to determine the lowest.
|
|
|
|
*/
|
|
|
|
calibrate();
|
|
|
|
calibrate();
|
|
|
|
calibrate();
|
|
|
|
}
|
2006-03-07 19:53:32 -04:00
|
|
|
if (write_header(self)) {
|
2001-10-12 17:57:55 -03:00
|
|
|
/* some error occurred, exception has been set */
|
2006-03-07 19:53:32 -04:00
|
|
|
Py_DECREF(self);
|
2001-10-12 17:57:55 -03:00
|
|
|
self = NULL;
|
2006-03-07 19:53:32 -04:00
|
|
|
}
|
2001-10-12 17:57:55 -03:00
|
|
|
}
|
|
|
|
return (PyObject *) self;
|
|
|
|
}
|
|
|
|
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STRVAR(coverage__doc__,
|
|
|
|
"coverage(logfilename) -> profiler\n\
|
2001-10-15 19:11:02 -03:00
|
|
|
Returns a profiler that doesn't collect any timing information, which is\n\
|
2002-06-13 17:33:02 -03:00
|
|
|
useful in building a coverage analysis tool.");
|
2001-10-15 19:11:02 -03:00
|
|
|
|
|
|
|
static PyObject *
|
|
|
|
hotshot_coverage(PyObject *unused, PyObject *args)
|
|
|
|
{
|
|
|
|
char *logfilename;
|
|
|
|
PyObject *result = NULL;
|
|
|
|
|
|
|
|
if (PyArg_ParseTuple(args, "s:coverage", &logfilename)) {
|
|
|
|
result = hotshot_profiler(unused, args);
|
|
|
|
if (result != NULL) {
|
|
|
|
ProfilerObject *self = (ProfilerObject *) result;
|
|
|
|
self->frametimings = 0;
|
|
|
|
self->linetimings = 0;
|
|
|
|
self->lineevents = 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
2010-05-09 11:46:46 -03:00
|
|
|
PyDoc_VAR(resolution__doc__) =
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STR(
|
2001-10-12 21:11:10 -03:00
|
|
|
"resolution() -> (performance-counter-ticks, update-frequency)\n"
|
|
|
|
"Return the resolution of the timer provided by the QueryPerformanceCounter()\n"
|
|
|
|
"function. The first value is the smallest observed change, and the second\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"is the result of QueryPerformanceFrequency()."
|
|
|
|
)
|
2001-10-12 17:57:55 -03:00
|
|
|
#else
|
2002-06-13 17:33:02 -03:00
|
|
|
PyDoc_STR(
|
2001-10-12 21:11:10 -03:00
|
|
|
"resolution() -> (gettimeofday-usecs, getrusage-usecs)\n"
|
|
|
|
"Return the resolution of the timers provided by the gettimeofday() and\n"
|
2002-06-13 17:33:02 -03:00
|
|
|
"getrusage() system calls, or -1 if the call is not supported."
|
|
|
|
)
|
2001-10-12 17:57:55 -03:00
|
|
|
#endif
|
2002-06-13 17:33:02 -03:00
|
|
|
;
|
2001-10-12 17:57:55 -03:00
|
|
|
|
|
|
|
static PyObject *
|
2006-05-29 18:04:52 -03:00
|
|
|
hotshot_resolution(PyObject *self, PyObject *unused)
|
2001-10-12 17:57:55 -03:00
|
|
|
{
|
2006-05-29 18:04:52 -03:00
|
|
|
if (timeofday_diff == 0) {
|
|
|
|
calibrate();
|
|
|
|
calibrate();
|
|
|
|
calibrate();
|
|
|
|
}
|
2002-06-30 12:26:10 -03:00
|
|
|
#ifdef MS_WINDOWS
|
2006-05-29 18:04:52 -03:00
|
|
|
return Py_BuildValue("ii", timeofday_diff, frequency.LowPart);
|
2001-10-12 17:57:55 -03:00
|
|
|
#else
|
2006-05-29 18:04:52 -03:00
|
|
|
return Py_BuildValue("ii", timeofday_diff, rusage_diff);
|
2001-10-12 17:57:55 -03:00
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
static PyMethodDef functions[] = {
|
2001-10-15 19:11:02 -03:00
|
|
|
{"coverage", hotshot_coverage, METH_VARARGS, coverage__doc__},
|
2001-10-12 17:57:55 -03:00
|
|
|
{"profiler", hotshot_profiler, METH_VARARGS, profiler__doc__},
|
|
|
|
{"logreader", hotshot_logreader, METH_VARARGS, logreader__doc__},
|
2006-05-29 18:04:52 -03:00
|
|
|
{"resolution", hotshot_resolution, METH_NOARGS, resolution__doc__},
|
2001-10-12 17:57:55 -03:00
|
|
|
{NULL, NULL}
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
init_hotshot(void)
|
|
|
|
{
|
|
|
|
PyObject *module;
|
|
|
|
|
2007-12-18 22:37:44 -04:00
|
|
|
Py_TYPE(&LogReaderType) = &PyType_Type;
|
|
|
|
Py_TYPE(&ProfilerType) = &PyType_Type;
|
2001-10-12 17:57:55 -03:00
|
|
|
module = Py_InitModule("_hotshot", functions);
|
|
|
|
if (module != NULL) {
|
|
|
|
char *s = get_version_string();
|
|
|
|
|
|
|
|
PyModule_AddStringConstant(module, "__version__", s);
|
|
|
|
free(s);
|
|
|
|
Py_INCREF(&LogReaderType);
|
|
|
|
PyModule_AddObject(module, "LogReaderType",
|
|
|
|
(PyObject *)&LogReaderType);
|
|
|
|
Py_INCREF(&ProfilerType);
|
|
|
|
PyModule_AddObject(module, "ProfilerType",
|
|
|
|
(PyObject *)&ProfilerType);
|
|
|
|
|
|
|
|
if (ProfilerError == NULL)
|
|
|
|
ProfilerError = PyErr_NewException("hotshot.ProfilerError",
|
|
|
|
NULL, NULL);
|
|
|
|
if (ProfilerError != NULL) {
|
|
|
|
Py_INCREF(ProfilerError);
|
|
|
|
PyModule_AddObject(module, "ProfilerError", ProfilerError);
|
|
|
|
}
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_ENTER", WHAT_ENTER);
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_EXIT", WHAT_EXIT);
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_LINENO", WHAT_LINENO);
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_OTHER", WHAT_OTHER);
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_ADD_INFO", WHAT_ADD_INFO);
|
|
|
|
PyModule_AddIntConstant(module, "WHAT_DEFINE_FILE", WHAT_DEFINE_FILE);
|
2001-10-15 19:11:02 -03:00
|
|
|
PyModule_AddIntConstant(module, "WHAT_DEFINE_FUNC", WHAT_DEFINE_FUNC);
|
2001-10-12 17:57:55 -03:00
|
|
|
PyModule_AddIntConstant(module, "WHAT_LINE_TIMES", WHAT_LINE_TIMES);
|
|
|
|
}
|
|
|
|
}
|