develooper Front page | perl.vmsperl | Postings from June 2002

Re: another snapshot today (was RE: possible VMS v5.5 fix...)

From:
PPrymmer
Date:
June 17, 2002 09:19
Subject:
Re: another snapshot today (was RE: possible VMS v5.5 fix...)
Message ID:
OFF87C6FAD.3CC5DEF2-ON85256BDB.00593AC5@55.25.11

Craig Berry wrote:

!>+$ if f$type(mmk) .nes. ""
!>+$ then build_cmd := mmk
!>+$ else build_cmd := mms
!>+$ endif
!
!Yes, that's better, though I think it is possible to put MMK in the
!command tables if you want to, in which case
!
!>I would by the way recommend invoking vmstar with:
!>
!>$ vmstar/extract/verbose/date_policy=none 'tarfile'
!
!I prefer not to get the verbose output for such a large distribution
!as Perl, though with the output going to a log file it probably
!doesn't matter.  The /date_policy=none is probably a good idea.

OK - here is the latest re-write:

$ if p1 .eqs. "" then goto configure_step
$ set verify
$ ziptype = f$parse(p1,,,"type") - "."
$ goto unpack_'ziptype'
$ unpack_tgz:
$ gunzip 'p1'
$ goto unpack_tar
$ unpack_tbz:
$ bzip2 -d 'p1'
$ goto unpack_tar
$ unpack_tar:
$ show process/accounting
$ tarfile = f$parse(p1,,,"name") + ".tar"
$ vmstar /extract/date_policy=none 'tarfile'
$ show process/accounting
$ configure_step:
$ set default [.perl]
$ @configure -"Dusedevel" " -"des"
$ search/key=(POS=1,SIZE=6)/out=make.tmp config.sh "make='"
$ open/read F make.tmp
$ read F line
$ close F
$ delete := delete
$ delete/nolog/nocontrol make.tmp;
$ make = f$element(1,"'",line)
$ show process/accounting
$ 'make'
$ 'make' test
$ exit


Peter Prymmer





nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About