1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.c-types functors sequences sequences.private growable
4 prettyprint.custom kernel words classes math parser ;
5 QUALIFIED: vectors.functor
6 IN: specialized-vectors.functor
8 FUNCTOR: define-vector ( T -- )
10 V DEFINES-CLASS ${T}-vector
21 V A <A> vectors.functor:define-vector
25 M: V byte-length underlying>> byte-length ;
27 M: V pprint-delims drop \ V{ \ } ;
29 M: V >pprint-sequence ;
31 M: V pprint* pprint-object ;
33 SYNTAX: V{ \ } [ >V ] parse-literal ;