src/vector/cl_SV_number_debug.cc

   1 // cl_SV_number debugging support.
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7
   8
   9 // Implementation.
  10
  11 #include "cln/output.h"
  12 #include "cln/SV_number.h"
  13 #include "cln/io.h"
  14 #include "cl_SV_io.h"
  15
  16 namespace cln {
  17
  18 static void print_for_debug (cl_ostream stream, const cl_print_flags& flags, const cl_number& z)
  19 {
  20         unused stream; // must be cl_debugout
  21         unused flags; // must be default_print_flags
  22         z.debug_print();
  23 }
  24
  25 static void dprint (cl_heap* pointer)
  26 {
  27         var const cl_SV_number& obj = *(const cl_SV_number*)&pointer;
  28         fprint(cl_debugout, "(cl_SV_number) ");
  29         print_vector(cl_debugout,default_print_flags,&print_for_debug,obj);
  30 }
  31 AT_INITIALIZATION(dprint_SV_number)
  32 { cl_register_type_printer(cl_class_svector_number,dprint); }
  33
  34 // This dummy links in this module when <cln/SV_number.h> requires it.
  35 int cl_SV_number_debug_module;
  36
  37 }  // namespace cln