test/benchmark.cpp

   1 #include <iostream>
   2 #include <ctime>
   3
   4 namespace std
   5 {
   6         using ::clock_t;
   7 //      using ::clock;
   8 }
   9
  10 #define LUABIND_NO_ERROR_CHECKING
  11 #define LUABIND_DONT_COPY_STRINGS
  12 //#define LUABIND_NOT_THREADSAFE
  13
  14 #include <luabind/luabind.hpp>
  15
  16 extern "C"
  17 {
  18         #include "lua.h"
  19         #include "lauxlib.h"
  20 }
  21
  22 struct A {};
  23
  24 // luabind function
  25 float f1(int a, float b, const char* str, A* c)
  26 {
  27         return 3.14f;
  28 }
  29
  30 // empty function
  31 int f2(lua_State* L)
  32 {
  33         return 0;
  34 }
  35
  36
  37 int main()
  38 {
  39         const int num_calls = 1000000;
  40         const int loops = 100;
  41
  42         using namespace luabind;
  43
  44         lua_State* L = lua_open();
  45
  46         class_<A>(L, "A")
  47                 .def(constructor<>());
  48
  49         function(L, "test1", &f1);
  50
  51         lua_pushstring(L, "test2");
  52         lua_pushcclosure(L, &f2, 0);
  53         lua_settable(L, LUA_GLOBALSINDEX);
  54
  55         std::clock_t total1 = 0;
  56         std::clock_t total2 = 0;
  57
  58         for (int i = 0; i < loops; ++i)
  59         {
  60                 // benchmark luabind
  61                 std::clock_t start1 = std::clock();
  62                 lua_dostring(L, "a = A()\n"
  63                                                                         "for i = 1, 1000000 do\n"
  64                                                                                 "test1(5, 4.6, 'foo', a)\n"
  65                                                                         "end");
  66
  67                 std::clock_t end1 = std::clock();
  68
  69
  70                 // benchmark empty binding
  71                 std::clock_t start2 = std::clock();
  72                 lua_dostring(L, "a = A()\n"
  73                                                                         "for i = 1, 1000000 do\n"
  74                                                                                 "test2(5, 4.6, 'foo', a)\n"
  75                                                                         "end");
  76
  77                 std::clock_t end2 = std::clock();
  78                 total1 += end1 - start1;
  79                 total2 += end2 - start2;
  80         }
  81
  82
  83         double time1 = double(total1) / (double)CLOCKS_PER_SEC;
  84         double time2 = double(total2) / (double)CLOCKS_PER_SEC;
  85
  86 #ifdef LUABIND_NO_ERROR_CHECKING
  87         std::cout << "without error-checking\n";
  88 #endif
  89 #ifdef LUABIND_DONT_COPY_STRINGS
  90         std::cout << "with constant strings\n";
  91 #endif
  92         std::cout << "luabind:\t" << time1 * 1000000 / num_calls / loops << " microseconds per call\n"
  93                 << "empty:\t" << time2 * 1000000 / num_calls / loops << " microseconds per call\n"
  94                 << "diff:\t" << ((time1 - time2) * 1000000 / num_calls / loops) << " microseconds\n\n";
  95
  96         lua_close(L);
  97 }
  98