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	$ 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