1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#include "aring-RRR.hpp"
namespace M2 {
void ARingRRR::text_out(buffer &o) const { o << "ARRR_" << mPrecision; }
void ARingRRR::elem_text_out(buffer &o,
const ElementType &ap,
bool p_one,
bool p_plus,
bool p_parens) const
{
mpfr_ptr a = &const_cast<ElementType &>(ap);
M2_string s = (*gmp_tostringRRpointer)(a);
bool prepend_plus = p_plus && (s->array[0] != '-');
bool strip_last =
!p_one && ((s->len == 1 && s->array[0] == '1') ||
(s->len == 2 && s->array[1] == '1' && s->array[0] == '-'));
if (prepend_plus) o << "+";
if (strip_last)
o.put((char *)s->array, s->len - 1);
else
o.put((char *)s->array, s->len);
}
}; // end namespace M2
// Local Variables:
// compile-command: "make -C $M2BUILDDIR/Macaulay2/e "
// indent-tabs-mode: nil
// End:
|
