The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

WBRASWELL / RPerl-3.402000 / script / development / OO / unused / oo01_low_rperl_old.cpp 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

              
//!/usr/bin/rperl
// [[[ HEADER ]]]
#include <rperlstandalone.h>
#ifndef __CPP__INCLUDED__oo01_low_rperl_old_cpp
#define __CPP__INCLUDED__oo01_low_rperl_old_cpp 0.001_000
# ifdef __CPP__TYPES
// [[[ INCLUDES ]]]
#include "oo01_low_rperl_old.h"
int main() {
    // [[[ OPERATIONS HEADER ]]]
// [[[ OPERATIONS ]]]
    MyClass01LowRPerlOld_ptr my_object(new MyClass01LowRPerlOld);
    my_object->set_bar(22);
    print "have $my_object->get_bar() = " << my_object->get_bar() << endl;
    my_object->double_bar_save();
    print "have $my_object->get_bar() = " << my_object->get_bar() << endl;
    print "have $my_object->double_bar_return() = " << my_object->double_bar_return() << endl;
    print "have $my_object->get_bar() = " << my_object->get_bar() << endl;
    MySubclass01LowRPerlOld_ptr my_object_subclass(new MySubclass01LowRPerlOld);
    my_object_subclass->set_bar(33);
    print "have $my_object_subclass->get_bar() = " << my_object_subclass->get_bar() << endl;
    print "have $my_object_subclass->get_bax() = " << my_object_subclass->get_bax() << endl;
    my_object_subclass->triple_bax_save();
    print "have $my_object_subclass->get_bax() = " << my_object_subclass->get_bax() << endl;
    print "have $my_object_subclass->triple_bax_return() = " << my_object_subclass->triple_bax_return() << endl;
    print "have $my_object_subclass->get_bax() = " << my_object_subclass->get_bax() << endl;
    print "have $my_object_subclass->multiply_bax_return(2) = " << my_object_subclass->multiply_bax_return(2) << endl;
    print "have $my_object_subclass->get_bax() = " << my_object_subclass->get_bax() << endl;
    print "have $my_object_subclass->multiply_bax_return(20) = " << my_object_subclass->multiply_bax_return(20) << endl;
    print "have $my_object_subclass->get_bax() = " << my_object_subclass->get_bax() << endl;
    // [[[ OPERATIONS FOOTER ]]]
    return 0;
}
// [[[ FOOTER ]]]
# elif defined __PERL__TYPES
Purposefully_die_from_a_compile-time_error,_due_to____PERL__TYPES_being_defined.__We_need_to_define_only___CPP__TYPES_in_this_file!
# endif
#endif