src/vector/output/cl_SV_number_aprint.cc

   1 // print_vector().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cl_SV_complex.h"
   8 #include "cl_SV_real.h"
   9 #include "cl_SV_rational.h"
  10 #include "cl_SV_integer.h"
  11 #include "cl_SV_io.h"
  12
  13
  14 // Implementation.
  15
  16 #include "cl_output.h"
  17
  18 void print_vector (cl_ostream stream, const cl_print_flags& flags, void (* printfun) (cl_ostream, const cl_print_flags&, const cl_number&), const cl_SV_number& vector)
  19 {
  20         var uintL len = vector.length();
  21         if (flags.vector_syntax == vsyntax_commonlisp) {
  22                 fprintchar(stream,'#');
  23                 fprintchar(stream,'(');
  24         } else
  25                 fprintchar(stream,'[');
  26         for (var uintL i = 0; i < len; i++) {
  27                 if (i > 0) {
  28                         if (flags.vector_syntax == vsyntax_algebraic)
  29                                 fprintchar(stream,',');
  30                         fprintchar(stream,' ');
  31                 }
  32                 printfun(stream,flags,vector[i]);
  33         }
  34         if (flags.vector_syntax == vsyntax_commonlisp)
  35                 fprintchar(stream,')');
  36         else
  37                 fprintchar(stream,']');
  38 }