28 lines
695 B
Factor
28 lines
695 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: kernel-internals
|
|
USING: kernel math strings sequences-internals ;
|
|
|
|
: (sbuf>string) underlying dup rehash-string ;
|
|
|
|
IN: strings
|
|
USING: generic sequences ;
|
|
|
|
M: string resize resize-string ;
|
|
|
|
M: sbuf set-length ( n sbuf -- ) grow-length ;
|
|
|
|
M: sbuf nth-unsafe underlying >r >fixnum r> char-slot ;
|
|
|
|
M: sbuf nth ( n sbuf -- ch ) bounds-check nth-unsafe ;
|
|
|
|
M: sbuf set-nth-unsafe ( ch n sbuf -- )
|
|
underlying >r >fixnum >r >fixnum r> r> set-char-slot ;
|
|
|
|
M: sbuf set-nth ( ch n sbuf -- )
|
|
growable-check 2dup ensure set-nth-unsafe ;
|
|
|
|
M: sbuf >string sbuf>string ;
|
|
|
|
M: sbuf clone clone-growable ;
|