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>