Front page | perl.vmsperl |
Postings from June 2002
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