1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: functors sequences sequences.private prettyprint.backend
4 kernel words classes math parser alien.c-types byte-arrays
6 IN: specialized-arrays.functor
8 ERROR: bad-byte-array-length byte-array type ;
10 M: bad-byte-array-length summary
11 drop "Byte array length doesn't divide type width" ;
13 FUNCTOR: define-array ( T -- )
18 byte-array>A DEFINES byte-array>${A}
21 NTH [ T dup c-getter array-accessor ]
22 SET-NTH [ T dup c-setter array-accessor ]
27 { length array-capacity read-only }
28 { underlying byte-array read-only } ;
30 : <A> ( n -- specialized-array ) dup T <c-array> A boa ; inline
32 : byte-array>A ( byte-array -- specialized-array )
33 dup length T heap-size /mod 0 = [ drop T bad-byte-array-length ] unless
36 M: A clone [ length>> ] [ underlying>> clone ] bi A boa ;
38 M: A length length>> ;
40 M: A nth-unsafe underlying>> NTH call ;
42 M: A set-nth-unsafe underlying>> SET-NTH call ;
44 : >A ( seq -- specialized-array ) A new clone-like ; inline
46 M: A like drop dup A instance? [ >A execute ] unless ;
48 M: A new-sequence drop <A> execute ;
50 M: A equal? over A instance? [ sequence= ] [ 2drop f ] if ;
54 [ T heap-size * ] [ underlying>> ] bi*
59 M: A byte-length underlying>> length ;
61 M: A pprint-delims drop A{ \ } ;
63 M: A >pprint-sequence ;
65 M: A pprint* pprint-object ;
67 : A{ \ } [ >A execute ] parse-literal ; parsing