$!
$!	Installing Python for VMS:
$!
$!	Source: http://www.pi-net.dyndns.org/docs/python_vms/INSMAN/TITLE_PAGE.HTML
$!	   	   http://www.pi-net.dyndns.org/docs/python_vms/DOCU.HTML
$!
$!     Assumes files PYTHON-2_3-VMS.ZIP, TOOLSLIB.ZIP are presents
$!
$!     P1: root directory where to install libraries
$!     P2: root directory where to install Python
$!
$
$ if p1 .eqs. "" then $ exit 229452
$ if p2 .eqs. "" then $ exit 229452
$ create/dir 'p1'
$ create/dir 'p2'
$ 
$ p1 = f$parse(p1,"sys$disk:[]",,,"NO_CONCEAL")
$ root_dev = f$parse(p1,,,"DEVICE","SYNTAX_ONLY")
$ root_dir = f$parse(p1,,,"DIRECTORY","SYNTAX_ONLY")
$ 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"
$
$ lib_root := 'root_dev'['root_dir']
$ define/trans=(conc,term) lib_root 'root_dev'['root_dir'.]
$
$ p2 = f$parse(p2,"sys$disk:[]",,,"NO_CONCEAL")
$ root_dev = f$parse(p2,,,"DEVICE","SYNTAX_ONLY")
$ root_dir = f$parse(p2,,,"DIRECTORY","SYNTAX_ONLY")
$ 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 lib_root
$ sh log pyhome
$
$! SET VERIFY
$ SET NOON
$
$ unzip PYTHON-2_3-VMS.ZIP
$! delete PYTHON-2_3-VMS.ZIP;
$
$!  Next cmd: ignore ODS-5 file errors (ie files containing ^ that fail)
$ dest = pyhome - "]" + "...]"
$ backup python-2_3-vms.bck/sav/sel=[python-2_3...]  'dest'
$ delete python-2_3-vms-src.bck;
$
$ unzip toolslib.zip
$! delete toolslib.zip;
$
$ dest = lib_root - "]" + "...]"
$ backup lib.bck/sav/select=[distrib.lib...] 'dest'
$ delete lib.bck;
$
$ set default PYHOME:[VMS]
$ @logicals
$
$! define logicals ...
$ define LIBGD lib_root:[libgd]
$ define LIBGDCHART lib_root:[libgdchart]
$ define LIBJPEG lib_root:[libjpeg]
$ define LIBZ lib_root:[libz]
$ define LIBPNG lib_root:[libpng]
$ define LIBIMAGING lib_root:[libimaging]
$
$! set noverify
$
$ @build_all