1 // Internals of Univariate polynomials.
6 #include "cln/univpoly.h"
7 #include "cln/output.h"
11 extern cl_heap_univpoly_ring* cl_make_univpoly_ring (const cl_ring& r);
13 struct cl_varname_property : public cl_property {
14 SUBCLASS_cl_property();
18 cl_varname_property (const cl_symbol& k, const cl_symbol& v) : cl_property (k), varname (v) {}
21 // The property list key used to look up the varname.
22 extern cl_symbol cl_univpoly_varname_key;
24 static inline const cl_string get_varname (cl_heap_univpoly_ring* UPR)
26 cl_property* p = UPR->get_property(cl_univpoly_varname_key);
28 return ((cl_varname_property*)p)->varname;
30 return default_print_flags.univpoly_varname;