25 lines
612 B
Factor
25 lines
612 B
Factor
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: strings
|
|
USING: generic kernel kernel-internals math math-internals
|
|
sequences ;
|
|
|
|
M: string (grow) grow-string ;
|
|
|
|
DEFER: sbuf?
|
|
BUILTIN: sbuf 13 sbuf?
|
|
[ 1 length set-capacity ]
|
|
[ 2 underlying set-underlying ] ;
|
|
|
|
M: sbuf set-length ( n sbuf -- )
|
|
growable-check 2dup grow set-capacity ;
|
|
|
|
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 ;
|