summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/vms/make_command.com
blob: c3a9da8b804656007dad1897a1649e3cc88f6e4a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
$! 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''"
$!------------------------------------------------