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

Last change on this file since a9ae5ca 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
Line 
1#include <algorithm>
2#include <fstream>
3#include "bench.hpp"
4#include "cpp-vstack.hpp"
5#include "cpp-vprint.hpp"
6#include "object.hpp"
7
8int main(int argc, char** argv) {
9        std::ofstream out{"/dev/null"};
10        integer maxi{ 0 }, vali{ 42 };
11        stack si, ti;
12       
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"} ); )
18
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;
22       
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"} ); )
30}
Note: See TracBrowser for help on using the repository browser.