+ GINAC_DECLARE_PRINT_CONTEXT(print_csrc_cl_N, print_csrc)
+public:
+ print_csrc_cl_N(std::ostream &, unsigned options = 0);
+};
+
+/** Check if obj is a T, including base classes. */
+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 {