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;