Permalink
Browse files

[PDD17]: rename pmc definition modifier 'noinit' to 'no_init' for con…

…sistency

git-svn-id: https://svn.parrot.org/parrot/trunk@21373 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 93c75fc commit 30765f88adb1ec78fa3642d9d00b74324da7b1c7 @particle particle committed Sep 19, 2007
@@ -133,7 +133,7 @@ Adds the C<PMC_EXT> structure when instantiating the PMC.
The PMC cannot be instantiated. (By convention, abstract classes are given
lower-case names.)
-=item noinit
+=item no_init
Don't generate class initialization code (don't set up a vtable for the PMC).
Used with C<abstract>.
View
@@ -30,7 +30,7 @@ getting replaced by their appropriate values.
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 @@ If no parent class is defined, methods from F<default.pmc> are used.
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.
@@ -123,9 +123,9 @@ True if pmc generates code for vtable method C<$method>.
=cut
-sub noinit {
+sub no_init {
my ( $self ) = @_;
- return $self->flag('noinit');
+ return $self->flag('no_init');
}
sub singleton {
@@ -461,7 +461,7 @@ string if the PMC has a C<no_init> flag.
sub init_func {
my ($self) = @_;
- return "" if $self->noinit;
+ return "" if $self->no_init;
my $cout = "";
my $classname = $self->name;
@@ -108,7 +108,7 @@ Parrot_PMC Parrot_lib_${lc_libname}_load(PARROT_INTERP)
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
*/
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 @@ EOC
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
View
@@ -263,7 +263,7 @@ does_isa(PARROT_INTERP, const STRING *method, const STRING *what)
return 0;
}
-pmclass default abstract noinit {
+pmclass default abstract no_init {
/*
View
@@ -85,7 +85,7 @@ bitwise_left_shift_internal(PARROT_INTERP, PMC *self,
return dest;
}
-pmclass scalar abstract noinit {
+pmclass scalar abstract no_init {
/*

0 comments on commit 30765f8

Please sign in to comment.