Annotation of gforth/bufio.fs, revision 1.1
1.1 ! anton 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:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>