src/vms/build_swish-e.com

$ proc =  f$environment("procedure")
$ dev = f$parse(proc,,,"DEVICE")
$ dir = f$parse(proc,,,"DIRECTORY")
$ set default 'dev''dir'
$ set default [-]
$ if p2 .eqs. "LIBXML" 
$ then
$   mms/descr=[.vms]descrip.mms 'p1'
$ else
$   mms/descr=[.vms]descrip_axp.mms 'p1'
$ endif
1	adcroft	1.1	$ proc = f$environment("procedure")
2			$ dev = f$parse(proc,,,"DEVICE")
3			$ dir = f$parse(proc,,,"DIRECTORY")
4			$ set default 'dev''dir'
5			$ set default [-]
6			$ if p2 .eqs. "LIBXML"
7			$ then
8			$ mms/descr=[.vms]descrip.mms 'p1'
9			$ else
10			$ mms/descr=[.vms]descrip_axp.mms 'p1'
11			$ endif