[svn:parrot] r21373 - in trunk: docs docs/pdds lib/Parrot/Pmc2c src/pmc

Author: particle
Date: Wed Sep 19 00:25:51 2007
New Revision: 21373

Modified:
   trunk/docs/pmc2c.pod
   trunk/lib/Parrot/Pmc2c/PMC.pm
   trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
   trunk/lib/Parrot/Pmc2c/UtilFunctions.pm
   trunk/src/pmc/default.pmc
   trunk/src/pmc/scalar.pmc

Changes in other areas also in this revision:
Modified:
   trunk/docs/pdds/pdd17_pmc.pod

Log:
[PDD17]: rename pmc definition modifier 'noinit' to 'no_init' for consistency

Modified: trunk/docs/pmc2c.pod
==============================================================================
--- trunk/docs/pmc2c.pod        (original)
+++ trunk/docs/pmc2c.pod        Wed Sep 19 00:25:51 2007
@@ -30,7 +30,7 @@
 Finally, the .c and .h files are generated. The appropriate base class
 header files are included.
 
-If the C<noinit> flag was used, then no init function is generated.
+If the C<no_init> flag was used, then no init function is generated.
 Otherwise, one is generated which sets up the vtable and enters it into
 the C<vtables> array.
 
@@ -67,7 +67,7 @@
 This class cannot be instantiated. Abstract classes are shown with lower
 case class names in the class tree.
 
-=item C<noinit>
+=item C<no_init>
 
 Used with C<abstract>: No C<class_init> code is generated.
 

Modified: trunk/lib/Parrot/Pmc2c/PMC.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMC.pm       (original)
+++ trunk/lib/Parrot/Pmc2c/PMC.pm       Wed Sep 19 00:25:51 2007
@@ -123,9 +123,9 @@
 
 =cut
 
-sub noinit {
+sub no_init {
     my ( $self ) = @_;
-    return $self->flag('noinit');
+    return $self->flag('no_init');
 }
 
 sub singleton {

Modified: trunk/lib/Parrot/Pmc2c/PMCEmitter.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMCEmitter.pm        (original)
+++ trunk/lib/Parrot/Pmc2c/PMCEmitter.pm        Wed Sep 19 00:25:51 2007
@@ -461,7 +461,7 @@
 
 sub init_func {
     my ($self) = @_;
-    return "" if $self->noinit;
+    return "" if $self->no_init;
 
     my $cout = "";
     my $classname = $self->name;

Modified: trunk/lib/Parrot/Pmc2c/UtilFunctions.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/UtilFunctions.pm     (original)
+++ trunk/lib/Parrot/Pmc2c/UtilFunctions.pm     Wed Sep 19 00:25:51 2007
@@ -108,7 +108,7 @@
     Parrot_PMC    pmc;
 EOC
     while ( my ( $class, $info ) = each %classes ) {
-        next if $info->{flags}{noinit};
+        next if $info->{flags}{no_init};
         $cout .= <<"EOC";
     Parrot_Int type${class};
 EOC
@@ -130,7 +130,7 @@
      */
 EOC
     while ( my ( $class, $info ) = each %classes ) {
-        my $lhs = $info->{flags}{noinit} ? "" : "type$class = ";
+        my $lhs = $info->{flags}{no_init} ? "" : "type$class = ";
         $cout .= <<"EOC";
     whoami = const_string(interp, "$class");
     ${lhs}pmc_register(interp, whoami);
@@ -142,7 +142,7 @@
     for (pass = 0; pass <= 1; ++pass) {
 EOC
     while ( my ( $class, $info ) = each %classes ) {
-        next if $info->{flags}{noinit};
+        next if $info->{flags}{no_init};
         $cout .= <<"EOC";
         Parrot_${class}_class_init(interp, type$class, pass);
 EOC

Modified: trunk/src/pmc/default.pmc
==============================================================================
--- trunk/src/pmc/default.pmc   (original)
+++ trunk/src/pmc/default.pmc   Wed Sep 19 00:25:51 2007
@@ -263,7 +263,7 @@
     return 0;
 }
 
-pmclass default abstract noinit {
+pmclass default abstract no_init {
 
 /*
 

Modified: trunk/src/pmc/scalar.pmc
==============================================================================
--- trunk/src/pmc/scalar.pmc    (original)
+++ trunk/src/pmc/scalar.pmc    Wed Sep 19 00:25:51 2007
@@ -85,7 +85,7 @@
     return dest;
 }
 
-pmclass scalar abstract noinit {
+pmclass scalar abstract no_init {
 
 /*