"Fossies" - the Fresh Open Source Software Archive

Member "RPerl-5.002000/lib/RPerl/Algorithm.h.CPPOPS_DUALTYPES.comments.old" (30 Aug 2019, 2328 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.h.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_h
    5 #define __CPP__INCLUDED__RPerl__Algorithm_h 0.005_000
    6 
    7 // [[[ INCLUDES & OO INHERITANCE INCLUDES ]]]
    8 #include <RPerl.cpp>  // -> RPerl.h -> (rperltypes_mode.h; rperloperations.h; rperltypes.h; HelperFunctions.cpp)
    9 #include <RPerl/CompileUnit/Module/Class.cpp> // no non-system inheritance, only inherit from base class
   10 
   11 # ifdef __PERL__TYPES
   12 
   13 // [[[<<< BEGIN PERL TYPES >>>]]]
   14 // [[[<<< BEGIN PERL TYPES >>>]]]
   15 // [[[<<< BEGIN PERL TYPES >>>]]]
   16 
   17 // [[[ OO INHERITANCE ]]]
   18 class RPerl__Algorithm : public RPerl__CompileUnit__Module__Class__CPP {
   19 public:
   20 // [[[ OO METHODS ]]]
   21     void inherited_Algorithm(SV* person);
   22 //    void inherited(SV* person);
   23 
   24     // <<< CONSTRUCTOR & DESTRUCTOR >>>
   25     RPerl__Algorithm() {}
   26     ~RPerl__Algorithm() {}
   27 
   28     // <<< CLASS NAME REPORTER >>>
   29     virtual SV* myclassname() { return newSVpv("RPerl::Algorithm", 0); }
   30 };
   31 
   32 // [[[ SUBROUTINES ]]]
   33 
   34 SV* uninherited_Algorithm(SV* person);
   35 //SV* uninherited(SV* person);
   36 
   37 // <<< OPERATIONS & DATA TYPES REPORTER >>>
   38 SV* RPerl__Algorithm__MODE_ID() { return newSViv(1); }  // CPPOPS_PERLTYPES is 1
   39 
   40 // [[[<<< END PERL TYPES >>>]]]
   41 // [[[<<< END PERL TYPES >>>]]]
   42 // [[[<<< END PERL TYPES >>>]]]
   43 
   44 # elif defined __CPP__TYPES
   45 
   46 // [[[<<< BEGIN CPP TYPES >>>]]]
   47 // [[[<<< BEGIN CPP TYPES >>>]]]
   48 // [[[<<< BEGIN CPP TYPES >>>]]]
   49 
   50 // [[[ OO INHERITANCE ]]]
   51 class RPerl__Algorithm : public RPerl__CompileUnit__Module__Class__CPP {
   52 public:
   53 // [[[ OO METHODS ]]]
   54     void inherited_Algorithm(string person);
   55 //    void inherited(string person);
   56 
   57     // <<< CONSTRUCTOR & DESTRUCTOR >>>
   58     RPerl__Algorithm() {}
   59     ~RPerl__Algorithm() {}
   60 
   61     // <<< CLASS NAME REPORTER >>>
   62     virtual string myclassname() { return (const string) "RPerl::Algorithm"; }
   63 };
   64 
   65 // [[[ SUBROUTINES ]]]
   66 
   67 string uninherited_Algorithm(string person);
   68 //string uninherited(string person);
   69 
   70 // <<< OPERATIONS & DATA TYPES REPORTER >>>
   71 integer RPerl__Algorithm__MODE_ID() { return 2; }  // CPPOPS_CPPTYPES is 2
   72 
   73 // [[[<<< END CPP TYPES >>>]]]
   74 // [[[<<< END CPP TYPES >>>]]]
   75 // [[[<<< END CPP TYPES >>>]]]
   76 
   77 # else
   78 
   79 Purposefully_die_from_a_compile-time_error,_due_to_neither___PERL__TYPES_nor___CPP__TYPES_being_defined.__We_need_to_define_exactly_one!
   80 
   81 # endif
   82 
   83 #endif