improve BigNum handling.

2011-06-21 15:11:07 +01:00
parent 42ebf1db4b
commit ded6b2435c
4 changed files with 54 additions and 43 deletions
--- a/C/write.c
+++ b/C/write.c
@@ -210,6 +210,20 @@ writebig(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, stru
    return;
  }
 #endif
+  if (pt[0] == BLOB_STRING) {
+    wrputc('"',wglb->writewch);
+    wrputs(Yap_BlobStringOfTerm(t),wglb->writewch);
+    wrputc('"',wglb->writewch);
+    return;
+  } else if  (pt[0] == BLOB_STRING) {
+    wchar_t *s = Yap_BlobWideStringOfTerm(t);
+    wrputc('"', wglb->writewch);
+    while (*s) {
+      wrputc(*s++, wglb->writewch);
+    }
+    wrputc('"',wglb->writewch);
+    return;
+  }
  wrputs("0",wglb->writewch);
 }