2004-01-03 22:27:33 -04:00
|
|
|
# Script for building the _ssl module for Windows.
|
|
|
|
# Uses Perl to setup the OpenSSL environment correctly
|
|
|
|
# and build OpenSSL, then invokes a simple nmake session
|
|
|
|
# for _ssl.pyd itself.
|
|
|
|
|
|
|
|
# THEORETICALLY, you can:
|
|
|
|
# * Unpack the latest SSL release one level above your main Python source
|
|
|
|
# directory. It is likely you will already find the zlib library and
|
|
|
|
# any other external packages there.
|
|
|
|
# * Install ActivePerl and ensure it is somewhere on your path.
|
2008-01-04 11:35:04 -04:00
|
|
|
# * Run this script from the PC/VC6 directory.
|
2004-01-03 22:27:33 -04:00
|
|
|
#
|
|
|
|
# it should configure and build SSL, then build the ssl Python extension
|
|
|
|
# without intervention.
|
|
|
|
|
2010-09-28 15:36:04 -03:00
|
|
|
# Modified by Christian Heimes
|
|
|
|
# Now this script supports pre-generated makefiles and assembly files.
|
|
|
|
# Developers don't need an installation of Perl anymore to build Python. A svn
|
|
|
|
# checkout from our svn repository is enough.
|
|
|
|
|
2009-03-18 08:39:46 -03:00
|
|
|
import os, sys, re, shutil
|
2004-01-03 22:27:33 -04:00
|
|
|
|
|
|
|
# Find all "foo.exe" files on the PATH.
|
|
|
|
def find_all_on_path(filename, extras = None):
|
|
|
|
entries = os.environ["PATH"].split(os.pathsep)
|
|
|
|
ret = []
|
|
|
|
for p in entries:
|
|
|
|
fname = os.path.abspath(os.path.join(p, filename))
|
|
|
|
if os.path.isfile(fname) and fname not in ret:
|
|
|
|
ret.append(fname)
|
|
|
|
if extras:
|
|
|
|
for p in extras:
|
|
|
|
fname = os.path.abspath(os.path.join(p, filename))
|
|
|
|
if os.path.isfile(fname) and fname not in ret:
|
|
|
|
ret.append(fname)
|
|
|
|
return ret
|
|
|
|
|
|
|
|
# Find a suitable Perl installation for OpenSSL.
|
|
|
|
# cygwin perl does *not* work. ActivePerl does.
|
|
|
|
# Being a Perl dummy, the simplest way I can check is if the "Win32" package
|
|
|
|
# is available.
|
|
|
|
def find_working_perl(perls):
|
|
|
|
for perl in perls:
|
2010-09-28 15:36:04 -03:00
|
|
|
fh = os.popen('"%s" -e "use Win32;"' % perl)
|
2004-01-03 22:27:33 -04:00
|
|
|
fh.read()
|
|
|
|
rc = fh.close()
|
|
|
|
if rc:
|
|
|
|
continue
|
|
|
|
return perl
|
2009-03-18 08:39:46 -03:00
|
|
|
print("Can not find a suitable PERL:")
|
2004-01-03 22:27:33 -04:00
|
|
|
if perls:
|
2009-03-18 08:39:46 -03:00
|
|
|
print(" the following perl interpreters were found:")
|
2004-01-03 22:27:33 -04:00
|
|
|
for p in perls:
|
2009-03-18 08:39:46 -03:00
|
|
|
print(" ", p)
|
|
|
|
print(" None of these versions appear suitable for building OpenSSL")
|
2004-01-03 22:27:33 -04:00
|
|
|
else:
|
2009-03-18 08:39:46 -03:00
|
|
|
print(" NO perl interpreters were found on this machine at all!")
|
|
|
|
print(" Please install ActivePerl and ensure it appears on your path")
|
2004-01-03 22:27:33 -04:00
|
|
|
return None
|
|
|
|
|
|
|
|
# Locate the best SSL directory given a few roots to look into.
|
|
|
|
def find_best_ssl_dir(sources):
|
|
|
|
candidates = []
|
|
|
|
for s in sources:
|
|
|
|
try:
|
2009-03-18 08:39:46 -03:00
|
|
|
# note: do not abspath s; the build will fail if any
|
|
|
|
# higher up directory name has spaces in it.
|
2004-01-03 22:27:33 -04:00
|
|
|
fnames = os.listdir(s)
|
|
|
|
except os.error:
|
|
|
|
fnames = []
|
|
|
|
for fname in fnames:
|
|
|
|
fqn = os.path.join(s, fname)
|
|
|
|
if os.path.isdir(fqn) and fname.startswith("openssl-"):
|
|
|
|
candidates.append(fqn)
|
|
|
|
# Now we have all the candidates, locate the best.
|
|
|
|
best_parts = []
|
|
|
|
best_name = None
|
|
|
|
for c in candidates:
|
|
|
|
parts = re.split("[.-]", os.path.basename(c))[1:]
|
|
|
|
# eg - openssl-0.9.7-beta1 - ignore all "beta" or any other qualifiers
|
|
|
|
if len(parts) >= 4:
|
|
|
|
continue
|
|
|
|
if parts > best_parts:
|
|
|
|
best_parts = parts
|
|
|
|
best_name = c
|
|
|
|
if best_name is not None:
|
2009-03-18 08:39:46 -03:00
|
|
|
print("Found an SSL directory at '%s'" % (best_name,))
|
2004-01-03 22:27:33 -04:00
|
|
|
else:
|
2009-03-18 08:39:46 -03:00
|
|
|
print("Could not find an SSL directory in '%s'" % (sources,))
|
|
|
|
sys.stdout.flush()
|
2004-01-03 22:27:33 -04:00
|
|
|
return best_name
|
|
|
|
|
2009-03-18 08:39:46 -03:00
|
|
|
def fix_makefile(makefile):
|
|
|
|
"""Fix some stuff in all makefiles
|
|
|
|
"""
|
|
|
|
if not os.path.isfile(makefile):
|
|
|
|
return
|
2010-09-28 15:36:04 -03:00
|
|
|
with open(makefile) as fin:
|
2009-03-18 08:39:46 -03:00
|
|
|
lines = fin.readlines()
|
2010-09-28 15:36:04 -03:00
|
|
|
with open(makefile, 'w') as fout:
|
2009-03-18 08:39:46 -03:00
|
|
|
for line in lines:
|
|
|
|
if line.startswith("PERL="):
|
|
|
|
continue
|
|
|
|
if line.startswith("CP="):
|
|
|
|
line = "CP=copy\n"
|
|
|
|
if line.startswith("MKDIR="):
|
|
|
|
line = "MKDIR=mkdir\n"
|
|
|
|
if line.startswith("CFLAG="):
|
|
|
|
line = line.strip()
|
|
|
|
for algo in ("RC5", "MDC2", "IDEA"):
|
|
|
|
noalgo = " -DOPENSSL_NO_%s" % algo
|
|
|
|
if noalgo not in line:
|
|
|
|
line = line + noalgo
|
|
|
|
line = line + '\n'
|
|
|
|
fout.write(line)
|
|
|
|
|
|
|
|
def run_configure(configure, do_script):
|
|
|
|
print("perl Configure "+configure)
|
|
|
|
os.system("perl Configure "+configure)
|
|
|
|
print(do_script)
|
|
|
|
os.system(do_script)
|
|
|
|
|
2010-09-28 15:36:04 -03:00
|
|
|
def cmp(f1, f2):
|
|
|
|
bufsize = 1024 * 8
|
|
|
|
with open(f1, 'rb') as fp1, open(f2, 'rb') as fp2:
|
|
|
|
while True:
|
|
|
|
b1 = fp1.read(bufsize)
|
|
|
|
b2 = fp2.read(bufsize)
|
|
|
|
if b1 != b2:
|
|
|
|
return False
|
|
|
|
if not b1:
|
|
|
|
return True
|
|
|
|
|
|
|
|
def copy(src, dst):
|
|
|
|
if os.path.isfile(dst) and cmp(src, dst):
|
|
|
|
return
|
|
|
|
shutil.copy(src, dst)
|
|
|
|
|
2004-01-03 22:27:33 -04:00
|
|
|
def main():
|
|
|
|
debug = "-d" in sys.argv
|
|
|
|
build_all = "-a" in sys.argv
|
2009-03-18 08:39:46 -03:00
|
|
|
if 1: # Win32
|
|
|
|
arch = "x86"
|
|
|
|
configure = "VC-WIN32"
|
|
|
|
do_script = "ms\\do_nasm"
|
|
|
|
makefile="ms\\nt.mak"
|
|
|
|
m32 = makefile
|
2010-09-28 15:36:04 -03:00
|
|
|
dirsuffix = "32"
|
2009-03-18 08:39:46 -03:00
|
|
|
configure += " no-idea no-rc5 no-mdc2"
|
2004-01-03 22:27:33 -04:00
|
|
|
make_flags = ""
|
|
|
|
if build_all:
|
|
|
|
make_flags = "-a"
|
|
|
|
# perl should be on the path, but we also look in "\perl" and "c:\\perl"
|
|
|
|
# as "well known" locations
|
|
|
|
perls = find_all_on_path("perl.exe", ["\\perl\\bin", "C:\\perl\\bin"])
|
|
|
|
perl = find_working_perl(perls)
|
2010-09-28 15:36:04 -03:00
|
|
|
if perl:
|
2009-03-18 08:39:46 -03:00
|
|
|
print("Found a working perl at '%s'" % (perl,))
|
2010-09-28 15:36:04 -03:00
|
|
|
else:
|
|
|
|
print("No Perl installation was found. Existing Makefiles are used.")
|
2009-03-18 08:39:46 -03:00
|
|
|
sys.stdout.flush()
|
2010-09-28 15:36:04 -03:00
|
|
|
# Look for SSL 3 levels up from PC/VC6 - ie, same place zlib etc all live.
|
2009-03-18 08:39:46 -03:00
|
|
|
ssl_dir = find_best_ssl_dir(("..\\..\\..",))
|
2004-01-03 22:27:33 -04:00
|
|
|
if ssl_dir is None:
|
|
|
|
sys.exit(1)
|
|
|
|
|
|
|
|
old_cd = os.getcwd()
|
|
|
|
try:
|
|
|
|
os.chdir(ssl_dir)
|
|
|
|
# If the ssl makefiles do not exist, we invoke Perl to generate them.
|
2009-03-18 08:39:46 -03:00
|
|
|
# Due to a bug in this script, the makefile sometimes ended up empty
|
|
|
|
# Force a regeneration if it is.
|
|
|
|
if not os.path.isfile(makefile) or os.path.getsize(makefile)==0:
|
|
|
|
if perl is None:
|
|
|
|
print("Perl is required to build the makefiles!")
|
|
|
|
sys.exit(1)
|
|
|
|
|
|
|
|
print("Creating the makefiles...")
|
|
|
|
sys.stdout.flush()
|
2004-01-03 22:27:33 -04:00
|
|
|
# Put our working Perl at the front of our path
|
2009-03-18 08:39:46 -03:00
|
|
|
os.environ["PATH"] = os.path.dirname(perl) + \
|
2004-01-03 22:27:33 -04:00
|
|
|
os.pathsep + \
|
|
|
|
os.environ["PATH"]
|
2009-03-18 08:39:46 -03:00
|
|
|
run_configure(configure, do_script)
|
|
|
|
if debug:
|
|
|
|
print("OpenSSL debug builds aren't supported.")
|
|
|
|
#if arch=="x86" and debug:
|
|
|
|
# # the do_masm script in openssl doesn't generate a debug
|
|
|
|
# # build makefile so we generate it here:
|
|
|
|
# os.system("perl util\mk1mf.pl debug "+configure+" >"+makefile)
|
2004-01-03 22:27:33 -04:00
|
|
|
|
2009-03-18 08:39:46 -03:00
|
|
|
fix_makefile(makefile)
|
2010-09-28 15:36:04 -03:00
|
|
|
copy(r"crypto\buildinf.h", r"crypto\buildinf_%s.h" % arch)
|
|
|
|
copy(r"crypto\opensslconf.h", r"crypto\opensslconf_%s.h" % arch)
|
|
|
|
|
|
|
|
# If the assembler files don't exist in tmpXX, copy them there
|
|
|
|
if perl is None:
|
|
|
|
if not os.path.exists("tmp"+dirsuffix):
|
|
|
|
os.mkdir("tmp"+dirsuffix)
|
|
|
|
for f in os.listdir("asm"+dirsuffix):
|
|
|
|
if not f.endswith(".asm"): continue
|
|
|
|
if os.path.isfile(r"tmp%s\%s" % (dirsuffix, f)): continue
|
|
|
|
shutil.copy(r"asm%s\%s" % (dirsuffix, f), "tmp"+dirsuffix)
|
2004-01-03 22:27:33 -04:00
|
|
|
|
|
|
|
# Now run make.
|
2010-09-28 15:36:04 -03:00
|
|
|
copy(r"crypto\buildinf_%s.h" % arch, r"crypto\buildinf.h")
|
|
|
|
copy(r"crypto\opensslconf_%s.h" % arch, r"crypto\opensslconf.h")
|
2009-03-18 08:39:46 -03:00
|
|
|
|
|
|
|
#makeCommand = "nmake /nologo PERL=\"%s\" -f \"%s\"" %(perl, makefile)
|
|
|
|
makeCommand = "nmake /nologo -f \"%s\"" % makefile
|
|
|
|
print("Executing ssl makefiles:", makeCommand)
|
|
|
|
sys.stdout.flush()
|
|
|
|
rc = os.system(makeCommand)
|
|
|
|
if rc:
|
|
|
|
print("Executing "+makefile+" failed")
|
|
|
|
print(rc)
|
|
|
|
sys.exit(rc)
|
2004-01-03 22:27:33 -04:00
|
|
|
finally:
|
|
|
|
os.chdir(old_cd)
|
|
|
|
# And finally, we can build the _ssl module itself for Python.
|
|
|
|
defs = "SSL_DIR=%s" % (ssl_dir,)
|
|
|
|
if debug:
|
|
|
|
defs = defs + " " + "DEBUG=1"
|
|
|
|
rc = os.system('nmake /nologo -f _ssl.mak ' + defs + " " + make_flags)
|
|
|
|
sys.exit(rc)
|
|
|
|
|
|
|
|
if __name__=='__main__':
|
|
|
|
main()
|