42 lines
1.1 KiB
Factor
42 lines
1.1 KiB
Factor
! Copyright (C) 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: alien.c-types combinators fry kernel lexer math math.parser
|
|
math.vectors.simd.functor sequences splitting vocabs.generated
|
|
vocabs.loader vocabs.parser words ;
|
|
QUALIFIED-WITH: alien.c-types c
|
|
IN: math.vectors.simd
|
|
|
|
ERROR: bad-base-type type ;
|
|
|
|
<PRIVATE
|
|
|
|
: simd-vocab ( base-type -- vocab )
|
|
"math.vectors.simd.instances." prepend ;
|
|
|
|
: parse-base-type ( string -- c-type )
|
|
{
|
|
{ "char" [ c:char ] }
|
|
{ "uchar" [ c:uchar ] }
|
|
{ "short" [ c:short ] }
|
|
{ "ushort" [ c:ushort ] }
|
|
{ "int" [ c:int ] }
|
|
{ "uint" [ c:uint ] }
|
|
{ "longlong" [ c:longlong ] }
|
|
{ "ulonglong" [ c:ulonglong ] }
|
|
{ "float" [ c:float ] }
|
|
{ "double" [ c:double ] }
|
|
[ bad-base-type ]
|
|
} case ;
|
|
|
|
PRIVATE>
|
|
|
|
: define-simd-vocab ( type -- vocab )
|
|
[ simd-vocab ] keep '[
|
|
_ parse-base-type
|
|
[ define-simd-128 ]
|
|
[ define-simd-256 ] bi
|
|
] generate-vocab ;
|
|
|
|
SYNTAX: SIMD:
|
|
scan define-simd-vocab use-vocab ;
|