Author: jkeenan Date: Tue Feb 13 05:38:26 2007 New Revision: 16966 Modified: branches/buildtools/lib/Parrot/Ops2c/Utils.pm
Log: Internal sub _print_coda() refactored into a method for consistency with other such subs. All subs internal to print_c_header_file() are now methods. Modified: branches/buildtools/lib/Parrot/Ops2c/Utils.pm ============================================================================== --- branches/buildtools/lib/Parrot/Ops2c/Utils.pm (original) +++ branches/buildtools/lib/Parrot/Ops2c/Utils.pm Tue Feb 13 05:38:26 2007 @@ -187,13 +187,9 @@ $self->_print_preamble_header($HEADER); - _print_run_core_func_decl_header( { - trans => $self->{trans}, - fh => $HEADER, - base => $self->{base}, - } ); + $self->_print_run_core_func_decl_header($HEADER); - _print_coda($HEADER); + $self->_print_coda($HEADER); close $HEADER or die "Unable to close handle to $self->{header}: $!"; (-e $self->{header}) or die "$self->{header} not created: $!"; @@ -218,11 +214,10 @@ } sub _print_run_core_func_decl_header { - my $argsref = shift; - if ( $argsref->{trans}->can("run_core_func_decl") ) { + my ($self, $fh) = @_; + if ( $self->{trans}->can("run_core_func_decl") ) { my $run_core_func = - $argsref->{trans}->run_core_func_decl($argsref->{base}); - my $fh = $argsref->{fh}; + $self->{trans}->run_core_func_decl($self->{base}); print $fh "$run_core_func;\n"; } else { return; @@ -230,7 +225,7 @@ } sub _print_coda { - my $fh = shift; + my ($self, $fh) = @_; print $fh <<END_C; /*