File:  [gforth] / gforth / bufio.fs
Revision 1.1: download - view: text, annotated - select for diffs
Fri Feb 11 16:30:45 1994 UTC (30 years, 1 month ago) by anton
Branches: MAIN
CVS tags: HEAD
Initial revision

    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>