* Make print_memfun_handler<T, C> const-correct (fixes build with gcc-4.0.2).

[ginac.git] / ginac / print.h

diff --git a/ginac/print.h b/ginac/print.h
index 54b6ca719531b0349174278cd630806c5730618b..266a0875a04f44ecb275ae591ee22ba7d91c82ee 100644 (file)
--- a/ginac/print.h
+++ b/ginac/print.h
@@ -3,7 +3,7 @@
  *  Definition of helper classes for expression output. */
 
 /*
- *  GiNaC Copyright (C) 1999-2003 Johannes Gutenberg University Mainz, Germany
+ *  GiNaC Copyright (C) 1999-2005 Johannes Gutenberg University Mainz, Germany
  *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
@@ -17,7 +17,7 @@
  *
  *  You should have received a copy of the GNU General Public License
  *  along with this program; if not, write to the Free Software
- *  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
  */
 
 #ifndef __GINAC_PRINT_H__
@@ -25,6 +25,7 @@
 
 #include <iosfwd>
 #include <string>
+#include <memory>
 
 #include "class_info.h"
 
@@ -67,19 +68,24 @@ public:
 public: \
        typedef supername inherited; \
        friend class function_options; \
-private: \
-       static GiNaC::print_context_class_info reg_info; \
+       friend class registered_class_options; \
 public: \
-       virtual const GiNaC::print_context_class_info &get_class_info() const { return reg_info; } \
-       virtual const char *class_name() const { return reg_info.options.get_name(); } \
+       static const GiNaC::print_context_class_info &get_class_info_static(); \
+       virtual const GiNaC::print_context_class_info &get_class_info() const { return classname::get_class_info_static(); } \
+       virtual const char *class_name() const { return classname::get_class_info_static().options.get_name(); } \
        \
        classname(); \
-       classname * duplicate() const { return new classname(*this); } \
+       virtual classname * duplicate() const { return new classname(*this); } \
 private:
 
 /** Macro for inclusion in the implementation of each print_context class. */
 #define GINAC_IMPLEMENT_PRINT_CONTEXT(classname, supername) \
-       GiNaC::print_context_class_info classname::reg_info = GiNaC::print_context_class_info(print_context_options(#classname, #supername, next_print_context_id++));
+const GiNaC::print_context_class_info &classname::get_class_info_static() \
+{ \
+       static GiNaC::print_context_class_info reg_info = GiNaC::print_context_class_info(GiNaC::print_context_options(#classname, #supername, GiNaC::next_print_context_id++)); \
+       return reg_info; \
+}
+
 
 extern unsigned next_print_context_id;
 
@@ -176,6 +182,94 @@ template <class T>
 inline bool is_a(const print_context & obj)
 { return dynamic_cast<const T *>(&obj) != 0; }
 
+
+class basic;
+
+/** Base class for print_functor handlers */
+class print_functor_impl {
+public:
+       virtual ~print_functor_impl() {}
+       virtual print_functor_impl *duplicate() const = 0;
+       virtual void operator()(const basic & obj, const print_context & c, unsigned level) const = 0;
+};
+
+/** print_functor handler for pointer-to-functions of class T, context type C */
+template <class T, class C>
+class print_ptrfun_handler : public print_functor_impl {
+public:
+       typedef void (*F)(const T &, const C &, unsigned);
+
+       print_ptrfun_handler(F f_) : f(f_) {}
+       print_ptrfun_handler *duplicate() const { return new print_ptrfun_handler(*this); }
+
+       void operator()(const basic & obj, const print_context & c, unsigned level) const
+       {
+               // Call the supplied function
+               f(dynamic_cast<const T &>(obj), dynamic_cast<const C &>(c), level);
+       }
+
+private:
+       F f;
+};
+
+/** print_functor handler for member functions of class T, context type C */
+template <class T, class C>
+class print_memfun_handler : public print_functor_impl {
+public:
+       typedef void (T::*F)(const C & c, unsigned level) const;
+
+       print_memfun_handler(F f_) : f(f_) {}
+       print_memfun_handler *duplicate() const { return new print_memfun_handler(*this); }
+
+       void operator()(const basic & obj, const print_context & c, unsigned level) const
+       {
+               // Call the supplied member function
+               return (dynamic_cast<const T &>(obj).*f)(dynamic_cast<const C &>(c), level);
+       }
+
+private:
+       F f;
+};
+
+/** This class represents a print method for a certain algebraic class and
+ *  print_context type. Its main purpose is to hide the difference between
+ *  member functions and nonmember functions behind one unified operator()
+ *  interface. print_functor has value semantics and acts as a smart pointer
+ *  (with deep copy) to a class derived from print_functor_impl which
+ *  implements the actual function call. */
+class print_functor {
+public:
+       print_functor() : impl(0) {}
+       print_functor(const print_functor & other) : impl(other.impl.get() ? other.impl->duplicate() : 0) {}
+       print_functor(std::auto_ptr<print_functor_impl> impl_) : impl(impl_) {}
+
+       template <class T, class C>
+       print_functor(void f(const T &, const C &, unsigned)) : impl(new print_ptrfun_handler<T, C>(f)) {}
+
+       template <class T, class C>
+       print_functor(void (T::*f)(const C &, unsigned) const) : impl(new print_memfun_handler<T, C>(f)) {}
+
+       print_functor & operator=(const print_functor & other)
+       {
+               if (this != &other) {
+                       print_functor_impl *p = other.impl.get();
+                       impl.reset(p ? other.impl->duplicate() : 0);
+               }
+               return *this;
+       }
+
+       void operator()(const basic & obj, const print_context & c, unsigned level) const
+       {
+               (*impl)(obj, c, level);
+       }
+
+       bool is_valid() const { return impl.get(); }
+
+private:
+       std::auto_ptr<print_functor_impl> impl;
+};
+
+
 } // namespace GiNaC
 
 #endif // ndef __GINAC_BASIC_H__