source: doc/papers/OOPSLA17/evaluation/cpp-vbench.cpp @ 1f11818

Last change on this file since 1f11818 was f4e3419d, checked in by Peter A. Buhr <pabuhr@…>, 7 years ago

restructure paper documents

  • Property mode set to 100644
File size: 1.0 KB
RevLine 
[87c5f40]1#include <algorithm>
[0d10090]2#include <fstream>
[b276be5]3#include "bench.hpp"
4#include "cpp-vstack.hpp"
[0d10090]5#include "cpp-vprint.hpp"
[87c5f40]6#include "object.hpp"
[b276be5]7
8int main(int argc, char** argv) {
[6a8ac0b]9        std::ofstream out{"/dev/null"};
[c87cd93]10        integer maxi{ 0 }, vali{ 42 };
11        stack si, ti;
[a381b46]12       
[c87cd93]13        REPEAT_TIMED( "push_int", N, si.push( vali ); )
14        TIMED( "copy_int", ti = si; )
15        TIMED( "clear_int", si.clear(); )
16        REPEAT_TIMED( "pop_int", N, maxi = std::max( maxi, ti.pop()->as<integer>() ); /***/ )
17        REPEAT_TIMED( "print_int", N/2, print( out, vali, c_string{":"}, vali, c_string{"\n"} ); )
[79b8dc3]18
[c87cd93]19        ptr<pair> maxp = make<pair>( make<boolean>(false), make<character>('\0') );
20        pair valp{ make<boolean>(true), make<character>('a') };
21        stack sp, tp;
[a381b46]22       
[c87cd93]23        REPEAT_TIMED( "push_pair", N, sp.push( valp ); )
24        TIMED( "copy_pair", tp = sp; )
25        TIMED( "clear_pair", sp.clear(); )
26        REPEAT_TIMED( "pop_pair", N, 
27                ptr<pair> xp = as_ptr<pair>( tp.pop() ); /***/
28                if ( *xp > *maxp ) { maxp = std::move(xp); } )
29        REPEAT_TIMED( "print_pair", N/2, print( out, valp, c_string{":"}, valp, c_string{"\n"} ); )
[b276be5]30}
Note: See TracBrowser for help on using the repository browser.