diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

allow printing bigints as ~D

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1453 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-11-13 01:58:11 +00:00
parent 3cf7a1f59a
commit e7baf404d2
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
C/iopreds.c
View File

@ -4053,7 +4053,12 @@ format(volatile Term otail, volatile Term oargs, int sno)
t = targs[targ++]; t = targs[targ++];
if (IsVarTerm(t)) if (IsVarTerm(t))
goto do_instantiation_error; goto do_instantiation_error;
if (!IsIntegerTerm(t)) if (!IsIntegerTerm(t)
#ifdef USE_GMP
&& !IsBigIntTerm(t)
#endif
)
goto do_type_int_error; goto do_type_int_error;
if (!has_repeats && ch == 'd') { if (!has_repeats && ch == 'd') {
Yap_plwrite (t, f_putc, Handle_vars_f|To_heap_f); Yap_plwrite (t, f_putc, Handle_vars_f|To_heap_f);
@ -4061,6 +4066,37 @@ format(volatile Term otail, volatile Term oargs, int sno)
} else { } else {
Int siz, dec, i, div = 1; Int siz, dec, i, div = 1;
#ifdef USE_GMP
if (IsBigIntTerm(t)) {
MP_INT *dst = Yap_BigIntOfTerm(t);
int siz = mpz_sizeinbase (dst, 10);
char *ptr = tmp1;
if (siz+2 > 256) {
goto do_type_int_error;
}
mpz_get_str (tmp1, 10, dst);
if (tmp1[0] == '-') {
f_putc(sno, (int) '-');
ptr++;
}
while (siz > repeats) {
if ((siz-repeats) % 3 == 0) {
f_putc(sno, (int) ',');
}
f_putc(sno, (int) (*ptr++));
siz--;
}
if (repeats) {
f_putc(sno, (int) '.');
while (repeats) {
f_putc(sno, (int) (*ptr++));
repeats--;
}
}
break;
}
#endif
dec = IntegerOfTerm(t); dec = IntegerOfTerm(t);
/* /*
* The guys at Quintus have probably * The guys at Quintus have probably