2001-12-03 21:11:32 -04:00
|
|
|
#include "Python.h"
|
1997-05-20 19:40:26 -03:00
|
|
|
|
1999-08-27 17:39:37 -03:00
|
|
|
#ifndef DONT_HAVE_STDIO_H
|
1997-01-20 14:34:26 -04:00
|
|
|
#include <stdio.h>
|
1999-08-27 17:39:37 -03:00
|
|
|
#endif
|
1997-01-20 14:34:26 -04:00
|
|
|
|
|
|
|
#ifndef DATE
|
|
|
|
#ifdef __DATE__
|
|
|
|
#define DATE __DATE__
|
|
|
|
#else
|
|
|
|
#define DATE "xx/xx/xx"
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef TIME
|
|
|
|
#ifdef __TIME__
|
|
|
|
#define TIME __TIME__
|
|
|
|
#else
|
|
|
|
#define TIME "xx:xx:xx"
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
2011-03-05 15:51:24 -04:00
|
|
|
/* XXX Only unix build process has been tested */
|
|
|
|
#ifndef HGVERSION
|
|
|
|
#define HGVERSION ""
|
|
|
|
#endif
|
|
|
|
#ifndef HGTAG
|
|
|
|
#define HGTAG ""
|
|
|
|
#endif
|
|
|
|
#ifndef HGBRANCH
|
|
|
|
#define HGBRANCH ""
|
|
|
|
#endif
|
|
|
|
|
2005-12-17 21:27:35 -04:00
|
|
|
const char *
|
2005-12-18 18:46:35 -04:00
|
|
|
Py_GetBuildInfo(void)
|
2005-12-17 21:27:35 -04:00
|
|
|
{
|
2011-03-09 07:34:41 -04:00
|
|
|
static char buildinfo[50 + sizeof HGVERSION +
|
|
|
|
((sizeof HGTAG > sizeof HGBRANCH) ?
|
|
|
|
sizeof HGTAG : sizeof HGBRANCH)];
|
2011-03-05 15:51:24 -04:00
|
|
|
const char *revision = _Py_hgversion();
|
2010-05-09 13:14:21 -03:00
|
|
|
const char *sep = *revision ? ":" : "";
|
2011-03-05 15:51:24 -04:00
|
|
|
const char *hgid = _Py_hgidentifier();
|
|
|
|
if (!(*hgid))
|
|
|
|
hgid = "default";
|
2010-05-09 13:14:21 -03:00
|
|
|
PyOS_snprintf(buildinfo, sizeof(buildinfo),
|
2011-03-05 15:51:24 -04:00
|
|
|
"%s%s%s, %.20s, %.9s", hgid, sep, revision,
|
2010-05-09 13:14:21 -03:00
|
|
|
DATE, TIME);
|
|
|
|
return buildinfo;
|
2005-12-17 21:27:35 -04:00
|
|
|
}
|
2005-12-19 10:43:44 -04:00
|
|
|
|
2011-03-05 15:51:24 -04:00
|
|
|
const char *
|
|
|
|
_Py_hgversion(void)
|
|
|
|
{
|
|
|
|
return HGVERSION;
|
|
|
|
}
|
|
|
|
|
|
|
|
const char *
|
|
|
|
_Py_hgidentifier(void)
|
|
|
|
{
|
|
|
|
const char *hgtag, *hgid;
|
|
|
|
hgtag = HGTAG;
|
|
|
|
if ((*hgtag) && strcmp(hgtag, "tip") != 0)
|
|
|
|
hgid = hgtag;
|
|
|
|
else
|
|
|
|
hgid = HGBRANCH;
|
|
|
|
return hgid;
|
|
|
|
}
|