$! make LibImaging under VMS
$! written by Jean-Francois Pieronne <jf.pieronne@laposte.net>
$!
$ proc = f$environment("PROCEDURE")
$ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY")
$ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY")
$ set default 'cur_dev''cur_dir'
$
$ say = "write sys$output"
$ make = ""
$ if f$type(mmk) .nes. ""
$   then make = "mms"
$ else
$   if f$search("sys$system:mms.exe") .nes. "" then make = "mms"
$ endif
$!
$ if make .nes. ""
$ then
$   say "make libraries with ''make'."
$   say ""
$ else
$   say "MMS or MMK not found!!!"
$   exit 44
$ endif
$
$ 'make'
$ 
$ exit