gforth: gforth/bufio.fs

1 :	anton	1.1	\ BUFOUT.STR Buffered output for Debug 13jun93jaw
2 :
3 :			CREATE O-Buffer 4000 chars allot align
4 :			VARIABLE O-PNT
5 :
6 :			: O-TYPE O-PNT @ over chars O-PNT +!
7 :			swap move ;
8 :
9 :			: O-EMIT O-PNT @ c! 1 chars O-PNT +! ;
10 :
11 :			VARIABLE EmitXT
12 :			VARIABLE TypeXT
13 :
14 :			: O-INIT What's type TypeXT !
15 :			What's emit EmitXT !
16 :			O-Buffer O-PNT !
17 :			['] o-type IS type
18 :			['] o-emit IS emit ;
19 :
20 :			: O-DEINIT EmitXT @ IS Emit
21 :			TypeXT @ IS Type ;
22 :
23 :			: O-PNT@ O-PNT @ O-Buffer - ;
24 :