16 lines
577 B
Factor
16 lines
577 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: strings
|
|
USING: kernel math strings sequences-internals sequences ;
|
|
|
|
M: string resize resize-string ;
|
|
M: sbuf set-length grow-length ;
|
|
M: sbuf nth-unsafe underlying nth-unsafe ;
|
|
M: sbuf nth bounds-check nth-unsafe ;
|
|
M: sbuf set-nth-unsafe underlying set-nth-unsafe ;
|
|
M: sbuf set-nth growable-check 2dup ensure set-nth-unsafe ;
|
|
M: sbuf clone clone-growable ;
|
|
M: sbuf thaw drop SBUF" " clone ;
|
|
: >sbuf [ <sbuf> ] >sequence ; inline
|
|
M: sbuf like drop dup sbuf? [ >sbuf ] unless ;
|