Mercurial > cpython-lru_cache-weakref

annotate PC/VC6/build_ssl.py @ 79675:c0a2294de787 2.7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Issue #16199: Backport 2to3 typo fix from 3.2.
author Chris Jerdonek <chris.jerdonek@gmail.com>
date Thu, 11 Oct 2012 16:15:46 -0700
parents b84261bd6d4a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
1 # Script for building the _ssl module for Windows.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
2 # Uses Perl to setup the OpenSSL environment correctly
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
3 # and build OpenSSL, then invokes a simple nmake session
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
4 # for _ssl.pyd itself.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
5
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
6 # THEORETICALLY, you can:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
7 # * Unpack the latest SSL release one level above your main Python source
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
8 # directory. It is likely you will already find the zlib library and
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
9 # any other external packages there.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
10 # * Install ActivePerl and ensure it is somewhere on your path.
48226
eccd9429702e Issue #2065: VC6 related fix.
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 44476
diff changeset
11 # * Run this script from the PC/VC6 directory.
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
12 #
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
13 # it should configure and build SSL, then build the ssl Python extension
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
14 # without intervention.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
15
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
16 # Modified by Christian Heimes
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
17 # Now this script supports pre-generated makefiles and assembly files.
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
18 # Developers don't need an installation of Perl anymore to build Python. A svn
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
19 # checkout from our svn repository is enough.
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
20
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
21 import os, sys, re, shutil
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
22
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
23 # Find all "foo.exe" files on the PATH.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
24 def find_all_on_path(filename, extras = None):
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
25 entries = os.environ["PATH"].split(os.pathsep)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
26 ret = []
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
27 for p in entries:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
28 fname = os.path.abspath(os.path.join(p, filename))
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
29 if os.path.isfile(fname) and fname not in ret:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
30 ret.append(fname)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
31 if extras:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
32 for p in extras:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
33 fname = os.path.abspath(os.path.join(p, filename))
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
34 if os.path.isfile(fname) and fname not in ret:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
35 ret.append(fname)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
36 return ret
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
37
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
38 # Find a suitable Perl installation for OpenSSL.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
39 # cygwin perl does *not* work. ActivePerl does.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
40 # Being a Perl dummy, the simplest way I can check is if the "Win32" package
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
41 # is available.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
42 def find_working_perl(perls):
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
43 for perl in perls:
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
44 fh = os.popen('"%s" -e "use Win32;"' % perl)
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
45 fh.read()
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
46 rc = fh.close()
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
47 if rc:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
48 continue
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
49 return perl
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
50 print "Can not find a suitable PERL:"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
51 if perls:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
52 print " the following perl interpreters were found:"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
53 for p in perls:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
54 print " ", p
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
55 print " None of these versions appear suitable for building OpenSSL"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
56 else:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
57 print " NO perl interpreters were found on this machine at all!"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
58 print " Please install ActivePerl and ensure it appears on your path"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
59 return None
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
60
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
61 # Locate the best SSL directory given a few roots to look into.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
62 def find_best_ssl_dir(sources):
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
63 candidates = []
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
64 for s in sources:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
65 try:
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
66 # note: do not abspath s; the build will fail if any
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
67 # higher up directory name has spaces in it.
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
68 fnames = os.listdir(s)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
69 except os.error:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
70 fnames = []
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
71 for fname in fnames:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
72 fqn = os.path.join(s, fname)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
73 if os.path.isdir(fqn) and fname.startswith("openssl-"):
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
74 candidates.append(fqn)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
75 # Now we have all the candidates, locate the best.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
76 best_parts = []
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
77 best_name = None
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
78 for c in candidates:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
79 parts = re.split("[.-]", os.path.basename(c))[1:]
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
80 # eg - openssl-0.9.7-beta1 - ignore all "beta" or any other qualifiers
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
81 if len(parts) >= 4:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
82 continue
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
83 if parts > best_parts:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
84 best_parts = parts
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
85 best_name = c
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
86 if best_name is not None:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
87 print "Found an SSL directory at '%s'" % (best_name,)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
88 else:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
89 print "Could not find an SSL directory in '%s'" % (sources,)
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
90 sys.stdout.flush()
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
91 return best_name
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
92
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
93 def fix_makefile(makefile):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
94 """Fix some stuff in all makefiles
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
95 """
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
96 if not os.path.isfile(makefile):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
97 return
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
98 # 2.4 compatibility
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
99 fin = open(makefile)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
100 if 1: # with open(makefile) as fin:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
101 lines = fin.readlines()
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
102 fin.close()
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
103 fout = open(makefile, 'w')
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
104 if 1: # with open(makefile, 'w') as fout:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
105 for line in lines:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
106 if line.startswith("PERL="):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
107 continue
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
108 if line.startswith("CP="):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
109 line = "CP=copy\n"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
110 if line.startswith("MKDIR="):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
111 line = "MKDIR=mkdir\n"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
112 if line.startswith("CFLAG="):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
113 line = line.strip()
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
114 for algo in ("RC5", "MDC2", "IDEA"):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
115 noalgo = " -DOPENSSL_NO_%s" % algo
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
116 if noalgo not in line:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
117 line = line + noalgo
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
118 line = line + '\n'
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
119 fout.write(line)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
120 fout.close()
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
121
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
122 def run_configure(configure, do_script):
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
123 print "perl Configure "+configure
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
124 os.system("perl Configure "+configure)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
125 print do_script
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
126 os.system(do_script)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
127
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
128 def cmp(f1, f2):
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
129 bufsize = 1024 * 8
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
130 with open(f1, 'rb') as fp1, open(f2, 'rb') as fp2:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
131 while True:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
132 b1 = fp1.read(bufsize)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
133 b2 = fp2.read(bufsize)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
134 if b1 != b2:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
135 return False
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
136 if not b1:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
137 return True
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
138
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
139 def copy(src, dst):
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
140 if os.path.isfile(dst) and cmp(src, dst):
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
141 return
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
142 shutil.copy(src, dst)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
143
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
144 def main():
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
145 debug = "-d" in sys.argv
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
146 build_all = "-a" in sys.argv
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
147 if 1: # Win32
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
148 arch = "x86"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
149 configure = "VC-WIN32"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
150 do_script = "ms\\do_nasm"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
151 makefile="ms\\nt.mak"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
152 m32 = makefile
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
153 dirsuffix = "32"
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
154 configure += " no-idea no-rc5 no-mdc2"
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
155 make_flags = ""
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
156 if build_all:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
157 make_flags = "-a"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
158 # perl should be on the path, but we also look in "\perl" and "c:\\perl"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
159 # as "well known" locations
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
160 perls = find_all_on_path("perl.exe", ["\\perl\\bin", "C:\\perl\\bin"])
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
161 perl = find_working_perl(perls)
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
162 if perl:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
163 print "Found a working perl at '%s'" % (perl,)
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
164 else:
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
165 print "No Perl installation was found. Existing Makefiles are used."
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
166 sys.stdout.flush()
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
167 # Look for SSL 3 levels up from PC/VC6 - ie, same place zlib etc all live.
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
168 ssl_dir = find_best_ssl_dir(("..\\..\\..",))
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
169 if ssl_dir is None:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
170 sys.exit(1)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
171
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
172 old_cd = os.getcwd()
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
173 try:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
174 os.chdir(ssl_dir)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
175 # If the ssl makefiles do not exist, we invoke Perl to generate them.
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
176 # Due to a bug in this script, the makefile sometimes ended up empty
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
177 # Force a regeneration if it is.
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
178 if not os.path.isfile(makefile) or os.path.getsize(makefile)==0:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
179 if perl is None:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
180 print "Perl is required to build the makefiles!"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
181 sys.exit(1)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
182
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
183 print "Creating the makefiles..."
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
184 sys.stdout.flush()
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
185 # Put our working Perl at the front of our path
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
186 os.environ["PATH"] = os.path.dirname(perl) + \
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
187 os.pathsep + \
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
188 os.environ["PATH"]
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
189 run_configure(configure, do_script)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
190 if debug:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
191 print "OpenSSL debug builds aren't supported."
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
192 #if arch=="x86" and debug:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
193 # # the do_masm script in openssl doesn't generate a debug
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
194 # # build makefile so we generate it here:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
195 # os.system("perl util\mk1mf.pl debug "+configure+" >"+makefile)
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
196
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
197 fix_makefile(makefile)
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
198 copy(r"crypto\buildinf.h", r"crypto\buildinf_%s.h" % arch)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
199 copy(r"crypto\opensslconf.h", r"crypto\opensslconf_%s.h" % arch)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
200
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
201 # If the assembler files don't exist in tmpXX, copy them there
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
202 if perl is None:
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
203 if not os.path.exists("tmp"+dirsuffix):
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
204 os.mkdir("tmp"+dirsuffix)
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
205 for f in os.listdir("asm"+dirsuffix):
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
206 if not f.endswith(".asm"): continue
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
207 if os.path.isfile(r"tmp%s\%s" % (dirsuffix, f)): continue
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
208 shutil.copy(r"asm%s\%s" % (dirsuffix, f), "tmp"+dirsuffix)
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
209
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
210 # Now run make.
66800
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
211 copy(r"crypto\buildinf_%s.h" % arch, r"crypto\buildinf.h")
b84261bd6d4a Merged revisions 85071-85072,85894,87132 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 64881
diff changeset
212 copy(r"crypto\opensslconf_%s.h" % arch, r"crypto\opensslconf.h")
52205
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
213
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
214 #makeCommand = "nmake /nologo PERL=\"%s\" -f \"%s\"" %(perl, makefile)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
215 makeCommand = "nmake /nologo -f \"%s\"" % makefile
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
216 print "Executing ssl makefiles:", makeCommand
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
217 sys.stdout.flush()
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
218 rc = os.system(makeCommand)
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
219 if rc:
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
220 print "Executing "+makefile+" failed"
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
221 print rc
58b286e15ebc Merged revisions 70448 via svnmerge from
Hirokazu Yamamoto <ocean-city@m2.ccsnet.ne.jp>
parents: 48226
diff changeset
222 sys.exit(rc)
31333
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
223 finally:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
224 os.chdir(old_cd)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
225 # And finally, we can build the _ssl module itself for Python.
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
226 defs = "SSL_DIR=%s" % (ssl_dir,)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
227 if debug:
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
228 defs = defs + " " + "DEBUG=1"
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
229 rc = os.system('nmake /nologo -f _ssl.mak ' + defs + " " + make_flags)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
230 sys.exit(rc)
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
231
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
232 if __name__=='__main__':
0baa2660a568 The _ssl subproject may <heh> be working w/ VC6 again.
Tim Peters <tim.peters@gmail.com>
parents:
diff changeset
233 main()