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