$!
$!	Installing Python for VMS:
$!
$!	Source: http://vmspython.dyndns.org/
$!
$!     Assume files PYTHON-2_3-VMS-SRC.ZIP is present
$!     Need libz and libbz2 to be installed
$!
$!     P1: root directory where to install Python
$!
$
$ if p1 .eqs. "" then $ exit 229452
$
$ if f$type(unzip) .eqs. ""
$ then
$   write sys$output "unzip not found"
$   exit 44
$ endif
$ if f$trnlnm("libbz2") .eqs. ""
$ then
$   write sys$output "logical libbz2 not found"
$   exit 44
$ endif
$ if f$trnlnm("libbz2_shr32") .eqs. ""
$ then
$   write sys$output "logical libbz2_shr32 not found"
$   exit 44
$ endif
$ if f$trnlnm("libz") .eqs. ""
$ then
$   write sys$output "logical libz not found"
$   exit 44
$ endif
$ if f$trnlnm("libz_shr32") .eqs. ""
$ then
$   write sys$output "logical libz_shr32 not found"
$   exit 44
$ endif
$
$ create/dir 'p1'
$ 
$ root_dev = f$parse(p1,,,"DEVICE","NO_CONCEAL")
$ root_dir = f$parse(p1,,,"DIRECTORY","NO_CONCEAL")
$ root_dir = f$extract(1,f$length(root_dir)-2,root_dir)
$ root_dir = root_dir - "["
$ root_dir = root_dir - "]"
$ root_dir = root_dir - "<"
$ root_dir = root_dir - ">"
$ root_dir = root_dir - ".000000"
$ root_dir = root_dir - "000000"
$
$ pyhome := 'root_dev'['root_dir']
$ define/trans=(conc,term) pyhome 'root_dev'['root_dir'.]
$
$ sh log pyhome
$
$! SET VERIFY
$ SET NOON
$
$ unzip -j PYTHON-2_3-VMS-SRC.ZIP
$
$!  Next cmd: ignore ODS-5 file errors (ie files containing ^ that fail)
$ dest = pyhome - "]" + "...]"
$ backup python-2_3-vms-src.bck/sav/sel=[python-2_3...]  'dest'/new_version
$ delete python-2_3-vms-src.bck;
$
$ set default PYHOME:[VMS]
$
$ @logicals
$
$ @build_all
$
$ exit
��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������