Author: tewk
Date: Fri Feb 2 21:03:52 2007
New Revision: 16877
Modified:
trunk/ (props changed)
trunk/compilers/pge/PGE/pmc/codestring.pmc
trunk/config/gen/makefiles/pge.in
trunk/lib/Parrot/Pmc2c/Null.pm
trunk/lib/Parrot/Pmc2c/PMETHODs.pm
trunk/lib/Parrot/Pmc2c/Ref.pm
trunk/lib/Parrot/Pmc2c/SharedRef.pm
trunk/lib/Parrot/Pmc2c/Standard.pm
trunk/lib/Parrot/Pmc2c/StandardConst.pm
trunk/lib/Parrot/Pmc2c/StandardRO.pm
trunk/lib/Parrot/Pmc2c/StmRef.pm
trunk/lib/Parrot/Pmc2c/UtilFunctions.pm
trunk/lib/Parrot/Pmc2c/default.pm
trunk/lib/Parrot/Pmc2c/deleg_pmc.pm
trunk/lib/Parrot/Pmc2c/delegate.pm
Log:
Fixes and Cleanups
Modified: trunk/compilers/pge/PGE/pmc/codestring.pmc
==============================================================================
--- trunk/compilers/pge/PGE/pmc/codestring.pmc (original)
+++ trunk/compilers/pge/PGE/pmc/codestring.pmc Fri Feb 2 21:03:52 2007
@@ -152,7 +152,6 @@
}
PMC_str_val(SELF) = string_append(interp, PMC_str_val(SELF), format);
-
if (string_equal(interp, string_substr(interp, format, -1, 1, NULL,
0), NEWLINE)) {
PMC_str_val(SELF) = string_append(interp, PMC_str_val(SELF),
NEWLINE);
}
Modified: trunk/config/gen/makefiles/pge.in
==============================================================================
--- trunk/config/gen/makefiles/pge.in (original)
+++ trunk/config/gen/makefiles/pge.in Fri Feb 2 21:03:52 2007
@@ -17,7 +17,7 @@
PARROT_LIBRARY = ../../runtime/parrot/library
# the default target
-all: $(PARROT_LIBRARY)/PGE.pbc $(PMCDIR)/pge_group$(LOAD_EXT)
+all: $(PMCDIR)/pge_group$(LOAD_EXT) $(PARROT_LIBRARY)/PGE.pbc
PMCS = \
codestring
Modified: trunk/lib/Parrot/Pmc2c/Null.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Null.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Null.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::Null Instance Methods
+=head1 Parrot::Pmc2c::Null Instance Methods
=over 4
@@ -28,6 +28,8 @@
The C<Null> PMC throws an execption for all methods.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/PMETHODs.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMETHODs.pm (original)
+++ trunk/lib/Parrot/Pmc2c/PMETHODs.pm Fri Feb 2 21:03:52 2007
@@ -149,7 +149,7 @@
$flag |= PARROT_ARG_FLATTEN if exists $param->{attrs}->{flatten};
$flag |= PARROT_ARG_SLURPY_ARRAY if exists $param->{attrs}->{slurpy};
$flag |= PARROT_ARG_NAME if exists $param->{attrs}->{name};
-
+ $flag |= PARROT_ARG_NAME if exists $param->{attrs}->{named};
if (exists $param->{attrs}->{opt_flag}) {
return PARROT_ARG_INTVAL | PARROT_ARG_OPT_FLAG;
}
@@ -244,7 +244,7 @@
my $linear_args = parse_pmethod_args($_[0]);
my $arg = {
type => get_arg_type('PMC'),
- name => 'self',
+ name => 'pmc',
attrs => parse_arg_attrs(':object')
};
unshift @$linear_args, $arg;
Modified: trunk/lib/Parrot/Pmc2c/Ref.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Ref.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Ref.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::Ref Instance Methods
+=head1 Parrot::Pmc2c::Ref Instance Methods
=over 4
@@ -115,6 +115,7 @@
}
1;
+
=back
=cut
Modified: trunk/lib/Parrot/Pmc2c/SharedRef.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/SharedRef.pm (original)
+++ trunk/lib/Parrot/Pmc2c/SharedRef.pm Fri Feb 2 21:03:52 2007
@@ -1,6 +1,4 @@
-=back
-
-=head2 Parrot::Pmc2c::SharedRef Instance Methods
+=head1 Parrot::Pmc2c::SharedRef Instance Methods
=over 4
@@ -34,10 +32,6 @@
=back
-=head2 Parrot::Pmc2c::default Instance Methods
-
-=over 4
-
=cut
1;
Modified: trunk/lib/Parrot/Pmc2c/Standard.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/Standard.pm (original)
+++ trunk/lib/Parrot/Pmc2c/Standard.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::Standard Instance Methods
+=head1 Parrot::Pmc2c::Standard Instance Methods
Standard behavior.
@@ -15,6 +15,8 @@
the number of lines, C<$out_name> is the name of the output file we are
generating.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/StandardConst.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StandardConst.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StandardConst.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::Standard::Const Instance Methods
+=head1 Parrot::Pmc2c::Standard::Const Instance Methods
Returns the C code for the method body.
@@ -16,6 +16,8 @@
the number of lines, C<$out_name> is the name of the output file we are
generating.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/StandardRO.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StandardRO.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StandardRO.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::Standard::RO Instance Methods
+=head1 Parrot::Pmc2c::Standard::RO Instance Methods
Returns the C code for the method body.
@@ -29,6 +29,8 @@
the number of lines, C<$out_name> is the name of the output file we are
generating.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/StmRef.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/StmRef.pm (original)
+++ trunk/lib/Parrot/Pmc2c/StmRef.pm Fri Feb 2 21:03:52 2007
@@ -1,9 +1,7 @@
package Parrot::Pmc2c::STMRef;
use base 'Parrot::Pmc2c::Ref';
-=head2 Parrot::Pmc2c::STMRef Instance Methods
-
-=over 4
+=head1 Parrot::Pmc2c::STMRef Instance Methods
=cut
Modified: trunk/lib/Parrot/Pmc2c/UtilFunctions.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/UtilFunctions.pm (original)
+++ trunk/lib/Parrot/Pmc2c/UtilFunctions.pm Fri Feb 2 21:03:52 2007
@@ -4,6 +4,8 @@
use base qw( Exporter );
our @EXPORT_OK = qw( count_newlines gen_ret dont_edit dynext_load_code
c_code_coda );
+=over 4
+
=item C<count_newlines($string)>
Returns the number of newlines (C<\n>) in C<$string>.
@@ -143,6 +145,8 @@
Returns the Parrot C code coda
+=back
+
=cut
sub c_code_coda() {
Modified: trunk/lib/Parrot/Pmc2c/default.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/default.pm (original)
+++ trunk/lib/Parrot/Pmc2c/default.pm Fri Feb 2 21:03:52 2007
@@ -1,3 +1,9 @@
+=head1 Parrot::Pmc2c::default Instance Methods
+
+=over 4
+
+=cut
+
package Parrot::Pmc2c::default;
use base 'Parrot::Pmc2c';
import Parrot::Pmc2c qw( gen_ret );
@@ -21,6 +27,8 @@
Overrides the default implementation to throw an execption for unknown
methods.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/deleg_pmc.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/deleg_pmc.pm (original)
+++ trunk/lib/Parrot/Pmc2c/deleg_pmc.pm Fri Feb 2 21:03:52 2007
@@ -2,6 +2,8 @@
use base 'Parrot::Pmc2c';
use Parrot::Pmc2c::UtilFunctions qw( gen_ret );
+=over 4
+
=item C<implements($method)>
Always true for vtables.
@@ -22,6 +24,8 @@
Overrides the default implementation to direct all unknown methods to
the PMC in the first attribute slot.
+=back
+
=cut
sub body {
Modified: trunk/lib/Parrot/Pmc2c/delegate.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/delegate.pm (original)
+++ trunk/lib/Parrot/Pmc2c/delegate.pm Fri Feb 2 21:03:52 2007
@@ -1,4 +1,4 @@
-=head2 Parrot::Pmc2c::delegate Instance Methods
+=head1 Parrot::Pmc2c::delegate Instance Methods
=over 4
@@ -70,6 +70,8 @@
The C<delegate> PMC redirects all methods to bytecode.
+=back
+
=cut
sub body {
