summaryrefslogtreecommitdiffstats
path: root/PC/VS9.0/make_buildinfo.c
diff options
context:
space:
mode:
Diffstat (limited to 'PC/VS9.0/make_buildinfo.c')
-rw-r--r--PC/VS9.0/make_buildinfo.c195
1 files changed, 0 insertions, 195 deletions
diff --git a/PC/VS9.0/make_buildinfo.c b/PC/VS9.0/make_buildinfo.c
deleted file mode 100644
index fb4a64a..0000000
--- a/PC/VS9.0/make_buildinfo.c
+++ /dev/null
@@ -1,195 +0,0 @@
-#include <windows.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <stdio.h>
-#include <io.h>
-
-#define CMD_SIZE 500
-
-/* This file creates the getbuildinfo.o object, by first
- invoking subwcrev.exe (if found), and then invoking cl.exe.
- As a side effect, it might generate PCBuild\getbuildinfo2.c
- also. If this isn't a subversion checkout, or subwcrev isn't
- found, it compiles ..\\..\\Modules\\getbuildinfo.c instead.
-
- Currently, subwcrev.exe is found from the registry entries
- of TortoiseSVN.
-
- No attempt is made to place getbuildinfo.o into the proper
- binary directory. This isn't necessary, as this tool is
- invoked as a pre-link step for pythoncore, so that overwrites
- any previous getbuildinfo.o.
-
- However, if a second argument is provided, this will be used
- as a temporary directory where any getbuildinfo2.c and
- getbuildinfo.o files are put. This is useful if multiple
- configurations are being built in parallel, to avoid them
- trampling each other's files.
-
-*/
-
-int make_buildinfo2(const char *tmppath)
-{
- struct _stat st;
- HKEY hTortoise;
- char command[CMD_SIZE+1];
- DWORD type, size;
- if (_stat(".svn", &st) < 0)
- return 0;
- /* Allow suppression of subwcrev.exe invocation if a no_subwcrev file is present. */
- if (_stat("no_subwcrev", &st) == 0)
- return 0;
- if (RegOpenKey(HKEY_LOCAL_MACHINE, "Software\\TortoiseSVN", &hTortoise) != ERROR_SUCCESS &&
- RegOpenKey(HKEY_CURRENT_USER, "Software\\TortoiseSVN", &hTortoise) != ERROR_SUCCESS)
- /* Tortoise not installed */
- return 0;
- command[0] = '"'; /* quote the path to the executable */
- size = sizeof(command) - 1;
- if (RegQueryValueEx(hTortoise, "Directory", 0, &type, command+1, &size) != ERROR_SUCCESS ||
- type != REG_SZ)
- /* Registry corrupted */
- return 0;
- strcat_s(command, CMD_SIZE, "bin\\subwcrev.exe");
- if (_stat(command+1, &st) < 0)
- /* subwcrev.exe not part of the release */
- return 0;
- strcat_s(command, CMD_SIZE, "\" ..\\.. ..\\..\\Modules\\getbuildinfo.c \"");
- strcat_s(command, CMD_SIZE, tmppath); /* quoted tmppath */
- strcat_s(command, CMD_SIZE, "getbuildinfo2.c\"");
-
- puts(command); fflush(stdout);
- if (system(command) < 0)
- return 0;
- return 1;
-}
-
-const char DELIMS[] = { " \n" };
-
-int get_mercurial_info(char * hgbranch, char * hgtag, char * hgrev, int size)
-{
- int result = 0;
- char filename[CMD_SIZE];
- char cmdline[CMD_SIZE];
-
- strcpy_s(filename, CMD_SIZE, "tmpXXXXXX");
- if (_mktemp_s(filename, CMD_SIZE) == 0) {
- int rc;
-
- strcpy_s(cmdline, CMD_SIZE, "hg id -bit > ");
- strcat_s(cmdline, CMD_SIZE, filename);
- rc = system(cmdline);
- if (rc == 0) {
- FILE * fp;
-
- if (fopen_s(&fp, filename, "r") == 0) {
- char * cp = fgets(cmdline, CMD_SIZE, fp);
-
- if (cp) {
- char * context = NULL;
- char * tp = strtok_s(cp, DELIMS, &context);
- if (tp) {
- strcpy_s(hgrev, size, tp);
- tp = strtok_s(NULL, DELIMS, &context);
- if (tp) {
- strcpy_s(hgbranch, size, tp);
- tp = strtok_s(NULL, DELIMS, &context);
- if (tp) {
- strcpy_s(hgtag, size, tp);
- result = 1;
- }
- }
- }
- }
- fclose(fp);
- }
- }
- _unlink(filename);
- }
- return result;
-}
-
-int main(int argc, char*argv[])
-{
- char command[CMD_SIZE] = "cl.exe -c -D_WIN32 -DUSE_DL_EXPORT -D_WINDOWS -DWIN32 -D_WINDLL ";
- char tmppath[CMD_SIZE] = "";
- int do_unlink, result;
- char *tmpdir = NULL;
- if (argc <= 2 || argc > 3) {
- fprintf(stderr, "make_buildinfo $(ConfigurationName) [tmpdir]\n");
- return EXIT_FAILURE;
- }
- if (strcmp(argv[1], "Release") == 0) {
- strcat_s(command, CMD_SIZE, "-MD ");
- }
- else if (strcmp(argv[1], "Debug") == 0) {
- strcat_s(command, CMD_SIZE, "-D_DEBUG -MDd ");
- }
- else if (strcmp(argv[1], "ReleaseItanium") == 0) {
- strcat_s(command, CMD_SIZE, "-MD /USECL:MS_ITANIUM ");
- }
- else if (strcmp(argv[1], "ReleaseAMD64") == 0) {
- strcat_s(command, CMD_SIZE, "-MD ");
- strcat_s(command, CMD_SIZE, "-MD /USECL:MS_OPTERON ");
- }
- else {
- fprintf(stderr, "unsupported configuration %s\n", argv[1]);
- return EXIT_FAILURE;
- }
- if (argc > 2) {
- tmpdir = argv[2];
- strcat_s(tmppath, _countof(tmppath), tmpdir);
- /* Hack fix for bad command line: If the command is issued like this:
- * $(SolutionDir)make_buildinfo.exe" Debug "$(IntDir)"
- * we will get a trailing quote because IntDir ends with a backslash that then
- * escapes the final ". To simplify the life for developers, catch that problem
- * here by cutting it off.
- * The proper command line, btw is:
- * $(SolutionDir)make_buildinfo.exe" Debug "$(IntDir)\"
- * Hooray for command line parsing on windows.
- */
- if (strlen(tmppath) > 0 && tmppath[strlen(tmppath)-1] == '"')
- tmppath[strlen(tmppath)-1] = '\0';
- strcat_s(tmppath, _countof(tmppath), "\\");
- }
-
- if ((do_unlink = make_buildinfo2(tmppath))) {
- strcat_s(command, CMD_SIZE, "\"");
- strcat_s(command, CMD_SIZE, tmppath);
- strcat_s(command, CMD_SIZE, "getbuildinfo2.c\" -DSUBWCREV ");
- }
- else {
- char hgtag[CMD_SIZE];
- char hgbranch[CMD_SIZE];
- char hgrev[CMD_SIZE];
-
- if (get_mercurial_info(hgbranch, hgtag, hgrev, CMD_SIZE)) {
- strcat_s(command, CMD_SIZE, "-DHGBRANCH=\\\"");
- strcat_s(command, CMD_SIZE, hgbranch);
- strcat_s(command, CMD_SIZE, "\\\"");
-
- strcat_s(command, CMD_SIZE, " -DHGTAG=\\\"");
- strcat_s(command, CMD_SIZE, hgtag);
- strcat_s(command, CMD_SIZE, "\\\"");
-
- strcat_s(command, CMD_SIZE, " -DHGVERSION=\\\"");
- strcat_s(command, CMD_SIZE, hgrev);
- strcat_s(command, CMD_SIZE, "\\\" ");
- }
- strcat_s(command, CMD_SIZE, "..\\..\\Modules\\getbuildinfo.c");
- }
- strcat_s(command, CMD_SIZE, " -Fo\"");
- strcat_s(command, CMD_SIZE, tmppath);
- strcat_s(command, CMD_SIZE, "getbuildinfo.o\" -I..\\..\\Include -I..\\..\\PC");
- puts(command); fflush(stdout);
- result = system(command);
- if (do_unlink) {
- command[0] = '\0';
- strcat_s(command, CMD_SIZE, "\"");
- strcat_s(command, CMD_SIZE, tmppath);
- strcat_s(command, CMD_SIZE, "getbuildinfo2.c\"");
- _unlink(command);
- }
- if (result < 0)
- return EXIT_FAILURE;
- return 0;
-}
generated by cgit v0.12 at 2024-11-26 11:31:52 (GMT)