steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix typo

cvs
Slava Pestov 2006-01-17 08:13:57 +00:00
parent 3d4be6e4c7
commit 7985d315f8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
library/io/buffer.factor
View File

@ -1,5 +1,6 @@
! Copyright (C) 2004, 2005 Mackenzie Straight. ! Copyright (C) 2004, 2005 Mackenzie Straight.
! See http://factor.sf.net/license.txt for BSD license. ! Copyright (C) 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: io-internals IN: io-internals
USING: alien errors kernel kernel-internals math sequences USING: alien errors kernel kernel-internals math sequences
strings ; strings ;
@ -49,13 +50,11 @@ C: buffer ( size -- buffer )
dup buffer-fill swap buffer-pos - ; dup buffer-fill swap buffer-pos - ;
: buffer-capacity ( buffer -- int ) : buffer-capacity ( buffer -- int )
#! Returns the amount of data that may be added to the buffer.
dup buffer-size swap buffer-fill - ; dup buffer-size swap buffer-fill - ;
: buffer-empty? ( buffer -- ? ) buffer-fill 0 = ; : buffer-empty? ( buffer -- ? ) buffer-fill 0 = ;
: buffer-extend ( length buffer -- ) : buffer-extend ( length buffer -- )
#! Increases the size of the buffer by length.
2dup buffer-ptr swap realloc check-ptr 2dup buffer-ptr swap realloc check-ptr
over set-buffer-ptr set-buffer-size ; over set-buffer-ptr set-buffer-size ;
@ -84,7 +83,7 @@ C: buffer ( size -- buffer )
: n>buffer ( count buffer -- ) : n>buffer ( count buffer -- )
[ buffer-fill + ] keep [ buffer-fill + ] keep
[ buffer-bound <= [ ] buffer-overflow ] keep [ buffer-bound <= [ ] buffer-overflow ] 2keep
set-buffer-fill ; set-buffer-fill ;
: buffer-peek ( buffer -- char ) : buffer-peek ( buffer -- char )