>-----Original Message-----
>From: Craig A. Berry [mailto:[EMAIL PROTECTED]]
>Sent: 19 April 2001 04:34
>To: Peter Prymmer
>Cc: 'VMS Perl Mailing List'
>Subject: RE: kit to build and install Perl + extensions
>
>
>At 06:08 PM 4/18/2001 -0700, Peter Prymmer wrote:
>
>>Since my bandwidth is low: I've downloaded your zip kit but have not
>>played with it yet. To accomodate MMS and MMK automatically I was
>>wondering if you might run the same tests configure.com does
>for MMS/MMK
>>or perhaps do an f$type(MMK) to see if it's available then issue you
>>commands in terms of:
>>
>>$ build_cmd := MMS
>>$ if f$type(MMK) .nes. "" then build_cmd := MMK
>>$! ... etc.
>>
>>or somesuch...
>
>Yes, that's a good idea. I was consciously trying to avoid
>replicating
>configure.com functionality, but this one is a prerequisite and I'd be
>better off with your two-line test than just blindly assuming
>MMK. Thanks.
What if both MMS and MMK exist?
I think it would be better to use MMS if it is available, but still allow
users to force the use of MMS or MMK [or something else entirely...]
One could do something like:
$ make_cmd="?"
$ if f$type(perl_make) .eqs. "STRING" ! User has chosen the make utility
$ then
$ make_cmd = perl_make
$ else
$ ! Check if MMS is installed
$ l_msg=f$environment("MESSAGE")
$ set message /nofacility/noidentifcation/noseverity/notext
$ mms /identification
$ l_status=$status
$ set message 'l_msg'
$!
$ if l_status .eq. 1 ! MMS is installed
$ then
$ make_cmd = "MMS" ! quotes needed
$ else
$ if f$type(MMK) .eqs. "STRING" then make_cmd = MMK
$ endif
$ endif
$ if make_cmd .eqs. "?"
$ then
$ gosub make_cmd_error
$ exit 18
$ endif
$ write sys$output "Perl will be built using ",make_cmd
$ make_cmd /ident ! this may need changing for other make utilities ...
$ l_status=$status
$ if l_status .eq. %x38090 ! DCL-W-IVVERB
$ then
$ gosub make_cmd_error
$ exit 18
$ endif
...
$ exit
$!
$make_cmd_error:
$ type sys$input
Cannot determine Perl MAKE command.
Define the symbol PERL_MAKE to tell me what to use, e.g.
PERL_MAKE == "MMS" ! quotes are needed
or
PERL_MAKE == MMK ! do not use quotes unless MMK is installed
$ return
=======
The check for MMS could be omitted to shorten the code, but it would be
useful to be able to force the build process to use a particular make
utility (using the PERL_MAKE symbol).
Just a thought.
--
Sebastian Bazley <[EMAIL PROTECTED]>
The opinions expressed herein are my own, and are not necessarily endorsed
by my employer ...
___________________________________________________________________________
This email is confidential and intended solely for the use of the
individual to whom it is addressed. Any views or opinions presented are
solely those of the author and do not necessarily represent those of
Sema.
If you are not the intended recipient, be advised that you have received this
email in error and that any use, dissemination, forwarding, printing, or
copying of this email is strictly prohibited.
If you have received this email in error please notify the Sema UK
Helpdesk by telephone on +44 (0) 121 627 5600.
___________________________________________________________________________
