Author: paultcochrane
Date: Thu Mar 15 10:56:54 2007
New Revision: 17491
Modified:
trunk/lib/Parrot/Distribution.pm
trunk/lib/Parrot/Ops2c/Auxiliary.pm
trunk/lib/Parrot/Ops2c/Utils.pm
trunk/lib/Parrot/Ops2pm/Auxiliary.pm
trunk/lib/Parrot/Ops2pm/Utils.pm
trunk/lib/Parrot/Pmc2c.pm
trunk/lib/Parrot/Pmc2c/PMETHODs.pm
trunk/lib/Parrot/Test/PIR_PGE.pm
Log:
[lib] Removed trailing whitespace (part 1)
Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm (original)
+++ trunk/lib/Parrot/Distribution.pm Thu Mar 15 10:56:54 2007
@@ -432,7 +432,7 @@
=item C<get_perl_exemption_regexp()>
-Returns a list of regular expressions containing the currently
+Returns a list of regular expressions containing the currently
coding-standard-exempt Perl files within Parrot
=cut
@@ -546,7 +546,7 @@
'examples/benchmarks', 'examples/mops',
'languages',
map("languages/$_" => qw<
- APL/tools
+ APL/tools
BASIC/compiler BASIC/interpreter
WMLScript/build
dotnet dotnet/build dotnet/tools
@@ -602,11 +602,11 @@
return
map $self->directory_with_name($_) =>
map("config/$_" => qw<auto auto/cpu/i386 auto/cpu/ppc
- auto/cpu/sun4 auto/cpu/x86_64
+ auto/cpu/sun4 auto/cpu/x86_64
gen gen/cpu/i386 gen/cpu/x86_64 init init/hints inter>),
'ext/Parrot-Embed/lib/Parrot',
map("languages/$_" => qw<
- APL/t
+ APL/t
BASIC/compiler
HQ9plus/lib/Parrot/Test
WMLScript/build/SRM WMLScript/t/Parrot/Test
Modified: trunk/lib/Parrot/Ops2c/Auxiliary.pm
==============================================================================
--- trunk/lib/Parrot/Ops2c/Auxiliary.pm (original)
+++ trunk/lib/Parrot/Ops2c/Auxiliary.pm Thu Mar 15 10:56:54 2007
@@ -42,13 +42,13 @@
=head1 NAME
-Parrot::Ops2c::Auxiliary - Non-method subroutines holding functionality for
+Parrot::Ops2c::Auxiliary - Non-method subroutines holding functionality for
F<tools/build/ops2c.pl>.
=head1 SYNOPSIS
use Parrot::Ops2c::Auxiliary qw( Usage getoptions );
-
+
Usage();
$flagref = getoptions();
Modified: trunk/lib/Parrot/Ops2c/Utils.pm
==============================================================================
--- trunk/lib/Parrot/Ops2c/Utils.pm (original)
+++ trunk/lib/Parrot/Ops2c/Utils.pm Thu Mar 15 10:56:54 2007
@@ -29,7 +29,7 @@
Parrot::Ops2c::Utils provides methods called by F<tools/build/ops2c.pl>, a
program which is called at various points in the Parrot F<make> process.
The program's function is to create a pair of C header (F<*.h>) and
-implementation (F<*.c>) files from the operation definitions found in
+implementation (F<*.c>) files from the operation definitions found in
one or more F<*.ops> files.
The functionality originally found in F<tools/build/ops2c.pl> has been
@@ -52,7 +52,7 @@
Hash reference with the following elements:
argv : reference to @ARGV
- flag : hash reference which is the return value of
+ flag : hash reference which is the return value of
Parrot::Ops2c::Utils::getoptions();
hash will have keys such as 'core', 'dynamic' or 'nolines'
script : name of the script to be executed by 'make'
@@ -126,7 +126,7 @@
$flagref->{dynamic} = 1;
}
- my $sym_export = $flagref->{dynamic}
+ my $sym_export = $flagref->{dynamic}
? 'PARROT_DYNEXT_EXPORT'
: 'PARROT_API';
@@ -313,7 +313,7 @@
my ($self, $fh) = @_;
if ( $self->{trans}->can("run_core_func_decl") ) {
- my $run_core_func =
+ my $run_core_func =
$self->{trans}->run_core_func_decl($self->{base});
print $fh "$run_core_func;\n";
} else {
@@ -340,7 +340,7 @@
=item * Purpose
-Writes the top half of a C-source file corresponding to a particular op.
+Writes the top half of a C-source file corresponding to a particular op.
Such files will have names like these:
src/ops/core_ops.c
@@ -356,7 +356,7 @@
=item * Comment
-B<Q:> Why does this method write only the top-half of the C-source file
+B<Q:> Why does this method write only the top-half of the C-source file
rather than the whole thing?
B<A:> Mainly for convenience in maintenance and testing.
@@ -559,8 +559,8 @@
# Finish the SOURCE file's array initializer:
my $CORE_SPLIT = 300;
for ( my $i = 0 ; $i < @op_funcs ; $i++ ) {
- if ( $i &&
- $i % $CORE_SPLIT == 0 &&
+ if ( $i &&
+ $i % $CORE_SPLIT == 0 &&
$self->{trans}->can("run_core_split") )
{
print $fh $self->{trans}->run_core_split($self->{base});
@@ -580,7 +580,7 @@
=item * Purpose
-Writes the bottom half of a C-source file corresponding to a particular op.
+Writes the bottom half of a C-source file corresponding to a particular op.
=item * Arguments
@@ -605,28 +605,28 @@
my $index = $self->{index};
$SOURCE = $self->_reset_line_number($SOURCE);
-
+
$self->_op_func_table($SOURCE);
-
+
$self->{names} = {};
$self->_op_info_table($SOURCE);
$self->_op_lookup($SOURCE);
-
+
$self->_print_op_lib_descriptor($SOURCE);
-
+
$self->_generate_init_func($SOURCE);
-
+
$self->_print_dynamic_lib_load($SOURCE);
-
+
_print_coda($SOURCE);
-
+
close $SOURCE or die "Unable to close handle to $self->{source}: $!";
-
+
my $c_source_final = $self->_rename_source();
return $c_source_final;
}
-
+
sub _reset_line_number {
my ($self, $fh) = @_;
@@ -652,7 +652,7 @@
my ( $op_info, $op_func, $getop );
$op_info = $op_func = 'NULL';
$getop = '( int (*)(const char *, int) )NULL';
-
+
if ( $self->{suffix} eq '' ) {
$op_func = $self->{bs} . q{op_func_table};
print $fh <<END_C;
@@ -693,7 +693,7 @@
if ( $self->{suffix} eq '' ) {
$self->{op_info} = "$self->{bs}op_info_table";
-
+
#
# Op Info Table:
#
@@ -707,7 +707,7 @@
END_C
$self->{index} = 0;
-
+
foreach my $op ( $self->{ops}->ops ) {
my $type = sprintf( "PARROT_%s_OP", uc $op->type );
my $name = $op->name;
@@ -717,7 +717,7 @@
my $body = $op->body;
my $jump = $op->jump || 0;
my $arg_count = $op->size;
-
+
## 0 inserted if arrays are empty to prevent msvc compiler errors
my $arg_types = "{ "
. join( ", ",
@@ -738,7 +738,7 @@
: 0
) . " }";
my $flags = 0;
-
+
print $fh <<END_C;
{ /* $self->{index} */
/* type $type, */
@@ -920,13 +920,13 @@
if ( $self->{trans}->can("init_func_init1") ) {
$init1_code = $self->{trans}->init_func_init1($self->{base});
}
-
+
my $init_set_dispatch = "";
if ( $self->{trans}->can("init_set_dispatch") ) {
- $init_set_dispatch
+ $init_set_dispatch
= $self->{trans}->init_set_dispatch($self->{bs});
}
-
+
print $fh <<END_C;
op_lib_t *
$self->{init_func}(long init) {
@@ -997,7 +997,7 @@
=item * Parrot::OpLib::core
-This package is not part of the Parrot distribution. It is created during
+This package is not part of the Parrot distribution. It is created during
Parrot's F<make> process before the first invocation of
F<tools/build/ops2c.pl>.
=back
Modified: trunk/lib/Parrot/Ops2pm/Auxiliary.pm
==============================================================================
--- trunk/lib/Parrot/Ops2pm/Auxiliary.pm (original)
+++ trunk/lib/Parrot/Ops2pm/Auxiliary.pm Thu Mar 15 10:56:54 2007
@@ -36,7 +36,7 @@
=head1 SYNOPSIS
use Parrot::Ops2pm::Auxiliary qw( Usage getoptions );
-
+
Usage();
$flagref = getoptions();
Modified: trunk/lib/Parrot/Ops2pm/Utils.pm
==============================================================================
--- trunk/lib/Parrot/Ops2pm/Utils.pm (original)
+++ trunk/lib/Parrot/Ops2pm/Utils.pm Thu Mar 15 10:56:54 2007
@@ -17,7 +17,7 @@
=head1 SYNOPSIS
use Parrot::Ops2pm::Utils;
-
+
$self = Parrot::Ops2pm::Utils->new( {
argv => [ @ARGV ],
nolines => $nolines_flag,
@@ -28,14 +28,14 @@
inc_f => "ops.h",
script => "tools/build/ops2pm.pl",
} );
-
+
$self->prepare_ops();
-
+
if ($renum_flag) {
$self->renum_op_map_file();
exit 0;
}
-
+
$self->load_op_map_files();
$self->sort_ops();
$self->prepare_real_ops();
@@ -153,7 +153,7 @@
=item * Comment
This method calls C<Parrot::OpsFile::new()> on the first F<.ops>
-file found in C<@ARGV>, then copies the ops from the remaining F<.ops> files
+file found in C<@ARGV>, then copies the ops from the remaining F<.ops> files
to the object just created. Experimental ops are marked as such.
=back
@@ -210,12 +210,12 @@
=item * Arguments
String holding name of an F<.ops> file; defaults to
-F<src/ops/ops.num>. (Implicitly requires that the C<argv>,
+F<src/ops/ops.num>. (Implicitly requires that the C<argv>,
C<script> and C<renum> elements were provided to the constructor.)
=item * Return Value
-Returns true value upon success.
+Returns true value upon success.
=item * Comment
@@ -278,7 +278,7 @@
=item * Purpose
-When F<tools/build/ops2pm.pl> is called by F<make>, this method
+When F<tools/build/ops2pm.pl> is called by F<make>, this method
checks the number of ops strictly against F<src/ops/ops.num> and renumbers as
needed.
@@ -292,7 +292,7 @@
=item * Return Value
Returns true value upon success. Internally, sets these
-values in these elements in the object's data structure: C<max_op_num>,
+values in these elements in the object's data structure: C<max_op_num>,
C<skiptable> and C<optable>.
=item * Comments
@@ -396,7 +396,7 @@
elsif ($el->{experimental}) {
my $n = $self->{optable}->{$el->full_name} = ++$self->{max_op_num};
warn sprintf(
- "%-25s %-10s experimental, not in ops.num\n",
+ "%-25s %-10s experimental, not in ops.num\n",
$el->full_name, $n
) if -e "DEVELOPING";
$el->{CODE} = $n;
@@ -409,7 +409,7 @@
$el->{CODE} = -1;
}
}
- @{ $self->{ops}->{OPS} } =
+ @{ $self->{ops}->{OPS} } =
sort { $a->{CODE} <=> $b->{CODE} } ( @{ $self->{ops}->{OPS} } );
}
@@ -428,7 +428,7 @@
=item * Return Value
-None. Internally, sets the C<real_ops> key of the object's
+None. Internally, sets the C<real_ops> key of the object's
data structure.
=item * Comment
@@ -443,7 +443,7 @@
my $real_ops = Parrot::OpsFile->new( [], $self->{nolines} );
$real_ops->{PREAMBLE} = $self->{ops}->{PREAMBLE};
$real_ops->version( $self->{ops}->version );
-
+
# verify opcode numbers
my $seq = 0;
for my $el ( @{ $self->{ops}->{OPS} } ) {
@@ -501,16 +501,16 @@
my $version = $self->{real_ops}->version();
( my $pod = <<"END_POD") =~ s/^ //osmg;
=head1 NAME
-
+
Parrot::OpLib::core - Parrot Op Info
-
+
=head1 DESCRIPTION
-
+
This is an autogenerated file, created by F<$self->{script}>.
-
+
It contains Parrot version info, a preamble for inclusion in C code,
and an array of C<Parrot::Op> instances representing the Parrot ops.
-
+
=cut
END_POD
Modified: trunk/lib/Parrot/Pmc2c.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c.pm (original)
+++ trunk/lib/Parrot/Pmc2c.pm Thu Mar 15 10:56:54 2007
@@ -235,7 +235,7 @@
=item C<init()>
-Initializes the instance.
+Initializes the instance.
=cut
@@ -259,7 +259,7 @@
# Since singletons are shared between interpreters, we need to make
special effort to use
# the right namespace for method lookups.
#
- # Note that this trick won't work if the singleton inherits from
something else
+ # Note that this trick won't work if the singleton inherits from
something else
# (because the MRO will still be shared).
unless ( $self->implements('namespace') or $self->{super}{'namespace'}
ne 'default' )
{
@@ -556,7 +556,7 @@
}
}
-
+
$cout .= $self->decl( $classname, $method, 0 );
if ( exists $method->{pre_block} ) {
@@ -1177,14 +1177,14 @@
=cut
require Parrot::Pmc2c::default;
-require Parrot::Pmc2c::delegate;
+require Parrot::Pmc2c::delegate;
require Parrot::Pmc2c::deleg_pmc;
require Parrot::Pmc2c::Null;
require Parrot::Pmc2c::Ref;
require Parrot::Pmc2c::SharedRef;
require Parrot::Pmc2c::Standard;
require Parrot::Pmc2c::StandardConst;
-require Parrot::Pmc2c::StandardRO;
+require Parrot::Pmc2c::StandardRO;
require Parrot::Pmc2c::StmRef;
1;
Modified: trunk/lib/Parrot/Pmc2c/PMETHODs.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMETHODs.pm (original)
+++ trunk/lib/Parrot/Pmc2c/PMETHODs.pm Thu Mar 15 10:56:54 2007
@@ -268,7 +268,7 @@
if ( $#results >= 3)
{
my $rest = pop @results;
-
+
# Need to add object to the signature so it gets passed.
$rest = "PMC* $results[1]" . ($rest ? ", $rest" : "");
Modified: trunk/lib/Parrot/Test/PIR_PGE.pm
==============================================================================
--- trunk/lib/Parrot/Test/PIR_PGE.pm (original)
+++ trunk/lib/Parrot/Test/PIR_PGE.pm Thu Mar 15 10:56:54 2007
@@ -32,7 +32,7 @@
my $out_f = Parrot::Test::per_test( '.out', $count );
my $parrotdir = dirname $self->{parrot};
-
+
my $args = $ENV{TEST_PROG_ARGS} || '';
$lang_f = File::Spec->rel2abs($lang_f);
@@ -42,7 +42,7 @@
my $cmd;
my $exit_code = 0;
my $pass = 0;
-
+
$cmd = "$self->{parrot} $args languages/PIR/pir.pbc $lang_f";
$exit_code = Parrot::Test::run_command(
