diff options
| author | Martin v. Löwis <martin@v.loewis.de> | 2006-01-18 19:18:51 (GMT) |
|---|---|---|
| committer | Martin v. Löwis <martin@v.loewis.de> | 2006-01-18 19:18:51 (GMT) |
| commit | 3150a270d263509d5477df34ebe6bad9ed629b19 (patch) | |
| tree | 2151131765a2d842328fd7c75b04c5d3ba04e242 /PCbuild/make_buildinfo.c | |
| parent | d078e40d416566d3a88bc47c2df180c85d5e339f (diff) | |
| download | cpython-3150a270d263509d5477df34ebe6bad9ed629b19.zip cpython-3150a270d263509d5477df34ebe6bad9ed629b19.tar.gz cpython-3150a270d263509d5477df34ebe6bad9ed629b19.tar.bz2 | |
Add missing make_buildinfo.c.
Diffstat (limited to 'PCbuild/make_buildinfo.c')
| -rw-r--r-- | PCbuild/make_buildinfo.c | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/PCbuild/make_buildinfo.c b/PCbuild/make_buildinfo.c new file mode 100644 index 0000000..ca2db9f --- /dev/null +++ b/PCbuild/make_buildinfo.c @@ -0,0 +1,87 @@ +#include <windows.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <stdio.h>
+
+/* 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.
+
+*/
+
+int make_buildinfo2()
+{
+ struct _stat st;
+ HKEY hTortoise;
+ char command[500];
+ DWORD type, size;
+ if (_stat(".svn", &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;
+ size = sizeof(command);
+ if (RegQueryValueEx(hTortoise, "Directory", 0, &type, command, &size) != ERROR_SUCCESS ||
+ type != REG_SZ)
+ /* Registry corrupted */
+ return 0;
+ strcat(command, "bin\\subwcrev.exe");
+ if (_stat(command, &st) < 0)
+ /* subwcrev.exe not part of the release */
+ return 0;
+ strcat(command, " .. ..\\Modules\\getbuildinfo.c getbuildinfo2.c");
+ puts(command); fflush(stdout);
+ if (system(command) < 0)
+ return 0;
+ return 1;
+}
+
+int main(int argc, char*argv[])
+{
+ char command[500] = "cl.exe -c -D_WIN32 -DUSE_DL_EXPORT -D_WINDOWS -DWIN32 -D_WINDLL ";
+ int do_unlink, result;
+ if (argc != 2) {
+ fprintf(stderr, "make_buildinfo $(ConfigurationName)\n");
+ return EXIT_FAILURE;
+ }
+ if (strcmp(argv[1], "Release") == 0) {
+ strcat(command, "-MD ");
+ //strcpy(targetdir, "x86-temp-debug");
+ }
+ else if (strcmp(argv[1], "Debug") == 0) {
+ strcat(command, "-D_DEBUG -MDd ");
+ //strcpy(targetdir, "x86-temp-release");
+ }
+ else if (strcmp(argv[1], "ReleaseItanium")) {
+ strcat(command, "-MD ");
+ //strcpy(targetdir, "ia64-temp-release");
+ }
+ else {
+ fprintf(stderr, "unsupported configuration %s\n", argv[1]);
+ return EXIT_FAILURE;
+ }
+
+ if ((do_unlink = make_buildinfo2()))
+ strcat(command, "getbuildinfo2.c -DSUBWCREV ");
+ else
+ strcat(command, "..\\Modules\\getbuildinfo.c");
+ strcat(command, " -Fogetbuildinfo.o -I..\\Include -I..\\PC");
+ puts(command); fflush(stdout);
+ result = system(command);
+ if (do_unlink)
+ unlink("getbuildinfo2.c");
+ if (result < 0)
+ return EXIT_FAILURE;
+ return 0;
+}
\ No newline at end of file |