Author: jkeenan
Date: Fri Jan 26 22:19:17 2007
New Revision: 16817
Modified:
branches/buildtools/tools/build/ops2pm.pl (contents, props changed)
Log:
Eliminated superseded, commented-out code. Set SVN Id keyword.
Modified: branches/buildtools/tools/build/ops2pm.pl
==============================================================================
--- branches/buildtools/tools/build/ops2pm.pl (original)
+++ branches/buildtools/tools/build/ops2pm.pl Fri Jan 26 22:19:17 2007
@@ -7,16 +7,6 @@
$Data::Dumper::Useqq = 1;
use Getopt::Long;
use lib 'lib';
-#use Parrot::Ops2pm::Utils qw(
-# process_ARGV
-# prepare_ops
-# renum_op_map_file
-# load_op_map_files
-# sort_ops
-# prepare_real_ops
-# print_module
-# print_h
-#);
use Parrot::Ops2pm::Utils;
use Parrot::Ops2pm::Auxiliary qw( Usage );
@@ -32,43 +22,6 @@
exit;
}
-#my ($file, $argvref) = process_ARGV(@ARGV);
-#my $ops = prepare_ops($file, $nolines_flag, $argvref);
-#
-#if ($renum_flag) {
-# renum_op_map_file($ops);
-# exit 0;
-#}
-#load_op_map_files();
-#$ops = sort_ops($ops);
-#
-#my $real_ops = prepare_real_ops( {
-# ops => $ops,
-# nolines_flag => $nolines_flag,
-#} );
-#
-#my $moddir = "lib/Parrot/OpLib";
-#my $module = "core.pm";
-#
-#print_module( {
-# moddir => $moddir,
-# ops_file => $file,
-# real_ops => $real_ops,
-# script => $0,
-# module => $module,
-# package => 'core',
-#} );
-#
-#my $inc_dir = "include/parrot/oplib";
-#my $inc_f = "ops.h";
-#print_h( {
-# inc_dir => $inc_dir,
-# inc_f => $inc_f,
-# ops_file => $file,
-# script => $0,
-# real_ops => $real_ops,
-#} );
-
my $self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
nolines => $nolines_flag,
