Return to bufio.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/bufio.fs, revision 1.1.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: