[perl5.git] / vms / make_command.com

$! MAKE_COMMAND.COM
$! Record MM[SK]/Make parameters in configuration report
$!
$! Author:  Peter Prymmer <pvhp@lns62.lns.cornell.edu>
$! Version: 1.0  18-Jan-1996
$!
$! DCL usage (choose one):
$!      @MAKE_COMMAND                      !or
$!      @MAKE_COMMAND/OUTPUT=MYCONFIG.OUT
$!------------------------------------------------
$ $mms = "'"+p1
$ $makeline = p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8
$quotable:
$ if f$locate("""",$makeline).lt.f$length($makeline)
$   then
$   $makeline = $makeline - """"
$   goto quotable
$ endif
$ $makeline = f$edit($makeline,"COMPRESS,TRIM")
$ write sys$output " make_cmd=''$mms'"+" ''$makeline''"
$!------------------------------------------------
Commit	Line	Data
c07a80fd	1	$! MAKE_COMMAND.COM
	2	$! Record MM[SK]/Make parameters in configuration report
	3	$!
	4	$! Author: Peter Prymmer <pvhp@lns62.lns.cornell.edu>
	5	$! Version: 1.0 18-Jan-1996
	6	$!
	7	$! DCL usage (choose one):
	8	$! @MAKE_COMMAND !or
	9	$! @MAKE_COMMAND/OUTPUT=MYCONFIG.OUT
	10	$!------------------------------------------------
	11	$ $mms = "'"+p1
	12	$ $makeline = p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8
	13	$quotable:
	14	$ if f$locate("""",$makeline).lt.f$length($makeline)
	15	$ then
	16	$ $makeline = $makeline - """"
	17	$ goto quotable
	18	$ endif
	19	$ $makeline = f$edit($makeline,"COMPRESS,TRIM")
	20	$ write sys$output " make_cmd=''$mms'"+" ''$makeline''"
	21	$!------------------------------------------------