| Line | |
|---|
| 1 | $! MAKE_COMMAND.COM
|
|---|
| 2 | $! Record MM[SK]/Make parameters in configuration report
|
|---|
| 3 | $!
|
|---|
| 4 | $! Author: Peter Prymmer <[email protected]>
|
|---|
| 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 | $!------------------------------------------------
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
