[svn:parrot] r40204 - in trunk: . config/gen/makefiles examples/c include/parrot ports/debian ports/fedora ports/macports ports/mandriva ports/suse src t/codingstd tools/dev

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Tue Jul 21 23:30:35 UTC 2009


Author: jkeenan
Date: Tue Jul 21 23:30:33 2009
New Revision: 40204
URL: https://trac.parrot.org/parrot/changeset/40204

Log:
Merge pbc_info_remove branch into trunk.  Cf.:  https://trac.parrot.org/parrot/ticket/440.  This removes the 'pbc_info' executable and moves it to examples/c/pbc_info.c.

Added:
   trunk/examples/c/pbc_info.c
      - copied unchanged from r40202, branches/pbc_info_remove/examples/c/pbc_info.c
Deleted:
   trunk/src/pbc_info.c
Modified:
   trunk/DEPRECATED.pod
   trunk/MANIFEST
   trunk/MANIFEST.SKIP
   trunk/MANIFEST.generated
   trunk/config/gen/makefiles/root.in
   trunk/include/parrot/packfile.h
   trunk/ports/debian/parrot-devel.install.in
   trunk/ports/debian/rules
   trunk/ports/fedora/parrot.spec.fedora
   trunk/ports/macports/Portfile
   trunk/ports/mandriva/parrot.spec.mandriva
   trunk/ports/suse/parrot.spec.suse
   trunk/t/codingstd/c_function_docs.t
   trunk/tools/dev/pbc_header.pl

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/DEPRECATED.pod	Tue Jul 21 23:30:33 2009	(r40204)
@@ -133,9 +133,7 @@
 
 =head1 Class Features
 
-=over 4
-
-=back
+[Nothing at this time.]
 
 =head1 PIR syntax
 

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/MANIFEST	Tue Jul 21 23:30:33 2009	(r40204)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Tue Jul 21 16:27:43 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Jul 21 23:09:08 2009 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -638,6 +638,7 @@
 examples/benchmarks/vpm.py                                  [examples]
 examples/benchmarks/vpm.rb                                  [examples]
 examples/c/nanoparrot.c                                     [examples]
+examples/c/pbc_info.c                                       [examples]
 examples/c/test_main.c                                      [examples]
 examples/compilers/Makefile                                 [examples]
 examples/compilers/japhc.c                                  [examples]
@@ -1373,7 +1374,6 @@
 src/parrot_debugger.c                                       []
 src/pbc_disassemble.c                                       []
 src/pbc_dump.c                                              []
-src/pbc_info.c                                              []
 src/pbc_merge.c                                             []
 src/pic.c                                                   []
 src/pic_jit.c                                               []

Modified: trunk/MANIFEST.SKIP
==============================================================================
--- trunk/MANIFEST.SKIP	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/MANIFEST.SKIP	Tue Jul 21 23:30:33 2009	(r40204)
@@ -1,6 +1,6 @@
 # ex: set ro:
 # $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Thu Jun 25 20:34:12 2009 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Tue Jul 21 23:09:08 2009 UT
 #
 # This file should contain a transcript of the svn:ignore properties
 # of the directories in the Parrot subversion repository. (Needed for

Modified: trunk/MANIFEST.generated
==============================================================================
--- trunk/MANIFEST.generated	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/MANIFEST.generated	Tue Jul 21 23:30:33 2009	(r40204)
@@ -58,8 +58,6 @@
 installable_pbc_disassemble                       [main]bin
 installable_pbc_dump.exe                          [main]bin
 installable_pbc_dump                              [main]bin
-installable_pbc_info.exe                          [main]bin
-installable_pbc_info                              [main]bin
 installable_pbc_merge.exe                         [main]bin
 installable_pbc_merge                             [main]bin
 installable_pbc_to_exe.exe                        [main]bin

Modified: trunk/config/gen/makefiles/root.in
==============================================================================
--- trunk/config/gen/makefiles/root.in	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/config/gen/makefiles/root.in	Tue Jul 21 23:30:33 2009	(r40204)
@@ -502,7 +502,6 @@
 MINIPARROT          := $(CUR_DIR)/miniparrot$(EXE)
 DIS                 := $(CUR_DIR)/pbc_disassemble$(EXE)
 PDUMP               := $(CUR_DIR)/pbc_dump$(EXE)
-PINFO               := $(CUR_DIR)/pbc_info$(EXE)
 PBCMERGE            := $(CUR_DIR)/pbc_merge$(EXE)
 PDB                 := $(CUR_DIR)/parrot_debugger$(EXE)
 PBC_TO_EXE          := $(CUR_DIR)/pbc_to_exe$(EXE)
@@ -513,7 +512,6 @@
 INSTALLABLEPARROT   := $(CUR_DIR)/installable_parrot$(EXE)
 INSTALLABLEDIS      := $(CUR_DIR)/installable_pbc_disassemble$(EXE)
 INSTALLABLEPDUMP    := $(CUR_DIR)/installable_pbc_dump$(EXE)
-INSTALLABLEPINFO    := $(CUR_DIR)/installable_pbc_info$(EXE)
 INSTALLABLEPBCMERGE := $(CUR_DIR)/installable_pbc_merge$(EXE)
 INSTALLABLEPBCTOEXE := $(CUR_DIR)/installable_pbc_to_exe$(EXE)
 INSTALLABLEPDB      := $(CUR_DIR)/installable_parrot_debugger$(EXE)
@@ -606,7 +604,6 @@
     $(PBCMERGE) \
     $(PDB) \
     $(PDUMP) \
-    $(PINFO) \
 
 $(GEN_LIBRARY) : $(PARROT)
 
@@ -677,13 +674,11 @@
 	@echo "  world:             'all' and 'parrot_utils'."
 	@echo "  installable:       same as 'world', but targets for installation"
 	@echo ""
-	@echo "  parrot_utils:      $(PDUMP), $(DIS), $(PINFO), $(PDB), $(PBCMERGE) and $(PBC_TO_EXE) $(PARROT_CONFIG)"
+	@echo "  parrot_utils:      $(PDUMP), $(DIS), $(PDB), $(PBCMERGE) and $(PBC_TO_EXE) $(PARROT_CONFIG)"
 	@echo " $(PDUMP):"
 	@echo "                     Parrot Dumper"
 	@echo " $(DIS):"
 	@echo "                     Parrot Disassembler"
-	@echo " $(PINFO):"
-	@echo "                     Information about Parrot Byte Code"
 	@echo " $(PDB):"
 	@echo "                     Parrot Debugger"
 	@echo " $(PBCMERGE):"
@@ -781,9 +776,9 @@
 
 world : all parrot_utils
 
-parrot_utils : $(PDUMP) $(DIS) $(PINFO) $(PDB) $(PBCMERGE) $(PBC_TO_EXE) $(PARROT_CONFIG)
+parrot_utils : $(PDUMP) $(DIS) $(PDB) $(PBCMERGE) $(PBC_TO_EXE) $(PARROT_CONFIG)
 
-installable: all $(INSTALLABLEPARROT) $(INSTALLABLEPDUMP) $(INSTALLABLEDIS) $(INSTALLABLEPINFO) $(INSTALLABLEPDB) $(INSTALLABLEPBCMERGE) $(INSTALLABLEPBCTOEXE) $(INSTALLABLECONFIG)
+installable: all $(INSTALLABLEPARROT) $(INSTALLABLEPDUMP) $(INSTALLABLEDIS) $(INSTALLABLEPDB) $(INSTALLABLEPBCMERGE) $(INSTALLABLEPBCTOEXE) $(INSTALLABLECONFIG)
 
 
 flags_dummy :
@@ -980,20 +975,6 @@
 #IF(win32):	if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;1
 
 
-# pbc_info
-$(PINFO) : $(SRC_DIR)/pbc_info$(O) $(LIBPARROT)
-	$(LINK) @ld_out@$@ \
-    $(SRC_DIR)/pbc_info$(O) \
-    @rpath_blib@ $(ALL_PARROT_LIBS) $(LINKFLAGS)
-#IF(win32):	if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;1
-
-$(SRC_DIR)/pbc_info$(O) : $(INC_DIR)/parrot.h $(GEN_HEADERS)
-
-$(INSTALLABLEPINFO) : $(SRC_DIR)/pbc_info$(O) $(LIBPARROT)
-	$(LINK) @ld_out@$@ \
-    $(SRC_DIR)/pbc_info$(O) \
-    @rpath_lib@ $(ALL_PARROT_LIBS) $(LINKFLAGS)
-#IF(win32):	if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;1
 
 #
 # Parrot Bytecode File Merger
@@ -1694,7 +1675,6 @@
     $(INSTALLABLEPARROT) \
     $(INSTALLABLEDIS) \
     $(INSTALLABLEPDUMP) \
-    $(INSTALLABLEPINFO) \
     $(INSTALLABLEPBCMERGE) \
     $(INSTALLABLEPBCTOEXE) \
     $(INSTALLABLEPDB) \
@@ -1703,7 +1683,6 @@
     parrot_config$(EXE) parrot_config.c parrot_config$(O) parrot_config.pbc \
     $(IMCC_DIR)/main$(O) \
     $(PDUMP) $(SRC_DIR)/pbc_dump$(O) $(SRC_DIR)/packdump$(O) \
-    $(SRC_DIR)/pbc_info$(O) $(PINFO) \
     $(PDB) $(SRC_DIR)/parrot_debugger$(O) \
     $(PBCMERGE) $(SRC_DIR)/pbc_merge$(O) \
     $(DIS) $(SRC_DIR)/pbc_disassemble$(O)
@@ -1734,13 +1713,11 @@
     $(INSTALLABLEPARROT) \
     $(INSTALLABLEDIS) \
     $(INSTALLABLEPDUMP) \
-    $(INSTALLABLEPINFO) \
     $(INSTALLABLEPBCMERGE) \
     $(INSTALLABLEPDB) \
     $(INSTALLABLECONFIG) \
     $(IMCC_DIR)/main$(O) \
     $(PDUMP) $(SRC_DIR)/pbc_dump$(O) $(SRC_DIR)/packdump$(O) \
-    $(PINFO) $(SRC_DIR)/pbc_info$(O) \
     $(PDB) $(SRC_DIR)/parrot_debugger$(O) \
     $(PBCMERGE) $(SRC_DIR)/pbc_merge$(O) \
     $(DIS) $(SRC_DIR)/pbc_disassemble$(O) \

Copied: trunk/examples/c/pbc_info.c (from r40202, branches/pbc_info_remove/examples/c/pbc_info.c)
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/examples/c/pbc_info.c	Tue Jul 21 23:30:33 2009	(r40204, copy of r40202, branches/pbc_info_remove/examples/c/pbc_info.c)
@@ -0,0 +1,112 @@
+/*
+Copyright (C) 2001-2003, Parrot Foundation.
+$Id$
+
+=head1 NAME
+
+pbc_info - PackFile demo
+
+=head1 SYNOPSIS
+
+ pbc_info file.pbc
+
+=head1 DESCRIPTION
+
+Sample program for dumping PackFile segment names by iterating
+over the main directory.
+
+=head2 Functions
+
+=over 4
+
+=cut
+
+*/
+
+#include "parrot/parrot.h"
+#include "parrot/embed.h"
+
+/*
+
+=item C<static INTVAL iter(PARROT_INTERP, PackFile_Segment *seg, void *user_data)>
+
+This function is passed the callback to PackFile_map_segments() to print out
+the name of each segment in the directory.
+
+=cut
+
+*/
+
+static INTVAL
+iter(PARROT_INTERP, PackFile_Segment *seg, void *user_data)
+{
+    long ident = (long)user_data;
+    int length = ident;
+    printf("%*.0s%s\n", length, "", seg->name);
+    if (seg->type == PF_DIR_SEG)
+        PackFile_map_segments(interp, (PackFile_Directory*)seg,
+                iter, (void*)(ident+2));
+    return 0;
+}
+
+/*
+
+=item C<int main(int argc, char *argv[])>
+
+Reads the PBC from argv[1], adds a few extra sections, and then iterates over
+the directory using PackFile_map_segments() and iter().
+
+=cut
+
+*/
+
+int
+main(SHIM(int argc), char *argv[])
+{
+    PackFile *pf;
+    Interp *interp;
+    PackFile_Segment *seg;
+
+    interp = Parrot_new(NULL);
+
+    pf = Parrot_pbc_read(interp, argv[1], PFOPT_UTILS);
+
+    /*
+     * add some more segments
+     */
+    seg = PackFile_Segment_new_seg(interp,
+                    &pf->directory, PF_DIR_SEG, "dir2", 1);
+    seg = PackFile_Segment_new_seg(interp,
+                    (PackFile_Directory*)seg, PF_BYTEC_SEG, "code", 1);
+    seg = PackFile_Segment_new_seg(interp,
+                    &pf->directory, PF_DIR_SEG, "dir3", 1);
+
+    /*
+     * show these
+     */
+    printf("%s\n", pf->directory.base.name);
+    PackFile_map_segments(interp, &pf->directory, iter, (void*)2);
+
+    Parrot_exit(interp, 0);
+}
+
+/*
+
+=back
+
+=head1 SEE ALSO
+
+F<src/packfile.c>, F<include/parrot/packfile.h>.
+
+=cut
+
+*/
+
+
+/*
+ * Local variables:
+ *   c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
+

Modified: trunk/include/parrot/packfile.h
==============================================================================
--- trunk/include/parrot/packfile.h	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/include/parrot/packfile.h	Tue Jul 21 23:30:33 2009	(r40204)
@@ -55,7 +55,7 @@
 /*
 ** Parrot_pbc_read() options:
 **   parrot, pbc_merge, parrot_debugger use 0
-**   pbc_dump, pbc_disassemble, pbc_info use 1 to skip the version check
+**   pbc_dump, pbc_disassemble use 1 to skip the version check
 **   pbc_dump -h requires 2
 **   The rest is for TRACE_PACKFILE debugging with switch -D in pbc_dump
 */

Modified: trunk/ports/debian/parrot-devel.install.in
==============================================================================
--- trunk/ports/debian/parrot-devel.install.in	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/debian/parrot-devel.install.in	Tue Jul 21 23:30:33 2009	(r40204)
@@ -1,7 +1,6 @@
 usr/bin/parrot_debugger
 usr/bin/pbc_disassemble
 usr/bin/pbc_dump
-usr/bin/pbc_info
 usr/bin/pbc_merge
 usr/bin/parrot_config
 usr/lib/parrot/@VERSION@/tools/*

Modified: trunk/ports/debian/rules
==============================================================================
--- trunk/ports/debian/rules	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/debian/rules	Tue Jul 21 23:30:33 2009	(r40204)
@@ -44,14 +44,13 @@
 	pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" src/pbc_dump.c debian/pbc_dump.1
 	pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" src/pbc_disassemble.c debian/pbc_disassemble.1
 	pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" src/parrot_debugger.c debian/parrot_debugger.1
-	pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" src/pbc_info.c debian/pbc_info.1
 	pod2man --section=1 --release="Debian Project" --center="Debian GNU/Linux manual" src/pbc_merge.c debian/pbc_merge.1
 	touch build-stamp
 
 clean: debian-control-stamp
 	dh_testdir
 	dh_testroot
-	rm -f build-stamp configure-stamp debian-control-stamp debian/parrot.1 debian/parrot_config.1 debian/pbc_dump.1 debian/pbc_disassemble.1 debian/parrot-debugger.1 debian/pbc_info.1 debian/pbc_merge.1 debian/libparrot$(SOVERSION).install src/main.o installable_pbc_to_exe ext/Parrot-Embed/Makefile.PL test.c test.ldo
+	rm -f build-stamp configure-stamp debian-control-stamp debian/parrot.1 debian/parrot_config.1 debian/pbc_dump.1 debian/pbc_disassemble.1 debian/parrot-debugger.1 debian/pbc_merge.1 debian/libparrot$(SOVERSION).install src/main.o installable_pbc_to_exe ext/Parrot-Embed/Makefile.PL test.c test.ldo
 	[ ! -f Makefile ] || $(MAKE) distclean
 	dh_clean 
 
@@ -89,7 +88,7 @@
 	dh_testroot -a
 	dh_installchangelogs -a ChangeLog
 	dh_installman -pparrot-minimal debian/parrot.1
-	dh_installman -pparrot-devel debian/parrot_debugger.1 debian/pbc_disassemble.1 debian/pbc_dump.1 debian/pbc_info.1 debian/pbc_merge.1 debian/parrot_config.1
+	dh_installman -pparrot-devel debian/parrot_debugger.1 debian/pbc_disassemble.1 debian/pbc_dump.1 debian/pbc_merge.1 debian/parrot_config.1
 	dh_installdocs -a
 	dh_strip -a
 	dh_compress -a

Modified: trunk/ports/fedora/parrot.spec.fedora
==============================================================================
--- trunk/ports/fedora/parrot.spec.fedora	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/fedora/parrot.spec.fedora	Tue Jul 21 23:30:33 2009	(r40204)
@@ -235,7 +235,6 @@
 %{_bindir}/parrot_config
 %{_bindir}/parrot_debugger
 %{_bindir}/pbc_disassemble
-%{_bindir}/pbc_info
 %{_bindir}/pbc_merge
 %{_bindir}/pbc_to_exe
 %{_bindir}/pbc_dump

Modified: trunk/ports/macports/Portfile
==============================================================================
--- trunk/ports/macports/Portfile	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/macports/Portfile	Tue Jul 21 23:30:33 2009	(r40204)
@@ -55,7 +55,7 @@
 
         set executables {
             parrot parrot_config parrot_debugger
-            pbc_disassemble pbc_info pbc_merge pbc_to_exe pbc_dump
+            pbc_disassemble pbc_merge pbc_to_exe pbc_dump
         }
 
         foreach exe $executables { 

Modified: trunk/ports/mandriva/parrot.spec.mandriva
==============================================================================
--- trunk/ports/mandriva/parrot.spec.mandriva	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/mandriva/parrot.spec.mandriva	Tue Jul 21 23:30:33 2009	(r40204)
@@ -158,7 +158,6 @@
 %{_bindir}/parrot_config
 %{_bindir}/parrot_debugger
 %{_bindir}/pbc_disassemble
-%{_bindir}/pbc_info
 %{_bindir}/pbc_merge
 %{_bindir}/pbc_to_exe
 %{_bindir}/pbc_dump

Modified: trunk/ports/suse/parrot.spec.suse
==============================================================================
--- trunk/ports/suse/parrot.spec.suse	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/ports/suse/parrot.spec.suse	Tue Jul 21 23:30:33 2009	(r40204)
@@ -134,7 +134,6 @@
 %{_bindir}/parrot_config
 %{_bindir}/parrot_debugger
 %{_bindir}/pbc_disassemble
-%{_bindir}/pbc_info
 %{_bindir}/pbc_merge
 %{_bindir}/pbc_to_exe
 %{_bindir}/pbc_dump

Deleted: trunk/src/pbc_info.c
==============================================================================
--- trunk/src/pbc_info.c	Tue Jul 21 23:30:33 2009	(r40203)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,113 +0,0 @@
-/*
-Copyright (C) 2001-2003, Parrot Foundation.
-$Id$
-
-=head1 NAME
-
-pbc_info - PackFile demo
-
-=head1 SYNOPSIS
-
- pbc_info file.pbc
-
-=head1 DESCRIPTION
-
-Sample program for dumping PackFile segment names by iterating
-over the main directory.
-
-=head2 Functions
-
-=over 4
-
-=cut
-
-*/
-
-#include "parrot/parrot.h"
-#include "parrot/embed.h"
-
-/*
-
-=item C<static INTVAL iter(PARROT_INTERP, PackFile_Segment *seg, void
- *user_data)>
-
-This function is passed the callback to PackFile_map_segments() to print out
-the name of each segment in the directory.
-
-=cut
-
-*/
-
-static INTVAL
-iter(PARROT_INTERP, PackFile_Segment *seg, void *user_data)
-{
-    long ident = (long)user_data;
-    int length = ident;
-    printf("%*.0s%s\n", length, "", seg->name);
-    if (seg->type == PF_DIR_SEG)
-        PackFile_map_segments(interp, (PackFile_Directory*)seg,
-                iter, (void*)(ident+2));
-    return 0;
-}
-
-/*
-
-=item C<int main(int argc, char *argv[])>
-
-Reads the PBC from argv[1], adds a few extra sections, and then iterates over
-the directory using PackFile_map_segments() and iter().
-
-=cut
-
-*/
-
-int
-main(SHIM(int argc), char *argv[])
-{
-    PackFile *pf;
-    Interp *interp;
-    PackFile_Segment *seg;
-
-    interp = Parrot_new(NULL);
-
-    pf = Parrot_pbc_read(interp, argv[1], PFOPT_UTILS);
-
-    /*
-     * add some more segments
-     */
-    seg = PackFile_Segment_new_seg(interp,
-                    &pf->directory, PF_DIR_SEG, "dir2", 1);
-    seg = PackFile_Segment_new_seg(interp,
-                    (PackFile_Directory*)seg, PF_BYTEC_SEG, "code", 1);
-    seg = PackFile_Segment_new_seg(interp,
-                    &pf->directory, PF_DIR_SEG, "dir3", 1);
-
-    /*
-     * show these
-     */
-    printf("%s\n", pf->directory.base.name);
-    PackFile_map_segments(interp, &pf->directory, iter, (void*)2);
-
-    Parrot_exit(interp, 0);
-}
-
-/*
-
-=back
-
-=head1 SEE ALSO
-
-F<src/packfile.c>, F<include/parrot/packfile.h>.
-
-=cut
-
-*/
-
-
-/*
- * Local variables:
- *   c-file-style: "parrot"
- * End:
- * vim: expandtab shiftwidth=4:
- */
-

Modified: trunk/t/codingstd/c_function_docs.t
==============================================================================
--- trunk/t/codingstd/c_function_docs.t	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/t/codingstd/c_function_docs.t	Tue Jul 21 23:30:33 2009	(r40204)
@@ -134,7 +134,6 @@
 src/jit/ppc/exec_dep.c
 src/nci_test.c
 src/pbc_dump.c
-src/pbc_info.c
 src/pic.c
 src/pic_jit.c
 src/string/charset/ascii.c

Modified: trunk/tools/dev/pbc_header.pl
==============================================================================
--- trunk/tools/dev/pbc_header.pl	Tue Jul 21 23:08:57 2009	(r40203)
+++ trunk/tools/dev/pbc_header.pl	Tue Jul 21 23:30:33 2009	(r40204)
@@ -99,18 +99,6 @@
     return;
 }
 
-sub pbc_info {
-    for my $f (@ARGV) {
-        open my $F, "<", "$f" or die "Can't open $f: $!";
-        binmode $F;
-        print "$f\n";
-
-        show_pbc_file_info($F);
-    }
-
-    return;
-}
-
 my @pbc_header_type_names;
 BEGIN {
     @pbc_header_type_names = qw( directory default fixup constant


More information about the parrot-commits mailing list