From 97386f527ab1a957a985ad4b1b90076b55cda9c5 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 3 Feb 2007 23:53:06 +0000 Subject: [PATCH] Install overload.h on VMS, plus more case fix-ups in descrip_mms.template. p4raw-id: //depot/perl@30111 --- vms/descrip_mms.template | 89 +++++++++++++++++++++++++----------------------- 1 file changed, 47 insertions(+), 42 deletions(-) diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 6f404e5..1ab9eb8 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -294,7 +294,7 @@ obj = $(obj0) $(obj1) $(obj2) $(obj3) $(obj4) h0 = av.h cc_runtime.h config.h cop.h cv.h embed.h embedvar.h h1 = EXTERN.h form.h gv.h handy.h hv.h INTERN.h intrpvar.h -h2 = iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h opnames.h pad.h +h2 = iperlsys.h keywords.h mg.h nostdio.h op.h opcode.h opnames.h overload.h pad.h h3 = parser.h patchlevel.h perl.h perlapi.h perlio.h perlsdio.h perlvars.h perly.h h4 = pp.h pp_proto.h proto.h regcomp.h regexp.h regnodes.h scope.h h5 = sv.h thrdvar.h thread.h utf8.h util.h vmsish.h warnings.h @@ -307,7 +307,7 @@ ac2 = $(ARCHCORE)embedvar.h $(ARCHCORE)EXTERN.h $(ARCHCORE)fakethr.h ac3 = $(ARCHCORE)form.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h ac4 = $(ARCHCORE)INTERN.h $(ARCHCORE)intrpvar.h $(ARCHCORE)iperlsys.h ac5 = $(ARCHCORE)keywords.h $(ARCHCORE)mg.h $(ARCHCORE)nostdio.h -ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h $(ARCHCORE)opnames.h +ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h $(ARCHCORE)opnames.h $(ARCHCORE)overload.h ac7 = $(ARCHCORE)pad.h $(ARCHCORE)parser.h $(ARCHCORE)patchlevel.h $(ARCHCORE)perl.h ac8 = $(ARCHCORE)perlapi.h $(ARCHCORE)perlio.h $(ARCHCORE)perlsdio.h ac9 = $(ARCHCORE)perlsfio.h $(ARCHCORE)perlvars.h $(ARCHCORE)perly.h $(ARCHCORE)pp.h @@ -446,7 +446,7 @@ $(DBG)libperl$(OLB) : $(obj) Library/Object/Replace $(MMS$TARGET) $(MMS$SOURCE_LIST) perlmain.c : miniperlmain.c $(MINIPERL_EXE) [.vms]writemain.pl - $(MINIPERL) [.VMS]Writemain.pl "$(EXT)" + $(MINIPERL) [.vms]Writemain.pl "$(EXT)" .ifdef __DEBUG__ # Link an extra perl that doesn't invoke the debugger @@ -1330,6 +1330,7 @@ $(SOCKH) : [.vms]$(SOCKH) # keywords.h: keywords.pl # opcode.h: opcode.pl # opnames.h: opcode.pl +# overload.h: overload.pl # pp_proto.h: opcode.pl # pp.sym: opcode.pl # embed.h: embed.pl [* needs pp.sym generated by opcode.pl! *] @@ -1347,6 +1348,7 @@ $(SOCKH) : [.vms]$(SOCKH) regen_headers : $(INSTPERL) keywords.pl $(INSTPERL) opcode.pl + $(INSTPERL) overload.pl $(INSTPERL) embed.pl $(INSTPERL) bytecode.pl $(INSTPERL) regcomp.pl @@ -1371,17 +1373,17 @@ check : test test : all [.t.lib]vmsfspec.t [.t.lib]vms_dclsym.t [.t.lib]vms_stdio.t @ PERL_TEST_DRIVER == "TEST." - - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" + - @[.vms]test.com "$(E)" "$(__DEBUG__)" @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests. test_harness : all [.t.lib]vmsfspec.t [.t.lib]vms_dclsym.t [.t.lib]vms_stdio.t @ PERL_TEST_DRIVER == "harness." - - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" + - @[.vms]test.com "$(E)" "$(__DEBUG__)" @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests. minitest : $(MINITEST_EXE) [.lib]re.pm [.lib]lib.pm [.lib.VMS]Filespec.pm unidatafiles.ts @ PERL_TEST_DRIVER == "minitest" - - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" + - @[.vms]test.com "$(E)" "$(__DEBUG__)" # install ought not need a source, but it doesn't work if one's not # there. Go figure... @@ -1479,6 +1481,9 @@ $(ARCHCORE)opcode.h : opcode.h $(ARCHCORE)opnames.h : opnames.h @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) +$(ARCHCORE)overload.h : overload.h + @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) + Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) $(ARCHCORE)pad.h : pad.h @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) @@ -1720,28 +1725,28 @@ tidy : cleanlis - If F$Search("[...]*.Opt;-1").nes."" Then Purge/NoConfirm/Log [...]*.Opt - If F$Search("[...]*$(O);-1").nes."" Then Purge/NoConfirm/Log [...]*$(O) - If F$Search("[...]*$(E);-1").nes."" Then Purge/NoConfirm/Log [...]*$(E) - - If F$Search("Config.H;-1").nes."" Then Purge/NoConfirm/Log Config.H - - If F$Search("Config.SH;-1").nes."" Then Purge/NoConfirm/Log Config.SH - - If F$Search("VMSish.H;-1").nes."" Then Purge/NoConfirm/Log VMSish.H - - If F$Search("VMS.C;-1") .nes."" Then Purge/NoConfirm/Log VMS.C - - If F$Search("Perlmain.C;-1") .nes."" Then Purge/NoConfirm/Log Perlmain.C + - If F$Search("config.h;-1").nes."" Then Purge/NoConfirm/Log config.h + - If F$Search("config.sh;-1").nes."" Then Purge/NoConfirm/Log config.sh + - If F$Search("vmsish.h;-1").nes."" Then Purge/NoConfirm/Log vmsish.h + - If F$Search("vms.c;-1") .nes."" Then Purge/NoConfirm/Log vms.c + - If F$Search("perlmain.c;-1") .nes."" Then Purge/NoConfirm/Log perlmain.c - If F$Search("Perlshr_Gbl*.Mar;-1") .nes."" Then Purge/NoConfirm/Log Perlshr_Gbl*.Mar - - If F$Search("[.ext.DynaLoader]DL_VMS$(O);-1").nes."" Then Purge/NoConfirm/Log [.ext.DynaLoader]DL_VMS$(O) - - If F$Search("[.ext.DynaLoader]DL_VMS.C;-1").nes."" Then Purge/NoConfirm/Log [.ext.DynaLoader]DL_VMS.C + - If F$Search("[.ext.DynaLoader]dl_vms$(O);-1").nes."" Then Purge/NoConfirm/Log [.ext.DynaLoader]dl_vms$(O) + - If F$Search("[.ext.DynaLoader]dl_vms.c;-1").nes."" Then Purge/NoConfirm/Log [.ext.DynaLoader]dl_vms.c - If F$Search("[.ext.Opcode...];-1").nes."" Then Purge/NoConfirm/Log [.ext.Opcode] - If F$Search("[.vms.ext...]*.C;-1").nes."" Then Purge/NoConfirm/Log [.vms.ext...]*.C - If F$Search("[.vms.ext...]*$(O);-1").nes."" Then Purge/NoConfirm/Log [.vms.ext...]*$(O) - - If F$Search("[.Lib.Auto...]*.al;-1").nes."" Then Purge/NoConfirm/Log [.Lib.Auto...]*.al - - If F$Search("[.Lib.Auto...]autosplit.ix;-1").nes."" Then Purge/NoConfirm/Log [.Lib.Auto...]autosplit.ix - - If F$Search("[.Lib]DynaLoader.pm;-1").nes."" Then Purge/NoConfirm/Log [.Lib]DynaLoader.pm - - If F$Search("[.Lib]XSLoader.pm;-1").nes."" Then Purge/NoConfirm/Log [.Lib]XSLoader.pm - - If F$Search("[.Lib]Config.pm;-1").nes."" Then Purge/NoConfirm/Log [.Lib]Config.pm + - If F$Search("[.lib.auto...]*.al;-1").nes."" Then Purge/NoConfirm/Log [.lib.auto...]*.al + - If F$Search("[.lib.auto...]autosplit.ix;-1").nes."" Then Purge/NoConfirm/Log [.lib.auto...]autosplit.ix + - If F$Search("[.lib]DynaLoader.pm;-1").nes."" Then Purge/NoConfirm/Log [.lib]DynaLoader.pm + - If F$Search("[.lib]XSLoader.pm;-1").nes."" Then Purge/NoConfirm/Log [.lib]XSLoader.pm + - If F$Search("[.lib]Config.pm;-1").nes."" Then Purge/NoConfirm/Log [.lib]Config.pm - If F$Search("$(ARCHDIR)Config.pm;-1").nes."" Then Purge/NoConfirm/Log $(ARCHDIR)Config.pm - - If F$Search("[.Lib]Config_heavy.pl;-1").nes."" Then Purge/NoConfirm/Log [.Lib]Config_heavy.pl + - If F$Search("[.lib]Config_heavy.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]Config_heavy.pl - If F$Search("$(ARCHDIR)Config_heavy.pl;-1").nes."" Then Purge/NoConfirm/Log $(ARCHDIR)Config_heavy.pl - If F$Search("[.lib.ExtUtils]Miniperl.pm").nes."" Then Purge/NoConfirm/Log [.lib.ExtUtils]Miniperl.pm - If F$Search("[.lib.ExtUtils]XSSymSet.pm").nes."" Then Purge/NoConfirm/Log [.lib.ExtUtils]XSSymSet.pm - - If F$Search("[.Lib.VMS]*.*;-1").nes."" Then Purge/NoConfirm/Log [.Lib.VMS]*.* + - If F$Search("[.lib.VMS]*.*;-1").nes."" Then Purge/NoConfirm/Log [.lib.VMS]*.* - If F$Search("[.lib.pods]*.Pod;-1").nes."" Then Purge/NoConfirm/Log [.lib.pods]*.Pod - If F$Search("$(ARCHCORE)*.*").nes."" Then Purge/NoConfirm/Log $(ARCHCORE)*.* - If F$Search("[.lib]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib]*.com @@ -1756,13 +1761,13 @@ clean : tidy cleantest - If F$Search("[...]*$(O);*") .nes."" Then Delete/NoConfirm/Log [...]*$(O);* - If F$Search(F$Parse("Sys$Disk:[]","$(SOCKH)")).nes."" Then Delete/NoConfirm/Log $(SOCKH);* - If F$Search(F$Parse("Sys$Disk:[]","$(SOCKC)")).nes."" Then Delete/NoConfirm/Log $(SOCKC);* - - If F$Search("VMSish.H").nes."" Then Delete/NoConfirm/Log VMSish.H;* - - If F$Search("VMS.C") .nes."" Then Delete/NoConfirm/Log VMS.C;* - - If F$Search("Perlmain.C") .nes."" Then Delete/NoConfirm/Log Perlmain.C;* + - If F$Search("vmsish.h").nes."" Then Delete/NoConfirm/Log vmsish.h;* + - If F$Search("vms.c") .nes."" Then Delete/NoConfirm/Log vms.c;* + - If F$Search("perlmain.c") .nes."" Then Delete/NoConfirm/Log perlmain.c;* - If F$Search("Perlshr_Gbl*.Mar") .nes."" Then Delete/NoConfirm/Log Perlshr_Gbl*.Mar;* - If F$Search("*.TS").nes."" Then Delete/NoConfirm/Log *.TS;* - - If F$Search("[.ext.DynaLoader]DL_VMS$(O)").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]DL_VMS$(O);* - - If F$Search("[.ext.DynaLoader]DL_VMS.C").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]DL_VMS.C;* + - If F$Search("[.ext.DynaLoader]dl_vms$(O)").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]dl_vms$(O);* + - If F$Search("[.ext.DynaLoader]dl_vms.c").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]dl_vms.c;* - If F$Search("[.ext.DynaLoader]DynaLoader.pm").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]DynaLoader.pm;* - If F$Search("[.ext.DynaLoader]XSLoader.pm").nes."" Then Delete/NoConfirm/Log [.ext.DynaLoader]XSLoader.pm;* - If F$Search("[.vms.ext...]*.C").nes."" Then Delete/NoConfirm/Log [.vms.ext...]*.C;* @@ -1776,8 +1781,8 @@ realclean : clean - $(MINIPERL) mkppport "--clean" - If F$Search("*$(OLB)").nes."" Then Delete/NoConfirm/Log *$(OLB);* - If F$Search("*.Opt").nes."" Then Delete/NoConfirm/Log *.Opt;* - - If F$Search("Config.H").nes."" Then Delete/NoConfirm/Log Config.H;* - - If F$Search("Config.SH").nes."" Then Delete/NoConfirm/Log Config.SH;* + - If F$Search("config.h").nes."" Then Delete/NoConfirm/Log config.h;* + - If F$Search("config.sh").nes."" Then Delete/NoConfirm/Log config.sh;* - $(MINIPERL) -e "use File::Path; rmtree(\@ARGV,1,0);" config - If F$Search("[.lib.unicore]*.pl").nes."" Then Delete/NoConfirm/Log [.lib.unicore]*.pl;* - If F$Search("[.lib.unicore]Properties.").nes."" Then Delete/NoConfirm/Log [.lib.unicore]Properties.;* @@ -1788,11 +1793,11 @@ realclean : clean - If F$Search("extra.pods").nes."" Then Delete/NoConfirm/Log extra.pods;* - $(MINIPERL) -e "use File::Path; rmtree(['lib/auto','lib/VMS','lib/$(ARCH)'],1,0);" - If F$Search("*.TS").nes."" Then Delete/NoConfirm/Log *.TS;* - - If F$Search("[.Lib]DynaLoader.pm").nes."" Then Delete/NoConfirm/Log [.Lib]DynaLoader.pm;* - - If F$Search("[.Lib]XSLoader.pm").nes."" Then Delete/NoConfirm/Log [.Lib]XSLoader.pm;* - - If F$Search("[.Lib]Config.pm").nes."" Then Delete/NoConfirm/Log [.Lib]Config.pm;* - - If F$Search("[.Lib]Config_heavy.pl").nes."" Then Delete/NoConfirm/Log [.Lib]Config_heavy.pl;* - - If F$Search("[.Lib]*.com").nes."" Then Delete/NoConfirm/Log [.Lib]*.com;* + - If F$Search("[.lib]DynaLoader.pm").nes."" Then Delete/NoConfirm/Log [.lib]DynaLoader.pm;* + - If F$Search("[.lib]XSLoader.pm").nes."" Then Delete/NoConfirm/Log [.lib]XSLoader.pm;* + - If F$Search("[.lib]Config.pm").nes."" Then Delete/NoConfirm/Log [.lib]Config.pm;* + - If F$Search("[.lib]Config_heavy.pl").nes."" Then Delete/NoConfirm/Log [.lib]Config_heavy.pl;* + - If F$Search("[.lib]*.com").nes."" Then Delete/NoConfirm/Log [.lib]*.com;* - If F$Search("[.pod]*.com").nes."" Then Delete/NoConfirm/Log [.pod]*.com;* - If F$Search("[.utils]*.com").nes."" Then Delete/NoConfirm/Log [.utils]*.com;* - If F$Search("[.x2p]*.com").nes."" Then Delete/NoConfirm/Log [.x2p]*.com;* @@ -1814,14 +1819,14 @@ realclean : clean - If F$Search("[.t.lib]vms_stdio.t").nes."" Then Delete/NoConfirm/Log [.t.lib]vms_stdio.t;* cleansrc : clean - - If F$Search("*.C;-1").nes."" Then Purge/NoConfirm/Log *.C - - If F$Search("*.H;-1").nes."" Then Purge/NoConfirm/Log *.H - - If F$Search("*.VMS;-1").nes."" Then Purge/NoConfirm/Log *.VMS - - If F$Search("[.VMS]$(MAKEFILE);-1").nes."" Then Purge/NoConfirm/Log [.VMS]$(MAKEFILE) - - If F$Search("[.VMS]*.C;-1").nes."" Then Purge/NoConfirm/Log [.VMS]*.C - - If F$Search("[.VMS]*.H;-1").nes."" Then Purge/NoConfirm/Log [.VMS]*.H - - If F$Search("[.VMS]*.Pl;-1").nes."" Then Purge/NoConfirm/Log [.VMS]*.Pl - - If F$Search("[.VMS]*.VMS;-1").nes."" Then Purge/NoConfirm/Log [.VMS]*.VMS - - If F$Search("[.VMS...]*.pm;-1").nes."" Then Purge/NoConfirm/Log [.VMS...]*.pm - - If F$Search("[.VMS...]*.xs;-1").nes."" Then Purge/NoConfirm/Log [.VMS...]*.xs + - If F$Search("*.c;-1").nes."" Then Purge/NoConfirm/Log *.c + - If F$Search("*.h;-1").nes."" Then Purge/NoConfirm/Log *.h + - If F$Search("*.vms;-1").nes."" Then Purge/NoConfirm/Log *.vms + - If F$Search("[.vms]$(MAKEFILE);-1").nes."" Then Purge/NoConfirm/Log [.vms]$(MAKEFILE) + - If F$Search("[.vms]*.c;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.c + - If F$Search("[.vms]*.h;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.h + - If F$Search("[.vms]*.pl;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.pl + - If F$Search("[.vms]*.vms;-1").nes."" Then Purge/NoConfirm/Log [.vms]*.vms + - If F$Search("[.vms...]*.pm;-1").nes."" Then Purge/NoConfirm/Log [.vms...]*.pm + - If F$Search("[.vms...]*.xs;-1").nes."" Then Purge/NoConfirm/Log [.vms...]*.xs !GROK!THIS! -- 2.7.4