22 lines
530 B
Factor
22 lines
530 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 ;
|
|
|
|
: (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 ( n sbuf -- ch ) bounds-check underlying char-slot ;
|
|
|
|
M: sbuf set-nth ( ch n sbuf -- )
|
|
growable-check 2dup ensure underlying
|
|
>r >r >fixnum r> r> set-char-slot ;
|
|
|
|
M: sbuf >string sbuf>string ;
|