From dfe814dcbddaafae2f4df1f35c60ea7453270233 Mon Sep 17 00:00:00 2001 From: Peter Prymmer Date: Mon, 11 Sep 2000 11:41:48 -0700 Subject: [PATCH] [patch: perl@7045] vms updates Message-ID: p4raw-id: //depot/perl@7058 --- configure.com | 15 +++++++++++++-- lib/ExtUtils/MM_VMS.pm | 1 + vms/descrip_mms.template | 35 +++++++++++++++++++++++++++++++---- 3 files changed, 45 insertions(+), 6 deletions(-) diff --git a/configure.com b/configure.com index 99a8335..c0e305e 100644 --- a/configure.com +++ b/configure.com @@ -2491,8 +2491,17 @@ $ make = F$EDIT(build,"UPCASE") $! $!: locate the preferred pager for this system $!pagers = "most|more|less|type/page" -$!rp="What pager is used on your system? [''dflt'] " -$ pager="most" +$ dflt = "type/page" +$! assume that the presence of a most symbol indicates the presence +$! of the pager. +$ IF F$TYPE(most) .EQS. "STRING" THEN dflt = "most" +$ IF F$TYPE(pager) .EQS. "STRING" THEN dflt = pager +$ rp="What pager is used on your system? [''dflt'] " +$ GOSUB myread +$ IF (ans .EQS. "") +$ THEN pager = dflt +$ ELSE pager = ans +$ ENDIF $! $! update [.vms]config.vms here $! @@ -2734,6 +2743,7 @@ $ quadtype = "long long" $ uquadtype = "unsigned long long" $ quadkind = "QUAD_IS_LONG_LONG" $ d_frexpl = "define" +$ d_isnan = "define" $ d_isnanl = "define" $ d_modfl = "define" $ ELSE @@ -2765,6 +2775,7 @@ $ quadtype = "long" $ uquadtype = "unsigned long" $ quadkind = "QUAD_IS_LONG" $ d_frexpl = "undef" +$ d_isnan = "undef" $ d_isnanl = "undef" $ d_modfl = "undef" $ ENDIF diff --git a/lib/ExtUtils/MM_VMS.pm b/lib/ExtUtils/MM_VMS.pm index d21a56a..d966c7d 100644 --- a/lib/ExtUtils/MM_VMS.pm +++ b/lib/ExtUtils/MM_VMS.pm @@ -1890,6 +1890,7 @@ $(OBJECT) : $(PERL_INC)iperlsys.h # We do NOT just update config.h because that is not sufficient. # An out of date config.h is not fatal but complains loudly! $(PERL_INC)config.h : $(PERL_SRC)config.sh + $(NOOP) $(PERL_ARCHLIB)Config.pm : $(PERL_SRC)config.sh $(NOECHO) Write Sys$Error "$(PERL_ARCHLIB)Config.pm may be out of date with config.h or genconfig.pl" diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 0ac2382..4a6b04d 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -218,6 +218,7 @@ NOOP = continue # are built using these macros should depend on $(MINIPERL_EXE) MINIPERL_EXE = Sys$Disk:[]miniperl$(E) MINIPERL = MCR $(MINIPERL_EXE) "-I[.lib]" +MINIPERLQ = MCR $(MINIPERL_EXE) ""-I[.lib]"" XSUBPP = $(MINIPERL) "-I[.ext.re]" [.lib.extutils]xsubpp -noprototypes # Macro to invoke a preexisting copy of Perl. This is used to regenerate # some header files when rebuilding Perl, but premade versions are provided @@ -327,17 +328,19 @@ CRTLOPTS =,$(CRTL)/Options .endif # Modules which must be installed before we can build extensions -LIBPREREQ = $(ARCHDIR)Config.pm [.lib.VMS]Filespec.pm [.lib]DynaLoader.pm [.lib]XSLoader.pm [.lib]lib.pm [.lib]vmsish.pm [.lib.ExtUtils]XSSymSet.pm $(ARCHDIR)vmspipe.com +LIBPREREQ = $(ARCHDIR)Config.pm [.lib.VMS]Filespec.pm [.lib]DynaLoader.pm [.lib]XSLoader.pm [.lib]lib.pm [.lib]vmsish.pm [.lib.ExtUtils]XSSymSet.pm $(ARCHDIR)vmspipe.com [.lib]re.pm utils1 = [.lib.pod]perldoc.com [.lib.ExtUtils]Miniperl.pm [.utils]c2ph.com [.utils]h2ph.com [.utils]h2xs.com [.lib]perlbug.com [.lib]perlcc.com [.utils]dprofpp.com utils2 = [.lib]splain.com [.utils]pl2pm.com .ifdef NOX2P all : base extras archcorefiles preplibrary perlpods - @ $(NOOP) + @ write sys$output " " + @ write sys$output " Everything is up to date. '$(MMS)$(MMSQUALIFIERS) test' to run test suite." .else all : base extras x2p archcorefiles preplibrary perlpods - @ $(NOOP) + @ write sys$output " " + @ write sys$output " Everything is up to date. '$(MMS)$(MMSQUALIFIERS) test' to run test suite." .endif base : miniperl perl @ $(NOOP) @@ -382,8 +385,11 @@ perlpods : $(pod) archcorefiles : $(ac) $(acth) $(ARCHAUTO)time.stamp @ $(NOOP) +[.lib]re.pm : [.ext.re]re.pm + copy/log $(MMS$SOURCE) $(MMS$TARGET) + vmspipe.com : [.vms]vmspipe.com - copy/log $(MMS$SOURCE) $(MMS$TARGET) + copy/log $(MMS$SOURCE) $(MMS$TARGET) miniperl : $(DBG)miniperl$(E) vmspipe.com @ Continue @@ -887,6 +893,7 @@ perly$(O) : perly.c, perly.h, $(h) test : all [.t.lib]vmsfspec.t [.t.lib]vmsish.t - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" + @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests. # install ought not need a source, but it doesn't work if one's not # there. Go figure... @@ -1168,6 +1175,25 @@ $(CRTL) : $(MAKEFILE) @ @[.vms]genopt "$(CRTL)/Write" "|" "$(LIBS1)|$(FULLLIBS2)|$(SOCKLIB)" +ok : $(utils) + $(MINIPERL) lib/perlbug.com -ok -s "(UNINSTALLED)" + +okfile : $(utils) + $(MINIPERL) lib/perlbug.com -ok -s "(UNINSTALLED)" "-F" perl.ok + +nok : $(utils) + @ write sys$output " " + @ write sys$output " Please type the command:" + @ write sys$output " " + @ write sys$output "$(MINIPERLQ) lib/perlbug.com -nok -s ""(UNINSTALLED)""" + +nokfile : $(utils) + @ write sys$output " " + @ write sys$output " Please type the command:" + @ write sys$output " " + @ write sys$output "$(MINIPERLQ) lib/perlbug.com -nok -s ""(UNINSTALLED)"" ""-F"" perl.nok" + + cleanlis : - If F$Search("*.Lis").nes."" Then Delete/NoConfirm/Log *.Lis;* - If F$Search("*.CPP").nes."" Then Delete/NoConfirm/Log *.CPP;* @@ -1262,6 +1288,7 @@ realclean : clean - If F$Search("[.t.lib]vms*.t").nes."" Then Delete/NoConfirm/Log [.t.lib]vms*.t;* - If F$Search("[...]*$(E)").nes."" Then Delete/NoConfirm/Log [...]*$(E);* - If F$Search("[.vms]Perl_Setup.Com").nes."" Then Delete/NoConfirm/Log [.vms]Perl_Setup.Com;* + - If F$Search("[.t]rantests.").nes."" Then Delete/NoConfirm/Log [.t]rantests.;* cleansrc : clean !GROK!THIS! -- 1.8.3.1