// Output functions.

#ifndef _CL_OUTPUT_H
#define _CL_OUTPUT_H

#include "cl_types.h"
#include "cl_floatformat.h"
#include "cl_io.h"
#include "cl_string.h"

struct cl_print_rational_flags {
	// Base in which rational numbers are to be printed.
	unsigned int rational_base;
	// Flag whether to print radix specifiers in Common Lisp syntax for
	// rational numbers (#nR or #b or #o or #x prefixes, trailing dot).
	cl_boolean rational_readably;
// Constructor.
	cl_print_rational_flags () :
		rational_base (10),
		rational_readably (cl_false) {}
};

struct cl_print_float_flags {
	// Flag whether to prefer type specific exponent markers over 'E'.
	cl_boolean float_readably;
	// If !float_readably, the format which earns the 'E' exponent marker.
	cl_float_format_t default_float_format;
// Constructor.
	cl_print_float_flags () :
		float_readably (cl_false),
		default_float_format (cl_float_format_ffloat) {}
};

struct cl_print_real_flags : cl_print_rational_flags, cl_print_float_flags {};

struct cl_print_complex_flags {
	// Flag whether to use the Common Lisp #C(realpart imagpart) syntax,
	cl_boolean complex_readably;
// Constructor.
	cl_print_complex_flags () :
		complex_readably (cl_false) {}
};

struct cl_print_number_flags : cl_print_real_flags, cl_print_complex_flags {};

enum cl_print_vector_syntax_t {
	vsyntax_algebraic,	// [a, b, c]
	vsyntax_pretty,		// [a b c]
	vsyntax_commonlisp	// #(a b c)
};

struct cl_print_vector_flags {
	cl_print_vector_syntax_t vector_syntax;
// Constructor.
	cl_print_vector_flags () :
		vector_syntax (vsyntax_pretty) {}
};

struct cl_print_univpoly_flags {
	cl_string univpoly_varname;
// Constructor.
	cl_print_univpoly_flags () :
		univpoly_varname ("x") {}
};

struct cl_print_flags : cl_print_number_flags, cl_print_vector_flags, cl_print_univpoly_flags {};

extern cl_print_flags cl_default_print_flags;

#endif /* _CL_OUTPUT_H */