Work on write option max_depth (re GNU Prolog issue #56), re issue #250

trealla-prolog · Jul 10, 2023 · 849ea8f · 849ea8f
1 parent 08c01be
commit 849ea8f
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/print.c b/src/print.c
@@ -689,6 +689,15 @@ ssize_t print_term_to_buf(query *q, char *dst, size_t dstlen, cell *c, pl_idx c_
 {
  char *save_dst = dst;
 
+ if (q->max_depth && (depth >= q->max_depth)) {
+ if (cons) dst += snprintf(dst, dstlen, "[");
+ dst += snprintf(dst, dstlen, "...");
+ if (cons) dst += snprintf(dst, dstlen, "]");
+ q->last_thing_was_symbol = false;
+ q->was_space = false;
+ return dst - save_dst;
+ }
+
  if (depth > MAX_DEPTH) {
  q->cycle_error = true;
  q->last_thing_was_symbol = false;