"Fossies" - the Fresh Open Source Software Archive

Member "RPerl-5.002000/lib/RPerl/Algorithm.cpp.CPPOPS_PERLTYPES" (30 Aug 2019, 1923 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_PERLTYPES": 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.010_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 SV* RPerl__Algorithm::inherited_Algorithm_foo_get() {
   23     cout << "in CPPOPS_PERLTYPES Algorithm->inherited_Algorithm_foo_get(), have ::class($self) = " << SvPV_nolen(classname(this)) << ", FNORD" << "\n";
   24     return SvREFCNT_inc(this->foo);
   25 }
   26 
   27 void RPerl__Algorithm::inherited_Algorithm_foo_set(SV* foo_new) {
   28     cout << "in CPPOPS_PERLTYPES Algorithm->inherited_Algorithm_foo_set(), have ::class($self) = " << SvPV_nolen(classname(this)) << " and $foo_new = " << SvPV_nolen(foo_new) << ", FNORD" << "\n";
   29     this->foo = foo_new;
   30 }
   31 
   32 SV* RPerl__Algorithm__uninherited_Algorithm(SV* person) {
   33     cout << "in CPPOPS_PERLTYPES Algorithm::uninherited_Algorithm(), received $person = " << SvPV_nolen(person) << ", MYSTIC" << "\n";
   34     return newSVpv("Algorithm::uninherited_Algorithm() RULES! CPPOPS_PERLTYPES", 0);
   35 }
   36 
   37 // [[[<<< END PERL TYPES >>>]]]
   38 // [[[<<< END PERL TYPES >>>]]]
   39 // [[[<<< END PERL TYPES >>>]]]
   40 
   41 # elif defined __CPP__TYPES
   42 
   43 Purposefully_die_from_a_compile-time_error,_due_to____CPP__TYPES_being_defined.__We_need_to_define_only___PERL__TYPES_in_this_file!
   44 
   45 # else
   46 
   47 Purposefully_die_from_a_compile-time_error,_due_to_neither___PERL__TYPES_nor___CPP__TYPES_being_defined.__We_need_to_define_only___PERL__TYPES_in_this_file!
   48 
   49 # endif
   50 
   51 #endif