steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Anton Gorenko 2010-06-13 16:21:40 +06:00
parent c8143dca73 8c7f740c26
commit 6c35d7c906
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
basis/specialized-vectors/specialized-vectors.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.parser assocs USING: accessors alien alien.c-types alien.parser assocs
compiler.units functors growable kernel lexer math namespaces classes compiler.units functors growable kernel lexer math
parser prettyprint.custom sequences specialized-arrays namespaces parser prettyprint.custom sequences
specialized-arrays.private strings vocabs vocabs.loader specialized-arrays specialized-arrays.private strings
vocabs.parser vocabs.generated fry make ; vocabs vocabs.loader vocabs.parser vocabs.generated fry make ;
FROM: sequences.private => nth-unsafe ; FROM: sequences.private => nth-unsafe ;
FROM: specialized-arrays.private => nth-c-ptr direct-like ; FROM: specialized-arrays.private => nth-c-ptr direct-like ;
QUALIFIED: vectors.functor QUALIFIED: vectors.functor
@ -19,6 +19,7 @@ FUNCTOR: define-vector ( T -- )
V DEFINES-CLASS ${T}-vector V DEFINES-CLASS ${T}-vector
A IS ${T}-array A IS ${T}-array
>A IS >${A}
<A> IS <${A}> <A> IS <${A}>
<direct-A> IS <direct-${A}> <direct-A> IS <direct-${A}>
@ -45,6 +46,11 @@ M: V byte-length [ length ] [ element-size ] bi * ; inline
M: V direct-like drop <direct-A> ; inline M: V direct-like drop <direct-A> ; inline
M: V nth-c-ptr underlying>> nth-c-ptr ; inline M: V nth-c-ptr underlying>> nth-c-ptr ; inline
M: A like
drop dup A instance? [
dup V instance? [ [ >c-ptr ] [ length>> ] bi <direct-A> ] [ >A ] if
] unless ; inline
SYNTAX: V{ \ } [ >V ] parse-literal ; SYNTAX: V{ \ } [ >V ] parse-literal ;
INSTANCE: V specialized-vector INSTANCE: V specialized-vector