streams: force-off indent mode.

The fourth indent mode indent-foff (force off) is introduced.

* buf.c (buf_print): Turn on data mode indentation if
the current mode is not indent-foff, rather than when it
is indent-off.

* lib.c (obj_print_impl): The unconditional set_indent_mode
calls are replaced with test_neq_set_indent_mode so we only
set the mode if it is not forced off.

* stream.c (formatv): For the ! directive, turn on data
mode identation is not indent-foff, rather than when it is
indent-off.
(put_string, put_char, width_check): Recognize ident-foff as
indentation off.
(test_neq_set_indent_mode): New function.
(stream_init): Register test-neq-set-indent-mode function
and indent-foff variable.

* stream.h (indent_mode): New enum constant, indent_foff.
(test_neq_set_indent_mode): Declared.

* struct.c (struct_inst_print): Turn on data mode indentation
if the current mode is not indent-foff, rather than when it is
indent-off.

* txr.1: Documented.

1 files changed, 2 insertions, 2 deletions

diff --git a/buf.c b/buf.c
index 14b89a2a..5e5a5d66 100644
--- a/buf.c
+++ b/buf.c
@@ -634,8 +634,8 @@ val buf_print(val buf, val stream_in)
   struct buf *b = buf_handle(buf, lit("buf-print"));
   cnum len = c_num(b->len), count = 0;
   mem_t *data = b->data;
-  val save_mode = test_set_indent_mode(stream, num_fast(indent_off),
-                                       num_fast(indent_data));
+  val save_mode = test_neq_set_indent_mode(stream, num_fast(indent_foff),
+                                           num_fast(indent_data));
   val save_indent;
   int fb = 0;