4 #include "base/cl_sysdep.h"
7 #include "cln/SV_complex.h"
8 #include "cln/SV_real.h"
9 #include "cln/SV_rational.h"
10 #include "cln/SV_integer.h"
11 #include "vector/cl_SV_io.h"
16 #include "cln/output.h"
20 void print_vector (std::ostream& stream, const cl_print_flags& flags, void (* printfun) (std::ostream&, const cl_print_flags&, const cl_number&), const cl_SV_number& vector)
22 std::size_t len = vector.size();
23 if (flags.vector_syntax == vsyntax_commonlisp) {
24 fprintchar(stream,'#');
25 fprintchar(stream,'(');
27 fprintchar(stream,'[');
28 for (std::size_t i = 0; i < len; i++) {
30 if (flags.vector_syntax == vsyntax_algebraic)
31 fprintchar(stream,',');
32 fprintchar(stream,' ');
34 printfun(stream,flags,vector[i]);
36 if (flags.vector_syntax == vsyntax_commonlisp)
37 fprintchar(stream,')');
39 fprintchar(stream,']');