"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/RPerl/Operation/Expression/Operator/NamedUnary/Scalar.pm" between
RPerl-5.000000.tar.gz and RPerl-5.002000.tar.gz

About: RPerl is an optimizing compiler for the Perl 5 programming language (converting Perl 5 source code into C++).

Scalar.pm  (RPerl-5.000000):Scalar.pm  (RPerl-5.002000)
skipping to change at line 21 skipping to change at line 21
# [[[ OO INHERITANCE ]]] # [[[ OO INHERITANCE ]]]
use parent qw(RPerl::Operation::Expression::Operator::NamedUnary); use parent qw(RPerl::Operation::Expression::Operator::NamedUnary);
use RPerl::Operation::Expression::Operator::NamedUnary; use RPerl::Operation::Expression::Operator::NamedUnary;
# [[[ CRITICS ]]] # [[[ CRITICS ]]]
## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSysca lls) # USER DEFAULT 1: allow numeric values & print operator ## no critic qw(ProhibitUselessNoCritic ProhibitMagicNumbers RequireCheckedSysca lls) # USER DEFAULT 1: allow numeric values & print operator
## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single -quoted control characters & sigils ## no critic qw(RequireInterpolationOfMetachars) # USER DEFAULT 2: allow single -quoted control characters & sigils
# [[[ CONSTANTS ]]] # [[[ CONSTANTS ]]]
use constant NAME => my string $TYPED_NAME = ' use constant NAME => my string $TYPED_NAME =
scalar'; 'scalar';
use constant NAME_CPPOPS_PERLTYPES => my string $TYPED_NAME_CPPOPS_PERLTYPES = ' use constant NAME_CPPOPS_PERLTYPES => my string $TYPED_NAME_CPPOPS_PERLTYPES =
DUMMY_OP_SCALAR'; 'DUMMY_OP_SCALAR';
use constant NAME_CPPOPS_CPPTYPES => my string $TYPED_NAME_CPPOPS_CPPTYPES = ' use constant NAME_CPPOPS_CPPTYPES => my string $TYPED_NAME_CPPOPS_CPPTYPES =
size'; 'size';
use constant ARGUMENTS_MIN => my integer $TYPED_ARGUMENTS_MIN = 1 use constant ARGUMENTS_MIN => my integer $TYPED_ARGUMENTS_MIN =
; 1;
use constant ARGUMENTS_MAX => my integer $TYPED_ARGUMENTS_MAX = 1 use constant ARGUMENTS_MAX => my integer $TYPED_ARGUMENTS_MAX =
; 1;
# [[[ OO PROPERTIES ]]] # [[[ OO PROPERTIES ]]]
our hashref $properties = {}; our hashref $properties = {};
# [[[ SUBROUTINES & OO METHODS ]]] # [[[ SUBROUTINES & OO METHODS ]]]
sub ast_to_rperl__generate { sub ast_to_rperl__generate {
{ my string_hashref::method $RETURN_TYPE }; { my string_hashref::method $RETURN_TYPE };
( my object $self, my object $operator_named, my string_hashref $modes) = @A RG; ( my object $self, my object $operator_named, my string_hashref $modes) = @A RG;
my string_hashref $rperl_source_group = { PMC => q{} }; my string_hashref $rperl_source_group = { PMC => q{} };
skipping to change at line 153 skipping to change at line 153
# RPerl::diag( 'in NamedUnary::Scalar->ast_to_cpp__generate__CPPO PS_CPPTYPES(), have $cpp_source_subgroup = ' . "\n" . RPerl::Parser::rperl_ast__ dump($cpp_source_subgroup) . "\n" ); # RPerl::diag( 'in NamedUnary::Scalar->ast_to_cpp__generate__CPPO PS_CPPTYPES(), have $cpp_source_subgroup = ' . "\n" . RPerl::Parser::rperl_ast__ dump($cpp_source_subgroup) . "\n" );
RPerl::Generator::source_group_append( $cpp_source_group, $cpp_s ource_subgroup ); RPerl::Generator::source_group_append( $cpp_source_group, $cpp_s ource_subgroup );
$cpp_source_group->{CPP} .= ') '; $cpp_source_group->{CPP} .= ') ';
$cpp_source_subgroup = $array_reference->ast_to_cpp__generate__C PPOPS_CPPTYPES($modes); $cpp_source_subgroup = $array_reference->ast_to_cpp__generate__C PPOPS_CPPTYPES($modes);
RPerl::Generator::source_group_append( $cpp_source_group, $cpp_s ource_subgroup ); RPerl::Generator::source_group_append( $cpp_source_group, $cpp_s ource_subgroup );
$cpp_source_group->{CPP} .= ')'; $cpp_source_group->{CPP} .= ')';
} }
else { else {
die RPerl::Parser::rperl_rule__replace( die RPerl::Parser::rperl_rule__replace(
'ERROR ECOGEASCP879, CODE GENERATOR, ABSTRACT SYNTAX TO C++: Array dereference of array reference must provide data type for array reference in CPPOPS_CPPTYPES mode, but no data type provided, dying' 'ERROR ECOGEASCP871, CODE GENERATOR, ABSTRACT SYNTAX TO C++: Array dereference of array reference must provide data type for array reference in CPPOPS_CPPTYPES mode, but no data type provided, dying'
) . "\n"; ) . "\n";
} }
} }
else { else {
die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP000, CODE GE NERATOR, ABSTRACT SYNTAX TO C++: Grammar rule ' die RPerl::Parser::rperl_rule__replace( 'ERROR ECOGEASCP000, CODE GE NERATOR, ABSTRACT SYNTAX TO C++: Grammar rule '
. $subexpression_class . $subexpression_class
. ' found where ArrayDereference_221 or ArrayDereference_222 expected, dying' ) . ' found where ArrayDereference_221 or ArrayDereference_222 expected, dying' )
. "\n"; . "\n";
} }
 End of changes. 2 change blocks. 
11 lines changed or deleted 11 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)