I don't know about the rest of you, but when I'm building Perl over
and over I get rather tired of having to do the whole CONFIGURE.COM
dialog manually.
The "-des" option is a help, but only if you want a "standard" version,
and I almost always want non-standard, at least to the extent of
a VMS-debug enabled version.
The following patch makes many of the CONFIGURE.COM options
selectable via command-line -D or -U options. For example, my favorite
choices would be:
@CONFIGURE "-Dusedevel" "-Dusevmsdebug" "-des"
So that the "use..." options now available now include:
usevmsdebug
useperldebug
usemultiplicity
usethreads
useithreads
usecasesensitve
useieee
usesecurelog
usedefaulttypes
in addition to the previously available:
usedevel
use64bitint
use64bitall
usemymalloc
useperlio
The patch doesn't change any of the defaults.
diff -uBb configure.com-orig configure.com
--- configure.com-orig Thu Oct 25 22:13:29 2001
+++ configure.com Thu Oct 25 22:13:21 2001
@@ -2181,6 +2181,7 @@
$ echo "perl itself. This can be a useful feature if you are "
$ echo "embedding perl in a program."
$ dflt = "n"
+$ if f$type(usevmsdebug) .nes. "" .and. usevmsdebug .eqs. "define" then dflt="y"
$ rp = "Build a VMS-DEBUG version of Perl? [''dflt'] "
$ GOSUB myread
$ IF ans.eqs."" then ans = dflt
@@ -2200,6 +2201,7 @@
$ echo "optional. If you do not generally use it you should probably"
$ echo "leave this off and gain a bit of extra speed."
$ dflt = "y"
+$ if f$type(useperldebug) .nes. "" .and. useperldebug .eqs. "undef" then dflt="n"
$ rp = "Build a DEBUGGING version of Perl? [''dflt'] "
$ GOSUB myread
$ IF ans.eqs."" then ans = dflt
@@ -2218,10 +2220,11 @@
$ echo "probably do not want to choose this unless you are going to be"
$ echo "doing things with embedded perl."
$ dflt = "n"
+$ if f$type(usemultiplicity) .nes. "" .and. usemultiplicity .eqs. "define" then dflt
+= "y"
$ rp = "Build Perl for multiplicity? [''dflt'] "
$ GOSUB myread
$ IF ans.eqs."" then ans = dflt
-$ IF ans
+$ IF F$EXTRACT(0, 1, F$EDIT(ans,"COLLAPSE,UPCASE")) .eqs. "Y"
$ THEN
$ usemultiplicity="define"
$ ELSE
@@ -2290,10 +2293,11 @@
$ echo "they are a beta feature, and there is a speed penalty for perl"
$ echo "programs if you build with threads *even if you do not use them*."
$ dflt = "n"
+$ if f$type(usethreads) .nes. "" .and. usethreads .eqs. "define" then dflt="y"
$ rp = "Build with threads? [''dflt'] "
$ GOSUB myread
$ if ans.eqs."" then ans = dflt
-$ if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
+$ if (f$extract(0, 1, f$edit(ans,"collapse,upcase")).eqs."Y")
$ THEN
$ use_threads="T"
$ ! Shall we do the 5.005-stype threads, or IThreads?
@@ -2310,10 +2314,11 @@
$ echo "i.e., ""use Thread;"" will NOT work."
$ echo ""
$ dflt = "n"
+$ if f$type(useithreads) .nes. "" .and. useithreads .eqs. "define" then dflt="y"
$ rp = "Build with Interpreter threads? [''dflt'] "
$ GOSUB myread
$ if ans.eqs."" then ans = dflt
-$ if (f$extract(0, 1, "''ans'").eqs."Y").or.(f$extract(0, 1, "''ans'").eqs."y")
+$ if (f$extract(0, 1, f$edit(ans,"collapse,upcase")).eqs."Y")
$ THEN
$ use_ithreads="Y"
$ use_5005_threads="N"
@@ -2359,6 +2364,11 @@
$ echo "If you have no idea what this means, and do not have"
$ echo "any program requiring anything, choose the default."
$ dflt = be_case_sensitive
+$ if f$type(usecasesensitve) .nes. ""
+$ then
+$ if usecasesensitive .eqs. "define" then dflt = "y"
+$ if usecasesensitive .eqs. "undef" then dflt = "n"
+$ endif
$ rp = "Build with case-sensitive symbols? [''dflt'] "
$ GOSUB myread
$ IF ans .EQS. "" THEN ans="''dflt'"
@@ -2370,6 +2380,7 @@
$ echo "with an external library or existing data, you may wish to disable"
$ echo "the IEEE math option."
$ dflt = use_ieee_math
+$ if f$type(useieee) .nes. "" .and. useieee .eqs. "define" then dflt="y"
$ rp = "Use IEEE math? [''dflt'] "
$ GOSUB myread
$ IF ans .eqs. "" THEN ans = "''dflt'"
@@ -2408,6 +2419,7 @@
$ echo "these always use the normal sequence of access modes for logical"
$ echo "name translation."
$ dflt = "y"
+$ if f$type(usesecurelog) .nes. "" .and. usesecurelog .eqs. "undef" then dflt = "n"
$ rp = "Use secure logical name translation? [''dflt'] "
$ GOSUB myread
$ IF ans .eqs. "" THEN ans = dflt
@@ -2429,6 +2441,7 @@
$ echo "This is currently broken in some configurations. Only enable it if"
$ echo "you know what you are doing."
$ dflt = "n"
+$ if f$type(usedefaulttypes) .nes. "" .and. usedefaulttypes .eqs. "define" then
+dflt="y"
$ rp = "Always use default file types? [''dflt'] "
$ GOSUB myread
$ IF ans .EQS. "" THEN ans = dflt
--
Drexel University \V --Chuck Lane
======]---------->--------*------------<-------[===========
(215) 895-1545 _/ \ Particle Physics
FAX: (215) 895-5934 /\ /~~~~~~~~~~~ [EMAIL PROTECTED]
