--- rxvt-unicode/src/callback.h	2005/04/26 00:35:00	1.4
+++ rxvt-unicode/src/callback.h	2007/12/05 18:20:39	1.12
@@ -1,15 +1,14 @@
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
-// THIS IS A GENERATED FILE, RUN callback.pl to regenerate it
+// THIS IS A GENERATED FILE: RUN callback.pl to regenerate it
+// THIS IS A GENERATED FILE: callback.pl is part of the GVPE
+// THIS IS A GENERATED FILE: distribution.
 
 /*
     callback.h -- C++ callback mechanism
-    Copyright (C) 2003 Marc Lehmann <pcg@goof.com>
+    Copyright (C) 2003-2007 Marc Lehmann <pcg@goof.com>
  
-    This program is free software; you can redistribute it and/or modify
+    This file is part of GVPE.
+
+    GVPE is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 2 of the License, or
     (at your option) any later version.
@@ -20,355 +19,402 @@
     GNU General Public License for more details.
  
     You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
+    along with gvpe; if not, write to the Free Software
     Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 */
 
 #ifndef CALLBACK_H__
 #define CALLBACK_H__
 
-template<class R>
-class callback0 {
-  struct object { };
+#define CALLBACK_H_VERSION 3
 
-  void *obj;
-  R (object::*meth) ();
+template<typename signature>
+struct callback;
 
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) ()) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) ())
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) ()> (meth)))
-          ();
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback0 (O1 *object, R (O2::*method) ())
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) ()> (method);
-      prxy = &p;
-    }
+template<class R>
+struct callback<R ()>
+{
+  typedef R (*ptr_type)(void *self);
+
+  template<class K, R (K::*method)()>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call () const
-    {
-      return prxy->call (obj, meth);
-    }
-
-  R operator () () const
-    {
-      return call ();
-    }
+  {
+    return func (self);
+  }
+
+  R operator ()() const
+  {
+    return call ();
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)()>
+  static R thunk (void *self)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) ();
+  }
 };
 
 template<class R, class A1>
-class callback1 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1), A1 a1) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1), A1 a1)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1)> (meth)))
-          (a1);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback1 (O1 *object, R (O2::*method) (A1))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1)>
+{
+  typedef R (*ptr_type)(void *self, A1);
+
+  template<class K, R (K::*method)(A1)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1) const
-    {
-      return prxy->call (obj, meth, a1);
-    }
-
-  R operator () (A1 a1) const
-    {
-      return call (a1);
-    }
+  {
+    return func (self, a1);
+  }
+
+  R operator ()(A1 a1) const
+  {
+    return call (a1);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1)>
+  static R thunk (void *self, A1 a1)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1);
+  }
 };
 
 template<class R, class A1, class A2>
-class callback2 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1, A2);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2), A1 a1, A2 a2) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2), A1 a1, A2 a2)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2)> (meth)))
-          (a1, a2);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback2 (O1 *object, R (O2::*method) (A1, A2))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1, A2)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2);
+
+  template<class K, R (K::*method)(A1, A2)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1, A2 a2) const
-    {
-      return prxy->call (obj, meth, a1, a2);
-    }
-
-  R operator () (A1 a1, A2 a2) const
-    {
-      return call (a1, a2);
-    }
+  {
+    return func (self, a1, a2);
+  }
+
+  R operator ()(A1 a1, A2 a2) const
+  {
+    return call (a1, a2);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2)>
+  static R thunk (void *self, A1 a1, A2 a2)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2);
+  }
 };
 
 template<class R, class A1, class A2, class A3>
-class callback3 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1, A2, A3);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3), A1 a1, A2 a2, A3 a3) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3), A1 a1, A2 a2, A3 a3)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2, A3)> (meth)))
-          (a1, a2, a3);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback3 (O1 *object, R (O2::*method) (A1, A2, A3))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2, A3)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1, A2, A3)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3);
+
+  template<class K, R (K::*method)(A1, A2, A3)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1, A2 a2, A3 a3) const
-    {
-      return prxy->call (obj, meth, a1, a2, a3);
-    }
-
-  R operator () (A1 a1, A2 a2, A3 a3) const
-    {
-      return call (a1, a2, a3);
-    }
+  {
+    return func (self, a1, a2, a3);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3) const
+  {
+    return call (a1, a2, a3);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3);
+  }
 };
 
 template<class R, class A1, class A2, class A3, class A4>
-class callback4 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1, A2, A3, A4);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4), A1 a1, A2 a2, A3 a3, A4 a4) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4), A1 a1, A2 a2, A3 a3, A4 a4)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2, A3, A4)> (meth)))
-          (a1, a2, a3, a4);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback4 (O1 *object, R (O2::*method) (A1, A2, A3, A4))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2, A3, A4)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1, A2, A3, A4)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1, A2 a2, A3 a3, A4 a4) const
-    {
-      return prxy->call (obj, meth, a1, a2, a3, a4);
-    }
-
-  R operator () (A1 a1, A2 a2, A3 a3, A4 a4) const
-    {
-      return call (a1, a2, a3, a4);
-    }
+  {
+    return func (self, a1, a2, a3, a4);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4) const
+  {
+    return call (a1, a2, a3, a4);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4);
+  }
 };
 
 template<class R, class A1, class A2, class A3, class A4, class A5>
-class callback5 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1, A2, A3, A4, A5);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2, A3, A4, A5)> (meth)))
-          (a1, a2, a3, a4, a5);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback5 (O1 *object, R (O2::*method) (A1, A2, A3, A4, A5))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2, A3, A4, A5)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1, A2, A3, A4, A5)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5) const
-    {
-      return prxy->call (obj, meth, a1, a2, a3, a4, a5);
-    }
-
-  R operator () (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5) const
-    {
-      return call (a1, a2, a3, a4, a5);
-    }
+  {
+    return func (self, a1, a2, a3, a4, a5);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5) const
+  {
+    return call (a1, a2, a3, a4, a5);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5);
+  }
 };
 
 template<class R, class A1, class A2, class A3, class A4, class A5, class A6>
-class callback6 {
-  struct object { };
-
-  void *obj;
-  R (object::*meth) (A1, A2, A3, A4, A5, A6);
-
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5, A6), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5, A6), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2, A3, A4, A5, A6)> (meth)))
-          (a1, a2, a3, a4, a5, a6);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback6 (O1 *object, R (O2::*method) (A1, A2, A3, A4, A5, A6))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2, A3, A4, A5, A6)> (method);
-      prxy = &p;
-    }
+struct callback<R (A1, A2, A3, A4, A5, A6)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5, A6);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5, A6)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
   R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6) const
-    {
-      return prxy->call (obj, meth, a1, a2, a3, a4, a5, a6);
-    }
-
-  R operator () (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6) const
-    {
-      return call (a1, a2, a3, a4, a5, a6);
-    }
+  {
+    return func (self, a1, a2, a3, a4, a5, a6);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6) const
+  {
+    return call (a1, a2, a3, a4, a5, a6);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5, A6)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5, a6);
+  }
 };
 
 template<class R, class A1, class A2, class A3, class A4, class A5, class A6, class A7>
-class callback7 {
-  struct object { };
+struct callback<R (A1, A2, A3, A4, A5, A6, A7)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5, A6, A7);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5, A6, A7)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
 
-  void *obj;
-  R (object::*meth) (A1, A2, A3, A4, A5, A6, A7);
+  R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7) const
+  {
+    return func (self, a1, a2, a3, a4, a5, a6, a7);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7) const
+  {
+    return call (a1, a2, a3, a4, a5, a6, a7);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5, A6, A7)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5, a6, a7);
+  }
+};
 
-  /* a proxy is a kind of recipe on how to call a specific class method	*/
-  struct proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5, A6, A7), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7) = 0;
-  };
-  template<class O1, class O2>
-  struct proxy : proxy_base {
-    virtual R call (void *obj, R (object::*meth) (A1, A2, A3, A4, A5, A6, A7), A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7)
-      {
-        ((reinterpret_cast<O1 *> (obj)) ->* (reinterpret_cast<R (O2::*) (A1, A2, A3, A4, A5, A6, A7)> (meth)))
-          (a1, a2, a3, a4, a5, a6, a7);
-      }
-  };
-
-  proxy_base *prxy;
-
-public:
-  template<class O1, class O2>
-  callback7 (O1 *object, R (O2::*method) (A1, A2, A3, A4, A5, A6, A7))
-    {
-      static proxy<O1,O2> p;
-      obj  = reinterpret_cast<void *> (object);
-      meth = reinterpret_cast<R (object::*) (A1, A2, A3, A4, A5, A6, A7)> (method);
-      prxy = &p;
-    }
+template<class R, class A1, class A2, class A3, class A4, class A5, class A6, class A7, class A8>
+struct callback<R (A1, A2, A3, A4, A5, A6, A7, A8)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5, A6, A7, A8);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5, A6, A7, A8)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
+
+  R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8) const
+  {
+    return func (self, a1, a2, a3, a4, a5, a6, a7, a8);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8) const
+  {
+    return call (a1, a2, a3, a4, a5, a6, a7, a8);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5, A6, A7, A8)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5, a6, a7, a8);
+  }
+};
 
-  R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7) const
-    {
-      return prxy->call (obj, meth, a1, a2, a3, a4, a5, a6, a7);
-    }
-
-  R operator () (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7) const
-    {
-      return call (a1, a2, a3, a4, a5, a6, a7);
-    }
+template<class R, class A1, class A2, class A3, class A4, class A5, class A6, class A7, class A8, class A9>
+struct callback<R (A1, A2, A3, A4, A5, A6, A7, A8, A9)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5, A6, A7, A8, A9);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5, A6, A7, A8, A9)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
+
+  R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9) const
+  {
+    return func (self, a1, a2, a3, a4, a5, a6, a7, a8, a9);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9) const
+  {
+    return call (a1, a2, a3, a4, a5, a6, a7, a8, a9);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5, A6, A7, A8, A9)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5, a6, a7, a8, a9);
+  }
 };
 
+template<class R, class A1, class A2, class A3, class A4, class A5, class A6, class A7, class A8, class A9, class A10>
+struct callback<R (A1, A2, A3, A4, A5, A6, A7, A8, A9, A10)>
+{
+  typedef R (*ptr_type)(void *self, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10);
+
+  template<class K, R (K::*method)(A1, A2, A3, A4, A5, A6, A7, A8, A9, A10)>
+  void set (K *object)
+  {
+    self = object;
+    func = thunk<K, method>;
+  }
+
+  R call (A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9, A10 a10) const
+  {
+    return func (self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10);
+  }
+
+  R operator ()(A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9, A10 a10) const
+  {
+    return call (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10);
+  }
+
+private:
+
+  void *self;
+  ptr_type func;
+
+  template<class klass, R (klass::*method)(A1, A2, A3, A4, A5, A6, A7, A8, A9, A10)>
+  static R thunk (void *self, A1 a1, A2 a2, A3 a3, A4 a4, A5 a5, A6 a6, A7 a7, A8 a8, A9 a9, A10 a10)
+  {
+    klass *obj = static_cast<klass *>(self);
+    return (obj->*method) (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10);
+  }
+};
+
+
 #endif