"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/RPerl/Algorithm.cpp.CPPOPS_DUALTYPES.comments.old" between
RPerl-3.601000.tar.gz and RPerl-4.000000.tar.gz

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

Algorithm.cpp.CPPOPS_DUALTYPES.comments.old  (RPerl-3.601000):Algorithm.cpp.CPPOPS_DUALTYPES.comments.old  (RPerl-4.000000)
skipping to change at line 18 skipping to change at line 18
#include <RPerl/Algorithm.h> // -> (RPerl.cpp; Class.cpp) #include <RPerl/Algorithm.h> // -> (RPerl.cpp; Class.cpp)
# ifdef __PERL__TYPES # ifdef __PERL__TYPES
// [[[<<< BEGIN PERL TYPES >>>]]] // [[[<<< BEGIN PERL TYPES >>>]]]
// [[[<<< BEGIN PERL TYPES >>>]]] // [[[<<< BEGIN PERL TYPES >>>]]]
// [[[<<< BEGIN PERL TYPES >>>]]] // [[[<<< BEGIN PERL TYPES >>>]]]
// [[[ SUBROUTINES & OO METHODS ]]] // [[[ SUBROUTINES & OO METHODS ]]]
void RPerl__Algorithm::inherited__Algorithm(SV* person) { void RPerl__Algorithm::inherited_Algorithm(SV* person) {
cout << "in CPPOPS_PERLTYPES Algorithm->inherited__Algorithm(), have ::class cout << "in CPPOPS_PERLTYPES Algorithm->inherited_Algorithm(), have ::class(
($self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(pe $self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(per
rson) << ", FNORD" << "\n"; son) << ", FNORD" << "\n";
} }
//void RPerl__Algorithm::inherited(SV* person) { //void RPerl__Algorithm::inherited(SV* person) {
// cout << "in CPPOPS_PERLTYPES Algorithm->inherited(), have ::class($self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(person) << ", IS" << "\n"; // cout << "in CPPOPS_PERLTYPES Algorithm->inherited(), have ::class($self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(person) << ", IS" << "\n";
//} //}
SV* uninherited__Algorithm(SV* person) { SV* uninherited_Algorithm(SV* person) {
cout << "in CPPOPS_PERLTYPES Algorithm::uninherited__Algorithm(), received $ cout << "in CPPOPS_PERLTYPES Algorithm::uninherited_Algorithm(), received $p
person = " << SvPV_nolen(person) << ", MYSTIC" << "\n"; erson = " << SvPV_nolen(person) << ", MYSTIC" << "\n";
return newSVpv("Algorithm::uninherited__Algorithm() RULES! CPPOPS_PERLTYPES" return newSVpv("Algorithm::uninherited_Algorithm() RULES! CPPOPS_PERLTYPES",
, 0); 0);
} }
//SV* uninherited(SV* person) { //SV* uninherited(SV* person) {
// cout << "in CPPOPS_PERLTYPES Algorithm::uninherited(), received $person = " << SvPV_nolen(person) << ", TERRITORY" << "\n"; // cout << "in CPPOPS_PERLTYPES Algorithm::uninherited(), received $person = " << SvPV_nolen(person) << ", TERRITORY" << "\n";
// return newSVpv("Algorithm::uninherited() ROCKS! CPPOPS_PERLTYPES", 0); // return newSVpv("Algorithm::uninherited() ROCKS! CPPOPS_PERLTYPES", 0);
//} //}
// [[[<<< END PERL TYPES >>>]]] // [[[<<< END PERL TYPES >>>]]]
// [[[<<< END PERL TYPES >>>]]] // [[[<<< END PERL TYPES >>>]]]
// [[[<<< END PERL TYPES >>>]]] // [[[<<< END PERL TYPES >>>]]]
# elif defined __CPP__TYPES # elif defined __CPP__TYPES
// [[[<<< BEGIN CPP TYPES >>>]]] // [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]] // [[[<<< BEGIN CPP TYPES >>>]]]
// [[[<<< BEGIN CPP TYPES >>>]]] // [[[<<< BEGIN CPP TYPES >>>]]]
// [[[ SUBROUTINES & OO METHODS ]]] // [[[ SUBROUTINES & OO METHODS ]]]
void RPerl__Algorithm::inherited__Algorithm(string person) { void RPerl__Algorithm::inherited_Algorithm(string person) {
RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited__Algorit RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited_Algorith
hm(), have ::class($self) = " + classname(this) + (const string) " and $person = m(), have ::class($self) = " + classname(this) + (const string) " and $person =
" + person + (const string) ", FNORD" + (const string) "\n"); " + person + (const string) ", FNORD" + (const string) "\n");
} }
//void RPerl__Algorithm::inherited(SV* person) { //void RPerl__Algorithm::inherited(SV* person) {
// RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited(), hav e ::class($self) = " + classname(this) + (const string) " and $person = " + pers on + (const string) ", IS" + (const string) "\n"); // RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited(), hav e ::class($self) = " + classname(this) + (const string) " and $person = " + pers on + (const string) ", IS" + (const string) "\n");
//} //}
string uninherited__Algorithm(string person) { string uninherited_Algorithm(string person) {
RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited__Algor RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited_Algori
ithm(), received $person = " + person + (const string) ", MYSTIC" + (const strin thm(), received $person = " + person + (const string) ", MYSTIC" + (const string
g) "\n"); ) "\n");
return (const string) "Algorithm::uninherited__Algorithm() RULES! CPPOPS_CPP return (const string) "Algorithm::uninherited_Algorithm() RULES! CPPOPS_CPPT
TYPES"; YPES";
} }
//string uninherited(string person) { //string uninherited(string person) {
// RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited(), r eceived $person = " + person + (const string) ", TERRITORY" + (const string) "\n "); // RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited(), r eceived $person = " + person + (const string) ", TERRITORY" + (const string) "\n ");
// return (const string) "Algorithm::uninherited() ROCKS! CPPOPS_CPPTYPES"; // return (const string) "Algorithm::uninherited() ROCKS! CPPOPS_CPPTYPES";
//} //}
// [[[<<< END CPP TYPES >>>]]] // [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]] // [[[<<< END CPP TYPES >>>]]]
// [[[<<< END CPP TYPES >>>]]] // [[[<<< END CPP TYPES >>>]]]
 End of changes. 4 change blocks. 
19 lines changed or deleted 19 lines changed or added

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