"Fossies" - the Fresh Open Source Software Archive

Member "RPerl-5.002000/lib/RPerl/Algorithm.cpp.CPPOPS_DUALTYPES.comments.old" (30 Aug 2019, 3061 Bytes) of package /linux/misc/RPerl-5.002000.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "Algorithm.cpp.CPPOPS_DUALTYPES.comments.old": 3.601000_vs_4.000000.

    1 // [[[ HEADER ]]]
    2 using std::cout;  using std::cerr;  using std::endl;
    3 
    4 #ifndef __CPP__INCLUDED__RPerl__Algorithm_cpp
    5 #define __CPP__INCLUDED__RPerl__Algorithm_cpp 0.005_000
    6 
    7 // [[[ INCLUDES ]]]
    8 #include <RPerl/Algorithm.h>  // -> (RPerl.cpp; Class.cpp)
    9 
   10 # ifdef __PERL__TYPES
   11 
   12 // [[[<<< BEGIN PERL TYPES >>>]]]
   13 // [[[<<< BEGIN PERL TYPES >>>]]]
   14 // [[[<<< BEGIN PERL TYPES >>>]]]
   15 
   16 // [[[ SUBROUTINES & OO METHODS ]]]
   17 
   18 void RPerl__Algorithm::inherited_Algorithm(SV* person) {
   19     cout << "in CPPOPS_PERLTYPES Algorithm->inherited_Algorithm(), have ::class($self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(person) << ", FNORD" << "\n";
   20 }
   21 
   22 //void RPerl__Algorithm::inherited(SV* person) {
   23 //    cout << "in CPPOPS_PERLTYPES Algorithm->inherited(), have ::class($self) = " << SvPV_nolen(classname(this)) << " and $person = " << SvPV_nolen(person) << ", IS" << "\n";
   24 //}
   25 
   26 SV* uninherited_Algorithm(SV* person) {
   27     cout << "in CPPOPS_PERLTYPES Algorithm::uninherited_Algorithm(), received $person = " << SvPV_nolen(person) << ", MYSTIC" << "\n";
   28     return newSVpv("Algorithm::uninherited_Algorithm() RULES! CPPOPS_PERLTYPES", 0);
   29 }
   30 
   31 //SV* uninherited(SV* person) {
   32 //    cout << "in CPPOPS_PERLTYPES Algorithm::uninherited(), received $person = " << SvPV_nolen(person) << ", TERRITORY" << "\n";
   33 //    return newSVpv("Algorithm::uninherited() ROCKS! CPPOPS_PERLTYPES", 0);
   34 //}
   35 
   36 // [[[<<< END PERL TYPES >>>]]]
   37 // [[[<<< END PERL TYPES >>>]]]
   38 // [[[<<< END PERL TYPES >>>]]]
   39 
   40 # elif defined __CPP__TYPES
   41 
   42 // [[[<<< BEGIN CPP TYPES >>>]]]
   43 // [[[<<< BEGIN CPP TYPES >>>]]]
   44 // [[[<<< BEGIN CPP TYPES >>>]]]
   45 
   46 // [[[ SUBROUTINES & OO METHODS ]]]
   47 
   48 void RPerl__Algorithm::inherited_Algorithm(string person) {
   49     RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited_Algorithm(), have ::class($self) = " + classname(this) + (const string) " and $person = " + person + (const string) ", FNORD" + (const string) "\n");
   50 }
   51 
   52 //void RPerl__Algorithm::inherited(SV* person) {
   53 //    RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm->inherited(), have ::class($self) = " + classname(this) + (const string) " and $person = " + person + (const string) ", IS" + (const string) "\n");
   54 //}
   55 
   56 string uninherited_Algorithm(string person) {
   57     RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited_Algorithm(), received $person = " + person + (const string) ", MYSTIC" + (const string) "\n");
   58     return (const string) "Algorithm::uninherited_Algorithm() RULES! CPPOPS_CPPTYPES";
   59 }
   60 
   61 //string uninherited(string person) {
   62 //    RPerl::diag((const string) "in CPPOPS_CPPTYPES Algorithm::uninherited(), received $person = " + person + (const string) ", TERRITORY" + (const string) "\n");
   63 //    return (const string) "Algorithm::uninherited() ROCKS! CPPOPS_CPPTYPES";
   64 //}
   65 
   66 // [[[<<< END CPP TYPES >>>]]]
   67 // [[[<<< END CPP TYPES >>>]]]
   68 // [[[<<< END CPP TYPES >>>]]]
   69 
   70 # else
   71 
   72 Purposefully_die_from_a_compile-time_error,_due_to_neither___PERL__TYPES_nor___CPP__TYPES_being_defined.__We_need_to_define_exactly_one!
   73 
   74 # endif
   75 
   76 #endif