added and auto_trim flag to stream anad input

When set to true, all tree prints to the stream or sends to the input will
result in a trim. Achieved by passing trim to the generic print.

1 files changed, 25 insertions, 1 deletions

diff --git a/src/bytecode.c b/src/bytecode.c
index ee238b31..fbb94646 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -212,7 +212,7 @@ static word_t stream_append_text( program_t *prg, tree_t **sp, input_t *dest, tr
 		/* Collect the tree data. */
 		str_collect_t collect;
 		init_str_collect( &collect );
-		colm_print_tree_collect( prg, sp, &collect, input, false );
+		colm_print_tree_collect( prg, sp, &collect, input, ((struct input_impl_seq*)impl)->auto_trim );
 
 		/* Load it into the input. */
 		impl->funcs->append_data( prg, impl, collect.data, collect.length );
@@ -2510,6 +2510,30 @@ again:
 			vm_push_stream( stream );
 			break;
 		}
+		case IN_INPUT_AUTO_TRIM_WC: {
+			debug( prg, REALM_BYTECODE, "IN_INPUT_AUTO_TRIM_WC\n" );
+
+			stream_t *stream = vm_pop_stream();
+			value_t auto_trim = vm_pop_value();
+			struct stream_impl *si = stream->impl;
+
+			si->funcs->auto_trim( prg, si, (long) auto_trim );
+
+			vm_push_stream( stream );
+			break;
+		}
+		case IN_IINPUT_AUTO_TRIM_WC: {
+			debug( prg, REALM_BYTECODE, "IN_INPUT_AUTO_TRIM_WC\n" );
+
+			input_t *input = vm_pop_input();
+			value_t auto_trim = vm_pop_value();
+			struct input_impl *ii = input->impl;
+
+			ii->funcs->auto_trim( prg, ii, (long) auto_trim );
+
+			vm_push_input( input );
+			break;
+		}
 
 		case IN_SET_ERROR: {
 			debug( prg, REALM_BYTECODE, "IN_SET_ERROR\n" );