From: Steve Hay Date: Wed, 18 Feb 2015 08:26:36 +0000 (+0000) Subject: Remove some remnants of x2p, which was removed by commit e5a8a0fbd7 X-Git-Tag: v5.21.9~45 X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/c67aee7a0ec313b3a0ea285a77b3cda5496f4e17?ds=sidebyside Remove some remnants of x2p, which was removed by commit e5a8a0fbd7 References to PERL_FOR_X2P probably have to stay in case any third-party code is #defining it. Likewise, NO_PERL_TYPEDEFS in vms/vmsish.h has to stay because it actually is used by App::a2p. Cross/Makefile.SH.patch still needs regenerating since it contains references to x2p in the top-level Makefile.SH which were removed by e5a8a0fbd7. A few other references to x2p/a2p/find2p/s2p still remain, which I am less sure about removing, plus some others in documentation which should stay anyway. --- diff --git a/Cross/Makefile-cross-SH b/Cross/Makefile-cross-SH index eb673ce..3260be4 100644 --- a/Cross/Makefile-cross-SH +++ b/Cross/Makefile-cross-SH @@ -14,7 +14,7 @@ Makefile=Makefile-cross-$CROSS_NAME # are removed/replaced in patches on blead, but are still needed in the # 5.8.x, 5.6.x and 5.005.x maintenance tracks. # metaconfig -m will scan all .SH files on this level (not deeper), and -# not in x2p and other subfolders. This file is as good as any .SH +# not in other subfolders. This file is as good as any .SH # patch references # #22227 $baserev # #22302 $yacc $byacc @@ -966,7 +966,6 @@ _mopup: _tidy: -cd pod; $(LDLIBPTH) $(MAKE) clean -cd utils; $(LDLIBPTH) $(MAKE) clean - -cd x2p; $(LDLIBPTH) $(MAKE) clean -@for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) $(nonxs_ext) ; do \ $(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --target=clean $$x MAKE=$(MAKE) ; \ done @@ -975,7 +974,6 @@ _cleaner1: -cd os2; rm -f Makefile -cd pod; $(LDLIBPTH) $(MAKE) $(CLEAN) -cd utils; $(LDLIBPTH) $(MAKE) $(CLEAN) - -cd x2p; $(LDLIBPTH) $(MAKE) $(CLEAN) -@if test -f miniperl$(EXE_EXT) ; then \ for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) $(nonxs_ext) ; do \ $(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --target=$(CLEAN) $$x MAKE=$(MAKE) ; \ @@ -1055,7 +1053,6 @@ xconfig.h: config_h.SH Cross/config-$(CROSS_NAME).sh depend: makedepend sh ./makedepend MAKE=$(MAKE) - test -s perlmain.c && touch perlmain.c - cd x2p; $(MAKE) depend # Cannot postpone this until $firstmakefile is ready ;-) makedepend: makedepend.SH config.sh @@ -1082,7 +1079,7 @@ _test_prep: test_prep_pre: preplibrary utilities $(nonxs_ext) test_prep: test_prep_pre miniperl$(EXE_EXT) $(unidatafiles) perl$(EXE_EXT) \ - $(dynamic_ext) $(TEST_PERL_DLL) x2p/s2p x2p/find2perl + $(dynamic_ext) $(TEST_PERL_DLL) PERL=./perl $(MAKE) _test_prep _test_tty: @@ -1288,44 +1285,6 @@ define) echo "This is an EBCDIC system, checking if any parser files need regenerating." >&2 case "$osname" in os390|posix-bc) - if cd x2p - then - rm -f y.tab.c y.tab.h - case "$osname" in - posix-bc) - # we are using two different yaccs in BS2000 Posix! - byacc a2p.y >/dev/null 2>&1 - ;; - *) # e.g. os390 - yacc a2p.y >/dev/null 2>&1 - ;; - esac - if cmp -s y.tab.c a2p.c - then - rm -f y.tab.c - else - echo "a2p.y -> a2p.c" >&2 - mv -f y.tab.c a2p.c - chmod u+w a2p.c - sed -e 's/fprintf *( *stderr *,/PerlIO_printf(Perl_debug_log,/g' \ - -e 's|^static void __YY_YACC_MAIN.*BS2000.*|/*static main deleted*/|' \ - -e 's/y\.tab/a2p/g' a2p.c >a2p.tmp && mv a2p.tmp a2p.c - xxx="$xxx a2p.c" - fi - # In case somebody yacc -d:ed the a2p.y. - if test -f y.tab.h - then - if cmp -s y.tab.h a2p.h - then - rm -f y.tab.h - else - echo "a2p.h -> a2p.h" >&2 - mv -f y.tab.h a2p.h - xxx="$xxx a2p.h" - fi - fi - cd .. - fi ;; *) echo "'$osname' is an EBCDIC system I don't know that well." >&4 diff --git a/INSTALL b/INSTALL index e2c7a10..09546c9 100644 --- a/INSTALL +++ b/INSTALL @@ -2217,7 +2217,6 @@ make install will install the following: perl, perl5.n.n where 5.n.n is the current release number. This will be a link to perl. - a2p awk-to-perl translator. scripts @@ -2230,7 +2229,6 @@ make install will install the following: versions of perl. cpan The CPAN shell. enc2xs Encoding module generator. - find2perl find-to-perl translator. h2ph Extract constants and simple macros from C headers. h2xs Converts C .h header files to Perl extensions. @@ -2253,7 +2251,6 @@ make install will install the following: ptar A Perl implementation of tar. ptardiff A diff for tar archives. ptargrep A grep for tar archives. - s2p sed-to-perl translator. shasum A tool to print or check SHA checksums. splain Describe Perl warnings and errors. xsubpp Compiler to convert Perl XS code into C code. diff --git a/NetWare/Makefile b/NetWare/Makefile index 8537c79..04ad692 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -653,7 +653,6 @@ PERLIMPLIB = ..\perl.lib MINIPERL = ..\miniperl.exe CONFIGPM = ..\lib\Config.pm MINIMOD = ..\lib\ExtUtils\Miniperl.pm -X2P = ..\x2p\a2p.nlm PL2BAT = ..\win32\bin\pl2bat.pl @@ -670,9 +669,7 @@ UTILS = \ ..\pod\pod2text \ ..\pod\pod2usage \ ..\pod\podchecker \ - ..\pod\podselect \ - ..\x2p\find2perl \ - ..\x2p\s2p + ..\pod\podselect MAKE = nmake -nologo #NMAKE = $(C_COMPILER) $(INCLUDE) $(NLM_INCLUDES) $(COMPLER_FLAGS) $(ADD_LOCDEFS) $(ERROR_FLAG) $(*F).c -o $@ @@ -738,13 +735,6 @@ NW_SRC = $(NW_SRC) .\$(CRYPT_SRC) DLL_SRC = $(DYNALOADER).c -X2P_SRC = \ - ..\x2p\a2p.c \ - ..\x2p\hash.c \ - ..\x2p\str.c \ - ..\x2p\util.c \ - ..\x2p\walk.c - CORE_NOCFG_H = \ ..\av.h \ ..\cop.h \ @@ -783,7 +773,6 @@ CORE_NOCFG_H = \ CORE_H = $(CORE_NOCFG_H) .\config.h DLL_OBJ = $(DLL_SRC:.c=.obj) -X2P_OBJ = $(X2P_SRC:.c=.obj) DYNAMIC_EXT = Socket IO Fcntl Opcode SDBM_File POSIX attributes B re \ Data/Dumper Devel/Peek ByteLoader File/Glob \ @@ -891,47 +880,6 @@ $(MINIPERL) : $(MINIMOD) : $(MINIPERL) ..\minimod.pl cd .. && miniperl minimod.pl > lib\ExtUtils\Miniperl.pm -..\x2p\a2p$(o) : ..\x2p\a2p.c - @echo $(MPKMESSAGE)...$(BLDMESG)...$@ - $(C_COMPILER) $(COMPLER_FLAGS) $(NLM_INCLUDES) -I..\x2p $(ADD_LOCDEFS) $(ERROR_FLAG) $*.c -o $@ - @echo Built $(@) - -..\x2p\hash$(o) : ..\x2p\hash.c - @echo $(MPKMESSAGE)...$(BLDMESG)...$@ - $(C_COMPILER) $(COMPLER_FLAGS) $(NLM_INCLUDES) -I..\x2p $(ADD_LOCDEFS) $(ERROR_FLAG) $*.c -o $@ - @echo Built $(@) - -..\x2p\str$(o) : ..\x2p\str.c - @echo $(MPKMESSAGE)...$(BLDMESG)...$@ - $(C_COMPILER) $(COMPLER_FLAGS) $(NLM_INCLUDES) -I..\x2p $(ADD_LOCDEFS) $(ERROR_FLAG) $*.c -o $@ - @echo Built $(@) - -..\x2p\util$(o) : ..\x2p\util.c - @echo $(MPKMESSAGE)...$(BLDMESG)...$@ - $(C_COMPILER) $(COMPLER_FLAGS) $(NLM_INCLUDES) -I..\x2p $(ADD_LOCDEFS) $(ERROR_FLAG) $*.c -o $@ - @echo Built $(@) - -..\x2p\walk$(o) : ..\x2p\walk.c - @echo $(MPKMESSAGE)...$(BLDMESG)...$@ - $(C_COMPILER) $(COMPLER_FLAGS) $(NLM_INCLUDES) -I..\x2p $(ADD_LOCDEFS) $(ERROR_FLAG) $*.c -o $@ - @echo Built $(@) - -$(X2P) : $(MINIPERL) $(X2P_OBJ) - @echo Building $@.......... - $(MINIPERL) ..\x2p\find2perl.PL - $(MINIPERL) ..\x2p\s2p.PL -# Linker definitions and lining come here for CODEWARRIOR - @echo $(BASE_IMPORT_FILES) > $*.def - @echo MODULE clib >> $*.def - @echo Import @perl.imp >> $*.def -!ifdef USE_XDC - $(MPKTOOL) $(XDCFLAGS) $*.xdc - @echo Import Mp.imp >> $*.def - @echo xdcdata $*.xdc >> $*.def -!endif -## $(LINK) $(LDFLAGS) $(BS_CFLAGS) -desc "Awk to Perl Translator" $(X2P_OBJ) $(BLDDIR)\clibstuf.obj -commandfile $*.def -o $@ - $(LINK) $(LDFLAGS) -desc "Awk to Perl Translator" $(X2P_OBJ) $(BLDDIR)\clibstuf.obj -commandfile $*.def -o $@ - $(EXTDIR)\DynaLoader\dl_netware.xs: dl_netware.xs copy dl_netware.xs $(EXTDIR)\DynaLoader\dl_netware.xs @@ -1357,7 +1305,7 @@ nwclean: -del /f /q *.obj *.map *.link *.options *.nlm *.sym *.xdc *.err *.lib *.def *.pdb *.bs cd ..\..\ -utils: $(BLDDIR)\$(NLM_NAME8).$(NLM_EXT) $(X2P) +utils: $(BLDDIR)\$(NLM_NAME8).$(NLM_EXT) cd ..\utils $(MAKE) PERL=$(MINIPERL) cd ..\pod @@ -1402,11 +1350,6 @@ distclean: clean nwclean -del /f /q h2ph splain perlbug pl2pm c2ph h2xs perldoc -del /f /q *.bat cd ..\netware - cd ..\x2p - -del /f /q find2perl s2p - -del /f /q *.bat *.exe - -del /f /q *.obj *.map *.link *.xdc *.err - cd ..\netware -del /f /q ..\config.sh ..\splittree.pl dlutils.c config.h.new -del /f /q $(CONFIGPM) -del /f /q bin\*.bat @@ -1463,4 +1406,3 @@ clean : -@erase $(DLL_OBJ) -@erase ..\*$(o) ..\*.lib ..\*.exp *$(o) *.lib *.exp *.res -@erase ..\t\*.exe ..\t\*.dll ..\t\*.bat - -@erase ..\x2p\*.nlm ..\x2p\*.bat diff --git a/Porting/how_to_write_a_perldelta.pod b/Porting/how_to_write_a_perldelta.pod index 7b9e770..effd166 100644 --- a/Porting/how_to_write_a_perldelta.pod +++ b/Porting/how_to_write_a_perldelta.pod @@ -166,7 +166,7 @@ for the particular file in core.) =item Utility Changes Changes to installed programs such as F and F go here. Most -of these are built within the directories F and F. +of these are built within the directory F. =item New Documentation diff --git a/Porting/perlhist_calculate.pl b/Porting/perlhist_calculate.pl index 661f98d..29a19a6 100755 --- a/Porting/perlhist_calculate.pl +++ b/Porting/perlhist_calculate.pl @@ -143,7 +143,7 @@ sub calc_longtable { emit Configure => $configure_size, 1; - foreach my $dir (qw(Cross djgpp emacs h2pl hints NetWare os2 plan9 Porting qnx symbian utils vms vos win32 x2p)) { + foreach my $dir (qw(Cross djgpp emacs h2pl hints NetWare os2 plan9 Porting qnx symbian utils vms vos win32)) { calc_dir($dir); } } diff --git a/Porting/pumpkin.pod b/Porting/pumpkin.pod index 0a6165f..3618eec 100644 --- a/Porting/pumpkin.pod +++ b/Porting/pumpkin.pod @@ -1381,7 +1381,7 @@ The files of Perl source code distribution do carry a lot of copyrights, by various people. (There are many copyrights embedded in perl.c, for example.) The most straightforward thing for pumpkings to do is to simply update Larry's copyrights at the beginning of the -*.[hcy], x2p/*.[hcy], *.pl, and README files, and leave all other +*.[hcy], *.pl, and README files, and leave all other copyrights alone. Doing more than that requires quite a bit of tracking. =back diff --git a/README.os390 b/README.os390 index 645d10e..61fd667 100644 --- a/README.os390 +++ b/README.os390 @@ -132,7 +132,7 @@ is nothing to worry about at all. Some of the parser default template files in /samples are needed in /etc. In particular be sure that you at least copy /samples/yyparse.c to /etc before running Perl's Configure. This step ensures successful extraction -of EBCDIC versions of parser files such as perly.c, perly.h, and x2p/a2p.c. +of EBCDIC versions of parser files such as perly.c and perly.h. This has to be done before running Configure the first time. If you failed to do so then the easiest way to re-Configure Perl is to delete your misconfigured build root and re-extract the source from the tar ball. diff --git a/configure.com b/configure.com index c70cf7b..83f8297 100644 --- a/configure.com +++ b/configure.com @@ -7410,7 +7410,6 @@ $ WRITE CONFIG "$ corelist == """ + perl_setup_perl + " ''vms_prefix':[utils]c $ WRITE CONFIG "$ cpan == """ + perl_setup_perl + " ''vms_prefix':[utils]cpan.com""" $ WRITE CONFIG "$ enc2xs == """ + perl_setup_perl + " ''vms_prefix':[utils]enc2xs.com""" $ WRITE CONFIG "$ encguess == """ + perl_setup_perl + " ''vms_prefix':[utils]encguess.com""" -$ WRITE CONFIG "$ find2perl == """ + perl_setup_perl + " ''vms_prefix':[utils]find2perl.com""" $ WRITE CONFIG "$ h2ph == """ + perl_setup_perl + " ''vms_prefix':[utils]h2ph.com""" $ WRITE CONFIG "$ h2xs == """ + perl_setup_perl + " ''vms_prefix':[utils]h2xs.com""" $ WRITE CONFIG "$ instmodsh == """ + perl_setup_perl + " ''vms_prefix':[utils]instmodsh.com""" @@ -7429,7 +7428,6 @@ $ WRITE CONFIG "$ podselect == """ + perl_setup_perl + " ''vms_prefix':[utils]p $ WRITE CONFIG "$ prove == """ + perl_setup_perl + " ''vms_prefix':[utils]prove.com""" $ WRITE CONFIG "$ psed == """ + perl_setup_perl + " ''vms_prefix':[utils]psed.com""" $ WRITE CONFIG "$ pstruct == """ + perl_setup_perl + " ''vms_prefix':[utils]pstruct.com""" -$ WRITE CONFIG "$ s2p == """ + perl_setup_perl + " ''vms_prefix':[utils]s2p.com""" $ WRITE CONFIG "$ ptar == """ + perl_setup_perl + " ''vms_prefix':[utils]ptar.com""" $ WRITE CONFIG "$ ptardiff == """ + perl_setup_perl + " ''vms_prefix':[utils]ptardiff.com""" $ WRITE CONFIG "$ ptargrep == """ + perl_setup_perl + " ''vms_prefix':[utils]ptargrep.com""" diff --git a/djgpp/djgppsed.sh b/djgpp/djgppsed.sh index f84452e..778f426 100644 --- a/djgpp/djgppsed.sh +++ b/djgpp/djgppsed.sh @@ -38,7 +38,6 @@ sed -e $SARGV -e $SDOTTMP t/io/argv.t >s; mv -f s t/io/argv.t sed -e $SABC t/io/inplace.t >s; mv -f s t/io/inplace.t sed -e $SDBMX -e $SDBHASH ext/GDBM_File/t/gdbm.t >s; mv -f s ext/GDBM_File/t/gdbm.t sed -e $SSTAT -e $STMP2 t/op/stat.t >s; mv -f s t/op/stat.t -sed -e $SLIST x2p/Makefile.SH |tr -d '\r' >s; mv -f s x2p/Makefile.SH #sed -e 's=^#define.\([A-Z]\+\)_EXP.*$=#define \1_EXP djgpp_pathexp("\1")=g' config_h.SH >s; mv -f s config_h.SH sed -e 's=:^/:={^([a-z]:)?[\\\\/]}=g' lib/termcap.pl >s; mv -f s lib/termcap.pl sed -e $SPACKLIST installman >s; mv -f s installman diff --git a/hints/os390.sh b/hints/os390.sh index 453f30f..6c1d8f0 100644 --- a/hints/os390.sh +++ b/hints/os390.sh @@ -167,7 +167,7 @@ esac # # Note that Makefile.SH employs a bare yacc command to generate -# perly.[hc] and a2p.[hc], hence you may wish to: +# perly.[hc], hence you may wish to: # # alias yacc='myyacc' # diff --git a/installman b/installman index 3f83909..66b7161 100755 --- a/installman +++ b/installman @@ -83,7 +83,7 @@ while (<$fh>) { next if /^#/; chomp; my ($path, $leaf) = m|^(\S*/(\S+))|; - # Have we already installed the manpage for this? (eg perldoc, a2p) + # Have we already installed the manpage for this? (eg perldoc) next if $man1{$leaf}; pod2man({$leaf, $path}, $opts{man1dir}, $opts{man1ext}); if ($has_man1dir) { diff --git a/metaconfig.SH b/metaconfig.SH index 9043d89..7cc35a4 100755 --- a/metaconfig.SH +++ b/metaconfig.SH @@ -17,7 +17,7 @@ # are removed/replaced in patches on blead, but are still needed in the # 5.8.x, 5.6.x and 5.005.x maintainance tracks. # metaconfig -m will scan all .SH files on this level (not deeper), and -# not in x2p and other subfolders. This file is as good as any .SH +# not in other subfolders. This file is as good as any .SH # patch references # #22227 $baserev # #22302 $yacc $byacc diff --git a/perlio.h b/perlio.h index dc80d08..9398529 100644 --- a/perlio.h +++ b/perlio.h @@ -14,7 +14,7 @@ Interface for perl to IO functions. There is a hierarchy of Configure determined #define controls: USE_STDIO - forces PerlIO_xxx() to be #define-d onto stdio functions. - This is used for x2p subdirectory and for conservative + This is used for conservative builds - "just like perl5.00X used to be". This dominates over the others. diff --git a/pod/perl.pod b/pod/perl.pod index efc0a13..b6908d2 100644 --- a/pod/perl.pod +++ b/pod/perl.pod @@ -44,7 +44,7 @@ path perlglossary cpan/perlfaq/lib/ path perlxs(?:tut|typemap)? dist/ExtUtils-ParseXS/lib/ path perldoc cpan/Pod-Perldoc/ -aux a2p c2ph h2ph h2xs perlbug pl2pm pod2html pod2man s2p splain xsubpp +aux c2ph h2ph h2xs perlbug pl2pm pod2html pod2man splain xsubpp =end buildtoc diff --git a/pod/perlsource.pod b/pod/perlsource.pod index 28a6866..82a48f5 100644 --- a/pod/perlsource.pod +++ b/pod/perlsource.pod @@ -158,10 +158,6 @@ The old home for the module tests, you shouldn't put anything new in here. There are still some bits and pieces hanging around in here that need to be moved. Perhaps you could move them? Thanks! -=item * F - -A test suite for the s2p converter. - =back =head2 Documentation diff --git a/t/porting/checkcase.t b/t/porting/checkcase.t index 991f3c5..6cdc176 100644 --- a/t/porting/checkcase.t +++ b/t/porting/checkcase.t @@ -24,7 +24,7 @@ find({no_chdir => 1, wanted => sub { $name =~ s/^\..//; # Special exemption for Makefile, makefile - return if $name =~ m!\A(?:x2p/)?[Mm]akefile\z!; + return if $name =~ m!\A[Mm]akefile\z!; if ($name eq '.git') { # Don't scan the .git directory, as its contents are outside diff --git a/t/porting/diag.t b/t/porting/diag.t index 9d835ef..7c94aa0 100644 --- a/t/porting/diag.t +++ b/t/porting/diag.t @@ -197,7 +197,7 @@ while (my $file = <$fh>) { $file =~ s/\s+.*//; next unless $file =~ /\.(?:c|cpp|h|xs|y)\z/ or $file =~ /^perly\./; # OS/2 extensions have never been migrated to ext/, hence the special case: - next if $file =~ m!\A(?:ext|dist|cpan|lib|t|os2/OS2|x2p)/! + next if $file =~ m!\A(?:ext|dist|cpan|lib|t|os2/OS2)/! && $file !~ m!\Aext/DynaLoader/!; check_file($file); } diff --git a/t/porting/utils.t b/t/porting/utils.t index 2fe9075..9842ea2 100644 --- a/t/porting/utils.t +++ b/t/porting/utils.t @@ -62,11 +62,7 @@ my %excuses = ( foreach (@maybe) { if (/\.p[lm]$/) { push @victims, $_; - } elsif ($_ !~ m{^x2p/a2p}) { - # test_prep doesn't (yet) have a dependency on a2p, so it seems a bit - # silly adding one (and forcing it to be built) just so that we can open - # it and determine that it's *not* a perl program, and hence of no - # further interest to us. + } else { open $fh, '<', $_ or die "Can't open '$_': $!"; my $line = <$fh>; if ($line =~ m{^#!(?:\S*|/usr/bin/env\s+)perl}