src/complex/output/cl_N_bprint.cc

   1 // print_complex().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_complex_io.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_output.h"
  13 #include "cl_complex.h"
  14 #include "cl_C.h"
  15 #include "cl_real_io.h"
  16
  17 void print_complex (cl_ostream stream, const cl_print_number_flags& flags, const cl_N& z)
  18 {
  19         if (realp(z)) {
  20                 DeclareType(cl_R,z);
  21                 print_real(stream,flags,z);
  22         } else {
  23                 DeclareType(cl_C,z);
  24                 var cl_R re = realpart(z);
  25                 var cl_R im = imagpart(z);
  26                 if (flags.complex_readably) {
  27                         // Common Lisp #C(re im) syntax
  28                         fprintchar(stream,'#');
  29                         fprintchar(stream,'C');
  30                         fprintchar(stream,'(');
  31                         print_real(stream,flags,re);
  32                         fprintchar(stream,' ');
  33                         print_real(stream,flags,im);
  34                         fprintchar(stream,')');
  35                 } else {
  36                         // Standard mathematical notation: re + im i
  37                         if (!eq(im,0)) {
  38                                 if (!eq(re,0)) {
  39                                         // Example: 3-7i
  40                                         print_real(stream,flags,re);
  41                                         if (minusp(im)) {
  42                                                 fprintchar(stream,'-');
  43                                                 print_real(stream,flags,-im);
  44                                         } else {
  45                                                 fprintchar(stream,'+');
  46                                                 print_real(stream,flags,im);
  47                                         }
  48                                         fprintchar(stream,'i');
  49                                 } else {
  50                                         // Example: 6i
  51                                         print_real(stream,flags,im);
  52                                         fprintchar(stream,'i');
  53                                 }
  54                         } else {
  55                                 // Example: 8
  56                                 print_real(stream,flags,re);
  57                         }
  58                 }
  59         }
  60 }