[svn:parrot] r46946 - in trunk: . compilers/opsc/src/Ops lib/Parrot/Configure/Options/Test lib/Parrot/Docs/Section tools/build tools/dev

cotto at svn.parrot.org cotto at svn.parrot.org
Mon May 24 08:15:45 UTC 2010


Author: cotto
Date: Mon May 24 08:15:45 2010
New Revision: 46946
URL: https://trac.parrot.org/parrot/changeset/46946

Log:
[ops2c] clear out some more ops2c perl code and refereneces

Deleted:
   trunk/tools/build/ops2pm.pl
   trunk/tools/dev/opsrenumber.pl
Modified:
   trunk/MANIFEST
   trunk/compilers/opsc/src/Ops/File.pm
   trunk/compilers/opsc/src/Ops/Op.pm
   trunk/lib/Parrot/Configure/Options/Test/Prepare.pm
   trunk/lib/Parrot/Docs/Section/Ops.pm
   trunk/lib/Parrot/Docs/Section/Tools.pm

Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/MANIFEST	Mon May 24 08:15:45 2010	(r46946)
@@ -1,7 +1,7 @@
 # ex: set ro:
 # $Id$
 #
-# generated by tools/dev/mk_manifest_and_skip.pl Mon May 24 07:44:19 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon May 24 08:07:25 2010 UT
 #
 # See below for documentation on the format of this file.
 #
@@ -2072,7 +2072,6 @@
 tools/build/h2inc.pl                                        []
 tools/build/headerizer.pl                                   []
 tools/build/ops2c.pl                                        [devel]
-tools/build/ops2pm.pl                                       []
 tools/build/parrot_config_c.pl                              []
 tools/build/pbcversion_h.pl                                 []
 tools/build/pmc2c.pl                                        [devel]
@@ -2110,7 +2109,6 @@
 tools/dev/nm.pl                                             []
 tools/dev/nopaste.pl                                        []
 tools/dev/ops_not_tested.pl                                 []
-tools/dev/opsrenumber.pl                                    []
 tools/dev/parrot-fuzzer                                     []
 tools/dev/parrot.supp                                       []
 tools/dev/parrot_api.pl                                     []

Modified: trunk/compilers/opsc/src/Ops/File.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/File.pm	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/compilers/opsc/src/Ops/File.pm	Mon May 24 08:15:45 2010	(r46946)
@@ -19,8 +19,7 @@
 C<Ops::File> takes one or more files of op functions and
 creates real C code for them.
 
-This class is used by F<tools/build/ops2c.pl>,
-F<tools/build/ops2pm.pl> and F<tools/build/pbc2c.pl>.
+This class is used by F<tools/build/ops2c.pl>.
 
 =head2 Op Functions
 

Modified: trunk/compilers/opsc/src/Ops/Op.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/Op.pm	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/compilers/opsc/src/Ops/Op.pm	Mon May 24 08:15:45 2010	(r46946)
@@ -367,10 +367,6 @@
 
 =item F<tools/build/ops2c.pl>
 
-=item F<tools/build/ops2pm.pl>
-
-=item F<tools/build/pbc2c.pl>
-
 =back
 
 =head1 HISTORY

Modified: trunk/lib/Parrot/Configure/Options/Test/Prepare.pm
==============================================================================
--- trunk/lib/Parrot/Configure/Options/Test/Prepare.pm	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/lib/Parrot/Configure/Options/Test/Prepare.pm	Mon May 24 08:15:45 2010	(r46946)
@@ -161,8 +161,6 @@
 
     t/postconfigure/
     t/tools/pmc2cutils/
-    t/tools/ops2cutils/
-    t/tools/ops2pm/
     t/pharness/
 
 =back

Modified: trunk/lib/Parrot/Docs/Section/Ops.pm
==============================================================================
--- trunk/lib/Parrot/Docs/Section/Ops.pm	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/lib/Parrot/Docs/Section/Ops.pm	Mon May 24 08:15:45 2010	(r46946)
@@ -53,12 +53,6 @@
         'Opcodes',
         'ops.html',
         '',
-        $self->new_group(
-            'Tools',
-            '',
-            $self->new_item( '', 'tools/build/ops2c.pl' ),
-            $self->new_item( '', 'tools/build/ops2pm.pl' ),
-        ),
         $self->new_group( 'Opcode Libraries', '', @core_ops ),
         $self->new_group( 'Dynamic Opcode Libraries', '', @dynamic_ops ),
     );

Modified: trunk/lib/Parrot/Docs/Section/Tools.pm
==============================================================================
--- trunk/lib/Parrot/Docs/Section/Tools.pm	Mon May 24 07:59:36 2010	(r46945)
+++ trunk/lib/Parrot/Docs/Section/Tools.pm	Mon May 24 08:15:45 2010	(r46946)
@@ -53,8 +53,6 @@
             '',
             $self->new_item( '', 'docs/configuration.pod' ),
             $self->new_item( '', 'tools/build/c2str.pl' ),
-            $self->new_item( '', 'tools/build/ops2c.pl' ),
-            $self->new_item( '', 'tools/build/ops2pm.pl' ),
             $self->new_item( '', 'tools/build/parrot_config_c.pl' ),
             $self->new_item( '', 'tools/build/pmc2c.pl' ),
             $self->new_item( '', 'tools/dev/install_files.pl' ),

Deleted: trunk/tools/build/ops2pm.pl
==============================================================================
--- trunk/tools/build/ops2pm.pl	Mon May 24 08:15:45 2010	(r46945)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,164 +0,0 @@
-#! perl
-# Copyright (C) 2001-2007, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-
-use lib 'lib';
-use Parrot::Ops2pm;
-use Parrot::Ops2pm::Auxiliary qw( Usage getoptions );
-
-my $flagref = getoptions();
-
-if ( $flagref->{help} or !@ARGV ) {
-    Usage();
-    exit;
-}
-
-my $self = Parrot::Ops2pm->new(
-    {
-        argv    => [@ARGV],
-        nolines => $flagref->{nolines},
-        renum   => $flagref->{renum},
-        moddir  => "lib/Parrot/OpLib",
-        module  => "core.pm",
-        inc_dir => "include/parrot/oplib",
-        inc_f   => "ops.h",
-        script  => "tools/build/ops2pm.pl",
-    }
-);
-
-$self->prepare_ops();
-$self->load_op_map_files();
-$self->sort_ops();
-$self->prepare_real_ops();
-$self->print_module();
-$self->print_h();
-
-exit 0;
-
-################### DOCUMENTATION ####################
-
-=head1 NAME
-
-tools/build/ops2pm.pl - Generate Perl module from operation definitions
-
-=head1 SYNOPSIS
-
- $ perl tools/build/ops2pm.pl [--help] [--no-lines] input.ops [input2.ops ...]
- $ perl tools/build/ops2pm.pl [--renum]  input.ops [input2.ops ...]
-
-=head1 DESCRIPTION
-
-Reads the ops files listed on the command line and outputs a
-F<Parrot::OpLib::core> module containing information about the ops.
-Also outputs F<include/parrot/oplib/ops.h>.  This program is called by Parrot's
-F<make>.
-
-If called with the C<--renum> flag, renumbers the file F<src/ops/ops.num>.
-This is mandatory when adding or removing opcodes.
-
-=head1 OPTIONS
-
-=over 4
-
-=item C<--help>
-
-Print synopsis.
-
-=item C<--no-lines>
-
-Do not generate C<#line> directives in the generated C code.
-
-=item C<--renum>
-
-Renumber opcodes according to existing ops in ops/num and natural
-order in the given ops files. See also F<tools/dev/ops_renum.mak>.
-
-=back
-
-Most of the functionality in this program is now held in Parrot::Ops2pm::Util
-methods and a small number of Parrot::Ops2pm::Auxiliary subroutines.
-See those modules' documentation for discussion of those functions.
-Revisions to the functionality should be made in those packages and tested
-against tests found in F<t/tools/ops2pm/>.
-
-=head1 WARNING
-
-Generating a C<Parrot::OpLib::core> module for a set of ops files that
-you do not later turn into C code (see F<tools/build/ops2c.pl>) with the
-same op content and order is a recipe for disaster. But as long as you
-just run these tools in the standard build process via C<make> there
-shouldn't be a problem.
-
-=head1 TODO
-
-The original design of the ops processing code was intended to be
-a read-only representation of what was in a particular ops file. It was
-not originally intended that it was a mechanism for building a bigger
-virtual ops file from multiple physical ops files.
-
-This code does half of that job (the other half is getting them to
-compile together instead of separately in a F<*_ops.c> file).
-
-You can see evidence of this by the way this code reaches in to the
-internal C<OPS> hash key to do its concatenation, and the way it
-twiddles each op's C<CODE> hash key after that.
-
-If the op and oplib Perl modules are going to be used for modifying
-information read from ops files in addition to reading it, they should
-be changed to make the above operations explicitly supported.
-
-Otherwise, the Parrot build and interpreter start-up logic should be
-modified so that it doesn't need to concatenate separate ops files.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item F<tools/build/ops2c.pl>.
-
-=item F<lib/Parrot/Ops2pm.pm>.
-
-=item F<lib/Parrot/Ops2pm/Auxiliary.pm>.
-
-=item F<tools/dev/ops_renum.mak>.
-
-=back
-
-=head1 AUTHOR
-
-Over the years, F<tools/build/ops2pm.pl> has been worked on by the following Parrot hackers:
-
-  bernhard
-  brentdax
-  chip
-  chromatic
-  coke
-  dan
-  gregor
-  jkeenan
-  leo
-  mikescott
-  particle
-  paultcochrane
-  petdance
-  robert
-  simon
-  tewk
-
-Others who provided code cited in the version control logs include:
-
-  Andy Dougherty
-  Jeff Gof
-  Steve Fink
-
-=cut
-
-# Local Variables:
-#   mode: cperl
-#   cperl-indent-level: 4
-#   fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:

Deleted: trunk/tools/dev/opsrenumber.pl
==============================================================================
--- trunk/tools/dev/opsrenumber.pl	Mon May 24 08:15:45 2010	(r46945)
+++ /dev/null	00:00:00 1970	(deleted)
@@ -1,77 +0,0 @@
-#! perl
-# Copyright (C) 2001-2007, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-
-use lib 'lib';
-use Parrot::OpsRenumber;
-
-my $self = Parrot::OpsRenumber->new(
-    {
-        argv    => [@ARGV],
-        moddir  => "lib/Parrot/OpLib",
-        module  => "core.pm",
-        inc_dir => "include/parrot/oplib",
-        inc_f   => "ops.h",
-        script  => "tools/dev/opsrenumber.pl",
-    }
-);
-
-$self->prepare_ops();
-$self->renum_op_map_file();
-
-exit 0;
-
-################### DOCUMENTATION ####################
-
-=head1 NAME
-
-tools/dev/opsrenumber.pl - Renumber F<src/ops/ops.num>.
-
-=head1 SYNOPSIS
-
-    $ perl tools/dev/opsrenumber.pl input.ops [input2.ops ...]
-
-=head1 DESCRIPTION
-
-This program should be used when adding or removing opcodes.
-
-All opcodes except the first seven are potentially deletable and the opcodes'
-order may be rearranged.  However, in and after Parrot 1.0.0, deletion of
-opcodes should be a rare event.  The program will automatically detect which
-opcodes have been deleted and will renumber the remaining codes appropriately.
-
-The program, however, will B<not> automatically detect new opcodes.   This is
-a feature, not a bug, as it is intended to require someone to think about why
-new opcodes should be added.  Once a decision to add new opcodes has been
-made, those opcodes should be entered manually at the endc of
-F<src/ops/ops.num>, then F<tools/dev/opsrenumber.pl> (or F<make opsrenumber>)
-should be run.
-
-=head1 SEE ALSO
-
-=over 4
-
-=item F<lib/Parrot/Ops2pm/Base.pm>.
-
-=item F<lib/Parrot/OpsRenumber.pm>.
-
-=back
-
-=head1 AUTHOR
-
-This code was refactored out of F<tools/build/ops2pm.pl>.  That file contains
-a list of the contributors to this code over the years.
-
-The refactoring of this file was done by James E Keenan.
-
-=cut
-
-# Local Variables:
-#   mode: cperl
-#   cperl-indent-level: 4
-#   fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:


More information about the parrot-commits mailing list